Klaidos pranešimas "Užsakyme yra neužregistruotų išankstinio apmokėjimo sumų [numeris]", kai registruojate pardavimo užsakymo dalinį siuntimą Rytų Europos "„Microsoft“ Dynamics NAV 2009 R2" versijoje

Taikoma
Dynamics NAV 2009

Šis straipsnis taikomas "„Microsoft“ Dynamics NAV", skirtai Rytų Europos (EE) regionui.

Požymiai

Kai registruojate pardavimo užsakymo dalinį siuntimą naudodami Rytų Europos "„Microsoft“ Dynamics NAV 2009 R2" versiją, gaunate šį klaidos pranešimą:

Pastaba

Užsakymo numeryje yra neužregistruotų išankstinio apmokėjimo sumų.

Ši problema kyla, kai nurodomas ir apdorojamas pardavimo užsakymo išankstinis mokėjimas.

Sprendimas

Karštųjų pataisų informacija

Dabar palaikomas karštąsias pataisas galima gauti iš "„Microsoft“". Tačiau juo siekiama tik išspręsti šiame straipsnyje aprašytą problemą. Taikyti ją tik sistemoms, kuriose kilo ši konkreti problema. Ši karštoji pataisa gali būti papildomai patikrinta. Todėl, jei jūsų ši problema stipriai nepaveikė, rekomenduojame palaukti kito "„Microsoft“ Dynamics NAV" pakeitimų paketo arba kitos "„Microsoft“ Dynamics NAV" versijos, kurioje yra ši karštoji pataisa.

Pastaba Ypatingais atvejais mokesčiai, kurie paprastai taikomi už palaikymo skambučius, gali būti atšaukti, jei "„Microsoft“ Dynamics" ir susijusių produktų techninio palaikymo specialistas nustato, kad konkretus naujinimas išspręs jūsų problemą. Įprastos palaikymo išlaidos bus taikomos papildomiems palaikymo klausimams ir problemoms, kurios neatitinka atitinkamo konkretaus naujinimo reikalavimų.

            
          

Diegimo informacija

"„Microsoft“" pateikia programavimo pavyzdžių tik iliustracijai, be išreikštų ar numanomų garantijų. Tai apima, bet neapsiriboja, numanomas tinkamumo parduoti arba tinkamumo konkrečiam tikslui garantijas. Straipsnyje laikomasi nuomonės, kad esate susipažinę su demonstruojama programavimo kalba ir įrankiais, naudojamais kuriant ir derinant procedūras. "„Microsoft“" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcionalumą, bet jie nemodifikuos šių pavyzdžių, kad suteiktų papildomų funkcinių galimybių, ir nesukurs procedūrų, atitinkančių jūsų konkrečius reikalavimus.

Pastaba Prieš diegdami šią karštąją pataisą patikrinkite, ar visi "„Microsoft“ Navision" kliento vartotojai yra atsijungę nuo sistemos. Tai apima "„Microsoft“ Navision" programų tarnybų (NAS) kliento vartotojus. Turite būti vienintelis kliento vartotojas, kuris yra prisijungęs, kai įdiegiate šią karštąją pataisą.

Norėdami įdiegti šią karštąją pataisą, privalote turėti kūrėjo licenciją.

Rekomenduojame vartotojo paskyrai "Windows" prisijungimų lange arba duomenų bazės prisijungimų lange priskirti "SUPER" vaidmens ID. Jei vartotojo paskyrai negalima priskirti "SUPER" vaidmens ID, turite patikrinti, ar vartotojo paskyra turi šias teises:

  • Objekto, kurį keisite, modifikavimo teisė.
  • Sistemos objekto ID 5210 ir sistemos objekto ID 9015 objekto vykdymo teisės.

                
Pastaba: neturite turėti teisių į duomenų saugyklas, nebent turite atlikti duomenų taisymą.

Kodo keitimai

Pastaba Visada išbandykite kodo pataisas kontroliuojamoje aplinkoje prieš taikydami jas gamybos kompiuteriuose.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

  1. Pakeiskite funkcijos TestSalesPrepayment kodą, esantį patvirtinimų valdymo kodo bloke (439), tokiu būdu:
    Esamas kodas

    ...
SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
...

    Pakeitimo kodas

    ...
// Add the following lines.
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN
EXIT(FALSE);
// End of the lines. 

SalesLines.SETRANGE("Document Type",SalesHeader."Document Type");
SalesLines.SETRANGE("Document No.",SalesHeader."No.");
SalesLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
...

  2. Pakeiskite funkcijos TestPurchasePrepayment kodą patvirtinimų valdymo kodo bloke (439) tokiu būdu:
    Esamas kodas

    ...
PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
...

    Pakeitimo kodas

    ...
