1C 7.7 Бухгалтерия

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