The system does not update the values in the Employee Timesheet dialog box after you change the values in the payroll calendar line in the Russian version of Microsoft Dynamics NAV 2009 R2

Installation information

Code changes

1. Change the code in the Update Timesheet function in the Timesheet Management codeunit (17440) as follows:
   Existing code

   ...
   
   // 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);
   ...

   Replacement code

   ...
   
   // 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. Change the code in the Payroll Calendar Line table (17430). To do this, follow these steps:
   1. Add a global variable, and then specify the variable as follows:
      • Name: TimesheetMgmt
      • Datatype: Codeunit 17440
   2. Change the code in the Release function. To do this, follow these step:
      1. Add a local variable, and then specify the variable as follows:
         • Name: PayrollPeriod
         • Datatype: Record
         • Subtype: Payroll Period
      2. Add a second local variable, and then specify the variable as follows:
         • Name: Employee
         • Datatype: Record
         • Subtype: Employee
      3. Add a third local variable, and then specify the variable as follows:
         • Name: EmplJobEntry
         • Datatype: Record
         • Subtype: Employee Job Entry
      4. Change the code as follows:
         Existing code

         ...
         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;
         ...

         Replacement code

         ...
         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. Change the code in the Reopen function as follows:
      Existing code

      ...
      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;
      ...

      Replacement code

      ...
      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. Change the code in the Transfer function in the Labor Contract Management codeunit (17370) as follows:
   Existing code

   ...
   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;
   ...

   Replacement code

   ...
   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;
   ...

Prerequisites

Removal information