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

Новая тема
Показывать по 10 20 40 сообщений
Нужно заполнить документ на основании нескольких документов, не очищая предыдущего значения в табличной части


"//пусть есть ТЗ, которую надо подгрузить в табличную часть дока
//ТЧ дока тоже имеет "заполненность"

ТабЧастьДок = СоздатьОбъект("ТаблицЗначений");
ВыгрузитьТабличнуюЧасть(ТабЧастьДок);
БылоСтрокВТабЧастьДок = ТабЧастьДок.КоличествоСтрок();
ТабЧастьДок.КоличествоСтрок(БылоСтрокВТабЧастьДок +ТЗ.КоличествоСтрок());
ТабЧастьДок.Заполнить(ТЧ, БылоСтрокВТабЧастьДок + 1);
ЗагрузитьТабличнуюЧасть(ТабЧастьДок);


и радуемся =)"
Спасибо!
Простите, пожалуйста, поясните поподробнее как мне ТЗ и ТЧ описать.
Заранее спасибо. (Простите за глупый впрос)
> Простите, пожалуйста, поясните поподробнее как мне ТЗ и ТЧ описать.
> Заранее спасибо. (Простите за глупый впрос)

что дано ?
Добрый день!
Не знаю как описать ТЧ.
Вот что у меня получается
что такое ДокументПоступления ?
РасходнаяНакладная,
Мне надо из нескольких поступлений сделать одну расходную накладную
> РасходнаяНакладная,
> Мне надо из нескольких поступлений сделать одну расходную накладную

так это документ или таблица значений?

весь код покажите
"Функция ЗаполнитьНаОсновании()

Если ПустоеЗначение(ДокументПоступления) = 1 Тогда
   Предупреждение("Выберите документ, которым ранее было
              |отражено поступление товаров от поставщика!");
Возврат 0;

ИначеЕсли
Вопрос("Документ будет  заполнен на основании
      |выбранного документа. Продолжить?", "Да+Нет" ) <> "Да" Тогда

Возврат 0;
КонецЕсли;

// Заполненеие шапки.
МестоХранения = ДокументПоступления.МестоХранения;    
Контрагент    = ДокументПоступления.Контрагент;
Договор       = ДокументПоступления.Договор;
Курс          = ДокументПоступления.Курс;
ТипЦен        = ДокументПоступления.ТипЦен;
ВариантРасчетаНалогов(ДокументПоступления.ВариантРасчетаНалогов);
НДСВключатьВСтоимость = ДокументПоступления.НДСВключатьВСтоимость;
Если (ДокументПоступления.ВидПоступления = 2) или (ДокументПоступления.ВидПоступления = 1) Тогда // возврат из розничной продажи
   СписокВидовОтгрузки.ТекущаяСтрока(3);
ВидОтгрузки = 13;
КонецЕсли;
ПриВыбореДоговора();
УправлениеКурсом(0);

// Заполнение табличной части.
УдалитьСтроки();

ТаблицаДокумента = СоздатьОбъект("ТаблицаЗначений");
ДокументПоступления.ВыгрузитьТабличнуюЧасть(ТаблицаДокумента, "Товар, Количество, Цена, Сумма, НДС, НП, Всего, ГТД");

//СА
ТабЧастьДок = СоздатьОбъект("ТаблицаЗначений");    
ТЧ = СоздатьОбъект ("ТабличнаяЧасть");
   ВыгрузитьТабличнуюЧасть(ТабЧастьДок);
   БылоСтрокВТабЧастьДок = ДокументПоступления.КоличествоСтрок();
   ТабЧастьДок.КоличествоСтрок(БылоСтрокВТабЧастьДок + ТаблицаДокумента.КоличествоСтрок());
   ТабЧастьДок.Заполнить(ТЧ, БылоСтрокВТабЧастьДок + 1);
   ЗагрузитьТабличнуюЧасть(ТабЧастьДок);
//СА Кон

// ЗагрузитьТабличнуюЧасть(ТаблицаДокумента);


Форма.НДС.Видимость(глПризнакУчетаНалога(Контекст, "НДС"));
Форма.НП.Видимость(глПризнакУчетаНалога(Контекст, "НП"));
УправлениеВидимостьюГТД(1);

КонецФункции // ЗаполнитьНаОсновании()"
Читают тему
(гостей: 1)

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