Фронтол XPOS, если что-то пошло не так

12.12.23

HTA-скрипт для изменения настроек базы SQLite Фронтол xpos на случай непредвиденных обстоятельств. Только для ОС Windows.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
ПриСбоеИзменитьНастройки.hta .hta 5,32Kb 1	1	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

Связка 1с и фронтол - классический пример успешного взаимодействия бэк и фронт-офиса, имеет давнюю историю, достаточно популярен сейчас, хорошо изучен и работает стабильно. Но основным отличием фронтола (особенно версии xpos) от решений 1с является невозможность внесения изменений в алгоритм работы данного ПО, что в принципе не умаляет его достоинств (скорости работы, низкие требования к железу, возможность работы в Линукс и проч.)

Но поскольку настройки и данные фронтол xpos хранятся во внешней базе SQLite, менять их можно, а иногда и даже нужно.

В этой публикации прилагается небольшое HTA-приложение, в котором можно менять следующие настройки в случае возникновения нештатных ситуаций, ниже приводятся примеры из жизни.

Ситуация 1. Запрос акцизной марки АЛКО при сканировании. Продавец отсканировал штрихкод, акцизную марку, перешел в режим оплаты, клиент рассчитывается картой, оплата проходит успешно, покупатель покидает магазин с покупкой, а чек не закрывается (причины отказа: УТМ ЕГАИС не работает или акцизная марка некорректна). Правильней всего сделать сторно оплаты, отменить чек, забрать товар, но его уже нет. Исправляем ситуацию: отключаем запрос акцизной марки, оформляем чек и закрываем, запрос акцизной марки включаем. При оплате картой, если используется интегрированный терминал параллельно применяем решение в ситуации 3.

Ситуация 2. Проверка кода маркировки (СИГАРЕТЫ, МОЛОКО, ВОДА) при сканировании. Аналогично ситуации 1, сканируется штрихкод, код маркировки, переход на оплату, оплата картой проходит успешно, покупатель уходит с товаром, а чек не закрывается (сбой в ЧЗ или проблема с ОФД). Исправляем ситуацию: отключаем проверку кода маркировки, закрываем чек, включаем проверку. Применяется совместно с решением в ситуации 3.

Ситуация 3. Оплата картой прошла, а чек не закрывается, и покупатель уже ушел, например как в ситуации 1. Исправляем ситуацию: перезагружаем оборудование, создаем чек заново, отключаем запрос карты при оплате, закрываем чек. Включаем запрос карты.

Вот собственно и все, этим hta-скриптом пользуются мои клиенты, в случае, если что-то пошло не так, самостоятельно и оперативно решают проблемы.

Условия в запросах к базе Sqlite хардкодны, поэтому код придется править под себя.

Как это сделано сейчас в коде:

Запрос акцизной марки АЛКО при сканировании, у клиента используется своя обработка выгрузки файла товаров в фронтол, и весь алкоголь с акцизными марками идет под кодом 200

RunQuery("update WARE set MARKING=1 where ALCOHOL_TYPE_CODE='200';")

Проверка кода маркировки (СИГАРЕТЫ, МОЛОКО, ВОДА) при сканировании, группы этих товаров имеют коды 66666,77777,88888

RunQuery("update WARE set PRODUCT_TYPE=0 where parentid IN (select id from WARE where code='66666' or code='77777' or code='88888');")

Эти строки придется изменить под свои условия.

Код HTA

<html>
<head>
<title>Изменить настройки программы Фронтол XPOS</title>
<HTA:APPLICATION
  APPLICATIONNAME="1CUpdateDB"
  ID="1CUpdateDB"
  VERSION="1.0"
  MAXIMIZEBUTTON="no"
  MINIMIZEBUTTON="no"
  SCROLL="no"/>
</head>

<script language="VBScript">

Sub Window_OnLoad
  Self.Focus()
  Self.ResizeTo 700,400
  Self.MoveTo 0,0
  divDBname.innerHTML="\\test1\e$\DATA\XPOS\DB\main.db"
  divSQLLiteUtil.innerHTML="D:\programs\sqlite-tools-win32-x86-3410200\sqlite3.exe"
  ReadSettings()
  'msgbox Self.location.pathname
