Выгрузка запрета продаж алкоголя по датам из типовых 1С (УТ, Розница) во FRONTOL

21.05.24

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

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Расширение для Розница 2.3: .cfe 27,47Kb 1	1	1 850 руб. Купить	1 SM Скачать
Универсальная обработка для выгрузки запрета: .epf 7,85Kb 0	0	1 850 руб. Купить	1 SM Скачать
Расширение для УТ: .cfe 28,12Kb 1	1	1 850 руб. Купить	1 SM Скачать

Пришло время очередных запретов продажи алкоголя. И чтобы упростить себе жизнь, наконец-то разобрал механизм выгрузки запретов. И хотел бы поделиться с вами.

Рассмотрим базовые версии Розницы и УТ. Благо нужную нам функцию в модуле давненько шаловливые руки инженеров 1С по типовым конфигурации не ковыряли при обновлениях, что увеличивает диапазон совместимых релизов.

Итак, обладателям вскрытых базовых конф и тем, кто не хочет скачивать готовые заплатки, посвящается:

1. В общих модулях находим «ОфлайнОборудованиеАтолККМВызовСервера» и в нем функцию «ВыгружаемыеДанныеВККМ». В УТ и в Рознице они идентичны, что нам на руку.

Функция ВыгружаемыеДанныеВККМ (РасширеннаяВыгрузка, ЧастичнаяВыгрузка, ФорматОбмена, Товары, Налоги, ВыходныеПараметры) Экспорт
	
	#Если Не МобильноеПриложениеСервер Тогда
	Файл = Новый ТекстовыйДокумент();
	
	Файл.ДобавитьСтроку("##@@&&");
	Файл.ДобавитьСтроку("#");
	
	Разделитель = Разделитель();
	//////////Добавить//////////
