O montante dedutível é zero incorretamente num ficheiro do modelo 340 quando utiliza "Pagamento em Dinheiro" e "Excluir Não. Deduzir. Gen. Prod. Publicar. Agrupa as funcionalidades no modelo 340 na versão espanhola do Microsoft Dynamics NAV

Aplica-se A
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Este artigo aplica-se ao Microsoft Dynamics NAV para a região de Espanha (es).

Sintomas

Suponha que utiliza a funcionalidade "Pagamento em Dinheiro" e "Excluir Não. Deduzir. Gen. Prod. Publicar. Agrupa a funcionalidade em conjunto no modelo 340 na versão espanhola do Microsoft Dynamics NAV. Quando exporta um ficheiro do modelo 340, o valor dedutível é sempre zero incorretamente.
Este problema ocorre nos seguintes produtos:

  • A versão espanhola do Microsoft Dynamics NAV 2009 R2
  • A versão espanhola do Microsoft Dynamics NAV 2009 Service Pack 1
  • A versão espanhola do Microsoft Dynamics NAV 5.0 Service Pack 1

      

Resolução

Informações de correção

Uma correção suportada está agora disponível na Microsoft. No entanto, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o apenas a sistemas com este problema específico. Esta correção pode receber testes adicionais. Por conseguinte, se não for gravemente afetado por este problema, recomendamos que aguarde pelo próximo service pack do Microsoft Dynamics NAV 2009 ou pela próxima versão do Microsoft Dynamics NAV que contém esta correção.

Nota Em casos especiais, os custos normalmente incorridos para chamadas de suporte poderão ser cancelados se um Profissional de Suporte Técnico para o Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolver o problema. Os custos de suporte habituais serão aplicados a questões e problemas de suporte adicionais que não se qualificam para a atualização específica em questão.

            
          

Informações de instalação

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita às garantias implícitas de comercialização ou adequação a um fim específico. Este artigo parte do princípio de que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou criar procedimentos para satisfazer os seus requisitos específicos.

Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Navision têm sessão iniciada no sistema. Isto inclui utilizadores cliente do Microsoft Navision Application Services (NAS). Deve ser o único utilizador cliente com sessão iniciada quando implementa esta correção.

Para implementar esta correção, tem de ter uma licença de programador.

Recomendamos que a conta de utilizador na janela Inícios de Sessão do Windows ou na janela Inícios de Sessão da Base de Dados seja atribuída ao ID da função "SUPER". Se não for possível atribuir à conta de utilizador o ID de função "SUPER", tem de verificar se a conta de utilizador tem as seguintes permissões:

  • A permissão Modificar para o objeto que irá alterar.
  • A permissão Executar para o objeto ID de Objeto de Sistema 5210 e para o objeto ID de Objeto do Sistema 9015.

                
Nota Não tem de ter direitos sobre os arquivos de dados, a menos que tenha de efetuar a reparação de dados.

Alterações de código

Nota Teste sempre as correções de código num ambiente controlado antes de aplicar as correções aos seus computadores de produção.
Para resolver o problema, siga estes passos:

  1. Clique em C/AL Globals no menu Ver e, em seguida, altere as variáveis no separador Variáveis no relatório Criar Declaração 340 (10743) da seguinte forma:
    Variável existente

    FilterString : Text [1024];

    Variável de substituição

    GPPGFilterString: Text[1024];

  2. Altere o código em Não Deduzido. Gen. Prod. Publicar. Grupos – acionador OnAssistEdit no formulário Pedido no relatório Criar Declaração 340 (10743) da seguinte forma:
    Código existente

    ...
// Delete the following line
dGPPGSelectionBuf.SetNonDedGPPGSelectMultiple340(ColumnGPPG,FilterString);
...

    Código de substituição

    ...
// Add the following line.
GPPGSelectionBuf.SetNonDedGPPGSelectMultiple340(ColumnGPPG,GPPGFilterString);
...

  3. Altere o código em Não Deduzido. Gen. Prod. Publicar. Grupos – acionador OnAssistEdit na página Pedido no relatório Criar Declaração 340 (10743) da seguinte forma:
    Código existente

    

    ...

    Elimine a seguinte linha.
    GPPGSelectionBuf.SetNonDedGPPGSelectMultiple340(ColumnGPPG,FilterString);
    ... Código de substituição

    ...
