A data de IVA em um pagamento lançado está fora do intervalo de IVA permitido datas de lançamento na versão do Microsoft Dynamics NAV 2009 R2 croata

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.

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. Altere o código na função RunCheck o "livro Jnl.-linha" codeunit (11) da seguinte maneira:
   Código existente

   ...GLSetup.GET;
   IF GLSetup."Use VAT Date" THEN BEGIN
   
   // Delete the following line. 
   VATDateNeeded := FALSE;
   
   IF "Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF "Bal. Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("Bal. VAT Bus. Posting Group","Bal. VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF VATDateNeeded THEN
   IF "VAT Date" <> 0D THEN BEGIN
   IF VATDateNotAllowed("VAT Date") THEN
   FIELDERROR("VAT Date",Text26500);
   VATPeriodCheck("VAT Date");
   END ELSE
   TESTFIELD("VAT Date");
   END;
   ...
   

   Código de substituição

   ...GLSetup.GET;
   IF GLSetup."Use VAT Date" THEN BEGIN
   
   // Add the following lines. 
   IF "VAT Date" <> 0D THEN
   VATDateNeeded := TRUE
   ELSE BEGIN
   // End of the added lines. 
   
   IF "Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF "Bal. Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("Bal. VAT Bus. Posting Group","Bal. VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   
   // Add the following line. 
   END; 
   
   IF VATDateNeeded THEN
   IF "VAT Date" <> 0D THEN BEGIN
   IF VATDateNotAllowed("VAT Date") THEN
   FIELDERROR("VAT Date",Text26500);
   VATPeriodCheck("VAT Date");
   END ELSE
   TESTFIELD("VAT Date");
   END;
   ...
   

2. Altere o código na função CalcPmtDiscIfAdjVAT a "geral Jnl.-linha de Post" codeunit (12) da seguinte maneira:
   Código existente

   ...TempVatEntry := VATEntry2;
   TempVatEntry."Entry No." := TempVatEntryNo;
   TempVatEntry."Posting Date" := GenJnlLine."Posting Date";
   TempVatEntry."Document No." := GenJnlLine."Document No.";
   TempVatEntry."External Document No." := GenJnlLine."External Document No.";
   TempVatEntry."Document Type" := GenJnlLine."Document Type";
   ...
   

   Código de substituição

   ...TempVatEntry := VATEntry2;
   TempVatEntry."Entry No." := TempVatEntryNo;
   TempVatEntry."Posting Date" := GenJnlLine."Posting Date";
   
   // Add the following line.
   TempVatEntry."VAT Date" := GenJnlLine."VAT Date"; 
   
   TempVatEntry."Document No." := GenJnlLine."Document No.";
   TempVatEntry."External Document No." := GenJnlLine."External Document No.";
   TempVatEntry."Document Type" := GenJnlLine."Document Type";
   ...