Подчинённые документы
MisterVova
31.07.2009 - 07:37
|
Процедура ПриЗаписи() // это мы призаписи Документа Основания Пока Парам>=ДатаСМин Цикл Докум=СоздатьОбъект("Документ.РезультатЗаДень"); Докум.Новый(); Докум.ДатаДок=Парам; Докум.ДокументОснование=ТекущийДокумент(); Пока ТабЗн.ПолучитьСтроку()=1 Цикл Докум.НоваяСтрока(); Докум.Зал= ЗалНаНачалаДня(ТабЗн.Аппарат,Парам); Докум.Аппарат = ТабЗн.Аппарат; Докум.ЗаправленоРазн = ТабЗн.ЗаправленоРазн; Докум.СнятоРазн = ТабЗн.СнятоРазн; Докум.Результат = ТабЗн.Результат; Докум.СнятоЧистыйВЛеях = ТабЗн.СнятоЧистыйВЛеях; Докум.ДжекПот = ТабЗн.ДжекПот;//ТабЗн.ДжекПотРазн/Коэф; Докум.ЗаправленоЧистыйВЛеях = ТабЗн.ЗаправленоЧистыйВЛеях; ТабЗн.КвоДней=ТабЗн.КвоДней-1; КонецЦикла; Докум.Записать(); Докум.Провести(); ..... КонецПроцедуры КонецЦикла; |