0
busy1
12.08.15
✎
17:05
|
Добрый день друзья. Что то я совсем запутался, выведите меня на правильный путь.
Есть Бух 8.3. УФ. Делаю внешнюю обработку по заполнению ТЧ. Сделал стандартные процедуры описания.
И вот на форме рисую следующий не работающий код
&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
ЭтаФорма.Открыть();
ДокументИсточник = ОбъектыНазначенияМассив[0];
КонецПроцедуры
&НаСервере
Процедура ПолучитьДанныеДобавления(ДокументПоступления)
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДокументПоступления", ДокументПоступления);
Запрос.Текст =
"ВЫБРАТЬ
| ПоступлениеТоваровУслугТовары.Номенклатура,
| ПоступлениеТоваровУслугТовары.КоличествоМест,
| ПоступлениеТоваровУслугТовары.ЕдиницаИзмерения,
| ПоступлениеТоваровУслугТовары.Коэффициент,
| ПоступлениеТоваровУслугТовары.Количество,
| ПоступлениеТоваровУслугТовары.Цена,
| ПоступлениеТоваровУслугТовары.Сумма,
| ПоступлениеТоваровУслугТовары.СтавкаНДС,
| ПоступлениеТоваровУслугТовары.СуммаНДС,
| ПоступлениеТоваровУслугТовары.СчетУчета,
| ПоступлениеТоваровУслугТовары.СчетУчетаНДС,
| ПоступлениеТоваровУслугТовары.НомерГТД,
| ПоступлениеТоваровУслугТовары.СтранаПроисхождения,
| ПоступлениеТоваровУслугТовары.ЦенаВРознице,
| ПоступлениеТоваровУслугТовары.СуммаВРознице,
| ПоступлениеТоваровУслугТовары.СтавкаНДСВРознице,
| ПоступлениеТоваровУслугТовары.ОтражениеВУСН,
| ПоступлениеТоваровУслугТовары.Контрагент,
| ПоступлениеТоваровУслугТовары.ДоговорКонтрагента,
| ПоступлениеТоваровУслугТовары.СчетРасчетов,
| ПоступлениеТоваровУслугТовары.СпособУчетаНДС
|ИЗ
| Документ.ПоступлениеТоваровУслуг.Товары КАК ПоступлениеТоваровУслугТовары
|ГДЕ
| ПоступлениеТоваровУслугТовары.Ссылка = &ДокументПоступления";
Выборка = Запрос.Выполнить();
//Результат = Выборка.Выбрать();
//Пока Результат.Следующий() Цикл
// СтрокаТЗ = ТЗ.Добавить();
// СтрокаТЗ.Номенклатура = Результат.Номенклатура;
//КонецЦикла
ДокОбъект = ДокументИсточник.ПолучитьОбъект();
ДокОбъект.Товары.Загрузить(Выборка.Выгрузить());
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьТЧ(Команда)
ПолучитьДанныеДобавления(Объект.ДокументПоступления);
ЭтаФорма.Закрыть();
//Для каждого Элемент Из ТЗ Цикл
// Сообщить(Элемент);
//КонецЦикла;
КонецПроцедуры
|
|