Бухгалтерия для бюджетного учреждения,релиз 636, внешн отчет, сортировка в печатной форме
15.03.2010
03:02
#1
"Добрый вечер.
Процедура СформироватьСтроку(ТабРезультата,КолРеквизитов)
ВывТабл = СоздатьОбъект("СписокЗначений");
ВывТабл.Установить( "НомСтр", """");
ВывТабл.Установить( "пОбъект","""" );
ВывТабл.Установить( "Пост","""" );
ГлПолучитьДанные(ВывТабл);
НомСтр = ТабРезультата.НомерСтроки;
Объект = ТабРезультата.ПолучитьЗначение(НомСтр,"Номенклатура");
пОбъект = Объект;
Пост = СоздатьОбъект("Документ.МЗ_Поступление");
Пост.ВыбратьДокументы(НачДата,КонДата);
Пока Пост.ПолучитьДокумент()=1 Цикл
Пост.ВыбратьСтроки ();
Пока Пост.ПолучитьСтроку()=1 цикл
Если Пост.Номенклатура = Объект тогда
ДатаОткр = Пост.ДатаДок;
КонецЕсли;
КонецЦикла;
Если ПустоеЗначение(ДатаОткр) = 0 тогда
Прервать;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Строка");
КонецПроцедуры // СформироватьСтроку()
Подскажите, пожалуйста, как можно сделать сортировку в печатной форме по реквизиту "Пост"?"
Процедура СформироватьСтроку(ТабРезультата,КолРеквизитов)
ВывТабл = СоздатьОбъект("СписокЗначений");
ВывТабл.Установить( "НомСтр", """");
ВывТабл.Установить( "пОбъект","""" );
ВывТабл.Установить( "Пост","""" );
ГлПолучитьДанные(ВывТабл);
НомСтр = ТабРезультата.НомерСтроки;
Объект = ТабРезультата.ПолучитьЗначение(НомСтр,"Номенклатура");
пОбъект = Объект;
Пост = СоздатьОбъект("Документ.МЗ_Поступление");
Пост.ВыбратьДокументы(НачДата,КонДата);
Пока Пост.ПолучитьДокумент()=1 Цикл
Пост.ВыбратьСтроки ();
Пока Пост.ПолучитьСтроку()=1 цикл
Если Пост.Номенклатура = Объект тогда
ДатаОткр = Пост.ДатаДок;
КонецЕсли;
КонецЦикла;
Если ПустоеЗначение(ДатаОткр) = 0 тогда
Прервать;
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Строка");
КонецПроцедуры // СформироватьСтроку()
Подскажите, пожалуйста, как можно сделать сортировку в печатной форме по реквизиту "Пост"?"
Читают тему
(гостей: 1)