Option Compare Database
'Option Explicit
'жирный текст
Public ZB1, ZB9, ZU1, ZU9, ZBI1, ZBI9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2, D1 As String
Public rsm10, myStr10, vrprib, vrprib1 As String, s1 As String
Private Sub Form_Load()
ZBU1 = "<B><U>"
ZBU9 = "</U></B>"
ZBI1 = "<I><B>"
ZBI9 = "</I></B>"
ZB1 = "<B>"
ZB9 = "</B>"
ZU1 = "<U>"
ZU9 = "</U>"
ZI1 = "<I>"
ZI9 = "</I>"
ZUI1 = "<U><I>"
ZUI9 = "</U></I>"
B1 = "<br>"
B2 = "<br>" & "     "
B3 = "<br>" & "          "
'Первая страница договора(лист 12, ШАПКА)
    With Me.[П_Шапка0]
    .FontName = "Times New Roman"
    .FontSize = 10
    End With
  П_Шапка0 = "ДОГОВОР№ " & IIf(IsNull([Договор№]), [Код], [Договор№] & " / " & [Код]) & _
   B1 & "на охрану объектов личного имущества граждан с помощью ПЦО" & _
   B1 & "и техническое обслуживание технических средств охраны"
    With Me.[П_Стр1_Лист12]
    .FontName = "Times New Roman"
    .FontSize = 8
    .ForeColor = vbBlack
    End With
Лист_12_1 = "г. Волгоград" & Space(80) & "«_____»______________20_____г." & _
   B1 & B1 & Space(10) & D1 & ZBI1 & [ОВО_Наимен] & ZBI9 & " в лице " & [ОВО_Долж_Нач_РП] & " " & ZBI1 & [ОВО_Нач_РП] & ZBI9 & _
   ", действующего на основании доверенности " & [ОВО_Доверен] & ", именуемый в дальнейшем «ИСПОЛНИТЕЛЬ 1», с одной стороны, и " & _
   ZBI1 & [ФГУП_Наимен] & ZBI9 & ", в лице начальника " & [ФГУП_Долж_Нач_РП] & " " & ZBI1 & [ФГУП_Нач_РП] & ZBI9 & _
   ", действующего на основании доверенности " & [ФГУП_Доверен] & ", расположенного по адресу: " & [ФГУП_Физ_Адрес] & " телефон " & _
   [ФГУП_Тел] & " именуемое в дальнейшем «ИСПОЛНИТЕЛЬ 2» с другой стороны, и владелец имущества  " & ZU1 & ZBI1 & [ФИО] & ", " & ZBI9 & ZU9 & _
    "проживающего по адресу:  " & ZU1 & ZBI1 & "г.Волгоград,  ул. " & [Улица] & "  " & [Дом] & IIf([Тип МХЛИГ] = "домовладение", "", " - " & [Квартира]) & ZU9 & ZBI9 & _
   ", " & "домашний телефон: " & ZBI1 & IIf(IsNull([Телефон]), " д.т. нет", [Телефон]) & ZBI9 & _
   ", мобильный телефон: " & ZBI1 & IIf(IsNull([Сот телфон]), " с.т. нет", [Сот телфон]) & ZBI9 & _
   ", служебный телефон: " & ZBI1 & IIf(IsNull([Раб телефон]), " р.т. нет", [Раб телефон]) & ZBI9 & _
   ", именуемый в дальнейшем «ЗАКАЗЧИК» с третьей стороны, " & _
   "а вместе именуемые «СТОРОНЫ» заключили настоящий договор о нижеследующем:" & _
   B1 & B1 & ZB1 & Space(60) & "1. ПРЕДМЕТ ДОГОВОРА" & ZB9

