Denne artikel gælder for Microsoft Dynamics NAV for alle lande og landestandarder.
Symptomer
Når du udfører kørslen "Juster omkostningsvareposter", oplever du langsom ydeevne, når varer, der bruger middel kostmetode og hyppig brug af Overførsler, justeres. Dette problem opstår i følgende produkter:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1
Løsning
Oplysninger om hotfix
Et understøttet hotfix er nu tilgængeligt fra Microsoft. Det er dog kun beregnet til at løse det problem, der er beskrevet i denne artikel. Anvend den kun på systemer, der oplever dette specifikke problem. Dette hotfix kan blive testet yderligere. Hvis du ikke er alvorligt berørt af dette problem, anbefaler vi derfor, at du venter på den næste Service Pack til Microsoft Dynamics NAV 2009 eller den næste Microsoft Dynamics NAV-version, der indeholder dette hotfix.
Bemærk! I særlige tilfælde kan gebyrer, der normalt påløber for supportopkald, blive annulleret, hvis en teknisk supportmedarbejder til Microsoft Dynamics og relaterede produkter afgør, at en bestemt opdatering løser dit problem. De sædvanlige supportomkostninger gælder for yderligere supportspørgsmål og -problemer, der ikke er kvalificeret til den pågældende opdatering.
Installationsoplysninger
Microsoft leverer kun programmeringseksempler til illustration uden garanti, hverken udtrykt eller underforstået. Dette omfatter, men er ikke begrænset til, underforståede garantier for salgbarhed eller egnethed til et bestemt formål. I denne artikel antages det, at du kender det programmeringssprog, der demonstreres, og med de værktøjer, der bruges til at oprette og foretage fejlfinding af procedurer. Microsofts supportteknikere kan hjælpe med at forklare funktionaliteten af en bestemt procedure, men de vil ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer, der opfylder dine specifikke krav.
Bemærk! Før du installerer dette hotfix, skal du kontrollere, at alle microsoft Navision-klientbrugere er logget af systemet. Dette omfatter klientbrugere af Microsoft Navision Application Services (NAS). Du bør være den eneste klientbruger, der er logget på, når du implementerer dette hotfix.
Hvis du vil implementere dette hotfix, skal du have en udviklerlicens.
Vi anbefaler, at brugerkontoen i vinduet Windows-logon eller i vinduet Databaselogon tildeles rolle-id'et "SUPER". Hvis brugerkontoen ikke kan tildeles rolle-id'et "SUPER", skal du kontrollere, at brugerkontoen har følgende tilladelser:
- Tilladelsen Rediger for det objekt, du vil ændre.
- Tilladelsen Execute for System Object ID 5210-objektet og for System Object ID 9015-objektet.
Bemærk! Du behøver ikke at have rettigheder til datalagrene, medmindre du skal udføre datareparation.
Kodeændringer
Bemærk! Test altid koderettelser i et kontrolleret miljø, før du anvender rettelserne på dine produktionscomputere.
Du kan løse dette problem ved at følge disse trin:
Tilføj følgende lokale variabler i funktionen IsAvgCostException i tabellen Værdipost (5802):
- ItemLedgEntry@1002 : Record 32;
- xItemLedgEntry@1003 : Record 32;
- TempItemLedgEntry@1005 : TEMPORARY Record 32;
- GoThroughChain@1004 : boolesk;
Skift koden i funktionen IsAvgCostException i værdiindtastningstabellen (5802) på følgende måde:
Eksisterende kode... IF "Partial Revaluation" THEN EXIT(TRUE); // Delete the following lines. IF "Item Ledger Entry Type" = "Item Ledger Entry Type"::Transfer THEN EXIT(TRUE); IF ItemApplnEntry.AppliedInbndEntryExists("Item Ledger Entry No.",TRUE) THEN EXIT(TRUE); // End of the lines. EXIT(FALSE); ...Erstatningskode
... IF "Partial Revaluation" THEN EXIT(TRUE); // Add the following lines. IF "Item Ledger Entry Type" = "Item Ledger Entry Type"::Consumption THEN GoThroughChain := ItemApplnEntry.AppliedFromEntryExists("Item Ledger Entry No.") ELSE GoThroughChain := ItemApplnEntry.AppliedInbndEntryExists("Item Ledger Entry No.",TRUE); IF GoThroughChain THEN REPEAT IF "Item Ledger Entry Type" = "Item Ledger Entry Type"::Transfer THEN ItemLedgEntry.GET(ItemApplnEntry."Inbound Item Entry No.") ELSE ItemLedgEntry.GET(ItemApplnEntry."Outbound Item Entry No."); IF ItemLedgEntry."Entry No." <> xItemLedgEntry."Entry No." THEN BEGIN xItemLedgEntry := ItemLedgEntry; ItemApplnEntry.GetVisitedEntries(ItemLedgEntry,TempItemLedgEntry); TempItemLedgEntry.SETCURRENTKEY("Item No.",Positive,"Location Code","Variant Code"); TempItemLedgEntry.SETRANGE("Item No.","Item No."); TempItemLedgEntry.SETRANGE(Positive,TRUE); TempItemLedgEntry.SETRANGE("Location Code","Location Code"); TempItemLedgEntry.SETRANGE("Variant Code","Variant Code"); IF NOT TempItemLedgEntry.ISEMPTY THEN EXIT(TRUE); END; UNTIL ItemApplnEntry.NEXT = 0; // End of the lines. EXIT(FALSE); ...Tilføj følgende globale variabel i kodeenheden Lagerregulering (5895):
- RevaluationPoint@1022 : TEMPORARY Record 2000000026;
Tilføj følgende lokale variabler i funktionen AvgValueEntriesToAdjustExist i kodeenheden Lagerregulering (5895):
- CurrIsException@1009 : boolesk;
- NextIsException@1010 : boolesk;
Skift koden i funktionen AvgValueEntriesToAdjustExist i kodeenheden Lagerregulering (5895) på følgende måde:
Eksisterende kode... END; FINDSET; REPEAT IF "Valued By Average Cost" AND NOT Adjustment AND ("Valued Quantity" < 0) THEN BEGIN OutbndValueEntry := ValueEntry; OutbndValueEntry.INSERT; FindNextRange := FALSE; END; // Delete the following lines. IF IsAvgCostException THEN BEGIN AvgCostExceptionBuf.Number := "Entry No."; AvgCostExceptionBuf.INSERT; END; // End of the lines. IF ("Entry Type" = "Entry Type"::Revaluation) OR ...Erstatningskode
... END; CLEAR(RevaluationPoint); RevaluationPoint.DELETEALL; FINDSET; REPEAT // Add the following lines. IF "Partial Revaluation" THEN BEGIN RevaluationPoint.Number := "Entry No."; RevaluationPoint.INSERT; END; // End of the lines. IF "Valued By Average Cost" AND NOT Adjustment AND ("Valued Quantity" < 0) THEN BEGIN OutbndValueEntry := ValueEntry; OutbndValueEntry.INSERT; FindNextRange := FALSE; END; // Add the following lines. IF NOT Adjustment THEN BEGIN CurrIsException := NextIsException; NextIsException := IsAvgCostException; IF NextIsException OR CurrIsException THEN BEGIN AvgCostExceptionBuf.Number := "Entry No."; AvgCostExceptionBuf.INSERT; END; END; // End of the lines. IF ("Entry Type" = "Entry Type"::Revaluation) OR ...Skift koden i funktionen IsExcludeEntryFromAvgCostCalc i kodeenheden Lagerregulering (5895) på følgende måde:
Eksisterende kode... WITH ValueEntry DO BEGIN IF "Partial Revaluation" THEN ...Erstatningskode
... WITH ValueEntry DO BEGIN // Add the following lines. RevaluationPoint.SETRANGE(Number,"Entry No.",OutbndValueEntry."Entry No."); IF NOT RevaluationPoint.ISEMPTY THEN EXIT(FALSE); // End of the lines. IF "Partial Revaluation" THEN ...
Forudsætninger
Du skal have et af følgende produkter installeret for at anvende dette hotfix:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1
Desuden skal du have hotfixet 2481793 installeret for at anvende dette hotfix.
Du kan få mere at vide ved at klikke på nedenstående artikelnummer for at få vist artiklen i Microsoft Knowledge Base:
2481793 Kostprisen for varer bliver negativ, når du har kørt værdireguleringen på varer, der bruger den gennemsnitlige efterkalkulationsmetode i Microsoft Dynamics NAV
Oplysninger om fjernelse
Du kan ikke fjerne dette hotfix.
Status
Microsoft har bekræftet, at dette er et problem i de Microsoft-produkter, der er angivet i afsnittet "Gælder for".
Bemærk! Dette er en "FAST PUBLISH"-artikel, der er oprettet direkte fra Microsoft-supportorganisationen. Oplysningerne heri leveres, som de er som svar på nye problemer. Som følge af den hastighed, der er ved at stille den til rådighed, kan materialerne indeholde typografiske fejl og kan til enhver tid revideres uden varsel. Se Vilkår for anvendelse for andre overvejelser.