Raport deklaracji VAT nie można wydrukować poprawne dane w portugalskiej wersji systemu Microsoft Dynamics NAV 2009

Informacje o poprawce

Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.

Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.

Zmiany kodu

Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:

1. Zmień kod w CalcVendorsRelation działają w raportu deklaracji VAT (PT) (13398) w następujący sposób:
   Istniejący kod

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Delete the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                  VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

   Kod zastępczy

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Add the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  VendEntries."Country/Region Code" := 'RC';
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              END ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

2. Zmień kod w funkcji InsertCertificateNo w raportu deklaracji VAT (PT) (13398) w następujący sposób:
   Istniejący kod

   ...            IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Delete the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                  IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                    IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...
   
   

   Kod zastępczy

   ...          REPEAT
               IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Add the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN BEGIN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
                  END ELSE
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                      IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...