End Sub

Sub ReadSettings

  RunQuery("select count(*) from WARE where MARKING=0 AND ALCOHOL_TYPE_CODE='200';")
  ChangeSpanDiv("StatusAM")

  RunQuery("select count(*) from WARE where PRODUCT_TYPE<>0 AND parentid IN (select id from WARE where code='66666' or code='77777' or code='88888');")
  ChangeSpanDiv("StatusKM")

  RunQuery("select count(*) from DEVICES where CONNECTIONSTATE=0 AND GROUPDEV=4;")
  ChangeSpanDiv("BankCard")

End Sub

Sub ChangeSpanDiv(NameID)

  divElem=document.getElementsByName("div" & NameID)
  spanElem=document.getElementsByName("span" & NameID)

  divElem.innerHTML="нет данных"
  spanElem.style.backgroundcolor = "ivory"
  spanElem.style.color="black"
  if divResult.innerHTML="0" Then
     divElem.innerHTML="OТКЛЮЧЕН"
     spanElem.style.backgroundcolor = "red"
     spanElem.style.color="white"
  else
     divElem.innerHTML="ВКЛЮЧЕН"
     spanElem.style.backgroundcolor = "green"
     spanElem.style.color="white"
  end if

End Sub

Sub RunQuery(QueryText)
  Set WshShell = CreateObject("WScript.Shell")
  Set FSO=CreateObject("Scripting.FileSystemObject")
  WorkDir=FSO.GetParentFolderName(divSQLLiteUtil.innerHTML) 
  WshShell.CurrentDirectory=WorkDir
  Set f = FSO.CreateTextFile("QueryText.txt", True)
  f.WriteLine(".output result.txt")
  f.WriteLine(QueryText)
  f.WriteLine(".quit")
  f.close

  Set f = FSO.CreateTextFile("SqlRun.cmd", True)
  f.WriteLine(FSO.GetFileName(divSQLLiteUtil.innerHTML) & " " & divDBName.innerHTML & " <QueryText.txt")
  f.WriteLine("exit")
  f.close

  WshShell.Run "SqlRun.cmd", 0, True

  divResult.innerHTML=""

  if FSO.FileExists("result.txt") Then
     Set f = FSO.GetFile("result.txt")
     if f.size>0 Then
        Set f = FSO.OpenTextFile("result.txt")
        divResult.innerHTML=f.readline
     end if
  end if

End Sub

Sub StatusAMChange()
   if divStatusAM.innerHTML="ВКЛЮЧЕН" Then
      RunQuery("update WARE set MARKING=1 where ALCOHOL_TYPE_CODE='200';")
   else
      RunQuery("update WARE set MARKING=0 where ALCOHOL_TYPE_CODE='200';")
   end if
   ReadSettings()
End Sub

Sub StatusKMChange()
   if divStatusKM.innerHTML="ВКЛЮЧЕН" Then
      RunQuery("update WARE set PRODUCT_TYPE=0 where parentid IN (select id from WARE where code='66666' or code='77777' or code='88888');")
   else
      RunQuery("update WARE set PRODUCT_TYPE=4 where parentid IN (select id from WARE where code='88888');")
      RunQuery("update WARE set PRODUCT_TYPE=13 where parentid IN (select id from WARE where code='77777');")
      RunQuery("update WARE set PRODUCT_TYPE=7 where parentid IN (select id from WARE where code='66666');")
   end if
   ReadSettings()
End Sub

Sub BankCardChange()
   if divBankCard.innerHTML="ВКЛЮЧЕН" Then
      RunQuery("update DEVICES set CONNECTIONSTATE=2 where GROUPDEV=4;")
   else
      RunQuery("update DEVICES set CONNECTIONSTATE=0 where GROUPDEV=4;")
   end if
   ReadSettings()
End Sub