// Add the following lines.
IF PurchaseHeader."Prepayment Type" = PurchaseHeader."Prepayment Type"::Advance THEN
EXIT(FALSE);
// End of the lines. 

PurchaseLines.SETRANGE("Document Type",PurchaseHeader."Document Type");
PurchaseLines.SETRANGE("Document No.",PurchaseHeader."No.");
PurchaseLines.SETFILTER("Prepmt. Line Amount",'<>%1',0);
...

  3. Pakeiskite "Sales-Post" kodo vieneto (80) paleidiklio "OnRun" kodą tokiu būdu:
    Esamas kodas

    ...
Window.UPDATE(2,LineCount); 
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date"; 
IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

    Pakeitimo kodas

    ...
Window.UPDATE(2,LineCount); 
IF Invoice AND (NOT GLSetup."Allow VAT Date Change in Lines") THEN
SalesLine."VAT Date" := "VAT Date"; 

// Add the following lines. 
IF Invoice THEN
TestPrepmtAmount;
// End of the lines. 

IF SalesLine.Type = SalesLine.Type::"Charge (Item)" THEN BEGIN
SalesLine.TESTFIELD(Amount);
SalesLine.TESTFIELD("Job No.",'');
SalesLine.TESTFIELD("Job Contract Entry No.",0);
END;
...

  4. Sukurkite naują funkciją TestPrepmtAmount codeunit "Sales-Post" (80) taip:

    PROCEDURE TestPrepmtAmount@1470003();
VAR
AllowedQtyToShip@1470000 : Decimal;
BEGIN
WITH SalesLine DO BEGIN
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;

AllowedQtyToShip :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Ship" > AllowedQtyToShip THEN
FIELDERROR("Qty. to Ship",STRSUBSTNO(Text047,AllowedQtyToShip));
END;
END;

  5. Panaikinkite šiuos vietinius kintamuosius funkcijoje TestPrepmtAmount kodo vienete "Purch.-Post" (90):

    • Likusi suma
    • Likęs kiekis

  6. Įtraukite naują vietinį kintamąjį į funkciją TestPrepmtAmount "Pirkimo-Post" kodo bloke (90) ir nurodykite kintamąjį taip:

    • Pavadinimas: AllowedQtyToReceive
    • Duomenų tipas: dešimtainis

  7. Pakeiskite funkcijos TestPrepmtAmount kodą kodo vienete "Pirk.-Post" (90) tokiu būdu:
    Esamas kodas

    ...
WITH PurchLine DO BEGIN

// Delete the following lines. 
IF "Prepmt. Line Amount" = 0 THEN
EXIT;
IF NOT PurchHeader.Receive AND ("Qty. to Invoice" = Quantity - "Quantity Invoiced") THEN BEGIN
IF "Qty. Rcd. Not Invoiced" + "Quantity Received" = Quantity THEN
RemainingAmount := 0
ELSE BEGIN
RemainingQty := "Qty. to Receive";
RemainingAmount :=
ROUND(RemainingQty * "Direct Unit Cost" * (1 - "Line Discount %" / 100),Currency."Amount Rounding Precision");
END;
END ELSE BEGIN
IF "Qty. to Invoice" + "Quantity Invoiced" = Quantity THEN
RemainingAmount := 0
ELSE BEGIN
RemainingQty := Quantity - "Qty. to Invoice" - "Quantity Invoiced";
RemainingAmount :=
ROUND(RemainingQty * "Direct Unit Cost" * (1 - "Line Discount %" / 100),Currency."Amount Rounding Precision");
END;
END;
IF RemainingAmount < "Prepmt. Line Amount" - "Prepmt Amt to Deduct" - "Prepmt Amt Deducted" THEN
FIELDERROR("Prepmt. Line Amount",STRSUBSTNO(Text049,"Qty. to Invoice"));
// End of the lines. 

END;
...

    Pakeitimo kodas

    ...
WITH PurchLine DO BEGIN

// Add the following lines. 
IF ("Prepmt. Line Amount" = 0) OR (Quantity = 0) THEN
EXIT;

AllowedQtyToReceive :=
ROUND(
("Line Amount" - "Prepmt. Line Amount" + "Prepmt. Amt. Inv.") /
"Line Amount" * Quantity - "Quantity Invoiced",0.00001);
IF "Qty. to Receive" > AllowedQtyToReceive THEN
FIELDERROR("Qty. to Receive",STRSUBSTNO(Text047,AllowedQtyToReceive));
// End of the lines. 

END;
...

  8. Pakeiskite Prepmt amt kodą į Deduct-OnValidate paleidiklį lentelėje Pardavimo eilutė (37) tokiu būdu:
    Esamas kodas

    ...
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

    Pakeitimo kodas

    ...
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");

