Задачка на вход-выход - сломал себе мозг

   Рег.ДвижениеПриход(Сотрудник, Смена, 1,1); // остаток: НаРаботе=1, Был=1

   Рег.ДвижениеРасход(Сотрудник, Смена, 1,0); // остаток: НаРаботе=0, Был=1

Если Рег.Остаток(Сотрудник, Смена,"Был")>0 Тогда
    НайтиИУдалитьПрошлыйУходВЭтойСмене(); // считаем, что не уходил
    СтаусВозврата(0); // и не приходил
Иначе
    Рег.ДвижениеПриход(Сотрудник, Смена, 1,1);
КонецЕсли;

Перем СобытиеПриход;

///////////////////////////////////////////////////////////////////////////////
// Функция ПолучитьВремяНачалаСмены(ГрафикСмен, НомерСмены)
//
// Параметры:
//   ГрафикСмен   - ТаблицаЗначений. Таблица значений, содержащая информацию о
//              графике смен предприятия. Структура таблицы:
//              1. ВремяНачалаСмены      - Число, время начала смены в секундах;
//              2. ВремяОкончанияСмены   - Число, время окончания смены в секундах;
//              Время начала и окончания n-й смены находятся в (n-1)-й строке
//   НомерСмены   - Число. Номер смены, время начала в секундах которой необходимо
//              получить.
//
// Описание:
//   Функция рассчитывает время начала смены "НомерСмены".
//   
// Возвращаемое значение:
//   ВремяНачалаСмены - Число, время начала смены "НомерСмены" по грфику "ГрафикСмен" в
//                   секундах от начала дня.
Функция ПолучитьВремяНачалаСмены(ГрафикСмен, НомерСмены)

   ВремяНачалаСмены = 0;
   
   // Алгоритм получения времени начала смены в секундах от начала дня по графику
   // смен и номеру смены
   
   Возврат ВремяНачалаСмены;

КонецФункции // ПолучитьВремяНачалаСмены(ГрафикСмен, НомерСмены)

///////////////////////////////////////////////////////////////////////////////
// Функция ПолучитьВремяОкончанияСмены(ГрафикСмен, НомерСмены)
//
// Параметры:
//   ГрафикСмен   - ТаблицаЗначений. Таблица значений, содержащая информацию о
//              графике смен предприятия. Структура таблицы:
//              1. ВремяНачалаСмены      - Число, время начала смены в секундах;
//              2. ВремяОкончанияСмены   - Число, время окончания смены в секундах;
//              Время начала и окончания n-й смены находятся в (n-1)-й строке;
//   НомерСмены   - Число. Номер смены, время окончания в секундах которой необходимо
//              получить.
//
// Описание:
//   Функция рассчитывает время окончания смены "НомерСмены".
//   
// Возвращаемое значение:
//   ВремяОкончанияСмены - Число, время окончания смены "НомерСмены" по грфику "ГрафикСмен" в
//                     секундах от начала дня.
Функция ПолучитьВремяОкончанияСмены(ГрафикСмен, НомерСмены)

   ВремяОкончанияСмены = 0;
   
   // Алгоритм получения времени окончания смены в секундах от начала дня по графику
   // смен и номеру смены
   
   Возврат ВремяОкончанияСмены;

КонецФункции // ПолучитьВремяОкончанияСмены(ГрафикСмен, НомерСмены)

///////////////////////////////////////////////////////////////////////////////
// Функция ПолучитьДатуСобытия(ДатаВремяСобытия)
//
// Параметры:
//   ДатаВремяСобытия - Строка. Строка, содержащая информацию о дате и времени события.
//
// Описание:
//   Функция получает дату из строки, содержащей информацию о дате и времени события.
//   
// Возвращаемое значение:
//   ДатаСобытия - Дата. Дата события.
Функция ПолучитьДатуСобытия(ДатаВремяСобытия)

   ДатаСобытия = 0;
   
   // Алгоритм получения даты события из даты-времени события
   
   Возврат ДатаСобытия;

КонецФункции // ПолучитьДатуСобытия(ДатаВремяСобытия)

///////////////////////////////////////////////////////////////////////////////
// Функция ПолучитьВремяСобытия(ДатаВремяСобытия)
//
// Параметры:
//   ДатаВремяСобытия - Строка. Строка, содержащая информацию о дате и времени события.
//
// Описание:
//   Функция получает время из строки, содержащей информацию о дате и времени события.
//   
// Возвращаемое значение:
//   ВремяСобытия - Число. Время события в секундах от начала дня.
Функция ПолучитьВремяСобытия(ДатаВремяСобытия)

   ВремяСобытия = 0;
   
   // Алгоритм получения времени события в секундах от начала дня из даты-времени события
   
   Возврат ВремяСобытия;

КонецФункции // ПолучитьВремяСобытия(ДатаВремяСобытия)

///////////////////////////////////////////////////////////////////////////////
// Функция ПолучитьНомерСмены(ГрафикСмен, ВремяСобытия)
//
// Параметры:
//   ГрафикСмен      - ТаблицаЗначений. Таблица значений, содержащая информацию о
//                 графике смен предприятия. Структура таблицы:
//                 1. ВремяНачалаСмены      - Число, время начала смены в секундах;
//                 2. ВремяОкончанияСмены   - Число, время окончания смены в секундах;
//                 Время начала и окончания n-й смены находятся в (n-1)-й строке;
//   ВремяСобытия   - Число. Время события в секундах от начала дня.
//
// Описание:
//   Функция определяет номер смены в которую входит время события.
//   
// Возвращаемое значение:
//   НомерСмены - Число. Номер смены, который соответствуют времени события "ВремяСобытия".
Функция ПолучитьНомерСмены(ГрафикСмен, ВремяСобытия)

   НомерСмены = 0;
   
   // Алгоритм определения номера смены по графику смен и времени события
   
   Возврат НомерСмены;

КонецФункции // ПолучитьНомерСмены(ГрафикСмен, ВремяСобытия)

///////////////////////////////////////////////////////////////////////////////
// Процедура ЗафиксироватьСобытиеВЛистеПрисутствия(ЛистПрисутствия, ГрафикСмен, Событие, ВремяСобытия)
//
// Параметры:
//   ЛистПрисутствия   - ТаблицаЗначений. Таблица значений, содержащая информацию о времени
//                 прихода и ухода в разрезе смен. Структура таблицы:
//                 1. ВремяПрихода   - Число. Время прихода на смену;
//                 2. ВремяУхода      - Число. Время ухода со смены;
//                 Время прихода и ухода на/с n-й смены находятся в (n-1)-й строке;
//   ГрафикСмен      - ТаблицаЗначений. Таблица значений, содержащая информацию о
//                 графике смен предприятия. Структура таблицы:
//                 1. ВремяНачалаСмены      - Число, время начала смены в секундах;
//                 2. ВремяОкончанияСмены   - Число, время окончания смены в секундах;
//                 Время начала и окончания n-й смены находятся в (n-1)-й строке;
//   Событие         - Строка. Вид события: "Вход", "Выход";
//   ВремяСобытия   - Число. Время события в секундах от начала дня.
//   
// Описание:
//   Процедура фиксирует события в листе присутствия.
Процедура ЗафиксироватьСобытиеВЛистеПрисутствия(ЛистПрисутствия, ГрафикСмен, Событие, ВремяСобытия)

   НомерСмены = ПолучитьНомерСмены(ГрафикСмен, ВремяСобытия);
   
   // Если фиксируемое событие это приход и ранее в эту смену приход не фиксировался
   // или время этого события меньше чем время прихода в эту смену уже проставленного
   // в листе присутствия, то проставляем новое время прихода в листе присутствия
   // Если фиксируемое событие это уход и ранее в эту смену уход не фиксировался
   // или время зафиксированного ухода меньше чем время фиксируемого события, то
   // проставляем новое время ухода в листе присутствия
   Если Событие = СобытиеПриход Тогда 
      
      ВремяПрихода = ЛистПрисутствия[НомерСмены - 1].ВремяПрихода;
      
      Если ВремяПрихода = Неопределено Тогда 
         
         ЛистПрисутствия[НомерСмены - 1].ВремяПрихода = ВремяСобытия;
         
      Иначе 
         
         Если ВремяСобытия < ВремяПрихода Тогда 
            
            ЛистПрисутствия[НомерСмены - 1].ВремяПрихода = ВремяСобытия;
            
         КонецЕсли;
         
      КонецЕсли;
      
   Иначе 
      
      ВремяУхода = ЛистПрисутствия[НомерСмены - 1].ВремяУхода;
      
      Если ВремяУхода = Неопределено Тогда 
         
         ЛистПрисутствия[НомерСмены - 1].ВремяУхода = ВремяСобытия;
         
      Иначе 
         
         Если ВремяСобытия > ВремяУхода Тогда 
            
            ЛистПрисутствия[НомерСмены - 1].ВремяУхода = ВремяСобытия;
            
         КонецЕсли;
         
      КонецЕсли;
      
   КонецЕсли; // Конец проверки вида события
   
