Príznaky
Celková suma v pripomenutí je nesprávna, ak je nastavené pripomenutie poplatok konto s daň z pridanej hodnoty (DPH) v Microsoft Dynamics NAV 2009. Tento problém sa vyskytuje aj upomienky poplatok nie je zaregistrovaný zákazník je EÚ. Postupujte podľa pokynov zmeny kódu sekcia na rieš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 vo vlastnostiach vo formulári Štatistika upomienky (437):
Existujúci kód... CALCFIELDS("Interest Amount","VAT Amount");
ReminderTotal := "Remaining Amount" + "Additional Fee" + "Interest Amount" + "VAT Amount";
CustPostingGr.GET("Customer Posting Group");
VATInterest := 0;
IF ReminderLevel.GET("Reminder Terms Code","Reminder Level") THEN
// Delete the following lines.
IF ReminderLevel."Calculate Interest" THEN BEGIN
GLAcc.GET(CustPostingGr."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
END;
IF GLAcc.GET(CustPostingGr."Additional Fee Account") THEN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
Interest := (ReminderTotal - "Remaining Amount" - "Additional Fee" * (VATPostingSetup."VAT %"/100 + 1))/
(VATInterest/100 + 1);
VatAmount := Interest * VATInterest/100 +
"Additional Fee" * VATPostingSetup."VAT %"/100;
// End of the deleted lines.
IF Cust.GET("Customer No.") THEN
Cust.CALCFIELDS("Balance (LCY)")
ELSE
CLEAR(Cust);
IF Cust."Credit Limit (LCY)" = 0 THEN
...Nahradenie kódu
... CALCFIELDS("Interest Amount","VAT Amount");
ReminderTotal := "Remaining Amount" + "Additional Fee" + "Interest Amount" + "VAT Amount";
CustPostingGr.GET("Customer Posting Group");
VATInterest := 0;
IF ReminderLevel.GET("Reminder Terms Code","Reminder Level") THEN
// Add the following lines.
IF ReminderLevel."Calculate Interest" AND ("VAT Amount" <> 0) THEN BEGIN
GLAcc.GET(CustPostingGr."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
IF GLAcc.GET(CustPostingGr."Additional Fee Account") THEN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
Interest :=
(ReminderTotal -
"Remaining Amount" - "Additional Fee" * (VATPostingSetup."VAT %"/ 100 + 1)) /(VATInterest / 100 + 1);
VatAmount := Interest * VATInterest / 100 + "Additional Fee" * VATPostingSetup."VAT %" / 100;
END ELSE
Interest := "Interest Amount";
// End of the added lines.
IF Cust.GET("Customer No.") THEN
Cust.CALCFIELDS("Balance (LCY)")
ELSE
CLEAR(Cust);
IF Cust."Credit Limit (LCY)" = 0 THEN
... -
Zmena kódu vo vlastnostiach vo formulári Štatistika upomienky (441):
Existujúci kód...BEGIN
SETRANGE("No.");
CALCFIELDS("Interest Amount","VAT Amount");
ReminderTotal := "Remaining Amount" + "Additional Fee" + "Interest Amount" + "VAT Amount";
CustPostingGr.GET("Customer Posting Group");
// Delete the following lines.
ReminderLevel.GET("Reminder Terms Code","Reminder Level");
IF ReminderLevel."Calculate Interest" THEN BEGIN
GLAcc.GET(CustPostingGr."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
END ELSE
VATInterest := 0;
IF GLAcc.GET(CustPostingGr."Additional Fee Account") THEN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
Interest := (ReminderTotal - "Remaining Amount" - "Additional Fee" * (VATPostingSetup."VAT %"/100 + 1))/
(VATInterest/100 + 1);
VatAmount := Interest * VATInterest/100 +
"Additional Fee" * VATPostingSetup."VAT %"/100;
// End of the deleted lines.
IF Cust.GET("Customer No.") THEN
Cust.CALCFIELDS("Balance (LCY)")
ELSE
CLEAR(Cust);
IF Cust."Credit Limit (LCY)" = 0 THEN
...Nahradenie kódu
...BEGIN
SETRANGE("No.");
CALCFIELDS("Interest Amount","VAT Amount");
ReminderTotal := "Remaining Amount" + "Additional Fee" + "Interest Amount" + "VAT Amount";
CustPostingGr.GET("Customer Posting Group");
// Add the following lines.
IF ReminderLevel.GET("Reminder Terms Code","Reminder Level") THEN
IF ReminderLevel."Calculate Interest" AND ("VAT Amount" <> 0) THEN BEGIN
GLAcc.GET(CustPostingGr."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
IF GLAcc.GET(CustPostingGr."Additional Fee Account") THEN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
Interest :=
(ReminderTotal -
"Remaining Amount" - "Additional Fee" * (VATPostingSetup."VAT %"/ 100 + 1)) /(VATInterest / 100 + 1);
VatAmount := Interest * VATInterest / 100 + "Additional Fee" * VATPostingSetup."VAT %" / 100;
END ELSE
Interest := "Interest Amount";
// End of the added lines.
IF Cust.GET("Customer No.") THEN
Cust.CALCFIELDS("Balance (LCY)")
ELSE
CLEAR(Cust);
IF Cust."Credit Limit (LCY)" = 0 THEN
... -
Zmena kódu v údaje položky číslo 1 Štatistika upomienky správa (117) takto:
Existujúci kód...IF GLAcc.GET(CustPostingGroup."Additional Fee Account") THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
AddFeeInclVAT := "Additional Fee" * (1 + VATPostingSetup."VAT %"/100);
END ELSE
AddFeeInclVAT := "Additional Fee";
// Delete the following lines.
CALCFIELDS("Interest Amount");
IF "Interest Amount" <> 0 THEN BEGIN
GLAcc.GET(CustPostingGroup."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
END ELSE
VATInterest := 0;
// End of the deleted lines.
IF ISSERVICETIER THEN BEGIN
NNC_InterestAmountTotal := 0;
NNC_RemainingAmountTotal := 0;
NNC_VATAmountTotal := 0;
...Nahradenie kódu
... IF GLAcc.GET(CustPostingGroup."Additional Fee Account") THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
AddFeeInclVAT := "Additional Fee" * (1 + VATPostingSetup."VAT %"/100);
END ELSE
AddFeeInclVAT := "Additional Fee";
// Add the following lines.
CALCFIELDS("Interest Amount","VAT Amount");
IF ("Interest Amount" <> 0) AND ("VAT Amount" <> 0) THEN BEGIN
GLAcc.GET(CustPostingGroup."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
Interest:=
(ReminderInterestAmount +
"VAT Amount" +"Issued Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1);
END ELSE BEGIN
Interest:= "Interest Amount";
VATInterest := 0;
END;
// End of the added lines.
IF ISSERVICETIER THEN BEGIN
NNC_InterestAmountTotal := 0;
NNC_RemainingAmountTotal := 0;
NNC_VATAmountTotal := 0;
... -
Zmena kódu v údaje položky číslo 4 časti Štatistika upomienky správa (117) takto:
Nahradenie kód 1...}
CONTROLS
{
{ 45 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
CaptionML=ENU=Interest Amount;
// Delete the following line.
SourceExpr=(ReminderInterestAmount + "VAT Amount" +"Issued Reminder Header"."Additional Fee" - AddFeeInclVAT)/(VATInterest/100 +1);
// End of the deleted line.
AutoFormatType=1;
AutoFormatExpr="Issued Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=ReminderInterestAmount____VAT_Amount____Issued_Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100__1_ }
{ 47 ;Label ;6090 ;0 ;4200 ;423 ;ParentControl=45;
FontSize=9;
...Nahradenie kód 1
...}
CONTROLS
{
{ 45 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
CaptionML=ENU=Interest Amount;
// Add the following line.
SourceExpr=Interest;
// End of the added line.
AutoFormatType=1;
AutoFormatExpr="Issued Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=ReminderInterestAmount____VAT_Amount____Issued_Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100__1_ }
{ 47 ;Label ;6090 ;0 ;4200 ;423 ;ParentControl=45;
FontSize=9;
...Existujúci kód 2
...CONTROLS
{
{ 44 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
FontBold=Yes;
CaptionML=ENU=Total;
// Delete the following line.
SourceExpr="Remaining Amount" + ReminderInterestAmount + "VAT Amount"-(ReminderInterestAmount + "VAT Amount" +"Issued Reminder Header"."Additional Fee" - AddFeeInclVAT)/(VATInterest/100+1)*VATInterest/100 + "Issued Reminder Header"."Additional Fee" - AddFeeInclVAT;
// End of the deleted line.
AutoFormatType=1;
AutoFormatExpr="Issued Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=Remaining_Amount____ReminderInterestAmount____VAT_Amount___ReminderInterestAmount____VAT_Amount____Issued_Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100_1__VATInterest_100____Issued_Reminder_Header___Additional_Fee____AddFeeInclVAT }
{ 56 ;TextBox ;6090 ;0 ;4200 ;423 ;FontSize=9;
FontBold=Yes;
...Nahradenie kód 2
... CONTROLS
{
{ 44 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
FontBold=Yes;
CaptionML=ENU=Total;
// Add the following line.
SourceExpr="Remaining Amount" + ReminderInterestAmount;
// End of the added line.
AutoFormatType=1;
AutoFormatExpr="Issued Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=Remaining_Amount____ReminderInterestAmount____VAT_Amount___ReminderInterestAmount____VAT_Amount____Issued_Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100_1__VATInterest_100____Issued_Reminder_Header___Additional_Fee____AddFeeInclVAT }
{ 56 ;TextBox ;6090 ;0 ;4200 ;423 ;FontSize=9;
FontBold=Yes;
... -
Zmena kódu v údaje položky číslo 1 Štatistika upomienky správa (122):
Existujúci kód...IF GLAcc.GET(CustPostingGroup."Additional Fee Account") THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
AddFeeInclVAT := "Additional Fee" * (1 + VATPostingSetup."VAT %"/100);
END ELSE
AddFeeInclVAT := "Additional Fee";
// Delete the following lines.
CALCFIELDS("Interest Amount");
IF "Interest Amount" <> 0 THEN BEGIN
GLAcc.GET(CustPostingGroup."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
END ELSE
VATInterest := 0;
// End of the deleted lines.
IF ISSERVICETIER THEN BEGIN
NNC_Interest := 0;
NNC_TotalLCY := 0;
NNC_VATAmount := 0;
NNC_TotalLCYVATAmount := 0;
...Nahradenie kódu
...IF GLAcc.GET(CustPostingGroup."Additional Fee Account") THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
AddFeeInclVAT := "Additional Fee" * (1 + VATPostingSetup."VAT %"/100);
END ELSE
AddFeeInclVAT := "Additional Fee";
// Add the following lines.
CALCFIELDS("Interest Amount","VAT Amount");
IF ("Interest Amount" <> 0) AND ("VAT Amount" <> 0) THEN BEGIN
GLAcc.GET(CustPostingGroup."Interest Account");
VATPostingSetup.GET("VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group");
VATInterest := VATPostingSetup."VAT %";
Interest:=
(ReminderInterestAmount +
"VAT Amount" +"Reminder Header"."Additional Fee" - AddFeeInclVAT) / (VATInterest / 100 + 1);
END ELSE BEGIN
Interest:= "Interest Amount";
VATInterest := 0;
END;
IF VATInterest <> 0 THEN
// End of the added lines.
IF ISSERVICETIER THEN BEGIN
NNC_Interest := 0;
NNC_TotalLCY := 0;
NNC_VATAmount := 0;
NNC_TotalLCYVATAmount := 0;
... -
Zmena kódu v údaje položky číslo 2 Štatistika upomienky správa (122):
Existujúci kód... }
{ PROPERTIES
{
DataItemIndent=1;
DataItemTable=Table2000000026;
// Delete the following line.
DataItemTableView=SORTING(Number) WHERE(Number=CONST(1));
// End of the deleted line.
DataItemVarName=PageCounter;
}
SECTIONS
{
{ PROPERTIES
...Nahradenie kódu
...}
{ PROPERTIES
{
DataItemIndent=1;
DataItemTable=Table2000000026;
// Add the following lines.
DataItemTableView=SORTING(Number)
WHERE(Number=CONST(1));
// End of the added lines.
DataItemVarName=PageCounter;
}
SECTIONS
{
{ PROPERTIES
... -
Zmena kódu v údaje položky číslo 3 v Štatistika upomienky správa (122):
Existujúci kód...}
{ PROPERTIES
{
DataItemIndent=2;
DataItemTable=Table2000000026;
// Delete the following line.
DataItemTableView=SORTING(Number) WHERE(Number=FILTER(1..));
// End of the deleted line.
DataItemVarName=DimensionLoop;
OnPreDataItem=BEGIN
IF NOT ShowDim THEN
CurrReport.BREAK;
DocDim.SETRANGE("Table ID",DATABASE::"Reminder Header");
...Nahradenie kódu
...}
{ PROPERTIES
{
DataItemIndent=2;
DataItemTable=Table2000000026;
// Add the following lines.
DataItemTableView=SORTING(Number)
WHERE(Number=FILTER(1..));
// End of the added lines.
DataItemVarName=DimensionLoop;
OnPreDataItem=BEGIN
IF NOT ShowDim THEN
CurrReport.BREAK;
DocDim.SETRANGE("Table ID",DATABASE::"Reminder Header");
... -
Zmena kódu v údaje položky číslo 5 Štatistika upomienky správa (122):
Existujúci kód... }
{ PROPERTIES
{
DataItemIndent=2;
DataItemTable=Table296;
// Delete the following line.
DataItemTableView=SORTING(Reminder No.,Line No.) WHERE(Line Type=FILTER(<>Not Due));
// End of the deleted line.
OnPreDataItem=BEGIN
IF ISSERVICETIER THEN
TotalVATAmount := 0;
IF FIND('+') THEN BEGIN
...Nahradenie kódu
...}
{ PROPERTIES
{
DataItemIndent=2;
DataItemTable=Table296;
// Add the following lines.
DataItemTableView=SORTING(Reminder No.,Line No.)
WHERE(Line Type=FILTER(<>Not Due));
// End of the added lines.
OnPreDataItem=BEGIN
IF ISSERVICETIER THEN
TotalVATAmount := 0;
IF FIND('+') THEN BEGIN
... -
Zmena kódu v údaje položky číslo 5 časti Štatistika upomienky správa (122):
Nahradenie kód 1... }
CONTROLS
{
{ 17 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
CaptionML=ENU=Interest Amount;
// Delete the following line.
SourceExpr=(ReminderInterestAmount + "VAT Amount" +"Reminder Header"."Additional Fee" - AddFeeInclVAT)/(VATInterest/100 +1);
// End of the deleted line.
AutoFormatType=1;
AutoFormatExpr="Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=ReminderInterestAmount____VAT_Amount____Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100__1_ }
{ 20 ;Label ;6090 ;0 ;4200 ;423 ;ParentControl=17;
FontSize=9;
...Nahradenie kód 1
... }
CONTROLS
{
{ 17 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
CaptionML=ENU=Interest Amount;
// Add the following line.
SourceExpr=Interest;
// End of the added line.
AutoFormatType=1;
AutoFormatExpr="Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=ReminderInterestAmount____VAT_Amount____Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100__1_ }
{ 20 ;Label ;6090 ;0 ;4200 ;423 ;ParentControl=17;
FontSize=9;
...Existujúci kód 2
...}
CONTROLS
{
{ 29 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
FontBold=Yes;
// Delete the following line.
SourceExpr="Remaining Amount" + ReminderInterestAmount + "VAT Amount"-(ReminderInterestAmount + "VAT Amount" +"Reminder Header"."Additional Fee" - AddFeeInclVAT)/(VATInterest/100+1)*VATInterest/100 + "Reminder Header"."Additional Fee" - AddFeeInclVAT;
// End of the deleted line.
AutoFormatType=1;
AutoFormatExpr="Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=Remaining_Amount____ReminderInterestAmount____VAT_Amount___ReminderInterestAmount____VAT_Amount____Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100_1__VATInterest_100____Reminder_Header___Additional_Fee____AddFeeInclVAT }
{ 43 ;TextBox ;6090 ;0 ;4200 ;423 ;FontSize=9;
FontBold=Yes;
...Nahradenie kód 2
...}
CONTROLS
{
{ 29 ;TextBox ;10710;0 ;2520 ;423 ;FontSize=9;
FontBold=Yes;
// Add the following line.
SourceExpr="Remaining Amount" + ReminderInterestAmount;
// End of the added line.
AutoFormatType=1;
AutoFormatExpr="Reminder Line".GetCurrencyCodeFromHeader;
DataSetFieldName=Remaining_Amount____ReminderInterestAmount____VAT_Amount___ReminderInterestAmount____VAT_Amount____Reminder_Header___Additional_Fee____AddFeeInclVAT___VATInterest_100_1__VATInterest_100____Reminder_Header___Additional_Fee____AddFeeInclVAT }
{ 43 ;TextBox ;6090 ;0 ;4200 ;423 ;FontSize=9;
FontBold=Yes;
...
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ť kedykoľvek bez predchádzajúceho upozornenia. Prečítajte si Podmienky používaniaz iných dôvodov.