МассивСтруктурКлассификаторов = Новый Массив;
	////////////////////
	
	Если РасширеннаяВыгрузка Тогда
		
		Если ЧастичнаяВыгрузка Тогда
			Файл.ДобавитьСтроку("$$$REPLACEQUANTITY");
		Иначе
			
			Файл.ДобавитьСтроку("$$$DELETEALLWARES");
			Файл.ДобавитьСтроку("$$$DELETEALLBARCODES");
			Файл.ДобавитьСтроку("$$$DELETEALLASPECTREMAINS");
			//////////Добавить//////////
			Файл.ДобавитьСтроку("$$$DELETEALLCLASSIFIERS");
			Файл.ДобавитьСтроку("$$$ADDCLASSIFIERS");
			Файл.ДобавитьСтроку("1000000000;;0;Алкогольная продукция;;");
			////////////////////
			Файл.ДобавитьСтроку("$$$ADDQUANTITY");
			
		КонецЕсли;
		
		Для Каждого ТекГруппа Из Товары.ГруппыТоваров Цикл
			
			ДанныеДляЗаполнения = Новый Структура;
			ДанныеДляЗаполнения.Вставить("Код", Формат(ТекГруппа.Код, "ЧН=0; ЧГ=0"));
			ДанныеДляЗаполнения.Вставить("Наименование", ИсходнаяСтрока(ТекГруппа.Наименование));
			ДанныеДляЗаполнения.Вставить("КодРодительскойГруппы", Формат(ТекГруппа.КодГруппы, "ЧН=0; ЧГ=0"));
			
			ДобавитьСтрокуВФайл(Файл, Разделитель, ДанныеДляЗаполнения, ФорматОбмена, Истина);
			
		КонецЦикла;
			
	Иначе
		
		Если ЧастичнаяВыгрузка Тогда
			Файл.ДобавитьСтроку("$$$REPLACEQUANTITY");
		Иначе
			Файл.ДобавитьСтроку("$$$DELETEALLWARES");
			Файл.ДобавитьСтроку("$$$DELETEALLBARCODES");
			Файл.ДобавитьСтроку("$$$DELETEALLASPECTREMAINS");
			//////////Добавить//////////
			Файл.ДобавитьСтроку("$$$DELETEALLCLASSIFIERS");
			Файл.ДобавитьСтроку("$$$ADDCLASSIFIERS");
			Файл.ДобавитьСтроку("1000000000;;0;Алкогольная продукция;;");
			////////////////////
			Файл.ДобавитьСтроку("$$$ADDQUANTITY");
		КонецЕсли;
		
	КонецЕсли;
	
	Для Каждого Товар Из Товары.Товары Цикл
		
		Параметры = Новый Структура;
		
		Параметры.Вставить("Разделитель", Разделитель);
		Параметры.Вставить("Уровень", "Номенклатура");
		Параметры.Вставить("РасширеннаяВыгрузка", РасширеннаяВыгрузка);
		Параметры.Вставить("ФорматОбмена", ФорматОбмена);
		Параметры.Вставить("Источник", Товар);
		
		Если ЗначениеЗаполнено(Товар.КодЕдиницыИзмерения) Тогда
			
			Для Каждого ЕИ Из Товары.ЕдиницыИзмерения Цикл
				
				Если ЕИ.Код = Товар.КодЕдиницыИзмерения Тогда
					Параметры.Вставить("БазоваяЕИ", ЕИ.Наименование);
					Прервать;
				КонецЕсли;
				
			КонецЦикла;
		Иначе
			Параметры.Вставить("БазоваяЕИ", "");
		КонецЕсли;
		//////////Добавить//////////
		Если Товар.ЭтоАлкоголь тогда
			СтруктураКлассификатора = Новый Структура("КодКлассификатора, ТипЭлемента, ИдентификаторЭлемента", "1000000000", "1", Товар.Код);
			МассивСтруктурКлассификаторов.Добавить(СтруктураКлассификатора);			
		КонецЕсли;
		////////////////////
		ДополнитьФайл(Файл, ВыходныеПараметры, Параметры);
		
	КонецЦикла;
	//////////Добавить//////////
	Если МассивСтруктурКлассификаторов.Количество()>0 тогда
		
		Файл.ДобавитьСтроку("$$$ADDCLASSIFIERLINKS");
		Для Каждого Классификатор Из МассивСтруктурКлассификаторов Цикл
			Строчка=Классификатор.КодКлассификатора+Разделитель
			+Классификатор.ТипЭлемента+Разделитель+
			Классификатор.ИдентификаторЭлемента+Разделитель;
			Файл.ДобавитьСтроку(Строчка);
		КонецЦикла;
	КонецЕсли;
	////////////////////
	Если (ФорматОбмена < 4 ИЛИ ФорматОбмена = 7 ИЛИ ФорматОбмена = 8) И НЕ ЧастичнаяВыгрузка Тогда
		СформироватьСтавкиНДС(Файл, Налоги);
	КонецЕсли;
	
	Возврат Файл;
	#КонецЕсли
	
КонецФункции

Данные правки нам позволят на стадии формирования файла к выгрузке создать классификатор «Алкогольная продукция» с номером 1000000000 и привязать всю алкашку к нему.

2. Создадим форму. В неё добавил табличное значение «ДатыЗапрета» и в ней колонку «Дата». Также кнопки «ВыгрузитьЗапреты» и «УдалитьВсеМаркетинговыеАкции»

&НаСервере
Функция ПолучитьПарамеры()
	
	Возврат Объект.КассаККМ.Параметры.Получить();
	
КонецФункции

