strSQL = "SELECT tblTransaction.IdTransact, tblTransaction.dtSPeriod," _
           & " tblTransaction.dtEndPeriod, UserTel.idUser, tblUsers.FIO," _
           & " [sumtransact]-(([dtendperiod]-[dtsperiod]+1)*([limit]/30))-[extralimit]-[sumpay] AS overdraft," _
           & " tblTransaction.Limit, tblTransaction.ExtraLimit," _
           & " [SumLocal]*[kNDS] AS SumLocal_NDS, [SumNacR]*[kNDS] AS SumNacR_NDS," _
           & " [SumInterR]*[kNDS] AS SumInterR_NDS, [SumSMS]*[kNDS] AS SumSMS_NDS," _
           & " [SumLocal_NDS]+[SumNacR_NDS]+[SumInterR_NDS]+[SumSMS_NDS] AS sumtransact," _
           & " tblTransaction.SumPay, UserTel.NumTel, tblTransaction.SumLocal, tblTransaction.SumNacR," _
           & " tblTransaction.SumInterR, tblTransaction.SumSMS, tblTransaction.idType, tblGRP.IdGRP," _
           & " tblGRP.NameGRP, IIf([tblTransaction]![dtSPeriod]>=#4/1/2004#,1.18,1.2) AS kNDS" _
           & " FROM ((tblGRP RIGHT JOIN tblUsers ON tblGRP.IdGRP = tblUsers.IdGRP)" _
           & " INNER JOIN UserTel ON tblUsers.idUser = UserTel.idUser)" _
           & " INNER JOIN tblTransaction ON UserTel.idUserTel = tblTransaction.idUserTel" _
           & " WHERE (((tblTransaction.dtSPeriod) >= [Forms]![frmPeriod4RPT]![dtStart]" _
           & " And (tblTransaction.dtSPeriod) < [Forms]![frmPeriod4RPT]![dtEnd])" _
           & " AND ((tblTransaction.dtEndPeriod)<>[Forms]![frmPeriod4RPT]![dtStart])" _
           & " And (" & strFilter & "))" _
           & " ORDER BY tblTransaction.dtSPeriod, tblTransaction.dtEndPeriod;"
           Set qdf = CurrentDb.QueryDefs("истОплаты")
           qdf.SQL = strSQL
           DoCmd.OutputTo acOutputReport, "Оплаты", acFormatRTF, _
           strPatch & "\" & Format(Me.dtStart, "mmmm") & "_" & _
           Format(Me.dtStart, "mm") & "_" & Me!lstGRP.Column( 1 ) & ".rtf"

strFilter = "([tblGRP].[idGRP]) = 2"

strFilter = "([UserTel].[idUser]) = 91"