КонецПроцедуры // ЗафиксироватьСобытиеВЛистеПрисутствия(ЛистПрисутствия, ГрафикСмен, Событие, ВремяСобытия)

///////////////////////////////////////////////////////////////////////////////
// Функция СформироватьЛистПрисутствия(ГрафикСмен,
//                              ТаблицаСобытий,
//                              Сотрудник,
//                              ДатаРабочихСуток)
//
// Параметры:
//   ГрафикСмен         - ТаблицаЗначений. Таблица значений, содержащая информацию о
//                    графике смен предприятия. Структура таблицы:
//                    1. ВремяНачалаСмены      - Число, время начала смены в секундах;
//                    2. ВремяОкончанияСмены   - Число, время окончания смены в секундах;
//                    Время начала и окончания n-й смены находятся в (n-1)-й строке;
//   ТаблицаСобытий      - ТаблицаЗначений. Таблица значений, содержащая информацию о событиях
//                    входа/выхода в разрезе сотрудников. Структура таблицы:
//                    1. Сотрудник   - Справочник.ХХХ, сотрудник по которому зафиксировано событие;
//                    2. Событие   - Строка, вид события "Вход", "Выход";
//                    3. TimeStamp   - Строка, дата и время события;
//   Сотрудник         - Справочник.ХХХ. Сотрудник по которому необходимо сформировать лист присутствия;
//   ДатаРабочихСуток   - Дата. Дата рабочих суток, по которой необходимо сформировать отчет.
//
// Описание:
//   Функция формирует лист присутствия по заданному сотруднику, на указанную рабочую дату.
//   
// Возвращаемое значение:
//   ЛистПрисутствия   - ТаблицаЗначений. Структура таблицы:
//                 1. ВремяПрихода   - Число. Время прихода на смену в секундах от начала дня;
//                 2. ВремяУхода      - Число. Время ухода со смены в секундах от начала дня.
//                 Время прихода и ухода на/с n-й смены находятся в (n-1)-й строке;
Функция СформироватьЛистПрисутствия(ГрафикСмен,
                           ТаблицаСобытий,
                           Сотрудник,
                           ДатаРабочихСуток)
                           
   ЛистПрисутствия = Новый ТаблицаЗначений;
   ЛистПрисутствия.Колонки.Добавить("ВремяПрихода");
   ЛистПрисутствия.Колонки.Добавить("ВремяУхода");
   
   // Сформируем строки листа присутствия согласно количества смен в графике смен
   КоличествоСмен = ГрафикСмен.Количество();
   
   Для НомерСмены = 1 По КоличествоСмен Цикл
      
      ЛистПрисутствияСтрока = ЛистПрисутствия.Добавить();
      ЛистПрисутствияСтрока.ВремяПрихода    = Неопределено;
      ЛистПрисутствияСтрока.ВремяУхода   = Неопределено;
      
   КонецЦикла;
   
   // Определим дату и время начала первой смены, а также дату и время окончания
   // последней смены, для отсева событий по дате смены листа присутствия
   ДатаНачалаПервойСмены          = ДатаРабочихСуток;
   ВремяНачалаПервойСмены          = ГрафикСмен[0].ВремяНачалаСмены;
   ВремяОкончанияПоследнейСмены   = ГрафикСмен[КоличествоСмен - 1].ВремяОкончанияСмены;
   
   // Если время окончания последней смены меньше времени начала первой смены, то
   // считаем, что дата окончания последней смены это дата, следующая за датой
   // начала первой смены иначе она равна дате начала первой смены
   ДатаОкончанияПоследнейСмены = ДатаНачалаПервойСмены;
   
   Если ВремяОкончанияПоследнейСмены < ВремяНачалаПервойСмены Тогда 
      
      ДатаОкончанияПоследнейСмены = ДатаНачалаПервойСмены + 1;
      
   КонецЕсли;
   
   // Зафиксируем наличие незакрытого прихода сотрудника до начала рабочих суток на 
   // дату "ДатаРабочихСуток", это необходимо если в течении рабочих суток сотрудником 
   // не производилось событие входа, т. е. он начал работу в предыдущие рабочие сутки
   ДатаПоследнегоПриходаДоРабочихСутокОтчета    = Дата("00010101");
   ВремяПоследнегоПриходаДоРабочихСутокОтчета   = 0;
   ДатаПоследнегоУходаДоРабочихСутокОтчета      = Дата("00010101");
   ВремяПоследнегоУходаДоРабочихСутокОтчета   = 0;
   
   // Просеиваем таблицу событий по сотруднику, дате и вемени события
   Для Каждого ТаблицаСобытийСтрока Из ТаблицаСобытий Цикл
      
      СотрудникСобытия    = ТаблицаСобытийСтрока.Сотрудник;
      Событие            = ТаблицаСобытийСтрока.Событие;
      ДатаВремяСобытия   = ТаблицаСобытийСтрока.TimeStamp;
      
      Если СотрудникСобытия <> Сотрудник Тогда
         
         Продолжить;
         
      КонецЕсли;
      
      ДатаСобытия    = ПолучитьДатуСобытия(ДатаВремяСобытия);
      ВремяСобытия   = ПолучитьВремяСобытия(ДатаВремяСобытия);
      
      // Если событие попадает в рабочие сутки по которым строится отчет, то заносим
      // его в лист присутствия
      Если 
         (
            (ДатаНачалаПервойСмены = ДатаОкончанияПоследнейСмены)
         И   (ДатаСобытия = ДатаНачалаПервойСмены)
         И   (ВремяСобытия >= ВремяНачалаПервойСмены)
         И   (ВремяСобытия <= ВремяОкончанияПоследнейСмены)
         )
      Или 
         (
            (ДатаНачалаПервойСмены <> ДатаОкончанияПоследнейСмены)
         И   (ДатаСобытия = ДатаНачалаПервойСмены)
         И   (ВремяСобытия >= ВремяНачалаПервойСмены)
         )
      Или 
         (
            (ДатаНачалаПервойСмены <> ДатаОкончанияПоследнейСмены)
         И   (ДатаСобытия = ДатаОкончанияПоследнейСмены)
         И   (ВремяСобытия <= ВремяОкончанияПоследнейСмены)
         )
      Тогда 
      
         // Событие входит в рабочие сутки, по котрым строится отчет
         
         // Фиксируем событие в листе присутствия
         ЗафиксироватьСобытиеВЛистеПрисутствия(ЛистПрисутствия, ГрафикСмен, Событие, ВремяСобытия);
         
      // Фиксируем последний незакрытый приход жо начала рабочих суток,
      // по котрым строится отчет         
      ИначеЕсли    
         (
            (ДатаСобытия = ДатаНачалаПервойСмены)
         И   (ВремяСобытия < ВремяНачалаПервойСмены)
         )
      Или 
         (ДатаСобытия < ДатаНачалаПервойСмены)
      Тогда
      
         Если Событие = СобытиеПриход Тогда 
            
            Если 
               (ДатаСобытия > ДатаПоследнегоПриходаДоРабочихСутокОтчета)
            И   (ВремяСобытия > ВремяПоследнегоПриходаДоРабочихСутокОтчета)
            Тогда 
            
               ДатаПоследнегоПриходаДоРабочихСутокОтчета    = ДатаСобытия;
               ВремяПоследнегоПриходаДоРабочихСутокОтчета    = ВремяСобытия;
               
            КонецЕсли;
            
         Иначе // Событие ухода
            
            Если 
               (ДатаСобытия > ДатаПоследнегоУходаДоРабочихСутокОтчета)
            И   (ВремяСобытия > ВремяПоследнегоУходаДоРабочихСутокОтчета)
            Тогда 
            
               ДатаПоследнегоУходаДоРабочихСутокОтчета    = ДатаСобытия;
               ВремяПоследнегоУходаДоРабочихСутокОтчета    = ВремяСобытия;
               
            КонецЕсли;
            
         КонецЕсли; // Конец проверки вида события
                  
      КонецЕсли; // Конец проверки вхождения события в рабочие сутки отчета
      
   КонецЦикла; // Конец цикла по таблице событий
   
   // Производим обработку полученного листа присутствия:
   // 1. Обрабатываем незакрытое время прихода до начала рабочих суток отчета
   // 2. Посменно обрабатываем незакрытые времена прихода в течение рабочих суток отчета
   
   // Обрабатываем незакрытое время прихода до начала рабочих суток отчета, если есть
   // нехакрытое время прихода в предыдущие рабочие сутки, то время начала работы в первую
   // смену равно времени начала первой смены
   Если 
      (ДатаПоследнегоУходаДоРабочихСутокОтчета < ДатаПоследнегоПриходаДоРабочихСутокОтчета)
   Или 
      (
         (ДатаПоследнегоПриходаДоРабочихСутокОтчета = ДатаПоследнегоУходаДоРабочихСутокОтчета)
      И   (ВремяПоследнегоУходаДоРабочихСутокОтчета < ВремяПоследнегоПриходаДоРабочихСутокОтчета)
      )
   Тогда 
   
      ЛистПрисутствия[0].ВремяПрихода = ПолучитьВремяНачалаСмены(ГрафикСмен, 1);
   
   КонецЕсли; // Конец проверки наличия незакрытого прихода до начала рабочих суток отчета
   
   // Обрабатываем незакрытые времена прихода в течение рабочих суток:
   // Если время прихода есть, а времени ухода нет, то время ухода равно времени
   // окончания рабочей смены, время прихода на следующую рабочую смену равно
   // времени начала следующей рабочей смены
   Для НомерСмены = 1 По КоличествоСмен Цикл 
      
      ВремяПрихода    = ЛистПрисутствия[НомерСмены - 1].ВремяПрихода;
      ВремяУхода      = ЛистПрисутствия[НомерСмены - 1].ВремяУхода;
      
      Если 
         (ВремяУхода = Неопределено)
      И   (ВремяПрихода <> Неопределено)
      Тогда 
      
         ВремяУхода = ПолучитьВремяОкончанияСмены(ГрафикСмен, НомерСмены);
         
         ЛистПрисутствия[НомерСмены - 1].ВремяУхода = ВремяУхода;
         
         // Если это не последняя смена, то время прихода на следующую смену
         // будет равно началу этой смены
         Если НомерСмены <> КоличествоСмен Тогда 
            
            ЛистПрисутствия[НомерСмены].ВремяПрихода = ПолучитьВремяНачалаСмены(ГрафикСмен, НомерСмены + 1);
            
         КонецЕсли;
         
      КонецЕсли; // Конец проверки наличия времени ухода при наличии времени прихода
      
   КонецЦикла; // Конец цикла по сменам листа присутствия
      
   Возврат ЛистПрисутствия;