&НаКлиенте
Процедура ВыгрузитьЗапреты(Команда)
	
	ПараметрыВыгрузки = ПолучитьПарамеры();
	
	Если ДатыЗапрета.Количество()>0 Тогда
			
		Файл = Новый ТекстовыйДокумент();
		Файл.ДобавитьСтроку("##@@&&");
		Файл.ДобавитьСтроку("#"); 
		Файл.ДобавитьСтроку("$$$DELETEMARKETINGACTIONSBYCODE");
        Файл.ДобавитьСтроку("2100000001;");
		Файл.ДобавитьСтроку("$$$ADDMARKETINGACTIONS");
		Файл.ДобавитьСтроку("2100000001;01.01.2024;01.01.2030;;;Ограничение продажи алкоголя;Ограничение продажи алкоголя;1;0;1;1;3");

		Файл.ДобавитьСтроку("$$$ADDMARKETINGEVENTS");
		Файл.ДобавитьСтроку("2100000001;2100000001;Ограничение продажи алкоголя;Ограничение продажи алкоголя;4;В данный момент продажа алкоголя запрещена!;;;1000000000;");
		
		Файл.ДобавитьСтроку("$$$ADDMARKETINGCONDITIONS");
		ПараметрыДат = ПолучитьСтрокиДаты();
        СтрокаДат= "2100000001"+";"+"24"+";"+ПараметрыДат.Дата1+";"+ПараметрыДат.Дата2+";"+ПараметрыДат.Конроль+";";	
	    Файл.ДобавитьСтроку(СтрокаДат);
		
		
		Результат = Истина;
		Попытка
			Файл.Записать(ПараметрыВыгрузки.БазаТоваров, КодировкаТекста.ANSI);
			Если Не ПустаяСтрока(ПараметрыВыгрузки.ФлагВыгрузки) Тогда
				Файл.Очистить();
				Файл.Записать(ПараметрыВыгрузки.ФлагВыгрузки, КодировкаТекста.ANSI);
			КонецЕсли;
		Исключение
			Сообщить(ОписаниеОшибки());
			Результат = Ложь;
		КонецПопытки;
		
		
		Если Результат Тогда
			Сообщить("Файл выгружен.");
		КонецЕсли; 
	Иначе
	    ПоказатьПредупреждение(,"Даты запрета не заполнены!");
	КонецЕсли
	
КонецПроцедуры

Функция ПолучитьСтрокиДаты()     

    ВременнаяТаблица = Новый ТаблицаЗначений;
    ВременнаяТаблица.Колонки.Добавить("Дата1");
    ВременнаяТаблица.Колонки.Добавить("Дата2");
    ВременнаяТаблица.Колонки.Добавить("Конроль");

    Для Каждого стр Из ДатыЗапрета Цикл
        
        НоваяСтрока = ВременнаяТаблица.Добавить();
        НоваяСтрока.Дата1 = стр.Дата;
        НоваяСтрока.Дата2 = стр.Дата;
        НоваяСтрока.Конроль = 0; 
		
	КонецЦикла;

 	ЗначениеДата1 = "";
    ЗначениеДата2 = "";
    ЗначениеКонтроля = "";
    КоличествоСтрок = ВременнаяТаблица.Количество();

    Для Каждого стр Из ВременнаяТаблица Цикл
        Если ЗначениеДата1 <> "" Тогда
            ЗначениеДата1 = ЗначениеДата1 + Символ(8226);
            ЗначениеДата2 = ЗначениеДата2 + Символ(8226);
            ЗначениеКонтроля = ЗначениеКонтроля + Символ(8226);
        КонецЕсли;

        ЗначениеДата1 = ЗначениеДата1 + Формат(стр.Дата1, "ДФ=dd.MM.yyyy");
        ЗначениеДата2 = ЗначениеДата2 + Формат(стр.Дата2, "ДФ=dd.MM.yyyy");
        ЗначениеКонтроля = ЗначениеКонтроля + стр.Конроль;
    КонецЦикла;

    ПараметрыДат = Новый Структура("Дата1, Дата2, Конроль", ЗначениеДата1, ЗначениеДата2, ЗначениеКонтроля);

    Возврат ПараметрыДат;
	
КонецФункции


&НаКлиенте
Процедура УдалитьВсеМаркетинговыеАкции(Команда)    
	
	ПараметрыВыгрузки = ПолучитьПарамеры();
	
	Файл = Новый ТекстовыйДокумент();
	
	Файл.ДобавитьСтроку("##@@&&");
	Файл.ДобавитьСтроку("#"); 
	
	Файл.ДобавитьСтроку("$$$DELETEALLMARKETINGACTIONS");  
	
	Результат = Истина;
	Попытка
		Файл.Записать(ПараметрыВыгрузки.БазаТоваров, КодировкаТекста.ANSI);
		Если Не ПустаяСтрока(ПараметрыВыгрузки.ФлагВыгрузки) Тогда
			Файл.Очистить();
			Файл.Записать(ПараметрыВыгрузки.ФлагВыгрузки, КодировкаТекста.ANSI);
		КонецЕсли;
	Исключение
		Сообщить(ОписаниеОшибки());
		Результат = Ложь;
	КонецПопытки;
	
	
	Если Результат Тогда
		Сообщить("Файл выгружен для очистки акций");
	КонецЕсли; 
