ИБ(w) : Формат бланка g ----------- Установка-обновление блока ККМ+ (режим чековый ONLINE) ----------------- 3.2. ККМ+ (чековый ONLINE) KT_NST1.BARНОМЕР уяђМ1Courier New dр) ИБ(w) : Данные универсального редактора ^ Бланк должен быть расчитан после установки обновления блока из дистрибутивного(поставочного)X файла KT_INST1.EXE, который устанавливает все необходимые компоненты блока в отдельнуюF директорию (по умолчанию это директория c:\Program Files\logika\KT1)B Перед расчетом бланка закройте ВСЕ окна системы Инфо-Бухгалтер !V Убедитесь, что определено не пустое значение(обычно IBX) для директории программ IBX\ (Установка-> Настройки...->Каталоги)! Если оно пустое, задайте ему значение (рекомендуетсяX IBX с откладыванием от текущей директории) и перезагрузите программу "Инфо-Бухгалтер".U Этот бланк копирует в рабочую систему "Инфо-Бухгалтер" программные компоненты блока[ "ККМ+(чековый online)", а также выполняет другие подготовительные действия по установке и инициализации обновления.\ Бланк достаточно выполнить один раз после инсталляции файлов обновления, которую выполнила программа KT_INST1.EXE.X После запуска бланка (F9) будет открыто окно проводника, с помощью которого необходимоY выбрать директорию, в которую Вы инсталлировали файлы обновления с помощью KT_INST1.EXEV (по умолчанию это C:\Program Files\logika\KT1\IBX и выбрать из нее файл установочнойY программы KT_INS1.IBX. Если бланк обнаружит там нужный файл, то процесс установки будет выполнен автоматически.W После завершения установки закройте программу "Инфо-Бухгалтер" и запустите заново для актуализации изменений.Ђ"г"яяуяяяђSymbolЧµ“дPµµЂ!" 1990-2005 ООО ИЦ "+"""Логика"""яяхяяяђМ1Courier NewhеЊ°JхїiеЊTЂГрафа5яяD<// Стандартный блок ККМ+ для программы Инфо-Бухгалтер 8.ххх6// (С) ООО ИЦ "Логика", http://users.kaluga.ru/logikaH// Автор - Сергей Олейник , тел/факс (0842)-740472, тел. (08442)-41658-// e-mail: logika@kaluga.ru, ICQ # 15324488 E// Автор и коллектив разработчиков будут признательны пользователям // за все замечания и пожелания?// // 21.02.2005 // 2ф_ин="C:\Program Files\logika\KT1\ibx\KT_INS1.ibx"Rпф=ЗАГЛ(ВЫБОР_ФАЙЛА (ф_ин,"Найдите и выберите установочную программу KT_INS1.ibx",,"Установочная программа ","ibx")) JЕСЛИ пф="" ТО СООБЩЕНИЕ("Обновление не установлено!" ) СТОП_ВСЕ КОНЕЦ_ЕСЛИ,пн=ПОЗ("IBX\KT_INS1.IBX",ЗАГЛ(пф)) ,ЕСЛИ пн=0 ТО P СООБЩЕНИЕ("Эта папка не содержит обновления или выбран другой файл!"+СИМВ(13)+B "Обновление не установлено! Запустите KT_INS1.EXE и повторите.")0 СТОП_ВСЕ 0КОНЕЦ_ЕСЛИ Hдир=ПОДСТР(пф,1,пн-2) // исходная директория C:\Program Files\logika\KT0ЕСЛИ ЗАГЛ(дир+"\BLANKS")=ЗАГЛ(ДИР_БЛАНКОВ) ТО U СООБЩЕНИЕ("Вы выбрали в качестве директории с обновлением принимающую директорию!")0 СТОП_ВСЕ 3КОНЕЦ_ЕСЛИ ,ЕСЛИ НЕ СУЩ_ФАЙЛ(дир+"\IBX\KT_INS1.IBX") ТО Q СООБЩЕНИЕ("Эта папка не содержит установочной программы KT_INS1.IBX!"+СИМВ(13)+C "Обновление не установлено! Прочитайте инструкцию по установке.")0 СТОП_ВСЕ 0КОНЕЦ_ЕСЛИ FСООБЩЕНИЕ("Найдены нужные файлы. Сейчас будет произведено обновление")0вр_н=ВРЕМЯ_ТЕК 0ЦИКЛ ПОКА(ДА) // задержка до 5 секунд H усп=ФАЙЛ_КОПИРОВАТЬ(дир+"\IBX\KT_INS1.IBX", ДИР_ВЫВОДА+"\KT_INS1.ibx")- ЕСЛИ СУЩ_ФАЙЛ(ДИР_ВЫВОДА+"\KT_INS1.ibx") ТО/ СТОП / ИНАЧЕ / ЕСЛИ СЕКУНДЫ(ВРЕМЯ_ТЕК-вр_н)>5 ТО a СООБЩЕНИЕ("Невозможно скопировать установочную программу "+дир+"\IBX\KT_INS1.IBX"+СИМВ(13)+B "Возможно, неправильно выбрана директория с дистрибутивом!")/ СТОП_ВСЕ / КОНЕЦ_ЕСЛИ / КОНЕЦ_ЕСЛИ /КОНЕЦ_ЦИКЛА <усп=ФАЙЛ_УДАЛИТЬ(ТЕК_ДИР+"\KT_par01.txt") // файл параметров/фп=ФАЙЛ_СОЗДАТЬ(ТЕК_ДИР+"\KT_par01.txt") Kфп.ЗАПИСАТЬ(дир+"\IBX\KT_INS1.IBX") // строка параметров для SK_INST.IBX/фп.ЗАКРЫТЬ /вр_н=ВРЕМЯ_ТЕК :ЦИКЛ ПОКА(ДА) // задержка до 5 секунд / ЕСЛИ СУЩ_ФАЙЛ(ТЕК_ДИР+"\KT_par01.txt") ТО J ЕСЛИ СТАРТ_ПРОГ("KT_INS1.ibx") ТО ///////// Устанавливаем обновлениеY СООБЩЕНИЕ("Установка компонентов блока "+"""ККМ+"""+" успешно завершена!"+СИМВ(13)+/ "Желаем приятной работы!") / ИНАЧЕ T СООБЩЕНИЕ("Установка компонентов блока "+"""ККМ+"""+" НЕ завершена!"+СИМВ(13)+/ "Устраните причины и повторите!") / КОНЕЦ_ЕСЛИ / усп=ФАЙЛ_УДАЛИТЬ(ТЕК_ДИР+"\KT_par01.txt") / СТОП / ИНАЧЕ / ЕСЛИ СЕКУНДЫ(ВРЕМЯ_ТЕК-вр_н) >5 ТО _ СООБЩЕНИЕ("Невозможно начать выполнение программы KT_INS1.IBX более 5 секунд !"+СИМВ(13)+F "Возможно, ошибка в файловой системе WINDOWS или ошибка диска!")/ СТОП_ВСЕ / КОНЕЦ_ЕСЛИ / КОНЕЦ_ЕСЛИ /КОНЕЦ_ЦИКЛА /