Имя: Пароль:
1C
1С v8
Как в товарах заполнить счета в табличной части?
0 DDD2005NEW
 
30.08.12
11:52
В КА делаю заполнения документа реализации

       Записать();
           //Попытка
           ДокОтгрузка =Документы.РеализацияТоваровУслуг.СоздатьДокумент();
           //        // Заполнение шапки
           ДокОтгрузка.Дата = Дата;
           ДокОтгрузка.Грузополучатель = Грузополучатель;
           ДокОтгрузка.АдресДоставки = АдресДоставки;
           ДокОтгрузка.ВалютаДокумента = ВалютаДокумента;
           ДокОтгрузка.ДоговорКонтрагента = ДоговорКонтрагента;
           ДокОтгрузка.Комментарий = Комментарий;
           ДокОтгрузка.Контрагент = Контрагент;
           ДокОтгрузка.КратностьВзаиморасчетов = КратностьВзаиморасчетов;
           ДокОтгрузка.КурсВзаиморасчетов = КурсВзаиморасчетов;
           ДокОтгрузка.Организация = Организация;
           ДокОтгрузка.Ответственный = Ответственный;
           ДокОтгрузка.Склад = Склад;
           ДокОтгрузка.СуммаВключаетНДС = СуммаВключаетНДС;
           ДокОтгрузка.СуммаДокумента = СуммаДокумента;
           ДокОтгрузка.ТипЦен = ТипЦен;
           ДокОтгрузка.УчитыватьНДС = УчитыватьНДС;
           ДокОтгрузка.БанковскийСчетОрганизации  =  СтруктурнаяЕдиница;
           ДокОтгрузка.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
           ДокОтгрузка.СчетУчетаРасчетовСКонтрагентом = Планысчетов.Хозрасчетный.РасчетыСПокупателями;
           ДокОтгрузка.СчетУчетаРасчетовПоАвансам = Планысчетов.Хозрасчетный.РасчетыПоАвансамПолученным;
           ДокОтгрузка.НН_НомерЗаказа = СокрЛП(НомерЗаявки);
           ДокОтгрузка.КоличествоПалетов = КоличествоПалетов;
           ДокОтгрузка.ВидПередачи = Перечисления.ВидыПередачиТоваров.СоСклада;
           
           ДокОтгрузка.ОтражатьВБухгалтерскомУчете =True;
           ДокОтгрузка.ОтражатьВНалоговомУчете =True;
           ДокОтгрузка.ОтражатьВУправленческомУчете =True;

           
           Для Каждого ТекСтрокаТовары Из Товары Цикл
               НоваяСтрока = ДокОтгрузка.Товары.Добавить();
               НоваяСтрока.ЕдиницаИзмеренияМест = ТекСтрокаТовары.ЕдиницаИзмеренияМест;
               НоваяСтрока.ЗначениеУсловияАвтоматическойСкидки = ТекСтрокаТовары.ЗначениеУсловияАвтоматическойСкидки;
               НоваяСтрока.ЕдиницаИзмерения = ТекСтрокаТовары.ЕдиницаИзмерения;
               НоваяСтрока.КоличествоМест = ТекСтрокаТовары.КоличествоМест;
               НоваяСтрока.Коэффициент = ТекСтрокаТовары.Коэффициент;
               НоваяСтрока.Количество = ТекСтрокаТовары.Количество;
               НоваяСтрока.Номенклатура = ТекСтрокаТовары.Номенклатура;
               НоваяСтрока.ПроцентАвтоматическихСкидок = ТекСтрокаТовары.ПроцентАвтоматическихСкидок;
               НоваяСтрока.ПроцентСкидкиНаценки = ТекСтрокаТовары.ПроцентСкидкиНаценки;
               НоваяСтрока.Цена = ТекСтрокаТовары.Цена;
               НоваяСтрока.СтавкаНДС = ТекСтрокаТовары.СтавкаНДС;
               НоваяСтрока.Сумма = ТекСтрокаТовары.Сумма;
               НоваяСтрока.СуммаНДС = ТекСтрокаТовары.СуммаНДС;
               //ДокОтгрузка.ЗаполнитьСчетаУчетаВСтрокеТабЧастиРегл(ДокОтгрузка.СтрокаТабличнойЧасти, "Товары", ДокОтгрузка.ОтражатьВБухгалтерскомУчете, ДокОтгрузка.ОтражатьВНалоговомУчете);
               //ДокОтгрузка.ПриИзмененииНоменклатурыТовары(ТекСтрокаТовары.Номенклатура);
               
               
           КонецЦикла;
           ДокОтгрузка.УстановитьНовыйНомер();
           ДокОтгрузка.Записать();
           ДокОтгрузка.УстановитьВремя(РежимАвтоВремя.ТекущееИлиПоследним);
           ДокОтгрузка.Записать(РежимЗаписиДокумента.Проведение);
           НН_РеализацияТоваровУслуг = ДокОтгрузка.Ссылка;
           НомерНакладной = ДокОтгрузка.Номер;
           ДатаНакладной = ДокОтгрузка.Дата;
           Записать();
       КонецЕсли;
1 Пуд
 
30.08.12
11:54
И?
2 del123
 
30.08.12
11:56
все не читал но в типовой КА в реализацииТиУ счета заполняются так

СчетаУчетаВДокументах.ЗаполнитьСчетаУчетаТабличнойЧасти(ИмяТабЧасти, ТабличнаяЧасть, ЭтотОбъект, ЗаполнятьБУ, ЗаполнятьНУ);
3 DDD2005NEW
 
30.08.12
11:57
(2) пытался выдернуть
          //ДокОтгрузка.ЗаполнитьСчетаУчетаВСтрокеТабЧастиРегл(ДокОтгрузка.СтрокаТабличнойЧасти, "Товары", ДокОтгрузка.ОтражатьВБухгалтерскомУчете, ДокОтгрузка.ОтражатьВНалоговомУчете);

но ругается что нет СтрокаТабличнойЧасти
4 Kuein
 
30.08.12
12:02
О_о?

СтрокаТабличнойЧасти может быть получена как

Для каждого СтрокаТабличнойЧасти из ДокОтгрузка.Какая-то-Заполняемая-Табчасть цикл

<что-то делаем>

конеццикла
5 del123
 
30.08.12
12:04
(3) пиши
ДокОтгрузка.ЗаполнитьСчетаУчетаВСтрокеТабЧастиРегл(НоваяСтрока, "Товары", ДокОтгрузка.ОтражатьВБухгалтерскомУчете, ДокОтгрузка.ОтражатьВНалоговомУчете);
6 Kuein
 
30.08.12
12:06
Да, (5) прав. Я не вчитался в код в (0).
7 DDD2005NEW
 
30.08.12
12:07
(5) спасибо то что надо
8 del123
 
30.08.12
12:09
и можно было бы сократить количество строк кода используя процедуру ЗаполнитьЗначенияСвойств()
Почитай в СП что она делает)
Ошибка? Это не ошибка, это системная функция.