Настройка ТСД chiperLab 8001 для УТ 11

23.10.14

Учетные задачи - Логистика, склад и ТМЦ

Расширяем функционал ТСД chiperLab 8001 и загружаем сразу 10 документов
Сканируйте 10 накладных за один раз!!!

Скачать файл

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

Наименование По подписке [?] Купить один файл
Revolution8001.AGX
.AGX 18,51Kb
31
31 Скачать (1 SM) Купить за 1 850 руб.

 

 В данном примере мы рассмотрим, как доработать задачу  в ТСД chiperLab 8001, расширив ее функционал, и подключить к УТ11:

В  файле Revolution8001.AGX содержится доработанная задача, имеющая следующие особенности:

1. Возможность загрузки до 10 различных документов

 


2.В каждой накладной выводится номер накладной, штрих код сканированного товара, ввод сканированного товара, название, счетчик позиций по накладной.

3.Поиск происходит по базе товаров, которые выгружаются в ТСД.

               Установка из коробки

1. Первое, что нужно сделать, это подключить ТСД и установить софт (нам необходим Генератор приложений) аем

2. Настраиваем в генераторе приложений подключение

 

в данном случае через подставку

3. Проверяем настройки в ТСД, соответсвуют ли они настройкам в генераторе приложений

4. Загружаем задачу в ТСД.

Если прошло все успешно, то переходим к следующей части,если нет... учите мат. часть

 Настройка в 1С

1. Заходим в настройки оборудования

 

 

 

 

 

 

2. Добавляем новое устройство на свое рабочее место 

 

 

3. Устанавливаем драйвер(в 11 версии это можно сделать прямо из 1с), настраиваем параметры подключения. Обязательно!!! ставим галочку "не выбирать источник загрузки". Дальше напишу зачем.

 

 

 

 

 

4. Обратите внимание на вкладку "форматы", она должна быть заполнена именно так

 

 

 

 

 

 

5.Ну и теперь самое интересное. Для тех, кто хочет задействовать все 10 накладных, далее... Без этого все будет работать, но документ загрузки будет только 1 и выбираться как задано на вкладке 5 

        Доработка кода

Для того чтобы получить выбор накладной как на рисунке

 

 

 

 

необходимо дописать следующее

общиймодуль.ПодключаемоеОборудованиеСканкодТерминалыСбораДанныхКлиент

Функция НачатьЗагрузку(ОбъектДрайвера, Параметры, ПараметрыПодключения, Количество, ВыходныеПараметры)

Результат = Истина;
ПараметрыПодключения.Вставить("ПоследнийИсточникЗагрузки", "Документ");

Если Параметры.ВыбиратьИсточникЗагрузки Тогда
СписокИсточниковЗагрузки = Новый СписокЗначений();
//начало Яшин А.И. нам не нужна загрузка база данных нам нужно 10 документов
//СписокИсточниковЗагрузки.Добавить("Документ", НСтр("ru='Документ терминала сбора данных'"));
//СписокИсточниковЗагрузки.Добавить("База", НСтр("ru='База терминала сбора данных'"));
СписокИсточниковЗагрузки.Добавить("Документ1", НСтр("ru='Накладная 1'"));
СписокИсточниковЗагрузки.Добавить("Документ2", НСтр("ru='Накладная 2'"));
СписокИсточниковЗагрузки.Добавить("Документ3", НСтр("ru='Накладная 3'"));
СписокИсточниковЗагрузки.Добавить("Документ4", НСтр("ru='Накладная 4'"));
СписокИсточниковЗагрузки.Добавить("Документ5", НСтр("ru='Накладная 5'"));
СписокИсточниковЗагрузки.Добавить("Документ6", НСтр("ru='Накладная 6'"));
СписокИсточниковЗагрузки.Добавить("Документ7", НСтр("ru='Накладная 7'"));
СписокИсточниковЗагрузки.Добавить("Документ8", НСтр("ru='Накладная 8'"));
СписокИсточниковЗагрузки.Добавить("Документ9", НСтр("ru='Накладная 9'"));
СписокИсточниковЗагрузки.Добавить("Документ10", НСтр("ru='Накладная 10'"));

