|
0
JuixyJes
27.01.20
✎
15:00
|
Доброго дня! Я тут отчетик делаю, но вот незадача, код вроде бы верный, все должно работать, нооо в цикл не попадаю впринципе
//*******************************************
Процедура Сформировать()
//Построение отчета
ЖрнКв = СоздатьОбъект("ЖурналРасчетов.Квартплата");
асКлиенты = СоздатьОбъект("Справочник.Клиенты");
НТП = ЖрнКв.НачалоТекущегоПериода();
КТП = ЖрнКв.КонецТекущегоПериода();
ТабДок = СоздатьОбъект("Таблица");
ТабДок.ИсходнаяТаблица("СписокРасчетовНеВып");
ТабДок.ВывестиСекцию("Шапка");
сч = 0;
асКлиенты.ВыбратьЭлементы();
Пока асКлиенты.ПолучитьЭлемент() = 1 Цикл
Если (асКлиенты.ЭтоГруппа()=1) ИЛИ (асКлиенты.ПометкаУдаления()=1) ИЛИ (асКлиенты.ПринадлежитГруппе(ВЫБЫВШИЕ) = 1) Тогда
Продолжить;
КонецЕсли;
сч = сч+1;
лс = асКлиенты.ТекущийЭлемент().Код;
Коммент ="";
ЖрнКв.ВыбратьЗаписиПоОбъекту(асКлиенты,НТП,КТП);
Пока ЖрнКв.ПолучитьЗапись() = 1 Цикл
Если ЖрнКв.ВидРасч.ВходитВГруппу("ВсеНачисления") = 1 Тогда
Если ЖрнКв.Результат = 0 Тогда
Коммент = Коммент + ЖрнКв.ВидРасч+ ", ";
КонецЕсли;
КонецЕсли;
Коммент = Лев(Коммент,СтрДлина(Коммент)-2);
КонецЦикла;
невыпрасч = Коммент;
Если невыпрасч <> "" Тогда
ТабДок.ВывестиСекцию("Строка");
Иначе
сч = сч - 1;
КонецЕсли;
КонецЦикла;
ТабДок.Опции(0,0,3,0,0);
ТабДок.ТолькоПросмотр(1);
ТабДок.ПараметрыСтраницы(1,,,5,0,0,0,0,0,,,);
ТабДок.Показать();
//Построение отчета
КонецПроцедуры
|
|