// Add the following lines. 
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
IF VATPostingSetup."Adv. Invoice Correction Type" <> 0 THEN
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the lines. 
...

  9. Panaikinkite šiuos vietinius kintamuosius funkcijoje CalcPrepaymentToDeduct, esančioje lentelėje Pardavimo eilutė (37):

    • PrepmtPct
    • AbsoluteAdvCorrection

  10. Pakeiskite Pardavimų eilutės lentelės (37) funkcijos CalcPrepaymentToDeduct kodą tokiu būdu:
    Esamas kodas

    ...
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF SalesHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100 ,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
// End of the lines.

END ELSE
"Prepmt Amt to Deduct" := 0
...

    Pakeitimo kodas

    ... 
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE 
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
// End of the lines. 

END ELSE
"Prepmt Amt to Deduct" := 0
...

  11. Pardavimo eilutės lentelėje (37) sukurkite naują funkciją PrepmtAmtToDeduct tokiu būdu:

    PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

  12. Pakeiskite kodą, esantį lauke Prepmt amt į paleidiklį Išskaityta – OnValidate lentelėje Pirkimo eilutė (39), tokiu būdu:
    Esamas kodas

    ...
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");
...

    Pakeitimo kodas

    ...
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
TESTFIELD("Prepmt Amt to Deduct","Prepmt. Amt. Inv." - "Prepmt Amt Deducted");

// Add the following lines.
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
IF VATPostingSetup."Adv. Invoice Correction Type" <> 0 THEN
VATPostingSetup.TESTFIELD("Adv. Invoice Correction Type",VATPostingSetup."Adv. Invoice Correction Type"::Percentage);
END;
// End of the lines. 
...

  13. Panaikinkite šiuos vietinius kintamuosius funkcijoje CalcPrepaymentToDeduct, esančioje lentelėje Pirkimo eilutė (39):

    • PrepmtPct
    • AbsoluteAdvCorrection

  14. Pakeiskite pirkimo eilutės lentelės (39) funkcijos CalcPrepaymentToDeduct kodą tokiu būdu:
    Esamas kodas

    ...
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Delete the following lines. 
AbsoluteAdvCorrection :=
VATPostingSetup."Adv. Invoice Correction Type" = VATPostingSetup."Adv. Invoice Correction Type"::Absolute;
IF AbsoluteAdvCorrection THEN BEGIN
PrepmtPct := "Prepayment %";
"Prepayment %" := 100;
END;
END;
IF PurchHeader."Prices Including VAT" THEN
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
("Prepayment %" / 100) / (1 + ("VAT %" / 100)),Currency."Amount Rounding Precision") *
(1 + ("VAT %" / 100)),Currency."Amount Rounding Precision")
ELSE
"Prepmt Amt to Deduct" :=
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
"Prepayment %" / 100,Currency."Amount Rounding Precision");
IF AbsoluteAdvCorrection THEN BEGIN
"Prepayment %" := PrepmtPct;
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
// End of the lines.

END ELSE
"Prepmt Amt to Deduct" := 0
...

    Pakeitimo kodas

    ...
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");

// Add the following lines. 
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
("Prepmt. Amt. Inv." - "Prepmt Amt Deducted"),Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",100);
IF "Prepmt Amt to Deduct" > ("Prepmt. Amt. Inv." - "Prepmt Amt Deducted") THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted"
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
// End of the lines. 

END ELSE
"Prepmt Amt to Deduct" := 0
...

  15. Pirkimo eilutės lentelėje (39) sukurkite naują funkciją PrepmtAmtToDeduct taip:

    PROCEDURE PrepmtAmtToDeduct@1470002(PricesIncludingVAT@1470000 : Boolean;PrepaymentPct@1470001 : Decimal) : Decimal;
VAR
VATPct@1470002 : Decimal;
BEGIN
IF PricesIncludingVAT THEN
VATPct := "VAT %"
ELSE
VATPct := 0;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Direct Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / (1 + (VATPct / 100)),Currency."Amount Rounding Precision") *
(1 + (VATPct / 100)),Currency."Amount Rounding Precision"));
END;

Būtinosios sąlygos

Norėdami taikyti šią karštąją pataisą, turite įdiegti Rytų Europos "„Microsoft“ Dynamics NAV 2009 R2" versiją.

Pašalinimo informacija

Šios karštosios pataisos pašalinti negalite.

Būsena

„„Microsoft““ patvirtino, kad tai yra „„Microsoft““ produktų, išvardytų dalyje „Taikoma“, problema.

Pastaba: tai "SPARČIOJO PUBLIKAVIMO" straipsnis, sukurtas tiesiogiai iš "„Microsoft“" palaikymo organizacijos. Čia pateikta informacija pateikiama tokia, kokia yra, reaguojant į kylančias problemas. Dėl greito jos pateikimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrėta bet kuriuo metu be išankstinio įspėjimo. Dėl kitų aplinkybių žr. Naudojimo sąlygas .