Запись / хранение слипчеков банковского терминала в базе 1С: Розница

13.03.23

Интеграция - Эквайринг/ридер магнитных карт

Описание механизма записи/хранения слипчеков интегрированных банковских терминалов в базу 1С: Розница, работоспособность проверена на версии 2.2.9.37 и выше.

Файлы

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

Наименование	Скачано	Купить файл	По подписке PRO
ИсторияСлипЧеки.zip .zip 14,86Kb 13	13	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

Необходимость в записи/хранении слипчеков интегрированных банковских терминалов была всегда, но пока в работе было только оборудование от Сбербанка, в котором есть 3-дневная история полного и краткого отчета (а когда-то было и более), вопрос доработки откладывался на потом. Но недавно пришлось запустить оборудование от Альфабанка (Aisino V37), в ПО которого нет отчетов как за текущий день, так и за прошлые даты. Кстати в БПО от 1С также нет эквайринговых операций отчетов без закрытия смены (сверки итогов). Первое, что я реализовал, это хранение каждого слипчека в каталоге временных файлов в папке Слипчеки-ГГГГММДД на клиентском ПЭВМ. Далее возник вопрос, как хранить текст слипчека, его атрибуты(дата, операция, сумма) и идентификатор рабочего места в базе 1С, чтобы при этом работал механизм РИБ, и по возможности без создания через расширение своего регистра сведений или справочника. Почти всегда в любой типовой конфигурации есть неиспользуемые (бесхозные) справочники или регистры сведений. Я использовал для хранения справочник ШаблоныМагнитныхКарт. В названии этого справочника есть слово Карты(!), и в структуре достаточное количество строковых полей неограниченной длины. Кроме того, справочник используется в планах обмена (по магазину, по рабочему месту), что очень удобно.

С небольшими изменениями этот несложную доработку можно адаптировать к любой типовой конфигурации 1С (УТ 11, УНФ, Розница 3, Бухгалтерия 3)

Ниже приводится код расширения и получения отчета по слипчекам

добавка к процедуре МенеджерОборудованияКлиент.НачатьВыполнениеКоманды_Завершение

&После("НачатьВыполнениеКоманды_Завершение")
Процедура СЧБТ_НачатьВыполнениеКоманды_Завершение(РезультатВыполнения, ПараметрыВыполнениеКоманды)
	Если РезультатВыполнения.Свойство("ТекстСлипЧека") И Не ПустаяСтрока(РезультатВыполнения.ТекстСлипЧека) Тогда
		КаталогСлипЧек=КаталогВременныхФайлов()+"\СлипЧеки-"+Формат(ТекущаяДата(),"ДФ=yyyyMMdd");
		КаталогНаДиске=Новый Файл(КаталогСлипЧек);
		Если НЕ КаталогНаДиске.Существует() Тогда
			СоздатьКаталог(КаталогСлипЧек);
		КонецЕсли;
		ФайлСлипЧек=КаталогСлипЧек+"\"+Формат(ТекущаяДата(),"ДФ=yyyyMMdd_hhmmss")+".txt";
		ТекстовыйФайл = Новый ТекстовыйДокумент;
		ТекстовыйФайл.ДобавитьСтроку(РезультатВыполнения.ТекстСлипЧека);
		ТекстовыйФайл.Записать(ФайлСлипЧек, КодировкаТекста.ANSI);
		ОбщегоНазначенияВызовСервера.СЧБТ_ЗаписатьСлипЧек(ТекущаяДата(),РезультатВыполнения.ТекстСлипЧека,РабочееМестоКлиента(),ИмяКомпьютера());
	КонецЕсли;			
КонецПроцедуры

серверная процедура в модуле ОбщегоНазначенияВызовСервера

