A entrada incorreta G/L - Links de IVA entrada existem no Microsoft Dynamics NAV 2009

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

Observação: Antes de instalar esse hotfix, verifique se todos os usuários do cliente do Microsoft Dynamics NAV estiver desconectados do sistema. Isso inclui os serviços do Microsoft Dynamics NAV Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:

• A permissão Modificar para o objeto que será alterado.

• A permissão de execução para o objeto 5210 de identificação de objeto de sistema e o sistema 9015 de identificação de objeto
  
  objeto.

Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.

Para resolver esse problema, execute as seguintes etapas:

1. Alterar o código de função UnapplyCustLedgEntry em geral Jnl.-lançar linha codeunit (12) da seguinte maneira:
   1 de código existente

   ...    NegativeLCYAppAmt@1021 : Decimal;
         PositiveACYAppAmt@1020 : Decimal;
         NegativeACYAppAmt@1019 : Decimal;
   
   // Delete the following lines.
   VatBaseSum@1008 : ARRAY [2] OF Decimal;
   EntryNoBegin@1025 : ARRAY [2] OF Integer;
   // End of the deleted lines.
   
         i@1027 : Integer;
         TempVatEntryNo@1028 : Integer;
       BEGIN
   ...
   

   1 código de substituição

   ...  NegativeLCYAppAmt@1021 : Decimal;
         PositiveACYAppAmt@1020 : Decimal;
         NegativeACYAppAmt@1019 : Decimal;
   
   // Add the following lines.
   VatBaseSum@1008 : ARRAY [3] OF Decimal;
   EntryNoBegin@1025 : ARRAY [3] OF Integer;
   // End of the added lines.
   
         i@1027 : Integer;
         TempVatEntryNo@1028 : Integer;
       BEGIN
   ...
   

   2 de código existente

   ... VATEntry2."Entry No." := NextVATEntryNo;
                 NextVATEntryNo := NextVATEntryNo + 1;
                 VATEntry2.INSERT;
                 TempVatEntry.DELETE;
               END;
               IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

   Código de substituição 2

   ...VATEntry2."Entry No." := NextVATEntryNo;
                 NextVATEntryNo := NextVATEntryNo + 1;
                 VATEntry2.INSERT;
   
   // Add the following lines.
   IF VATEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
   GLEntryTmp."Entry No." := NextEntryNo;
   GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry2);
   END;
   // End of the added lines.
   
                 TempVatEntry.DELETE;
               END;
               IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

   3 de código existente

   ... IF TempVatEntry.FINDSET THEN BEGIN
               REPEAT
                 CASE TRUE OF
                   VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                     i := 3;
                   VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
   ...
   

   Código de substituição 3

   ...IF TempVatEntry.FINDSET THEN BEGIN
               REPEAT
                 CASE TRUE OF
   
   // Add the followoing lines.
   VATBaseSum[3] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
   i := 4;
   // End of the added lines.
   
                   VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                     i := 3;
                   VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
   ...
   

   4 de código existente

   ...END;
                     TempVatEntry := VATEntrySaved;
                   UNTIL TempVatEntry.NEXT = 0;
   
   // Delete the following line.
   FOR i := 1 TO 2 DO BEGIN
   // End of the deleted line.
   
                     VatBaseSum[i] := 0;
                     EntryNoBegin[i] := 0;
                   END;
   ...
   

   Código de substituição 4

   ...END;
                     TempVatEntry := VATEntrySaved;
                   UNTIL TempVatEntry.NEXT = 0;
   
   // Add the following line.
   FOR i := 1 TO 3 DO BEGIN
   // End of the added line.
   
                     VatBaseSum[i] := 0;
                     EntryNoBegin[i] := 0;
                   END;
   ...
   

   5 de código existente

   ...END;
                   TempVatEntry.SETRANGE("Entry No.",0,999999);
                 END ELSE BEGIN
                   VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                   VatBaseSum[1] := TempVatEntry.Base;
                   EntryNoBegin[2] := EntryNoBegin[1];
                   EntryNoBegin[1] := TempVatEntry."Entry No.";
                 END;
   ...
   

   Código de substituição 5

   ...END;
                   TempVatEntry.SETRANGE("Entry No.",0,999999);
                 END ELSE BEGIN
   
   // Add the following line.
   VatBaseSum[3] += TempVATEntry.Base;
   // End of the added line.
   
                   VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                   VatBaseSum[1] := TempVatEntry.Base;
   
   // Add the folloiwng lines.           
   IF EntryNoBegin[3] > 0 THEN
   EntryNoBegin[3] := TempVatEntry."Entry No.";
   // End of the added lines.
   
   EntryNoBegin[2] := EntryNoBegin[1];
                   EntryNoBegin[1] := TempVatEntry."Entry No.";
                 END;
   ...
   

