Fejlmeddelelsen "Forudbetaling skal være Nej i debitorpostnr.='[XXXX]'", når du annullerer anvendelsen af en anvendt betaling eller refusion, der blev bogført som en forudbetaling i den østeuropæiske version af Microsoft Dynamics NAV 2009 R2

Gælder for
Microsoft Dynamics NAV 2009 R2

Denne artikel gælder for Microsoft Dynamics NAV for den østeuropæiske landestandard (ee).

Symptomer

Antag, at du opretter en kassekladde til en betaling eller en refusion i den østeuropæiske version af Microsoft Dynamics NAV 2009 R2. Du bogfører kassekladden som en forudbetaling. Når du i denne situation kører funktionen Annuller udligning af poster på den anvendte betaling eller refusion, modtager du følgende fejlmeddelelse:

Bemærk

Forudbetaling skal være Nej i Debitorpostnr.='XXXX'.

Løsning

Oplysninger om hotfix

Et understøttet hotfix er nu tilgængeligt fra Microsoft. Det er dog kun beregnet til at løse det problem, der er beskrevet i denne artikel. Anvend den kun på systemer, der oplever dette specifikke problem. Dette hotfix kan blive testet yderligere. Hvis du ikke er alvorligt berørt af dette problem, anbefaler vi derfor, at du venter på den næste Service Pack til Microsoft Dynamics NAV 2009 eller den næste Microsoft Dynamics NAV-version, der indeholder dette hotfix.

Bemærk! I særlige tilfælde kan gebyrer, der normalt påløber for supportopkald, blive annulleret, hvis en teknisk supportmedarbejder til Microsoft Dynamics og relaterede produkter afgør, at en bestemt opdatering løser dit problem. De sædvanlige supportomkostninger gælder for yderligere supportspørgsmål og -problemer, der ikke er kvalificeret til den pågældende opdatering.

            
          

Installationsoplysninger

Microsoft leverer kun programmeringseksempler til illustration uden garanti, hverken udtrykt eller underforstået. Dette omfatter, men er ikke begrænset til, underforståede garantier for salgbarhed eller egnethed til et bestemt formål. I denne artikel antages det, at du kender det programmeringssprog, der demonstreres, og med de værktøjer, der bruges til at oprette og foretage fejlfinding af procedurer. Microsofts supportteknikere kan hjælpe med at forklare funktionaliteten af en bestemt procedure, men de vil ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer, der opfylder dine specifikke krav.

Bemærk! Før du installerer dette hotfix, skal du kontrollere, at alle microsoft Navision-klientbrugere er logget af systemet. Dette omfatter klientbrugere af Microsoft Navision Application Services (NAS). Du bør være den eneste klientbruger, der er logget på, når du implementerer dette hotfix.

Hvis du vil implementere dette hotfix, skal du have en udviklerlicens.

Vi anbefaler, at brugerkontoen i vinduet Windows-logon eller i vinduet Databaselogon tildeles rolle-id'et "SUPER". Hvis brugerkontoen ikke kan tildeles rolle-id'et "SUPER", skal du kontrollere, at brugerkontoen har følgende tilladelser:

  • Tilladelsen Rediger for det objekt, du vil ændre.
  • Tilladelsen Execute for System Object ID 5210-objektet og for System Object ID 9015-objektet.

                
Bemærk! Du behøver ikke at have rettigheder til datalagrene, medmindre du skal udføre datareparation.

Kodeændringer

Bemærk! Test altid koderettelser i et kontrolleret miljø, før du anvender rettelserne på dine produktionscomputere.
Du kan løse dette problem ved at følge disse trin:

  1. Rediger koden i funktionen UnapplyCustLedgEntry i gen. Jnl.-Post Line codeunit (12) på følgende måde:
    Eksisterende kode 1

    ...
