Výkaz "Účtovná karta dodávateľa" (12445) zobrazuje nesprávne výsledky po uhradení preddavku, ktorý používa cudziu menu v ruskej verzii systému Microsoft Dynamics NAV 2009

Vzťahuje sa na

Dynamics NAV 2009

Tento článok sa vzťahuje na systém Microsoft Dynamics NAV pre miestne nastavenie ruštiny (ru).

Príznaky

Predpokladajme, že v ruskej verzii systému Microsoft Dynamics NAV 2009 máte denník zálohových platieb, v ktorom sa používa cudzia mena dodávateľa. Platbu vopred uhradíte pomocou faktúry, ktorá používa iný výmenný kurz pre danú menu. V tomto prípade sa po spustení zostavy "Účtovná karta dodávateľa" (12445) pre platbu vopred zobrazia nesprávne výsledky. Tento problém sa vyskytuje aj v zostave Účtovná karta zákazníka (12441) po uhradení platby za zákazníka v cudzej mene. Tento problém sa vyskytuje v nasledujúcich produktoch:

Ruská verzia systému Microsoft Dynamics NAV 2009 R2
Ruská verzia balíka Microsoft Dynamics NAV 2009 Service Pack 1

Riešenie

Informácie o rýchlych opravách

Spoločnosť Microsoft teraz poskytuje podporovanú rýchlu opravu. Jeho účelom je však len vyriešiť problém, ktorý je popísaný v tomto článku. Použite ju len v systémoch, v ktorých sa vyskytol tento konkrétny problém. Táto rýchla oprava môže byť ešte otestovaná. Ak teda nie ste týmto problémom vážne zasiahnutí, odporúčame počkať na ďalší balík Service Pack pre systém Microsoft Dynamics NAV 2009 alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu hotfix.

Poznámka: V osobitných prípadoch môžu byť poplatky, ktoré sú zvyčajne účtované za hovory s oddelením technickej podpory, zrušené, ak pracovník technickej podpory pre systém Microsoft Dynamics a súvisiace produkty rozhodne, že konkrétna aktualizácia vyrieši váš problém. Zvyčajné náklady na podporu sa budú vzťahovať na ďalšie otázky a problémy podpory, na ktoré sa nevzťahuje konkrétna príslušná aktualizácia.

Informácie o inštalácii

Spoločnosť Microsoft poskytuje príklady programovania len pre ilustráciu bez výslovnej alebo implicitnej záruky. To sa týka (okrem iného) aj implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Článok predpokladá, že poznáte 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 vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, tieto príklady však nebudú upravovať, aby poskytovali ďalšie funkcie alebo zostavili procedúry podľa vašich špecifických požiadaviek.

Poznámka Pred inštaláciou tejto rýchlej opravy overte, či sú všetci používatelia klienta Microsoft Navision odhlásení zo systému. Týka sa to používateľov klientských služieb Microsoft Navision Application Services (NAS). V čase implementácie tejto rýchlej opravy by ste mali byť jediným klientskym používateľom, ktorý je prihlásený.

Ak chcete implementovať túto rýchlu opravu, musíte mať vývojársku licenciu.

Odporúčame priradiť používateľskému kontu v okne Prihlásenie do Windowsu alebo v okne Prihlásenia do databázy ID roly SUPER. Ak používateľskému kontu nie je možné priradiť ID roly SUPER, musíte overiť, či má používateľské konto nasledujúce povolenia:

Povolenie Upraviť pre objekt, ktorý budete meniť.
Povolenie na spustenie pre objekt systémového objektu ID 5210 a pre objekt systémového objektu ID 9015.

Poznámka: Ak nepotrebujete vykonať opravu údajov, nemusíte mať práva na ukladacie priestory údajov.

Zmeny kódu

Poznámka: Opravy kódu pred použitím opráv v produkčných počítačoch vždy testujte v kontrolovanom prostredí.
Pri odstraňovaní tohto problému postupujte nasledovne:

Zmeňte kód v zostave Globálne premenné v účtovnej karte zákazníka (12441) takto:
Existujúci kód

...
AdjBalance@1210001 : Decimal;
RowNumber@1210017 : Integer;
...

Náhradný kód

...
AdjBalance@1210001 : Decimal;

// Add the following lines.
DebitPrepmtDiff@1210021 : Decimal;
CreditPrepmtDiff@1210020 : Decimal;
// End of the lines.

RowNumber@1210017 : Integer;
...

Zmeňte kód v časti Údajová položka číslo 1 v zostave Účtovná karta zákazníka (12441) takto:
Existujúci kód

...
CurrReport.SKIP;
END;
...

Náhradný kód

...
CurrReport.SKIP;

