Lietojot Microsoft Dynamics NAV 2009 Valūtas, izmantotais daudzums tiek aprēķināta nepareizi lietot klientu vai piegādātāju ieraksti lapas lietošanas lietojot maksājumu valūtā rēķiniem vietējā valūtā. Šī problēma rodas ar šādiem produktiem:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009. gada 1. servisa pakotne (SP1)
Risinājums
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 nogaidīt, līdz tiks izlaista nākamā servisa pakotne Microsoft Dynamics NAV 2009 vai nākamo Microsoft Dynamics NAV versiju, kurā 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) pakalpojumus. 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
objektu.
Piezīme. Jums nav tiesības datu krātuvju vien veikt datu labošana.
Koda izmaiņas
Piezīme vienmēr pārbaudīt kodu labojumu kontrolētā vidē, pirms lietojat datoru ražošanas labojumus. Pirms izmaiņu, importējiet SEPA visus atjauninājumus.
Lai novērstu šo problēmu, rīkojieties šādi:
-
Nomainiet šo kodu rekvizītos attiecināt klienta ierakstus formā (232) šādi:
Kods...OnModifyRecord=BEGIN
CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
EXIT(FALSE);
END;
...Aizstāšanas kodu
...OnModifyRecord=BEGIN
CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
IF "Applies-to ID" <> xRec."Applies-to ID" THEN
CalcApplnAmount;
EXIT(FALSE);
END;
... -
Nomainiet šo kodu HandlChosenEntries funkciju Attiecināt klienta ierakstus formā (232) šādi:
Kods 1...IF NOT FromZeroGenJnl THEN
AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");
IF Type = Type::Direct THEN
CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
ELSE
CalculateCurrency := TRUE;
IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
AppliedCustLedgEntryTemp."Remaining Amount" :=
GenJnlPostLine.ExchAmount(
AppliedCustLedgEntryTemp."Remaining Amount",
AppliedCustLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
GenJnlPostLine.ExchAmount(
AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
AppliedCustLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedCustLedgEntryTemp."Amount to Apply" :=
GenJnlPostLine.ExchAmount(
AppliedCustLedgEntryTemp."Amount to Apply",
AppliedCustLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
END;
CASE Type OF
Type::Direct:
...Aizstāšanas kods = 1
...IF NOT FromZeroGenJnl THEN
AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
CASE Type OF
Type::Direct:
...Kods 2.
...END ELSE BEGIN
AppliedCustLedgEntryTemp.SETRANGE(Positive);
AppliedCustLedgEntryTemp.FINDFIRST;
END;
IF (OldPmtDisc <> PmtDiscAmount) THEN
...Aizstāšanas kods 2.
...END ELSE BEGIN
AppliedCustLedgEntryTemp.SETRANGE(Positive);
AppliedCustLedgEntryTemp.FINDFIRST;
ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
END;
IF (OldPmtDisc <> PmtDiscAmount) THEN
... -
Nomainiet šo kodu ExchangeAmountsOnLedgerEntry funkciju Attiecināt klienta ierakstus formā (232) šādi:
Kods...CheckRounding;
END;
BEGIN
END.
}
...Aizstāšanas kodu
...CheckRounding;
END;
LOCAL PROCEDURE ExchangeAmountsOnLedgerEntry@20(Type@1003 : 'Direct,GenJnlLine,SalesHeader';CurrencyCode@1000 : Code[10];VAR AppliedCustLedgEntryTemp@1001 : Record 21);
VAR
CalculateCurrency@1002 : Boolean;
BEGIN
AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");
IF Type = Type::Direct THEN
CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
ELSE
CalculateCurrency := TRUE;
IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
AppliedCustLedgEntryTemp."Remaining Amount" :=
GenJnlPostLine.ExchAmount(
AppliedCustLedgEntryTemp."Remaining Amount",
AppliedCustLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
GenJnlPostLine.ExchAmount(
AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
AppliedCustLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedCustLedgEntryTemp."Amount to Apply" :=
GenJnlPostLine.ExchAmount(
AppliedCustLedgEntryTemp."Amount to Apply",
AppliedCustLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
END;
END;
BEGIN
END.
}
... -
Nomainiet šo kodu rekvizītos lietot piegādātāju ierakstu veidā (233) šādi:
Kods...OnModifyRecord=BEGIN
CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
EXIT(FALSE);
END;
...Aizstāšanas kodu
...OnModifyRecord=BEGIN
CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
IF "Applies-to ID" <> xRec."Applies-to ID" THEN
CalcApplnAmount;
EXIT(FALSE);
END;
... -
Nomainiet šo kodu HandlChosenEntries funkciju attiecināt piegādātāja ierakstus formā (233) šādi:
Kods 1...IF NOT FromZeroGenJnl THEN
AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");
IF Type = Type::Direct THEN
CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
ELSE
CalculateCurrency := TRUE;
IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
AppliedVendLedgEntryTemp."Remaining Amount" :=
GenJnlPostLine.ExchAmount(
AppliedVendLedgEntryTemp."Remaining Amount",
AppliedVendLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
GenJnlPostLine.ExchAmount(
AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
AppliedVendLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedVendLedgEntryTemp."Amount to Apply" :=
GenJnlPostLine.ExchAmount(
AppliedVendLedgEntryTemp."Amount to Apply",
AppliedVendLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
END;
CASE Type OF
Type::Direct:
...Aizstāšanas kods = 1
...IF NOT FromZeroGenJnl THEN
AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
CASE Type OF
Type::Direct:
...Kods 2.
...END ELSE BEGIN
AppliedVendLedgEntryTemp.SETRANGE(Positive);
AppliedVendLedgEntryTemp.FINDFIRST;
END;
IF (OldPmtdisc <> PmtDiscAmount) THEN
...Aizstāšanas kods 2.
...END ELSE BEGIN
AppliedVendLedgEntryTemp.SETRANGE(Positive);
AppliedVendLedgEntryTemp.FINDFIRST;
ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
END;
IF (OldPmtdisc <> PmtDiscAmount) THEN
... -
Nomainiet šo kodu ExchangeAmountsOnLedgerEntry funkciju attiecināt piegādātāja ierakstus formā (233) šādi:
Kods...AppliesToID := AppliesToID2;
END;
BEGIN
END.
}
...Aizstāšanas kodu
...AppliesToID := AppliesToID2;
END;
PROCEDURE ExchangeAmountsOnLedgerEntry@14(Type@1000 : 'Direct,GenJnlLine,PurchHeader';CurrencyCode@1001 : Code[10];VAR AppliedVendLedgEntryTemp@1002 : Record 25);
VAR
CalculateCurrency@1003 : Boolean;
BEGIN
AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");
IF Type = Type::Direct THEN
CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
ELSE
CalculateCurrency := TRUE;
IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
AppliedVendLedgEntryTemp."Remaining Amount" :=
GenJnlPostLine.ExchAmount(
AppliedVendLedgEntryTemp."Remaining Amount",
AppliedVendLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
GenJnlPostLine.ExchAmount(
AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
AppliedVendLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
AppliedVendLedgEntryTemp."Amount to Apply" :=
GenJnlPostLine.ExchAmount(
AppliedVendLedgEntryTemp."Amount to Apply",
AppliedVendLedgEntryTemp."Currency Code",
CurrencyCode,"Posting Date");
END;
END;
BEGIN
END.
}
...
Priekšnosacījumi
Datorā ir jābūt instalētai kādai no lai lietotu šo labojumfailu šādiem produktiem:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Informācija par noņemšanu
Nevar noņemt šo labojumfailu.
Statuss
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.