Valuuta kasutamisel Microsoft Dynamics nav-i 2009 seotud summa arvestatakse valesti Rakenda kliendi või Hankija kanded lehed rakendamist, kui rakendate makse valuuta arvete kohaliku valuuta. See probleem ilmneb järgmiste toodetega:

  • Microsoft Dynamics nav-i 2009 R2

  • Microsoft Dynamics nav-i 2009 Service Pack 1 (SP1)

Lahendus

Kiirparanduse teave

Lasknud välja toetatava käigultparanduse on nüüd Microsoftilt saadaval. Kuid see on ette nähtud ainult selles artiklis kirjeldatud probleemi kõrvaldamiseks. Rakendage seda ainult süsteemides, kus ilmneb see konkreetne probleem. Seda käigultparandust võidakse täiendavalt testida. Seega, kui probleem teie tööd tõsiselt ei kahjusta, soovitame oodata järgmist hoolduspaketti Microsoft Dynamics nav-i 2009 või järgmise Microsoft Dynamics nav-i versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel kulud, mis tekivad teatud palub tühistada saab kui tehniline toetus Professional Microsoft Dynamics ja nendega seotud toodete leiab, et mõni konkreetne värskendus lahendab teie probleemi. Tavaline tugiteenuste kohaldatakse täiendavat tugiteenust vajavatele küsimustele ning probleemidele, mis pole lahendatavad konkreetse värskenduse installimisega.

Installiteave

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri talitlust selgitada. Siiski ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele.

Märkus. Enne selle kiirparanduse installimist veenduge, et kõik Microsoft Dynamics nav-i kliendi kasutajat sisse loginud süsteem välja. See hõlmab Microsoft Dynamics nav-i rakenduste Server (NAS) teenuseid. Peaks olema ainult kliendi kasutaja on sisse logitud, kui otsustate seda käigultparandust.

Selle kiirparanduse rakendamiseks peab teil olema arendaja litsentsi.

Soovitame Windowsi sisselogimise aken või aken andmebaasi logimine kasutajakonto määrata "SUPER" rolli ID. Kui "SUPER" rolli ID-d ei saa määratud kasutajakonto, peate veenduma, et kasutaja konto on järgmised õigused:

  • Sa muutuvad objekti Muuda õigusi.

  • Käivita luba süsteemi objekti ID 5210 objekti ja süsteemi objekti ID 9015

    objekti.

Märkus. Teil pole õigust andmeid talletab enne, kui olete andmete parandamiseks.

Koodi muudatusi

Märkus alati test koodi lahendab kontrollitavas keskkonnas enne rakendamist tootmine arvutite parandused. Enne muudatuse rakendamist proovige importida kõik SEPA värskendused.

Selle probleemi lahendamiseks toimige järgmiselt.

  1. Muuta kliendi kannete sidumine vormil (232) kood järgmiselt:
    Kood

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

    Eemaldamise teave

    ...OnModifyRecord=BEGIN
    CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
    IF "Applies-to ID" <> xRec."Applies-to ID" THEN
    CalcApplnAmount;
    EXIT(FALSE);
    END;
    ...
  2. Muuta koodi HandlChosenEntries funktsiooni Kliendi kannete sidumine vormil (232) järgmiselt:
    Kood 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:
    ...

    Kood 1

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

    CASE Type OF
    Type::Direct:
    ...

    Kood 2

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

    IF (OldPmtDisc <> PmtDiscAmount) THEN
    ...

    Asendamine kood 2

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

    IF (OldPmtDisc <> PmtDiscAmount) THEN
    ...
  3. Muuta koodi ExchangeAmountsOnLedgerEntry funktsiooni Kliendi kannete sidumine vormil (232) järgmiselt:
    Kood

    ...CheckRounding;
    END;

    BEGIN
    END.
    }
    ...

    Eemaldamise teave

    ...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. Muutke vormil Hankija kannete sidumine (233) kood järgmiselt:
    Kood

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

    Eemaldamise teave

    ...OnModifyRecord=BEGIN
    CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
    IF "Applies-to ID" <> xRec."Applies-to ID" THEN
    CalcApplnAmount;
    EXIT(FALSE);
    END;
    ...
  5. Muuta koodi HandlChosenEntries funktsiooni hankija kannete sidumine vormil (233) järgmiselt:
    Kood 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:
    ...

    Kood 1

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

    CASE Type OF
    Type::Direct:
    ...

    Kood 2

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

    IF (OldPmtdisc <> PmtDiscAmount) THEN
    ...

    Asendamine kood 2

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

    IF (OldPmtdisc <> PmtDiscAmount) THEN
    ...
  6. Muuta koodi ExchangeAmountsOnLedgerEntry funktsiooni hankija kannete sidumine vormil (233) järgmiselt:
    Kood

    ...AppliesToID := AppliesToID2;
    END;

    BEGIN
    END.
    }
    ...

    Eemaldamise teave

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


Eeltingimused

Teil peab olema üks selle kiirparanduse installinud järgmisi tooteid:

  • Microsoft Dynamics nav-i 2009 R2

  • Microsoft Dynamics nav-i 2009 SP1

Eemaldamise teave

See käigultparandus ei saa eemaldada.

Olek

Microsoft on kinnitanud, et see probleem esineb jaotises "Kehtib järgmiste toodete kohta" loetletud Microsofti toodetel.

Märkus. See on "Kiire avaldamise" artikli loonud otse Microsofti tugiteenuse pakkujalt. Siintoodud teave on esitatud lähtudes-olemasoleval kujul vastusena ilmnenud probleemidele. Kiire avaldamise materjalides esineda trükivigu ja võidakse muuta ette teatamata. Vt Kasutustingimusedmuid kaalutlusi.

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liitu Microsofti Insideri programmis osalejad

Kas sellest teabest oli abi?

Kui rahul te keelekvaliteediga olete?
Mis mõjutas teie hinnangut?

Täname tagasiside eest!

×