Процедура СЧБТ_ЗаписатьСлипЧек(Дата,Слипчек,РабочееМесто,Компьютер) Экспорт
	Эл=Справочники.ШаблоныМагнитныхКарт.СоздатьЭлемент();
	Массив=СтрРазделить(СлипЧек,Символы.ПС);
	Операция="";
	Сумма="";
	Для каждого Строка из Массив Цикл
		Если СтрНайти(Врег(Строка),"ОПЛАТА")>0 Тогда
			Операция="ОПЛАТА";
		ИначеЕсли СтрНайти(Врег(Строка),"ОТМЕНА")>0 Тогда
			Операция="ОТМЕНА";
		КонецЕсли;
		Если СтрНайти(Врег(Строка),"СУММА")>0 Тогда
			Сумма=СокрЛП(Прав(Строка,12));
		КонецЕсли;
	КонецЦикла;
	Запрос=Новый Запрос;
	Запрос.УстановитьПараметр("РабочееМесто",РабочееМесто);
	Запрос.Текст="ВЫБРАТЬ
	|	КассыККМ.Ссылка КАК Ссылка,
	|	КассыККМ.Магазин КАК Магазин
	|ИЗ
	|	Справочник.КассыККМ КАК КассыККМ
	|ГДЕ
	|	КассыККМ.РабочееМесто = &РабочееМесто
	|	И НЕ КассыККМ.ПометкаУдаления";
	Текст="";
	Выборка=Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл;
		Текст=Текст+Выборка.Магазин+" "+Выборка.Ссылка+" ";
	КонецЦикла;	
	Эл.Наименование=xmlстрока(Дата)+" "+Операция+" "+Сумма+" "+Текст+" "+Компьютер;
	Эл.Суффикс1=Операция;
	Эл.Суффикс2=Сумма;
	Эл.ДлинаКода1=День(Дата);
	Эл.ДлинаКода2=Месяц(Дата);
	Эл.ДлинаКода3=Год(Дата);
	Эл.Префикс1=xmlстрока(Дата);
	Эл.Префикс2=Слипчек;
	Эл.Префикс3=xmlстрока(РабочееМесто);
	Эл.Записать();
КонецПроцедуры

код получения отчета во обработке