Sub TaskkillXpos()
  Set WshShell = CreateObject("WScript.Shell")
  Set FSO=CreateObject("Scripting.FileSystemObject")
  WorkDir=FSO.GetParentFolderName(divSQLLiteUtil.innerHTML) 
  WshShell.CurrentDirectory=WorkDir
  Set f = FSO.CreateTextFile("TaskkillXpos.cmd", True)
  f.WriteLine("timeout /t 10 /nobreak")
  f.WriteLine("TASKKILL /IM pos.exe /F")
  f.WriteLine("exit")
  f.close
  WshShell.Run "TaskkillXpos.cmd", 1, False
End Sub

Sub OnClickButtonCloseApp()
    Self.close  
End Sub

</script>

<body bgcolor="ivory">
<h4><a href="#" style="font-family:'Arial';font-size:14pt" ВЫХОД</a></h4>
<table style="width:100%;font-family:'Arial';font-weight:bold;font-size:14pt" border>
  <tr>
    <td width="80%">Запрос акцизной марки АЛКО при сканировании</br>
    <a href="#" запрос акцизной марки</a></td>
    <td width="20%"><span id="SpanStatusAM"><div id="divStatusAM"></div></span></td>
  </tr>
  <tr>
    <td width="80%">Проверка кода маркировки (СИГАРЕТЫ, МОЛОКО, ВОДА) при сканировании</br>
    <a href="#" проверку кода маркировки при сканировании</a></td>
    <td width="20%"><span id="SpanStatusKM"><div id="divStatusKM"></div></span></td>
  </tr>
  <tr>
    <td width="80%">Запрос банковской карты при оплате</br>
    <a href="#" запрос банковской карты при оплате</a></td>
    <td width="20%"><span id="SpanBankCard"><div id="divBankCard"></div></span></td>
  </tr>
  <tr>
    <td width="80%"><a href="#" закрыть (завершить) программу фронтол</a></td>
    <td width="20%">*</td>
  </tr>
</table>
<span style="font-family:'Arial';font-size:10pt">
<div id="divDBName"></div>
<div id="divSQLLiteUtil"></div>
<div id="divResult" style="display:none"></div>
</span>
</body>
</html>

Скрипт написан под Windows, но возможна доработка и под Линукс, если такая потребность будет.

Всем желаю успехов, пожелания, критика принимаются

Вступайте в нашу телеграмм-группу Инфостарт

hta-скрипт

+9 –

См. также

Расширенная форма списка Номенклатура и Корзина для 1С:УТ11, ERP и КА

Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Ценообразование, анализ цен Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Расширение для работы с номенклатурой: отображение остатков, цен, изображений, аналитики по каждой позиции, подбор товаров в документы через корзину и оптимизация интерфейса.

17284 руб.

26.04.2016 687980 1573 669

737

Интеграция 1С с API Boxberry, СДЭК, Энергия, Почта России, DPD, ПЭК, Grastin, Деловые Линии, КСЕ, Dalli, ЯндексДоставка

WEB-интеграция Рабочее место Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Пользователь 1С:Предприятие 8 1С:Бухгалтерия 2.0 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 1.6 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 10 1С:Управление торговлей 11 1С:Розница 2 1С:Розница 3.0 Оптовая торговля, дистрибуция, логистика Россия Управленческий учет Платные (руб)

Программный продукт "Управление доставками в 1С" позволяет обмениваться с личным кабинетом Boxberry, СДЭК, Энергия, Почта России, DPD, ПЭК, Grastin, Деловые Линии, КСЕ, Dalli, ЯндексДоставка. Упрощает создание заявок и резервирование заказов прямо в интерфейсе 1С

24400 руб.

10.03.2016 76080 321 100

Сервисный центр по ремонту техники для 1С УТ, УНФ, ERP, КА, БП (Расширение Модуль ТОиР)

Зарплата Производство готовой продукции (работ, услуг) Учет рабочего времени Рабочее место Аналитик Пользователь Руководитель проекта 1С:Предприятие 8 1С:Управление торговлей 10 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Торговля и склад 7.7 Бытовые услуги, сервис Оптовая торговля, дистрибуция, логистика Электротехника и микроэлектроника Управленческий учет Платные (руб)