КонецПроцедуры

Данный код создает маркетинговую акцию с мероприятием в ней «Ограничение продажи алкоголя» с кодом 2100000001. Условие которого использовать ранее созданный классификатор на указанные даты в таблице «ДатыЗапрета» на весь день.

Для ПРОФ версий УТ и Розница 2.3 подготовил расширение по отдельности с вызовом из «ОбменСПодключаемымОборудованием» на выбранную кассу обработки.

Для Базовых, увы, но необходимо снять с поддержки базы. И внести изменения вручную. Для удобства и сокращения времени можно скачать обработку, основанную из второй части.

Как это работает:

Установили код или расширение.
И для того, чтобы заполнить в кассе классификатор, необходимо выполнить «Полную выгрузку».
После можно просто выгружать изменения, и алкоголь вновь созданный также свяжется с классификатором.
Для создания запрета достаточно вызвать форму, добавить даты и выгрузить.
Также можно в любой момент удалить все акции при необходимости.

Совместимость практически с любым релизом УТ и Розницей 2.3. Есть подозрение, что и Розница 3 тоже, руки не дошли. Расширения могут ругнуться на более старые платформы из-за режима совместимости, но это решается автоматически при установке расширения через конфигуратор.

Проверено на следующих конфигурациях и релизах:

Розница, редакция 2.3, релизы 2.3.19.24, 2.3.18.13
Управление торговлей, редакция 11, релизы 11.5.17.74, 11.5.16.101, 11.5.15.96

Вступайте в нашу телеграмм-группу Инфостарт

УТ Розница Запрет Выгрузка Фронтол Frontol 6 Алкоголь

+6 –

См. также

ККТ-ОНЛАЙН 54-ФЗ: Обработка для работы онлайн касс

ККМ Кассовые операции Розничная торговля Системный администратор Программист 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия 1.6 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Универсальная обработка для обслуживания любых фискальных регистраторов (ККТ), в том числе Веб сервер АТОЛ. Работает в соответствии с 54-ФЗ. (ФФД 1.0, ФФД 1.05, ФФД 1.1, ФФД 1.2). Подключайте любую онлайн кассу к практически любой конфигурации на обычных формах. Нет необходимости обновлять 1С. Можно бесплатно скачать и протестировать. Может работать одновременно с несколькими онлайн-кассами, либо одной с разных рабочих мест. (через RDP, TCP\IP или веб-сервер) Позволяет разделить один чек сразу на несколько ККТ или на несколько систем налогообложения. Поддерживает разрешительный режим и маркировку. Поддерживает локальный модуль честного знака для офлайн проверки. Можно настроить собственный шаблонов чека. Можно использовать эквайринг там, где он не поддерживается. Работает на LINUX и Windows

6000 руб.

27.02.2017 855876 5574 9955

3057

Работа с ККТ по 54-ФЗ и разрешительным режимом

ККМ Кассовые операции Розничная торговля Системный администратор Программист 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Бухгалтерия государственного учреждения 1С:Бухгалтерия автономного учреждения Россия Платные (руб)

Обработка осуществляет обслуживание ККТ АТОЛ, Штрих, Вики Принт и Меркурий для конфигураций "УТ 10.3", "КА 1.1", "УПП 1.3", "Розница 1.0", "БП 2.0" и других отраслевых решений, построенных на основе указанных выше конфигурациях. Поддерживает возможность параллельно пробития чеков на одной ККМ несколькими пользователями. Поддерживает Веб-сервер Атол. Соответствует требованиям 54-ФЗ. Поддерживает ФФД 1.0, 1.05, 1.1 и 1.2. Разделяет чеки по нескольким СНО. Поддерживает механизмы подключения ККТ по TCP/IP, для работы через RDP или интернет. Поддержка маркировки и разрешительного режима. Поддержка пробития чеков с новыми ставками НДС 5% и НДС 7%.

7900 руб.

25.05.2015 356691 1539 3148

1130

Обмен между 1С:Розница и Frontol 6 по организациям (Розница - Фронтол)

