'жирный текст
Public ZB1, ZB9, ZU1, ZU9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2 As String

Private Sub Form_Load()
ZBU1 = "<B><U>"
ZBU9 = "</U></B>"
ZB1 = "<B>"
ZB9 = "</B>"
ZU1 = "<U>"
ZU9 = "</U>"
ZI1 = "<I>"
ZI9 = "</I>"
ZUI1 = "<U><I>"
ZUI9 = "</U></I>"
B1 = "<br>"
B2 = "<br>" & "     "


rtf1 = IIf([Тип МХЛИГ] = "квартира", IIf([Двер_Подъзд] = "оборудована кодовым замком", " Код двери подъезда: " & ZBU1 & "  " & _
        [Код подъезда] & "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована домофоном", " Подъезд оборудован " & ZBU1 & "  " & "домофоном" & _
        "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована механическим замком", " Подъезд оборудован " & ZBU1 & "  " & _
        "механическим замком" & "  " & ZBU9 & ".", " Вход в подъезд " & ZBU1 & "  " & "свободный" & "  " & ZBU9 & "."))), _
        IIf([Тип МХЛИГ] = "домовладение", IIf([Двер_Подъзд] = "оборудована кодовым замком", " Код калитки: " & ZBU1 & "  " & _
        [Код подъезда] & "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована домофоном", " Калитка оборудована " & ZBU1 & "  " & _
        "домофоном" & "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована механическим замком", " Калитка оборудована " & ZBU1 & _
        "  " & "механическим замком" & "  " & ZBU9 & ".", " Вход " & ZBU1 & "  " & "свободный" & "  " & ZBU9 & "."))), ""))

Me.П_Вкладыш_Стр.Value = "Пультовой № " & ZBU1 & "  " & [№_Договора] & "  " & ZBU9 & " Код на СПИ " & ZBU1 & "  " & IIf([СПИ] = "Ахтуба", "" & _
         [СПИ] & " " & [АРМ] & "-" & [АТС] & "-" & [мультиплексор] & "-" & [концентратор] & "-" & [плата] & "-" & [канал] & "-" & [адрес], [СПИ] & _
         " " & [АРМ] & "-" & [АТС] & "-" & [мультиплексор] & "-" & [концентратор]) & "  " & ZBU9 & "  Договор № " & ZBU1 & "  " & [Код] & _
        "  " & ZBU9 & "." & B1 & "Адрес: ул. " & ZBU1 & "  " & IIf([Тип МХЛИГ] = "гараж", [ГСК_Улица] & ", стр. " & [ГСК_Дом] & ", в ГСК № " & [ГСК_№] _
         & "бокс № " & [ГСК_Бокс], [Улица] & "  " & [Дом] & " " & IIf([Тип МХЛИГ] = "домовладение", " ", " - " & [Квартира])) & "  " & _
         ZBU9 & rtf1 & B1 & "Ф.И.О.: " & ZBU1 & "  " & [ФИО] & "  " & ZBU9 & ", тел. " & ZBU1 & "  " & [Сот телфон] & "  " & ZBU9 & "." & B1 & _
        "Дов лица: " & ZBU1 & "  " & IIf(IsNull([Довер_Лиц1]) Or [Довер_Лиц1] = "Доверенных лиц нет.", "Доверенных лиц нет", [Довер_Лиц1] & "; " & _
        [Адрес_Д/Л1] & "; с.т. " & (IIf(IsNull([Сот_Тел_Д/Л1]), "нет", [Сот_Тел_Д/Л1]))) & "  " & ZBU9 & "." & B1 & _
        Space(18) & ZBU1 & "  " & IIf(IsNull([Довер_Лиц2]) Or [Довер_Лиц1] = "Доверенных лиц нет.", " ", [Довер_Лиц2] & "; " & [Адрес_Д/Л2] & _
        "; с.т. " & (IIf(IsNull([Сот_Тел_Д/Л2]), "нет", [Сот_Тел_Д/Л2]))) & "  " & ZBU9 & "." & B1 & _
        "Кол-во ключей: " & ZBU1 & "  " & [Количество_ключей] & "  " & ZBU9 & "." & "Вскрывать " & ZBU1 & "  " & [Вскрытие] & _
        IIf(IsNull([Вскрытие_не_брать]), ".", ", понятых не брать с кв. " & [Вскрытие_не_брать]) & "  " & ZBU9 & "."

End Sub
Private Sub Form_Current()

'Лист программирования
Dim rsLP As Recordset, myLP, S1 As String
Set rsLP = CurrentDb.OpenRecordset("select * from [Оборудование ОВО] ")
Do Until rsLP.EOF
       Select Case Me.УО
        Case Is = rsLP!Наименование
        myLP1 = rsLP!Шлейфы
        myLP2 = rsLP!сопротивление
       End Select
    rsLP.MoveNext
Loop
aslt = IIf([ТС] = "Есть", 1, 0)
Dim rs32 As Recordset, myStr11 As String
'Выбирает форму и связывающие поля
Set rs32 = CurrentDb.OpenRecordset("select * from [Крточка учета подчиненная] where Код=" & Me.Код)
'задаём времянку
Do Until rs32.EOF
'Прописывает какие поля надо собрать в кучу
myStr11 = IIf(rs32!Направление = "нет" Or IsNull(rs32!Направление), myStr11 & rs32!Место_Уст & "установлен " & rs32!Прибор _
        & " - " & rs32!Количество & " шт. " & B1, myStr11 & rs32!Место_Уст & " на " & rs32!Направление & " здания" _
        & ", установлен " & rs32!Прибор & " - " & rs32!Количество & " шт. " & B1)
myStr12 = IIf(rs32!Направление = "нет" Or IsNull(rs32!Направление), myStr12 & rs32!Место_Уст & ", установлен " & rs32!Прибор & " - " & rs32!Количество & " шт. " _
        , myStr12 & rs32!Место_Уст & " на " & rs32!Направление & " здания" & ", установлен " & rs32!Прибор & " - " & rs32!Количество & " шт. ")


'АКТ ТО
'Шапка
shto = ZB1 & "Представитель ""Собственника"": " & ZB9 & ФИО & _
        B1 & ZB1 & "Представитель ОВО: " & ZB9 & qwi1 & " " & qwi2 & " " & qwi3 & _
        B1 & ZB1 & "Представитель ""Обслуживающей организации"": " & ZB9 & qwi6 & " " & qwi7 & _
        B1 & "Провели обследование технического состояния средств охранной сигнализации установленных в " & ZI1 & _
        IIf([Тип МХЛИГ] = "домовладение", "домовладении, расположенном", IIf([Тип МХЛИГ] = "квартира", _
        "квартире расположенной", "гаражном боксе расположенном")) & " по адресу:" & _
        IIf([Тип МХЛИГ] = "гараж", "бокс № " & [ГСК_Бокс] & ", в ГСК № " & [ГСК_№] & ", по адресу: г.Волгоград ул. " & [ГСК_Улица] & _
        ", строение " & [ГСК_Дом], "г. Волгоград,  ул. " & [Улица] & "  " & [Дом] & " " & IIf([Тип МХЛИГ] = "домовладение", " ", " - " & [Квартира]))
'Произвела обследование
poto = B1 & ZB1 & "В результате обследования установлено: " & "УОО - " & ZB9 & ZUI1 & [УО] & ZUI9 & ZB1 & ", КВР - " & ZB9 & ZUI1 & _
        [КВР] & ZUI9 & ZB1 & ", блок эл. питания - " & ZB9 & ZUI1 & [МБП] & ZUI9 & ZB1 & ", КТС - " & ZB9 & ZUI1 & _
        IIf([ТС] = "Нет" Or IsNull([ТС]), "ТС отсутствует", [КТС]) & ZUI9 & _
        B1 & myStr11
potable = ……
‘Вот суда надо вставить таблицу

П_АКТ_Представители = shto & poto & potable

