Du kan inte bearbeta överskjutande förskottsbetalning som förväntat i östra Europeiska versionen av Microsoft Dynamics NAV 2009 R2


Den här artikeln gäller för Microsoft Dynamics NAV för region Östeuropa (EE).

Symptom


Du kan inte bearbeta överskjutande förskottsbetalning som förväntat i östra Europeiska versionen av Microsoft Dynamics NAV 2009 R2. När du bearbetar ett överskjutande förskott brev för en kund, kan du inte bokföra bidrag som förskottsbetalning. Därför kan återgå du inte pengar till kunden.

Lösning


Information om snabbkorrigeringen

En snabbkorrigering är nu tillgänglig från Microsoft. Den är endast avsedd att åtgärda det problem som beskrivs i denna artikel. Använd den bara på datorer där detta problem uppstår. Snabbkorrigeringen kan komma att testas igen. Om inte störs alltför mycket av detta problem rekommenderar vi att du väntar på Nästa service pack-versionen för Microsoft Dynamics NAV eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.

Obs! I särskilda fall, de avgifter som är normalt för support vara avgiftsfri om en supporttekniker för Microsoft Dynamics och relaterade produkter som bestämmer att en särskild uppdatering kan lösa ditt problem. De vanliga supportkostnaderna gäller för övriga supportfrågor och problem som inte berör den särskilda uppdateringen.


Installationsinformation

Microsoft tillhandahåller programmeringsexempel endast utan garanti varken uttryckliga eller underförstådda. Detta inkluderar men är inte begränsat till, underförstådda garantier om säljbarhet eller lämplighet för ett särskilt ändamål. Den här artikeln förutsätter att du är bekant med det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till med att förklara funktionen hos en viss procedur, men kan inte ändra dessa exempel för att ge ytterligare funktioner eller skapa procedurer som motsvarar dina speciella behov.

Obs! Innan du installerar den här snabbkorrigeringen måste du kontrollera att alla användare av Microsoft Navision-klient har loggat ut. Detta inkluderar Microsoft Navision Application Services (NAS) klientanvändare. Du ska endast klientanvändare som är inloggad när du implementerar den här snabbkorrigeringen.

Om du vill genomföra den här snabbkorrigeringen måste du ha en utvecklarlicens.

Vi rekommenderar att tilldelas användarkontot i fönstret Windows-inloggningar eller i fönstret databasinloggningar "SUPER" roll-ID. Om användarkontot inte kan tilldelas "SUPER" roll-ID måste du kontrollera att användarkontot har följande behörigheter:
  • Ändra behörighet för objektet ändras.
  • Körbehörighet för systemet objektet ID 5210 objektet och objektet System objektet ID 9015 .


Obs! Du har inte behörighet för datalager inte data reparation.

Kod ändras

