M_Volkov
Gold Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Во внешней обработке по заполнению табличной части документа УТ11.2 нужно заполнить остатками:
- по складу
Код: &НаСервере
Функция ЗаполнитьОбъектОстаткамиСклада(НовыйОбъект)
НовыйОбъект.Товары.Очистить();
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТоварыНаСкладахОстатки.Номенклатура,
| ТоварыНаСкладахОстатки.Характеристика,
| ТоварыНаСкладахОстатки.ВНаличииОстаток КАК Количество
|ИЗ
| РегистрНакопления.ТоварыНаСкладах.Остатки(&Период, ) КАК ТоварыНаСкладахОстатки
|ГДЕ
| ТоварыНаСкладахОстатки.Склад = &Склад
| И ТоварыНаСкладахОстатки.ВНаличииОстаток > 0
|
|СГРУППИРОВАТЬ ПО
| ТоварыНаСкладахОстатки.Номенклатура,
| ТоварыНаСкладахОстатки.Характеристика,
| ТоварыНаСкладахОстатки.ВНаличииОстаток";
Запрос.УстановитьПараметр("Период", НовыйОбъект.Дата);
Запрос.УстановитьПараметр("Склад", НовыйОбъект.СкладОтправитель);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
НоваяСтрока = НовыйОбъект.Товары.Добавить();
НоваяСтрока.Номенклатура = Выборка.Номенклатура;
НоваяСтрока.Характеристика = Выборка.Характеристика;
НоваяСтрока.Количество = Выборка.Количество;
НоваяСтрока.КоличествоУпаковок = Выборка.Количество;
КонецЦикла;
КонецФункции |
- по организации
Код: &НаСервере
Функция ЗаполнитьОбъектОстаткамиОрганизации(НовыйОбъект)
НовыйОбъект.Товары.Очистить();
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ТоварыОрганизацийОстатки.АналитикаУчетаНоменклатуры.Номенклатура КАК Номенклатура,
| ТоварыОрганизацийОстатки.АналитикаУчетаНоменклатуры.Характеристика КАК Характеристика,
| ТоварыОрганизацийОстатки.КоличествоОстаток КАК Количество
|ИЗ
| РегистрНакопления.ТоварыОрганизаций.Остатки(&Период, ) КАК ТоварыОрганизацийОстатки
|ГДЕ
| ТоварыОрганизацийОстатки.Организация = &Организация
| И ТоварыОрганизацийОстатки.КоличествоОстаток > 0
|
|СГРУППИРОВАТЬ ПО
| ТоварыОрганизацийОстатки.АналитикаУчетаНоменклатуры.Номенклатура,
| ТоварыОрганизацийОстатки.АналитикаУчетаНоменклатуры.Характеристика,
| ТоварыОрганизацийОстатки.КоличествоОстаток";
Запрос.УстановитьПараметр("Период", НовыйОбъект.Дата);
Запрос.УстановитьПараметр("Организация", НовыйОбъект.Организация);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
НоваяСтрока = НовыйОбъект.Товары.Добавить();
НоваяСтрока.Номенклатура = Выборка.Номенклатура;
НоваяСтрока.Характеристика = Выборка.Характеристика;
НоваяСтрока.Количество = Выборка.Количество;
НоваяСтрока.КоличествоУпаковок = Выборка.Количество;
КонецЦикла;
КонецФункции |
- по организации и складу - не соображу как их лучше объединить? |
Всего записей: 5796 | Зарегистр. 23-06-2008 | Отправлено: 18:25 09-03-2017 | Исправлено: M_Volkov, 18:27 09-03-2017 |
|
Программы » 
Варезник » 
модуль пришлось перелопатить. 