Option Compare Database
'жирный текст
Public ZB1, ZB9, ZU1, ZU9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2 As String
Private Sub Form_Load()
ZBU1 = "<B><U>"
ZBU9 = "</U></B>"
ZB1 = "<B>"
ZB9 = "</B>"
ZU1 = "<U>"
ZU9 = "</U>"
ZI1 = "<I>"
ZI9 = "</I>"
ZUI1 = "<U><I>"
ZUI9 = "</U></I>"
B1 = "<br>"
B2 = "<br>" & "     "
rtf1 = IIf([Тип МХЛИГ] = "квартира", IIf([Двер_Подъзд] = "оборудована кодовым замком", " Код двери подъезда: " & ZBU1 & "  " & _
        [Код подъезда] & "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована домофоном", " Подъезд оборудован " & ZBU1 & "  " & "домофоном" & _
        "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована механическим замком", " Подъезд оборудован " & ZBU1 & "  " & _
        "механическим замком" & "  " & ZBU9 & ".", " Вход в подъезд " & ZBU1 & "  " & "свободный" & "  " & ZBU9 & "."))), _
        IIf([Тип МХЛИГ] = "домовладение", IIf([Двер_Подъзд] = "оборудована кодовым замком", " Код калитки: " & ZBU1 & "  " & _
        [Код подъезда] & "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована домофоном", " Калитка оборудована " & ZBU1 & "  " & _
        "домофоном" & "  " & ZBU9 & ".", IIf([Двер_Подъзд] = "оборудована механическим замком", " Калитка оборудована " & ZBU1 & _
        "  " & "механическим замком" & "  " & ZBU9 & ".", " Вход " & ZBU1 & "  " & "свободный" & "  " & ZBU9 & "."))), ""))
Me.П_Вкладыш_Стр.Value = "Пультовой № " & ZBU1 & "  " & [№_Договора] & "  " & ZBU9 & " Код на СПИ " & ZBU1 & "  " & IIf([СПИ] = "Ахтуба", "" & _
         [СПИ] & " " & [АРМ] & "-" & [АТС] & "-" & [мультиплексор] & "-" & [концентратор] & "-" & [плата] & "-" & [канал] & "-" & [адрес], [СПИ] & _
         " " & [АРМ] & "-" & [АТС] & "-" & [мультиплексор] & "-" & [концентратор]) & "  " & ZBU9 & "  Договор № " & ZBU1 & "  " & [Код] & _
        "  " & ZBU9 & "." & B1 & "Адрес: ул. " & ZBU1 & "  " & IIf([Тип МХЛИГ] = "гараж", [ГСК_Улица] & ", стр. " & [ГСК_Дом] & ", в ГСК № " & [ГСК_№] _
         & "бокс № " & [ГСК_Бокс], [Улица] & "  " & [Дом] & " " & IIf([Тип МХЛИГ] = "домовладение", " ", " - " & [Квартира])) & "  " & _
         ZBU9 & rtf1 & B1 & "Ф.И.О.: " & ZBU1 & "  " & [ФИО] & "  " & ZBU9 & ", тел. " & ZBU1 & "  " & [Сот телфон] & "  " & ZBU9 & "." & B1 & _
        "Дов лица: " & ZBU1 & "  " & IIf(IsNull([Довер_Лиц1]) Or [Довер_Лиц1] = "Доверенных лиц нет.", "Доверенных лиц нет", [Довер_Лиц1] & "; " & _
        [Адрес_Д/Л1] & "; с.т. " & (IIf(IsNull([Сот_Тел_Д/Л1]), "нет", [Сот_Тел_Д/Л1]))) & "  " & ZBU9 & "." & B1 & _
        Space(18) & ZBU1 & "  " & IIf(IsNull([Довер_Лиц2]) Or [Довер_Лиц1] = "Доверенных лиц нет.", " ", [Довер_Лиц2] & "; " & [Адрес_Д/Л2] & _
        "; с.т. " & (IIf(IsNull([Сот_Тел_Д/Л2]), "нет", [Сот_Тел_Д/Л2]))) & "  " & ZBU9 & "." & B1 & _
        "Кол-во ключей: " & ZBU1 & "  " & [Количество_ключей] & "  " & ZBU9 & "." & "Вскрывать " & ZBU1 & "  " & [Вскрытие] & _
        IIf(IsNull([Вскрытие_не_брать]), ".", ", понятых не брать с кв. " & [Вскрытие_не_брать]) & "  " & ZBU9 & "."
End Sub

'Окна фасад
Function Func_Okno(ind, ByVal k) As String
 Dim Okno()
 Okno = Array("окно", "окна", "окна", "окна", "окон", "окна")
 k = IIf(k >= 1 And k <= 4, LBound(Okno) + k - 1, LBound(Okno) + 3 + ind)
 Func_Okno = Okno(k)
End Function

Function Func_Balcon(ind, ByVal k, Optional b_zast, Optional b_sm, Optional type_mhlig) As String
 Dim Balcon()
 Select Case ind
  Case Is < 3
   Balcon = Array("балкон", "балкона", "балкона", "балкона", "балконов", _
                 "балкон", "балконы", "балконы", "балконы", "балконы")
   k = IIf(k >= 1 And k <= 4, k + (LBound(Balcon) = 0) + 5 * (ind - 1), ind * 5 + (LBound(Balcon) = 0))
   Func_Balcon = Balcon(k)
  Case 3
   Select Case k
    Case 1
     Func_Balcon = ", " & b_zast
    Case Else
     Func_Balcon = IIf(b_zast = "застеклён", ", застеклены", IIf(b_zast = "не застеклён", ", не застеклены", ""))
   End Select
  Case 4
   Func_Balcon = IIf(type_mhlig = "квартира", _
                     IIf(b_sm = "не смежный", ", не смежный", ", смежный " & b_sm), "")
 End Select
End Function
Private Sub Form_Current()

'Окна и балконы падежи и множественное число
 eofa = Func_Okno(1, Окна_Ф)
 eofm = Func_Okno(2, Окна_Ф)
 
 eotr = Func_Okno(1, Окна_Тор)
 eotrm = Func_Okno(2, Окна_Тор)
 
 eot = Func_Okno(1, Окна_Тыл)
 eotm = Func_Okno(2, Окна_Тыл)
 
 ebf = Func_Balcon(1, Балк_Ф)
 ebfm = Func_Balcon(2, Балк_Ф)
 ebfz = Func_Balcon(3, Балк_Ф, Балк_Ф_Заст)
 ebfsm = Func_Balcon(4, Балк_Ф, , Балк_Ф_Смежн, [Тип МХЛИГ])

 ebtr = Func_Balcon(1, Балк_Тор)
 ebtrm = Func_Balcon(2, Балк_Тор)
 ebtrz = Func_Balcon(3, Балк_Тор, Балк_Тор_Заст)
 ebtrsm = Func_Balcon(4, Балк_Тор, , Балк_Тор_Смежн, [Тип МХЛИГ])
 
 ebt = Func_Balcon(1, Балк_Тыл)
 ebtm = Func_Balcon(2, Балк_Тыл)
 ebtz = Func_Balcon(3, Балк_Тыл, Балк_Тыл_Заст)
 ebtsm = Func_Balcon(4, Балк_Тыл, , Балк_Тыл_Смежн, [Тип МХЛИГ])
