[spoiler]
'Окна и балконы падежи и множественное число
Select Case Окна_Ф
Case 1
eofa = "окно"
eofm = "окно"
Case 2, 3, 4
eofa = "окна"
eofm = "окна"
Case Else
eofa = "окон"
eofm = "окна"
End Select
Select Case Окна_Тор
Case 1
eotr = "окно"
eotrm = "окно"
Case 2, 3, 4
eotr = "окна"
eotrm = "окна"
Case Else
eotr = "окон"
eotrm = "окна"
End Select
Select Case Окна_Тыл
Case 1
eot = "окно"
eotm = "окно"
Case 2, 3, 4
eot = "окна"
eotm = "окна"
Case Else
eot = "окон"
eotm = "окна"
End Select
Select Case Балк_Ф
Case 1
ebf = "балкон"
ebfm = "балкон"
ebfz = ", " & [Балк_Ф_Заст]
ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Ф_Смежн]), "")
Case 2, 3, 4
ebf = "балкона"
ebfm = "балконы"
ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
Case Else
ebf = "балконов"
ebfm = "балконы"
ebfz = IIf([Балк_Ф_Заст] = "застеклён", ", застеклены", IIf([Балк_Ф_Заст] = "не застеклён", ", не застеклены", ""))
ebfsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Ф_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Ф_Смежн]), "")
End Select
Select Case Балк_Тор
Case 1
ebtr = "балкон"
ebtrm = "балкон"
ebtrz = ", " & [Балк_Тор_Заст]
ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тор_Смежн]), "")
Case 2, 3, 4
ebtr = "балкона"
ebtrm = "балконы"
ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", ""))
ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
Case Else
ebtr = "балконов"
ebtrm = "балконы"
ebtrz = IIf([Балк_Тор_Заст] = "застеклён", ", застеклены", IIf([Балк_Тор_Заст] = "не застеклён", ", не застеклены", "2"))
ebtrsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тор_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тор_Смежн]), "")
End Select
Select Case Балк_Тыл
Case 1
ebt = "балкон"
ebtm = "балкон"
ebtz = ", " & [Балк_Тыл_Заст]
ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежный", ", смежный " & [Балк_Тыл_Смежн]), "")
Case 2, 3, 4
ebt = "балкона"
ebtm = "балконы"
ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "3"))
ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
Case Else
ebt = "балконов"
ebtm = "балконы"
ebtz = IIf([Балк_Тыл_Заст] = "застеклён", ", застеклены", IIf([Балк_Тыл_Заст] = "не застеклён", ", не застеклены", "4"))
ebtsm = IIf([Тип МХЛИГ] = "квартира", IIf([Балк_Тыл_Смежн] = "не смежный", ", не смежные", ", смежные " & [Балк_Тыл_Смежн]), "")
End Select
'Окна фасад
Select Case Окна_Ф
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 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) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Окна_Тор & " " & eotrm & " на торец " & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а также торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & " и " & Окна_Тыл & " " & eotm & " на тыл " & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebfa & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebfa & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 <> 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh15 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 = 1) And (resh150 <> 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Ф_Реш & resh143, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 = 1) And (resh140 <> 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ", установлены " & Балк_Ф_Реш & resh133, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 = 1) And (resh130 <> 1) And (resh140 = 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", на торец выходит " & Окна_Тор & " " & eotr & IIf(resh111 = 2, ", установлены " & Окна_Тор_Реш & resh113, ", решёток нет") & ", а так же " & Балк_Тор & " " & ebtr & ebtrz & ebtrsm & IIf(resh141 = 2, ", установлены " & Балк_Тор_Реш & resh143, ", решёток нет") & ", на тыл выходит " & Окна_Тыл & " " & eot & IIf(resh121 = 2, ", установлены " & Окна_Тыл_Реш & resh123, ", решёток нет") & ", а так же " & Балк_Тыл & " " & ebt & ebtz & ebtsm & IIf(resh151 = 2, ", установлены " & Балк_Тыл_Реш & resh153 & ".", ", решёток нет.")
Else
If (resh100 = 1) And (resh110 = 1) And (resh120 <> 1) And (resh130 = 1) And (resh140 = 1) And (resh150 = 1) Then
resh50 = "На фасад выходит " & Окна_Ф & " " & eofa & IIf(resh101 = 2, ", установлены " & Окна_Ф_Реш & resh103, ", решёток нет") & ", а так же " & Балк_Ф & " " & ebf & ebfz & ebfsm & IIf(resh131 = 2, ",
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
|
