Systém neaktualizuje hodnoty v dialogovém okně Časový rozvrh zaměstnance po změně hodnot na řádku mzdového kalendáře v ruské verzi aplikace Microsoft Dynamics NAV 2009 R2

Platí pro
Microsoft Dynamics NAV 2009 R2

Tento článek se týká aplikace Microsoft Dynamics NAV pro národní prostředí ruského jazyka.

Příznaky

Předpokládejme, že nainstalujete místní kritickou aktualizaci PS59774 a místní důležitou aktualizaci PS60060 pro ruskou verzi aplikace Microsoft Dynamics NAV 2009 R2. Další informace naleznete na následujících webech společnosti Microsoft:

Po změně hodnot v některých polích v řádku mzdového kalendáře systém neaktualizuje hodnoty v odpovídajících polích v dialogovém okně Časový rozvrh zaměstnance podle očekávání.

Řešení

Informace o opravě hotfix

Od Microsoftu je teď k dispozici podporovaná oprava hotfix. Účelem je však pouze vyřešení problému, který je popsán v tomto článku. Aplikujte ho jenom na systémy, ve kterých dochází k tomuto konkrétnímu problému. Tato oprava hotfix může projít dalším testováním. Pokud se vás tedy tento problém vážně netýká, doporučujeme počkat na další aktualizaci Service Pack pro produkt Microsoft Dynamics NAV 2009 nebo další verzi aplikace Microsoft Dynamics NAV, která tuto opravu hotfix obsahuje.

Poznámka: Ve zvláštních případech mohou být poplatky, které jsou obvykle účtovány za telefonická hovory podpory, zrušeny, pokud pracovník technické podpory pro řešení Microsoft Dynamics a související produkty zjistí, že konkrétní aktualizace vyřeší váš problém. Další dotazy a problémy týkající se podpory, které se netýkají této konkrétní opravy, podléhají běžným sazbám za podporu.

          

Informace o instalaci

Společnost Microsoft poskytuje příklady programování pouze pro ilustraci, bez záruky, ať už vyjádřené nebo předpokládané. To zahrnuje, ale není omezeno na, předpokládané záruky prodejnosti nebo vhodnosti pro konkrétní účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předváděn, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci technické podpory Microsoftu vám můžou pomoct vysvětlit funkčnost konkrétního postupu. Tyto příklady však neupraví za účelem poskytnutí dalších funkcí ani nevytvoří procedury, které by splňovaly vaše specifické požadavky.

Poznámka: Před instalací této opravy hotfix ověřte, zda jsou všichni uživatelé klienta Microsoft Navision odhlášeni ze systému. To zahrnuje i uživatele klienta Microsoft Navision Application Services (NAS). Měli byste být jediným klientským uživatelem, který je přihlášen při implementaci této opravy hotfix.

K implementaci této opravy hotfix musíte mít vývojářskou licenci.

Doporučujeme, aby uživatelské účtu v okně Windows Přihlášení nebo v okně Přihlášení k databázi bylo přiřazeno ID role "SUPER". Pokud nelze uživatelskému účtu přiřadit ID role "SUPER", je nutné ověřit, zda má uživatelský účet následující oprávnění:

  • Oprávnění k úpravám objektu, který budete měnit.
  • Oprávnění ke spuštění pro objekt s ID systémového objektu 5210 a pro objekt s ID systémového objektu 9015.

Poznámka: K úložištím dat nemusíte mít práva, ledaže byste museli provádět opravu dat.

Změny kódu