Лист_12_2 = B2 & ZB1 & "1.1." & ZB9 & " «ЗАКАЗЧИК» поручает, а «ИСПОЛНИТЕЛЬ 1» осуществляет централизованное наблюдение в течение времени охраны " & _
   "(с момента приема объекта под централизованное наблюдение до снятия его с наблюдения) за состоянием средств " & _
   "сигнализации, установленных в отдельной квартире или ином помещении с личным имуществом «ЗАКАЗЧИК» и членов его " & _
   "семьи, а так же лиц, зарегистрированных или имеющих какое-либо право собственности на жилье, и которым они " & _
   "пользуются на основании найма, аренды, права собственности, а так же иных законных основаниях, " & _
   IIf([Тип МХЛИГ] = "квартира", "квартиру по адресу: ", IIf([Тип МХЛИГ] = "домовладение", "домовладение по адресу: ", _
   IIf([Тип МХЛИГ] = "гараж", "гаражный бокс: ", ""))) & ZU1 & IIf([Тип МХЛИГ] = "квартира" Or [Тип МХЛИГ] = "домовладение", _
   ZBI1 & "г.Волгоград,  ул. " & [Улица] & "  " & [Дом] & " " & IIf([Тип МХЛИГ] = "домовладение", " ", " - " & [Квартира]) & ZBI9, _
   ZBI1 & "№ " & [ГСК_Бокс] & ", в ГСК № " & [ГСК_№] & ", по адресу: г.Волгоград ул. " & [ГСК_Улица] & ", строение " & [ГСК_Дом]) & ZBI9 & ZU9 & _
  B2 & ZB1 & "1.2." & ZB9 & " При поступлении на пункт централизованной охраны информации о срабатывании установленных на объекте " & _
   "средств сигнализации «ИСПОЛНИТЕЛЬ 1» обеспечивает направление на объект вооруженного наряда для вы-яснения причин срабатывания, " & _
   "а при необходимости - принятия мер  к задержанию проникших на объект посторонних лиц." & _
  B2 & ZB1 & "1.3." & ZB9 & " «ИСПОЛНИТЕЛЬ 2» берет на себя функцию осуществления организационно-техническихмероприятий " & _
   "планово-профилактического характера по поддержанию комплекса технических средств охраны (далее - «Комплекс») " & _
   "в состоянии, соответствующем требованиям технической документации в течение всего срока эксплуатации." & _
  B2 & ZB1 & "1.4." & ZB9 & " «ЗАКАЗЧИК» обязуется производить оплату услуг «ИСПОЛНИТЕЛЯ 1» и «ИСПОЛНИТЕЛЯ 2» в " & _
   "порядке и сроки, установленные настоящим Договором."
Лист_12_3 = B1 & B1 & ZB1 & Space(60) & "2. ОБЩИЕ ПОЛОЖЕНИЯ" & ZB9 & _
  B2 & ZB1 & "2.1." & ZB9 & " Настоящий договор о централизованной охране основан на правовых положениях, определяемых" & _
   " Гражданским кодексом РФ, и другими нормативными актами, регламентирующими деятельность подразделений вневедомственной " & _
   "охраны и подразделения ФГУП «Охрана» Росгвардии по Волгоградской области" & _
  B2 & ZB1 & "2.2." & ZB9 & " «ИСПОЛНИТЕЛЬ 1»  и «ИСПОЛНИТЕЛЬ 2» определяют на объекте места, подлежащие оборудованию" & _
   " средствами охранной сигнализации,  и  рекомендуют технические решения их защиты. Отказ «ЗАКАЗЧИКА» от оборудования " & _
   "средствами сигнализации мест возможного проникновения и предложенного  технического  решения оговаривается в (Приложении №1), " & _
   "являющемся неотъемлемой частью настоящего договора." & _
  B2 & ZB1 & "2.3." & ZB9 & " Объект должен удовлетворять требованиям «ИСПОЛНИТЕЛЯ 1» и «ИСПОЛНИТЕЛЯ 2» к технической " & _
   "укрепленности помещений с личным имуществом граждан, оборудованием инженерно-техническими средствами препятствующими " & _
   "проникновению на объект (ролставни, решётки), оснащенности средствами сигнализации, техническому обслуживанию средств " & _
   "сигнализации, выведенных на ПЦО. Установка и техническое обслуживание средств сигнализации на «Объекте» производится «ИСПОЛНИТЕЛЕМ 2»."
 П_Стр1_Лист12 = Лист_12_1 & Лист_12_2 & Лист_12_3