//конец Яшин А.И. нам не нужна загрузка база данных нам нужно 10 документов

ИсточникЗагрузки = СписокИсточниковЗагрузки.ВыбратьЭлемент(НСтр("ru='Выберите источник загрузки данных'"));
Если ИсточникЗагрузки <> Неопределено Тогда
ПараметрыПодключения.ПоследнийИсточникЗагрузки = ИсточникЗагрузки.Значение;
//начало Яшин А.И. нам не нужна загрузка база данных нам нужно 10 документов

//Если ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ" Тогда
// Количество = ОбъектДрайвера.ЗаписейВДокументе(Параметры.НомерДокумента);
//Иначе
// Количество = ОбъектДрайвера.ЗаписейВБазеДанных(Параметры.НомерБазы);
//КонецЕсли;
Если ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ1" Тогда
НомерДокумента=0;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ2" Тогда
НомерДокумента=1; 
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ3" Тогда
НомерДокумента=2;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ4" Тогда
НомерДокумента=3;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ5" Тогда
НомерДокумента=4;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ6" Тогда
НомерДокумента=5;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ7" Тогда
НомерДокумента=6;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ8" Тогда
НомерДокумента=7;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ9" Тогда
НомерДокумента=8;
ИначеЕсли ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ10" Тогда
НомерДокумента=9;
КонецЕсли;
Параметры.Вставить("НомерДокумента" , НомерДокумента);
Количество = ОбъектДрайвера.ЗаписейВДокументе(НомерДокумента); 
//конец Яшин А.И. нам не нужна загрузка база данных нам нужно 10 документов
Иначе
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Операция отменена пользователем'"));
Возврат Ложь;
КонецЕсли;
Иначе
Количество = ОбъектДрайвера.ЗаписейВДокументе(Параметры.НомерДокумента);
КонецЕсли;

Если Количество = 0 Тогда
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Отсутствуют данные для загрузки из терминала сбора данных.'"));

Результат = Ложь;
ИначеЕсли Количество < 0 Тогда
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(ОбъектДрайвера.ОписаниеРезультата);

Результат = Ложь;
КонецЕсли;

Возврат Результат;

КонецФункции

Функция ЗагрузитьСтроку(ОбъектДрайвера, Параметры, ПараметрыПодключения, Штрихкод, Количество, ВыходныеПараметры)

Результат = Истина;
//начало Яшин А.И. 10 документов 
//ФорматИсточника = ?(ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ",
ФорматИсточника = ?(ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ"+(Параметры.НомерДокумента+1),
//конец Яшин А.И.10 документов
Параметры.ФорматДокумента, Параметры.ФорматБазы);
Штрихкод = Неопределено;
Количество = Неопределено;
Разделитель = "";
// начало Яшин А.И. 10 документов
//Если ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ" Тогда
Если ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ"+(Параметры.НомерДокумента+1) Тогда
// конец Яшин А.И.10 документов
Разделитель = Символ(Параметры.РазделительДокумента);
ОбъектДрайвера.ПолучитьЗаписьИзДокумента(Параметры.НомерДокумента);
Иначе
Разделитель = Символ(Параметры.РазделительБазы);
ОбъектДрайвера.ПолучитьЗаписьИзБазыДанных(Параметры.НомерБазы);
КонецЕсли;

Если ОбъектДрайвера.Результат <> 0 Тогда
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(ОбъектДрайвера.ОписаниеРезультата);

Результат = Ложь;
Иначе
ДанныеИзТСД = СтрЗаменить(ОбъектДрайвера.Данные, Разделитель, Символы.ПС);

