Artikler, der udgives hurtigt, indeholder oplysninger direkte fra Microsoft-supportorganisationen. De oplysninger, der er indeholdt heri, oprettes som svar på nye eller unikke emner eller er beregnet til at supplere andre oplysninger i Knowledge Base.
Denne artikel gælder for Microsoft Dynamics NAV for alle lande og landestandarder.
Symptomer
Når du anvender en faktura på en betaling i Microsoft Dynamics NAV, bogføres der en forkert betalingstolerance. Dette problem opstår i følgende produkter:
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1
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 Microsoft Dynamics NAV-servicepakke 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:
Skift koden i OnRun-udløseren i "Gen. Jnl.-Apply" codeunit (225) på følgende måde:
Eksisterende kode 1... IF CustLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := CustLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT CheckAgainstApplnCurrency(CurrencyCode2,CustLedgEntry."Currency Code",AccType::Customer,TRUE); ...Erstatningskode 1
... IF CustLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := CustLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT // Add the following line. PaymentToleranceMgt.DelPmtTolApllnDocNo(GenJnlLine,CustLedgEntry."Document No."); CheckAgainstApplnCurrency(CurrencyCode2,CustLedgEntry."Currency Code",AccType::Customer,TRUE); ...Eksisterende kode 2
... IF VendLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := VendLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT CheckAgainstApplnCurrency(CurrencyCode2,VendLedgEntry."Currency Code",AccType::Vendor,TRUE); ...Erstatningskode 2
... IF VendLedgEntry.FIND('-') THEN BEGIN CurrencyCode2 := VendLedgEntry."Currency Code"; IF Amount = 0 THEN BEGIN REPEAT // Add the following line. PaymentToleranceMgt.DelPmtTolApllnDocNo(GenJnlLine,VendLedgEntry."Document No."); CheckAgainstApplnCurrency(CurrencyCode2,VendLedgEntry."Currency Code",AccType::Vendor,TRUE); ...Du kan ændre koden i funktionen CalcCustApplnAmount i kodeenheden "Payment Tolerance Management" (426) på følgende måde:
Eksisterende kode... TempAmount := TempAmount + AppliedCustLedgEntry."Amount to Apply"; UNTIL AppliedCustLedgEntry.NEXT = 0; // Delete the following lines. // Check Payment Tolerance IF (CustledgEntry."Document Type" = CustledgEntry."Document Type"::Payment) THEN BEGIN IF TempAmount - CustledgEntry."Remaining Amount" < MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - CustledgEntry."Remaining Amount"; END ELSE IF (CustledgEntry."Document Type" = CustledgEntry."Document Type"::Refund) THEN BEGIN IF TempAmount - CustledgEntry."Remaining Amount" > MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - CustledgEntry."Remaining Amount"; END; // End of the deleted lines. TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount <= 0; ...Erstatningskode
... TempAmount := TempAmount + AppliedCustLedgEntry."Amount to Apply"; UNTIL AppliedCustLedgEntry.NEXT = 0; TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount <= 0; ...Skift koden i funktionen CalcVendApplnAmount i kodeenheden "Payment Tolerance Management" (426) på følgende måde:
Eksisterende kode... TempAmount := TempAmount + AppliedVendLedgEntry."Amount to Apply"; UNTIL AppliedVendLedgEntry.NEXT = 0; // Delete the following lines. // Check Payment Tolerance IF (VendledgEntry."Document Type" = VendledgEntry."Document Type"::Payment) THEN BEGIN IF TempAmount - VendledgEntry."Remaining Amount" > MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - VendledgEntry."Remaining Amount"; END ELSE IF (VendledgEntry."Document Type" = VendledgEntry."Document Type"::Refund) THEN BEGIN IF TempAmount - VendledgEntry."Remaining Amount" < MaxPmtTolAmount THEN MaxPmtTolAmount := TempAmount - VendledgEntry."Remaining Amount"; END; // End of the deleted lines. TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount >= 0; ...Erstatningskode
... TempAmount := TempAmount + AppliedVendLedgEntry."Amount to Apply"; UNTIL AppliedVendLedgEntry.NEXT = 0; TempAmount := TempAmount + MaxPmtTolAmount; PositiveFilter := TempAmount >= 0; ...Skift koden i funktionen DelPmtTolApllnDocNo i kodeenheden "Payment Tolerance Management" (426) på følgende måde:
Eksisterende kode... AppliedCustLedgEntry.SETRANGE(Open,TRUE); AppliedCustLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedCustLedgEntry.LOCKTABLE; // Delete the following lines. IF AppliedCustLedgEntry.FIND('-') THEN BEGIN AppliedCustLedgEntry."Accepted Payment Tolerance" := 0; AppliedCustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedCustLedgEntry.MODIFY; // End of the deleted lines. COMMIT; END; ...Erstatningskode
... AppliedCustLedgEntry.SETRANGE(Open,TRUE); AppliedCustLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedCustLedgEntry.LOCKTABLE; // Add the following lines. IF AppliedCustLedgEntry.FINDSET THEN BEGIN REPEAT AppliedCustLedgEntry."Accepted Payment Tolerance" := 0; AppliedCustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedCustLedgEntry.MODIFY; UNTIL AppliedCustLedgEntry.NEXT = 0; //End of the added lines. COMMIT; END; ...Skift koden i DelPmtTolApllnDocNo-udløseren i kodeenheden "Payment Tolerance Management" (426) på følgende måde:
Eksisterende kode... AppliedVendLedgEntry.SETRANGE(Open,TRUE); AppliedVendLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedVendLedgEntry.LOCKTABLE; // Delete the following lines. IF AppliedVendLedgEntry.FIND('-') THEN BEGIN AppliedVendLedgEntry."Accepted Payment Tolerance" := 0; AppliedVendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedVendLedgEntry.MODIFY; // End of the deleted lines COMMIT; END; END; ...Erstatningskode
... AppliedVendLedgEntry.SETRANGE(Open,TRUE); AppliedVendLedgEntry.SETRANGE("Document No.",DocumentNo); AppliedVendLedgEntry.LOCKTABLE; // Add the following lines. IF AppliedVendLedgEntry.FINDSET THEN BEGIN REPEAT AppliedVendLedgEntry."Accepted Payment Tolerance" := 0; AppliedVendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE; AppliedVendLedgEntry.MODIFY; UNTIL AppliedVendLedgEntry.NEXT = 0; //End of the added lines. COMMIT; END; END; ...
Forudsætninger
Du skal have et af følgende produkter installeret for at anvende dette hotfix:
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1
Oplysninger om fjernelse
Du kan ikke fjerne dette hotfix.
Status
Microsoft har bekræftet, at dette er et problem i de Microsoft-produkter, der er angivet i afsnittet "Gælder for".
MICROSOFT OG/ELLER MICROSOFTS LEVERANDØRER GØR INGEN REPRÆSENTATIONER ELLER GARANTIER FOR EGNETHEDEN, PÅLIDELIGHEDEN ELLER NØJAGTIGHEDEN AF DE OPLYSNINGER, DER ER INDEHOLDT I DOKUMENTERNE OG DEN RELATEREDE GRAFIK, DER UDGIVES PÅ DETTE WEBSTED ("MATERIALERNE") TIL NOGET FORMÅL.
MATERIALERNE KAN INDEHOLDE TEKNISKE UNØJAGTIGHEDER ELLER TYPOGRAFISKE FEJL OG KAN TIL ENHVER TID REVIDERES UDEN VARSEL. I DET OMFANG DET ER TILLADT I HENHOLD TIL GÆLDENDE LOVGIVNING, FRASKRIVER MICROSOFT OG/ELLER MICROSOFTS LEVERANDØRER SIG OG UDELUKKER ALLE REPRÆSENTATIONER, GARANTIER OG BETINGELSER, UANSET OM DE ER UDTRYKKELIGE, UNDERFORSTÅEDE ELLER LOVFÆSTEDE, HERUNDER, MEN IKKE BEGRÆNSET TIL REPRÆSENTATIONER, GARANTIER ELLER BETINGELSER FOR TITEL, IKKE-KRÆNKELSE, TILFREDSSTILLENDE TILSTAND ELLER KVALITET, SALGBARHED OG EGNETHED TIL ET BESTEMT FORMÅL, MED HENSYN TIL MATERIALERNE.