'Вторая страница договора(лист 2)
    With Me.[П_Стр2_Лист2]
    .FontName = "Times New Roman"
    .FontSize = 8
    .ForeColor = vbBlack
    End With
Лист_2_1 = "     " & ZB1 & "2.4." & ZB9 & " Договор заключается  без осмотра и описи находящегося на объекте имущества." & _
 "     " & IIf([Удалённость] = "да", B2 & ZB1 & "2.5." & ZB9 & " Осмотр объекта «ЗАКАЗЧИКА» группой задержания «ИСПОЛНИТЕЛЯ 1», прибывшей на объект после " & _
   "поступления сигнала «Тревога», выданного средствами сигнализации охраняемого объекта и выяснение причин срабатывания " & _
   "средств сигнализации. Контрольное время прибытия на объект согласно (АКТ №1).", "") & _
  B1 & B1 & ZB1 & Space(60) & "3. ОБЯЗАННОСТИ СТОРОН" & ZB9 & _
  B2 & ZB1 & "3.1. ОБЯЗАННОСТИ «ИСПОЛНИТЕЛЯ 1»:" & ZB9 & _
  B2 & ZB1 & "3.1.1." & ZB9 & " Осуществлять в установленном порядке прием под  централизованное наблюдение объекта." & _
  B2 & ZB1 & "3.1.2." & ZB9 & " При поступлении информации о срабатывании сигнализации на объекте обеспечить " & _
   "направление на объект вооруженного наряда для выяснения причин срабатывания, а при необходимости - принятия мер к  " & _
   "задержанию проникших на объект посторонних лиц." & _
  B2 & ZB1 & "3.1.3." & ZB9 & " При наличии признаков проникновения на объект посторонних лиц принять меры к вызову " & _
   "«ЗАКАЗЧИКА», членов его семьи или доверенного лица." & _
  B2 & ZB1 & "3.1.4." & ZB9 & " Обеспечить сохранность комплекта ключей,  предоставленного «ЗАКАЗЧИКОМ»." & _
  B2 & ZB1 & "3.1.5." & ZB9 & " При расторжении договора возвратить «ЗАКАЗЧИКУ» комплект ключей. " & _
   "Невостребованные в течение трех месяцев ключи  уничтожить  по  акту." & _
  B2 & ZB1 & "3.1.6." & ZB9 & " Ознакомить «ЗАКАЗЧИКА» с требованиями «ИСПОЛНИТЕЛЯ 1» по технической укрепленности " & _
   "помещений с личным имуществом, обучить правилам пользования средствами сигнализации." & _
  B2 & ZB1 & "3.1.7." & ZB9 & " Предоставлять «ЗАКАЗЧИКУ» экземпляр акта  установленного  образца после вскрытия и " & _
   "осмотра объекта вооруженным нарядом при срабатывании средств сигнализации." & _
  B2 & ZB1 & "3.1.8." & ZB9 & " Осуществлять прием заявок дежурным пультом  управления ПЦО ОВО по " & _
   "г.Волгограду филиала ФГКУ «УВО ВНГ России по Волгоградской области», с записью в журнале заявок, информации " & _
   "о неисправностях систем охранной, пожарной сигнализации. Информировать «ИСПОЛНИТЕЛЯ 2» о заявках на ремонт  " & _
   "средств сигнализации, поступающих от «ЗАКАЗЧИКА»." & _
  B2 & ZB1 & "3.1.9." & ZB9 & "  Информировать «ИСПОЛНИТЕЛЯ 2» о заявках на ремонт средств тревожной сигнализации, " & _
   "поступающих от «ЗАКАЗЧИКА»."
