The Remaining Quantity in the RG 23 D entry is incorrect after you post a purchase credit memo in the Indian version of Microsoft Dynamics NAV 2009 SP1

Installation information

Code changes

1. Add the following global variable in the Sales Linetable (37):
   • Name: ExecuteExcise
   • DataType: Boolean
2. Add the following variable in the CalculateStructuresfunction in the Sales Linetable (37):
   • Name: DetailRG23D
   • DataType: Record; 16533
   
   Change the code as follows:

   ...
                          END;
                         UNTIL StrOrderDetails.NEXT = 0;
                     END;
                     SalesLine.MODIFY;
                 UNTIL SalesLine.NEXT = 0;
   
   // Add the following l ines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   ...

3. Add the following variable in the CheckAvailableQtyForReturnfunction in the Sales Linetable (37):
   • Name: RG23D2
   • DataType: Record; 16537
   
   Change the code as follows:

   ...
              IF RG23D.FINDSET THEN
             REPEAT
   // Delete the following line.
                  QtyAllocated += ABS(RG23D.Quantity); 
   // End of the deleted line.
   
   // Add the following lines.
              RG23D2.GET(RG23D."Ref. Entry No."); 
              RG23D2.CALCFIELDS("Remaining Quantity"); 
              QtyAllocated += ABS(RG23D2.Quantity - RG23D2."Remaining Quantity");
   // End of the added lines.
   
             UNTIL RG23D.NEXT = 0;
   ...

4. Create the SetExecuteExcisefunction in the Sales Linetable (37). Then, add the following Parameter:
   • Name: ExecuteExcise2
   • DataType: Boolean
     
   
   Add the following code:

   ExecuteExcise := ExecuteExcise2;

5. Add the following global variable in the Purchase Linetable (39):
   • Name: ExecuteExcise
   • DataType: Boolean
6. Add the following variable in the CalculateStructuresfunction in the Purchase Linetable (39):
   • Name: DetailRG23D
   • DataType: Record; 16533
   
   Change the code as follows:

   ...
                           END;
                       UNTIL StrOrderDetails.NEXT = 0;
                   END;
                   PurchLine.MODIFY;
               UNTIL PurchLine.NEXT = 0;
   
   // Add the following lines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   
            END;
           END;
         END;
   ...

7. Create the SetExecuteExcisefunction in the Purchase Linetable (39). Then, add the following Parameter:
   • Name: ExecuteExcise2
   • DataType: Boolean
     
   
   Add the following code:

   ExecuteExcise := ExecuteExcise2;

8. Change the code in the Propertiesin the Sales -Postcodeunit (80) as follows:

     ...
                   SalesLine.GetSalesPriceExclusiveTaxes(SalesHeader);
                     SalesLine.UpdateSalesLinesPIT(SalesHeader);
                   END;
     
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    SalesLine.SetExecuteExcise( 
                      ("Document Type" IN ["Document Type"::"Credit Memo","Document Type"::Invoice]) OR 
                      (("Document Type" IN ["Document Type"::"Return Order", 
                      "Document Type"::Order]) AND 
                      Invoice)); 
   // End of the added lines.
    
                     SalesLine.CalculateStructures(SalesHeader);
                     SalesLine.AdjustStructureAmounts(SalesHeader);
                     SalesLine.UpdateSalesLines(SalesHeader);
                     CheckVATSettled(SalesHeader);
                   END;
   ...
   

9. Change the code in the Propertiesin the Purch.-Postcodeunit (90) as follows:

     ...
                      TESTFIELD("Document Date");
                   IF GenJnlCheckLine.DateNotAllowed("Posting Date") THEN
                     FIELDERROR("Posting Date",Text045);
     
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    PurchLine.SetExecuteExcise(("Document Type" = "Document Type"::"Credit Memo") OR 
                      (("Document Type" = "Document Type"::"Return Order") AND Invoice)); 
   // End of the added lines.
   
                     PurchLine.CalculateStructures(PurchHeader);
                     COMMIT;
                     CheckVATSettled;
                     PurchLine.AdjustStructureAmounts(PurchHeader);
                     PurchLine.UpdatePurchLines(PurchHeader);
   ...
   

Prerequisites

Removal information