Обработка для работы с торговыми весами ВН, ВТА
Учетные задачи - Оптовая торговля
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Работа с весами:
1. BTA-60/..-5, BTA-60/..-5-A, BTA-60/..-6-A (Торговые весы).
2. BH-..-A-PK, BH-..-1D-A-PK (Блоки ВН- з житко-кристаличний индикатором).
3. BH-..-A-CI, BH-..-1D-A-CI, BH-..- 220B (Блоки ВН- светодиодными индикаторами).
Обработка подходит для любой конфигурации на упр. формах. Для работы на обычных формах нужно доработать обычную форму или установить в конфигурации совместимость с упр. формами.
Данная обработка самодостаточна, необходимость в драйверах отсутствует. В производителей весов был взят "ехе" файл и запакован в обработку в "Макет" - Двоичные данные. Таким образом обработка при взвешивании распаковывает файл из макета, запускает "ехе" и обрабатывает результат.
&НаКлиенте
Процедура Вес(Команда)
ИмяФайла = ПолучитьМакетНовый();
WshShell = Новый COMОбъект("WScript.Shell");
WshShell.Run(ИмяФайла+" 3 COM3 9600 1 1", 0, True);
//КомандаСистемы(ИмяФайла+" 3 COM3 9600 1 1");
ПрочитатьТХТИУдалитьФайлы(ИмяФайла);
КонецПроцедуры
&НаСервере
Функция ПолучитьМакетНовый()
Об = РеквизитФормыВЗначение("Объект");
ДвоичныеДанные = Об.ПолучитьМакет("Макет_Драйвер");
//Файл ЕХЕ
ИмяФайла = КаталогВрем+ФайлЕХЕ;
ФайлНаДиске = Новый Файл(ИмяФайла);
КаталогНаДиске = Новый Файл(ФайлНаДиске.Путь);
Если Не КаталогНаДиске.Существует() Тогда
СоздатьКаталог(ФайлНаДиске.Путь);
КонецЕсли;
ДвоичныеДанные.Записать(ИмяФайла);
Возврат ИмяФайла;
КонецФункции
&НаСервере
Процедура ПрочитатьТХТИУдалитьФайлы(ИмяФайла)
//Файл текстовий
ТФ = Новый ТекстовыйДокумент;
ТФ.Прочитать(КаталогВрем+ФайлТХТ);
КолСтрок = ТФ.КоличествоСтрок();
К = 4;
ЗначВеса = 0;
Для Н = 1 По КолСтрок Цикл
Если Н = К Тогда
Попытка
ЗначВеса = ТФ.ПолучитьСтроку(Н);
Прервать;
Исключение
КонецПопытки;
КонецЕсли;
КонецЦикла;
Вес = ЗначВеса;
Попытка
УдалитьФайлы(ИмяФайла);
УдалитьФайлы(КаталогВрем+ФайлТХТ);
Исключение
КонецПопытки;
КонецПроцедуры
П.С. Можно переписать таким образом, чтобы файл создавался на момент открытия формы и удалялся на момент закрытия, таким образом оптимизировать.
Вступайте в нашу телеграмм-группу Инфостарт