Всем здравствуйте!
Пытаюсь разобраться с табелем учета рабочего времени, не могу понять что означают поля used[1], used[2]... в таблице lstabmsk.
Вроде как признак использования ручной корректировки, но какие значения принимают?
Кто нибудь знает?
Заранее спасибо!
			
			
									
						
										
						табель рабочего времени
Модераторы: m0p3e, edward_K, Модераторы
- 
				Max_Fin
 - На пенсии
 - Сообщения: 797
 - Зарегистрирован: 29 мар 2005, 17:49
 - Откуда: г. Тюмень
 - Контактная информация:
 
Код: Выделить всё
      _loop SMASK
      {
....
        if (SMASK.WORKINGHOURS = 0)
          LSTABMSK.DAILYMARKS[SMASK.DAY] := WeekEndMark;
        else
          LSTABMSK.DAILYMARKS[SMASK.DAY] := string(SMASK.WORKINGHOURS, 0, 2);
        LSTABMSK.USED[SMASK.DAY] := SMASK.MASK;
        LSTABMSK.WORKINGHOURS[SMASK.DAY] := SMASK.WORKINGHOURS;
        LSTABMSK.EVENINGHOURS[SMASK.DAY] := SMASK.EVENINGHOURS;
        LSTABMSK.NIGHTHOURS[SMASK.DAY] := SMASK.NIGHTHOURS;
      };
...
      update current LSTABMSK;
Код: Выделить всё
                  for (I := 1; I <= Last_Day(date(1, Imp.GetMonth, Imp.GetYear)); I := I + 1)
                  {
                    LSTABMSK.USED[I] := 0;
                    // рабочие часы
                    if Imp.GetDailyHours(I, hkWorking, Hours)
                    {
                      LSTABMSK.WORKINGHOURS[I] := Hours;
                      LSTABMSK.USED[I] := LSTABMSK.USED[I] or coWorkingHoursMask;
                      //LSTABMSK.DAILYMARKS[vi + 1] := CurStr;
                    }
                    if Imp.GetDailyHours(I, hkEvening, Hours)
                    {
                      LSTABMSK.EVENINGHOURS[I] := Hours;
                      LSTABMSK.USED[I] := LSTABMSK.USED[I] or coEveningHoursMask;
                      //LSTABMSK.DAILYMARKS[vi + 1] := CurStr;
                    }
                    if Imp.GetDailyHours(I, hkNight, Hours)
                    {
                      LSTABMSK.NIGHTHOURS[I] := Hours;
                      LSTABMSK.USED[I] := LSTABMSK.USED[I] or coNightHoursMask;
                      //LSTABMSK.DAILYMARKS[vi + 1] := CurStr;
                    }
                  }
Жду выхода Вселенная 2.12!
			
						- 
				Screw
 - Слесарь-системщик
 - Сообщения: 304
 - Зарегистрирован: 29 мар 2005, 17:49
 - Откуда: р.Беларусь, Унитарное предприятие "ТОП СОФТ"
 - Контактная информация:
 
Дам досужий совет: не трогайте табель и его составляющие напрямую, лучше используйте специально разработанный для работы с ним функционал. Шлите вопросы на Vitaly.Korzyuk@galaktika.by, я вышлю доку, помогу добрым словом или примером.
			
			
									
						
							Виталий