Если ФорматИсточника.Количество() > 0 Тогда
Для Каждого СтрокаФормата Из ФорматИсточника Цикл
Если СтрокаФормата.Наименование = "Штрихкод" Тогда
Попытка
#Если ВебКлиент Тогда
Штрихкод = СтрПолучитьСтроку(ДанныеИзТСД, СтрокаФормата.НомерПоля);
#Иначе
Штрихкод = ОбъектДрайвера["Поле" + СтрокаФормата.НомерПоля];
#КонецЕсли
Исключение
Продолжить;
КонецПопытки;
ИначеЕсли СтрокаФормата.Наименование = "Количество" Тогда
Попытка
#Если ВебКлиент Тогда
Количество = Число(СтрПолучитьСтроку(ДанныеИзТСД, СтрокаФормата.НомерПоля));
#Иначе
Количество = Число(ОбъектДрайвера["Поле" + СтрокаФормата.НомерПоля]);
#КонецЕсли
Исключение
Количество = 0;
КонецПопытки;
КонецЕсли;
КонецЦикла;
Иначе
Штрихкод = ОбъектДрайвера.Поле1;
Попытка
Если ПараметрыПодключения.ПоследнийИсточникЗагрузки = "Документ" Тогда
Попытка
Количество = Число(ОбъектДрайвера.Поле2);
Исключение
Количество = 0;
КонецПопытки;
Иначе
Попытка
Количество = Число(ОбъектДрайвера.Поле8);
Исключение
Количество = 0;
КонецПопытки;
КонецЕсли;
Исключение
ВыходныеПараметры.Очистить();
ВыходныеПараметры.Добавить(999);
ВыходныеПараметры.Добавить(НСтр("ru='Неверный формат данных поля ""Количество"".
|Проверьте настройку задачи терминала.'"));

Результат = Ложь;
КонецПопытки;
КонецЕсли;
КонецЕсли;

Возврат Результат;

КонецФункции

 На выходе получаем ТСД с 10 накладными что очень удобно при отгрузке или приемке нескольких заказов

Настройка ТСД chiperLab 8001 Настройка ТСД для ут 11 Терминал сбора данных chiperLab 8001 прошивка для ТСД прошивка для chiperLab 8001

См. также

Логистика, склад и ТМЦ Бухгалтер Пользователь Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Программа позволяет организовать учет ответственного хранения товаров с весовыми характеристиками, в том числе со сроком годности и личным кабинетом Поклажедателя. Модуль реализован в виде расширения конфигурации, устанавливается в режиме 1С:Предприятие 8 за 5 минут по инструкции, что позволяет оставить конфигурацию 1С на стандартной поддержке и продолжать получать стандартные обновления от фирмы "1С".

89900 руб.

09.06.2020    38307    28    59    

64

SALE! 10%

Перенос данных 1C Взаиморасчеты Оптовая торговля Логистика, склад и ТМЦ Файловый обмен (TXT, XML, DBF), FTP Системный администратор Программист Платформа 1С v8.3 1С:Управление торговлей 10 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Управленческий учет Платные (руб)

Можно проверить до покупки, оставьте заявку! Воспользовались более 268 компаний! Перенос данных из УТ 10.3 в УТ 11 | из УТ 10.3 в КА 2 | из УТ 10.3 в ERP. Предлагаем качественное и проверенное временем решение для перехода с УТ 10.3. Можно перенести начальные остатки, нормативно-справочную информацию и все возможные документы. При выгрузке можно установить отбор по периоду, организациям и складам. При выходе новых релизов конфигураций 1C оперативно выпускаем обновление переноса данных.

50722 45650 руб.

24.04.2015    194664    149    242    

279

Бюджетирование и планирование Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Анализ продаж Пользователь Платформа 1С v7.7 Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Беларусь Украина Россия Казахстан Управленческий учет Платные (руб)

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

28500 руб.

21.04.2017    96030    125    40    

214

Логистика, склад и ТМЦ Бухгалтер Пользователь Платформа 1С v8.3 Сельское хозяйство и рыболовство Строительство Горнодобывающая промышленность Розничная и сетевая торговля (FMCG) Транспорт, автопарки, такси Оптовая торговля, дистрибуция, логистика Лесное и деревообрабатывающее хозяйство Управленческий учет Платные (руб)

Позволяет автоматизировать процесс взвешивания ТМЦ в организациях, осуществляющих приемку и отгрузку различным транспортом, для ведения складского учета и контроля остатков на складах. Конфигурация позволяет фиксировать вес вручную, напрямую с весов, а также управлять дополнительным оборудованием и контролировать движение транспорта.

35000 руб.

24.03.2015    125421    301    114    

136

Логистика, склад и ТМЦ Платформа 1С v8.3 Россия Платные (руб)

Подсистема автоматизированного управления складом AS WMS для конфигураций на платформе 1С 8. AS WMS – готовое решение для эффективного управления, хранения и учета на адресном складе. Внедрение системы AS WMS способствует быстрому отбору товара, ускорению инвентаризации, снижению зависимости от персонала, исключению пересорта. AS WMS встраивается в любую конфигурацию на платформе 1С 8 и работает как единая система без обменов. В учетной системе нет необходимости менять процессы под AS WMS (например, вводить ордерную схему), AS WMS использует стандартные документы по товародвижению вашей учетной системы.

40000 руб.

26.07.2023    5787    19    0    

11

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

Программа для автоматизации учета путевых листов в 1С - расширение, добавляющее в конфигурацию "Комплексная автоматизация", документ Путевой лист и печатные формы установленных образцов для легковых и грузовых авто, расчет и списание нормативного количества топлива, отчет "Реестр путевых листов" с отбором по автомобилю и по водителю (через настройки) Позволит контролировать расход топлива, потому что сразу будет виден сверхнормативный расход.

13200 руб.

27.06.2023    3702    10    1    

11

Загрузка и выгрузка в Excel Логистика, склад и ТМЦ Ценообразование, анализ цен Файловый обмен (TXT, XML, DBF), FTP Бухгалтер Пользователь Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Эволюция не стоит на месте - новая удобная версия функциональной обработки для Вашего бизнеса! Что же Вы получаете? Удобный и интуитивно понятный интерфейс с 3-мя этапами работы. 2 режима - автоматический и ручной. Чтение XLSX, XLSM, CSV, XML/YML форматов без офиса, на любом сервере! Визуальное связывание колонок файла и реквизитов простым перетаскиванием колонок. Создание или обновление номенклатуры с иерархией, характеристик, доп. реквизитов, упаковок, загрузка практически неограниченного количества картинок на одну номенклатуру (с возможностью загрузки в несколько потоков одновременно), с хранением в томах или в базе. Загрузка номенклатуры поставщиков или поиск по их данным номенклатуры. Загрузка доп. реквизитов в характеристики. Загрузка штрихкодов с генерацией новых. Создание элементов справочников и ПВХ "на лету" для выбранных реквизитов. (Обновление от 10.10.2024, версия 9.8 - 9.13)

15600 руб.

20.11.2015    155557    377    377    

511
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. mar_a 25 09.07.15 09:48 Сейчас в теме
Интересует несколько вещей:
1)терминал я так понял по драйверу только Сканкодовский и с прошивкой/драйвером от Скансити работать в принипе не будет?
2)терминал предположим с родной тайваньской прошивкой соответсвенно через DLL сканкода и скансити не работает, возможна ли настройка связи через другие DLL которые мне еще не встречались (если есть таковые буду рад позаимствовать).
2. Anyxwar 110 09.07.15 15:34 Сейчас в теме
1) можно переделать саму задачу на Скансити,редактор одинаков
2)DLL которые мне еще не встречались........................ все возможно,...........если есть описание к библиотеке.
3. Progress_B 09.07.18 09:22 Сейчас в теме
(2) Скажите, пжл, какой релиз УТ11 использовался?
настраиваю для УТ10 не получается, если использовать драйвер версии 6.0.3.0 - ругается
" Обращение к процедуре объекта как к функции (УстановитьПараметры)
Ответ = Объект.Драйвер.УстановитьПараметры(Объект.Параметры.Порт "
если использовать драйвер 6.0.8.0 - уже другая ошибка
" Поле объекта не обнаружено (ПараметрыПодключения)
Объект.Драйвер.ПараметрыПодключения.Вставить("ПоследнийИсточникЗагрузки", "Документ"); "
4. Anyxwar 110 09.07.18 13:35 Сейчас в теме
Оставьте свое сообщение