Лист_2_2 = B2 & ZB1 & "3.2." & ZB9 & " ОБЯЗАННОСТИ «ИСПОЛНИТЕЛЯ 2»:" & _
  B2 & ZB1 & "3.2.1." & ZB9 & " Производить техническое обслуживание «Комплекса» в соответствии с нормативными " & _
   "актами, действующими в системе МВД (ВНГ) России в объеме предусмотренном «Условиями предоставления услуг» " & _
   "(Приложение №6 к настоящему договору);" & _
  B2 & ZB1 & "3.2.2." & ZB9 & " Направлять своего работника на объект для устранения неисправностей в течение 24-х " & _
   "часов (кроме выходных и праздничных дней) на основании вызова (заявки) «ЗАКАЗЧИКА», сделанного(ой) по телефону " & _
   "или письменно в адрес «ИСПОЛНИТЕЛЯ 1»;" & _
  B2 & ZB1 & "3.2.3." & ZB9 & " Производить все работы по техническому обслуживанию и текущему ремонту в согласованное " & _
   "с «ЗАКАЗЧИКОМ» время." & _
  B2 & ZB1 & "3.2.4." & ZB9 & " Производить замену неработоспособных приборов, блоков, плат, кабелей, проводов " & _
   "и других компонентов на исправные, однотипные или функционально эквивалентные заменяемым, с предварительной оплатой " & _
   "«ЗАКАЗЧИКОМ»  необходимых затрат, по расчёту (смете) составленному «ИСПОЛНИТЕЛЕМ 2» и согласованному с «ЗАКАЗЧИКОМ»."
Лист_2_3 = B2 & ZB1 & "3.2.5." & ZB9 & " Ознакомить «ЗАКАЗЧИКА» с правилами эксплуатации «Комплекса»." & _
  B2 & ZB1 & "3.3." & ZB9 & " ОБЯЗАННОСТИ «ЗАКАЗЧИКА»:" & _
  B2 & ZB1 & "3.3.1." & ZB9 & " Выполнять определенные «ИСПОЛНИТЕЛЕМ 1» и «ИСПОЛНИТЕЛЕМ 2» и отражаемые в Акте обследования " & _
   "«Объекта» и приложении №1 к настоящему договору мероприятия по технической и инженерной укрепленности «Объекта», " & _
   "принимаемого под централизованное наблюдение, его оборудованию средствами «Комплекса», по соблюдению условий хранения " & _
   "материальных ценностей, а также в соответствии с  требованиями  нормативных актов «ИСПОЛНИТЕЛЯ 1»." & _
   B2 & ZB1 & "3.3.2." & ZB9 & " Соблюдать правила пользования средствами охранной  сигнализации,  не вносить изменений в " & _
   "схему блокировки объекта, не производить замену, переустановку аппаратуры «Комплекса» без согласования с «ИСПОЛНИТЕЛЕМ 2». " & _
   "Исключить вмешательство в работоспособность «Комплекса» «ЗАКАЗЧИКА»,  посторонних лиц, своевременно сообщать «ИСПОЛНИТЕЛЮ 1» " & _
   "и «ИСПОЛНИТЕЛЮ 2» о возникших неисправностях." & _
  B2 & ZB1 & "3.3.3." & ZB9 & " Не  разглашать посторонним лицам правила пользования техническими средствами охраны, " & _
   "применяемые технические решения защиты и присвоенный условный номер объекта."
  П_Стр2_Лист2 = Лист_2_1 & Лист_2_2 & Лист_2_3

Option Compare Database
Option Explicit

Public ZB1, ZB9, ZU1, ZU9, ZBI1, ZBI9, ZBU1, ZBU9, ZI1, ZI9, ZUI1, ZUI9, B1, B2, D1, B3  As String
Public rsm10, myStr10, vrprib, vrprib1, Dog_Per1 As String, s1 As String