&НаСервере
Процедура ЗаполнитьНаСервере()
	Запрос=Новый Запрос;
	Запрос.УстановитьПараметр("Магазин",Магазин);
	Запрос.УстановитьПараметр("КассаККМ",КассаККМ);
	Запрос.Текст="ВЫБРАТЬ
	|	КассыККМ.РабочееМесто КАК РабочееМесто
	|ИЗ
	|	Справочник.КассыККМ КАК КассыККМ
	|ГДЕ
	|	ИСТИНА
	|	И КассыККМ.Магазин = &Магазин
	|	И КассыККМ.Ссылка = &КассаККМ";
	Если НЕ ЗначениеЗаполнено(Магазин) Тогда
		Запрос.Текст=СтрЗаменить(Запрос.Текст,"И КассыККМ.Магазин = &Магазин","");
	КонецЕсли;	
	Если НЕ ЗначениеЗаполнено(КассаККМ) Тогда
		Запрос.Текст=СтрЗаменить(Запрос.Текст,"И КассыККМ.Ссылка = &КассаККМ","");
	КонецЕсли;	
	Массив=Новый Массив;
	Выборка=Запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		Массив.Добавить(XMLСтрока(Выборка.РабочееМесто));
	КонецЦикла;	
	Запрос.УстановитьПараметр("РабочееМесто",Массив);
	Запрос.УстановитьПараметр("Год1",Год(НачПериода));
	Запрос.УстановитьПараметр("Месяц1",Месяц(НачПериода));
	Запрос.УстановитьПараметр("День1",День(НачПериода));
	Запрос.УстановитьПараметр("Год2",Год(КонПериода));
	Запрос.УстановитьПараметр("Месяц2",Месяц(КонПериода));
	Запрос.УстановитьПараметр("День2",День(КонПериода));
	Запрос.УстановитьПараметр("Операция",ВРЕГ(Операция));
	Запрос.Текст="ВЫБРАТЬ
	|	СЧ.Суффикс1 КАК Операция,
	|	СЧ.Суффикс2 КАК Сумма,
	|	СЧ.Префикс1 КАК Дата,
	|	СЧ.Префикс2 КАК СлипЧек,
	|	СЧ.Префикс3 КАК РабочееМесто
	|ИЗ
	|	Справочник.ШаблоныМагнитныхКарт КАК СЧ
	|ГДЕ
	|	СЧ.ДлинаКода1 МЕЖДУ &День1 И &День2
	|	И СЧ.ДлинаКода2 МЕЖДУ &Месяц1 И &Месяц2
	|	И СЧ.ДлинаКода3 МЕЖДУ &Год1 И &Год2
	|	И ВЫРАЗИТЬ(СЧ.Префикс3 КАК СТРОКА(36)) В (&РабочееМесто)
	|	И (ВЫРАЗИТЬ(СЧ.Суффикс1 КАК СТРОКА(6))) = &Операция";
	Если Операция="Все" Тогда
		Запрос.Текст=СтрЗаменить(Запрос.Текст,"И (ВЫРАЗИТЬ(СЧ.Суффикс1 КАК СТРОКА(6))) = &Операция","");
	КонецЕсли;
	Объект.Список.Очистить();
	Выборка=Запрос.Выполнить().Выбрать();
	ИтогоОплата=0;
	ИтогоОтмена=0;
	Пока Выборка.Следующий() Цикл
		НовСтр=Объект.Список.Добавить();
		НовСтр.Дата=XMLЗначение(Тип("Дата"),Выборка.Дата);
		НовСтр.Операция=Выборка.Операция;
		НовСтр.СлипЧек=Выборка.СлипЧек;
		НовСтр.РабочееМесто=Справочники.РабочиеМеста.ПолучитьСсылку(Новый УникальныйИдентификатор(Выборка.РабочееМесто));
		НовСтр.Сумма=Выборка.Сумма;
		
		Если НовСтр.Сумма=0 Тогда
			ОперацияСтрока="";
			Массив=СтрРазделить(Выборка.СлипЧек,Символы.ПС);
			Для сч=1 по Массив.Количество() Цикл
				Если СтрНайти(Врег(Массив[Сч-1]),"СУММА")>0 Тогда
					НовСтр.Сумма=СокрЛП(Массив[Сч]);
					Прервать;
				КонецЕсли;
				Если СтрНайти(Врег(Массив[Сч-1]),"СВЕРКА")>0 Тогда
					ОперацияСтрока="ОТЧЕТ";
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
		
		Если НовСтр.Операция="ОТМЕНА" Тогда
			НовСтр.Сумма=-1*НовСтр.Сумма;
			ИтогоОтмена=ИтогоОтмена+НовСтр.Сумма;
		Иначе
			ИтогоОплата=ИтогоОплата+НовСтр.Сумма;
		КонецЕсли;
		
		Если НовСтр.Сумма=0 И Операция="ОТЧЕТ" Тогда
			НовСтр.Операция=ОперацияСтрока;
		КонецЕсли;	

	КонецЦикла;	
	
	Если ОтборПоСумме Тогда
		ТЗ=Объект.Список.Выгрузить();
		Объект.Список.Очистить();
		Для каждого стр из ТЗ Цикл
			СуммаСтроки=стр.Сумма*?(стр.Сумма<0,-1,1);
			Если СуммаСтроки>=(Сумма-СуммаРасхождение) И СуммаСтроки<=(Сумма+СуммаРасхождение) Тогда
				ЗаполнитьЗначенияСвойств(Объект.Список.Добавить(),стр);
			КонецЕсли;	
		КонецЦикла;
	КонецЕсли;	
	
	Объект.Список.Сортировать("Дата Убыв"); 
	
	Инфо="ИТОГО ОПЛАТА "+XMLСтрока(ИтогоОплата)+" - ОТМЕНА "+XMLСтрока(ИтогоОтмена)+" = "+XMLСтрока(ИтогоОплата-ИтогоОтмена);

КонецПроцедуры

В архиве к публикации расширение (запись слипчеков) + внешняя обработка (отчет/история по слипчекам)

Всем успехов и достижений.

