"You must enter the Declaration Year and Period" error message when you preview a VAT statement in the Portuguese version of Microsoft Dynamics NAV 2009 Service Pack 1

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV service pack or the next Microsoft Dynamics NAV version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.
To resolve this problem, follow these steps:

1. Change the function name from CalcLineTotal to ReportCalcLineTotal in the Data Item Number 2 sections in the VAT Statement (PT) report (13398), and change the code as follow:
   Existing code

                                    TotalVATAmount := -TotalVATAmount;
                                  END
                                END ELSE BEGIN
   
   //Delete the following line.
                      CalcLineTotal("VAT Statement Line",TotalAmount,0);
   
                                  IF PrintInIntegers THEN
                                    TotalAmount := ROUND(TotalAmount,1,'<');
                                  IF "Print with" = "Print with"::"Opposite Sign" THEN

   Replacement code

                                    TotalVATAmount := -TotalVATAmount;
                                  END
                                END ELSE BEGIN
   //Add the following line.
                        ReportCalcLineTotal("VAT Statement Line",TotalAmount,0);
   
                                  IF PrintInIntegers THEN
                                    TotalAmount := ROUND(TotalAmount,1,'<');
                                  IF "Print with" = "Print with"::"Opposite Sign" THEN

2. Change the code in the CalcDatePeriods function in the VAT Statement (PT) report (13398) as follow:
   Existing code

         BEGIN
   
   //Delete the following line.
    IF (NOT ReqRefund) OR (NOT ReqRefundConditional) THEN
   
             IF (DeclYear = 0) OR ((PeriodMonth = 0) AND (PeriodQuarter = 0)) THEN
               ERROR(Text1110001);

   Replacement code

         BEGIN
   
   //Add the following line.
          IF ((NOT ReqRefund) OR (NOT ReqRefundConditional)) AND ExportDGCIFile THEN
   
             IF (DeclYear = 0) OR ((PeriodMonth = 0) AND (PeriodQuarter = 0)) THEN
               ERROR(Text1110001);

3. Change the code in the PageClearAndSetEditable function in the VAT Statement (PT) report (13398) as follow:
   Existing code

           END;
         END;
   
   //Delete the following line.
        BEGIN
   
         END.
       }
       RDLDATA

   Replacement code

           END;
         END;
   
   //Add the following lines.
        LOCAL PROCEDURE ReportCalcLineTotal@1110007 (VATStmtLine2@1110000 : Record 256;VAR TotalAmount@1110001 : Decimal;Level@1110002 : Integer);
        BEGIN
          CalcLineTotal(VATStmtLine2,TotalAmount,Level);
        END;
   
        BEGIN
   //End of the lines.
   
         END.
       }
       RDLDATA