NextDtldLedgEntryEntryNo := DtldCustLedgEntry2."Entry No." + 1;
DtldCustLedgEntry2.SETCURRENTKEY("Transaction No.","Customer No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN
DtldCustLedgEntry2.SETRANGE("Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldCustLedgEntry."Transaction No.")

ELSE
DtldCustLedgEntry2.SETRANGE("Transaction No.",DtldCustLedgEntry."Transaction No.");
DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
DtldCustLedgEntry2.SETRANGE("Entry Type",DtldCustLedgEntry."Entry Type"::Application);
DtldCustLedgEntry2.FINDSET;
...

    Erstatningskode 1

    ...
NextDtldLedgEntryEntryNo := DtldCustLedgEntry2."Entry No." + 1;
DtldCustLedgEntry2.SETCURRENTKEY("Transaction No.","Customer No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

// Add the following line. 
IF GenJnlLine."Prepmt. Appl. Transaction No." < DtldCustLedgEntry."Transaction No." THEN

DtldCustLedgEntry2.SETRANGE("Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldCustLedgEntry."Transaction No.")

// Add the following lines. 
ELSE
DtldCustLedgEntry2.SETRANGE("Transaction No.",DtldCustLedgEntry."Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.")
// End of the lines. 

ELSE
DtldCustLedgEntry2.SETRANGE("Transaction No.",DtldCustLedgEntry."Transaction No.");
DtldCustLedgEntry2.SETRANGE("Customer No.",DtldCustLedgEntry."Customer No.");
DtldCustLedgEntry2.SETRANGE("Entry Type",DtldCustLedgEntry."Entry Type"::Application);
DtldCustLedgEntry2.FINDSET;
...

    Eksisterende kode 2

    ...
IF DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::Application THEN
PrepareAdvCustUnapply(
DtldCustLedgEntry2."Cust. Ledger Entry No.",TempCustLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplCustLedgEntryNo,CurrencyCode);
...

    Erstatningskode 2

    ...
IF DtldCustLedgEntry2."Entry Type" = DtldCustLedgEntry2."Entry Type"::Application THEN

// Add the following line. 
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

PrepareAdvCustUnapply(
DtldCustLedgEntry2."Cust. Ledger Entry No.",TempCustLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplCustLedgEntryNo,CurrencyCode);
...

    Eksisterende kode 3

    ...
NegativeLCYAppAmt := NegativeLCYAppAmt + DtldCVLedgEntryBuf."Amount (LCY)";
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;
IF GenJnlLine."Prepmt. Appl. Transaction No." = 0 THEN BEGIN
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");
IF DtldCVLedgEntryBuf.Advance AND (CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::Payment) THEN
SalesPostAdvances.InsertTempApplnAdvanceLink(DtldCVLedgEntryBuf."Entry No.")
END;
END;
...

    Erstatningskode 3

    ...
NegativeLCYAppAmt := NegativeLCYAppAmt + DtldCVLedgEntryBuf."Amount (LCY)";
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;
IF GenJnlLine."Prepmt. Appl. Transaction No." = 0 THEN BEGIN
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");
IF DtldCVLedgEntryBuf.Advance AND (CustLedgEntry."Document Type" = CustLedgEntry."Document Type"::Payment) THEN
SalesPostAdvances.InsertTempApplnAdvanceLink(DtldCVLedgEntryBuf."Entry No.")
END;
END;
...

  2. Rediger koden i funktionen AutoEntrForDtldCustLedgEntries i gen. Jnl.-Post Line codeunit (12) på følgende måde:
    Eksisterende kode

    ...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:

IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

    Erstatningskode

    ...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:

// Add the following line. 
BEGIN

IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

// Add the following lines. 
END;
SalesPostAdvances.InsertApplnAdvanceLink(DtldCVLedgEntryBuf); // EAST0001
// End of the lines. 

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

  3. Skift koden i funktionen UnapplyVendLedgEntry i gen. Jnl.-Post Line codeunit (12) på følgende måde:
    Eksisterende kode 1

    ...
DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN
DtldVendLedgEntry2.SETRANGE(
"Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldVendLedgEntry."Transaction No.")
ELSE
DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
...

    Erstatningskode 1

    ...
DtldVendLedgEntry2.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

// Add the following line.
IF GenJnlLine."Prepmt. Appl. Transaction No." < DtldVendLedgEntry."Transaction No." THEN

DtldVendLedgEntry2.SETRANGE(
"Transaction No.",GenJnlLine."Prepmt. Appl. Transaction No.",DtldVendLedgEntry."Transaction No.")
ELSE

// Add the following lines. 
DtldVendLedgEntry2.SETRANGE(
"Transaction No.", DtldVendLedgEntry."Transaction No.", GenJnlLine."Prepmt. Appl. Transaction No.")
ELSE
// End of the lines. 

DtldVendLedgEntry2.SETRANGE("Transaction No.",DtldVendLedgEntry."Transaction No.");
DtldVendLedgEntry2.SETRANGE("Vendor No.",DtldVendLedgEntry."Vendor No.");
...

    Eksisterende kode 2

    ...
IF DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::Application THEN
PrepareAdvVendUnapply(
DtldVendLedgEntry2."Vendor Ledger Entry No.",TempVendLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplVendLedgEntryNo,CurrencyCode);
UNTIL DtldVendLedgEntry2.NEXT = 0;
...

    Erstatningskode 2

    ...
IF DtldVendLedgEntry2."Entry Type" = DtldVendLedgEntry2."Entry Type"::Application THEN

// Add the following line. 
IF GenJnlLine."Prepmt. Appl. Transaction No." <> 0 THEN

PrepareAdvVendUnapply(
DtldVendLedgEntry2."Vendor Ledger Entry No.",TempVendLedgEntryForAppln,
UnapplyAdvVATEntries,ReverseAdvVATTransNo,ApplVendLedgEntryNo,CurrencyCode);
UNTIL DtldVendLedgEntry2.NEXT = 0;
...

    Eksisterende kode 3

    ...
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;
END;
IF NOT SkipCollectAmount THEN
IF NOT (DtldCVLedgEntryBuf."Entry Type" IN [
...

    Erstatningskode

    ...
NegativeACYAppAmt :=
NegativeACYAppAmt + DtldCVLedgEntryBuf."Additional-Currency Amount";
END;

// Add the following lines. 
IF GenJnlLine."Prepmt. Appl. Transaction No." = 0 THEN BEGIN
VendLedgEntry.GET(DtldVendLedgEntry2."Vendor Ledger Entry No.");
IF DtldCVLedgEntryBuf.Advance AND (VendLedgEntry."Document Type" = VendLedgEntry."Document Type"::Payment) THEN
PurchPostAdvances.InsertTempApplnAdvanceLink(DtldCVLedgEntryBuf."Entry No.")
END;
// End of the lines. 

END;
IF NOT SkipCollectAmount THEN
IF NOT (DtldCVLedgEntryBuf."Entry Type" IN [
...

  4. Skift koden i funktionen AutoEntrForDtldVendLedgEntries i gen. Jnl.-Post Line codeunit (12) på følgende måde:
    Eksisterende kode

    ...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:
IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

    Erstatningskode

    ...
CASE DtldCVLedgEntryBuf."Entry Type" OF
DtldCVLedgEntryBuf."Entry Type"::"Initial Entry":;
DtldCVLedgEntryBuf."Entry Type"::Application:

// Add the following line.
BEGIN

IF MultiplePostingGrApplied THEN BEGIN
InitGLEntry(AccNo,DtldCVLedgEntryBuf."Amount (LCY)",0,FALSE,TRUE);
InsertGLEntry(TRUE);

// Add the following lines. 
END;
PurchPostAdvances.InsertApplnAdvanceLink(DtldCVLedgEntryBuf);
// End of the lines. 

END;
DtldCVLedgEntryBuf."Entry Type"::"Unrealized Loss":
...

  5. Du kan ændre koden i funktionen PostUnApplyCustomer i CustEntry-Apply Bogførte poster-kodeenhed (226) på følgende måde:
    Eksisterende kode 1

    ...
DtldCustLedgEntry.LOCKTABLE;
CustLedgEntry.LOCKTABLE;
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");

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

CheckPostingDate(PostingDate,'',0);
IF PostingDate < DtldCustLedgEntry2."Posting Date" THEN
ERROR(Text003,
...

    Erstatningskode 1

    ...
DtldCustLedgEntry.LOCKTABLE;
CustLedgEntry.LOCKTABLE;
CustLedgEntry.GET(DtldCustLedgEntry2."Cust. Ledger Entry No.");
CheckPostingDate(PostingDate,'',0);
IF PostingDate < DtldCustLedgEntry2."Posting Date" THEN
ERROR(Text003,
...

    Eksisterende kode 2

    ...
CustLedgEntry.TABLECAPTION,
DtldCustLedgEntry."Cust. Ledger Entry No.",
CustLedgEntry.FIELDCAPTION("Transaction No."));

// Delete the following line. 
DtldCustLedgEntry.TESTFIELD(Advance,FALSE);

GetPrepmtApplTransNo(DtldCustLedgEntry."Cust. Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No.");
END;
UNTIL DtldCustLedgEntry.NEXT = 0;
...

    Erstatningskode 2

    ...
CustLedgEntry.TABLECAPTION,
DtldCustLedgEntry."Cust. Ledger Entry No.",
CustLedgEntry.FIELDCAPTION("Transaction No."));

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

GetPrepmtApplTransNo(DtldCustLedgEntry."Cust. Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No.");
END;
UNTIL DtldCustLedgEntry.NEXT = 0;
...

  6. Ret koden i funktionen GetPrepmtApplTransNo i CustEntry-Apply bogførte poster kodeenhed (226) på følgende måde:
    Eksisterende kode

    ...
CustLedgEntry.GET(CustLedgEntryNo);

// Delete the following lines. 
IF NOT CustLedgEntry.Prepayment AND
(CustLedgEntry."Prepayment Type" = CustLedgEntry."Prepayment Type"::Advance)
THEN BEGIN
TransactionNo := CustLedgEntry."Transaction No." - 1;
END;
// End of the lines.
...

    Erstatningskode

    ...
CustLedgEntry.GET(CustLedgEntryNo);

// Add the following lines. 
IF CustLedgEntry."Prepayment Type" = CustLedgEntry."Prepayment Type"::Advance THEN
IF CustLedgEntry.Prepayment THEN BEGIN
CustLedgEntry.SETCURRENTKEY("Transaction No.");
CustLedgEntry.SETRANGE("Transaction No.",CustLedgEntry."Transaction No." + 1);
IF CustLedgEntry.FINDFIRST THEN
IF NOT CustLedgEntry.Prepayment AND (CustLedgEntry."Prepayment Type" = CustLedgEntry."Prepayment Type"::Advance) THEN
TransactionNo := CustLedgEntry."Transaction No.";
END ELSE
TransactionNo := CustLedgEntry."Transaction No." - 1;
// End of the lines. 
...

  7. Du kan ændre koden i funktionen PostUnApplyVendor i VendEntry-Apply Bogførte poster-kodeenhed (227) på følgende måde:
    Eksisterende kode

    ...
DtldVendLedgEntry."Vendor Ledger Entry No.",
VendLedgEntry.FIELDCAPTION("Transaction No."));

// Delete the following line. 
DtldVendLedgEntry.TESTFIELD(Advance,FALSE);

GetPrepmtApplTransNo(DtldVendLedgEntry."Vendor Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No."); 
END;
UNTIL DtldVendLedgEntry.NEXT = 0;
...

    Erstatningskode

    ...
DtldVendLedgEntry."Vendor Ledger Entry No.",
VendLedgEntry.FIELDCAPTION("Transaction No."));

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

GetPrepmtApplTransNo(DtldVendLedgEntry."Vendor Ledger Entry No.",GenJnlLine."Prepmt. Appl. Transaction No.");
END;
UNTIL DtldVendLedgEntry.NEXT = 0;
...

  8. Ret koden i funktionen GetPrepmtApplTransNo i VendEntry-Apply Bogførte poster-kodeenhed (227) på følgende måde:
    Eksisterende kode

    ...
// Delete the following lines.
VendLedgEntry.GET(VendLedgEntryNo);
IF NOT VendLedgEntry.Prepayment AND
(VendLedgEntry."Prepayment Type" = VendLedgEntry."Prepayment Type"::Advance)
THEN BEGIN
TransactionNo := VendLedgEntry."Transaction No." - 1;
END;
// End of the lines.
...

    Erstatningskode

    ...
// Add the following lines.
VendLedgEntry.GET(VendLedgEntryNo);
IF VendLedgEntry."Prepayment Type" = VendLedgEntry."Prepayment Type"::Advance THEN
IF VendLedgEntry.Prepayment THEN BEGIN
VendLedgEntry.SETCURRENTKEY("Transaction No.");
VendLedgEntry.SETRANGE("Transaction No.", VendLedgEntry."Transaction No." + 1);
IF VendLedgEntry.FINDFIRST THEN
IF NOT VendLedgEntry.Prepayment AND (VendLedgEntry."Prepayment Type" = VendLedgEntry."Prepayment Type"::Advance) THEN
TransactionNo := VendLedgEntry."Transaction No.";
END ELSE
TransactionNo := VendLedgEntry."Transaction No." - 1;
// End of the lines. 
...

  9. Tilføj en ny global variabel i kodeenheden Purchase-Post Advances (26586), og angiv derefter variablen på følgende måde:

    • Navn: TempAdvanceLink

    • DataType: Post

    • Undertype: Fremfør link

  10. Opret funktionen InsertTempApplnAdvanceLink i Purchase-Post Advances codeunit (26586) på følgende måde:

    PROCEDURE InsertTempApplnAdvanceLink@1470034(DtldEntryBufEntryNo@1470002 : Integer);
BEGIN
TempAdvanceLink.INIT;
TempAdvanceLink."Entry No." := DtldEntryBufEntryNo;
TempAdvanceLink.INSERT;
END;

  11. Opret funktionen InsertApplnAdvanceLink i Purchase-Post Advances codeunit (26586) på følgende måde:

    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;

Forudsætninger

Du skal have den østeuropæiske version af Microsoft Dynamics NAV 2009 R2 installeret for at anvende dette hotfix.

Oplysninger om fjernelse

Du kan ikke fjerne dette hotfix.

Flere oplysninger

Flere oplysninger om hotfix 2543219 finder du ved at klikke på nedenstående artikelnummer for at få vist artiklen i Microsoft Knowledge Base:

2543219 Du kan ikke behandle for meget forudbetaling som forventet i den østeuropæiske version af Microsoft Dynamics NAV 2009 R2

Status

Microsoft har bekræftet, at dette er et problem i de Microsoft-produkter, der er angivet i afsnittet "Gælder for".

Bemærk! Dette er en "FAST PUBLISH"-artikel, der er oprettet direkte fra Microsoft-supportorganisationen. Oplysningerne heri leveres, som de er som svar på nye problemer. Som følge af den hastighed, der er ved at stille den til rådighed, kan materialerne indeholde typografiske fejl og kan til enhver tid revideres uden varsel. Se Vilkår for anvendelse for andre overvejelser.