Формирование файла для загрузки в кассу Атол90Ф

Оборудование - ККМ

Формирование файла для загрузки базы товаров с ценами и штрихкодами в кассу Атол90Ф.

Формирование файла для загрузки базы товаров с ценами и штрихкодами в кассу Атол90Ф.

При работе с кассами возникла проблема занесения товаров в определенные виды аппаратов. Например, Атол90Ф. Выкрутились мы, написав обработку. Данная обработка загружает в себя файл формата Excel, с определенными колонками, дает возможность пользователю дополнить значения строк таблицы своими данными, и выгружает получившуюся таблицу в TXT файл определенной структуры, который мы потом грузим в Атол90Ф при помощи специальной утилиты.

!!!Обработка работает в любой конфигурации в режиме обычного приложения.!!!

Прикладываю так же, к публикации:

1. Специальную программу фирмы Атол - "Программирование таблиц" для загрузки файла в кассу. В одном архиве с обработкой.

2. Ссылку на руководство пользователя. В одном архиве с обработкой.

3. Видео с описанием работы с утилитой "Программирование таблиц"(не мое).

4. Просто полезную ссылку с описанием.

http://spb-kassa.ru

Видео работы с утилитой

UPD от 22.06.2017!!!!!!!!

Доработал обработку по замечаниям в комментарии.

Для тех, кто уже скачал, выкладываю измененный код цикла в процедуре Процедура КнопкаВыполнитьНажатие(Кнопка)

Для каждого стр из Таблица цикл
        
        Цена = Строка(Стр.Цена);
        Цена = СтрЗаменить(Цена, ",", ".");
        Цена = СтрЗаменить(Цена, Символы.НПП, "");
        НомерСтрокиФайла = Строка(а);
        НомерСтрокиФайла = СтрЗаменить(НомерСтрокиФайла, Символы.НПП, "");
        ШтрихкодФайла = Стр.Штрихкод;
        Если СокрЛП(ШтрихкодФайла) = "" тогда
            
            ШтрихкодФайла = "0";    
            
        КонецЕсли;
        
        Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "1" + Символы.Таб + "64" + Символы.Таб + Лев(Стр.Наименование,64));
        Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "2" + Символы.Таб + "8" + Символы.Таб + ШтрихкодФайла);
        Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "3" + Символы.Таб + "8" + Символы.Таб + Цена);
        Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "4" + Символы.Таб + "1" + Символы.Таб + Стр.СистемаНалогообложения);
        Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "5" + Символы.Таб + "1" + Символы.Таб + Стр.НомерНалога);
        Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "6" + Символы.Таб + "1" + Символы.Таб + Стр.Секция);
        Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "7" + Символы.Таб + "1" + Символы.Таб + Стр.Флаги);
        
        а = а + 1;
        
    Конеццикла;

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

Наименование Файл Версия Размер
Формирование файла для загрузки в кассу Атол90Ф:
.zip 22,45Mb
19.06.17
16
.zip 1.1. 22,45Mb 16 Скачать

См. также

Комментарии
1. Максим Радченко (coolseo) 27 20.06.17 02:30 Сейчас в теме
Здравствуйте, не совсем понятно зачем использовать ваш редактор на базе 1с, если можно руками добавлять в екселе?
2. Искандер D (iskan) 21 20.06.17 08:43 Сейчас в теме
Дело в том, что в АТОЛ90Ф можно добавить данные только через их специальную утилиту, например, загрузив файл данных. А этот файл данных может иметь расширение только TXT и должен иметь строго определенный формат, принцип формирования как у csv, через табуляцию. Был бы я программистом других языков, я б что-нибудь другое написал, а так, раз я 1С-программист, написал через 1С:)
3. Александр Б. (HameleonA) 108 20.06.17 15:08 Сейчас в теме
А файл Excel Наверное тоже должен быть заполнен опрделенным образом?
Ага , на картинках уже увидел, что так
4. Искандер D (iskan) 21 20.06.17 15:50 Сейчас в теме
(3)
Ну да, сделал раньше универсальный, однако, клиенты пихали файлы с товарами совсем уж как придется(с группами товаров и тп), в итоге решил не извращаться.
5. Александр Б. (HameleonA) 108 20.06.17 17:27 Сейчас в теме
1. Если Штрих код не задан, Программа "программирование таблиц" выдаст ошибку, нужно прописать условие, если нет ШК то 0.
2.Товары по порядковому номеру больше 999 так же не загружается, нужно удалить неразрывные пробелы

В остальном хорошо, будем использовать в работе. Спасибо!
6. Искандер D (iskan) 21 20.06.17 18:01 Сейчас в теме
(5)
Спс, за комментарии.
По ШК странно, специально наших кассовиков спрашивал, все ли норм, если ШК не задан, сказали что все ОК типа.
НПП да, поправлю.
Оставьте свое сообщение