Надо подключить это чудо к программе на VFP.
Должны же быть готовые DLL ки и описание работы с этим чудом?
Навскидку не нашел. Выкладывайте у кого что есть.
Раньше в программе работал фискальник от ZEBRA, но он был COM портовый и там была DLL с описанием.
А теперь вот эта..
Спасибо.

Ну, соответственно, АТОЛовский драйвер ККМ надо ставить. Он по COM-технологии. Описалово есть в поставке драйвера.

вопрос не по теме.
Этот АТОЛ -30Ф соответствует тому, что начнется с июля?
Тут вчера ошарашили))) Что касса должна будет он лайн, в инет передавать...
МАРАЗМ крепчает!

Читаю описание. В нем много написано, в этом и беда.
Написано нажмите то-то будет то. А если не будет?
В программе (драйвере) 18 закладок с кнопками, буквами и цифрами.

Maestro
Читаю описание. В нем много написано, в этом и беда.
Написано нажмите то-то будет то. А если не будет?
В программе (драйвере) 18 закладок с кнопками, буквами и цифрами.

Из всех этих закладок я использую две-три. Регистры, что б текущее состояние посмотреть. И ФП/ЭКЛЗ/ЭЖ, когда надо отчеты за предыдущие смены распечатать.

Режим "5 - Доступ к ФП" трогать нельзя. И вообще всё, что связано с ФП трогать нельзя. Одна неверная попытка ввода пароля налоговой инспекции блокирует эту железку нахрен.

И да. У меня 17 закладок в версии 6.20.1.0

pasha_usue
Одна неверная попытка ввода пароля налоговой инспекции блокирует эту железку нахрен.

Что-то совсем уж жестоко. Право на хотя бы одну опечатку все-таки должно быть

spinz

pasha_usue
Одна неверная попытка ввода пароля налоговой инспекции блокирует эту железку нахрен.

Что-то совсем уж жестоко. Право на хотя бы одну опечатку все-таки должно быть

Я не понял, почему так, но если железка переводится в режим фискальной памяти, она начинает ждать правильный пароль. И не реагирует больше ни на что. По питанию перезагружали, бесполезно. Конкретно проблема была с FPrint-55k. Обслуживающая организация по TeamViewer тупо пробила пароль налоговика и пожурила в телефонную трубку. Пароль я сохранил, но в память больше не лез.

