Feilmeldingen «Forskuddsbetaling må være Nei i Kundepostnr.=[XXXX]»» når du opphever anvendt betaling eller refusjon som ble bokført som forskuddsbetaling i den østeuropeiske versjonen av Microsoft Dynamics NAV 2009 R2

Gjelder for
Microsoft Dynamics NAV 2009 R2

Denne artikkelen gjelder for Microsoft Dynamics NAV for den østeuropeiske språkinnstillingen (ee).

Symptomer

Anta at du oppretter en pengekvitteringsjournal for en betaling eller en refusjon i den østeuropeiske versjonen av Microsoft Dynamics NAV 2009 R2. Du legger inn kontantkvitteringsjournalen som en forskuddsbetaling. Når du i denne situasjonen kjører funksjonen Ikke-brukte oppføringer på den brukte betalingen eller refusjonen, får du følgende feilmelding:

Obs!

Forskuddsbetalingen må være Nei i Kundepostnr.='XXXX'.

Oppløsning

Hurtigreparasjonsinformasjon

En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å rette opp problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som opplever dette spesifikke problemet. Denne hurtigreparasjonen kan få ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på den neste Microsoft Dynamics NAV 2009-oppdateringspakken eller den neste Microsoft Dynamics NAV-versjonen som inneholder denne hurtigreparasjonen.

Obs! I spesielle tilfeller kan kostnader som vanligvis påløper for støtteanrop, bli avbrutt hvis en technical support professional for Microsoft Dynamics og relaterte produkter bestemmer at en bestemt oppdatering vil løse problemet. De vanlige støttekostnadene gjelder for ytterligere støttespørsmål og problemer som ikke kvalifiserer for den aktuelle oppdateringen.

            
          

Installasjonsinformasjon

Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet for et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav.

Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle Microsoft Navision-klientbrukere er logget av systemet. Dette inkluderer microsoft Navision Application Services (NAS)-klientbrukere. Du bør være den eneste klientbrukeren som er logget på når du implementerer denne hurtigreparasjonen.

Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.

Vi anbefaler at brukerkontoen i Windows-påloggingsvinduet eller i vinduet Pålogginger for database tilordnes rolle-ID-en SUPER. Hvis brukerkontoen ikke kan tilordnes rolle-IDen SUPER, må du kontrollere at brukerkontoen har følgende tillatelser:

  • Endre-tillatelsen for objektet du skal endre.
  • Execute-tillatelsen for Objektet System Object ID 5210 og systemobjekt-ID 9015-objektet.

                
Vær oppmerksom på at du ikke trenger å ha rettigheter til datalagrene med mindre du må utføre datareparasjon.

Kodeendringer

Obs! Test alltid kodeløsninger i et kontrollert miljø før du bruker løsningene på produksjonsdatamaskinene.
Følg disse trinnene for å løse dette problemet:

  1. Endre koden i unapplyCustLedgEntry-funksjonen i gen. Jnl.-Post Line codeunit (12) som følger:
    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. Endre koden i funksjonen AutoEntrForDtldCustLedgEntries i Gen. Jnl.-Post Line codeunit (12) som følger:
    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. Endre koden i unapplyVendLedgEntry-funksjonen i gen. Jnl.-Post Line codeunit (12) som følger:
    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. Endre koden i funksjonen AutoEntrForDtldVendLedgEntries i Gen. Jnl.-Post Line codeunit (12) som følger:
    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. Endre koden i PostUnApplyCustomer-funksjonen i kodeenheten for CustEntry-Apply posterte oppføringer (226) på følgende måte:
    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. Endre koden i getPrepmtApplTransNo-funksjonen i kodeenheten for CustEntry-Apply posterte oppføringer (226) på følgende måte:
    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. Endre koden i PostUnApplyVendor-funksjonen i kodeenheten for VendEntry-Apply posterte oppføringer (227) på følgende måte:
    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. Endre koden i getPrepmtApplTransNo-funksjonen i kodeenheten for VendEntry-Apply posterte oppføringer (227) på følgende måte:
    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. Legg til en ny global variabel i Purchase-Post Advances codeunit (26586), og angi deretter variabelen som følger:

    • Navn: TempAdvanceLink

    • Datatype: Post

    • Undertype: Forskuddskobling

  10. Opprett insertTempApplnAdvanceLink-funksjonen i Purchase-Post Advances codeunit (26586) på følgende måte:

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

  11. Opprett InsertApplnAdvanceLink-funksjonen i Purchase-Post Advances codeunit (26586) på følgende måte:

    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;

Forutsetninger

Du må ha den østeuropeiske versjonen av Microsoft Dynamics NAV 2009 R2 installert for å bruke denne hurtigreparasjonen.

Informasjon om fjerning

Du kan ikke fjerne denne hurtigreparasjonen.

Mer informasjon

Hvis du vil ha mer informasjon om hurtigreparasjon 2543219, klikker du følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:

2543219 Du kan ikke behandle overbetalt forskuddsbetaling som forventet i den østeuropeiske versjonen av Microsoft Dynamics NAV 2009 R2

Status

Microsoft har bekreftet at dette er et problem i Microsoft-produktene som er oppført i delen «Gjelder for».

Obs! Dette er en «FAST PUBLISH»-artikkel som er opprettet direkte fra Microsofts støtteorganisasjon. Informasjonen i dette er angitt som svar på nye problemer. Som et resultat av hastigheten på å gjøre det tilgjengelig, kan materialene inkludere typografiske feil og kan bli revidert når som helst uten varsel. Se vilkår for bruk for andre hensyn.