Nuolaida prekių išlaidas, prie pardavimo siuntos nebus skirstomos pagal pasirinktą pasirinkti atitinkamą reikšmę įrašų Microsoft Dynamics NAV 2009. Atlikite veiksmus, kodo pasikeitimus skyriuje išspręsti šią problemą. Ši problema iškyla faile šiems produktams:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 1 pakeitimų paketas (SP1)
Sprendimas
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ą.
Diegimo informacija
"Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.
Pastaba. Prieš diegdami šias karštąsias pataisas, patikrinkite, kad visi Microsoft Dynamics NAV kliento vartotojai išsiregistravę sistema. Tai apima ir Microsoft Dynamics NAV programų serverio (NAS) paslaugas. Jums turėtų būti tik kliento vartotojo, kuris yra prisijungęs, kai atliekate šias karštąsias pataisas.
Norint pritaikyti šią karštąją pataisą, turite programų kūrėjo licencijos.
Rekomenduojame, kad vartotojo abonemento Windows registravimosi lange arba duomenų bazės prisijungimų langas priskiriamas "SUPER" vaidmenį ID. Jei vartotojo abonementas negali būti priskirta "SUPER" ID., turi patikrinti, kad vartotojo abonementas turi šias teises:
-
Keisti teisės objektas, kuris bus pakeisti.
-
Teisės vykdyti sistemos objekto ID 5210 objekto ir sistemos objekto ID 9015
objekto.
Pastaba. Jūs neturite turėti teisių į duomenų saugyklų, nebent jūs turite atlikti duomenų atkūrimo.
Pastaba.
Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:
-
Pakeisti pardavimo skelbimas Kodinys (80) ypatybės kodą taip:
Esamas kodas 1...PostJobContractLine(JobTaskSalesLine,TempJnlLineDim2);
END;
SalesLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Delete the following line.
ItemJnlRollRndg := FALSE;
// End of the deleted line.
ClearItemChargeAssgntFilter;
TempItemChargeAssgntSales.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntSales.SETRANGE("Document Line No.",SalesLine."Line No.");
IF TempItemChargeAssgntSales.FINDSET THEN
...Atsarginis kodas 1
...PostJobContractLine(JobTaskSalesLine,TempJnlLineDim2);
END;
SalesLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Add the following line.
ItemJnlRollRndg := TRUE;
// End of the added line.
ClearItemChargeAssgntFilter;
TempItemChargeAssgntSales.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntSales.SETRANGE("Document Line No.",SalesLine."Line No.");
IF TempItemChargeAssgntSales.FINDSET THEN
...Esamas kodas 2
...GenJnlLineDocNo := TempItemChargeAssgntSales."Applies-to Doc. No.";
CASE TempItemChargeAssgntSales."Applies-to Doc. Type" OF
TempItemChargeAssgntSales."Applies-to Doc. Type"::Shipment:
BEGIN
// Delete the following line.
PostItemChargePerShpt(SalesLine);
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Atsarginis kodas 2
...GenJnlLineDocNo := TempItemChargeAssgntSales."Applies-to Doc. No.";
CASE TempItemChargeAssgntSales."Applies-to Doc. Type" OF
TempItemChargeAssgntSales."Applies-to Doc. Type"::Shipment:
BEGIN
// Add the following lines.
PostItemChargePerShpt(SalesLine,SalesLine."Inv. Discount Amount",
SalesLine.Quantity,SalesLine."Line Discount Amount",SalesLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Esamas kodas 3
...TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Delete the following line.
PostItemChargePerRetRcpt(SalesLine);
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::Order,
TempItemChargeAssgntSales."Applies-to Doc. Type"::Invoice:
...Pakeitimo kodas 3
...TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Add the following lines.
PostItemChargePerRetRcpt(SalesLine,SalesLine."Inv. Discount Amount",
SalesLine.Quantity,SalesLine."Line Discount Amount",SalesLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntSales.MARK(TRUE);
END;
TempItemChargeAssgntSales."Applies-to Doc. Type"::Order,
TempItemChargeAssgntSales."Applies-to Doc. Type"::Invoice:
... -
Pakeisti PostItemChargePerShpt funkcija – pardavimo-Post Kodinys (80) kodą taip:
Esamas kodas 1...END;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerShpt@5807(SalesLine@1000 : Record 37);
VAR
SalesShptLine@1003 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Atsarginis kodas 1
...END;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerShpt@5807(SalesLine@1000 : Record 37;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
VAR
SalesShptLine@1003 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Esamas kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
AmountToAssign,QtyToAssign);
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Atsarginis kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
AmountToAssign,QtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Esamas kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
NonDistrAmountToAssign,NonDistrQtyToAssign);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
...Pakeitimo kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
NonDistrAmountToAssign,NonDistrQtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
...Esamas kodas 4
...END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Delete the following lines.
TempItemChargeAssgntSales."Qty. to Assign");
END;
LOCAL PROCEDURE PostItemChargePerRetRcpt@5810(SalesLine@1000 : Record 37);
// End of the deleted lines.
VAR
ReturnRcptLine@1002 : Record 6661;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Pakeitimo kodekso 4
...END ELSE
PostItemCharge(SalesLine,
SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Add the following lines.
TempItemChargeAssgntSales."Qty. to Assign",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
END;
LOCAL PROCEDURE PostItemChargePerRetRcpt@5810(SalesLine@1000 : Record 37;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
// End of the added lines.
VAR
ReturnRcptLine@1002 : Record 6661;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
... -
Pakeisti PostItemChargePerRetRcpt funkcija – pardavimo-Post Kodinys (80) kodą taip:
Esamas kodas 1...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
AmountToAssign,QtyToAssign);
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Atsarginis kodas 1
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
AmountToAssign,QtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Esamas kodas 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Delete the following line.
NonDistrAmountToAssign,NonDistrQtyToAssign);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
...Atsarginis kodas 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(SalesLine,
TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
// Add the following lines.
NonDistrAmountToAssign,NonDistrQtyToAssign,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
...Esamas kodas 3
...END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Delete the following line.
TempItemChargeAssgntSales."Qty. to Assign")
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
...Pakeitimo kodas 3
...END ELSE
PostItemCharge(SalesLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntSales."Amount to Assign",
// Add the following lines.
TempItemChargeAssgntSales."Qty. to Assign",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
// End of the added lines.
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
... -
Pakeisti PostItemCharge funkcija – pardavimo-Post Kodinys (80) kodą taip:
Esamas kodas 1...TempValueEntryRelation.DELETEALL;
END;
END;
// Delete the following line.
PROCEDURE PostItemCharge@42(SalesLine@1005 : Record 37;ItemEntryNo@1004 : Integer;QuantityBase@1003 : Decimal;AmountToAssign@1002 : Decimal;QtyToAssign@1001 : Decimal);
VAR
DummyTrackingSpecification@1000 : Record 336;
BEGIN
WITH TempItemChargeAssgntSales DO BEGIN
...Atsarginis kodas 1
...TempValueEntryRelation.DELETEALL;
END;
END;
// Add the following line.
PROCEDURE PostItemCharge@42(SalesLine@1005 : Record 37;ItemEntryNo@1004 : Integer;QuantityBase@1003 : Decimal;AmountToAssign@1002 : Decimal;QtyToAssign@1001 : Decimal;VAR TotalInvDiscAmtRemaining@1006 : Decimal;VAR TotalQtyRemaining@1007 : Decimal;VAR TotalLineDiscAmtRemaining@1008 : Decimal;VAR TotalLineAmtRemaining@1009 : Decimal);
VAR
DummyTrackingSpecification@1000 : Record 336;
BEGIN
WITH TempItemChargeAssgntSales DO BEGIN
...Esamas kodas 2
...SalesLine.Amount :=
CurrExchRate.ExchangeAmtFCYToLCY(
UseDate,SalesHeader."Currency Code",TotalChargeAmt,SalesHeader."Currency Factor");
SalesLine."Inv. Discount Amount" := ROUND(
// Delete the following lines.
SalesLine."Inv. Discount Amount" / SalesLine.Quantity * QtyToAssign,
GLSetup."Amount Rounding Precision");
// End of the deleted lines.
SalesLine.Amount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision") - TotalChargeAmtLCY;
IF SalesHeader."Currency Code" <> '' THEN
TotalChargeAmtLCY := TotalChargeAmtLCY + SalesLine.Amount;
SalesLine."Unit Cost (LCY)" := ROUND(
...Atsarginis kodas 2
...SalesLine.Amount :=
CurrExchRate.ExchangeAmtFCYToLCY(
UseDate,SalesHeader."Currency Code",TotalChargeAmt,SalesHeader."Currency Factor");
SalesLine."Inv. Discount Amount" := ROUND(
// Add the following lines.
TotalInvDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
SalesLine."Line Discount Amount" := ROUND(
TotalLineDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
SalesLine."Line Amount" := ROUND(
TotalLineAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
TotalInvDiscAmtRemaining := TotalInvDiscAmtRemaining - SalesLine."Inv. Discount Amount";
TotalLineDiscAmtRemaining := TotalLineDiscAmtRemaining - SalesLine."Line Discount Amount";
TotalLineAmtRemaining := TotalLineAmtRemaining - SalesLine."Line Amount";
TotalQtyRemaining := TotalQtyRemaining - QtyToAssign;
// End of the added lines.
SalesLine.Amount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision") - TotalChargeAmtLCY;
IF SalesHeader."Currency Code" <> '' THEN
TotalChargeAmtLCY := TotalChargeAmtLCY + SalesLine.Amount;
SalesLine."Unit Cost (LCY)" := ROUND(
... -
Pakeisti kodą thePurch.-po Kodinys (90) taip:
Esamas kodas 1...3:
ERROR(Text015);
PurchLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Delete the following line.
ItemJnlRollRndg := FALSE;
ClearItemChargeAssgntFilter;
TempItemChargeAssgntPurch.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntPurch.SETRANGE("Document Line No.",PurchLine."Line No.");
IF TempItemChargeAssgntPurch.FINDSET THEN
...Atsarginis kodas 1
...3:
ERROR(Text015);
PurchLine.Type::"Charge (Item)":
IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
// Add the following line.
ItemJnlRollRndg := TRUE;
ClearItemChargeAssgntFilter;
TempItemChargeAssgntPurch.SETCURRENTKEY("Applies-to Doc. Type");
TempItemChargeAssgntPurch.SETRANGE("Document Line No.",PurchLine."Line No.");
IF TempItemChargeAssgntPurch.FINDSET THEN
...Esamas kodas 2
...GenJnlLineDocNo := TempItemChargeAssgntPurch."Applies-to Doc. No.";
CASE TempItemChargeAssgntPurch."Applies-to Doc. Type" OF
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Receipt:
BEGIN
// Delete the following line.
PostItemChargePerRcpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
...Atsarginis kodas 2
...GenJnlLineDocNo := TempItemChargeAssgntPurch."Applies-to Doc. No.";
CASE TempItemChargeAssgntPurch."Applies-to Doc. Type" OF
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Receipt:
BEGIN
// Add the following lines.
PostItemChargePerRcpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
...Esamas kodas 3
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
// Delete the following line.
PostItemChargePerTransfer(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
...Pakeitimo kodas 3
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
BEGIN
// Add the following lines.
PostItemChargePerTransfer(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
...Esamas kodas 4
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
// Delete the following line.
PostItemChargePerRetShpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
...Pakeitimo kodekso 4
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
BEGIN
// Add the following lines.
PostItemChargePerRetShpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
...Esamas kodas 5
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
// Delete the following line.
PostItemChargePerSalesShpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Pakeitimo kodas 5
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
BEGIN
// Add the following lines.
PostItemChargePerSalesShpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
...Esamas kodas 6
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Delete the following line.
PostItemChargePerRetRcpt(PurchLine);
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Order,
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Invoice:
...Pakeitimo kodas 6
...TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
BEGIN
// Add the following lines.
PostItemChargePerRetRcpt(PurchLine,PurchLine."Inv. Discount Amount",
PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
// End of the added lines.
TempItemChargeAssgntPurch.MARK(TRUE);
END;
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Order,
TempItemChargeAssgntPurch."Applies-to Doc. Type"::Invoice:
... -
Pakeisti PostItemChargePerRcpt funkcija thePurch.-po Kodinys (90) taip:
Esamas kodas 1...END;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerRcpt@5807(PurchLine@1000 : Record 39);
VAR
PurchRcptLine@1002 : Record 121;
TempItemLedgEntry@1003 : TEMPORARY Record 32;
ItemTrackingMgt@1005 : Codeunit 6500;
...Atsarginis kodas 1
...END;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerRcpt@5807(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
VAR
PurchRcptLine@1002 : Record 121;
TempItemLedgEntry@1003 : TEMPORARY Record 32;
ItemTrackingMgt@1005 : Codeunit 6500;
...Esamas kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,PurchRcptLine."Indirect Cost %");
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Atsarginis kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,PurchRcptLine."Indirect Cost %",
TotalInvDiscAmtRemaining,TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Esamas kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,PurchRcptLine."Indirect Cost %");
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Pakeitimo kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,PurchRcptLine."Indirect Cost %",
TotalInvDiscAmtRemaining,TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Esamas kodas 4
...PostItemCharge(PurchLine,
PurchRcptLine."Item Rcpt. Entry No.",PurchRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Delete the following lines.
PurchRcptLine."Indirect Cost %");
END;
LOCAL PROCEDURE PostItemChargePerRetShpt@5811(PurchLine@1000 : Record 39);
// End of the deleted lines.
VAR
ReturnShptLine@1002 : Record 6651;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Pakeitimo kodekso 4
...PostItemCharge(PurchLine,
PurchRcptLine."Item Rcpt. Entry No.",PurchRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Add the following lines.
PurchRcptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
END;
LOCAL PROCEDURE PostItemChargePerRetShpt@5811(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
// End of the added lines.
VAR
ReturnShptLine@1002 : Record 6651;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
... -
Pakeisti PostItemChargePerRetShpt funkcija thePurch.-po Kodinys (90) taip:
Esamas kodas 1...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,ReturnShptLine."Indirect Cost %");
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Atsarginis kodas 1
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Esamas kodas 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,ReturnShptLine."Indirect Cost %");
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Atsarginis kodas 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Esamas kodas 3
...PostItemCharge(PurchLine,
ReturnShptLine."Item Shpt. Entry No.",-ReturnShptLine."Quantity (Base)",
ABS(TempItemChargeAssgntPurch."Amount to Assign") * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Delete the following lines.
ReturnShptLine."Indirect Cost %");
END;
LOCAL PROCEDURE PostItemChargePerTransfer@23(PurchLine@1000 : Record 39);
// End of the deleted lines.
VAR
TransRcptLine@1002 : Record 5747;
ItemApplnEntry@1003 : Record 339;
DummyTrackingSpecification@1001 : Record 336;
...Pakeitimo kodas 3
...PostItemCharge(PurchLine,
ReturnShptLine."Item Shpt. Entry No.",-ReturnShptLine."Quantity (Base)",
ABS(TempItemChargeAssgntPurch."Amount to Assign") * Sign,
TempItemChargeAssgntPurch."Qty. to Assign",
// Add the following lines.
ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
END;
LOCAL PROCEDURE PostItemChargePerTransfer@23(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1016 : Decimal;VAR TotalQtyRemaining@1017 : Decimal;VAR TotalLineDiscAmtRemaining@1018 : Decimal;VAR TotalLineAmtRemaining@1019 : Decimal);
// End of the added lines.
VAR
TransRcptLine@1002 : Record 5747;
ItemApplnEntry@1003 : Record 339;
DummyTrackingSpecification@1001 : Record 336;
... -
Pakeisti PostItemChargePerTransfer funkcija thePurch.-po Kodinys (90) taip
Esamas kodas...PurchLine."Bin Code" := '';
PurchLine."Line No." := "Document Line No.";
IF TransRcptLine."Item Rcpt. Entry No." = 0 THEN
// Delete the following line.
PostItemChargePerITTransfer(PurchLine,TransRcptLine)
ELSE BEGIN
TotalAmountToPostFCY := "Amount to Assign";
IF PurchHeader."Currency Code" <> '' THEN
TotalAmountToPostLCY :=
...Pastaba.
...PurchLine."Bin Code" := '';
PurchLine."Line No." := "Document Line No.";
IF TransRcptLine."Item Rcpt. Entry No." = 0 THEN
// Add the following lines.
PostItemChargePerITTransfer(PurchLine,TransRcptLine,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
// End of the added lines.
ELSE BEGIN
TotalAmountToPostFCY := "Amount to Assign";
IF PurchHeader."Currency Code" <> '' THEN
TotalAmountToPostLCY :=
... -
Pakeisti PostItemChargePerITTransfer funkcija thePurch.-po Kodinys (90) taip:
Esamas kodas 1...END;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerITTransfer@43(PurchLine@1000 : Record 39;TransRcptLine@1017 : Record 5747);
VAR
TempItemLedgEntry@1016 : TEMPORARY Record 32;
ItemTrackingMgt@1001 : Codeunit 6500;
Factor@1023 : Decimal;
...Atsarginis kodas 1
...END;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerITTransfer@43(PurchLine@1000 : Record 39;TransRcptLine@1017 : Record 5747;VAR TotalInvDiscAmtRemaining@1026 : Decimal;VAR TotalQtyRemaining@1024 : Decimal;VAR TotalLineDiscAmtRemaining@1025 : Decimal;VAR TotalLineAmtRemaining@1030 : Decimal);
VAR
TempItemLedgEntry@1016 : TEMPORARY Record 32;
ItemTrackingMgt@1001 : Codeunit 6500;
Factor@1023 : Decimal;
...Esamas kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign,QtyToAssign,0);
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Atsarginis kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign,QtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Esamas kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign,NonDistrQtyToAssign,0);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042);
END;
...Pakeitimo kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042);
END;
... -
Pakeisti PostItemChargePerSalesShpt funkcija thePurch.-po Kodinys (90) taip:
Esamas kodas 1...ERROR(Text042);
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemChargePerSalesShpt@41(PurchLine@1000 : Record 39);
VAR
SalesShptLine@1002 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Atsarginis kodas 1
...ERROR(Text042);
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemChargePerSalesShpt@41(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
VAR
SalesShptLine@1002 : Record 111;
TempItemLedgEntry@1010 : TEMPORARY Record 32;
ItemTrackingMgt@1009 : Codeunit 6500;
...Esamas kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,0);
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Atsarginis kodas 2
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Esamas kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Pakeitimo kodas 3
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Esamas kodas 4
...ELSE
PostItemCharge(PurchLine,
SalesShptLine."Item Shpt. Entry No.",-SalesShptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Delete the following lines.
TempItemChargeAssgntPurch."Qty. to Assign",0)
END;
PROCEDURE PostItemChargePerRetRcpt@37(PurchLine@1001 : Record 39);
// End of the deleted lines.
VAR
ReturnRcptLine@1000 : Record 6661;
TempItemLedgEntry@1011 : TEMPORARY Record 32;
ItemTrackingMgt@1010 : Codeunit 6500;
...Pakeitimo kodekso 4
...ELSE
PostItemCharge(PurchLine,
SalesShptLine."Item Shpt. Entry No.",-SalesShptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Add the following lines.
TempItemChargeAssgntPurch."Qty. to Assign",0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
END;
PROCEDURE PostItemChargePerRetRcpt@37(PurchLine@1001 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
// End of the added lines.
VAR
ReturnRcptLine@1000 : Record 6661;
TempItemLedgEntry@1011 : TEMPORARY Record 32;
ItemTrackingMgt@1010 : Codeunit 6500;
... -
Pakeisti PostItemChargePerRetRcpt funkcija thePurch.-po Kodinys (90) taip:
Esamas kodas 1...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
AmountToAssign * Sign,QtyToAssign,0);
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Atsarginis kodas 1
...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
IF Factor < 1 THEN BEGIN
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
AmountToAssign * Sign,QtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
...Esamas kodas 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Delete the following line.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0);
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Atsarginis kodas 2
...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
END ELSE // the last time
PostItemCharge(PurchLine,
TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
// Add the following lines.
NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
// End of the added lines.
UNTIL TempItemLedgEntry.NEXT = 0;
END ELSE
ERROR(Text042)
ELSE
...Esamas kodas 3
...ELSE
PostItemCharge(PurchLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Delete the following line.
TempItemChargeAssgntPurch."Qty. to Assign",0)
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
...Pakeitimo kodas 3
...ELSE
PostItemCharge(PurchLine,
ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
TempItemChargeAssgntPurch."Amount to Assign" * Sign,
// Add the following lines.
TempItemChargeAssgntPurch."Qty. to Assign",0,TotalInvDiscAmtRemaining,
TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
// End of the added lines.
END;
LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
VAR
... -
Pakeisti PostItemCharge funkcija thePurch.-po Kodinys (90) taip:
Esamas kodas 1...TempValueEntryRelation.DELETEALL;
END;
END;
// Delete the following line.
LOCAL PROCEDURE PostItemCharge@42(PurchLine@1000 : Record 39;ItemEntryNo@1004 : Integer;QuantityBase@1005 : Decimal;AmountToAssign@1006 : Decimal;QtyToAssign@1007 : Decimal;IndirectCostPct@1008 : Decimal);
VAR
DummyTrackingSpecification@1001 : Record 336;
BEGIN
WITH TempItemChargeAssgntPurch DO BEGIN
...Atsarginis kodas 1
...TempValueEntryRelation.DELETEALL;
END;
END;
// Add the following line.
LOCAL PROCEDURE PostItemCharge@42(PurchLine@1000 : Record 39;ItemEntryNo@1004 : Integer;QuantityBase@1005 : Decimal;AmountToAssign@1006 : Decimal;QtyToAssign@1007 : Decimal;IndirectCostPct@1008 : Decimal;VAR TotalInvDiscAmtRemaining@1009 : Decimal;VAR TotalQtyRemaining@1010 : Decimal;VAR TotalLineDiscAmtRemaining@1011 : Decimal;VAR TotalLineAmtRemaining@1012 : Decimal);
VAR
DummyTrackingSpecification@1001 : Record 336;
BEGIN
WITH TempItemChargeAssgntPurch DO BEGIN
...Esamas kodas 2
...ROUND(
PurchLine.Amount / QuantityBase,GLSetup."Unit-Amount Rounding Precision");
PurchLine."Inv. Discount Amount" := ROUND(
// Delete the following lines.
PurchLine."Inv. Discount Amount" / PurchLine.Quantity * QtyToAssign,
GLSetup."Amount Rounding Precision");
PurchLine."Line Discount Amount" := ROUND(
PurchLine."Line Discount Amount" / PurchLine.Quantity * QtyToAssign,
GLSetup."Amount Rounding Precision");
// End of the deleted lines.
PostItemJnlLine(
PurchLine,
0,0,
QuantityBase,QuantityBase,
...Atsarginis kodas 2
...ROUND(
PurchLine.Amount / QuantityBase,GLSetup."Unit-Amount Rounding Precision");
PurchLine."Inv. Discount Amount" := ROUND(
// Add the following lines.
TotalInvDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
PurchLine."Line Discount Amount" := ROUND(
TotalLineDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
PurchLine."Line Amount" := ROUND(
TotalLineAmtRemaining / TotalQtyRemaining * QtyToAssign,
GLSetup."Amount Rounding Precision");
TotalInvDiscAmtRemaining := TotalInvDiscAmtRemaining - PurchLine."Inv. Discount Amount";
TotalLineDiscAmtRemaining := TotalLineDiscAmtRemaining - PurchLine."Line Discount Amount";
TotalLineAmtRemaining := TotalLineAmtRemaining - PurchLine."Line Amount";
TotalQtyRemaining := TotalQtyRemaining - QtyToAssign;
// End of the added lines.
PostItemJnlLine(
PurchLine,
0,0,
QuantityBase,QuantityBase,
...
Būtinosios sąlygos
Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Pašalinimo informacija
Jūs negalite pašalinti šias karštąsias pataisas.
Būsena
„Microsoft“ patvirtino, kad tai yra „Microsoft“ produktų, išvardytų skyriuje „Taikoma“, problema.
Pastaba. Tai yra "GREITAI PUBLIKUOJAMAS" straipsnis, sukurtas tiesiogiai Microsoft palaikymo tarnybos. Čia pateikta informacija yra atsakas į kylančius klausimus. Dėl greito publikavimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrima bet kuriuo metu be įspėjimo. Naudojimoieškokite kitų priežasčių.