Obs! Alltid åtgärdas testa koden i en kontrollerad miljö innan du installerar korrigeringar för produktionsdatorer.
Lös problemet så här:
  1. Ändra koden i den gäller-till No. - OnLookup utlösa i tabellen Gen. Journal Line (81) enligt följande:
    Befintlig kod 1
    ...IF CustLedgEntry.FIND('-') THEN;
    CustLedgEntry.SETRANGE(Positive);
    END;
    ApplyCustEntries.SetGenJnlLine(Rec,GenJnlLine.FIELDNO("Applies-to Doc. No."));
    ApplyCustEntries.SETTABLEVIEW(CustLedgEntry);
    ApplyCustEntries.SETRECORD(CustLedgEntry);
    ...
    Ersättningskod 1
    ...IF CustLedgEntry.FIND('-') THEN;
    CustLedgEntry.SETRANGE(Positive);
    END;

    // Add the following lines.
    IF "Prepayment Type" = "Prepayment Type"::Advance THEN
    CustLedgEntry.SETRANGE("Prepayment Type","Prepayment Type"::Advance)
    ELSE
    CustLedgEntry.SETFILTER("Prepayment Type",'<>%1',GenJnlLine."Prepayment Type"::Advance);
    //End of the lines.

    ApplyCustEntries.SetGenJnlLine(Rec,GenJnlLine.FIELDNO("Applies-to Doc. No."));
    ApplyCustEntries.SETTABLEVIEW(CustLedgEntry);
    ApplyCustEntries.SETRECORD(CustLedgEntry);
    ...
    Befintlig kod 2
    ...IF VendLedgEntry.FIND('-') THEN;
    VendLedgEntry.SETRANGE(Positive);
    END;
    ApplyVendEntries.SetGenJnlLine(Rec,GenJnlLine.FIELDNO("Applies-to Doc. No."));
    ApplyVendEntries.SETTABLEVIEW(VendLedgEntry);
    ApplyVendEntries.SETRECORD(VendLedgEntry);
    ...
    Ersättningskod 2
    ...IF VendLedgEntry.FIND('-') THEN;
    VendLedgEntry.SETRANGE(Positive);
    END;

    // Add the following lines.
    IF "Prepayment Type" = "Prepayment Type"::Advance THEN
    VendLedgEntry.SETRANGE("Prepayment Type","Prepayment Type"::Advance)
    ELSE
    VendLedgEntry.SETFILTER("Prepayment Type",'<>%1',GenJnlLine."Prepayment Type"::Advance);
    //End of the lines.

    ApplyVendEntries.SetGenJnlLine(Rec,GenJnlLine.FIELDNO("Applies-to Doc. No."));
    ApplyVendEntries.SETTABLEVIEW(VendLedgEntry);
    ApplyVendEntries.SETRECORD(VendLedgEntry);
    ...
  2. Ändra koden i funktionen UpdatePrepmtType i tabellen Gen. Journal Line (81) enligt följande:
    Befintlig kod
    ...GLSetup.GET;
    GLSetup.TESTFIELD("Prepayment Type");
    "Prepayment Type" := GLSetup."Prepayment Type";
    END ELSE
    "Prepayment Type" := "Prepayment Type"::" ";
    ...
    Ersättningskod
    ...GLSetup.GET;
    GLSetup.TESTFIELD("Prepayment Type");
    "Prepayment Type" := GLSetup."Prepayment Type";

    // Add the following lines.
    IF NOT ("Document Type" IN ["Document Type"::Refund,"Document Type"::Payment]) THEN
    FIELDERROR(Prepayment);
    //End of the lines.

    END ELSE
    "Prepayment Type" := "Prepayment Type"::" ";
    ...
  3. Ändra definitionen av fältet EU transaktionstyp i tabellen förskott länk (26590) enligt följande:
    Befintlig definition
    ...
    OptionString=ursprungliga belopp, länk till brevet
    ...
    Definition av ersättning
    ...
    OptionString=ursprungliga belopp, länk till brev, ansökan
    ...
  4. Ta bort SourceTableView definition i formuläret Koppla kundtransaktioner (232).
  5. Ändra koden i funktionen SetApplyingCustLedgEntry i formuläret Koppla kundtransaktioner (232) enligt följande:
    Befintlig kod
    ... CalcApplnAmount;
    END;
    END;
    ...
    Ersättningskod
    ...CalcApplnAmount;
    END;
    END;

    // Add the following line.
    SetAdvanceFilter;
    ...
  6. Ändra koden i funktionen FindApplyingEntry i formuläret Koppla kundtransaktioner (232) enligt följande:
    Befintlig kod
    ...ApplyingAmount := CustLedgEntry."Remaining Amount";
    ApplnDate := CustLedgEntry."Posting Date";
    ApplnCurrencyCode := CustLedgEntry."Currency Code";
    END;
    CalcApplnAmount;
    ...
    Ersättningskod
    ...ApplyingAmount := CustLedgEntry."Remaining Amount";
    ApplnDate := CustLedgEntry."Posting Date";
    ApplnCurrencyCode := CustLedgEntry."Currency Code";

    // Add the following line.
    SetAdvanceFilter;

    END;
    CalcApplnAmount;
    ...
  7. Skapa en ny funktion i formuläret Koppla kundtransaktioner (232) enligt följande:
    LOCAL PROCEDURE SetAdvanceFilter@1470011();BEGIN
    IF ApplyingCustLedgEntry."Prepayment Type" = ApplyingCustLedgEntry."Prepayment Type"::Advance THEN
    SETRANGE("Prepayment Type","Prepayment Type"::Advance)
    ELSE
    SETFILTER("Prepayment Type",'<>%1',"Prepayment Type"::Advance);
    END;
  8. Ta bort SourceTableView definition i formuläret Koppla leverantörstrans (233).
  9. Ändra koden i funktionen SetApplyingVendLedgEntry i formuläret Koppla leverantörstrans (233) enligt följande:
    Befintlig kod
    ... CalcApplnAmount;
    END;
    END;
    ...
    Ersättningskod
    ...CalcApplnAmount;
    END;
    END;

    // Add the following line.
    SetAdvanceFilter;
    ...
  10. Ändra koden i funktionen FindApplyingEntry i formuläret Koppla leverantörstrans (233) enligt följande:
    Befintlig kod
    ...ApplyingAmount := VendLedgEntry."Remaining Amount";
    ApplnDate := VendLedgEntry."Posting Date";
    ApplnCurrencyCode := VendLedgEntry."Currency Code";
    END;
    CalcApplnAmount;
    ...
    Ersättningskod
    ...ApplyingAmount := VendLedgEntry."Remaining Amount";
    ApplnDate := VendLedgEntry."Posting Date";
    ApplnCurrencyCode := VendLedgEntry."Currency Code";

    // Add the following line.
    SetAdvanceFilter;
    END;
    CalcApplnAmount;
    ...
  11. Skapa en ny funktion i formuläret Koppla leverantörstrans (233) enligt följande:
    LOCAL PROCEDURE SetAdvanceFilter@1470011();BEGIN
    IF ApplyingVendLedgEntry."Prepayment Type" = ApplyingVendLedgEntry."Prepayment Type"::Advance THEN
    SETRANGE("Prepayment Type","Prepayment Type"::Advance)
    ELSE
    SETFILTER("Prepayment Type",'<>%1',"Prepayment Type"::Advance);
    END;
  12. Ta bort följande globala variabeln i den Redovisningsjnl-Bokför rad kodmodul (12):
    • Namn: Text26500
    • TextConst: ' ENU = försäljning %1 %2 kan inte användas manuellt.'
  13. Ändra koden i funktionen ApplyCustLedgEntry i den Redovisningsjnl-Bokför rad kodmodul (12) enligt följande:
    Befintlig kod 1
    ...THEN
    EXIT;

    // Delete the following lines.
    IF NOT GenJnlLine."System-Created Entry" AND (GenJnlLine."Applies-to ID" <> '') AND
    (NewCVLedgEntryBuf."Prepayment Type" = NewCVLedgEntryBuf."Prepayment Type"::Advance)
    THEN
    ERROR(Text26500,NewCVLedgEntryBuf."Document Type",NewCVLedgEntryBuf."Document No.");
    // End of the lines.

    PmtTolAmtToBeApplied := 0;
    NewRemainingAmtBeforeAppln := NewCVLedgEntryBuf."Remaining Amount";
    NewCVLedgEntryBuf2 := NewCVLedgEntryBuf;
    ...
    Ersättningskod 1
    ...THEN
    EXIT;

    PmtTolAmtToBeApplied := 0;
    NewRemainingAmtBeforeAppln := NewCVLedgEntryBuf."Remaining Amount";
    NewCVLedgEntryBuf2 := NewCVLedgEntryBuf;
    ...
    Befintlig kod 2
    ...OldCustLedgEntry.FINDFIRST;
    OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF NOT GenJnlLine."System-Created Entry" THEN BEGIN

    // Delete the following lines.
    IF NewCVLedgEntryBuf."Prepayment Type" = NewCVLedgEntryBuf."Prepayment Type"::Advance THEN
    ERROR(Text26500,NewCVLedgEntryBuf."Document Type",NewCVLedgEntryBuf."Document No.");
    IF OldCustLedgEntry."Prepayment Type" = OldCustLedgEntry."Prepayment Type"::Advance THEN
    ERROR(Text26500,OldCustLedgEntry."Document Type",OldCustLedgEntry."Document No.");
    // End of the lines.

    END;
    IF OldCustLedgEntry."Posting Date" > ApplyingDate THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    ...
    Ersättningskod 2
    ...OldCustLedgEntry.FINDFIRST;
    OldCustLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF NOT GenJnlLine."System-Created Entry" THEN BEGIN

    // Add the following lines.
    IF GenJnlLine."Prepayment Type" = GenJnlLine."Prepayment Type"::Advance THEN
    OldCustLedgEntry.TESTFIELD("Prepayment Type",OldCustLedgEntry."Prepayment Type"::Advance);
    IF OldCustLedgEntry."Prepayment Type" = OldCustLedgEntry."Prepayment Type"::Advance THEN
    GenJnlLine.TESTFIELD("Prepayment Type",GenJnlLine."Prepayment Type"::Advance);
    //End of the lines.

    END;
    IF OldCustLedgEntry."Posting Date" > ApplyingDate THEN
    ApplyingDate := OldCustLedgEntry."Posting Date";
    ...
    Befintlig kod 3
    ...OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN
    REPEAT

    // Delete the following lines.
    IF (OldCustLedgEntry."Prepayment Type" <> OldCustLedgEntry."Prepayment Type"::Advance) OR
    (OldCustLedgEntry."Applies-to ID" <> '')
    THEN
    // End of the lines.

    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    ...
    Ersättningskod 3
    ...OldCustLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldCustLedgEntry.FINDSET(FALSE,FALSE) THEN
    REPEAT

    // Add the following lines.
    IF NOT GenJnlLine."System-Created Entry" THEN BEGIN
    IF GenJnlLine."Prepayment Type" = GenJnlLine."Prepayment Type"::Advance THEN
    OldCustLedgEntry.TESTFIELD("Prepayment Type",OldCustLedgEntry."Prepayment Type"::Advance);
    IF OldCustLedgEntry."Prepayment Type" = OldCustLedgEntry."Prepayment Type"::Advance THEN
    GenJnlLine.TESTFIELD("Prepayment Type",GenJnlLine."Prepayment Type"::Advance);
    END;
    //End of the lines.

    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldCustLedgEntry."Currency Code",
    ...
  14. Lägga till en ny lokal variabel i funktionen CalcApplication i den Redovisningsjnl-Bokför rad kodmodul (12), och sedan ange variabeln enligt följande:
    • Namn: OldDtldCVLedgEntryBuf
    • Datatyp: post
    • Undertyp: detaljerade KA i filter. Buffert för (383)
  15. Ändra koden i funktionen CalcApplication i den Redovisningsjnl-Bokför rad kodmodul (12) enligt följande:
    Befintlig kod 1
    ...OldCVLedgEntryBuf."Open For Advance Letter" := FALSE;
    END ELSE
    AllApplied := FALSE;

    InitNewCVLedgEntry(DtldCVLedgEntryBuf,GenJnlLine);
    InitOldCVLedgEntry(DtldCVLedgEntryBuf,NewCVLedgEntryBuf);
    ...
    Ersättningskod 1
    ...OldCVLedgEntryBuf."Open For Advance Letter" := FALSE;
    END ELSE
    AllApplied := FALSE;

    // Add the following line.
    OldDtldCVLedgEntryBuf := DtldCVLedgEntryBuf;

    InitNewCVLedgEntry(DtldCVLedgEntryBuf,GenJnlLine);
    InitOldCVLedgEntry(DtldCVLedgEntryBuf,NewCVLedgEntryBuf);
    ...
    Befintlig kod 2
    ...NewCVLedgEntryBuf.Prepayment AND (NewCVLedgEntryBuf."Prepayment Type" = NewCVLedgEntryBuf."Prepayment Type"::Advance);
    InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,NewCVLedgEntryBuf,FALSE);

    // Delete the following line.
    NewCVLedgEntryBuf.Open := NewCVLedgEntryBuf."Remaining Amount" <> 0;

    IF NOT NewCVLedgEntryBuf.Open AND NOT AllApplied THEN BEGIN
    NewCVLedgEntryBuf."Closed by Entry No." := OldCVLedgEntryBuf."Entry No.";
    NewCVLedgEntryBuf."Closed at Date" := GenJnlLine."Posting Date";
    ...
    Ersättningskod 2
    ...NewCVLedgEntryBuf.Prepayment AND (NewCVLedgEntryBuf."Prepayment Type" = NewCVLedgEntryBuf."Prepayment Type"::Advance);
    InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,NewCVLedgEntryBuf,FALSE);

    // Add the following lines.
    IF DtldCVLedgEntryBuf.Advance AND
    OldDtldCVLedgEntryBuf.Advance AND
    (NOT GenJnlLine."System-Created Entry" OR
    (GenJnlLine."System-Created Entry" AND
    (GenJnlLine."Applies-to Doc. No." = '')))
    THEN
    IF (NewCVLedgEntryBuf."Document Type" IN [DtldCVLedgEntryBuf."Document Type"::Refund,
    DtldCVLedgEntryBuf."Document Type"::Payment]) AND
    (OldCVLedgEntryBuf."Document Type" IN [DtldCVLedgEntryBuf."Document Type"::Refund,
    DtldCVLedgEntryBuf."Document Type"::Payment])
    THEN
    IF (DtldCVLedgEntryBuf."Document Type" = DtldCVLedgEntryBuf."Document Type"::Payment) THEN
    SalesPostAdvances.InsertTempApplnAdvanceLink(DtldCVLedgEntryBuf."Entry No.")
    ELSE
    SalesPostAdvances.InsertTempApplnAdvanceLink(OldDtldCVLedgEntryBuf."Entry No.");

    NewCVLedgEntryBuf.Open := NewCVLedgEntryBuf."Remaining Amount" <> 0;
    NewCVLedgEntryBuf."Open For Advance Letter" := NewCVLedgEntryBuf.Open;
    //End of the lines.

    IF NOT NewCVLedgEntryBuf.Open AND NOT AllApplied THEN BEGIN
    NewCVLedgEntryBuf."Closed by Entry No." := OldCVLedgEntryBuf."Entry No.";
    NewCVLedgEntryBuf."Closed at Date" := GenJnlLine."Posting Date";
    ...
    Befintlig kod 3
    ...NewCVLedgEntryBuf."Closed by Amount (LCY)" := AppliedAmountLCY;
    NewCVLedgEntryBuf."Closed by Currency Code" := OldCVLedgEntryBuf."Currency Code";
    NewCVLedgEntryBuf."Closed by Currency Amount" := OldAppliedAmount;

    // Delete the following line.
    NewCVLedgEntryBuf."Open For Advance Letter" := FALSE;
    END;
    ...
    Ersättningskod 3
    ...NewCVLedgEntryBuf."Closed by Amount (LCY)" := AppliedAmountLCY;
    NewCVLedgEntryBuf."Closed by Currency Code" := OldCVLedgEntryBuf."Currency Code";
    NewCVLedgEntryBuf."Closed by Currency Amount" := OldAppliedAmount;
    END;
    ...
  16. Ändra koden i funktionen PostDtldCustLedgEntries i den Redovisningsjnl-Bokför rad kodmodul (12) enligt följande:
    Befintlig kod
    ...InitGLEntry(GLAccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
    InsertGLEntry(TRUE);
    END;
    END;
    DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
    BEGIN
    ...
    Ersättningskod
    ...InitGLEntry(GLAccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
    InsertGLEntry(TRUE);
    END;

    // Add the following line.
    SalesPostAdvances.InsertApplnAdvanceLink(DtldCVLedgEntryBuf);

    END;
    DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
    BEGIN
    ...
  17. Ändra koden i funktionen ApplyVendLedgEntry i den Redovisningsjnl-Bokför rad kodmodul (12) enligt följande:
    Befintlig kod 1
    ...THEN
    EXIT;

    // Delete the following lines.
    IF NOT GenJnlLine."System-Created Entry" AND (GenJnlLine."Applies-to ID" <> '') AND
    (NewCVLedgEntryBuf."Prepayment Type" = NewCVLedgEntryBuf."Prepayment Type"::Advance)
    THEN
    ERROR(Text26500,NewCVLedgEntryBuf."Document Type",NewCVLedgEntryBuf."Document No.");
    // End of the lines.

    PmtTolAmtToBeApplied := 0;
    NewRemainingAmtBeforeAppln := NewCVLedgEntryBuf."Remaining Amount";
    NewCVLedgEntryBuf2 := NewCVLedgEntryBuf;
    ...
    Ersättningskod 1
    ...THEN
    EXIT;

    PmtTolAmtToBeApplied := 0;
    NewRemainingAmtBeforeAppln := NewCVLedgEntryBuf."Remaining Amount";
    NewCVLedgEntryBuf2 := NewCVLedgEntryBuf;
    ...
    Befintlig kod 2
    ...OldVendLedgEntry.FINDFIRST;
    OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF NOT GenJnlLine."System-Created Entry" THEN BEGIN

    // Delete the following lines.
    IF NewCVLedgEntryBuf."Prepayment Type" = NewCVLedgEntryBuf."Prepayment Type"::Advance THEN
    ERROR(Text26500,NewCVLedgEntryBuf."Document Type",NewCVLedgEntryBuf."Document No.");
    IF OldVendLedgEntry."Prepayment Type" = OldVendLedgEntry."Prepayment Type"::Advance THEN
    ERROR(Text26500,OldVendLedgEntry."Document Type",OldVendLedgEntry."Document No.");
    // End of the lines.

    END;
    IF OldVendLedgEntry."Posting Date" > ApplyingDate THEN
    ApplyingDate := OldVendLedgEntry."Posting Date";
    ...
    Ersättningskod 2
    ...OldVendLedgEntry.FINDFIRST;
    OldVendLedgEntry.TESTFIELD(Positive,NOT NewCVLedgEntryBuf.Positive);
    IF NOT GenJnlLine."System-Created Entry" THEN BEGIN

    // Add the following lines.
    IF GenJnlLine."Prepayment Type" = GenJnlLine."Prepayment Type"::Advance THEN
    OldVendLedgEntry.TESTFIELD("Prepayment Type",OldVendLedgEntry."Prepayment Type"::Advance);
    IF OldVendLedgEntry."Prepayment Type" = OldVendLedgEntry."Prepayment Type"::Advance THEN
    GenJnlLine.TESTFIELD("Prepayment Type",GenJnlLine."Prepayment Type"::Advance);
    // End of the lines.

    END;
    IF OldVendLedgEntry."Posting Date" > ApplyingDate THEN
    ApplyingDate := OldVendLedgEntry."Posting Date";
    ...
    Befintlig kod 3
    ...OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
    REPEAT

    // Delete the following lines.
    IF (OldVendLedgEntry."Prepayment Type" <> OldVendLedgEntry."Prepayment Type"::Advance) OR
    (OldVendLedgEntry."Applies-to ID" <> '')
    THEN
    // End of the lines.

    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldVendLedgEntry."Currency Code",
    ...
    Ersättningskod 3
    ...OldVendLedgEntry.SETRANGE("Currency Code",NewCVLedgEntryBuf."Currency Code");
    IF OldVendLedgEntry.FINDSET(FALSE,FALSE) THEN
    REPEAT

    // Add the following lines.
    IF NOT GenJnlLine."System-Created Entry" THEN BEGIN
    IF GenJnlLine."Prepayment Type" = GenJnlLine."Prepayment Type"::Advance THEN
    OldVendLedgEntry.TESTFIELD("Prepayment Type",OldVendLedgEntry."Prepayment Type"::Advance);
    IF OldVendLedgEntry."Prepayment Type" = OldVendLedgEntry."Prepayment Type"::Advance THEN
    GenJnlLine.TESTFIELD("Prepayment Type",GenJnlLine."Prepayment Type"::Advance);
    END;
    //End of the lines.

    IF GenJnlApply.CheckAgainstApplnCurrency(
    NewCVLedgEntryBuf."Currency Code",
    OldVendLedgEntry."Currency Code",
    ...
  18. Ändra koden i funktionen PostDtldVendLedgEntries i den Redovisningsjnl-Bokför rad kodmodul (12) enligt följande:
    Befintlig kod
    ...InitGLEntry(GLAccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
    InsertGLEntry(TRUE);
    END;
    END;
    DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
    BEGIN
    ...
    Ersättningskod
    ...InitGLEntry(GLAccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
    InsertGLEntry(TRUE);
    END;

    // Add the following line.
    SalesPostAdvances.InsertApplnAdvanceLink(DtldCVLedgEntryBuf);

    END;
    DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
    BEGIN
    ...
  19. Ändra koden i utlösaren OnRun i den Redovisningsjnl-använda kodmodul (225) enligt följande:
    Befintlig kod 1
    ...CustLedgEntry.SETCURRENTKEY("Customer No.",Open,Positive);
    CustLedgEntry.SETRANGE("Customer No.",AccNo);
    CustLedgEntry.SETRANGE(Open,TRUE);
    IF "Cash Order Type" <> "Cash Order Type"::" " THEN
    CustLedgEntry.SETRANGE("Currency Code","Currency Code");
    IF "Applies-to ID" = '' THEN
    ...
    Ersättningskod 1
    ...CustLedgEntry.SETCURRENTKEY("Customer No.",Open,Positive);
    CustLedgEntry.SETRANGE("Customer No.",AccNo);
    CustLedgEntry.SETRANGE(Open,TRUE);

    // Add the following lines.
    IF GenJnlLine."Prepayment Type" = GenJnlLine."Prepayment Type"::Advance THEN
    CustLedgEntry.SETRANGE("Prepayment Type",GenJnlLine."Prepayment Type"::Advance)
    ELSE
    CustLedgEntry.SETFILTER("Prepayment Type",'<>%1',GenJnlLine."Prepayment Type"::Advance);
    //End of the lines.

    IF "Cash Order Type" <> "Cash Order Type"::" " THEN
    CustLedgEntry.SETRANGE("Currency Code","Currency Code");
    IF "Applies-to ID" = '' THEN
    ...
    Befintlig kod 2
    ...VendLedgEntry.SETCURRENTKEY("Vendor No.",Open,Positive);
    VendLedgEntry.SETRANGE("Vendor No.",AccNo);
    VendLedgEntry.SETRANGE(Open,TRUE);
    IF "Cash Order Type" <> "Cash Order Type"::" " THEN
    VendLedgEntry.SETRANGE("Currency Code","Currency Code");
    IF "Applies-to ID" = '' THEN
    ...
    Ersättningskod 2
    ...VendLedgEntry.SETCURRENTKEY("Vendor No.",Open,Positive);
    VendLedgEntry.SETRANGE("Vendor No.",AccNo);
    VendLedgEntry.SETRANGE(Open,TRUE);

    // Add the following lines.
    IF GenJnlLine."Prepayment Type" = GenJnlLine."Prepayment Type"::Advance THEN
    VendLedgEntry.SETRANGE("Prepayment Type",GenJnlLine."Prepayment Type"::Advance)
    ELSE
    VendLedgEntry.SETFILTER("Prepayment Type",'<>%1',GenJnlLine."Prepayment Type"::Advance);
    //End of the lines.

    IF "Cash Order Type" <> "Cash Order Type"::" " THEN
    VendLedgEntry.SETRANGE("Currency Code","Currency Code");
    IF "Applies-to ID" = '' THEN
    ...
  20. Ändra koden i funktionen PostUnApplyCustomer i kodmodul för CustEntry gäller bokförda transaktioner (226) enligt följande:
    Befintlig kod
    ...DtldCustLedgEntry.LOCKTABLE;
    CustLedgEntry.LOCKTABLE;
    CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");
    CheckPostingDate(PostingDate,'',0);
    IF PostingDate < DtldCustLedgEntry2."Posting Date" THEN
    ERROR(Text003,
    ...
    Ersättningskod
    ...DtldCustLedgEntry.LOCKTABLE;
    CustLedgEntry.LOCKTABLE;
    CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");

    // Add the following line.
    CustLedgEntry.TESTFIELD(Prepayment,FALSE);

    CheckPostingDate(PostingDate,'',0);
    IF PostingDate < DtldCustLedgEntry2."Posting Date" THEN
    ERROR(Text003,
    ...
  21. Ändra koden i funktionen PostUnApplyVendor i kodmodul för VendEntry gäller bokförda transaktioner (227) enligt följande:
    Befintlig kod
    ...DtldVendLedgEntry.LOCKTABLE;
    VendLedgEntry.LOCKTABLE;
    VendLedgEntry.GET(DtldVendLedgEntry2."Vendor Ledger Entry No.");
    CheckPostingDate(PostingDate,'',0);
    IF PostingDate < DtldVendLedgEntry2."Posting Date" THEN
    ERROR(Text003,
    ...
    Ersättningskod
    ...DtldVendLedgEntry.LOCKTABLE;
    VendLedgEntry.LOCKTABLE;
    VendLedgEntry.GET(DtldVendLedgEntry2."Vendor Ledger Entry No.");

    // Add the following line.
    VendLedgEntry.TESTFIELD(Prepayment,FALSE);

    CheckPostingDate(PostingDate,'',0);
    IF PostingDate < DtldVendLedgEntry2."Posting Date" THEN
    ERROR(Text003,
    ...
  22. Ändra koden i funktionen kod i den Redovisningsjnl-bokför kodmodul (231) enligt följande:
    Befintlig kod
    ...EXIT;

    TempJnlBatchName := "Journal Batch Name";

    GenJnlPostBatch.RUN(GenJnlLine);
    ...
    Ersättningskod
    ...EXIT;

    TempJnlBatchName := "Journal Batch Name";

    // Add the following lines.
    IF Prepayment THEN
    IF NOT ("Document Type" IN ["Document Type"::Payment,"Document Type"::Refund]) THEN
    FIELDERROR("Document Type");
    //End of the lines.

    GenJnlPostBatch.RUN(GenJnlLine);
    ...
  23. Lägg till en ny global variabel i codeunit försäljningspost förskott (26585) och ange variabeln enligt följande:
    • Namn: TempAdvanceLink
    • Datatyp: temporär post
    • Undertyp: Advance länk (26590)
  24. Lägg till en ny lokal funktion i codeunit försäljningspost förskott (26585) enligt följande:
    PROCEDURE InsertTempApplnAdvanceLink@1470048(DtldEntryBufEntryNo@1470002 : Integer);BEGIN
    TempAdvanceLink.INIT;
    TempAdvanceLink."Entry No." := DtldEntryBufEntryNo;
    TempAdvanceLink.INSERT;
    END;
  25. Lägg till en ny lokal funktion i codeunit försäljningspost förskott (26585) enligt följande:
    PROCEDURE InsertApplnAdvanceLink@140049(DtldCVLedgEntryBuf@1102601000 : Record 383);VAR
    AdvanceLink@1470001 : Record 26590;
    BEGIN
    WITH AdvanceLink DO BEGIN
    IF TempAdvanceLink.GET(DtldCVLedgEntryBuf."Entry No.") THEN BEGIN
    IF FINDLAST THEN
    NextLinkEntryNo := AdvanceLink."Entry No." + 1
    ELSE
    NextLinkEntryNo := 1;
    INIT;
    "Entry No." := NextLinkEntryNo;
    "Entry Type" := "Entry Type"::Application;
    "Document No." := DtldCVLedgEntryBuf."Document No.";
    "CV Ledger Entry No." := DtldCVLedgEntryBuf."Cust. Ledger Entry No.";
    Amount := DtldCVLedgEntryBuf.Amount;
    "Amount (LCY)" := DtldCVLedgEntryBuf."Amount (LCY)";
    INSERT;
    TempAdvanceLink.DELETE;
    END;
    END;
    END;

Förutsättningar

Du måste ha den östra Europeiska versionen av Microsoft Dynamics NAV 2009 R2 installerat för att kunna installera den här snabbkorrigeringen.

Information om borttagning

Du kan inte ta bort den här snabbkorrigeringen.

Status


Microsoft har bekräftat att detta är ett problem i Microsoft-produkterna som nämns i avsnittet "Gäller".
Obs! Detta är en "SNABBPUBLICERING"-artikel skapad direkt från Microsoft support-organisationen. Informationen häri tillhandahålls i befintligt skick som svar på nya problem. Till följd av hastigheten för att göra det tillgängligt kan materialet innehålla typografiska fel och kan ändras när som helst utan föregående meddelande. Se Villkoren för användning för andra överväganden.