Advertisement
Guest User

Untitled

a guest
Oct 15th, 2019
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.18 KB | None | 0 0
  1. //&НаКлиенте
  2. //Процедура ОтпускКоличествоДнейПриИзменении(Элемент)
  3. // СчётКоличестваДней();
  4. //КонецПроцедуры
  5.  
  6. ////&НаКлиенте
  7. ////Процедура СчётКоличестваДней()
  8. //// Элементы.Отпуск.ТекущиеДанные.КоличествоДней = (НачалоДня(Объект.ВремяОкончания) - НачалоДня(Объект.ВремяНачала)) / (60 * 60 * 24);
  9. //// Элементы.Отпуск.ТекущиеДанные.Год = Год(Объект.ВремяНачала);
  10. ////КонецПроцедуры
  11.  
  12. &НаКлиенте
  13. Процедура ПериодСПриИзменении()
  14. НоваяСтрока = Объект.Отпуск.Добавить();
  15. НоваяСтрока.Год = Год(Объект.ВремяНачала);
  16. ДнейДоКонцаГода = (НачалоДня(КонецГода(Объект.ВремяНачала)) - НачалоДня(Объект.ВремяНачала)) / (24 * 60 *60);
  17. ДнейОтпуска = (НачалоДня(Объект.ВремяОкончания) - НачалоДня(Объект.ВремяНачала)) / (60 * 60 * 24);
  18. Если ДнейОтпуска > ДнейДоКонцаГода Тогда
  19. Элементы.Отпуск.ТекущиеДанные.КоличествоДней = ДнейДоКонцаГода;
  20. КонецЕсли
  21. КонецПроцедуры
  22.  
  23. &НаКлиенте
  24. Процедура ПериодПоПриИзменении()
  25. НоваяСтрока = Объект.Отпуск;
  26. Если Не (Год(Объект.ВремяНачала) = Год(Объект.ВремяОкончания)) Тогда
  27. НоваяСтрока = НоваяСтрока.Добавить();
  28. НоваяСтрока.Год = Год(Объект.ВремяОкончания);
  29. КонецЕсли;
  30. // Элементы.Отпуск.ТекущиеДанные.КоличествоДней = (НачалоДня(Объект.ВремяОкончания) - НачалоДня(Объект.ВремяНачала)) / (60 * 60 * 24);
  31.  
  32. КонецПроцедуры
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement