Работа 1С: 7.7 с ККТ АТОЛ ДТО10 (JSON задания)

03.07.18

Учетные задачи - Кассовые операции

Пробитие чеков через web сервер (JSON задания) ДТО10 АТОЛ.

Скачать файлы

Наименование Файл Версия Размер
Работа 1С: 7.7 с ККТ АТОЛ ДТО10 (JSON задания):
.ert 27,50Kb
57
.ert 27,50Kb 57 Скачать

Выкладываю свою реализацию пробития чеков через web сервер.

1) Формируем товарную позицию 
 

 Товы = СоздатьОбъект("ТаблицаЗначений");

    Товы.НоваяКолонка("Товар",,,,,20);
    Товы.НоваяКолонка("Остаток","Число",9,3);
    Товы.НоваяКолонка("Цена","Число",10,3);
    Товы.НоваяКолонка("Сумма","Число",10,2);
    Товы.НоваяКолонка("Серия");
    Товы.НоваяКолонка("Номер","Число",10); 
    Товы.НоваяКолонка("ПолнОст","Число",8,3);
    Товы.НоваяКолонка("СуммаСкидки","Число",8,2);
    Товы.НоваяКолонка("СкидкаСуммой","Число",8,2);// хэсед итд
    Товы.НоваяКолонка("Итого","Число",10,2);
    Товы.НоваяКолонка("СекцияВЧеке","Число",2,0);
    Товы.НоваяКолонка("ЭтоТовар","Число",1,0);
    Товы.НоваяКолонка("Наличными","Число",10,2);
    Товы.НоваяКолонка("Электронно","Число",10,2);


            Товы.НоваяСтрока();
            Товы.Товар=ЭлементСпрПродажи.Товар;
            Если Число(ОстатокПоСерии(ЭлементСпрПродажи))<Кол Тогда
                Товы.Остаток=Число(ОстатокПоСерии(ЭлементСпрПродажи));
            Иначе
                Товы.Остаток=Кол;
            КонецЕсли;   
            Если (Товы.Товар.ВидТовара=Перечисление.ВидыТоваров.Услуга) и (Товы.Товар.Производство=0) Тогда
                СПТ=создатьОбъект("Справочник.Товары");
                спт.ИспользоватьДату(РабочаяДата(),1);
                СПТ.НайтиЭлемент(Товар);
                Товы.Цена=СПТ.ЦенаУслуги;  
            Иначе
                Товы.Цена=ЭлементСпрПродажи.Цена;
            КонецЕсли;
            
            Товы.Сумма=ОКР(Товы.Остаток*Товы.Цена,2);
            Товы.Серия=ЭлементСпрПродажи.Серия;
            Товы.Номер=ЭлементСпрПродажи.Код;
            Товы.ПолнОст=Число(ОстатокПоСерии(ЭлементСпрПродажи)); 
            Товы.ЭтоТовар = глОпределитьЭтоТовар(Товы.Товар);   
            Товы.СекцияВЧеке = глОпределитьСекцию(Товы.Товар);

2) вызываем обработку для пробития чека         

глНовыйУникальныйИдентификаторККТ(Объект,1);

        Параметры = СоздатьОбъект("СписокЗначений"); 

        Параметры.ДобавитьЗначение(СокрЛП(глРМК.ГлобальноУникальныйИдентификаторККТ));

        Параметры.ДобавитьЗначение("Чек");
        Параметры.ДобавитьЗначение(СокрЛП(глРМК.ККТwebIP));
        Параметры.ДобавитьЗначение(СокрЛП(глРМК.ККТwebPort));
        Параметры.ДобавитьЗначение(СокрЛП(глПользователь.ДляПечатиВЧеке));
        Параметры.ДобавитьЗначение(СокрЛП(глПользователь.ИНН));
         Параметры.ДобавитьЗначение(Товы);
         Параметры.ДобавитьЗначение(ПолученнаяСумма);
         Параметры.ДобавитьЗначение(СокрЛП(ТелефонПочтаПокупателя));
         Параметры.ДобавитьЗначение(ТипОперации);
         Параметры.ДобавитьЗначение(ОпределитьПараметрыКомиссионногоТовара(Товы));

        ОткрытьФормуМодально("Отчет",Параметры,КаталогИБ() + "\ExtForms\JSON ATOL.ert");
        
        Возврат Параметры;


 

- уникальные идентификатор создаю через             

глИнфо = СоздатьОбъект("AddIn.V7SysInfo");

глГлобальноУникальныйИдентификаторККТ =  глИнфо.СоздатьGUID();

- разбор JSON ответов реализовал через "MSScriptControl.ScriptControl"(пример где- то нашел уже не помню, не мое)

- post и get запросы через "WinHttp.WinHttpRequest.5.1".

 

В обработке пример использования как с ККТ через web сервер(ДТО10), так и через FprnM1C.dll(ДТО8).

Тестировалось и успешно работает с АТОЛ11Ф более месяца. 1с 7.7 - Релиз платформы 7.70.027.

https://money.yandex.ru/to/410012172123885

1С 7.7 ДТО8 ДТО10 JSON ККТ онлайн.

См. также

SALE! 20%

Автоматический заказ поставщику в 1С: загрузка прайсов и анализ цен поставщиков для УТ 10.3, УТ 11, КА2, УНФ, УПП, ERP, Розница 2

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

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

28500 22800 руб.

21.04.2017    90173    105    39    

190

АИС: Онлайн-кассы для 1С 7.7 (с поддержкой маркировки ЕГАИС, ТАБАКА, ОБУВИ, ЛЕКАРСТВ, ШИН, ОДЕЖДЫ, МОЛОКА, ВОДЫ и пр.) и Обмен с 1С 7.7 "Честный ЗНАК" (ГИСМТ, ЦРПТ, ЭДО)

Оптовая торговля Розничная торговля ККМ ЭДО и ОФД Обмен с ГосИС Оперативный учет 7.7 Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Россия Платные (руб)

Подключение фискального регистратора к 1С 7.7 в режиме онлайн-кассы (в соответствии с 54-ФЗ). Поддержка крайних версий драйверов ККТ: ДТО 10 и ДТО 8 для Атол, 4.15, 5.16 для Штрих-М. Поддержка протоколов ФФД 1.0, 1.05, 1.1 и 1.2, развитые настройки для применения частичных оплат и авансов в оптовой и розничной торговле. Поддержка чеков коррекции всех версий. Поддержка розничной продажи маркированной продукции (ЕГАИС, табак, обувь, лекарства, шины, одежда, белье, парфюмерия, молочная продукция, вода и пр.). Вывод электронного чека (на е-майл, телефон) по требованию покупателя, поддерживаются комбинированные типы оплаты, режим эмуляции печати чека на ФР. **** Полный цикл работы из 1С 7.7 с маркировкой "Честный ЗНАК" (ГИСМТ, ЦРПТ) из 1С 7.7. ЭДО (табак, обувь, шины, одежда, молочная продукция, вода и прочие группы товаров) для розницы и опта (приемка и оптовая отгрузка маркированной продукции). Поддерживается как объемно-сортовой учет (ОСУ) так и поштучный (поэкземплярный) учет.

2000 руб.

28.03.2017    457811    4258    3461    

2428

Управление ККМ Атол и Штрих нового поколения (он-лайн ККТ под 54-ФЗ) с помощью текстового ini.файла для 1с77, 1с8Х любых конфигураций

Кассовые операции ККМ Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Программа для управления ККМ Атол и Штрих нового поколения (он-лайн ККТ под 54-ФЗ) с помощью текстового файла (ini файла) с изменениями  включена 1 лицензия  Для любых программ, которые умеют работать с текстовыми файлами. Внутри комплекта есть готовые к использованию обработки

4800 руб.

31.07.2017    164838    558    601    

196

АИС: Обмен с ФГИС Меркурий (Ветис.API) для всех* конфигураций 1С 7.7

Оптовая торговля Производство готовой продукции (работ, услуг) Розничная торговля Обмен с ГосИС Оперативный учет 7.7 Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 1С:Упрощенное налогообложение 7.7 Сельское хозяйство и рыболовство Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Пищевая промышленность Россия Бухгалтерский учет Управленческий учет Платные (руб)

Полностью автоматизированный обмен между конфигурациями 1С 7.7 и ФГИС Меркурий через Ветис.API для всех видов деятельности (Опт, Розница, Производство). Для организации обмена с ФГИС Меркурий требуется минимальная доработка конфигураций (поддерживается "из коробки" 1С: "Торговля и склад ред. 9.2", 1С: "Комплексная ред. 4.5", 1С: "Бухгалтерия 7.7", 1С: "УСН 7.7", 1С Предприниматель, другие конфигурации по заказу, включая нетиповые и самописные). Модуль разработан таким образом, чтобы минимизировать затраты по внедрению в произвольную конфигурацию на базе 1С 7.7. Вы можете БЕСПЛАТНО скачать демо-версию без ограничения по функционалу и опробовать решение в полном объеме перед покупкой. В данном программном продукте реализованы все технические требования Россельхознадзора по обмену в формате 2.0 и 2.1. Решение прошло опытную эксплуатацию и тестирование на крупных объектах всех видов деятельности: Производство, Опт, Розница.

10000 руб.

21.11.2018    52703    139    105    

67

АИС: Обмен с ЕГАИС 4.0 для конфигураций 1С 7.7

Оптовая торговля Розничная торговля Обмен с ГосИС Оперативный учет 7.7 Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 1С:Комплексная 7.7 1С:Торговля и склад 7.7 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Полностью автоматизированный обмен между конфигурациями 1С 7.7 и универсальным транспортным модулем (УТМ) ЕГАИС для всех видов деятельности (Опт, Розница, Производство, Импорт). Для организации обмена с ЕГАИС требуется минимальная доработка конфигураций (поддерживается 1С: "Торговля и склад ред. 9.2", 1С: "Бухгалтерия 7.7", 1С: "УСН 7.7", другие конфигурации по заказу, включая нетиповые). В данном программном продукте реализованы все технические требования ФСРАР по обмену с УТМ ЕГАИС (включая отправку чеков розничных продаж в ЕГАИС - требование с 01.07.16). Поддержана фиксация чеков ЕГАИС на онлайн-кассах (в соответствии с 54-ФЗ). Поддержана версия 3 документооборота и поштучный (помарочный) учет. Поддержан эксперимент Татарстана по маркировке нефасованного (кегового) пива.

3000 руб.

13.12.2015    134699    159    400    

146

Обмен с ЕГАИС из 1С V7.7

Оптовая торговля Розничная торговля Обмен с ГосИС Оперативный учет 7.7 1С:Торговля и склад 7.7 Бухгалтерский учет Акцизы Платные (руб)

Дорогие друзья! Предлагаю Вашему вниманию обработку, предназначенную для обмена данными из Вашей учетной системы с ЕГАИС, через универсальный транспортный модуль (УТМ). В обработке реализован весь функционал обмена: - загрузка справочных данных по контрагентам, производителям, импортерам алкогольной продукции; - загрузка справочных данных по номенклатуре алкогольной продукции; - загрузка остатков; - помощник сопоставления справочных данных и запись их в базу данных; - загрузка приходных ТТН и справок Б от поставщиков, отправка по ним актов всех типов, создание по ним приходных документов; - выгрузка расходных ТТН покупателям; - управление Марками и ведение Регистра 3; Обработку возможно использовать автономно, не внося изменений в Вашу Учетную систему. Код открыт.

6000 руб.

13.11.2015    121210    169    2528    

232

Обработка обслуживания ККТ АТОЛ, платформа 5.0 с драйверами v10 для 1С:Торговля и Склад 9.2 (МАРКИРОВКА, ФФД 1.2, эквайринг Сбер)

ККМ Эквайринг/ридер магнитных карт Оперативный учет 7.7 1С:Торговля и склад 7.7 Оптовая торговля, дистрибуция, логистика Россия Управленческий учет Платные (руб)

Данная обработка предназначена для работы с ККТ АТОЛ на платформе 5.0 с драйверами АТОЛ версии 10.7.0.0 и выше для 1С:Торговля и Склад 9.2 (в соответствии с 54-ФЗ). Проста в установке и настройке. Реализован учет маркируемой продукции по ФФД 1.2. В поставку включена поддержка эквайринга на уровне драйверов (в данный момент – Сбер), реализован учет частичных оплат, добавлены эмуляторы кассы и эквайрингового терминала, добавлена обработка генерации тестовых кодов маркировки.

2000 руб.

20.08.2020    26288    53    75    

52

Конфигурация "Информационный киоск". Обработки выгрузки товаров для ТиС 9.2, УТ 10.3, УТ 11 (обмен данными с любой конфигурацией 1С 7.7, 8.х)

Оптовая торговля Розничная торговля Обмен между базами 1C Сканер штрих-кода Платформа 1С v7.7 Платформа 1С v8.3 Конфигурации 1cv8 Конфигурации 1cv7 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Управленческий учет Платные (руб)

Конфигурация предназначена для организации offline доступа клиента (покупателя) к информации о товарах, услугах или дисконтных картах посредством сканирования штрих-кода. Основная цель – мгновенно предоставить наиболее актуальную информацию о цене, остатках, наименовании товара (услуги) или накоплениях, держателе, состоянии дисконтной карты.

1800 руб.

21.12.2014    59233    8    21    

20
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. SergioVB 10.09.18 12:50 Сейчас в теме
Атол обещает прекратить поддержку ДТО8 в 2019 году. Следовательно ФФД 1.1 скорее всего в FprnM1C.dll реализована не будет. И кто сидит на 7.7 будет использовать что-то аналогичное. У самого есть такие. Надо будет вникать.
2. rasta.ayaks 5 14.09.18 07:21 Сейчас в теме
Единственный минус в том, что не смог запустить на XP. Нужна система Win7 64 минимум и то надо мудрить с драйверами чтобы нормально встали.
3. victuan 4232 16.07.19 14:11 Сейчас в теме
Готовое решение с поддержкой ДТО8 и ДТО10 по ссылке http://expert.chistov.pro/public/603118/
И на ХР работает.
4. user1421566 07.07.20 16:37 Сейчас в теме
Доброго дня!
При открытии обработки и синтаксическом контроле в конфигураторе показывает ошибки.
Как я понял она должна быть интегрирована с конфигурацией объекты которой указаны на картинке, плюс отсутствуют глобальные переменные и процедуры.
Вопрос к автору - а не могли бы вы выложить обрезанный 1cv7.md с необходимыми объектами и процедурами с описанием переменных или описать их тип внутри топика обсуждения?
7. rasta.ayaks 5 08.07.20 22:40 Сейчас в теме
(4)
Если есть немного опыта в программировании 1с7, то структуру справочников можно воссоздать по тексту кода.
Пост не предлагает готовое решение, тут примерная инструкция.
Этот вариант был написан на скорую руку, как временное решение, МД нет, перешли на самописную 1с8 больше года назад.

Перем глРМК Экспорт;

Если ЗагрузитьВнешнююКомпоненту("V7PLUS.DLL") <> 0 Тогда
Попытка
глИнфо = СоздатьОбъект("AddIn.V7SysInfo");
исключение
Предупреждение("Ошибка при создании объекта AddIn.V7SysInfo");
конецпопытки;
Иначе
Предупреждение("Ошибка загрузки внешней компоненты V7PLUS.DLL ККТ");
КонецЕсли;


