Private Sub setfilters

stroka =  " and "    ' Строка фильтра where для передачи в stored procedure через параметр'
stroka1 =  "" 'Название выборки для отчета'" 

If twFindepList <>  "" Then ' Список отмеченных чекбоксом подразделений в тривью'" 
    stroka = stroka &  "    dbo.get_sotr_lastfindepid(pr.curator, pr.OpenDate) in ("  & twFindepList &  ") and " 
    stroka1 = stroka1 + twFilter
End If

If twCuratorList <>  "" Then  ' Список отмеченных чекбоксом руководителей в тривью'" 

stroka = stroka &  "    pr.curator in ("  & twCuratorList &  ") and " 
stroka1 = stroka1 + twFiltercur

End If


'по полям даты'
If Not IsNull(Me.fopendatafrom) Then stroka = stroka +  "OpenDate >= "  & sqldata(Me.fopendatafrom) &  " AND " 
If Not IsNull(Me.fopendatafrom) Then stroka1 = stroka1 +  "открытые после "  & Me.fopendatafrom &  "; " 

If Not IsNull(Me.fopendatato) Then stroka = stroka +  "OpenDate <= "  & sqldata(Me.fopendatato) &  " AND " 
If Not IsNull(Me.fopendatato) Then stroka1 = stroka1 +  "открытые до "  & (Me.fopendatato) &  "; " 

If Not IsNull(Me.fclosedatafrom) Then stroka = stroka +  "[Close4 Date] >= "  & sqldata(Me.fclosedatafrom) &  " AND " 
If Not IsNull(Me.fclosedatafrom) Then stroka1 = stroka1 +  "закрытые после "  & (Me.fclosedatafrom) &  "; " 

If Not IsNull(Me.fclosedatato) Then stroka = stroka +  "[Close4 Date] <= "  & sqldata(Me.fclosedatato) &  " AND " 
If Not IsNull(Me.fclosedatato) Then stroka1 = stroka1 +  "закрытые до "  & (Me.fclosedatato) &  "; " 

' по флажкам'
If Me.farchive =  2  Then stroka = stroka +  "archive <> 0   AND "
If Me.farchive =  2  Then stroka1 = stroka1 +  "Архивные " 

If Me.farchive =  3  Then stroka = stroka +  "archive = 0  AND "
If Me.farchive =  3  Then stroka1 = stroka1 +  "неархивные " 

If Me.sovmest Then stroka = stroka +  "[countfil] > 1  AND "
If Me.sovmest Then stroka1 = stroka1 +  " Только совместные " 



If Len(stroka) >  5  Then
stroka = Mid(stroka,  1 , Len(stroka) -  5 )
Me.pfilter = stroka &  " "  & stroka1
Else
stroka =  ""
stroka1 = " Все  "
Me.pfilter = stroka & "  " & stroka1
End If

'Глобальные переменные'
SQLReportFilterName = stroka1
SQLReportFilter = stroka

End Sub