2
vse_serjezno
27.01.14
✎
18:29
|
Код примерно такой:
&НаКлиенте
Процедура ПоказатьСтатусы(Команда)
ПолучитьСтатусыНаСервере();
КонецПроцедуры
Процедура ПолучитьСтатусыНаСервере()
ДокОбъект = РеквизитФормыВЗначение("Объект");
НомераОтправлений = ДокОбъект.ЗаказыКлиентов.ВыгрузитьКолонку("НомерОтправления");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ИПМ_ИсторияПочтовыхОтправленийСрезПоследних.НомерПочтовогоОтправления,
| ИПМ_ИсторияПочтовыхОтправленийСрезПоследних.Состояние
|ИЗ
| РегистрСведений.ИПМ_ИсторияПочтовыхОтправлений.СрезПоследних(&ДатаСреза, НомерПочтовогоОтправления В (&МассивНомеров)) КАК ИПМ_ИсторияПочтовыхОтправленийСрезПоследних";
Запрос.УстановитьПараметр("ДатаСреза", ТекущаяДата());
Запрос.УстановитьПараметр("МассивНомеров", НомераОтправлений);
Результат = Запрос.Выполнить();
ТЗНомеров = Результат.Выгрузить();
|
|