ИБ(w) : Формат бланка X ----------- Установка/обновление блока "Зарплата +" ----------------- 6. Зарплата + NONAME.BARНОМЕР  уяђМ1Courier Newd) ИБ(w) : Данные универсального редактора &\ Если блок был обновлен с сайта разработчика (через Интернет), этот бланк рассчитывать (F9)X НЕ НУЖНО - обновление будет установлено автоматически, необходимо только перезагрузить программу "Инфо-Бухгалтер"!X Если обновление было получено в виде установочного файла дистрибутива M2_SETUP.EXE, тоW необходимо выполнить требования, изложенные в инструкции по его установке в настоящем бланке.V Бланк должен быть рассчитан (F9) после установки дистрибутива блока из установочногоW файла M2_SETUP.EXE, который инсталлирует все необходимые компоненты блока в отдельнуюV папку (по умолчанию это директория ...\Program Files\logika\M2 для всех операционных] систем Windows, кроме 7 и выше или ...\Program Files (x86)\logika\M2) для Windows 7 и выше.V Убедитесь, что определено не пустое значение(обычно IBX) для папки/каталога программW (Установка-> Настройки...->Папки/Каталоги)! Если оно пустое, задайте ему значение IBXZ (с откладыванием от той же папки, как и папка бланков) и перезагрузите "Инфо-Бухгалтер".Q Этот бланк копирует в рабочую систему "Инфо-Бухгалтер" программные модули блокаP "Зарплата+", а также выполняет другие подготовительные действия по установке и] инициализации обновления, в частности, проверяет срок действия ПИН-кода. Если срок действияX введенного ранее ПИН-кода истек (12 месяцев), выдается соответствующее предупреждение.W Если пользователь продолжит установку на рабочем месте с ПИН-кодом с истекшим сроком,* далее блок будет работать в демо-режиме.\ Бланк достаточно выполнить один раз после инсталляции файлов обновления, которую выполнила программа M2_SETUP.EXE.X После запуска бланка (F9) будет открыто окно проводника, с помощью которого необходимоT выбрать папку, в которую Вы инсталлировали файлы обновления с помощью M2_SETUP.EXEV (по умолчанию это ...\Program Files\logika\M2\IBX и выбрать из нее файл установочной< программы M2_INST.IBX, далее щелкнуть на кнопку "Выбрать".X Если бланк обновления обнаружит нужный файл, то далее процесс установки будет выполнен автоматически. и запустите заново для актуализации изменений. Ђ"г"яяуяяяђSymbolЧµ“дPµµЂ" 2001-2023 ИП Олейник С.Г."яяхяяяђМ1Courier NewhеЊ°JхїiеЊ!4…4"Обновить блок с сайта разработчика через Интернет:"яяUЂ из_И_нетаяя-Скачать и установить обновление автоматически M2_STAND.IBLОБНОВЛЕНИЕ_ОНЛАЙН!…"Скачать файл дистрибутива:"яя=ЂГрафа55яяПолучить обновление блока M2_STAND.IBL ОБНОВИТЬСЯ'Z„Y"В сетевой версии закройте программу ""Инфо-Бухгалтер"" на ВСЕХ других рабочих местах ! "яяW„I"Перед расчетом этого бланка закройте ВСЕ окна системы Инфо-Бухгалтер ! "яя%>„>"После завершения установки закройте программу Инфо-Бухгалтер"яяbA// Стандартный блок ЗАРПЛАТА+ для программы Инфо-Бухгалтер 8.ххх6// (С) ООО ИЦ "Логика", http://users.kaluga.ru/logika4// Автор - Сергей Олейник , тел/факс (4842)-220505-// e-mail: logika@kaluga.ru, ICQ # 15324488 E// Автор и коллектив разработчиков будут признательны пользователям // за все замечания и пожелания?// )// - ДАТА ПОСЛЕДНЕГО ИЗМЕНЕНИЯ 2023 03 02D// -//////////////////////// Ручное обновлениеE ф_ин=ПОДСТР(ДИР_WIN,1,3)+"Program Files\logika\M2\ibx\M2_inst.ibx" B ЕСЛИ СУЩ_ФАЙЛ(ПОДСТР(ДИР_WIN,1,3)+"Program Files (x86)\*.*") ТО V ф_ин=ПОДСТР(ДИР_WIN,1,3)+"Program Files (x86)\logika\M2\ibx\M2_inst.ibx" // WIN 7 КОНЕЦ_ЕСЛИT пф=ЗАГЛ(ВЫБОР_ФАЙЛА (ф_ин,"Найдите и выберите установочную программу M2_inst.ibx",5 "Установочная программа ","ibx")) L ЕСЛИ пф="" ТО СООБЩЕНИЕ("Обновление не установлено!" ) СТОП_ВСЕ КОНЕЦ_ЕСЛИ$ пн=ПОЗ("IBX\M2_INST.IBX",ЗАГЛ(пф))K ЕСЛИ пн=0 ТО T СООБЩЕНИЕ("Эта папка не содержит обновления или выбран другой файл!"+СИМВ(13)+ ! "Обновление не установлено!") СТОП_ВСЕ КОНЕЦ_ЕСЛИ  дир=ПОДСТР(пф,1,пн-2)/ ЕСЛИ ЗАГЛ(дир+"\BLANKS")=ЗАГЛ(ДИР_БЛАНКОВ) ТОW СООБЩЕНИЕ("Вы выбрали в качестве директории с обновлением принимающую директорию!") СТОП_ВСЕ КОНЕЦ_ЕСЛИ- ЕСЛИ НЕ СУЩ_ФАЙЛ(дир+"\IBX\M2_INST.IBX") ТОJ СООБЩЕНИЕ("1.Эта папка не содержит установочной программы!"+СИМВ(13)+ ! "Обновление не установлено!") СТОП_ВСЕ КОНЕЦ_ЕСЛИ0 ЕСЛИ НЕ СУЩ_ФАЙЛ(дир+"\SOURCE\M2_INST.SRC") ТОI СООБЩЕНИЕ("2.Эта папка не содержит установочной программы!"+СИМВ(13)+! "Обновление не установлено!") СТОП_ВСЕ КОНЕЦ_ЕСЛИ2 ЕСЛИ НЕ СУЩ_ФАЙЛ(дир+"\PROJECT\M2_STAND.IBL") ТОI СООБЩЕНИЕ("3.Эта папка не содержит установочной программы!"+СИМВ(13)+! "Обновление не установлено!") СТОП_ВСЕ КОНЕЦ_ЕСЛИ0 ЕСЛИ НЕ СУЩ_ФАЙЛ(дир+"\PROJECT\M2_KEY.ICL") ТОI СООБЩЕНИЕ("4.Эта папка не содержит установочной программы!"+СИМВ(13)+! "Обновление не установлено!") СТОП_ВСЕ КОНЕЦ_ЕСЛИ L СООБЩЕНИЕ("Найдены все нужные файлы. Сейчас будет произведено обновление")jдбиб=ДИР_БИБЛ дисхт=ДИР_ИСХТЕКСТОВ D G усп=ФАЙЛ_КОПИРОВАТЬ(дир+"\PROJECT\M2_STAND.IBL",дбиб+"\M2_STAND.IBL")C усп=ФАЙЛ_КОПИРОВАТЬ(дир+"\PROJECT\M2_KEY.ICL",дбиб+"\M2_KEY.ICL")E усп=ФАЙЛ_КОПИРОВАТЬ(дир+"\SOURCE\M2_INST.SRC",дисхт+"\M2_INST.SRC") K ЕСЛИ ФАЙЛ_КОПИРОВАТЬ(дир+"\IBX\M2_INST.IBX",ДИР_ВЫВОДА+"\M2_inst.ibx") ТО6 фп=ФАЙЛ_СОЗДАТЬ(ТЕК_ДИР+"\M2_par01.txt") F фп.ЗАПИСАТЬ(дир+"\IBX\M2_INST.IBX") // строка параметров фп.ЗАКРЫТЬ вн=ВРЕМЯ_ТЕК ЦИКЛ ПОКА(ДА)0 ЕСЛИ СУЩ_ФАЙЛ(ТЕК_ДИР+"\M2_par01.txt") ТО & СТОП  КОНЕЦ_ЕСЛИ% ЕСЛИ СЕКУНДЫ(ВРЕМЯ_ТЕК-вн)>5 ТОC СООБЩЕНИЕ("Невозможно записать строку параметров"+СИМВ(13)+/ дир+"\IBX\M2_INST.IBX в файл"+СИМВ(13)+! ТЕК_ДИР+"\M2_par01.txt")  СТОП_ВСЕ КОНЕЦ_ЕСЛИ КОНЕЦ_ЦИКЛА9/////////////////////////////////////////////////////////% ЕСЛИ СТАРТ_ПРОГ("M2_inst.ibx") ТО/ ЕСЛИ СУЩ_ФАЙЛ(ТЕК_ДИР+"\M2_par02.txt") ТОV СООБЩЕНИЕ("Установка системы "+"""Зарплата+"""+" успешно завершена!"+СИМВ(13)+" "Желаем приятной работы!")1 усп=ФАЙЛ_УДАЛИТЬ(ТЕК_ДИР+"\M2_par02.txt") ИНАЧЕZ СООБЩЕНИЕ("Установка/обновление блока "+"""Зарплата+"""+" НЕ завершена!"+СИМВ(13)+3 "Устраните причины и повторите установку!") КОНЕЦ_ЕСЛИ ИНАЧЕX СООБЩЕНИЕ("Установка/обновление блока "+"""Зарплата+"""+" НЕ завершена!"+СИМВ(13)+1 "Устраните причины и повторите установку!") КОНЕЦ_ЕСЛИ. усп=ФАЙЛ_УДАЛИТЬ(ТЕК_ДИР+"\M2_par01.txt")  ИНАЧЕ[ СООБЩЕНИЕ("Невозможно скопировать установочную программу "+дир+"\M2_INST.IBX"+СИМВ(13)+C "Возможно, неправильно выбрана папка с дистрибутивом"+СИМВ(13)+1 "или недостаточно свободного места на диске") КОНЕЦ_ЕСЛИ