// Add the following lines.
DebitPrepmtDiff := 0; 
CreditPrepmtDiff := 0; 
// End of the lines.

END;
...

Zmeňte kód v časti Údajová položka číslo 2 v zostave Účtovná karta zákazníka (12441) takto:
Existujúci kód 1

..
BlankZero=Yes;

// Delete the following line.
SourceExpr="Cust. Ledger Entry"."Debit Amount (LCY)" + AdjBalance;

DataSetFieldName=Cust__Ledger_Entry___Debit_Amount__LCY_____AdjBalance }
...

Náhradný kód 1

...
BlankZero=Yes;

// Add the following line.
SourceExpr="Cust. Ledger Entry"."Debit Amount (LCY)" + AdjBalance + DebitPrepmtDiff; 

DataSetFieldName=Cust__Ledger_Entry___Debit_Amount__LCY_____AdjBalance }
...

Existujúci kód 2

...
BlankZero=Yes;

// Delete the following line.
SourceExpr="Cust. Ledger Entry"."Credit Amount (LCY)" + AdjBalance;

DataSetFieldName=Cust__Ledger_Entry___Credit_Amount__LCY_____AdjBalance }
...

Náhradný kód 2

...
BlankZero=Yes;

// Add the following line.
SourceExpr="Cust. Ledger Entry"."Credit Amount (LCY)" + AdjBalance + CreditPrepmtDiff; 

DataSetFieldName=Cust__Ledger_Entry___Credit_Amount__LCY_____AdjBalance }
...

Zmeňte kód v časti Údajová položka číslo 4 v zostave Účtovná karta zákazníka (12441) takto:
Existujúci kód 1

...
DataItemTable=Table379;
DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)

// Delete the following line.
WHERE(Entry Type=FILTER(<>Application));

OnPreDataItem=BEGIN
...

Náhradný kód 1

...
DataItemTable=Table379;
DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date); 
OnPreDataItem=BEGIN
...

Existujúci kód 2

...
OnAfterGetRecord=BEGIN
CASE "Entry Type" OF
...

Náhradný kód 2

...
OnAfterGetRecord=BEGIN

// Add the following lines.
IF "Entry Type" = "Entry Type"::Application THEN BEGIN
IF "Prepmt. Diff." THEN BEGIN
DebitPrepmtDiff += "Debit Amount (LCY)";
CreditPrepmtDiff += "Credit Amount (LCY)";
IF HasRelatedRealizedEntry("Transaction No.") OR (NOT IsCurrencyAdjEntry) THEN
CurrReport.SKIP;
END ELSE
CurrReport.SKIP;
END;
// End of the lines.

CASE "Entry Type" OF
...

Vytvorenie novej lokálnej procedúry HasRelatedRealizedEntry v zostave Účtovná karta zákazníka (12441) nasledovne:

LOCAL PROCEDURE HasRelatedRealizedEntry@1210000(TransactionNo@1210000 : Integer) : Boolean;
VAR
DtldCustLedgEntry@1210001 : Record 379;
BEGIN
WITH DtldCustLedgEntry DO BEGIN
SETFILTER("Entry Type",'%1|%2',"Entry Type"::"Realized Gain","Entry Type"::"Realized Loss");
SETRANGE("Transaction No.",TransactionNo);
EXIT(NOT ISEMPTY);
END;
END;

Vytvorenie novej lokálnej procedúry IsCurrencyAdjEntry v zostave Účtovná karta zákazníka (12441) nasledovne:

LOCAL PROCEDURE IsCurrencyAdjEntry@1210001() : Boolean;
BEGIN
WITH "Detailed Cust. Ledg. Entry" DO
EXIT((Amount = 0) AND ("Amount (LCY)" <> 0));
END;

Zmeňte kód v zostave Globálne premenné v účtovníckej karte dodávateľa (12445) takto:
Exising code

...
AdjBalance@1210001 : Decimal;
RowNumber@1470000 : Integer;
...

Náhradný kód

...
AdjBalance@1210001 : Decimal;

// Add the following lines.
DebitPrepmtDiff@1210018 : Decimal;
CreditPrepmtDiff@1210019 : Decimal;
// End of the lines.

RowNumber@1470000 : Integer;
...

Zmeňte kód v časti Údajová položka číslo 1 v zostave Účtovná karta dodávateľa (12445) takto:
Existujúci kód

...
CurrReport.SKIP;
END;
...

Náhradný kód

..
CurrReport.SKIP;

// Add the following lines.
DebitPrepmtDiff := 0; 
CreditPrepmtDiff := 0; 
// End of the lines.

END;
..

Zmeňte kód v časti Údajová položka číslo 2 v zostave Účtovná karta dodávateľa (12445) takto:
Existujúci kód 1

...
BlankZero=Yes;

