Reducere taxă articol nu sunt distribuite în conformitate cu alegere selectat în Microsoft Dynamics NAV 2009

Șablon: CPR - Navision cod Fiacx șablon

Număr eroare: 191044 (întreținere conținut)

Reducere taxă articol care sunt atribuite expedieri la vânzări nu sunt distribuite în conformitate cu alegere selectat pentru intrările de valori respective în Microsoft Dynamics NAV 2009. Urmați pașii din secțiunea modificări de cod pentru a rezolva această problemă. Această problemă se produce în următoarele produse:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Rezolvare

Informații despre remedierea rapidă

Un hotfix acceptat este acum disponibil de la Microsoft. Cu toate acestea, acesta este destinat numai corectării problemei descrise în acest articol. Aplicați-o numai pe sistemele care întâmpină această problemă anume. Această remediere rapidă poate să necesite testare suplimentară. De aceea, dacă nu sunteți grav afectat de această problemă, vă recomandăm să așteptați următorul pachet service pack Microsoft Dynamics NAV 2009 sau versiunea Microsoft Dynamics NAV următoare, care conține această remediere rapidă.

Notă În cazuri speciale, costurile implicate de obicei pentru asistență apeluri pot fi anulate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produse asociate stabilește că o anumită actualizare va rezolva problema. Se vor aplica costurile uzuale de asistenţă pentru întrebări suplimentare de asistenţă şi pentru probleme ce nu fac obiectul actualizării în cauză.

Dacă această remediere rapidă nu este publicată pentru descărcare publică (ceea ce înseamnă că un URL public pentru această remediere rapidă nu este furnizat în acest articol), distribuția necesită aprobarea manager, membru din echipa de implementare sau conducerii tehnice și se aplică următoarele informații:

  • Pentru a primi această remediere rapidă, clienții trebuie să se confrunte cu eroarea menționată în secțiunea "simptome".

  • Trebuie să urmăriți clienții să trimiteți și să le furnizați următorul pachet service pack când acesta va fi disponibil (dacă se lansează un pachet service pack).

Această remediere rapidă nu este planificată să fie inclusă într-o Microsoft Dynamics NAV Service Pack.

Informaţii despre instalare

Microsoft furnizează exemple de programare scop ilustrativ, fără nicio garanţie explicită sau implicită. Aceasta include, dar nu se limitează la, garanţiile implicite de vandabilitate sau potrivire pentru un anumit scop. Acest articol presupune că sunteţi familiarizat cu limbajul de programare care este prezentat şi cu instrumentele utilizate pentru a crea şi a depana proceduri. Specialiștii în asistență Microsoft pot ajuta la explicarea funcționalității unei anumite proceduri. Cu toate acestea, nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară construi proceduri pentru a răspunde cerințelor dvs. specifice.

Notă Înainte de a instala această remediere rapidă, verificați dacă toți utilizatorii de client Microsoft Dynamics NAV sunt log off sistemul. Aceasta include servicii Microsoft Dynamics NAV Application Server (NAS). Ar trebui să fie singurul client utilizatorului care este conectat când implementați această remediere rapidă.

Pentru a implementa această remediere rapidă, trebuie să aveți o licență de dezvoltare.

Vă recomandăm că contul de utilizator în fereastra Conectări Windows sau în fereastra Conectări bază de date se atribuie "SUPER" rolul ID-ul. În cazul în care contul de utilizator nu poate fi atribuit ID-ul "SUPER" rolul, trebuie să verificați că contul de utilizator are următoarele permisiuni:

  • Modify permisiunea pentru obiectul care se va schimba.

  • Permisiunea de executare pentru obiectul de sistem obiect ID 5210 și sistem obiect ID 9015

    obiect.

Notă Nu trebuie să aveți drepturi de la magazine de date decât dacă trebuie să efectuați o reparare de date.

Modificări de cod

Notă Întotdeauna test cod remediază într-un mediu controlat înainte de a aplica remedieri pentru computerele de producție.

