"Добрый вечер.<br><br>Подскажите пожалуйста вот какой вопрос.<br>Есть Док.Калькуляция,который со списанием материалов в производство.<br>Для того,чтобы внести материалы по продукции,необходимо нажать на кнопку "Заполнить",<br>после чего происходит заполнение табличной части Док.Калькуляция.<br>Всё отлично!<br><br>Возникла задача автоматического формирования Док.Калькуляция за выбранный период на <br>основании введённых Расходных накладных.<br><br>Сделала в Журнале.Производство ЧУДО-кнопочку,по нажатию на которую(за выбранный период)<br> автоматически формируються Док.Калькуляция,и вроде все проводиться отлично<br>НННООО никак не получаеться в этом же режиме(речь идет об автоматическом формировании)<br>заполнить ТАБЛИЧНУЮ ЧАСТЬ.<br>Не пойму как правильно сделать процедуру Заполнить()<br><br>Подскажите кто-то понял из вышесказанного.<br><br>Вот часть кода:<br><br>// ===============================<br>Процедура Заполнить()<br> ????????????Как же быть здесь???????????????<br>КонецПроцедуры<br><br>Процедура СформироватьКальк()<br> Перем Способ, ДатаС, ДатаПо;<br> СпособыЗаполнения = СоздатьОбъект("СписокЗначений");<br> СпособыЗаполнения.ДобавитьЗначение(1,"За текущую дату");<br> СпособыЗаполнения.ДобавитьЗначение(2,"За произвольный период");<br> СпособыЗаполнения.ВыбратьЗначение(Способ,"Выберите способ заполнения",2,0,1);<br> ...<br> <br> ТаблТМЦ = СоздатьОбъект("ТаблицаЗначений");<br> ТаблТМЦ.НоваяКолонка("ТМЦ");<br> ТаблТМЦ.НоваяКолонка("Кво");<br> <br> РН = СоздатьОбъект("Документ.РасходнаяНакладная");<br> Кальк = СоздатьОбъект("Документ.Калькуляция");<br> РН.ВыбратьДокументы(ДатаС,ДатаПо);<br> Пока РН.ПолучитьДокумент()=1 Цикл<br> Если РН.Фирма <> Константа.БазФирма тогда<br> Продолжить;<br> иначе<br> Место = РН.МестоХранения;<br> РН.ВыбратьСтроки();<br> Пока РН.ПолучитьСтроку() = 1 Цикл<br> ТаблТМЦ.НоваяСтрока();<br> ТаблТМЦ.ТМЦ = РН.ТМЦ; <br> ТаблТМЦ.Кво = РН.Кво; <br> КонецЦикла;<br> КонецЕсли;<br> КонецЦикла; <br> <br> ТаблТМЦ.Свернуть("ТМЦ","Кво");<br><br> ТаблТМЦ.ВыбратьСтроки();<br> Пока ТаблТМЦ.ПолучитьСтроку() = 1 цикл <br> Кальк.Новый();<br> Кальк.Фирма = Константа.БазФирма;<br> Кальк.ВидКалькуляции = Перечисление.ВидыКалькуляций.Предварительная;<br> ...<br> <br> Кальк.Продукция = ТаблТМЦ.ТМЦ; <br> Кальк.КвоПродукции = ТаблТМЦ.Кво;<br> <br> Кальк.АвтоВремяНачалоДня();<br> Кальк.Записать();<br> Заполнить();<br> Кальк.Провести();<br> <br> Сообщить("По продукции " + Кальк.Продукция + " сформирована калькуляция - " + Кальк.НомерДок + " от " + Кальк.ДатаДок); <br> КонецЦикла; <br><br>КонецПроцедуры<br>"