Invoice number is wrong when posting a purchase prepayment invoice in the Italian version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in the Code function in the Purchase-Post Prepayments codeunit (444) as follows:
   Existing code

   ...
   END;
           END;
   
           Window.OPEN(
             '#1#################################\\' +
             Text002 +
   ...

   Replacement code

   ...
   END;
           END;
   
   // Add the following lines.
           IF HasReverseChargeVAT(PurchHeader) AND ("Reverse Sales VAT No." = '') THEN
             IF "Reverse Sales VAT No. Series" <> '' THEN BEGIN
               NoSeriesMgt.TestDateOrder("Reverse Sales VAT No. Series");
               "Reverse Sales VAT No." :=
                 NoSeriesMgt.GetNextNo("Reverse Sales VAT No. Series","Posting Date",TRUE);
               MODIFY;
               COMMIT;
             END;
   // End of the added lines.
   
           Window.OPEN(
             '#1#################################\\' +
             Text002 +
   ...

2. Change the code in the HasReverseChargeVAT function in the Purchase-Post Prepayments codeunit (444) as follows:
   Existing code

   ...
   // IT0010.end
       END;
   
       BEGIN
       {
         <changelog>
   ...

   Replacement code

   ...
   // IT0010.end
       END;
   
   // Add the following lines.
       LOCAL PROCEDURE HasReverseChargeVAT@1130001(PurchHeader@1130000 : Record 38) : Boolean;
       VAR
         PurchaseLine@1130001 : Record 39;
       BEGIN
         WITH PurchaseLine DO BEGIN
           SETRANGE("Document Type",PurchHeader."Document Type");
           SETRANGE("Document No.",PurchHeader."No.");
           SETFILTER(Quantity,'<>0');
           IF "Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"] THEN
             SETFILTER("Qty. to Invoice",'<>0');
           SETRANGE("VAT Calculation Type","VAT Calculation Type"::"Reverse Charge VAT");
           EXIT(NOT ISEMPTY);
         END;
       END;
   // End of the added lines.
   
       BEGIN
       {
         <changelog>
   ...

Prerequisites

• The Italian version of Microsoft Dynamics NAV 2009 R2
• The Italian version of Microsoft Dynamics NAV 2009 SP1

Removal information