Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Автовесы ВН-150
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Работа с торговым оборудованием
Pavlik1c
Имеются весы ВН-150-А. В 1С 7.7 вес автоматически передается. Сейчас интегрируем с 1С8 УПП. Как вывести вес на форме обработки? Какой алгоритм действий? Помогите!!!

Библиотека "MSCOMMLib.MSComm.1" подключена.
andr_andrey
Pavlik1c @ Сегодня, 14:53 необходимо зарегистрироваться для просмотра ссылки,
Самый простой способ - посмотреть, как это сделано в 1С 7.7

И ещё, если хотите написать свой драйвер (обычно он предоставляется производителем весов или продавцом), то в инструкции к весам есть полное описание режимов работы индикатора (обмен) и протоколов обмена.
Скан из инструкции смогу выслать, если не найдёте сами.
Pavlik1c
ЧтениеВесов_ВН150()
Перем Стабил, Ожидание, ТекВес;
    CountPass = 0;
    Стабил = 1;
Попытка
    Пока Стабил <>0 Цикл
    глОбВесы.Output = "<"+симв(3)+"!>";
    Ожидание = 0;

    Пока глОбВесы.InBuffrCount < 10 Цикл
    Задержка(1);
    Ожидание = Ожидание +1;
   Если Ожидание > 300 Тогда
    Предупреждение("Нет ответа от весов. Устраните неисправность!") +РазделительСтрок+" Осталось попыток: " (3-CobntPass));
    Прервать;
     КонецЕсли;
    КонецЦикла;
Если глОбВесы.InBufferCount <> 10Тогда
Clr = глОбВесы.Input;
CountPass = CountPass +1;
Если CountPass > 3 Тогда
    Если Вопрос("Нет ответа от весов!!! Перейти на ручной ввод веса?", 4, 15)= 6 Тогда
    CloseComPort()
      Прервать;
   Иначе CountPass = 0;
    КонецЕсли;
    КонецЕсли;
    Продолжить;
    КонецЕсли;
   Если СтрВесЗнач(глОбВесы.Input) = 1 Тогда
    Стабил = Стабил - 1;
   Иначе
    Стабил = 10;
  КонецЕсли;
КонецЦикла;
КонецПопытки;
КонецПроцедуры;



Это текст в 7.7, а как 8-ке ???
andr_andrey
Pavlik1c @ Сегодня, 12:16 необходимо зарегистрироваться для просмотра ссылки,
Ищите, что есть "глОбВесы", каким объектом переменная инициализируется.
Pavlik1c
...
глОбВесы = СоздатьОбьект("MSCOMLib.MSComm.1");
глОбВесы.ComPort = NumCom;
глОбВесы.Settings = "9600, N,8, 1";
глОбВесы.Rthreshold = 1;
глОбВесы.InputLen = 0;
Попытка
глОбВесы.PortOpen = 1;
Исключение
Предупреждение ("Не могу открыть порт");
Возврат
КонецЕсли
КонецПроцедуры
...

В 7.7: глОбВесы.Output = "<"+симв(3)+"!>"; //походу передает запрос весам, а как это сделать в 8-ке???
Vofka
Цитата(Pavlik1c @ 18.05.16, 12:46) необходимо зарегистрироваться для просмотра ссылки
В 7.7: глОбВесы.Output = "<"+симв(3)+"!>"; //походу передает запрос весам, а как это сделать в 8-ке???

глОбВесы.Output = "<"+Символ(3)+"!>"

И настоятельно прошу ознакомиться с правилами. Потому что будете обижаться скоро.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.