Ülejäänud kogus RG 23 D kirje on vale pärast ostu kreeditarve India versiooni Microsoft Dynamics nav-i 2009 SP1

Kiirparanduse teave

Lasknud välja toetatava käigultparanduse on nüüd Microsoftilt saadaval. Aga see on ette nähtud ainult selles artiklis kirjeldatud probleemi kõrvaldamiseks. Rakendage seda ainult süsteemides, kus ilmneb see konkreetne probleem. Seda käigultparandust võidakse täiendavalt testida. Kui probleem teie tööd tõsiselt ei kahjusta, soovitame oodata järgmist hoolduspaketti Microsoft Dynamics nav-i 2009 või järgmise Microsoft Dynamics nav-i versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel kulud, mis tekivad tavaliselt abi palub tühistada saab kui tehniline toetus Professional Microsoft Dynamics ja nendega seotud toodete leiab, et mõni konkreetne värskendus lahendab teie probleemi. Tavaline tugiteenuste kohaldatakse täiendavat tugiteenust vajavatele küsimustele ning probleemidele, mis pole lahendatavad konkreetse värskenduse installimisega.

Koodi muudatusi

Märkus. Alati test koodi lahendab kontrollitavas keskkonnas enne rakendamist tootmine arvutite parandused.
Selle probleemi lahendamiseks toimige järgmiselt.

1. Lisage järgmine Globaalne muutuja tabeli Müügi rida(37):

   • Nimi: ExecuteExcise

   • DataType (andmetüüp): Boolean

2. Lisage järgmine muutuja CalculateStructuresfunktsiooni tabeli Müügi rida(37):

   • Nimi: DetailRG23D

   • Andmetüüp: Kirje; 16533

   
   Koodi muutmiseks järgmiselt:

   ...                       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. Lisage järgmine muutuja CheckAvailableQtyForReturnfunktsiooni tabeli Müügi rida(37):

   • Nimi: RG23D2

   • Andmetüüp: Kirje; 16537

   
   Koodi muutmiseks järgmiselt:

   ...           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. Looge SetExecuteExcisefunktsiooni tabeli Müügi rida(37). Seejärel lisage järgmine parameeter.

   • Nimi: ExecuteExcise2

   • DataType (andmetüüp): Boolean
     

   
   Lisage järgmine kood:

   ExecuteExcise := ExecuteExcise2;

5. Lisage järgmist globaalmuutujat Ostutellimuse reatabelis (39):

   • Nimi: ExecuteExcise

   • DataType (andmetüüp): Boolean

6. Lisage järgmine muutuja Ostutellimuse reatabeli (39) funktsioonis CalculateStructures:

   • Nimi: DetailRG23D

   • Andmetüüp: Kirje; 16533

   
   Koodi muutmiseks järgmiselt:

   ...                        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. Looge SetExecuteExcisefunktsiooni Ostutellimuse reatabelis (39). Seejärel lisage järgmine parameeter.

   • Nimi: ExecuteExcise2

   • DataType (andmetüüp): Boolean
     

   
   Lisage järgmine kood:

   ExecuteExcise := ExecuteExcise2;

8. Koodi atribuutidemuutmiseks on müügi - postikoodiplokk (80) järgmiselt:

     ...                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. Muuda koodi Atribuudidon Ost-postituskoodiplokk (90) järgmiselt:

     ...                   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);
   ...