0
tatoshka0403
11.12.14
✎
16:42
|
Процедура Инициализировать(Объект) Экспорт
Если Объект.Товары.Количество() > 0 Тогда
ТекстВопроса = "Перед заполнением табличная часть будет очищена. Заполнить?";
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да, Метаданные().Синоним);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
Объект.Товары.Очистить();
КонецЕсли;
Запрос=Новый Запрос;
Запрос.Текст ="ВЫБРАТЬ
| ПартииТоваровНаСкладахОстатки.ХарактеристикаНоменклатуры.Владелец КАК Номенклатура,
| ПартииТоваровНаСкладахОстатки.ХарактеристикаНоменклатуры,
| NULL КАК Отклонение,
| ПартииТоваровНаСкладахОстатки.КоличествоОстаток КАК Количество,
| ПартииТоваровНаСкладахОстатки.Номенклатура.ЕдиницаХраненияОстатков КАК ЕдиницаИзмерения,
| ""1"" КАК Коэффициент,
| ПартииТоваровНаСкладахОстатки.КоличествоОстаток КАК КоличествоУчет,
| ВЫБОР
| КОГДА ПартииТоваровНаСкладахОстатки.КоличествоОстаток <> 0
| ТОГДА ПартииТоваровНаСкладахОстатки.СтоимостьОстаток / ПартииТоваровНаСкладахОстатки.КоличествоОстаток
| ИНАЧЕ ""0""
| КОНЕЦ КАК Цена,
| ПартииТоваровНаСкладахОстатки.СтоимостьОстаток КАК СуммаУчет,
| ПартииТоваровНаСкладахОстатки.Качество КАК Качество,
| ПартииТоваровНаСкладахОстатки.СтоимостьОстаток КАК СуммаРегл
|ИЗ
| РегистрНакопления.ПартииТоваровНаСкладах.Остатки(, Склад = &Склад) КАК ПартииТоваровНаСкладахОстатки";
Запрос.УстановитьПараметр("Склад", Объект.Склад);
Результат = Запрос.Выполнить();
Товар = Результат.Выбрать();
Пока Товар.Следующий() Цикл
НовСтр = Объект.Товары.Добавить();
ЗаполнитьЗначенияСвойств(НовСтр, Объект.Товар);
КонецЦикла;
КонецПроцедуры
Подскажите пожалуйста что я сделал не так...обработка по заполнению ТЧ документа
|
|