А, и да. Попыток ввода пароля неограниченно. Так что право на опечатку есть (;Ж



Исправлено 1 раз(а). Последнее : pasha_usue, 20.01.17 10:27

А, я чота подумал, что неверный пароль - и железка окончательно и безвозвратно превращается в кирпич

Аспид
Этот АТОЛ -30Ф соответствует тому, что начнется с июля?

Да

pasha_usue
У меня 17 закладок в версии 6.20.1.0

Версию бы поменять на 8.12



Исправлено 1 раз(а). Последнее : Василий, 21.01.17 23:23

Нашел старые модули, которые работали с Зеброй.
Там я создавал класс CREATEOBJECT('AddIn.DrvFr')
И далее шуровал уже с ним. Было описание всех его методов и свойств.
И, вроде бы, был образец на языке 1С, который я трансформировал под фокс. Сам бы я вряд ли придумал такой бред
И эта кухня проработала до сих пор не меняясь.

Может у кого есть что-то подобное или понимание куда копать.

В руководстве программиста написано, что нужна библиотека fptr.dll



Исправлено 1 раз(а). Последнее : Maestro, 23.01.17 03:33

Начал изучать директории и обнаружил пример работы на VFP6 !
Ребятам из ATOL - респект!

Выкладывай пример, Маэстро!

Примеры Атола на Фоксе - просто отдельные модули и создание класса. Класс создается. Модули работают.
По прежнему нет целостности картины.
Модули там не все и их надо запускать в каком-то порядке, чтобы получить результат.
Сама идея как писать модули и стучаться к кассе и получать от нее действия понятна.
Не понятно какие надо получать действия. Просто переименовать старые вызовы не полилось.
Новые другие, и нет многих и есть много лишних.

Вот что нашел. Может надо кому. Завтра попробую воткнуть в фокс.
***********************
Это 1С 7.7 печатает
Процедура Demo()
// занимаем порт
ECR.DeviceEnabled = 1;
Если ECR.ResultCode <> 0 тогда
Возврат;
КонецЕсли;

// получаем состояние ККМ
Если ECR.GetStatus() <> 0 тогда
Возврат;
КонецЕсли;

// проверяем на всякий случай ККМ на фискализированность
Если ECR.Fiscal = 1 тогда
Если Вопрос("ККМ фискализирована! Вы действительно хотите продолжить?", 4) = 7 тогда
Возврат;
КонецЕсли;
КонецЕсли;

// если есть открытый чек, то отменяем его
Если ECR.CheckState <> 0 тогда
Если ECR.CancelCheck() <> 0 тогда
Возврат;
КонецЕсли;
КонецЕсли;

// если смена открыта снимаем Z-отчет
Если ECR.SessionOpened = 1 тогда
// устанавливаем пароль системного администратора ККМ
ECR.Password = "30";
// входим в режим отчетов с гашением
ECR.Mode = 3;
Если ECR.SetMode() <> 0 тогда
Возврат;
КонецЕсли;
// снимаем отчет
ECR.ReportType = 1;
Если ECR.Report() <> 0 тогда
Возврат;
КонецЕсли;
КонецЕсли;

// входим в режим регистрации
// устанавливаем пароль кассира
ECR.Password = "1";
// входим в режим регистрации
ECR.Mode = 1;
Если ECR.SetMode() <> 0 тогда
Возврат;
КонецЕсли;

// продажа без сдачи
// регистрация продажи
ECR.Name = "Молоко";
ECR.Price = 10.45;
ECR.Quantity = 1;
ECR.Department = 2;
Если ECR.Registration() <> 0 тогда
Возврат;
КонецЕсли;
// скидка суммой на предыдущую позицию
ECR.Percents = 10;
ECR.Destination = 1;
Если ECR.PercentsDiscount() <> 0 тогда
Возврат;
КонецЕсли;
// регистрация продажи
ECR.Name = "Фанта";
ECR.Price = 25;
ECR.Quantity = 5;
ECR.Department = 1;
Если ECR.Registration() <> 0 тогда
Возврат;
КонецЕсли;
// скидка суммой на весь чек
ECR.Summ = 10.4;
ECR.Destination = 0;
Если ECR.SummDiscount() <> 0 тогда
Возврат;
КонецЕсли;
// закрытие чека наличными без ввода полученной от клиента суммы
ECR.TypeClose = 0;
Если ECR.CloseCheck() <> 0 тогда
Возврат;
КонецЕсли;

// продажа со сдачей
// регистрация продажи
ECR.Name = "Молоко";
ECR.Price = 10.45;
ECR.Quantity = 1;
ECR.Department = 2;
Если ECR.Registration() <> 0 тогда
Возврат;
КонецЕсли;
// регистрация продажи
ECR.Name = "Пепси-кола";
ECR.Price = 25;
ECR.Quantity = 5;
ECR.Department = 1;
Если ECR.Registration() <> 0 тогда
Возврат;
КонецЕсли;
// сторно предыдущей регистрации
Если ECR.Storno() <> 0 тогда
Возврат;
КонецЕсли;
// регистрация продажи
ECR.Name = "Фанта";
ECR.Price = 25;
ECR.Quantity = 5;
ECR.Department = 1;
Если ECR.Registration() <> 0 тогда
Возврат;
КонецЕсли;
// скидка суммой на весь чек
ECR.Summ = 50;
ECR.Destination = 0;
Если ECR.SummDiscount() <> 0 тогда
Возврат;
КонецЕсли;
// закрытие чека наличными с вводом полученной от клиента суммы
ECR.Summ = 100;
ECR.TypeClose = 0;
Если ECR.Delivery() <> 0 тогда
Возврат;
КонецЕсли;

// аннулирование
// регистрация аннулирования
ECR.Name = "Dirol";
ECR.Price = 7;
ECR.Quantity = 1;
Если ECR.Annulate() <> 0 тогда
Возврат;
КонецЕсли;
// регистрация аннулирования
ECR.Name = "Orbit";
ECR.Price = 8;
ECR.Quantity = 2;
Если ECR.Annulate() <> 0 тогда
Возврат;
КонецЕсли;
// закрытие чека
ECR.TypeClose = 0;
Если ECR.CloseCheck() <> 0 тогда
Возврат;
КонецЕсли;

// Возврат;
// регистрация Возврат;а
ECR.Name = "Молоко";
ECR.Price = 10.45;
ECR.Quantity = 1;
Если ECR.Return() <> 0 тогда
Возврат;
КонецЕсли;
// регистрация Возврат;а
ECR.Name = "Колбаса";
ECR.Price = 99.99;
ECR.Quantity = 1.235;
Если ECR.Return() <> 0 тогда
Возврат;
КонецЕсли;
// скидка суммой на весь чек
ECR.Summ = 50;
ECR.Destination = 0;
Если ECR.SummDiscount() <> 0 тогда
Возврат;
КонецЕсли;
// закрытие чека
ECR.TypeClose = 0;
Если ECR.CloseCheck() <> 0 тогда
Возврат;
КонецЕсли;

// внесение наличности
ECR.Summ = 400.5;
Если ECR.CashIncome() <> 0 тогда
Возврат;
КонецЕсли;

// выплата наличности
ECR.Summ = 121.34;
Если ECR.CashOutcome() <> 0 тогда
Возврат;
КонецЕсли;

// X - отчет
// устанавливаем пароль администратора ККМ
ECR.Password = "29";
// входим в режим отчетов без гашения
ECR.Mode = 2;
Если ECR.SetMode() <> 0 тогда
Возврат;
КонецЕсли;
// снимаем отчет
ECR.ReportType = 2;
Если ECR.Report() <> 0 тогда
Возврат;
КонецЕсли;

// Z - отчет
// устанавливаем пароль системного администратора ККМ
ECR.Password = "30";
// входим в режим отчетов с гашением
ECR.Mode = 3;
Если ECR.SetMode() <> 0 тогда
Возврат;
КонецЕсли;
// снимаем отчет
ECR.ReportType = 1;
Если ECR.Report() <> 0 тогда
Возврат;
КонецЕсли;

// выходим в режим выбора, чтобы кто-то под введенными паролями не сделал что нибуть нехорошее
Если ECR.ResetMode() <> 0 тогда
Возврат;
КонецЕсли;

// освобождаем порт
ECR.DeviceEnabled = 0;
Если ECR.ResultCode <> 0 тогда
Возврат;
КонецЕсли;

Предупреждение("Все операции успешно выполнены.");
КонецПроцедуры

Процедура НастройкаСвойств()
ECR.ShowProperties();
КонецПроцедуры



Процедура Старт()
Форма.кнСтарт.Доступность(0);
Форма.кнНастройкаСвойств.Доступность(0);

Demo();
Если ECR.ResultCode <> 0 тогда
Предупреждение("Ошибка ККМ: " + ECR.ResultDescription + "!");
КонецЕсли;

Форма.кнСтарт.Доступность(1);
Форма.кнНастройкаСвойств.Доступность(1);
КонецПроцедуры

Там достаточно понятная и хорошо разжеванная инструкция. Но можно ли все это тестировать и отлаживать без самого ККМ? Допустим, я как разработчик хочу приобрести себе АТОЛ 30Ф или Атол 55Ф для написания к нему программного интерфейса - нужно ли иметь для этого ИП или ООО ?

Тот же видимо пример но уже на VFP

Вот здесь можно скачать описание по работе с драйвером АТОЛ v.8
www.dropbox.com

Кто нибудь уже подготовил сопряжение своего ПО с ККМ по новому закону?
Предлагаю обсуждать в этой ветке

Даже не вникая в детали - стиль кода это форменное г*но, т.к. ~20% команд это RETURN-ы

И очень мне интересно, кто же "освободит порт" если до строки ECR.DeviceEnabled = .F. есть шанс дойти только если не произойдёт ни единой "ошибки" Или сей замечательный девайс отрубается от управляющего софта при возникновении ЛЮБОЙ нештатной ситуации

Saratoga
Вот здесь можно скачать описание по работе с драйвером АТОЛ v.8

Не самая актуальная версия.
В конце февраля должна появится очередная версия 8 версии драйвера.