Üksuste ühiku omahind muutub negatiivseks pärast microsoft Dynamics NAV-is keskmist kuluarvestusmeetodit kasutavate kaupade ümberhindamise käivitamist.

Rakenduskoht

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1

See artikkel kehtib Microsoft Dynamics NAV-i kohta kõigis riikides ja kõigis keele lokaadides.

Sümptomid

Oletagem, et teil on kaup, mis kasutab keskmist kuluarvestusmeetodit. Kui käivitate üksuse ümberhindamise, muutub üksuse ühiku omahind ootamatult negatiivseks. Lisaks on teil kauba kohta pakett-töö Kulu täpsustamine sooritamisel aeglane jõudlus.
See probleem ilmneb järgmistes toodetes:

Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 service Pack 1 (SP1) koos kiirparanduse 975251 rakendatud

Märkus. Kiirparanduste 975251 kohta lisateabe saamiseks klõpsake Microsofti teabebaasis oleva artikli kuvamiseks järgmist artiklinumbrit.

975251 Pakett-töö Korrigeeri kulu keskmist maksumust sooritamisel rakenduses Microsoft Dynamics NAV 5.0 on jõudlus aeglane

Lahendus

Kiirparanduse teave

Microsoftilt on nüüd saadaval toetatud kiirparandus. Siiski on see mõeldud ainult selles artiklis kirjeldatud probleemi lahendamiseks. Rakendage see ainult süsteemidele, kus esineb see konkreetne probleem. See kiirparandus võib saada täiendavaid katseid. Seega, kui see probleem ei mõjuta teid tõsiselt, soovitame oodata järgmist Microsoft Dynamics NAV 2009 hoolduspaketti või järgmist Microsoft Dynamics NAV versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel võidakse tavaliselt tugiteenuse kõnede eest tehtud tasud tühistada, kui Microsoft Dynamicsi ja seotud toodete tehniline tugitöötaja leiab, et konkreetne värskendus lahendab teie probleemi. Tavapärased toetuskulud kehtivad täiendavatele tugiteenustega seotud küsimustele ja probleemidele, mis ei vasta kõnealuse värskenduse tingimustele.

Installiteave

Microsoft pakub programmeerimise näiteid ainult illustreerimiseks, ilma et garantii oleks väljendatud või kaudselt. See hõlmab kaubastatavuse või kindlaks otstarbeks sobivuse kaudseid garantiisid, kuid mitte ainult. Selles artiklis eeldatakse, et olete tuttav kuvatava programmeerimiskeelega ja tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugiteenuste insenerid saavad aidata selgitada konkreetse protseduuri funktsionaalsust, kuid nad ei muuda neid näiteid selleks, et pakkuda teie vajadustele vastavaid lisafunktsioone või koostada protseduure.

Märkus. Enne selle kiirparanduse installimist veenduge, et kõik Microsoft Navisioni klientrakenduse kasutajad oleksid süsteemist välja logitud. See hõlmab ka Microsoft Navision Application Servicesi (NAS) klientkasutajaid. Peaksite olema ainus klientkasutaja, kes on sisse logitud, kui rakendate selle kiirparanduse.

Selle kiirparanduse rakendamiseks peab teil olema arendaja litsents.

Soovitame, et aknas Windowsi sisselogimised või aknas Andmebaasi sisselogimised olevale kasutajakontole määrataks "SUPER" rolli ID. Kui kasutajakontole ei saa superrolli ID-d määrata, peate kontrollima, kas kasutajakontol on järgmised õigused.

Muudetava objekti muutmisõigus.
Süsteemiobjekti ID 5210 ja süsteemiobjekti ID 9015 täitmisõigus.

Märkus. Teil pole andmesalvede jaoks õigusi, kui te ei pea tegema andmete parandamist.

Koodi muudatused

Märkus. Enne paranduste rakendamist tööarvutitele testige koodiparandusi alati kontrollitud keskkonnas.
Probleemi lahendamiseks tehke järgmist.