Пожелания, критика, просьба доработать - принимаются.

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

+18 –

См. также

Автоматическая обработка платежных документов при загрузке банковской выписки в 1С

Банковские операции Обмен с интернет-банком Эквайринг/ридер магнитных карт Разработчик Бухгалтер Пользователь 1С:Предприятие 8 1С:Управление торговлей 10 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

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

19520 руб.

21.03.2023 26266 174 39

130

Загрузка всех платежей и возвратов ЮKassa в 1С

Банковские операции Эквайринг/ридер магнитных карт ККМ Бухгалтер Пользователь 1С 8.3 1С 8.5 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Бухгалтерский учет Управленческий учет Абонемент ($m)

Расширение загружает в 1С все оплаты и возвраты ЮKassa за выбранный период, а не только оплаты по ссылкам из 1С. Создает операции по платежной карте, находит заказ или счет, ставит комиссию ЮKassa. Есть автозагрузка по расписанию.

1 стартмани

10.11.2026 81 0 VKuser25893647 0

Автоматическая сверка итогов для 1С:Медицина. Больничная аптека 3.0

Кассовые операции Эквайринг/ридер магнитных карт Пользователь 1С 8.3 Отраслевые Россия Абонемент ($m)

Расширение автоматически выполняет сверку итогов на эквайринговом терминале при закрытии кассовой смены в 1С:Медицина. Больничная аптека 3.0 (конкретная версия 3.0.3.16). Добавлена галочка для включения/отключения функции.

1 стартмани

27.10.2026 191 0 saiyajjn 0

Эквайринг от Сбербанка для конфигурации на обычных формах

Эквайринг/ридер магнитных карт Бухгалтер Пользователь 1С 8.3 Абонемент ($m)

Обработка обслуживания для подключения эквайринга от Сбербанка.

1 стартмани

26.10.2026 334 1 diso 5

Сверка эквайринга в 1С:Бухгалтерии

Банковские операции Эквайринг/ридер магнитных карт Бухгалтер 1С 8.3 1С 8.5 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Абонемент ($m)

Сверьте реестр банка с сохранёнными операциями терминала в 1С:Бухгалтерии по RRN, терминалу и типу операции. Получите разные суммы и операции без пары, посмотрите исходные строки и откройте доступные документы БП, сохраните результат в Excel. Реестр готовится по шаблону; комиссии и зачисления не проверяются.

1 стартмани

21.10.2026 257 0 ho_ope 0

Комиссия эквайринга под счёт-фактуру

Анализ учета Эквайринг/ридер магнитных карт Бухгалтер 1С 8.3 1С 8.5 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Абонемент ($m)

Находит все поступления по платёжным картам за период, сверяет комиссию со счётом-фактурой банка и массово переносит её с 91.02 на 76.09 или 60.02 с проверкой проводки по регистру. Есть возврат на 91.02. Для БП 3.0.

1 стартмани

06.10.2026 395 0 VKuser8499740 0

Обработка обслуживания для терминалов INPAS для Управление торговлей 10.3

Эквайринг/ридер магнитных карт Разработчик 1С:Предприятие 8 1С:Управление торговлей 10 1С:Управление производственным предприятием Абонемент ($m)

Появилась необходимость подключения терминала ПСБ к 1С: Управление торговлей 10.3. Терминал работает через драйвер INPAS. Штатной не нашел, поэтому пришлось создать свою на основе других обработок обслуживания и драйверов из Управление торговлей 11.

5 стартмани

28.04.2026 979 5 olegpim2 0

Обработка обслуживания для терминалов Aisino (ПБФ). Управление торговлей 10.3

Эквайринг/ридер магнитных карт Разработчик Пользователь 1С 8.3 1С:Управление торговлей 10 Абонемент ($m)

Предназначена для подключения эквайринговых терминалов, работающих через драйвер ПБФ (он же Aisino). Мы используем для терминалов Альфа-банка, возможно, подойдет к терминалам ВТБ, если используется этот же драйвер.

5 стартмани

27.04.2026 1856 4 olegpim2 12