Pentru a rezolva această problemă, urmați acești pași:

  1. Modificați codul din proprietățile în codeunit de vânzări-Post (80) după cum urmează:
    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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:
    ...

    Înlocuirea cod 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:
    ...
  2. Modificați codul din funcția PostItemChargePerShpt în codeunit de vânzări-Post (80) după cum urmează:
    Cod existent 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;
    ...

    Înlocuirea cod 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;
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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)",
    ...

    Înlocuirea cod 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)",
    ...

    Cod existent 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;
    ...

    Înlocuirea cod 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;
    ...
  3. Modificați codul din funcția PostItemChargePerRetRcpt în codeunit de vânzări-Post (80) după cum urmează:
    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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)",
    ...

    Înlocuirea cod 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)",
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...
  4. Modificați codul din funcția PostItemCharge în codeunit de vânzări-Post (80) după cum urmează:
    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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(
    ...

    Înlocuirea cod 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(
    ...
  5. Modificați codul din proprietățile din thePurch.-Post codeunit (90) după cum urmează:
    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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:
    ...

    Înlocuirea cod 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:
    ...
  6. Modificați codul din funcția PostItemChargePerRcpt din thePurch.-Post codeunit (90) după cum urmează:
    Cod existent 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;
    ...

    Înlocuirea cod 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;
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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;
    ...

    Înlocuirea cod 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;
    ...
  7. Modificați codul din funcția PostItemChargePerRetShpt din thePurch.-Post codeunit (90) după cum urmează:
    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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;
    ...

    Înlocuirea cod 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;
    ...
  8. Modificați codul din funcția PostItemChargePerTransfer din thePurch.-Post codeunit (90) după cum urmează
    Cod existent

    ...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 :=
    ...

    Cod de înlocuire

    ...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 :=
    ...
  9. Modificați codul din funcția PostItemChargePerITTransfer din thePurch.-Post codeunit (90) după cum urmează:
    Cod existent 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;
    ...

    Înlocuirea cod 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;
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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;
    ...

    Cod de înlocuire 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;
    ...
  10. Modificați codul din funcția PostItemChargePerSalesShpt din thePurch.-Post codeunit (90) după cum urmează:
    Cod existent 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;
    ...

    Cod de înlocuire 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;
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Cod de înlocuire 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
    ...

    Cod existent 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;
    ...

    Înlocuirea cod 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;
    ...
  11. Modificați codul din funcția PostItemChargePerRetRcpt din thePurch.-Post codeunit (90) după cum urmează:
    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...

    Cod existent 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
    ...

    Înlocuirea cod 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
    ...
  12. Modificați codul din funcția PostItemCharge din thePurch.-Post codeunit (90) după cum urmează:
    Cod existent 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
    ...

    Cod de înlocuire 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
    ...

    Cod existent 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,
    ...

    Înlocuirea cod 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,
    ...


Cerințe preliminare

Trebuie să aveți unul dintre următoarele produse instalate pentru a aplica această remediere rapidă:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 SP1

Eliminare informaţii

Nu se poate elimina această remediere rapidă.

Stare

Microsoft a confirmat că aceasta este o problemă cu produsele Microsoft enumerate în secţiunea „Se aplică la".

Referințe

VSFT DynamicsNAVSE: 339745

Notă Acesta este un articol "rapid publicat" creat direct în cadrul organizației de asistență Microsoft. Informațiile conținute în acest document sunt furnizate ca răspuns la problemele care apar. Ca rezultat al vitezei în a-l face disponibil, materialele pot include erori tipografice și pot fi revizuite în orice moment, fără notificare. Consultați Termenii de utilizarepentru alte considerații.

Author: hholmin 
Writer: v-six
Tech Reviewer: hholmin 
Editor:

Aveți nevoie de ajutor suplimentar?

Extindeți-vă competențele
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă la Microsoft Insider

V-a fost de ajutor această informație?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×