Muutke funktsiooni AvgValueEntriesToAdjustExist (Inventory Adjustment codeunit (5895) kood järgmiselt:

...
         IF FindNextRange THEN BEGIN
           AvgCostAdjmtEntryPoint."Valuation Date" := GetNextDate(AvgCostAdjmtEntryPoint."Valuation Date");
           AvgValueEntriesToAdjustExist(OutbndValueEntry,ExcludedValueEntry,AvgCostAdjmtEntryPoint);
         END;  

  // Add the following line.
  OutbndValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 

...

Muutke funktsiooni IsExcludeEntryFromAvgCostCalc (Inventory Adjustment codeunit (5895) kood järgmiselt:

...
         IF NOT "Valued By Average Cost" THEN
           EXIT(FALSE);
         ItemLedgEntry.GET("Item Ledger Entry No.");
         IF ItemLedgEntry.Positive THEN
           EXIT(FALSE);

// Delete the following line.
EXIT(TRUE); 

// Add the following line.
       EXIT("Item Ledger Entry No." > OutbndValueEntry."Item Ledger Entry No."); 
...

...
    // Delete the following lines.
    LOCAL PROCEDURE GetEntryNoToStartAt@78
    BEGIN
      StartAt := 0;
      WITH ExcludedValueEntry DO BEGIN
        RESET;
        IF FINDFIRST THEN
          REPEAT
            IF "Partial Revaluation" AND
               (OutbndValueEntry."Entry No." > "Entry No.")
            THEN
              StartAt := "Entry No.";
          UNTIL NEXT = 0;
      END;
      EXIT(StartAt + 1);
    END;
    // End of the lines.
...

Muutke funktsiooni AdjustItemAvgCost koodi varude korrigeerimise koodiplokis (5895) järgmiseks:

...
            WHILE NOT Restart AND AvgValueEntriesToAdjustExist(
                    TempOutbndValueEntry,TempExcludedValueEntry,AvgCostAdjmtEntryPoint)
            DO BEGIN
              REPEAT

                // Delete the following lines.
                TempExcludedValueEntry.SETFILTER("Entry No.",'>=%1',                          
                  GetEntryNoToStartAt(TempOutbndValueEntry,TempExcludedValueEntry)); 
                // End of the lines.

                AdjustOutbndAvgEntry(TempOutbndValueEntry,TempExcludedValueEntry);
                UpdateConsumpAvgEntry(TempOutbndValueEntry);
              UNTIL TempOutbndValueEntry.NEXT = 0;
...

Muutke funktsiooni IsExcludeEntryFromAvgCostCalc (Inventory Adjustment codeunit (5895) kood järgmiselt:

...
    BEGIN
      WITH ValueEntry DO BEGIN
        IF "Partial Revaluation" THEN         

          // Delete the following line.
          EXIT(TRUE);                                                                           

          // Add the following lines.
          EXIT(                                                                                 
            ("Entry No." > OutbndValueEntry."Entry No.") OR                                     
            (("Entry No." < OutbndValueEntry."Entry No.") AND NOT                               
             IncludedInCostCalculation(ValueEntry,OutbndValueEntry."Item Ledger Entry No.")));  
          // End of the lines.

        IF "Item Ledger Entry No." = OutbndValueEntry."Item Ledger Entry No." THEN
          EXIT(TRUE);
...

Eeltingimused

Selle kiirparanduse rakendamiseks peab teil olema installitud üks järgmistest toodetest:

Microsoft Dynamics NAV 2009 Service Pack 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1 with hotfix 975251 applied

Eemaldamisteave

Seda kiirparandust ei saa eemaldada.

Olek

Microsoft on kinnitanud, et see on jaotises „Rakenduskoht“ loetletud Microsofti toodete korral esinev probleem.

Märkus. See on otse Microsofti tugiteenuste organisatsioonist loodud FAST PUBLISH-artikkel. Käesolevas artiklis sisalduv teave on esitatud kujul, mis on seotud tekkivate küsimustega. Materjali kättesaadavaks tegemise kiiruse tõttu võivad materjalid sisaldada kirjavigu ja neid võib igal ajal ette teatamata läbi vaadata. Muid kaalutlusi leiate teemast Kasutustingimused .