Модуль или расширение «Сервисный центр для 1С» позволяет принимать в ремонт оборудование (компьютеры, бытовая техника и т.п.), оформлять заявки инженеров на посещение клиентов и вести начисление заработной платы для сотрудников. Позволяет наладить автоматизированный учет в сервисном центре на уже существующей базе.

15500 руб.

01.11.2012 108813 137 1

144

Расширение Модуль Автосервис для 1С УТ 11, УНФ, Бухгалтерия, ERP, КА

Производство готовой продукции (работ, услуг) Рабочее место Пользователь Руководитель проекта 1С:Предприятие 8 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Автомобили, автосервисы Управленческий учет Платные (руб)

Модуль «Автосервис» для 1С — это профессиональный инструмент для автоматизации станций технического обслуживания. Решение позволяет вести полный цикл работ: от быстрой записи клиента и планирования постов до расчета заработной платы исполнителей. Поддерживает работу нескольких филиалов в одной базе без ограничений по лицензиям пользователей, интегрируется с типовыми конфигурациями 1С (например, Управление Торговлей 11, УНФ, Бухгалтерия, КА, ERP) для учета товаров и услуг.

18900 руб.

09.03.2016 53363 136 1

"Автосервис" для 1С:УТ 11.5, 1С:КА 2.5, ERP 2.5

Производство готовой продукции (работ, услуг) Рабочее место Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Автомобили, автосервисы Россия Управленческий учет Платные (руб)

Расширение, добавляющее в конфигурации 1С:УТ 11.5, КА 2.5 и ERP 2.5 автомобили, марки, модели, нормо-часы. Предусмотрена запись на ремонт, документ заказ наряд, вывод ведомости по заказ нарядам, вывод выработки мастеров.

14640 руб.

29.07.2021 24918 56 22

Мастер ТТН. Версия ПРОФ

Оптовая торговля Рабочее место Создание на основании Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Бухгалтерский учет Платные (руб)

Полнофункциональное расширение для формирования и ведения учета перевозочных документов всех видов (ТН, ТТН, ЭТрН). Печать документов или отправка через ЭПД (Электронный перевозочный документооборот). Поддержка регистрации нескольких перевозок на одну финансовую реализацию (в виде УПД, например), а также одной перевозки на основании нескольких финансовых реализаций. Формирование всех сопроводительных документов из одной отгрузки. Формирование реестра грузосопроводительных документов, доверенности менеджеров для указания ответственных лиц (руководитель, главный бухгалтер, кладовщик) организации для пользователей ИБ. Гибкая настройка функциональности под потребности организации.

10099 руб.

18.04.2017 57638 322 45

106

Рабочее место менеджера по продажам для 1С (УТ 11, ERP 2.0, КА 2) - v.2 (оптовая торговля)

Рабочее место Оптовая торговля Розничная торговля Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Данная обработка - удобный инструмент в 1С для менеджеров по продажам для повседневной работы с клиентами. Позволяет упростить весь цикл работы с клиентом: первичная консультация по наличию товара, быстрое оформление нового заказа, контроль исполнения заказов. Обработка будет особенно актуальна для компаний, работающих, в основном, с юридическими лицами.

18300 руб.

08.11.2016 67879 56 24

Аналоги номенклатуры в 1С:УТ, КА, ERP

Рабочее место Логистика, склад и ТМЦ Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Автомобили, автосервисы Оптовая торговля, дистрибуция, логистика Фармацевтика, аптеки Россия Управленческий учет Платные (руб)

Удобное отображение аналогов номенклатуры в 1С для УТ 11, КА 2, ERP прямо в списке. Легкое добавление и удаление аналогов к номенклатуре. Доработка в виде расширения, изменение конфигурации не требуется.

12709 руб.

19.03.2019 58009 465 85

129

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. newbas 535 06.03.24 22:12 Сейчас в теме

Здравствуйте. Подскажите, структуру БД опытным путем разбирали или есть описание? ~~В какой таблице находятся краны?~~

Оказалось таблиц не много, таблица с кранами "TAPS"