Požymiai
Įdiegus KB2982157, jei naudojate funkciją parodantis PVM kartu su daugiau nei vienas partneris, bendras apibendrina kiekvienos partnerių be grąžinti į nulį Vengrijos versiją Microsoft Dynamics NAV 2009 R2. Atlikite veiksmus, kodo pasikeitimus skyriuje išspręsti šią problemą. Ši problema iškyla faile šiems produktams:
-
Vengrijos versiją Microsoft Dynamics NAV 2009 R2
Sprendimas
Karštųjų pataisų informacija
Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.
Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.
Diegimo informacija
Microsoft pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.
Pastaba. Prieš diegdami šias karštąsias pataisas, patikrinkite, kad visi Microsoft Dynamics NAV kliento vartotojai išsiregistravę sistema. Tai apima Microsoft Dynamics NAV programų serverio (NAS) paslaugas. Jums turėtų būti tik kliento vartotojo, kuris yra prisijungęs, kai atliekate šias karštąsias pataisas.
Norint pritaikyti šią karštąją pataisą, turite programų kūrėjo licencijos.
Rekomenduojame, kad vartotojo abonemento Windows registravimosi lange arba duomenų bazės prisijungimų langas priskirti "SUPER" vaidmenį ID. Jei vartotojo abonementas negali būti priskirta "SUPER" ID., turi patikrinti, kad vartotojo abonementas turi šias teises:
-
Keisti teisės objektas, kuris bus pakeisti.
-
Teisės vykdyti sistemos objekto ID 5210 objekto ir sistemos objekto ID 9015
objekto.
Pastaba. Jūs neturite turėti teisių į duomenų parduotuvių, nebent jūs turite atlikti duomenų atkūrimo.
Pastaba.
Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:
-
Punktus PVM ataskaitoje (14522) kodą pakeisti taip:
Esamas kodas...PartnerId := PartnerBuffer."Partner ID";
PartnerVatId := PartnerBuffer."VAT Registration No.";
PartnerName := GetPartnerName(PartnerType,PartnerId);
Buffer.RESET;
SetBufferFilters(PartnerType,PartnerId,PartnerVatId);
...Pastaba.
...PartnerId := PartnerBuffer."Partner ID";
PartnerVatId := PartnerBuffer."VAT Registration No.";
PartnerName := GetPartnerName(PartnerType,PartnerId);
// Add the following line.
PartnerBufferIsSet := TRUE;
// End of the added line.
Buffer.RESET;
SetBufferFilters(PartnerType,PartnerId,PartnerVatId);
... -
Pakeisti punktus PVM ataskaitoje (14522) visuotinis kintamieji kodą taip:
Esamas kodas 1...VAR
CompanyInfo@1170000002 : Record 79;
Buffer@1170000007 : TEMPORARY Record 14550;
PartnerBuffer@1170000008 : TEMPORARY Record 14551;
PartnerName@1170000012 : Text[250];
PartnerVatId@1170000013 : Text[30];
...Atsarginis kodas 1
...VAR
CompanyInfo@1170000002 : Record 79;
Buffer@1170000007 : TEMPORARY Record 14550;
// Add the following line.
TempBuffer@1170000059 : TEMPORARY Record 14550;
// End of the added line.
PartnerBuffer@1170000008 : TEMPORARY Record 14551;
PartnerName@1170000012 : Text[250];
PartnerVatId@1170000013 : Text[30];
...Esamas kodas 2
...VatAmount6@1170000050 : Decimal;
TotalOf1365Mline@1170000057 : TextConst 'ENU=Total of %1 line %2';
TotalOf1365M@1170000058 : TextConst 'ENU=Total of %1';
PROCEDURE SetBuffer@1170000000(VAR Buff@1170000000 : Record 14550;StartPeriod@1170000001 : Date;EndPeriod@1170000002 : Date;VATThresholdAmt@1170000003 : Decimal);
BEGIN
...Atsarginis kodas 2
...VatAmount6@1170000050 : Decimal;
TotalOf1365Mline@1170000057 : TextConst 'ENU=Total of %1 line %2';
TotalOf1365M@1170000058 : TextConst 'ENU=Total of %1';
// Add the following line.
PartnerBufferIsSet@1170000056 : Boolean;
// End of the added line.
PROCEDURE SetBuffer@1170000000(VAR Buff@1170000000 : Record 14550;StartPeriod@1170000001 : Date;EndPeriod@1170000002 : Date;VATThresholdAmt@1170000003 : Decimal);
BEGIN
... -
Pakeisti CalcPartnerTotals funkcija – punktus PVM ataskaitoje (14522):
Esamas kodas... LOCAL PROCEDURE CalcPartnerTotals@1170000006(VAR Buff@1170000003 : Record 14550;VAR NumInvoices@1170000001 : Integer;VAR VatBase@1170000002 : Decimal;VAR VatAmount@1170000004 : Decimal);
BEGIN
// Delete the following lines.
NumInvoices := Buff.COUNT;
IF Buff.FINDSET THEN
REPEAT
VatBase += ConvertToThousands(Buff."VAT Base");
VatAmount += ConvertToThousands(Buff."VAT Amount");
UNTIL Buff.NEXT = 0;
END;
LOCAL PROCEDURE CalcAllTotals@1170000015();
// End of the deleted lines.
...Pastaba.
...LOCAL PROCEDURE CalcPartnerTotals@1170000006(VAR Buff@1170000003 : Record 14550;VAR NumInvoices@1170000001 : Integer;VAR VatBase@1170000002 : Decimal;VAR VatAmount@1170000004 : Decimal);
BEGIN
// Add the following lines.
VatBase := 0;
VatAmount := 0;
NumInvoices := Buff.COUNT;
IF Buff.FINDSET THEN BEGIN
IF Buff."1365M" THEN BEGIN
IF PartnerBufferIsSet THEN BEGIN
Buff.CALCSUMS("VAT Base", "VAT Amount");
VatBase := ConvertToThousands(Buff."VAT Base");
VatAmount := ConvertToThousands(Buff."VAT Amount");
END ELSE BEGIN
REPEAT
VatAmount += CalcPartnerSubTotal(Buff."VAT Registration No.");
UNTIL Buff.NEXT = 0;
END;
END ELSE
REPEAT
VatBase += ConvertToThousands(Buff."VAT Base");
VatAmount += ConvertToThousands(Buff."VAT Amount");
UNTIL Buff.NEXT = 0;
END;
END;
LOCAL PROCEDURE CalcPartnerSubTotal@1170000004(VATRegNo@1170000000 : Text[20]) VatAmount : Decimal;
VAR
Buffer2@1170000001 : Record 14550;
EntryNo@1170000002 : Integer;
BEGIN
TempBuffer.RESET;
TempBuffer.SETRANGE("VAT Registration No.",VATRegNo);
IF NOT TempBuffer.FINDFIRST THEN BEGIN
EntryNo := 0;
TempBuffer.RESET;
IF TempBuffer.FINDLAST THEN
EntryNo := TempBuffer.EntryNo + 1;
TempBuffer.INIT;
TempBuffer.EntryNo := EntryNo;
TempBuffer."VAT Registration No." := VATRegNo;
TempBuffer.INSERT;
Buffer2.RESET;
Buffer2.SETRANGE("1365M-01");
Buffer2.SETRANGE("1365M-01K");
Buffer2.SETRANGE("1365M-02");
Buffer2.SETRANGE("1365M-02K");
Buffer2.SETRANGE("1365M",TRUE);
Buffer2.SETRANGE("K-Correction Type");
Buffer2.SETRANGE("VAT Registration No.",VATRegNo);
IF Buffer2.FINDSET THEN
REPEAT
VatAmount += Buffer2."VAT Amount";
UNTIL Buffer2.NEXT = 0;
EXIT(ConvertToThousands(VatAmount));
END;
END;
LOCAL PROCEDURE CalcAllTotals@1170000015();
// End of the added lines.
...
Būtinosios sąlygos
Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:
-
Vengrijos versiją Microsoft Dynamics NAV 2009 R2
Be to, turi būti KB2982157 ir MSDNAV2009R2ItemizedVAtHungary įdiegta.
Pašalinimo informacija
Jūs negalite pašalinti šias karštąsias pataisas.
Būsena
„Microsoft“ patvirtino, kad tai yra „Microsoft“ produktų, išvardytų skyriuje „Taikoma“, problema.
Pastaba. Tai yra "GREITAI PUBLIKUOJAMAS" straipsnis, sukurtas tiesiogiai Microsoft palaikymo tarnybos. Čia pateikta informacija yra atsakas į kylančius klausimus. Dėl greito publikavimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrima bet kuriuo metu be įspėjimo. Naudojimoieškokite kitų priežasčių.
