Автоформирование Док.Калькуляция на основании РН за выбр. период.Бухгалтерия 7.7(278)

"Добрый вечер.

Прошу вашей помощи!!!

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

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

Не пойму как правильно сделать процедуру Заполнить()

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

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

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

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

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

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

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

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

КонецПроцедуры

Спасибо за оказанное внимание"

гражданка "СахароК"

что вам надо ?
что за конфа ?
вам нужен ОДИН расход на основание приходов ?

Ой,думала вы меня не найдёте,))

Конфигурация Бухгалтерский учет 7.7(релиз 7,70,278)

> вам нужен ОДИН расход на основание приходов ?

НЕТ ЖЕ!!

у меня есть Док.РН,в его ТаблЧасти естественно есть ТМЦ(вид его ПРОДУКЦИЯ).Так как это ПРОДУКЦИЯ у него есть состав(Спр.СоставТМЦ).

сейчас бухгалтер делает бешанную работу по списанию материалов к этим готовым продукциям,т.е. из каждой Док.РН в базе получаеться ровно столько Док.Калькуляций сколько строк в ТаблЧасти Док.РН.

Вот и возникла необходимость облегчить жизнь бух-а.

> что вам надо ?

Мне нужно автоматически создавать эти Док.Калькуляции с заполненной таблЧастью(в ней как раз должен поместиться СОСТАВ)

1. это украина что ли ?
2. тогда причём здесь основание ?

да,это укр.конфа.
> 2. тогда причём здесь основание ?

не понятен этот вопрос,не помню когла такое писала...

Что-то так и осталось для вас непонятным???

> Сделала в Журнале.Производство ЧУДО-кнопочку,по нажатию на которую(за выбранный период)
из табличной части РН автоматически формируються Док.Калькуляция,и вроде все проводиться отлично

1. что "чудо-Юда кнопка" делает ?
2. по каким данным
3. может проще мне показать ?

"> 1. что "чудо-Юда кнопка" делает ?
Эта кнопка выбирает все Док.РН за выбранный период в ТаблТМЦ,а потом из этой же ТаблТМЦ формирует Док.Калькуляции

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

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

Только ведь при всех этих действиях у меня так и не заполнена ТабличнаяЧасть всех созданных документов Калькуляция

> 3. может проще мне показать ?
каким образом????базу прислать или .md&&&

"

> > 1. что "чудо-Юда кнопка" делает ?
> Эта кнопка выбирает все Док.РН за выбранный период в ТаблТМЦ,а потом из этой же ТаблТМЦ формирует Док.Калькуляции

так а я что выше писал ?


> > 3. может проще мне показать ?
> каким образом????базу прислать или .md&&&

есть программа teamViewer
стучимся в аську и ... =)

454285594

вот заполнение ТЧ http://www.buh.ru/forum/thread.jsp?id=540008