КонецФункции // СформироватьЛистПрисутствия(ГрафикСмен,
          //                           ТаблицаСобытий,
          //                           Сотрудник,
          //                           ДатаРабочихСуток)

Если  ФизическийСубъект.Действие.Выходит = Истина
Тогда СделатьзаписьВЫХОД();
КонецЕсли; 

ТЗ="
|Сотрудник=Справочники.Присутствие.Сотрудник;
|ДатаСмены=Справочники.Присутствие.ДатаСмены;
|НачалоСмены=Справочники.Присутствие.НачалоСмены;
|ОкончаниеСмены=Справочники.Присутствие.ОкончаниеСмены;
|Группировка Сотрудник;
|Группировка ДатаСмены;
|";

Перем НачалоОтчета,КонецОтчета;
//--------------------------------------
Процедура Ошибка(КодОшибки)
   Сообщить(Строка(КодОшибки),"!");
КонецПроцедуры
//--------------------------------------
Процедура Разноска(НачалоРаботы,КонецРаботы)
   Если НачалоРаботы>КонецОтчета Тогда Возврат; КонецЕсли;
   Если КонецРаботы<НачалоОтчета Тогда Возврат; КонецЕсли;
   //Сообщить(НачалоРаботы+" "+КонецРаботы); 
   // Укладка в график смен   