Процедура глЗафиксироватьВыполнениеЗадания(УникальныйИдентификаторККТ) Экспорт

спр = СоздатьОбъект("Справочник.СписокЗаданийККТ");
Если спр.НайтиПоНаименованию(УникальныйИдентификаторККТ)=0 Тогда
спр.Новый();
спр.Наименование = УникальныйИдентификаторККТ;
спр.РМК = глРМК;
спр.Записать();;
КонецЕсли;

спр.ДатаВыполнения = ТекущаяДата();

пЧас = "";
пМин="";
пСек="";
ТекущееВремя(пЧас,пМин,пСек);

спр.ВремяВыполнения = СокрЛП(пЧас)+":"+СокрЛП(пМин)+":"+СокрЛП(пСек);

спр.Записать();

КонецПроцедуры

Функция глНовыйУникальныйИдентификаторККТ(Объект="", ЗаписатьВКОнстанту=1) Экспорт


Если ЗаписатьВКОнстанту=1 Тогда
//глГлобальноУникальныйИдентификаторККТ = глИнфо.СоздатьGUID();
ПглГлобальноУникальныйИдентификаторККТ = глИнфо.СоздатьGUID();
спрРМК = СоздатьОбъект("Справочник.РМК");
спрРМК.НайтиЭлемент(глРМК);
спрРМК.ГлобальноУникальныйИдентификаторККТ = ПглГлобальноУникальныйИдентификаторККТ;
спрРМК.Записать();
глРМК = спрРМК.ТекущийЭлемент();
Иначе
ПглГлобальноУникальныйИдентификаторККТ = глИнфо.СоздатьGUID();
КонецЕсли;

спр = СоздатьОбъект("Справочник.СписокЗаданийККТ");
спр.Новый();
спр.Наименование = ПглГлобальноУникальныйИдентификаторККТ;
спр.Объект = Объект;
спр.РМК = глРМК;


спр.Дата = ТекущаяДата();

пЧас = "";
пМин="";
пСек="";
ТекущееВремя(пЧас,пМин,пСек);

спр.Время = СокрЛП(пЧас)+":"+СокрЛП(пМин)+":"+СокрЛП(пСек);
спр.Записать();

Если ЗаписатьВКОнстанту=0 Тогда

Возврат ПглГлобальноУникальныйИдентификаторККТ;

КонецЕсли;


КонецФункции
user1421566; +1 Ответить
5. rin4021 08.07.20 18:46 Сейчас в теме
Вопрос возник по отсутствию только одной процедуры: "глЗафиксироватьВыполнениеЗадания". Ожидаю её содержимое в описании, в ответах или в обновлении обработки.
6. rasta.ayaks 5 08.07.20 22:24 Сейчас в теме
(5)
Процедура глЗафиксироватьВыполнениеЗадания(УникальныйИдентификаторККТ) Экспорт

спр = СоздатьОбъект("Справочник.СписокЗаданийККТ");
Если спр.НайтиПоНаименованию(УникальныйИдентификаторККТ)=0 Тогда
спр.Новый();
спр.Наименование = УникальныйИдентификаторККТ;
спр.РМК = глРМК;
спр.Записать();;
КонецЕсли;

спр.ДатаВыполнения = ТекущаяДата();

пЧас = "";
пМин="";
пСек="";
ТекущееВремя(пЧас,пМин,пСек);

спр.ВремяВыполнения = СокрЛП(пЧас)+":"+СокрЛП(пМин)+":"+СокрЛП(пСек);

спр.Записать();

КонецПроцедуры
user1421566; +1 Ответить
8. user1421566 09.07.20 09:24 Сейчас в теме
(6) Огромное спасибо за Ваш труд!
Оставьте свое сообщение