Wydajność pracy jest niska podczas wykonywania zadania wsadowego "Dopasuj koszt zapisy zapasów" w systemie Microsoft Dynamics NAV


Ten artykuł dotyczy systemu Microsoft Dynamics NAV dla wszystkich krajów i ustawień regionalnych języka.

Objawy


Po uruchomieniu zadania wsadowego "Dopasuj koszt zapisy zapasów", wydajność jest niska wyregulowane elementy, które używają metody kosztu średniego i użyteczność transferów. Ten problem występuje w następujących produktach:
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 z dodatkiem Service Pack 1
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 z dodatkiem Service Pack 1

Rozwiązanie


Informacje o poprawce

Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.

Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.


Informacje dotyczące instalacji

Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.

Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta Microsoft Navision są wylogowani systemu. Dotyczy to również użytkowników klienta Microsoft Navision Application Services (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.

Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.

Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
  • Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.
  • Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i dla obiektu 9015 identyfikator obiektu systemu .


Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.

Zmiany kodu

Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.
Aby rozwiązać ten problem, wykonaj następujące kroki:
  1. Dodaj następujące zmienne lokalne w funkcji Isavgcostexceptionw w tabeli zapisów wyceny (5802):
    • ItemLedgEntry@1002: Rekord 32;
    • xItemLedgEntry@1003: rekord 32;
    • TempItemLedgEntry@1005: Tymczasowe rekordu 32;
    • GoThroughChain@1004: Boolean;
  2. Zmień kod w funkcji Isavgcostexceptionw w tabeli zapisów wyceny (5802) w następujący sposób:
    Istniejący kod
    ...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);
    ...

    Kod zastępczy
    ...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);
    ...

  3. Dodaj następujące zmiennej globalnej w codeunit korekty zapasów (5895):
    • RevaluationPoint@1022: Tymczasowe rekordu 2000000026;
  4. Dodaj następujące zmienne lokalne w funkcji AvgValueEntriesToAdjustExist w codeunit korekty zapasów (5895):
    • CurrIsException@1009: Boolean;
    • NextIsException@1010: Boolean;
  5. Zmień kod w funkcji AvgValueEntriesToAdjustExist w codeunit korekty zapasów (5895) w następujący sposób:
    Istniejący kod
    ...    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
    ...

    Kod zastępczy
    ...    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
    ...

  6. Zmień kod w funkcji IsExcludeEntryFromAvgCostCalc w codeunit korekty zapasów (5895) w następujący sposób:
    Istniejący kod
    ...WITH ValueEntry DO BEGIN
    IF "Partial Revaluation" THEN
    ...

    Kod zastępczy
    ...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
    ...

Wymagania wstępne

Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 z dodatkiem Service Pack 1
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 z dodatkiem Service Pack 1
Ponadto musi mieć poprawkę 2481793, aby zastosować tę poprawkę.
Aby uzyskać więcej informacji, kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:
2481793 koszt jednostkowy elementów staje się ujemna po uruchomieniu przeszacowania na elementy, które używają metody kosztu średniego w systemie Microsoft Dynamics NAV

Informacje dotyczące usuwania

Nie można usunąć tej poprawki.

Stan


Firma Microsoft potwierdziła, że jest to problem występujący w produktach firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł " szybkiej publikacji" tworzony bezpośrednio przez organizację pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym dokumencie są dostarczane jako odpowiedź na pojawiające się problemy. W wyniku przyspieszonego udostępnienia, materiały te mogą zawierać błędy typograficzne i mogą być zmieniane w dowolnym czasie bez uprzedzenia. Zobacz Warunki użytkowania w celu uzyskania innych informacji.