'Окна фасад
 Select Case Окна_Ф
 Case 1 To 20
     resh100 = 1
     Select Case Окна_Ф_Реш
     Case "решётки", "ролставни"
     resh101 = 2
       resh103 = IIf([Окна_Ф_Блок] = "отсутствует" Or IsNull([Окна_Ф_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh101 = 3
 Case Else
 resh101 = 4
End Select
End Select
'Окна торец
 Select Case Окна_Тор
 Case 1 To 20
     resh110 = 1
     Select Case Окна_Тор_Реш
     Case "решётки", "ролставни"
     resh111 = 2
       resh113 = IIf([Окна_Тор_Блок] = "отсутствует" Or IsNull([Окна_Тор_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh111 = 3
 Case Else
 resh111 = 4
End Select
End Select
'Окна тыл
 Select Case Окна_Тыл
 Case 1 To 20
     resh120 = 1
     Select Case Окна_Тыл_Реш
     Case "решётки", "ролставни"
     resh121 = 2
       resh123 = IIf([Окна_Тыл_Блок] = "отсутствует" Or IsNull([Окна_Тыл_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh121 = 3
 Case Else
 resh121 = 4
End Select
End Select
      
'Балконы фасад
 Select Case Балк_Ф
 Case 1 To 20
     resh130 = 1
     Select Case Балк_Ф_Реш
     Case "решётки", "ролставни"
     resh131 = 2
       resh133 = IIf([Балк_Ф_Блок] = "отсутствует" Or IsNull([Балк_Ф_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh131 = 3
 Case Else
 resh131 = 4
End Select
End Select
'Балконы торец
 Select Case Балк_Тор
 Case 1 To 20
     resh140 = 1
     Select Case Балк_Тор_Реш
     Case "решётки", "ролставни"
     resh141 = 2
       resh143 = IIf([Балк_Тор_Блок] = "отсутствует" Or IsNull([Балк_Тор_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh141 = 3
 Case Else
 resh141 = 4
End Select
End Select
'Балконы тыл
 Select Case Балк_Тыл
 Case 1 To 20
     resh150 = 1
     Select Case Балк_Тыл_Реш
     Case "решётки", "ролставни"
     resh151 = 2
       resh153 = IIf([Балк_Тыл_Блок] = "отсутствует" Or IsNull([Балк_Тыл_Блок]), ", ОС не оборудованы", ", оборудованные ОС")
     Case "отсутствуют", ""
     resh151 = 3
 Case Else
 resh151 = 4
End Select
End Select
'Окна фасад
 If (resh100 = 1) Then
  resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет")
  Select Case True
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Окна_Тор & " " & eotrm & " на торец " & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а также торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & " и " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ",   а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
  End Select
 Else
'Окна торец
  If (resh110 = 1) Then
   resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет")
   Select Case rtue
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = "На торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
    Case (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
    Case (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
   End Select
  Else
'Окна тыл
   If (resh120 = 1) Then
    resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
    Select Case True
     Case (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50
     Case (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1)
      resh50 = resh50 & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
     Case (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
     Case (resh130 = 1) And (resh140 = 1) And (resh150 <> 1)
      resh50 = resh50 & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
     Case (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eotm & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
     
     
     Case (resh130 = 1) And (resh140 <> 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет. ")
     Case (resh130 <> 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = resh50 & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
     Case (resh130 = 1) And (resh140 = 1) And (resh150 = 1)
      resh50 = "На тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153, ", решёток нет") & ", на фасад выходит " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на торец " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
    End Select
   Else
    resh50 = "Сообщите Украинскому В.В. при какой последовательности окон и балконов вышло это сообщение "
   End If
  End If
 End If


'Домовладение
    If Me.[Тип МХЛИГ] = "домовладение" Then
    'Калитка
        Select Case Двер_Подъзд
         Case "оборудована кодовым замком"
           dma = "Калитка оборудована кодовым замком, код " & [Код подъезда]
         Case "оборудована домофоном"
           dma = "Калитка оборудована домофоном. "
         Case "оборудована механическим замком"
           dma = "Калитка оборудована механическим замком. "
         Case "оборудована простым замком"
           dma = "Калитка замками не оборудована. "
         Case Else
           dma = [Двер_Подъзд]
        End Select
     Else
    End If
'Квартира
    If Me.[Тип МХЛИГ] = "квартира" Then
     'Подъезд
        Select Case Двер_Подъзд
         Case "оборудована кодовым замком"
           kva = "Дверь подъезда оборудована кодовым замком, код " & [Код подъезда]
         Case "оборудована домофоном"
           kva = "Дверь подъезда оборудована домофоном. "
         Case "оборудована механическим замком"
           kva = "Дверь подъезда оборудована механическим замком. "
         Case "оборудована простым замком"
           kva = "Дверь подъезда замками не оборудована. "
         Case Else
           kva = [Двер_Подъзд]
        End Select
       Else
      End If
'Гараж
    If Me.[Тип МХЛИГ] = "гараж" Then
        'Ворота
        am = "Въездные ворота двухстворчатые, с калиткой, оборудованы засовами и механическими замками. Стены кирпичные, потолок железобетонный. "
        'Подвал
        If [Подвал] = "есть" Then cm = "Имеется подвал, вход " & [Вх_подвал] & ". " Else cm = "Подвал отсутствует. "
        ga = am & cm
    Else
   End If
'Лист программирования
Dim rsLP As Recordset, myLP, S1 As String
Set rsLP = CurrentDb.OpenRecordset("select * from [Оборудование ОВО] ")
Do Until rsLP.EOF
       Select Case Me.УО
        Case Is = rsLP!Наименование
        myLP1 = rsLP!Шлейфы
        myLP2 = rsLP!сопротивление
       End Select
    rsLP.MoveNext
Loop
aslt = IIf([ТС] = "Есть", 1, 0)
Dim rs32 As Recordset, myStr11 As String
Set rs32 = CurrentDb.OpenRecordset("select * from [Крточка учета подчиненная] where Код=" & Me.Код)
Do Until rs32.EOF
'Прописывает какие поля надо собрать в кучу
myStr11 = IIf(rs32!Направление = "нет" Or IsNull(rs32!Направление), myStr11 & rs32!Место_Уст & "установлен " & rs32!Прибор _
        & " - " & rs32!Количество & " шт. " & B1, myStr11 & rs32!Место_Уст & " на " & rs32!Направление & " здания" _
        & ", установлен " & rs32!Прибор & " - " & rs32!Количество & " шт. " & B1)
myStr12 = IIf(rs32!Направление = "нет" Or IsNull(rs32!Направление), myStr12 & rs32!Место_Уст & ", установлен " & rs32!Прибор & " - " & rs32!Количество & " шт. " _
        , myStr12 & rs32!Место_Уст & " на " & rs32!Направление & " здания" & ", установлен " & rs32!Прибор & " - " & rs32!Количество & " шт. ")
'vbNewLine
ashl = rs32!Шлейф
Select Case ashl
              Case Is = 1
              asl1 = 1
              asl11 = "шлейф №1 = " & myLP2 & " кОм" & IIf(asl2 = 1 Or asl3 = 1 Or asl4 = 1 Or asl5 = 1 Or asl6 = 1 Or asl7 = 1 Or asl8 = 1 Or aslt = 1, ", ", ".")
              Case Is = 2
              asl2 = 1
              asl21 = "шлейф №2 = " & myLP2 & " кОм" & IIf(asl3 = 1 Or asl4 = 1 Or asl5 = 1 Or asl6 = 1 Or asl7 = 1 Or asl8 = 1 Or aslt = 1, ", ", ".")
              Case Is = 3
              asl3 = 1
              asl31 = "шлейф №3 = " & myLP2 & " кОм" & IIf(asl4 = 1 Or asl5 = 1 Or asl6 = 1 Or asl7 = 1 Or asl8 = 1 Or aslt = 1, ", ", ".")
              Case Is = 4
              asl4 = 1
              asl41 = "шлейф №4 = " & myLP2 & " кОм" & IIf(asl5 = 1 Or asl6 = 1 Or asl7 = 1 Or asl8 = 1 Or aslt = 1, ", ", ".")
              Case Is = 5
              asl5 = 1
              asl51 = "шлейф №5 = " & myLP2 & " кОм" & IIf(asl6 = 1 Or asl7 = 1 Or asl8 = 1 Or aslt = 1, ", ", ".")
              Case Is = 6
              asl6 = 1
              asl61 = "шлейф №6 = " & myLP2 & " кОм" & IIf(asl7 = 1 Or asl8 = 1 Or aslt = 1, ", ", ".")
              Case Is = 7
              asl7 = 1
              asl71 = "шлейф №7 = " & myLP2 & " кОм" & IIf(asl8 = 1 Or aslt = 1, ", ", ".")
              Case Is = 8
              asl8 = 1
              asl81 = "шлейф №8 = " & myLP2 & " кОм."
            End Select
    rs32.MoveNext
Loop
       If [ТС] = "Есть" Then
             Select Case myLP1
              Case Is = 1
              aslt11 = "шлейф №1 = " & myLP2 & " кОм."
              Case Is = 2
              aslt21 = "шлейф №2 = " & myLP2 & " кОм."
              Case Is = 3
              aslt31 = "шлейф №3 = " & myLP2 & " кОм."
              Case Is = 4
              aslt41 = "шлейф №4 = " & myLP2 & " кОм."
              Case Is = 5
              asl51 = "шлейф №5 = " & myLP2 & " кОм."
              Case Is = 6
              aslt61 = "шлейф №6 = " & myLP2 & " кОм."
              Case Is = 7
              aslt71 = "шлейф №7 = " & myLP2 & " кОм."
              Case Is = 8
              aslt81 = "шлейф №8 = " & myLP2 & " кОм."
            End Select
       Else
       End If
       asls = asl1 + asl2 + asl3 + asl4 + asl5 + asl6 + asl7 + asl8 + aslt
П_Уст_ОиП = myStr11 & IIf([ТС] = "Есть", "Тревожная сигнализация на базе: " & [КТС] & vbNewLine, "") & IIf([КВР] = "Нет", _
        "Установить клавиатуру второго рубежа.", "")
П_Экстр_Вызов_Пол = Space(55) & "отказывается " & IIf([ТС] = "Нет", "от установки тревожной сигнализации, " & IIf([КВР] = "Нет", _
        ", клавиатуры второго рубежа, а так же ", ""), IIf([КВР] = "Нет", "от установки клавиатуры второго рубежа, а так же ", "")) & _
        "блокировать извещатели, приборы ОС и щит питания от несанкционерованного доступа."
Dim rsAKT As Recordset, qwi As String
Set rsAKT = CurrentDb.OpenRecordset("select * from [Доп_Данные1]  ")
Do Until rsAKT.EOF
qwi1 = rsAKT!Должн_Сост_АКТ_ТСО
qwi2 = rsAKT!Зван_Сост_АКТ_ТСО
qwi3 = rsAKT!ФИО_Сост_АКТ_ТСО
qwi4 = rsAKT!Должн_Инж_АКТ_ТСО
qwi5 = rsAKT!ФИО_Инж_АКТ_ТСО
qwi6 = rsAKT!Должн_Инж_ФГУП_АКТ_ТСО
qwi7 = rsAKT!ФИО_Инж_ФГУП_АКТ_ТСО
qwi8 = rsAKT!Должн_Монт_АКТ_ОиП
qwi9 = rsAKT!ФИО_Монт_АКТ_ОиП
Должн_Спец_Обсл_АКТ_ОиП = rsAKT!Должн_Спец_Обсл_АКТ_ОиП
ФИО_Спец_Обсл_АКТ_ОиП = rsAKT!ФИО_Спец_Обсл_АКТ_ОиП
П_Должн_Обсл_АКТ_ОиП = rsAKT!Должн_Обсл_АКТ_ОиП
П_ФИО_Обсл_АКТ_ОиП = rsAKT!ФИО_Обсл_АКТ_ОиП
П_Должн_Спец_Обсл_АКТ_ОиП = rsAKT!Должн_Спец_Обсл_АКТ_ОиП
П_ФИО_Спец_Обсл_АКТ_ОиП = rsAKT!ФИО_Спец_Обсл_АКТ_ОиП
П_Нач_ОВО_Дол = rsAKT!Должн_Рук_АКТ_ОиП & " " & rsAKT!Зван_Рук_АКТ_ОиП
П_Спец_ОВО_Дол = rsAKT!Должн_Сост_АКТ_ОиП & " " & rsAKT!Зван_Сост_АКТ_ОиП
П_Спец_ОВО = rsAKT!ФИО_Сост_АКТ_ОиП
П_Нач_Монт_Дол = rsAKT!Должн_Рук_ФГУП_АКТОиП
П_Нач_Монт = rsAKT!ФИО_Рук_ФГУП_АКТ_ОиП
П_Спец_Монт_Дол = rsAKT!Должн_Монт_АКТ_ОиП
П_Спец_Монт = rsAKT!ФИО_Монт_АКТ_ОиП
rsAKT.MoveNext
Loop
Dim rsAKT1 As Recordset, qwil As String
Set rsAKT1 = CurrentDb.OpenRecordset("select * from [Доп_Данные]  ")
Do Until rsAKT1.EOF
 П_Нач_ОВО = rsAKT1!ОВО_Нач_ИП
rsAKT1.MoveNext
Loop
'АКТ первичного обследования
'Шапка
shop = ФИО & B1 & ZB1 & "Представитель ОВО: " & ZB9 & B1 & П_Нач_ОВО_Дол & " " & П_Нач_ОВО _
        & B1 & П_Спец_ОВО_Дол & " " & П_Спец_ОВО _
        & B1 & ZB1 & "Представитель ""Монтажной организации"": " & ZB9 _
        & B1 & П_Нач_Монт_Дол & " " & П_Нач_Монт _
        & B1 & П_Спец_Монт_Дол & " " & П_Спец_Монт _
        & B1 & IIf(IsNull(Должн_Обсл_АКТ_ОиП), "", ZB1 & "Представитель ""Обслуживающей организации"": " _
        & B1 & ZB9 & Должн_Обсл_АКТ_ОиП & " " & ФИО_Обсл_АКТ_ОиП & B1 & Должн_Спец_Обсл_АКТ_ОиП & " " & ФИО_Спец_Обсл_АКТ_ОиП)
If [Тип МХЛИГ] = "квартира" Then
'Произвела обследование
po = ZB9 & ZI1 & IIf([Тип МХЛИГ] = "квартира", ZU1 & "     " & [Кол-во комнат] & " комнатной квартиры     ." & ZU9, _
        IIf([Тип МХЛИГ] = "домовладение", ZU1 & "     Частного домовладения     ." & ZU9, IIf([Тип МХЛИГ] = "гараж", ZU1 & "     Гаражного бокса     ." & ZU9, " "))) & ZI9 _
        & B1 & ZB1 & "прасположенного по адресу: " & ZB9 & ZI1 & ZU1 & "     " & IIf([Тип МХЛИГ] = "гараж", "бокс № " & [ГСК_Бокс] & ", в ГСК № " & [ГСК_№] _
        & ", по адресу: ул. " & [ГСК_Улица] & ", строение " & [ГСК_Дом], "ул. " & [Улица] & "  " & [Дом] & " " & IIf([Тип МХЛИГ] = "домовладение", " ", " - " _
        & [Квартира])) & "; с.т.: " & IIf(IsNull([Сот телфон]), "нет", [Сот телфон]) & "     ." & ZU9 & ZI9
'Краткая характеристика (квартира)
    kvop = ZI1 & "Квартира находится в " & [Этажей в доме] & " этажном жилом доме, на " & [Этаж] _
        & " этаже. Пути подъезда свободные. " & kva _
        & IIf([Физ_Охрана] = "Нет", "Физическая охрана отсутствует. ", "Имеется физическая охрана " & [Физ_Охрана]) _
        & "Объект имеет " & [Кол-во комнат] & " жилых комнат. " & "Строение " & [Вид_дома] _
        & IIf([Подвал] = "есть", ". В здании имеется подвал, вход " & [Вх_подвал], ". Подвал отсутствует") _
        & IIf([Чердак] = "Есть", ". В подъезде имеется выход на крышу. ", ". Выход на крышу (чердак) отсутствует. ") _
        & IIf([ГазТруб] = "Есть", "Под окнами проходит газовая труба. ", "") & "Квартира граничит с жилими помещениями. " & ZI9
'Инженерно-техическая укреплённость (квартира)
    kvitu = ZI1 & "Здание являет собой " & [Вид_дома] & " строение. Смежные стены капитальные, внутренние перегородки не являются несушими. " _
        & "Входная дверь металическая. " & IIf([Тамбур] = "Есть", "Имеется тамбур, дверь " & [Дверь_Тамбур], "") _
        & resh50 & " Объект сдан в эксплуатацию." & ZI9
      Else
End If
 If [Тип МХЛИГ] = "домовладение" Then
'Краткая характеристика (Домовладение)
    dmop = ZI1 & "Домовладение является " & [Этажей в доме] & " этажным домом. Пути подъезда свободные. Ограждение " _
        & [Дом_Огражд] & ". " & dma & "Въездные ворота " & [Дом_Ворота] & IIf([Дом_Гараж] = "Имеется", ". Имеется гараж, расположен " _
        & [Дом_Гараж_Расп], ". Гараж отсутствует") & IIf([Физ_Охрана] = "Нет", ". Физической охраны нет. ", ". Есть физическая охрана " _
        & [Физ_Охрана]) & "Домовладение имеет " & [Кол-во комнат] & " жилых комнат. " & "Строение " & [Вид_дома] _
        & IIf([Подвал] = "есть", ". В здании имеется подвал, вход " & [Вх_подвал], ". Подвал отсутствует") _
        & IIf([Чердак] = "Есть", ". В подъезде имеется выход на крышу. ", ". Выход на крышу (чердак) отсутствует. ") & ZI9
'Инженерно-техическая укреплённость (домовладение)
    dmitu = ZI1 & "Домовладение имеет " & [Дом_Огражд] & " ограждение. Здание являет собой " & [Вид_дома] & " строение. Входная дверь металическая. " _
        & IIf([Дом_Гараж] = "Есть", "Имеется гараж, расположен " & [Дом_Гараж_Расп] & ", охраной сигнализацией " & [Дом_Гараж_ОС] & ". ", "") _
        & "Въездные ворота " & [Дом_Ворота] & ". " & resh50 & " Объект сдан в эксплуатацию." & ZI9
      Else
 End If
 If [Тип МХЛИГ] = "гараж" Then
'Краткая характеристика (гараж)
    gop = ZI1 & "Объект состоит из " & [Кол-во комнат] & IIf([Кол-во комнат] = 1, " бокса. ", " боксов. ") _
        & "ГСК охраняет сторожевая охрана. Освещение удовлетворительное. Пути подъезда свободные. " & ZI9
'Инженерно-техическая укреплённость (гараж)
    gitu = ZI1 & "ГСК имеет кирпичное ограждение. На КПП ворота выполнены из металла. Въездные ворота в бокс металические. " _
        & "Стены гаража капитальные, кирпичные. Объект сдан в эксплуатацию." & ZI9
      Else
 End If
'Оснащённость объекта инженерно техническими средствами
    ob = "Определен тип сигнализации - " & IIf([ОС] = "есть", IIf([ТС] = "есть", "охранно-тревожная. ", "охранная. "), "тревожная. ") _
        & IIf([ОС] = "Есть", "Охранна сигнализация на базе: " & [УО] & ". ", "") & IIf([ТС] = "Есть", "Тревожная сигнализация на базе: " _
        & [КТС] & ". ", "") & IIf([КВР] = "Есть", "Установлена клавиатура второго рубежа. ", "") & myStr12 _
        & "Электро питание осуществляется от " & IIf([МБП] = "Нет", [УО] & ". ", [МБП] & ". ") _
        & IIf([Интернет] = "Нет", "Интернет отсутствует. ", "Провайдер интернета " & [Интернет] & ". ") _
        & IIf(IsNull([Оператор2]), "", "Приоритетный канал GSM - " & [Опратор1] & ". ")
'Вывод комиссии
    vk = "Отнести объект в классу: " & ZI1 & ZU1 & Space(10) & [категория] & Space(9) & "." & ZI9 & ZU9 _
        & B1 & "Инженерно-техническая укреплённость объекта: " & ZI1 & ZU1 & Space(3) & [ИТУ] & Space(3) & ZI9 & ZU9 & " установленной категории." & ZI9 & ZU9 _
        & B1 & "Уязвимые места и вероятные способы проникновения через них: " & ZI1 & ZU1 & Space(3) & [Мест_Вер_Проник] & Space(3) & ZI9 & ZU9 & "." _
        & B1 & "Смотированные технические средства охраны по составу " & ZI1 & ZU1 & Space(3) & [Смонт_ТехС_Сост] & Space(3) & ZI9 & ZU9 _
        & ", по выполненому монтажу " & ZI1 & ZU1 & Space(3) & [Смонт_ТехС_Монт] & Space(3) & ZI9 & ZU9 & "требованиям." _
        & B1 & "Техническая возможность подключения ТСО объекта на ПЦО ""ОВО""" & ZI1 & ZU1 & Space(3) & [Подключение] & Space(3) & ZI9 & ZU9 & "." _
'Предложения ОВО
    povo = "В соответствии с заявкой, объект подлежит оборудованию средствами  " & ZI1 & ZU1 & IIf([ОС] = "есть", _
        IIf([ТС] = "есть", "охранно-тревожной", "охранной"), "тревожной") & ZI9 & ZU9 _
        & "  сигнализации с последующим заключением договора на централизованную охрану силами " & ZI1 & ZU1 & [Наимен_Карт] & ZI9 & ZU9 _
        & " после выполнения ""Заказчиком"" в установленные сроки, мероприятия по:"
'Устранение по ИТУ
    nitu = ZB1 & "инженерно-технической укреплённости:" & ZB9 _
        & B1 & "1. " & ZI1 & ZU1 & [Недостатки_ИТУ] & ZI9 & ZU9 _
        & B1 & "Срок: до ______________ 20 ___г." _
        & B1 & ZB1 & "оснащению объекта техническими средствами охраны и подключению каналов связи: " & ZB9 _
        & B1 & "2. " & ZI1 & ZU1 & [Недостатки_Оснащ_ТехС] & ZI9 & ZU9 _
        & B1 & "Срок: до ______________ 20 ___г." _
        & B1 & ZB1 & "общих мероприятий по усилению охраны объекта:" & ZB9 _
        & B1 & "3. " & ZI1 & ZU1 & [Недостатки_Общие] & ZI9 & ZU9 _
        & B1 & "Срок: до ______________ 20 ___г." _
        & B1 & "Назначить предварительный срок проведения контрольной проверки на " _
        & B1 & """_____""______________20____г." _
        & B1 & "Приложение: ________________________________________________ на _______ листах." & B1 _
        & B1 & ZB1 & "<div><font size=2>" & "Примечания:" & ZB9 _
        & B1 & Space(5) & "1. Настоящий АКТ является неотемленной частью заключаемого договора о централизованной охране объекта и составлен в ____ экземплярах." _
        & B1 & Space(5) & "2. При неисполнении ""Закзчиком"" пунктов предложений комиссии, если это послужило причиной совершения кражи с " _
        & "объекта ""Закзчика"", ""ОВО"" освобождается от материальной ответственности по действующему договору." & "</font> </div>" _
'Подписи
    podp = B1 & ZB1 & "Представилели:" & ZB9 _
        & Space(40) & ZI1 & ZU1 & Space(40) & "/" & [Фам_ИО] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [П_Нач_ОВО] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [ФИО_Сост_АКТ_ОиП] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [П_Нач_Монт] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [П_ФИО_Спец_Обсл_АКТ_ОиП] & "/" & ZI9 & ZU9
П_АКТ_Предст_ОиП = ZB1 & "Представитель ""Заказчика"": " & ZB9 & shop _
        & B1 & ZB1 & "произвела обследование объекта ""Заказчика"": " & po _
        & B1 & B1 & Space(45) & ZU1 & ZB1 & "ОБСЛЕДОВАНИЕМ УСТАНОВЛЕНО:" & ZB9 & ZU9 _
        & B1 & ZB1 & "Краткая характеристика объекта:" & ZB9 & B1 & ZI1 & kvop & dmop & gop & ZI9 _
        & B1 & ZB1 & "Инженерно-техническая укреплённость:" & ZB9 & B1 & kvitu & kvitu & dmitu & gitu _
        & B1 & ZB1 & "Оснащённость объекта техническими средствами охраны и связи:" & ZB9 & B1 & ZI1 & ob & ZI9 _
        & B1 & B1 & Space(61) & ZU1 & ZB1 & "ВЫВОД КОМИССИИ:" & ZB9 & ZU9 & B1 & vk _
        & B1 & B1 & Space(60) & ZU1 & ZB1 & "ПРЕДЛОЖЕНИЯ ""ОВО"":" & ZB9 & ZU9 & B1 & povo _
        & B1 & nitu _
        & B1 & podp
'АКТ приёмки
'Шапка
shpr = ФИО & B1 & ZB1 & "Представитель ОВО: " & ZB9 & B1 & П_Нач_ОВО_Дол & " " & П_Нач_ОВО _
        & B1 & П_Спец_ОВО_Дол & " " & П_Спец_ОВО _
        & B1 & ZB1 & "Представитель ""Монтажной организации"": " & ZB9 _
        & B1 & П_Нач_Монт_Дол & " " & П_Нач_Монт _
        & B1 & П_Спец_Монт_Дол & " " & П_Спец_Монт _
        & B1 & IIf(IsNull(Должн_Обсл_АКТ_ОиП), "", ZB1 & "Представитель ""Обслуживающей организации"": " _
        & ZB9 & Должн_Обсл_АКТ_ОиП & " " & ФИО_Обсл_АКТ_ОиП & B1 & Должн_Спец_Обсл_АКТ_ОиП & " " & ФИО_Спец_Обсл_АКТ_ОиП)
'Произвела обследование
popr = "провела проверку выполненных работ и установила: " _
        & B1 & "1. Монтажно-наладочной (пусконаладочной) организацией предъявлены к приемке технические средства:  " _
        & ZI1 & IIf([ОС] = "Есть" And [ТС] = "Есть", "Охранно-тревожную сигнализацию. ", IIf([ОС] = "Есть", "Охранную сигнализацию. ", "Тревожную сигнализацию. ")) _
        & IIf([ОС] = "Есть", "Охранна сигнализация на базе: " & [УО] & ". ", "") & IIf([ТС] = "Есть", "Тревожная сигнализация на базе: " _
        & [КТС] & ". ", "") & IIf([КВР] = "Есть", "Установлена клавиатура второго рубежа. ", "") & myStr12 _
        & "Электро питание осуществляется от " & IIf([МБП] = "Нет", [УО] & ". ", [МБП] & ". ") & ZI9

 smpr = B1 & "смотрированные в:  " & ZI1 & IIf([Тип МХЛИГ] = "домовладение", "домовладении", IIf([Тип МХЛИГ] = "квартира", "квартире", "гаражном боксе")) _
        & " по адресу: г. Волгоград,  ул. " & IIf([Тип МХЛИГ] = "гараж", [ГСК_Улица] & ", строение " & [ГСК_Дом] & ", в ГСК " _
        & [ГСК_№] & " бокс № " & [ГСК_Бокс], [Улица] & "  " & [Дом] & " " & IIf([Тип МХЛИГ] = "домовладение", " ", " - " & [Квартира])) & ZI9 _
        & B1 & "2. Монтажные работы выпонены: " & ZI1 & [Наимен_Монт_АКТ_ОиП] & ZI9 _
        & B1 & Space(10) & "с «____» _________ 20____г. по  «____» _________ 20____г." _
        & B1 & "Сметная стоимость монтажных работ:  " & ZI1 & "согласно сметного расчёта." & ZI9 _
        & B1 & "Фактическая стоимость монтажных работ: " & ZI1 & "согласно АКТу КС-2." & ZI9 _
        & B1 & "3. Пусконаладочные работы выпонены: " & ZI1 & [Наимен_Монт_АКТ_ОиП] & ZI9 _
        & B1 & Space(10) & "с «____» _________ 20____г. по  «____» _________ 20____г." _
        & B1 & "Сметная стоимость монтажных работ:  " & ZI1 & "согласно сметного расчёта." & ZI9 _
        & B1 & "Фактическая стоимость монтажных работ: " & ZI1 & "согласно АКТу КС-2." & ZI9 _
        & B1 & "4. Результаты измерения:" _
        & B1 & IIf(asls = 1, "а) сопротивление шлейфа изоляции: более 20 МОм", "а) сопротивление шлейфов изоляции: более 20 МОм") _
        & B1 & IIf(asls = 1, "сопротивление шлейфа сигнализации: ", "сопротивление шлейфов сигнализации: ") & asl11 & asl21 & asl31 _
        & asl41 & asl51 & asl61 & asl71 & asl81 & aslt11 & aslt21 & aslt31 & aslt41 & aslt51 & aslt61 & aslt71 & aslt81 _
        & B1 & "5. Выявленные в процессе комплексного опробирования дефекты, недоделки устранены." _
        & B1 & ZB1 & "Заключение комисси:" & ZB9 _
        & B1 & "Технические средства " & IIf([ОС] = "Есть" And [ТС] = "Есть", "охранно-тревожной сигнализации", _
        IIf([ОС] = "Есть", "охранной сигнализации", "тревожной сигнализации")) & ", прошедшие комплексное опробирование, " _
        & "включая пусконаладочные работы, считать принятыми в эксплуатацию с «____» _________ 20____г." _
'Подписи
 dppr = B1 & B1 & ZB1 & "Представилели:" & ZB9 _
        & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [Фам_ИО] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [П_Нач_ОВО] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [ФИО_Сост_АКТ_ОиП] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [П_Нач_Монт] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [П_ФИО_Спец_Обсл_АКТ_ОиП] & "/" & ZI9 & ZU9 _
        & IIf([ФИО_Обсл_АКТ_ОиП] = [П_Нач_Монт], "", _
        B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [ФИО_Обсл_АКТ_ОиП] & "/" & ZI9 & ZU9 _
        & B1 & B1 & Space(75) & ZI1 & ZU1 & Space(40) & "/" & [ФИО_Спец_Обсл_АКТ_ОиП] & "/" & ZI9 & ZU9)

 П_АКТ_Предста_Приём = shpr & popr & smpr & dppr



'АКТ ТО
'Шапка
shto = ZB1 & "Представитель ""Собственника"": " & ZB9 & ФИО & _
        B1 & ZB1 & "Представитель ОВО: " & ZB9 & qwi1 & " " & qwi2 & " " & qwi3 & _
        B1 & ZB1 & "Представитель ""Обслуживающей организации"": " & ZB9 & qwi6 & " " & qwi7 & _
        B1 & "Провели обследование технического состояния средств охранной сигнализации установленных в " & ZI1 & _
        IIf([Тип МХЛИГ] = "домовладение", "домовладении, расположенном", IIf([Тип МХЛИГ] = "квартира", _
        "квартире расположенной", "гаражном боксе расположенном")) & " по адресу:" & _
        IIf([Тип МХЛИГ] = "гараж", "бокс № " & [ГСК_Бокс] & ", в ГСК № " & [ГСК_№] & ", по адресу: г.Волгоград ул. " & [ГСК_Улица] & _
        ", строение " & [ГСК_Дом], "г. Волгоград,  ул. " & [Улица] & "  " & [Дом] & " " & IIf([Тип МХЛИГ] = "домовладение", " ", " - " & [Квартира])) & ZI9 & _
        B1 & IIf([Тип МХЛИГ] = "квартира", "Квартира находится в " & _
        [Этажей в доме] & " этажном жилом доме, на " & [Этаж] & " этаже.", " ") & " Договор №: " & [Код] & "."
'Произвела обследование
poto = B1 & ZB1 & "В результате обследования установлено: " & "УОО - " & ZB9 & ZUI1 & [УО] & ZUI9 & ZB1 & ", КВР - " & ZB9 & ZUI1 & _
        [КВР] & ZUI9 & ZB1 & ", блок эл. питания - " & ZB9 & ZUI1 & [МБП] & ZUI9 & ZB1 & ", КТС - " & ZB9 & ZUI1 & _
        IIf([ТС] = "Нет" Or IsNull([ТС]), "ТС отсутствует", [КТС]) & ZUI9
        
П_АКТ_Представители = shto & poto
Me.ШапкаТаблицы.Top = Me.П_АКТ_Представители.Top + Me.П_АКТ_Представители.Height
Me.П_Таблица_Приборы.Top = Me.ШапкаТаблицы.Top + Me.ШапкаТаблицы.Height
Me.ЗаключКомис.Top = Me.П_Таблица_Приборы.Top + Me.П_Таблица_Приборы.Height
Me.П_2.Top = Me.ЗаключКомис.Top + Me.ЗаключКомис.Height
Me.П_Пункт2.Top = Me.ЗаключКомис.Top + Me.ЗаключКомис.Height
Me.П_Представ.Top = Me.П_Пункт2.Top + Me.П_Пункт2.Height + 700
Me.П_Подп_Собст.Top = Me.П_Пункт2.Top + Me.П_Пункт2.Height + 700




'Решётки
If [Окна_Ф_Реш] = "решётки" Or [Окна_Тор_Реш] = "решётки" Or [Окна_Тыл_Реш] = "решётки" Or [Балк_Ф_Реш] = "решётки" Or [Балк_Тор_Реш] = "решётки" _
        Or [Балк_Тыл_Реш] = "решётки" Or [Окна_Ф_Реш] = "ролставни" Or [Окна_Тор_Реш] = "ролставни" Or [Окна_Тыл_Реш] = "ролставни" _
        Or [Балк_Ф_Реш] = "ролставни" Or [Балк_Тор_Реш] = "ролставни" Or [Балк_Тыл_Реш] = "ролставни" Then
'Окна с решётками
    resh280 = IIf([Окна_Ф] > 0, IIf([Окна_Ф_Реш] = "решётки", IIf([Окна_Ф_Блок] = "отсутствует" Or IsNull([Окна_Ф_Блок]), 3, 4), 2), 1)
    resh281 = IIf([Окна_Тор] > 0, IIf([Окна_Тор_Реш] = "решётки", IIf([Окна_Тор_Блок] = "отсутствует" Or IsNull([Окна_Тор_Блок]), 3, 4), 2), 1)
    resh282 = IIf([Окна_Тыл] > 0, IIf([Окна_Тыл_Реш] = "решётки", IIf([Окна_Тыл_Блок] = "отсутствует" Or IsNull([Окна_Тыл_Блок]), 3, 4), 2), 1)
    resh283 = IIf([Балк_Ф] > 0, IIf([Балк_Ф_Реш] = "решётки", IIf([Балк_Ф_Блок] = "отсутствует" Or IsNull([Балк_Ф_Блок]), 3, 4), 2), 1)
    resh284 = IIf([Балк_Тор] > 0, IIf([Балк_Тор_Реш] = "решётки", IIf([Балк_Тор_Блок] = "отсутствует" Or IsNull([Балк_Тор_Блок]), 3, 4), 2), 1)
    resh285 = IIf([Балк_Тыл] > 0, IIf([Балк_Тыл_Реш] = "решётки", IIf([Балк_Тыл_Блок] = "отсутствует" Or IsNull([Балк_Тыл_Блок]), 3, 4), 2), 1)
'Окна с ролставнями
    resh290 = IIf([Окна_Ф] > 0, IIf([Окна_Ф_Реш] = "ролставни", IIf([Окна_Ф_Блок] = "отсутствует" Or IsNull([Окна_Ф_Блок]), 6, 7), 5), 8)
    resh291 = IIf([Окна_Тор] > 0, IIf([Окна_Тор_Реш] = "ролставни", IIf([Окна_Тор_Блок] = "отсутствует" Or IsNull([Окна_Тор_Блок]), 6, 7), 5), 8)
    resh292 = IIf([Окна_Тыл] > 0, IIf([Окна_Тыл_Реш] = "ролставни", IIf([Окна_Тыл_Блок] = "отсутствует" Or IsNull([Окна_Тыл_Блок]), 6, 7), 5), 8)
    resh293 = IIf([Балк_Ф] > 0, IIf([Балк_Ф_Реш] = "ролставни", IIf([Балк_Ф_Блок] = "отсутствует" Or IsNull([Балк_Ф_Блок]), 6, 7), 5), 8)
    resh294 = IIf([Балк_Тор] > 0, IIf([Балк_Тор_Реш] = "ролставни", IIf([Балк_Тор_Блок] = "отсутствует" Or IsNull([Балк_Тор_Блок]), 6, 7), 5), 8)
    resh295 = IIf([Балк_Тыл] > 0, IIf([Балк_Тыл_Реш] = "ролставни", IIf([Балк_Тыл_Блок] = "отсутствует" Or IsNull([Балк_Тыл_Блок]), 6, 7), 5), 8)
 Else
     k = 2
End If
  d = 0 'd=1 -нет окон и балконов
  m = 0 'm=2 - есть окно нет решёток
  i = 0 'i=3 - есть окно есть решётка нет охраны
  o = 0 'o=4 - есть окно есть решётка есть охрана
  j = 0 'j=4 - нет окон и балконов
  P = 0 'p=5 - есть окно нет ролставень
  r = 0 'r=6 - есть окно есть ролставени нет охраны
  t = 0 't=7 - есть окно есть ролставени есть охрана
 Select Case resh280
  Case Is = 1
  d = d + 1
  Case Is = 2
  m = m + 1
  Case Is = 3
  i = i + 1
  Case Is = 4
  o = o + 1
End Select
 Select Case resh290
  Case Is = 5
  P = P + 1
  Case Is = 6
  r = r + 1
  Case Is = 7
  t = t + 1
  Case Is = 8
  j = j + 1
End Select
 Select Case resh281
  Case Is = 1
  d = d + 1
  Case Is = 2
  m = m + 1
  Case Is = 3
  i = i + 1
  Case Is = 4
  o = o + 1
End Select
 Select Case resh291
 Case Is = 5
  P = P + 1
  Case Is = 6
  r = r + 1
  Case Is = 7
  t = t + 1
  Case Is = 8
  j = j + 1
End Select
Select Case resh282
  Case Is = 1
  d = d + 1
  Case Is = 2
  m = m + 1
  Case Is = 3
  i = i + 1
  Case Is = 4
  o = o + 1
End Select
 Select Case resh292
  Case Is = 5
  P = P + 1
  Case Is = 6
  r = r + 1
  Case Is = 7
  t = t + 1
  Case Is = 8
  j = j + 1
  End Select
 Select Case resh283
  Case Is = 1
  d = d + 1
  Case Is = 2
  m = m + 1
  Case Is = 3
  i = i + 1
  Case Is = 4
  o = o + 1
End Select
 Select Case resh293
  Case Is = 5
  P = P + 1
  Case Is = 6
  r = r + 1
  Case Is = 7
  t = t + 1
  Case Is = 8
  j = j + 1
  End Select
Select Case resh284
  Case Is = 1
  d = d + 1
  Case Is = 2
  m = m + 1
  Case Is = 3
  i = i + 1
  Case Is = 4
  o = o + 1
End Select
 Select Case resh294
  Case Is = 5
  P = P + 1
  Case Is = 6
  r = r + 1
  Case Is = 7
  t = t + 1
  Case Is = 8
  j = j + 1
  End Select
 Select Case resh285
  Case Is = 1
  d = d + 1
  Case Is = 2
  m = m + 1
  Case Is = 3
  i = i + 1
  Case Is = 4
  o = o + 1
 End Select
 Select Case resh295
  Case Is = 5
  P = P + 1
  Case Is = 6
  r = r + 1
  Case Is = 7
  t = t + 1
  Case Is = 8
  j = j + 1
 End Select
     f = IIf(i > 0 And r > 0, 6 - m - d + r, IIf(i > 0, 6 - m - d, 6 - j - P))
    If k = 2 Then
      q = "Установить ролставни или внутренние металлические решётки и блокировать их средствами ТСО с подключением в шлейф охраны. "
       Else
     If 6 - d <> (i + o + r + t) Then
       q = "Дооборудовать ролставнями или внутренними металлическими решётками, незащищённые конструкции (окна, балконы) и блокировать, " & _
       "все не оборудованные конструкции, средствами ТСО с подключением в шлейф охраны. "
       Else
     q = IIf(i > 0 And r > 0, "Оборудовать решётки и ролстани средствами ТСО с подключением в шлейф охраны. ", IIf(i > 0, _
     "Оборудовать решётки средствами ТСО с подключением в шлейф охраны. ", "") & IIf(r > 0, "Оборудовать ролстани средствами " & _
     "ТСО с подключением в шлейф охраны. ", ""))
    End If
    End If
qwi10 = IIf([КВР] = "Есть" And [ТС] = "Есть", "", IIf([КВР] = "Есть", "Установить тревожную сигнализацию. ", _
        IIf([ТС] = "Есть", "Установить клавиатуру второго рубежа. ", "Установить клавиатуру второго рубежа и тревожную сигнализацию. ")))
П_Рек_ОиП = IIf([Тип МХЛИГ] = "гараж", Space(53) & "Входная дверь на открывание и на пролом. Стены, пол, потолок на пролом. Объем всех помещений. " _
        & qwi10 & "Оборудовать входную дверь не менее чем двумя врезными замками, один из которых не ниже 3-го класса защиты.", Space(53) & _
        "Входная дверь на открывание и на пролом. Окна на открывание и разбитие. Стены, пол, потолок на пролом. Объем всех помещений. " & _
        qwi10 & q & q1 & "Оборудовать входную дверь не менее чем двумя врезными замками, один из которых не ниже 3-го класса защиты.")

Select Case myLP1
  Case Is = 1
        Me.П_ШС_1.Visible = -1
        If [ТС] = "Нет" Then
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ОС"
        Else
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ТС"
        End If
  Case Is = 2
        Me.П_ШС_1.Visible = -1
        Me.П_ШС_2.Visible = -1
        If asl1 = 1 Then
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ОС"
        Else
        Me.П_ШС_1 = "Шлейф №1: резерв"
        End If
            If [ТС] = "Нет" Then
                If asl2 = 1 Then
                Me.П_ШС_2 = "Шлейф №2: Запрограммирован ОС"
                Else
                Me.П_ШС_2 = "Шлейф №2: резерв"
                End If
            Else
            Me.П_ШС_2 = "Шлейф №2: Запрограммирован ТС"
            End If
  Case Is = 3
        Me.П_ШС_1.Visible = -1
        Me.П_ШС_2.Visible = -1
        Me.П_ШС_3.Visible = -1
        If asl1 = 1 Then
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ОС"
        Else
        Me.П_ШС_1 = "Шлейф №1: резерв"
        End If
        If asl2 = 1 Then
        Me.П_ШС_2 = "Шлейф №2: Запрограммирован ОС"
        Else
        Me.П_ШС_2 = "Шлейф №2: резерв"
        End If
            If [ТС] = "Нет" Then
                If asl3 = 1 Then
                Me.П_ШС_3 = "Шлейф №3: Запрограммирован ОС"
                Else
                Me.П_ШС_3 = "Шлейф №3: резерв"
                End If
            Else
            Me.П_ШС_3 = "Шлейф №3: Запрограммирован ТС"
            End If
  Case Is = 4
        Me.П_ШС_1.Visible = -1
        Me.П_ШС_2.Visible = -1
        Me.П_ШС_3.Visible = -1
        Me.П_ШС_4.Visible = -1
        If asl1 = 1 Then
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ОС"
        Else
        Me.П_ШС_1 = "Шлейф №1: резерв"
        End If
        If asl2 = 1 Then
        Me.П_ШС_2 = "Шлейф №2: Запрограммирован ОС"
        Else
        Me.П_ШС_2 = "Шлейф №2: резерв"
        End If
        If asl3 = 1 Then
        Me.П_ШС_3 = "Шлейф №3: Запрограммирован ОС"
        Else
        Me.П_ШС_3 = "Шлейф №3: резерв"
        End If
            If [ТС] = "Нет" Then
                If asl4 = 1 Then
                Me.П_ШС_4 = "Шлейф №4: Запрограммирован ОС"
                Else
                Me.П_ШС_4 = "Шлейф №4: резерв"
                End If
            Else
            Me.П_ШС_4 = "Шлейф №4: Запрограммирован ТС"
            End If
  Case Is = 5
        Me.П_ШС_1.Visible = -1
        Me.П_ШС_2.Visible = -1
        Me.П_ШС_3.Visible = -1
        Me.П_ШС_4.Visible = -1
        Me.П_ШС_5.Visible = -1
        If asl1 = 1 Then
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ОС"
        Else
        Me.П_ШС_1 = "Шлейф №1: резерв"
        End If
        If asl2 = 1 Then
        Me.П_ШС_2 = "Шлейф №2: Запрограммирован ОС"
        Else
        Me.П_ШС_2 = "Шлейф №2: резерв"
        End If
        If asl3 = 1 Then
        Me.П_ШС_3 = "Шлейф №3: Запрограммирован ОС"
        Else
        Me.П_ШС_3 = "Шлейф №3: резерв"
        End If
        If asl4 = 1 Then
        Me.П_ШС_4 = "Шлейф №4: Запрограммирован ОС"
        Else
        Me.П_ШС_4 = "Шлейф №4: резерв"
        End If
        If [ТС] = "Нет" Then
                If asl5 = 1 Then
                Me.П_ШС_5 = "Шлейф №5: Запрограммирован ОС"
                Else
                Me.П_ШС_5 = "Шлейф №5: резерв"
                End If
            Else
            Me.П_ШС_5 = "Шлейф №5: Запрограммирован ТС"
            End If
  Case Is = 6
        Me.П_ШС_1.Visible = -1
        Me.П_ШС_2.Visible = -1
        Me.П_ШС_3.Visible = -1
        Me.П_ШС_4.Visible = -1
        Me.П_ШС_5.Visible = -1
        Me.П_ШС_6.Visible = -1
        If asl1 = 1 Then
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ОС"
        Else
        Me.П_ШС_1 = "Шлейф №1: резерв"
        End If
        If asl2 = 1 Then
        Me.П_ШС_2 = "Шлейф №2: Запрограммирован ОС"
        Else
        Me.П_ШС_2 = "Шлейф №2: резерв"
        End If
        If asl3 = 1 Then
        Me.П_ШС_3 = "Шлейф №3: Запрограммирован ОС"
        Else
        Me.П_ШС_3 = "Шлейф №3: резерв"
        End If
        If asl4 = 1 Then
        Me.П_ШС_4 = "Шлейф №4: Запрограммирован ОС"
        Else
        Me.П_ШС_4 = "Шлейф №4: резерв"
        End If
        If asl5 = 1 Then
        Me.П_ШС_5 = "Шлейф №5: Запрограммирован ОС"
        Else
        Me.П_ШС_5 = "Шлейф №5: резерв"
        End If
        If [ТС] = "Нет" Then
                If asl6 = 1 Then
                Me.П_ШС_6 = "Шлейф №6: Запрограммирован ОС"
                Else
                Me.П_ШС_6 = "Шлейф №6: резерв"
                End If
            Else
            Me.П_ШС_6 = "Шлейф №6: Запрограммирован ТС"
            End If
  Case Is = 7
        Me.П_ШС_1.Visible = -1
        Me.П_ШС_2.Visible = -1
        Me.П_ШС_3.Visible = -1
        Me.П_ШС_4.Visible = -1
        Me.П_ШС_5.Visible = -1
        Me.П_ШС_6.Visible = -1
        Me.П_ШС_7.Visible = -1
        If asl1 = 1 Then
        Me.П_ШС_1 = "Шлейф №1: Запрограммирован ОС"
        Else
        Me.П_ШС_1 = "Шлейф №1: резерв"
        End If
        If asl2 = 1 Then
        Me.П_ШС_2 = "Шлейф №2: Запрограммирован ОС"
        Else
        Me.П_ШС_2 = "Шлейф №2: резерв"
        End If
        If asl3 = 1 Then
        Me.П_ШС_3 = "Шлейф №3: Запрограммирован ОС"
        Else
        Me.П_ШС_3 = "Шлейф №3: резерв"
        End If
        If asl4 = 1 Then
        Me.П_ШС_4 = "Шлейф №4: Запрограммирован ОС"
        Else
        Me.П_ШС_4 = "Шлейф №4: резерв"
        End If
        If asl5 = 1 Then
        Me.П_ШС_5 = "Шлейф №5: Запрограммирован ОС"
        Else
        Me.П_ШС_5 = "Шлейф №5: резерв"
        End If
        If asl6 = 1 Then
        Me.П_ШС_6 = "Шлейф №6: Запрограммирован ОС"
        Else
        Me.П_ШС_6 = "Шлейф №6: резерв"
        End If
        If [ТС] = "Нет" Then
                If asl7 = 1 Then
                Me.П_ШС_7 = "Шлейф №7: Запрограммирован ОС"
                Else
                Me.П_ШС_7 = "Шлейф №7: резерв"
                End If
            Else
            Me.П_ШС_7 = "Шлейф №7: Запрограммирован ТС"
            End If
 End Select
End Sub
'Действие по данным Тревожная сигнализация
 Private Sub П_ТС_AfterUpdate()
        Me.Н_КТС_ОиП.Visible = (ТС = "есть")
        Me.П_КТС_ОиП.Visible = (ТС = "есть")
End Sub