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