Naudojant valiutos Microsoft Dynamics NAV 2009, taikomos apskaičiuojama neteisingai taikyti klientų arba taikyti tiekėjų įrašų puslapiai, jei mokėjimo valiuta sąskaitos faktūros vietos valiuta. Ši problema iškyla faile šiems produktams:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 1 pakeitimų paketas (SP1)

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. Prieš taikant keitimą, importuoti visus SEPA naujinimus.

Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

  1. Pakeisti taikyti klientų įrašų forma (232) ypatybės kodą taip:
    Esamas kodas

    ...OnModifyRecord=BEGIN
    CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
    EXIT(FALSE);
    END;
    ...

    Pastaba.

    ...OnModifyRecord=BEGIN
    CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
    IF "Applies-to ID" <> xRec."Applies-to ID" THEN
    CalcApplnAmount;
    EXIT(FALSE);
    END;
    ...
  2. Pakeisti HandlChosenEntries funkcija, t. y. taikyti klientų įrašai (232):
    Esamas kodas 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:
    ...

    Atsarginis kodas 1

    ...IF NOT FromZeroGenJnl THEN
    AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
    IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
    ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);

    CASE Type OF
    Type::Direct:
    ...

    Esamas kodas 2

    ...END ELSE BEGIN
    AppliedCustLedgEntryTemp.SETRANGE(Positive);
    AppliedCustLedgEntryTemp.FINDFIRST;
    END;

    IF (OldPmtDisc <> PmtDiscAmount) THEN
    ...

    Atsarginis kodas 2

    ...END ELSE BEGIN
    AppliedCustLedgEntryTemp.SETRANGE(Positive);
    AppliedCustLedgEntryTemp.FINDFIRST;
    ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
    END;

    IF (OldPmtDisc <> PmtDiscAmount) THEN
    ...
  3. Pakeisti ExchangeAmountsOnLedgerEntry funkcija, t. y. taikyti klientų įrašai (232):
    Esamas kodas

    ...CheckRounding;
    END;

    BEGIN
    END.
    }
    ...

    Pastaba.

    ...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.
    }
    ...
  4. Pakeisti taikyti tiekėjo įrašus formoje (233) ypatybės kodą taip:
    Esamas kodas

    ...OnModifyRecord=BEGIN
    CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
    EXIT(FALSE);
    END;
    ...

    Pastaba.

    ...OnModifyRecord=BEGIN
    CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
    IF "Applies-to ID" <> xRec."Applies-to ID" THEN
    CalcApplnAmount;
    EXIT(FALSE);
    END;
    ...
  5. Pakeisti HandlChosenEntries funkcija, t. y. taikyti tiekėjo įrašus (233):
    Esamas kodas 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:
    ...

    Atsarginis kodas 1

    ...IF NOT FromZeroGenJnl THEN
    AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
    IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
    ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);

    CASE Type OF
    Type::Direct:
    ...

    Esamas kodas 2

    ...END ELSE BEGIN
    AppliedVendLedgEntryTemp.SETRANGE(Positive);
    AppliedVendLedgEntryTemp.FINDFIRST;
    END;

    IF (OldPmtdisc <> PmtDiscAmount) THEN
    ...

    Atsarginis kodas 2

    ...END ELSE BEGIN
    AppliedVendLedgEntryTemp.SETRANGE(Positive);
    AppliedVendLedgEntryTemp.FINDFIRST;
    ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
    END;

    IF (OldPmtdisc <> PmtDiscAmount) THEN
    ...
  6. Pakeisti ExchangeAmountsOnLedgerEntry funkcija, t. y. taikyti tiekėjo įrašus (233):
    Esamas kodas

    ...AppliesToID := AppliesToID2;
    END;

    BEGIN
    END.
    }
    ...

    Pastaba.

    ...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.
    }
    ...


Būtinosios sąlygos

Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 SP1

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ų.

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijungti prie "Microsoft Insider"

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?

Dėkojame už jūsų atsiliepimus!

×