Формирование файла для загрузки базы товаров с ценами и штрихкодами в кассу Атол90Ф.
При работе с кассами возникла проблема занесения товаров в определенные виды аппаратов. Например, Атол90Ф. Выкрутились мы, написав обработку. Данная обработка загружает в себя файл формата Excel, с определенными колонками, дает возможность пользователю дополнить значения строк таблицы своими данными, и выгружает получившуюся таблицу в TXT файл определенной структуры, который мы потом грузим в Атол90Ф при помощи специальной утилиты.
!!!Обработка работает в любой конфигурации в режиме обычного приложения.!!!
Прикладываю так же, к публикации:
1. Специальную программу фирмы Атол — «Программирование таблиц» для загрузки файла в кассу. В одном архиве с обработкой.
2. Ссылку на руководство пользователя. В одном архиве с обработкой.
3. Видео с описанием работы с утилитой «Программирование таблиц»(не мое).
4. Просто полезную ссылку с описанием.
UPD от 22.06.2024!!!!!!!!
Доработал обработку по замечаниям в комментарии.
Для тех, кто уже скачал, выкладываю измененный код цикла в процедуре Процедура КнопкаВыполнитьНажатие(Кнопка)
Для каждого стр из Таблица цикл
Цена = Строка(Стр.Цена);
Цена = СтрЗаменить(Цена, «,», «.»);
Цена = СтрЗаменить(Цена, Символы.НПП, «»);
НомерСтрокиФайла = Строка(а);
НомерСтрокиФайла = СтрЗаменить(НомерСтрокиФайла, Символы.НПП, «»);
ШтрихкодФайла = Стр.Штрихкод;
Если СокрЛП(ШтрихкодФайла) = «» тогда
ШтрихкодФайла = «0»;
КонецЕсли;
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + «1» + Символы.Таб + «64» + Символы.Таб + Лев(Стр.Наименование,64));
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + «2» + Символы.Таб + «8» + Символы.Таб + ШтрихкодФайла);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + «3» + Символы.Таб + «8» + Символы.Таб + Цена);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + «4» + Символы.Таб + «1» + Символы.Таб + Стр.СистемаНалогообложения);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + «5» + Символы.Таб + «1» + Символы.Таб + Стр.НомерНалога);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + «6» + Символы.Таб + «1» + Символы.Таб + Стр.Секция);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + «7» + Символы.Таб + «1» + Символы.Таб + Стр.Флаги);
а = а + 1;
Конеццикла;
Здравствуйте, не совсем понятно зачем использовать ваш редактор на базе 1с, если можно руками добавлять в екселе?
Дело в том, что в АТОЛ90Ф можно добавить данные только через их специальную утилиту, например, загрузив файл данных. А этот файл данных может иметь расширение только TXT и должен иметь строго определенный формат, принцип формирования как у csv, через табуляцию. Был бы я программистом других языков, я б что-нибудь другое написал, а так, раз я 1С-программист, написал через 1С:)
А файл Excel Наверное тоже должен быть заполнен опрделенным образом?
Ага , на картинках уже увидел, что так
(3)
Ну да, сделал раньше универсальный, однако, клиенты пихали файлы с товарами совсем уж как придется(с группами товаров и тп), в итоге решил не извращаться.
1. Если Штрих код не задан, Программа «программирование таблиц» выдаст ошибку, нужно прописать условие, если нет ШК то 0.
2.Товары по порядковому номеру больше 999 так же не загружается, нужно удалить неразрывные пробелы
В остальном хорошо, будем использовать в работе. Спасибо!
(5)
Спс, за комментарии.
По ШК странно, специально наших кассовиков спрашивал, все ли норм, если ШК не задан, сказали что все ОК типа.
НПП да, поправлю.
В связи с выходом новой прошивки ваш обработка не грузит все необходимые поля и изменился формат файла:
1
1 1 128 ЦВЕТНИК МЕТАЛ.ПОЛИМЕР
1 2 8 4103000015244
1 3 8 1500.00
1 4 1 1
1 5 1 0
1 6 1 0
1 7 1 1
1 8 1 0
1 9 1 0
1 10 1 0
1 11 1 0
2 1 128 ПАМЯТНИК МЕТ.КРЕСТ МАЛЫЙ /ПОЛ.
2 2 8 4103000015251
2 3 8 1380.00
2 4 1 1
2 5 1 0
2 6 1 0
2 7 1 1
2 8 1 0
2 9 1 0
2 10 1 0
2 11 1 0