Обсуждение к заданию: Учет рабочего времени сотрудников через считыватель RFID

• • #1
  • 26.11.2018 18:25
  0
  StanDreamCode

  Приватное сообщение
  Здравствуйте, коллеги. Я программировать усердно на 1с-ке стал как год. Решил для себя написать конфигурацию о посещаемости сотрудников предприятия через считыватель RFID. Суть задачи такова: в п...  Подробнее>>
• • #2
  • 26.11.2018 18:28
  0
  [Аккаунт удален]

  Приватное сообщение
  Обычно так и пишут. Но если хочешь все в одно, делай через отбор, запоминай предыдущие значения и делай перезапись.
• • #3
  • 26.11.2018 18:44
  0
  StanDreamCode

  Приватное сообщение
  Могли бы подсказать или скинуть ссылку на пример с подобной проблемой? Заранее спасибо.
• • #4
  • 26.11.2018 18:50
  • Отредактировано: 26.11.2018 18:52:22
  0
  Полозов Олег Анатольевич

  Приватное сообщение
  Как вариант добавить еще одно измерение - Смена (скорей всего справочник). Там указывать смены работы сотрудников и по ним потом анализировать.
• • #5
  • 26.11.2018 18:52
  0
  StanDreamCode

  Приватное сообщение
  
  Решил попробовать сделать через табличную часть.
  Так же фигня получается. Как в этом случае быть?
• • #6
  • 26.11.2018 19:19
  0
  StanDreamCode

  Приватное сообщение
  

  &НаКлиенте
  Процедура Приход(Команда)
  	СтрТч = Элементы.ВремяПосещений.ТекущиеДанные;
  	НовСтр = Объект.ВремяПосещений.Добавить();
  	НовСтр.Сотрудник = Объект.ПолеСчитыванияID;
  	НовСтр.Отдел  = НовСтр.Сотрудник.ПолучитьОбъект().Отдел;
  	НовСтр.Пришел = ТекущаяДата();	
  	
  КонецПроцедуры
  
  &НаКлиенте
  Процедура Уход(Команда)
  	СтрТч = Элементы.ВремяПосещений.ТекущиеДанные;
  	Для Каждого Строка Из Объект.ВремяПосещений Цикл
  		Сообщить(Строка.Сотрудник);
  		Если ЗначениеЗаполнено(Строка.Сотрудник) И ЗначениеЗаполнено(Строка.Пришел) Тогда
  			Строка.Ушел = ТекущаяДата();	
  		КонецЕсли;
  	КонецЦикла
  	
  КонецПроцедуры
  
  

  
  
  У меня при нажатии на кнопку уход проставляется время ухода по всем строкам одинаковое. Как исправить?
• • #7
  • 26.11.2018 22:47
  0
  Кайзер Владимир

  Приватное сообщение
  Добавить перечисление
  
  ВидОперацииНаПроходной
  
  Приход
  Уход
  
  Добавить Справочник.ГрафикРаботы
  
  
  
  Структура Регистра получиться следующая
  
  Дата и время | Сотрудник | ГрафикРаботы | ВидОперацииНаПроходной|
• • #8
  • 27.11.2018 06:21
  0
  StanDreamCode

  Приватное сообщение
  Кайзер Владимир

  Добавить перечисление
  
  ВидОперацииНаПроходной
  
  Приход
  Уход
  
  Добавить Справочник.ГрафикРаботы
  
  
  
  Структура Регистра получиться следующая
  
  Дата и время | Сотрудник | ГрафикРаботы | ВидОперацииНаПроходной|

  
  
  А как через считыватель определить вид операции?
• • #9
  • 27.11.2018 06:27
  0
  Артем Юрьевич

  Приватное сообщение

  Если ГрафикРаботы.Стандарт и ПервоеСичтываниеВДень тогда
  ВидОперации = Приход
  КонецЕсли

  
  
  
  Как-то так :)))
• • #10
  • 27.11.2018 08:13
  0
  StanDreamCode

  Приватное сообщение
  Артем Юрьевич

  Если ГрафикРаботы.Стандарт и ПервоеСичтываниеВДень тогда
  ВидОперации = Приход
  КонецЕсли

  
  
  Спасибо)) Артем) А можно вопрос? Откуда у вас переменная "ПервоеСчитываниеВДень"?
• • #11
  • 27.11.2018 09:22
  • Отредактировано: 27.11.2018 09:23:10
  0
  oleg-x

  Приватное сообщение
  Делаешь запрос к регистру по срезу последний.
  Если запись в регистре есть, то ПервоеСичтываниеВДень = Ложь, если нет, то ПервоеСичтываниеВДень = Истина.
  
  Если ВыборкаДетальныеЗапись.Следующий Тогда
  ПервоеСичтываниеВДень = Ложь
  Иначе
  ПервоеСичтываниеВДень = Истина;
  КонецЕсли;
• • #12
  • 27.11.2018 10:25
  0
  Кайзер Владимир

  Приватное сообщение
  а два RFID не ага? да вариантов куча ;) Был выход? Да , новое считывание это выход или вход?
• • #13
  • 28.11.2018 09:59
  0
  StanDreamCode

  Приватное сообщение
  Кайзер Владимир

  а два RFID не ага? да вариантов куча ;) Был выход? Да , новое считывание это выход или вход?

  
  
  Ахаха можно и два) но считыватели очень примитивные) без доступа по локальной сети. Я буду настаивать на приобретение системы Кронверк