2. Alterar o código de função UnapplyVendLedgEntry em geral Jnl.-lançar linha codeunit (12) da seguinte maneira:
   1 de código existente

   ...    NegativeLCYAppAmt@1021 : Decimal;
         PositiveACYAppAmt@1020 : Decimal;
         NegativeACYAppAmt@1019 : Decimal;
   
   // Delete the following lines.
   VatBaseSum@1029 : ARRAY [2] OF Decimal;
   EntryNoBegin@1028 : ARRAY [2] OF Integer;
   // End of the deleted lines.
   
         i@1027 : Integer;
         TempVatEntryNo@1025 : Integer;
       BEGIN
   ...
   

   1 código de substituição

   ...    NegativeLCYAppAmt@1021 : Decimal;
         PositiveACYAppAmt@1020 : Decimal;
         NegativeACYAppAmt@1019 : Decimal;
         V
   // Add the following lines.
   atBaseSum@1029 : ARRAY [3] OF Decimal;
   EntryNoBegin@1028 : ARRAY [3] OF Integer;
   // End of the added lines.
   
         i@1027 : Integer;
         TempVatEntryNo@1025 : Integer;
       BEGIN
   ...
   

   2 de código existente

   ...VatEntry2."Entry No." := NextVATEntryNo;
                 NextVATEntryNo := NextVATEntryNo + 1;
                 VatEntry2.INSERT;
                 TempVatEntry.DELETE;
               END;
               IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

   Código de substituição 2

   ...VatEntry2."Entry No." := NextVATEntryNo;
                 NextVATEntryNo := NextVATEntryNo + 1;
                 VatEntry2.INSERT;
   
   // Add the following lines.
   IF VatEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
   GLEntryTmp."Entry No." := NextEntryNo;
   GLEntryVatEntrylink.InsertLink(GLEntryTmp,VatEntry2);
   END;
   // End of the added lines.
   
                 TempVatEntry.DELETE;
               END;
               IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

   3 de código existente

   ...  IF TempVatEntry.FINDSET THEN BEGIN
               REPEAT
                 CASE TRUE OF
                   VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                     i := 3;
                   VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
   ...
   

   Código de substituição 3

   ...IF TempVatEntry.FINDSET THEN BEGIN
               REPEAT
                 CASE TRUE OF
   
   // Add the following lines.
   VATBaseSum[3] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
   i := 4;
   // End of the added lines.
   
                   VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                     i := 3;
                   VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
   ...
   

   4 de código existente

   ...END;
                   TempVatEntry.SETRANGE("Entry No.",0,999999);
                 END ELSE BEGIN
                   VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                   VatBaseSum[1] := TempVatEntry.Base;
                   EntryNoBegin[2] := EntryNoBegin[1];
                   EntryNoBegin[1] := TempVatEntry."Entry No.";
                 END;
   ...
   

   Código de substituição 4

   ... END;
                   TempVatEntry.SETRANGE("Entry No.",0,999999);
                 END ELSE BEGIN
   
   // Add the following line.
   VatBaseSum[3] += TempVATEntry.Base;
   // End of the added line.
   
                   VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                   VatBaseSum[1] := TempVatEntry.Base;
   
   // Add the following lines.
   IF EntryNoBegin[3] > 0 THEN
   EntryNoBegin[3] := TempVatEntry."Entry No.";
   // End of the added lines.
   
                   EntryNoBegin[2] := EntryNoBegin[1];
                   EntryNoBegin[1] := TempVatEntry."Entry No.";
                 END;
   ...
   

3. Alterar o código de função InsertVatEntriesFromTemp em geral Jnl.-lançar linha codeunit (12) da seguinte maneira:
   Código existente

   ... DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
             TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
         END;
   
   // Delete the following line.
   TempVatEntry.FINDSET;
   // End of the deleted line.
   
         REPEAT
           VATEntry := TempVatEntry;
           VATEntry."Entry No." := NextVATEntryNo;
           VATEntry.INSERT;
           NextVATEntryNo := NextVATEntryNo + 1;
           IF VATEntry."Unrealized VAT Entry No." = 0 THEN
             GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
           TempVatEntry.DELETE;
           LinkedAmount := LinkedAmount + VATEntry.Base;
           Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
         UNTIL Complete OR (TempVatEntry.NEXT = 0);
       END;
   
       LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
   ...
   

   Código de substituição

   ...DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
             TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
         END;
   
   // Add the following line.
   IF TempVatEntry.FINDSET THEN
   // End of the added line.
   
           REPEAT
             VATEntry := TempVatEntry;
             VATEntry."Entry No." := NextVATEntryNo;
             VATEntry.INSERT;
             NextVATEntryNo := NextVATEntryNo + 1;
             IF VATEntry."Unrealized VAT Entry No." = 0 THEN
               GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
             TempVatEntry.DELETE;
             LinkedAmount := LinkedAmount + VATEntry.Base;
             Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
           UNTIL Complete OR (TempVatEntry.NEXT = 0);
       END;
   
       LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
   ...
   
   
   

Pré-requisitos:

Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 SP1

Além disso, você deve ter o KB3001759 e o KB3036811 instalado.

Informações sobre remoção

Você não pode remover esse hotfix.