Poznámka: Před použitím oprav v produkčních počítačích vždy otestujte opravy kódu v kontrolovaném prostředí.
Chcete-li tento problém vyřešit, postupujte takto:

  1. Změňte kód ve funkci Aktualizovat časový rozvrh v kódové jednotce Správy časového rozvrhu (17440) takto:
    Existující kód

    ...
    
    // Delete the following line.
    UpdateTimesheet(Employee : Record Employee;StartDate : Date;EndDate : Date;CalendarCode : Code[10])
    
    ...
    
    WHILE CurrentDate <= EndDate DO BEGIN
    TimesheetLine.GET(Employee."No.",CurrentDate);
    TimesheetLine.VALIDATE("Calendar Code",CalendarCode);
    CalendarLine.GET(TimesheetLine."Calendar Code",TimesheetLine.Date);
    CalendarLine.TESTFIELD(Status,CalendarLine.Status::Released);
    ...
    

    Náhradní kód

    ...
    
    // Add the following line.
    UpdateTimesheet(Employee : Record Employee;StartDate : Date;EndDate : Date;CalendarCode : Code[10];CheckReleased : Boolean)
    
    ...
    
    WHILE CurrentDate <= EndDate DO BEGIN
    TimesheetLine.GET(Employee."No.",CurrentDate);
    TimesheetLine.VALIDATE("Calendar Code",CalendarCode);
    CalendarLine.GET(TimesheetLine."Calendar Code",TimesheetLine.Date);
    
    // Add the following line.
    IF CheckReleased THEN 
    
    CalendarLine.TESTFIELD(Status,CalendarLine.Status::Released);
    ...
    
  2. Změňte kód v tabulce řádků mzdového Calendar (17430). Postupujte takto:

    1. Přidejte globální proměnnou a potom ji zadejte následujícím způsobem:

      • Název: TimesheetMgmt
      • Datový typ: Codeunit 17440
    2. Změňte kód ve funkci Release. Postupujte takto:

      1. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

        • Název: PayrollPeriod
        • Datový typ: Záznam
        • Podtyp: Mzdové období
      2. Přidejte druhou místní proměnnou a pak určete proměnnou následujícím způsobem:

        • Jméno: Zaměstnanec
        • Datový typ: Záznam
        • Podtyp: Zaměstnanec
      3. Přidejte třetí místní proměnnou a pak určete proměnnou následujícím způsobem:

        • Název: EmplJobEntry
        • Datový typ: Záznam
        • Podtyp: Zadávání pracovních pozic zaměstnanců
      4. Kód změňte následujícím způsobem:
        Existující kód

        ...
        VALIDATE(Status,Status::Open);
        TESTFIELD("Time Activity Code");
        
        GetCalendar;
        IF (Calendar."Shift Days" = 0) AND (NOT Nonworking) THEN
        TESTFIELD("Work Hours");
        
        Status := Status::Released;
        MODIFY;
        ...
        

        Náhradní kód

        ...
        VALIDATE(Status,Status::Open);
        TESTFIELD("Time Activity Code");
        
        GetCalendar;
        IF (Calendar."Shift Days" = 0) AND (NOT Nonworking) THEN
        TESTFIELD("Work Hours");
        
        // Add the following lines.
        Employee.RESET;
        IF Employee.FINDSET THEN
        REPEAT
        IF Employee.GetJobEntry(Employee."No.",Date,EmplJobEntry) THEN
        IF (EmplJobEntry."Calendar Code" = "Calendar Code") AND
        TimesheetStatus.GET(PayrollPeriod.PeriodByDate(Date),Employee."No.")
        THEN BEGIN
        TimesheetStatus.TESTFIELD(Status,TimesheetStatus.Status::Open);
        TimesheetMgmt.UpdateTimesheet(Employee,Date,Date,"Calendar Code",FALSE);
        END;
        UNTIL Employee.NEXT = 0;
        // End of the added lines.
        
        Status := Status::Released;
        MODIFY;
        ...
        
    3. Následujícím způsobem změňte kód ve funkci Znovu otevřít:
      Existující kód

      ...
      VALIDATE(Status,Status::Released);
      
      Employee.RESET;
      IF Employee.FINDSET THEN
      REPEAT
      IF Employee.GetJobEntry(Employee."No.",Date,EmplJobEntry) THEN
      
      // Delete the following lines. 
      IF EmplJobEntry."Calendar Code" = "Calendar Code" THEN BEGIN
      TimesheetStatus.GET(PayrollPeriod.PeriodByDate(Date),Employee."No.");
      TimesheetStatus.TESTFIELD(Status,TimesheetStatus.Status::Open);
      END;
      // End of the deleted lines. 
      
      UNTIL Employee.NEXT = 0;
      
      Status := Status::Open;
      MODIFY;
      ...
      

      Náhradní kód

      ...
      VALIDATE(Status,Status::Released);
      
      Employee.RESET;
      IF Employee.FINDSET THEN
      REPEAT
      IF Employee.GetJobEntry(Employee."No.",Date,EmplJobEntry) THEN
      
      // Add the following lines.
      IF (EmplJobEntry."Calendar Code" = "Calendar Code") AND
      TimesheetStatus.GET(PayrollPeriod.PeriodByDate(Date),Employee."No.")
      THEN
      TimesheetStatus.TESTFIELD(Status,TimesheetStatus.Status::Open);
      // End of the added lines.
      
      UNTIL Employee.NEXT = 0;
      
      Status := Status::Open;
      MODIFY;
      ...
      
  3. Změňte kód ve funkci Převod v jednotce kódu správy pracovních smluv (17370) takto:
    Existující kód

    ...
    IF TimesheetStatus.FINDSET THEN
    REPEAT
    PayrollPeriod.GET(TimesheetStatus."Period Code");
    IF PayrollPeriod.Code = PayrollPeriod.PeriodByDate("Starting Date") THEN
    TimesheetMgmt.UpdateTimesheet(
    
    // Delete the following line.
    Employee,"Starting Date",PayrollPeriod."Ending Date",Position."Calendar Code")
    
    ELSE
    TimesheetMgmt.UpdateTimesheet(
    Employee,PayrollPeriod."Starting Date",PayrollPeriod."Ending Date",Position."Calendar Code");
    UNTIL TimesheetStatus.NEXT = 0;
    END;
    ...
    

    Náhradní kód

    ...
    IF TimesheetStatus.FINDSET THEN
    REPEAT
    PayrollPeriod.GET(TimesheetStatus."Period Code");
    IF PayrollPeriod.Code = PayrollPeriod.PeriodByDate("Starting Date") THEN
    TimesheetMgmt.UpdateTimesheet(
    
    // Add the following line.
    Employee,"Starting Date",PayrollPeriod."Ending Date",Position."Calendar Code",TRUE)
    
    ELSE
    TimesheetMgmt.UpdateTimesheet(
    Employee,PayrollPeriod."Starting Date",PayrollPeriod."Ending Date",Position."Calendar Code",TRUE); // Modify this line
    UNTIL TimesheetStatus.NEXT = 0;
    END;
    ...
    

Požadavky

Chcete-li tuto opravu hotfix použít, musíte mít nainstalovanou ruskou verzi aplikace Microsoft Dynamics NAV 2009 R2.

Informace o odebrání

Tuto opravu hotfix nelze odebrat.

Stav

Společnost Microsoft potvrdila, že se jedná o problém produktů Microsoft, které jsou uvedeny v sekci Platí pro.

Poznámka: Toto je článek určený k rychlému zveřejnění, který byl vytvořen přímo v rámci organizace podpory společnosti Microsoft. Zde uvedené informace jsou poskytovány tak, jak jsou, jako reakce na nově vznikající potíže. Vzhledem k rychlosti, s jakou byl článek zpřístupněn, mohou příslušné materiály obsahovat typografické chyby a mohou být kdykoli bez předchozího upozornění revidovány. Další okolnosti viz Podmínky použití .