Формирование файла для загрузки базы товаров с ценами и штрихкодами в кассу Атол90Ф.
При работе с кассами возникла проблема занесения товаров в определенные виды аппаратов. Например, Атол90Ф. Выкрутились мы, написав обработку. Данная обработка загружает в себя файл формата Excel, с определенными колонками, дает возможность пользователю дополнить значения строк таблицы своими данными, и выгружает получившуюся таблицу в TXT файл определенной структуры, который мы потом грузим в Атол90Ф при помощи специальной утилиты.
!!!Обработка работает в любой конфигурации в режиме обычного приложения.!!!
Прикладываю так же, к публикации:
1. Специальную программу фирмы Атол - "Программирование таблиц" для загрузки файла в кассу. В одном архиве с обработкой.
2. Ссылку на руководство пользователя. В одном архиве с обработкой.
3. Видео с описанием работы с утилитой "Программирование таблиц"(не мое).
4. Просто полезную ссылку с описанием.
UPD от 22.06.2017!!!!!!!!
Доработал обработку по замечаниям в комментарии.
Для тех, кто уже скачал, выкладываю измененный код цикла в процедуре Процедура КнопкаВыполнитьНажатие(Кнопка)
Для каждого стр из Таблица цикл
Цена = Строка(Стр.Цена);
Цена = СтрЗаменить(Цена, ",", ".");
Цена = СтрЗаменить(Цена, Символы.НПП, "");
НомерСтрокиФайла = Строка(а);
НомерСтрокиФайла = СтрЗаменить(НомерСтрокиФайла, Символы.НПП, "");
ШтрихкодФайла = Стр.Штрихкод;
Если СокрЛП(ШтрихкодФайла) = "" тогда
ШтрихкодФайла = "0";
КонецЕсли;
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "1" + Символы.Таб + "64" + Символы.Таб + Лев(Стр.Наименование,64));
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "2" + Символы.Таб + "8" + Символы.Таб + ШтрихкодФайла);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "3" + Символы.Таб + "8" + Символы.Таб + Цена);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "4" + Символы.Таб + "1" + Символы.Таб + Стр.СистемаНалогообложения);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "5" + Символы.Таб + "1" + Символы.Таб + Стр.НомерНалога);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "6" + Символы.Таб + "1" + Символы.Таб + Стр.Секция);
Текст.ДобавитьСтроку(НомерСтрокиФайла + Символы.Таб + "7" + Символы.Таб + "1" + Символы.Таб + Стр.Флаги);
а = а + 1;
Конеццикла;
Вступайте в нашу телеграмм-группу Инфостарт
