Príznaky
Po ste vykonali opravu KB3001759 a KB3036811 v Microsoft Dynamics NAV 2009, položiek môže byť zrušené. Však nie sú nesprávne finančné položky - DPH položka prepojenia Publikované v aplikácii. Postupujte podľa pokynov zmeny kódu sekcia na vyriešenie tohto problému. Tento problém sa vyskytuje v nasledovných produktov:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Riešenie
Informácie o rýchlej oprave
Rýchla oprava je k dispozícii od spoločnosti Microsoft. Je však určená iba opraviť problém popísaný v tomto článku. Použite ju iba v počítačoch s týmto konkrétnym problémom. Môže, že táto rýchla oprava bude ďalej testovaná. Ak vám nespôsobuje tento problém, odporúčame vám počkať na ďalšiu Microsoft Dynamics NAV 2009 service pack alebo ďalšej verzii Microsoft Dynamics NAV, ktorá obsahuje túto rýchlu opravu.
Poznámka: V špeciálnych prípadoch sa poplatky, ktoré sú telefonickú podporu nemusia účtovať ak technickú podporu Professional pre Microsoft Dynamics a súvisiace produkty zistí, že táto konkrétna aktualizácia vyrieši váš problém. Ďalšie otázky a žiadosti o technickú podporu, ktoré sa netýkajú tejto špecifickej aktualizácie, podliehajú bežným sadzbám za poskytovanie technickej podpory.
Informácie o inštalácii
Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez vyjadrených či predpokladaných záruk. Tie okrem iného zahŕňajú predpokladané záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu vysvetliť fungovanie konkrétneho postupu. Ale nemôžu tieto príklady poskytovať pridanú funkčnosť alebo konštrukčné procedúry zohľadňujúce vaše konkrétne požiadavky.
Poznámka: Pred inštaláciou tejto rýchlej opravy, kontrola všetkých používateľov klienta Microsoft Dynamics NAV systém. To zahŕňa služby Microsoft Dynamics NAV aplikácie servera (NAS). Mali by ste byť iba klient prihláseného používateľa je pri implementácii túto rýchlu opravu.
Vykonávať túto rýchlu opravu, musíte mať licencie pre vývojárov.
Odporúčame, aby používateľského konta v okne prihlásenia systému Windows alebo v okne prihlásenia do databázy pridelí "SUPER" úlohu ID. Ak používateľské konto nemožno priradiť úlohu ID "SUPER", musíte overiť, že používateľské konto má nasledujúce povolenia:
-
Zmeniť povolenia pre objekt, ktorý sa zmení.
-
Povolenia na vykonanie systému objekt ID 5210 a systém objekt ID 9015
objekt.
Poznámka: Nemusíte mať práva ukladá údaje, pokiaľ budete musieť vykonať opravy údajov.
Zmeny kódu
Poznámka: Vždy skúšobný opravy v prostredí kontrolované pred použitím opravy výroby počítačov.
Ak chcete vyriešiť tento problém, postupujte nasledovne:
-
Zmena kódu v UnapplyCustLedgEntry funkcia v Gen. denníkov.-Post riadok procedúra (12) takto:
Nahradenie kód 1... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
// Delete the following lines.
VatBaseSum@1008 : ARRAY [2] OF Decimal;
EntryNoBegin@1025 : ARRAY [2] OF Integer;
// End of the deleted lines.
i@1027 : Integer;
TempVatEntryNo@1028 : Integer;
BEGIN
...Nahradenie kód 1
... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
// Add the following lines.
VatBaseSum@1008 : ARRAY [3] OF Decimal;
EntryNoBegin@1025 : ARRAY [3] OF Integer;
// End of the added lines.
i@1027 : Integer;
TempVatEntryNo@1028 : Integer;
BEGIN
...Existujúci kód 2
... VATEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VATEntry2.INSERT;
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...Nahradenie kód 2
...VATEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VATEntry2.INSERT;
// Add the following lines.
IF VATEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry2);
END;
// End of the added lines.
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...Existujúci kód 3
... IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...Nahradenie kód 3
...IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
// Add the followoing lines.
VATBaseSum[3] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.
VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...Existujúci kód 4
...END;
TempVatEntry := VATEntrySaved;
UNTIL TempVatEntry.NEXT = 0;
// Delete the following line.
FOR i := 1 TO 2 DO BEGIN
// End of the deleted line.
VatBaseSum[i] := 0;
EntryNoBegin[i] := 0;
END;
...Nahradenie kód 4
...END;
TempVatEntry := VATEntrySaved;
UNTIL TempVatEntry.NEXT = 0;
// Add the following line.
FOR i := 1 TO 3 DO BEGIN
// End of the added line.
VatBaseSum[i] := 0;
EntryNoBegin[i] := 0;
END;
...Existujúci kód 5
...END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
...Nahradenie kód 5
...END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
// Add the folloiwng lines.
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
... -
Zmena kódu v UnapplyVendLedgEntry funkcia v Gen. denníkov.-Post riadok procedúra (12) takto:
Nahradenie kód 1... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
// Delete the following lines.
VatBaseSum@1029 : ARRAY [2] OF Decimal;
EntryNoBegin@1028 : ARRAY [2] OF Integer;
// End of the deleted lines.
i@1027 : Integer;
TempVatEntryNo@1025 : Integer;
BEGIN
...Nahradenie kód 1
... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
V
// Add the following lines.
atBaseSum@1029 : ARRAY [3] OF Decimal;
EntryNoBegin@1028 : ARRAY [3] OF Integer;
// End of the added lines.
i@1027 : Integer;
TempVatEntryNo@1025 : Integer;
BEGIN
...Existujúci kód 2
...VatEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VatEntry2.INSERT;
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...Nahradenie kód 2
...VatEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VatEntry2.INSERT;
// Add the following lines.
IF VatEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VatEntry2);
END;
// End of the added lines.
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...Existujúci kód 3
... IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...Nahradenie kód 3
...IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
// Add the following lines.
VATBaseSum[3] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.
VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...Existujúci kód 4
...END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
...Nahradenie kód 4
... END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
// Add the following lines.
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
... -
Zmena kódu v InsertVatEntriesFromTemp funkcia v Gen. denníkov.-Post riadok procedúra (12) takto:
Existujúci kód... DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
END;
// Delete the following line.
TempVatEntry.FINDSET;
// End of the deleted line.
REPEAT
VATEntry := TempVatEntry;
VATEntry."Entry No." := NextVATEntryNo;
VATEntry.INSERT;
NextVATEntryNo := NextVATEntryNo + 1;
IF VATEntry."Unrealized VAT Entry No." = 0 THEN
GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
TempVatEntry.DELETE;
LinkedAmount := LinkedAmount + VATEntry.Base;
Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
UNTIL Complete OR (TempVatEntry.NEXT = 0);
END;
LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...Nahradenie kódu
...DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
END;
// Add the following line.
IF TempVatEntry.FINDSET THEN
// End of the added line.
REPEAT
VATEntry := TempVatEntry;
VATEntry."Entry No." := NextVATEntryNo;
VATEntry.INSERT;
NextVATEntryNo := NextVATEntryNo + 1;
IF VATEntry."Unrealized VAT Entry No." = 0 THEN
GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
TempVatEntry.DELETE;
LinkedAmount := LinkedAmount + VATEntry.Base;
Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
UNTIL Complete OR (TempVatEntry.NEXT = 0);
END;
LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...
Požiadavky
Musíte mať jednu z nasledovných produktov nainštalovaný chcete použiť túto rýchlu opravu:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Informácie o odstránení
Nemôžete odstrániť túto rýchlu opravu.
Stav
Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.
Poznámka: To je "Rýchlo publikovať" článok vytvorené priamo v rámci organizácie technickej podpory spoločnosti Microsoft. Uvedené informácie sa poskytuje ako-v reakcii na naliehavé problémy. Rýchlosťou robiť materiály môžu obsahovať typografické chyby a môžu byť revidované kedykoľvek bez predchádzajúceho upozornenia. Prečítajte si Podmienky používaniaz iných dôvodov.
