Автозаполнение табл.части документа.Компонента "Бухгалтерский учет",релиз 7.70.279.

Новая тема
"Добрый вечер.

Подскажите пожалуйста вот какой вопрос.
Есть Док.Калькуляция,который со списанием материалов в производство.
Для того,чтобы внести материалы по продукции,необходимо нажать на кнопку "Заполнить",
после чего происходит заполнение табличной части Док.Калькуляция.
Всё отлично!

Возникла задача автоматического формирования Док.Калькуляция за выбранный период на
основании введённых Расходных накладных.

Сделала в Журнале.Производство ЧУДО-кнопочку,по нажатию на которую(за выбранный период)
автоматически формируються Док.Калькуляция,и вроде все проводиться отлично
НННООО никак не получаеться в этом же режиме(речь идет об автоматическом формировании)
заполнить ТАБЛИЧНУЮ ЧАСТЬ.
Не пойму как правильно сделать процедуру Заполнить()

Подскажите кто-то понял из вышесказанного.

Вот часть кода:

// ===============================
Процедура Заполнить()
        ????????????Как же быть здесь???????????????
КонецПроцедуры

Процедура СформироватьКальк()
Перем Способ, ДатаС, ДатаПо;
СпособыЗаполнения = СоздатьОбъект("СписокЗначений");
СпособыЗаполнения.ДобавитьЗначение(1,"За текущую дату");
СпособыЗаполнения.ДобавитьЗначение(2,"За произвольный период");
СпособыЗаполнения.ВыбратьЗначение(Способ,"Выберите способ заполнения",2,0,1);
       ...

ТаблТМЦ = СоздатьОбъект("ТаблицаЗначений");
ТаблТМЦ.НоваяКолонка("ТМЦ");
ТаблТМЦ.НоваяКолонка("Кво");

РН = СоздатьОбъект("Документ.РасходнаяНакладная");
Кальк = СоздатьОбъект("Документ.Калькуляция");
РН.ВыбратьДокументы(ДатаС,ДатаПо);
       Пока РН.ПолучитьДокумент()=1 Цикл
Если РН.Фирма <> Константа.БазФирма тогда
    Продолжить;
       иначе
    Место = РН.МестоХранения;
    РН.ВыбратьСтроки();
               Пока РН.ПолучитьСтроку() = 1 Цикл
    ТаблТМЦ.НоваяСтрока();
    ТаблТМЦ.ТМЦ = РН.ТМЦ;
    ТаблТМЦ.Кво = РН.Кво;
               КонецЦикла;
       КонецЕсли;
КонецЦикла;

ТаблТМЦ.Свернуть("ТМЦ","Кво");

ТаблТМЦ.ВыбратьСтроки();
Пока ТаблТМЦ.ПолучитьСтроку() = 1 цикл
       Кальк.Новый();
Кальк.Фирма = Константа.БазФирма;
Кальк.ВидКалькуляции =  Перечисление.ВидыКалькуляций.Предварительная;
...
       
Кальк.Продукция = ТаблТМЦ.ТМЦ;        
Кальк.КвоПродукции = ТаблТМЦ.Кво;
           
Кальк.АвтоВремяНачалоДня();
Кальк.Записать();
       Заполнить();
               Кальк.Провести();
       
Сообщить("По продукции " + Кальк.Продукция + " сформирована калькуляция - " + Кальк.НомерДок + " от " + Кальк.ДатаДок);
   КонецЦикла;

КонецПроцедуры
"
"       Кальк.Новый();
Кальк.Фирма = Константа.БазФирма;
Кальк.ВидКалькуляции =  Перечисление.ВидыКалькуляций.Предварительная;

ТаблТМЦ.ВыбратьСтроки();
Пока ТаблТМЦ.ПолучитьСтроку() = 1 цикл
 Кальк.НоваяСтрока();
...
     
Кальк.Продукция = ТаблТМЦ.ТМЦ;        
Кальк.КвоПродукции = ТаблТМЦ.Кво;
         

  КонецЦикла;


Кальк.АвтоВремяНачалоДня();
Кальк.Записать();
      Заполнить();
              Кальк.Провести();
     
Сообщить("По продукции " + Кальк.Продукция + " сформирована калькуляция - " + Кальк.НомерДок + " от " + Кальк.ДатаДок);"
+ изучаем Заполнить метод для ТЗ
ой,ой как-то я не поминаю.Ну есть такой метод,только не понятно какково его применение в случае,если док.калькуляция создаеться из ЖД.Производство?

Можно поподробее. :-)))))
пример применения метода : http://www.buh.ru/forum/thread.jsp?id=540008

т.е
. делаем временную ТЗ для тек дока из выборки , далее выгружаем в неё ТЧ дока, переименовываем Колонки  (ТМЦ в Продукцию и т.д.) и загружаешь в ТЗобщую

в итоге для нового документа заполняем табЧасть, как загрузитьТабличнуюЧасть
Читают тему
(гостей: 1)

Быстрый переход