ККМ Розничная торговля Системный администратор Программист 1С v8.3 Оперативный учет 1С:Розница 2 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Обмен между 1С:Розница и Frontol 6 при торговле от нескольких организаций, а также ряд других полезных функций. Данный модуль синхронизации незаменим для тех, кто ведёт учет по нескольким организациям в 1С:Розница, а на РМК (рабочем месте кассира) установлен Frontol или планируется его установка. Подходит для 1С:Розница 2.3 / 3.0, 1С:УНФ 3.0

7900 руб.

22.03.2019 91741 682 480

215

Сервер ККМ

ККМ Кассовые операции Розничная торговля Системный администратор Программист Пользователь 1С v8.3 1C:Бухгалтерия Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Платные (руб)

«Сервер ККМ» позволяет приложениям работать с фискальными регистраторами по локальной сети или интернет, организовать печать на одном ККМ с нескольких рабочих мест с поддержкой очереди печати. Поддерживаются ВСЕ ревизии требований фирмы 1С к разработке драйверов ККТ от 2.2 до 4.6. Поддерживаются требования к ККМ, действующие с 1 сентября 2025г.

5000 руб.

02.09.2016 144597 137 196

212

Пробитие чека ККМ с разных складов через РМК в 1С:УТ 11.5

Кассовые операции ККМ Пользователь 1С v8.3 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Россия Управленческий учет Платные (руб)

Расширение для 1С:Управление торговлей 11.5, которое позволяет пробивать чеки ККМ и списывать товар с разных складов. Склад списание товара можно указывать в табличной части рабочего места кассира (РМК).

7080 руб.

12.04.2023 12616 78 8

54-ФЗ: Обработки для подключения онлайн-касс к 1С 8 (поддержка маркировки, честный знак, разрешительный режим) + эмулятор

ККМ Кассовые операции Розничная торговля Системный администратор Программист 1С v8.3 1C:Бухгалтерия 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:Розница 3.0 Россия Платные (руб)

Обработки осуществляют обслуживание фискальных регистраторов, поддерживаемых драйвером "АТОЛ: Драйвер ККМ v.10.10", "ШТРИХ-М: Драйвер ККМ v 5.16", "ВИКИ: Драйвер CSI v 1.6", для конфигураций БП, УТ, КА, УПП, "Розница 3.0", соответствующих требованиям закона ФЗ-54 о применении контрольно-кассовой техники.Поддержка НДС 20%. Поддержка маркировки 488-ФЗ. Марки. Акциз. Честный знак. Разрешительный режим. Локальный модуль Честный Знак. Поддержка УСН НДС 5%, 7%, 20%. Требования к ККТ по приказу Федеральной налоговой службы от 26.03.2025 № ЕД-7-20/23, вступающие в силе с 01.09.25

5040 руб.

02.02.2017 288419 377 2398

567

Разбитие чека ККМ по группам товаров и пробитие их на разных кассах, подключенных к одному рабочему месту. Расширение для УТ 11.5, УТ 11.4, КА 2.5

Кассовые операции ККМ Пользователь 1С v8.3 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Платные (руб)

Расширение для 1С:Управление торговлей 11.5 и 11.4, которое позволяет из рабочего места кассира разбивать чек ККМ на несколько чеков и пробивать их на разных кассах подключенных к одному РМК. Можно пробивать разные группы товаров по разным организациям на разных кассовых аппаратах.

7080 руб.

22.08.2022 12888 41 17

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

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

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

6000 руб.

31.07.2017 180161 616 609

216

Подписаться на ответы Инфостарт бот

Свернуть все

Для отправки сообщения требуется регистрация/авторизация

Автор:

Виктор Ерусланов (ShuSU)

Рейтинг: 78

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 2111581

Создание 21.05.24 17:00

Обновление 21.05.24 17:00

Статистика:

Просмотры 1456

Загрузки 2

Рейтинг 6

Комментарии 0

Характеристики:

Код открыт Да

Рубрики ККМ

Кому Программист

Тип файла Внешняя обработка (ert,epf)

Платформа 1С v8.3

Конфигурация 1С:Розница 2 ,
1С:Управление торговлей 11

Операционная система Не имеет значения

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Абонемент ($m)