Private Sub Form_Load()
ZBU1 = "<B><U>"
ZBU9 = "</U></B>"
ZBI1 = "<I><B>"
ZBI9 = "</I></B>"
ZB1 = "<B>"
ZB9 = "</B>"
ZU1 = "<U>"
ZU9 = "</U>"
ZI1 = "<I>"
ZI9 = "</I>"
ZUI1 = "<U><I>"
ZUI9 = "</U></I>"
B1 = "<br>"
B2 = "<br>" & "     "
B3 = "<br>" & "          "
'Первая страница договора(лист 12, ШАПКА)

  vrprib = "ДОГОВОР№ " & IIf(IsNull([Договор№]), [Код], [Договор№] & " / " & [Код]) & _
   B1 & "на охрану объектов личного имущества граждан с помощью ПЦО" & _
   B1 & "и техническое обслуживание технических средств охраны"
    With Me.[П_Стр2_Лист2]
    .FontName = "Times New Roman"
    .FontSize = 8
    .ForeColor = vbBlack
    End With
vrprib1 = "г. Волгоград" & Space(80) & "«_____»______________20_____г." & _
   B1 & B1 & Space(10) & D1 & ZBI1 & [ОВО_Наимен] & ZBI9 & " в лице " & [ОВО_Долж_Нач_РП] & " " & ZBI1 & [ОВО_Нач_РП] & ZBI9 & _
   ", действующего на основании доверенности " & [ОВО_Доверен] & ", именуемый в дальнейшем «ИСПОЛНИТЕЛЬ 1», с одной стороны, и " & _
   ZBI1 & [ФГУП_Наимен] & ZBI9 & ", в лице начальника " & [ФГУП_Долж_Нач_РП] & " " & ZBI1 & [ФГУП_Нач_РП] & ZBI9 & _
   ", действующего на основании доверенности " & [ФГУП_Доверен] & ", расположенного по адресу: " & [ФГУП_Физ_Адрес] & " телефон " & _
   [ФГУП_Тел] & " именуемое в дальнейшем «ИСПОЛНИТЕЛЬ 2» с другой стороны, и владелец имущества  " & ZU1 & ZBI1 & [ФИО] & ", " & ZBI9 & ZU9 & _
    "проживающего по адресу:  " & ZU1 & ZBI1 & "г.Волгоград,  ул. " & [Улица] & "  " & [Дом] & IIf([Тип МХЛИГ] = "домовладение", "", " - " & [Квартира]) & ZU9 & ZBI9 & _
   ", " & "домашний телефон: " & ZBI1 & IIf(IsNull([Телефон]), " д.т. нет", [Телефон]) & ZBI9 & _
   ", мобильный телефон: " & ZBI1 & IIf(IsNull([Сот телфон]), " с.т. нет", [Сот телфон]) & ZBI9 & _
   ", служебный телефон: " & ZBI1 & IIf(IsNull([Раб телефон]), " р.т. нет", [Раб телефон]) & ZBI9 & _
   ", именуемый в дальнейшем «ЗАКАЗЧИК» с третьей стороны, " & _
   "а вместе именуемые «СТОРОНЫ» заключили настоящий договор о нижеследующем:"

'Вычисляем, что заблокитровано и чем
Dim rsm100, myStr100
Set rsm100 = CurrentDb.OpenRecordset("select * from [Дебеторка] where Стр = 1") 'Код=" & Me.Код
Do Until rsm100.EOF
myStr100 = myStr100 & rsm100!Параграфы & " РАБОТАЕМ " & IIf(rsm100!Переменные = "Dog_Per1", 45, "")   'rsm100!Переменные

' 45 - это я просто проверял формулу, теперь подставлю свои значения и всё
rsm100.MoveNext
Loop
П_Стр2_Лист2 = vrprib1 & myStr100
End Sub