// Add the following line.
GPPGSelectionBuf.SetNonDedGPPGSelectMultiple340(ColumnGPPG,GPPGFilterString);
...

  4. Altere o código no acionador OnPreReport no formulário Pedido no relatório Fazer 340 Declaração (10743) da seguinte forma:
    Código existente:

    ...
// Delete the following lines.
IF FilterString = '' THEN
GetFilterStringFromColumnGLAcc;
// End of the lines.
...

    Código de substituição

    ...
// Add the following lines.
IF GLAccFilterString = '' THEN
GLAccFilterString := GetFilterStringFromColumn(ColumnGLAcc);
// End of the lines.
...

  5. Altere o código no acionador OnPreReport na página Request (Pedido) no relatório Make 340 Declaration (10743) da seguinte forma:
    Código existente:

    ...
// Delete the following lines.
IF FilterString = '' THEN
GetFilterStringFromColumnGLAcc;
// End of the lines.
...

    Código de substituição

    ...
// Add the following lines.
IF GLAccFilterString = '' THEN
GLAccFilterString := GetFilterStringFromColumn(ColumnGLAcc);
// End of the lines.
...

  6. Altere o código no procedimento CheckDeductibleVAT no relatório Criar Declaração 340 (10743) da seguinte forma:
    Código existente

    ...
// Delete the following line.
VATEntries.SETFILTER("Gen. Prod. Posting Group",FilterString); 
...

    Código de substituição

    ...
// Add the following line.
VATEntries.SETFILTER("Gen. Prod. Posting Group",GPPGFilterString); 
...

  7. Elimine o procedimento GetFilterStringFromColumnGPPG no relatório Make 340 Declaration (10743).

  8. Crie o novo procedimento GetFilterStringFromColumn no relatório Make 340 Declaration (10743) da seguinte forma:

    1. Crie os seguintes valores devolvidos e, em seguida, especifique os valores devolvidos da seguinte forma:

      • Colunas: Texto [1024];
      • FilterString: Texto [1024];

    2. Crie as seguintes variáveis locais de C/AL e, em seguida, especifique as variâncias da seguinte forma:

      • ColumnCode: Texto [1024];
      • Posição: Número Inteiro;

    3. Adicione o código da seguinte forma:

      ColumnCode := Columns;
FilterString := '';
REPEAT
Position := STRPOS(ColumnCode,';');
IF ColumnCode <> '' THEN BEGIN
IF Position <> 0 THEN BEGIN
FilterString := FilterString + '<>' + COPYSTR(ColumnCode,1,Position - 1);
ColumnCode := COPYSTR(ColumnCode,Position + 1);
END ELSE BEGIN
FilterString := FilterString + '<>' + COPYSTR(ColumnCode,1);
ColumnCode := '';
END;
IF ColumnCode <> '' THEN
FilterString := FilterString + '&';
END;
UNTIL ColumnCode = '';

  9. Elimine o procedimento GetFilterStringFromColumnGLAcc no relatório Make 340 Declaration (10743).

  10. Altere o código no procedimento PopulateAppliedPayments no relatório Make 340 Declaration (10743) da seguinte forma:
    Código existente

    ...
// Delete the following lines.
NoOfAccounts := RetrieveGLAccount(FilterString);
IF FilterString <> '' THEN BEGIN
// End of the lines.
...

    Código de substituição

    ...
// Add the following lines.
NoOfAccounts := RetrieveGLAccount(GLAccFilterString);
IF GLAccFilterString <> '' THEN BEGIN
// End of the lines.
...

          

Pré-requisitos

Tem de ter um dos seguintes produtos instalados para aplicar esta correção:

  • A versão espanhola do Microsoft Dynamics NAV 2009 R2
  • A versão espanhola do Microsoft Dynamics NAV 2009 Service Pack 1
  • A versão espanhola do Microsoft Dynamics NAV 5.0 Service Pack 1

Informações de remoção

Não é possível remover esta correção.

Estado

A Microsoft confirmou que se trata de um problema nos produtos Microsoft listados na secção "Aplica-se a".

Nota Este é um artigo "PUBLICAÇÃO RÁPIDA" criado diretamente a partir da organização de suporte da Microsoft. As informações aqui contidas são fornecidas tal como estão em resposta a problemas emergentes. Como resultado da velocidade de disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Veja Termos de Utilização para outras considerações.