среда, 30 октября 2013 г.

ввод Списание на основании ВозвратаТоваровОтПокупателя

// Процедура - обработчик события "ОбработкаЗаполнения".
//
Процедура ОбработкаЗаполнения(Основание)

Если ТипЗнч(Основание) = Тип("ДокументСсылка.ИнвентаризацияТоваровНаСкладе") Тогда

// Заполним реквизиты из стандартного набора по документу основанию.
ЗаполнениеДокументов.ЗаполнитьШапкуДокументаПоОснованию(ЭтотОбъект, Основание);

ИнвентаризацияТоваровНаСкладе = Основание;

ЗаполнитьТоварыПоИнвентаризацииТоваровУпр(Основание, Ложь);


//vqwy
ИначеЕсли ТипЗнч(Основание) = Тип("ДокументСсылка.ВозвратТоваровОтПокупателя")Тогда
ЗаполнениеДокументов.ЗаполнитьШапкуДокументаПоОснованию(ЭтотОбъект, Основание);
//ТЧ = Основание.Товары;
СкопироватьТовары(Основание);

КонецЕсли;

КонецПроцедуры // ОбработкаЗаполнения()

//vqwy
Процедура СкопироватьТовары(ДокументОснование = Неопределено) Экспорт

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Счет", ДокументОснование);
Запрос.Текст =
"ВЫБРАТЬ
| Возвр.ЕдиницаИзмерения,
| Возвр.ЕдиницаИзмеренияМест,
| Возвр.Количество,
| Возвр.КоличествоМест,
| Возвр.Коэффициент,
| Возвр.Номенклатура,
| Возвр.ХарактеристикаНоменклатуры
| ИЗ
| Документ.ВозвратТоваровОтПокупателя.Товары КАК Возвр
|
|ГДЕ
| Возвр.Ссылка = &Счет
|";

Выборка = Запрос.Выполнить().Выбрать();