Likęs kiekis RG 23 D įrašas yra neteisingas, kai registruojate pirkimo kredito pažymos Indijos kalba Microsoft Dynamics NAV 2009 SP1

Karštųjų pataisų informacija

Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.

Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.

Pastaba.

Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

1. Pridėkite nurodytą visuotinis kintamasis Pardavimo eilučiųlentelės (37):

   • Vardas: ExecuteExcise

   • Duomenų tipas: loginis kintamasis

2. Įtraukti šį kintamąjį CalculateStructuresfunkcija – Pardavimo eilučiųlentelės (37):

   • Vardas: DetailRG23D

   • Duomenų tipas: Įrašas; 16533

   
   Pakeisti taip:

   ...                       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. Įtraukti šį kintamąjį CheckAvailableQtyForReturnfunkcija – Pardavimo eilučiųlentelės (37):

   • Vardas: RG23D2

   • Duomenų tipas: Įrašas; 16537

   
   Pakeisti taip:

   ...           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. Sukurti funkciją SetExecuteExcise Pardavimų eilučiųlentelės (37). Pridėkite šį parametrą:

   • Vardas: ExecuteExcise2

   • Duomenų tipas: loginis kintamasis
     

   
   Pridėkite šį kodą:

   ExecuteExcise := ExecuteExcise2;

5. Pridėkite nurodytą visuotinis kintamasis Pirkimo eilutėslentelės (39):

   • Vardas: ExecuteExcise

   • Duomenų tipas: Boolean

6. Įtraukti šį kintamąjį CalculateStructuresfunkcija Pirkimo eilutėslentelės (39):

   • Vardas: DetailRG23D

   • Duomenų tipas: Įrašas; 16533

   
   Pakeisti taip:

   ...                        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. Sukurkite SetExecuteExcisefunkcija Pirkimo eilutėslentelės (39). Tada pridėkite šį parametrą:

   • Vardas: ExecuteExcise2

   • Duomenų tipas: loginis kintamasis
     

   
   Pridėkite šį kodą:

   ExecuteExcise := ExecuteExcise2;

8. Pakeisti Ypatybėsir pardavimo - PostKodinys (80) taip:

     ...                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. Pakeisti Ypatybėsir pirkimo.-PostKodinys (90) taip:

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