Запрос4=СоздатьОбъект("ODBCRecordSet"); РегОстатковДв=глМета.ИмяТаблицыДвижений("КнигаПродаж"); Запрос4.УстановитьТекстовыйПараметр("ВыбФирма",Фирма); //Запрос4.УстановитьТекстовыйПараметр("Зач",Перечисление.Движения.ЗачетАванса); Запрос4.УстановитьТекстовыйПараметр("Опл",Перечисление.Движения.Оплата); Запрос4.УстановитьТекстовыйПараметр("НачДата1",ДНач); Запрос4.УстановитьТекстовыйПараметр("МинОплата1",МинОплата); Запрос4.УстановитьТекстовыйПараметр("КонДата1",ДКон); Всего="SP"+глМета.ИДРесурсаРегистра("КнигаПродаж","Всего"); Фир="SP"+глМета.ИДИзмеренияРегистра("КнигаПродаж","Фирма"); Аге="SP"+глМета.ИДИзмеренияРегистра("КнигаПродаж","Агент"); Контр="SP"+глМета.ИДИзмеренияРегистра("КнигаПродаж","Контрагент"); Движ="SP"+глМета.ИДРеквизитаРегистра("КнигаПродаж","Движение"); Док="SP"+глМета.ИДИзмеренияРегистра("КнигаПродаж","ДокументОплаты"); Запрос4.УстановитьТекстовыйПараметр("МинОплата1",МинОплата); Запрос4.УстановитьТекстовыйПараметр("Просрочка",Просрочка1); ТекстЗапроса4 =" |SELECT |REG."+Фир+" As Фирма, |REG."+Контр+" AS Контр, |REG."+Аге+" AS Агент, |(DBO.sp_tohex(J.iddocdef,4)+ REG.IDDOC) As Док , |CAST(LEFT(J.Date_Time_IDDoc, 8) as DateTime) as ДатаДок, |REG."+Док+" AS ДокОплаты, |CAST(LEFT(R.Date_Time_IDDoc, 8) as DateTime) as ДатаДок1, |REG."+Движ+" AS Движение, |REG."+Всего+" AS Всего, |REG.LINENO_ AS Ном |FROM "+РегОстатковДв+" AS REG INNER JOIN _1SJOURN AS J ON J.IDDOC = REG.IDDOC | INNER JOIN _1SJOURN AS R ON R.IDDOC = RIGHT(REG."+Док+",9) |WHERE (J.DATE_TIME_IDDOC BETWEEN :НачДата1 AND :КонДата1) | AND (R.DATE_TIME_IDDOC <:КонДата1) | AND (REG."+Фир+" = :ВыбФирма) | AND CAST(LEFT(J.Date_Time_IDDoc, 8) as DateTime)-CAST(LEFT(R.Date_Time_IDDoc, 8) as DateTime)> :Просрочка |"; Если Агент.Выбран()=1 Тогда Запрос4.УстановитьТекстовыйПараметр("ВыбАгент",Агент); ТекстЗапроса4 =ТекстЗапроса4 +" | AND (REG."+Аге+" = :ВыбАгент) |"; КонецЕсли; ТекстЗапроса4 =ТекстЗапроса4 +" | AND (REG."+Всего+" >= :МинОплата1) | AND (REG."+Движ+" = :Опл) |ORDER BY REG."+Аге+",ДатаДок |";
|