КонецПроцедуры
//--------------------------------------
Процедура Сформировать()
   Люд=СоздатьОбъект("Справочник.Сотрудники");
   Рег=СоздатьОбъект("Справочник.СотрудникиУчет");
   Люд.ПорядокНаименований();
   Люд.ВыбратьЭлементы(0);
   Пока Люд.ПолучитьЭлемент()=1 Цикл
      Если Люд.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли;
      Если Люд.ЭтоГруппа()=1 Тогда Продолжить; КонецЕсли;
      Сообщить(Люд.Наименование);
      Нач=""; Кон="";
      Рег.ПорядокНаименований();
      Рег.ИспользоватьВладельца(Люд.ТекущийЭлемент());
      Рег.ВыбратьЭлементы();
      Пока Рег.ПолучитьЭлемент()=1 Цикл
         Если Рег.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли;
         Если ПустоеЗначение(Рег.Наименование)=1 Тогда Ошибка(1); Продолжить; КонецЕсли;
         Если Рег.Направление=0 Тогда // Вход
            Если ПустоеЗначение(Нач)=0 Тогда Ошибка(2); КонецЕсли;                        
            Если ПустоеЗначение(Кон)=0 Тогда Ошибка(3); КонецЕсли;                        
            Если Рег.Наименование>КонецОтчета Тогда Прервать; КонецЕсли;
            Нач=Рег.Наименование; Кон="";
            Продолжить;
         Иначе                        // Выход 
            Если ПустоеЗначение(Нач)=1 Тогда Ошибка(4); Продолжить; КонецЕсли;
            Если ПустоеЗначение(Кон)=0 Тогда Ошибка(5); КонецЕсли;
            Кон=Рег.Наименование;
         КонецЕсли;
         Разноска(Нач,Кон);
         Нач=""; Кон="";
      КонецЦикла;
      Если (ПустоеЗначение(Нач)=0) И (ПустоеЗначение(Кон)=1) Тогда // Еше на работе 
         Кон=Формат(ТекущаяДата(),"ДГГГГММДД")+Сред(СтрЗаменить(ТекущееВремя(),":",""),1,4);         
         Разноска(Нач,Кон);      
      КонецЕсли;
   КонецЦикла;   
КонецПроцедуры
//--------------------------------------
НачалоОтчета="200803160000";
КонецОтчета= "200803182400";