Šis raksts neattiecas uz Microsoft Dynamics NAV portugāļu (pt) valodu lokalizācijas.
Pazīmes
Pieņemsim, ka iestatīt Maksājuma atlaides tips vērtība Calc Pmt disku. RindāsVirsgrāmatas uzstādījumi dialoglodziņā Microsoft Dynamics NAV 2009 portugāļu valodā. Iestatiet rēķina atlaidi pirkšanas rēķins, kurā ir vairāk nekā viena rinda ar decimāldaļas. Kad tiek aprēķināts pirkšanas rēķins statistiku, rēķina atlaides summa tiek aprēķināta nepareizi.
Šī problēma rodas ar šādiem produktiem:
-
Microsoft Dynamics NAV 2009 R2 portugāļu valodā
-
Microsoft Dynamics NAV 2009. gada 1. servisa pakotni (SP1) portugāļu valodā
Izšķirtspēja
Informācija par labojumfailu
Pašlaik korporācija Microsoft piedāvā atbalstītu labojumfailu. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Izmantojiet to tikai tām sistēmām, kurām ir radusies tieši šī problēma. Iespējams, tiks veikta šī labojumfaila papildu testēšana. Tādēļ, ja jums ir šī problēma nerada nopietnus traucējumus, ieteicams pagaidīt, Microsoft Dynamics NAV 2009 nākamā servisa pakotne vai nākamajā Microsoft Dynamics NAV versiju, kas ir iekļauts šis labojumfails.
Piezīme. Īpašos gadījumos standarta izmaksas par atbalsta zvaniem nav jāsedz, ja tehniskā atbalsta speciālists Microsoft Dynamics un saistītiem produktiem nosaka, ka šo problēmu novērsīs noteikts atjauninājums. Parasti atbalsta izmaksas tiek piemērotas jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.
Informācija par instalēšanu
Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti. Taču viņi nemainīs šos piemērus, lai sniegtu skaidrākus, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.
Piezīme. Pirms šī labojumfaila instalēšanas pārliecinieties, vai ka visi Microsoft Dynamics NAV klienta lietotāji ir atteikušies sistēmu. Tas ietver Microsoft Dynamics NAV lietojumprogrammu serveris (NAS) pakalpojumi. Jums ir jābūt tikai klienta lietotājam, kurš ir pieteicies datorā, kad izmantojat šo labojumfailu.
Lai ieviestu šo labojumfailu, datorā jābūt instalētai izstrādātāja licenci.
Ieteicams, ka lietotāja konts tiek atvērts logs Windows lietotājvārdi vai logā datu bāzes lietotājvārdi piešķirt "SUPER" lomas ID. Ja lietotāja kontam nevar piešķirt "SUPER" lomas ID, ir jāpārbauda lietotāja konts ir šādas atļaujas:
-
Objektu, kad tiks mainīts modificēt atļaujas.
-
Izpildes atļauja objekta objekta ID 5210 sistēmas un sistēmas objekta ID 9015
objekta.
Piezīme. Jums nav tiesības datu krātuvju vien veikt datu labošana.
Koda izmaiņas
Piezīme. Vienmēr pārbaudes kods novērš kontrolētā vidē pirms lietojat datoru ražošanas labojumus.
Lai novērstu šo problēmu, rīkojieties šādi:
-
Nomainiet šo kodu CalculateInvoiceDiscount funkciju Aprēķināt tirdzniecības atlaide koda (60) šādi:
Kods 1...GLAcc@1110002 : Record 15;
BEGIN
...Aizstāšanas kods = 1
...GLAcc@1110002 : Record 15;
// Add the following lines.
TempSalesLineRemainder@1110000 : Record 37;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.
BEGIN
...Kods 2
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Delete the following lines.
SalesLine2."Inv. Discount Amount" :=
ROUND(SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
SalesLine2."Inv. Discount Amount" :=
ROUND(
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100,0.01);
END;
// End of the deleted lines.
IF GLSetup."Payment Discount Type" =
...Aizstāšanas kods 2.
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Add the following lines.
BEGIN
TempSalesLineRemainder."Inv. Discount Amount" +=
SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100;
SalesLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempSalesLineRemainder."Inv. Discount Amount" +=
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100;
SalesLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
END;
// End of the added lines.
IF GLSetup."Payment Discount Type" =
...Kods 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Delete the following lines.
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount")
* SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") *
SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
SalesHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.
END;
...Aizstāšanas kodu 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Add the following lines.
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
// End of the added lines.
END;
... -
Izveidot funkciju Aprēķināt tirdzniecības atlaide koda (60) šādi:
PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END; -
Nomainiet šo kodu funkciju CalculateInvoiceDiscount pirkšanas.-Calc.Discount koda (70) šādi:
Kods 1...GLAcc@1110002 : Record 15;
BEGIN
...Aizstāšanas kods = 1
...GLAcc@1110002 : Record 15;
// Add the following lines.
TempPurchLineRemainder@1110000 : Record 39;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110004 : Decimal;
// End of the added lines.
BEGIN
...Kods 2
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Delete the following lines.
PurchLine2."Inv. Discount Amount" :=
ROUND(PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
PurchLine2."Inv. Discount Amount" :=
ROUND(
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
VendInvDisc."Discount %" / 100,0.01);
// End of the deleted lines.
END;
...Aizstāšanas kodu 2
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Add the following lines.
BEGIN
TempPurchLineRemainder."Inv. Discount Amount" +=
PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100;
PurchLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempPurchLineRemainder."Inv. Discount Amount" +=
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
VendInvDisc."Discount %" / 100;
PurchLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
// End of the added lines.
END;
...Kods 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Delete the following lines.
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.
END;
...Aizstāšanas kodu 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Add the following lines.
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
// End of the added lines.
END;
... -
Pirkšanas izveidot funkciju-Calc.Discount koda (70) šādi:
PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END; -
Nomainiet šo kodu CalculateInvoiceDiscount funkciju Aprēķināt pakalpojumu atlaides koda (5950) šādi:
Kods 1...GLAcc@1110002 : Record 15;
BEGIN
...Aizstāšanas kods = 1
...GLAcc@1110002 : Record 15;
// Add the following lines.
TempServLineRemainder@1110000 : Record 5902;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.
BEGIN
...Kods 2
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Delete the following lines.
ServiceLine2."Inv. Discount Amount" :=
ROUND(ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
ServiceLine2."Inv. Discount Amount" :=
ROUND(
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100,0.01);
END;
// End of the deleted lines.
IF GLSetup."Payment Discount Type" =
...Aizstāšanas kods 2.
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Add the following lines.
BEGIN
TempServLineRemainder."Inv. Discount Amount" +=
ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100;
ServiceLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempServLineRemainder."Inv. Discount Amount" +=
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100;
ServiceLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
END;
// End of the added lines.
IF GLSetup."Payment Discount Type" =
...Kods 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Delete the following lines.
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount")
* ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") *
ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
ServHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.
END;Aizstāšanas kodu 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Add the following lines.
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
// End of the added lines.
END;
... -
Izveidot funkciju Aprēķināt pakalpojumu atlaides koda (5950) šādi:
PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END;
Priekšnosacījumi
Datorā ir jābūt instalētai kādai no tālāk norādītos produktus, lai lietotu šo labojumfailu:
-
Microsoft Dynamics NAV 2009 R2 portugāļu valodā
-
Portugāļu valodā Microsoft Dynamics NAV 2009. gada 1. servisa pakotne
Informācija par noņemšanu
Nevar noņemt šo labojumfailu.
Statusa
Korporācija Microsoft ir apstiprinājusi, ka šī problēma pastāv Microsoft produktos, kas ir minēti sadaļā "Attiecas uz".
Piezīme. Šis ir STEIDZAMI PUBLICĒJAMS raksts, kas izveidots tieši Microsoft atbalsta organizācijā. Šajā rakstā ietvertā informācija ir sniegta, reaģējot uz nesen konstatētām problēmām. Tā kā šis raksts ir tapis pieejams neilgā laikā, materiālos var būt pareizrakstības kļūdas un tās var tikt labotas jebkurā laikā bez paziņojuma. Skatīt Lietošanasciti apsvērumi.
