Kui väljale aegumiskuupäev on määratud lepingu, mis on määratud Microsoft Dynamics nav-i 2009 aasta arve aja väli pearaamatu kannete loodud vale summa


Käesolev artikkel kehtib Microsoft Dynamics nav-i kõik riigid ja kõik language locales.

Sümptomid


Oletame, sisestage Microsoft Dynamics nav-i 2009 teenuseleping vahekaardi üksikasjad väljal Aegumiskuupäev kuupäev. Kui lepingu Arve perioodi väärtuseks on seatud aasta, luuakse vale summa vastava teenuse pearaamatu kanded.
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. Aga 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. Kui see probleem teie tööd tõsiselt ei kahjusta, soovitame oodata järgmist hoolduspaketti Microsoft Dynamics nav-i või järgmise Microsoft Dynamics nav-i versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel kulud, mis tekivad tavaliselt abi 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 funktsiooni selgitada, kuid 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 Navision kliendi kasutajat sisse loginud süsteem välja. See hõlmab Microsoft Navision Application teenused (NAS) kliendi kasutajatele. 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.
Selle probleemi lahendamiseks toimige järgmiselt.
  1. Lisage uus kohaliku muutuja CreateServiceLedgerEntry funktsioon ServContractManagement koodiplokk (5940) ning määrake muutuja järgmiselt:
    • Nimi: CountofEntryLoop
    • Andmetüüp: täisarv
  2. Muuda koodi CreateServiceLedgerEntry funktsioon ServContractManagement koodiplokk (5940) järgmiselt:
    Kood
    ...IF (ServContractLine."Contract Expiration Date" < WDate) AND
    (ServContractLine."Contract Expiration Date" <> 0D)
    THEN BEGIN
    Days := DATE2DMY(ServContractLine."Contract Expiration Date",1);

    // Delete the following lines.
    NoOfPayments := NoOfPayments - 1;
    END;
    // End of the lines.

    WDate := InvTo;
    IF (WDate > ServContractLine."Contract Expiration Date") AND
    (ServContractLine."Contract Expiration Date" <> 0D)
    THEN
    WDate := ServContractLine."Contract Expiration Date";
    DueDate := WDate;
    InvAmountReal := InvAmountReal + CalcContractLineAmount(ServContractLine."Line Amount",InvFrom,WDate);
    InvUnitPriceReal := InvUnitPriceReal + CalcContractLineAmount(ServContractLine."Line Value",InvFrom,WDate);
    InvCostAmtReal := InvCostAmtReal + CalcContractLineAmount(ServContractLine."Line Cost",InvFrom,WDate);
    InvDiscountAmtReal := InvDiscountAmtReal + CalcContractLineAmount(ServContractLine."Line Discount Amount",InvFrom,WDate);
    IF DueDate <> CALCDATE('<CM>',DueDate) THEN
    DueDate := CALCDATE('<-CM-1D>',DueDate);
    NonDistrAmount := -CalcContractLineAmount(ServContractLine."Line Amount",InvFrom,DueDate);
    NonDistrUnitPrice := -CalcContractLineAmount(ServContractLine."Line Value",InvFrom,DueDate);
    NonDistrCostAmt := CalcContractLineAmount(ServContractLine."Line Cost",InvFrom,DueDate);
    NonDistrDiscountAmt := CalcContractLineAmount(ServContractLine."Line Discount Amount",InvFrom,DueDate);
    ServLedgEntry."Service Item No. (Serviced)" := ServContractLine."Service Item No.";
    ServLedgEntry."Item No. (Serviced)" := ServContractLine."Item No.";
    ServLedgEntry."Serial No. (Serviced)" := ServContractLine."Serial No.";
    DueDate := ServContractHeader."Next Invoice Date";

    IF AddingNewLines THEN
    DueDate := InvFrom;

    // Delete the following line.
    FOR Index := 1 TO NoOfPayments DO BEGIN

    ServLedgEntry."Amount (LCY)" :=
    ROUND(NonDistrAmount / (NoOfPayments + 1 - Index),Currency."Amount Rounding Precision");
    ServLedgEntry."Unit Price" :=
    ...
    Eemaldamise teave
    ...IF (ServContractLine."Contract Expiration Date" < WDate) AND
    (ServContractLine."Contract Expiration Date" <> 0D)
    THEN BEGIN
    Days := DATE2DMY(ServContractLine."Contract Expiration Date",1);

    // Add the following lines.
    CountofEntryLoop := NoOfPayments - 1;
    END ELSE
    CountofEntryLoop := NoOfPayments;
    // End of the lines.

    WDate := InvTo;
    IF (WDate > ServContractLine."Contract Expiration Date") AND
    (ServContractLine."Contract Expiration Date" <> 0D)
    THEN
    WDate := ServContractLine."Contract Expiration Date";
    DueDate := WDate;
    InvAmountReal := InvAmountReal + CalcContractLineAmount(ServContractLine."Line Amount",InvFrom,WDate);
    InvUnitPriceReal := InvUnitPriceReal + CalcContractLineAmount(ServContractLine."Line Value",InvFrom,WDate);
    InvCostAmtReal := InvCostAmtReal + CalcContractLineAmount(ServContractLine."Line Cost",InvFrom,WDate);
    InvDiscountAmtReal := InvDiscountAmtReal + CalcContractLineAmount(ServContractLine."Line Discount Amount",InvFrom,WDate);
    IF DueDate <> CALCDATE('<CM>',DueDate) THEN
    DueDate := CALCDATE('<-CM-1D>',DueDate);
    NonDistrAmount := -CalcContractLineAmount(ServContractLine."Line Amount",InvFrom,DueDate);
    NonDistrUnitPrice := -CalcContractLineAmount(ServContractLine."Line Value",InvFrom,DueDate);
    NonDistrCostAmt := CalcContractLineAmount(ServContractLine."Line Cost",InvFrom,DueDate);
    NonDistrDiscountAmt := CalcContractLineAmount(ServContractLine."Line Discount Amount",InvFrom,DueDate);
    ServLedgEntry."Service Item No. (Serviced)" := ServContractLine."Service Item No.";
    ServLedgEntry."Item No. (Serviced)" := ServContractLine."Item No.";
    ServLedgEntry."Serial No. (Serviced)" := ServContractLine."Serial No.";
    DueDate := ServContractHeader."Next Invoice Date";

    IF AddingNewLines THEN
    DueDate := InvFrom;

    // Add the following line.
    FOR Index := 1 TO CountofEntryLoop DO BEGIN

    ServLedgEntry."Amount (LCY)" :=
    ROUND(NonDistrAmount / (NoOfPayments + 1 - Index),Currency."Amount Rounding Precision");
    ServLedgEntry."Unit Price" :=
    ...

Eeltingimused

Teil peab olema üks selle kiirparanduse installinud järgmisi tooteid:
  • Microsoft Dynamics nav-i 2009 R2
  • Microsoft Dynamics nav-i 2009 Service Pack 1 (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. Vaadake Kasutustingimused muid kaalutlusi.