РабДата=Лев(СокрЛП(РабочаяДата),10); //НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(ДобавитьМесяц(РабочаяДата, -1 ))),10); НачПрошлогоМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10); НачМесяца=Лев(СокрЛП(НачалоМесяца(РабочаяДата)),10); МойЗапрос = " |S_elect SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RG38027.SP38026) AS Ost |FROM RG38027, SC172, _1SJOURN, DH38011 |WHERE (RG38027.SP38024 = SC172.ID) AND (CONVERT (DATETIME , RG38027.PERIOD) = CONVERT (DATETIME , '"+НачПрошлогоМесяца+"')) AND |(RG38027.SP38025 = _1SJOURN.IDDOC) AND (RG38027.SP38025 = DH38011.IDDOC) |AND (DH38011.SP38005 = ' 3Z ') |GROUP BY SC172.DESCR, RG38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC | |U_nion ALL | |S_elect SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, LEFT(_1SJOURN.DATE_TIME_IDDOC, 8) AS DATADOC, SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) AS Ost |FROM RA38027, SC172, _1SJOURN, DH38011 |WHERE (RA38027.SP38024 = SC172.ID) AND (RA38027.IDDOC=_1SJOURN.IDDOC) AND |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) <= CONVERT (DATETIME , '"+РабДата+"')) AND |(CONVERT (DATETIME , LEFT(_1SJOURN.DATE_TIME_IDDOC,8)) > CONVERT (DATETIME , '"+НачМесяца+"')) AND |(RA38027.SP38025 = _1SJOURN.IDDOC) AND (RA38027.SP38025 = DH38011.IDDOC) |AND (DH38011.SP38005 = ' 3Z ') |GROUP BY SC172.DESCR, RA38027.SP38025, _1SJOURN.DOCNO, _1SJOURN.DATE_TIME_IDDOC |HAVING SUM(RA38027.SP38026*(1-2*RA38027.DEBKRED)) > 0 |ORDER BY SC172.DESCR"; Connection = Новый COMОбъект("ADODB.Connection"); //Connection.Provider = Провайдер; Connection.ConnectionString = мдСтрокаПодключения; //Сообщить(МойЗапрос); Попытка Connection.Open(); Исключение Сообщить("Подключение - bad!"); КонецПопытки; RS = Новый COMОбъект("ADODB.Recordset"); //RS.CursorType = 3; RS.Open(МойЗапрос, Connection ); ТЗ=Новый ТаблицаЗначений; ТЗ.Колонки.Добавить("КонтрагентНаименование", ПолучитьОписаниеТиповС(50),"Контрагент",30); ТЗ.Колонки.Добавить("ИДДокумента", ПолучитьОписаниеТиповС(10)); ТЗ.Колонки.Добавить("НомерДок", ПолучитьОписаниеТиповС(10),"№ заявки",10); ТЗ.Колонки.Добавить("ДатаДок", ПолучитьОписаниеТиповС(10),"дата заявки",10); ТЗ.Колонки.Добавить("СуммаОстаток", ПолучитьОписаниеТиповЧ(10, 2),"Сумма",15); Пока RS.EOF() = 0 Цикл КонтрагентНаименование = RS.Fields("DESCR").Value; ИДДокумента = RS.Fields("SP38025").Value; НомерДок = RS.Fields("DOCNO").Value; ДатаДок = RS.Fields("DATADOC").Value; СуммаОстаток = Число(RS.Fields("Ost").Value); Если СуммаОстаток = 0 Тогда RS.MoveNext(); Продолжить; КонецЕсли; Стр=ТЗ.Добавить(); Стр.КонтрагентНаименование = КонтрагентНаименование; Стр.ИДДокумента = ИДДокумента; Стр.НомерДок = НомерДок; Стр.ДатаДок = Дата(ДатаДок); Стр.СуммаОстаток = СуммаОстаток; RS.MoveNext(); КонецЦикла;