// Delete the following line.
SourceExpr="Vendor Ledger Entry"."Debit Amount (LCY)" + AdjBalance;

DataSetFieldName=Vendor__Ledger_Entry___Debit_Amount__LCY_____AdjBalance }
...

Náhradný kód 1

...
BlankZero=Yes;

// Add the following line.
SourceExpr="Vendor Ledger Entry"."Debit Amount (LCY)" + AdjBalance + DebitPrepmtDiff; 

DataSetFieldName=Vendor__Ledger_Entry___Debit_Amount__LCY_____AdjBalance }
...

Existujúci kód 2

...
BlankZero=Yes;

// Delete the following line.
SourceExpr="Vendor Ledger Entry"."Credit Amount (LCY)" + AdjBalance;

DataSetFieldName=Vendor__Ledger_Entry___Credit_Amount__LCY_____AdjBalance }
...

Náhradný kód 2

...
BlankZero=Yes;

// Add the following line.
SourceExpr="Vendor Ledger Entry"."Credit Amount (LCY)" + AdjBalance + CreditPrepmtDiff;

DataSetFieldName=Vendor__Ledger_Entry___Credit_Amount__LCY_____AdjBalance }
...

Zmeňte kód v časti Údajová položka číslo 4 v zostave Účtovná karta dodávateľa (12445) takto:
Existujúci kód 1

...
DataItemTable=Table380;
DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date)

// Delete the following line.
WHERE(Entry Type=FILTER(<>Application));

OnPreDataItem=BEGIN
...

Náhradný kód 1

...
DataItemTable=Table380;
DataItemTableView=SORTING(Vendor Ledger Entry No.,Entry Type,Posting Date);
OnPreDataItem=BEGIN
...

Existujúci kód 2

...
OnAfterGetRecord=BEGIN
CASE "Entry Type" OF
..

Náhradný kód 2

...
OnAfterGetRecord=BEGIN

// Add the following lines.
IF "Entry Type" = "Entry Type"::Application THEN BEGIN
IF "Prepmt. Diff." THEN BEGIN
DebitPrepmtDiff += "Debit Amount (LCY)";
CreditPrepmtDiff += "Credit Amount (LCY)";
IF HasRelatedRealizedEntry("Transaction No.") OR (NOT IsCurrencyAdjEntry) THEN
CurrReport.SKIP;
END ELSE
CurrReport.SKIP;
END;
// End of the lines.

CASE "Entry Type" OF
...

Vytvorenie novej lokálnej procedúry HasRelatedRealizedEntry in the Vendor Accounting Card report (12445) ako zdroje:

LOCAL PROCEDURE HasRelatedRealizedEntry@1210000(TransactionNo@1210000 : Integer) : Boolean;
VAR
DtldVendLedgEntry@1210001 : Record 380;
BEGIN
WITH DtldVendLedgEntry DO BEGIN
SETFILTER("Entry Type",'%1|%2',"Entry Type"::"Realized Gain","Entry Type"::"Realized Loss");
SETRANGE("Transaction No.",TransactionNo);
EXIT(NOT ISEMPTY);
END;
END;

Create a new local procedure IsCurrencyAdjEntry in the Vendor Accounting Card report (12445) as folows:

LOCAL PROCEDURE IsCurrencyAdjEntry@1210001() : Boolean;
BEGIN
WITH "Detailed Vendor Ledg. Entry" DO
EXIT((Amount = 0) AND ("Amount (LCY)" <> 0));
END;

Predpoklady

Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovaný niektorý z nasledujúcich produktov:

Ruská verzia systému Microsoft Dynamics NAV 2009 R2
Ruská verzia balíka Microsoft Dynamics NAV 2009 Service Pack 1

Informácie o odstránení

Túto rýchlu opravu nemožno odstrániť.

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: Toto je článok typu FAST PUBLISH, ktorý bol vytvorený priamo v rámci organizácie podpory spoločnosti Microsoft. Informácie obsiahnuté v tomto dokumente sa poskytujú tak, ako sú, ako odpoveď na vzniknuté problémy. V dôsledku rýchlosti ich sprístupnenia môžu materiály obsahovať typografické chyby a môžu byť kedykoľvek revidované bez predchádzajúceho upozornenia. Ďalšie dôležité informácie nájdete v Podmienkach používania .

Výkaz "Účtovná karta dodávateľa" (12445) zobrazuje nesprávne výsledky po uhradení preddavku, ktorý používa cudziu menu v ruskej verzii systému Microsoft Dynamics NAV 2009

Príznaky

Riešenie

Informácie o rýchlych opravách

Informácie o inštalácii

Zmeny kódu

Predpoklady

Informácie o odstránení

Stav

Boli tieto informácie užitočné?

Ďakujeme za vaše pripomienky!