Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 21:02

В чем ошибка заполнения?

Автор Nail2010, 21 мар 2011, 08:13

0 Пользователей и 2 гостей просматривают эту тему.

***Vjacheslav***

Пожалуйста, всегда рад помочь чем могу.

Nail2010

Запрос2=Новый запрос;
Запрос2.Текст="ВЫБРАТЬ
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка,
              | ИнвентаризацияТоваровНаСкладеТовары.НомерСтроки,
              | ИнвентаризацияТоваровНаСкладеТовары.Количество,
              | ИнвентаризацияТоваровНаСкладеТовары.Номенклатура,
              | ИнвентаризацияТоваровНаСкладеТовары.СчетУчетаБУ,
              | ИнвентаризацияТоваровНаСкладеТовары.Цена,
              | ИнвентаризацияТоваровНаСкладеТовары.Сумма,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Склад КАК Склад,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Ответственный КАК Ответственный,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Организация КАК Организация,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Комментарий КАК Комментарий,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.Дата КАК Дата,
              | ИнвентаризацияТоваровНаСкладеТовары.Ссылка.ОтветственноеЛицо.Родитель КАК Родитель
              |ИЗ
              | Документ.ИнвентаризацияТоваровНаСкладе.Товары КАК ИнвентаризацияТоваровНаСкладеТовары";
Выборка2=Запрос2.Выполнить().Выбрать();
Пока Выборка2.Следующий() Цикл
СтрокаТЧ2=ИзмДок.Добавить();
СтрокаТЧ2.Док=Выборка2.Ссылка;
НовТаб=Документы.ВводНачальныхОстатков.СоздатьДокумент();
НовТаб.Организация=Выборка2.Организация;
НовТаб.Ответственный=Выборка2.Ответственный;
НовТаб.Комментарий=Выборка2.Комментарий;
НовТаб.РазделУчета=Перечисления.РазделыУчетаДляВводаОстатков.Товары;
НовТаб.Дата=Выборка2.Дата;
Для каждого Строка2 Из Новтаб.МПЗОтгруженные Цикл
Строка2.Номенклатура=Выборка2.Номенклатура;
Строка2.СчетУчета=Выборка2.СчетУчетаБУ;
Строка2.Количество=Выборка2.Количество;
Строка2.Сумма=Выборка2.Сумма;
Строка2.Партия=Документы.ДокументРасчетовСКонтрагентом.СоздатьДокумент();
Строка2.Партия.ДатаВходящегоДокумента=Выборка2.Дата;
Строка2.Партия.Номер=Выборка2.НомерСтроки;
Строка2.Партия.ДокументОснование=Выборка2.Родитель;
Строка2.партия.Комментарий=Выборка2.Комментарий;
Строка2.Партия.Организация=Выборка2.Организация;
Строка2.Партия.СуммаДокумента=Выборка2.Сумма;
КонецЦикла;
КонецЦикла;
НовТаб.Записать();
КонецПроцедуры


И снова табличная часть почему-то остается пустой...
Для справки: В форме документа содержиться 11 разных таб.частей.. может в этом причина?

Myti

Так решил же проблему,,,,,сейчас то чего???7 Ты сам код дописываешь чтоль?

Nail2010

Это уже совсем другой документ.
Как следует из кода, задача - СОЗДАТЬ новый документ и заполнить его табличную часть.

***Vjacheslav***

Вместо Для каждого Строка2 Из Новтаб.МПЗОтгруженные Цикл
КонецЦикла ;

Нужно Строка2 = Новтаб.МПЗОтгруженные.Добавить();  

Nail2010

Не а. Все равно Табчасть не заполняется, зараза....

Myti


Myti

 Для каждого Строка2 Из Новтаб.МПЗОтгруженные Цикл   Новтаб- это же новый документ...как в нем таб часть
МПЗОтгруженные может быть заполненна???? Цикл этот не идет

***Vjacheslav***

В коде еще неправильно заполнение реквизита Партия. Нужно НовыйДокументПартии = Документы.ДокументРасчетовСКонтрагентами.СоздатьДокумент()
Заполнить его , потом записасать, а уже потом присвоить его Строка2.Партия = НовыйДокументПартии;

Myti

да...необходимо соблюдать последовательность при построении подобных архетектур

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск