Реквизит регистра

 

Запрос=СоздатьОбъект("Запрос"); 



ТекстЗапроса=" 

|ПЕРИОД С Дата1 По Дата2; 

|Товар=Регистр.ПартииТоваров.Товар; 

|СрокГодности=Регистр.ПартииТоваров.СрокГодности; 

|Фирма=Регистр.ПартииТоваров.Фирма; 

|Поставщик=Регистр.ПартииТоваров.Поставщик; 

|ПрихДокумент=Регистр.ПартииТоваров.ПрихДокумент; 

|Докум=Регистр.ПартииТоваров.ТекущийДокумент; 

|ОстатокТовара=Регистр.ПартииТоваров.ОстатокТовара; 

|Оборот=Регистр.ПартииТоваров.Оборот; 

|Группировка Товар Без групп; 

|Группировка Поставщик; 

|Группировка ПрихДокумент упорядочить по ПрихДокумент.ДатаДок без групп все;"; 

|Функция НачОстатокТовара=НачОст(ОстатокТовара); 

|Функция ОборотТовара=Сумма(Оборот); 

|Условие (Фирма=выбФирма); 

|"; 



Если Запрос.Выполнить(ТекстЗапроса)=0 тогда 

Предупреждение("Запрос по Партиям не выполнился!!!"); 

Возврат; 

КонецЕсли; 



тз = создатьОбъект("ТаблицаЗначений"); 

Запрос.Выгрузить(тз,1,1); 

тз.ВыбратьСтроку();

 

|Условие (СрокГодности>Дата1); 

 

|Функция ПрихОстатокТовара=Приход(ОстатокТовара); 

|Функция РасхОстатокТовара=Расход(ОстатокТовара); 

|Функция ОборотТовара=Сумма(Оборот); 

 

|Функция КонОстатокТовара=КонОст(ОстатокТовара); 

 



|Функция СрокГодностиСум=Сумма(СрокГодности);