Фискальный регистратор

Форум Учет и отчетность Производственный учет (MRP)

1С:Управление производственным предприятием Платформа 1С v8.3

1. amigo667 8 10.02.15 00:35 Сейчас в теме

Недавно стали счастливыми обладателями ФР FPrint-88К, работает на ура!! Но возник вопрос, в решении которого уповаю на вашу помощь.
Мы используем ПО 1С УПП1.3:
Возможно и если возможно то как распечатать дубликат пробитого чека. а также вывести на ленту Товарный чек (типа накладной, желательно с настраиваемым макетом). Организация без ЕНВД.

По теме из базы знаний

Ответы

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

Свернуть все

2. tsar 10.02.15 06:53 Сейчас в теме

Скорее всего самостоятельно допиливать УПП под такие нужды. По умолчанию типовые конфигурации 1С предоставляют только простейшие функции по работе с ФР (да и с любым другим оборудованием) Т.е. стандартно пробить чек, чек возврата, снять Z и X отчёты. А всякие изыски уже самим доделывать читая документацию программиста от драйверов ФР-а :).

3. Bienko 214 10.02.15 08:26 Сейчас в теме

Про повторный не знаю (по идее должна быть такая функция), а вот выводить на печать любой текст, по идее, можно сделать. Вот код для FPrint-5200К. Тут я внутри менял чек. С вашим, скорее всего, тоже должно работать. Может чем поможет.

Процедура НапечататьЧек()
	ПолучитьСерверТО().ПодключитьКлиента(ЭтаФорма);
	 
	НомерЧекаККМ=0;
	МассивФР = ПолучитьСерверТО().ПолучитьСписокУстройств(
	                    Перечисления.ВидыТорговогоОборудования.ФискальныйРегистратор,
	                    Справочники.КассыККМ.ПустаяСсылка());

	ФР            = Неопределено;
	СписокФР      = Новый СписокЗначений();
	Вид           = Неопределено;
	Представление = Неопределено;

	Для каждого ФР Из МассивФР Цикл
		ПолучитьСерверТО().ПолучитьПредставлениеУстройства(ФР, Вид, Представление);
		СписокФР.Добавить(ФР, Представление);
	КонецЦикла;

	КоличествоФР = СписокФР.Количество();
	Если      КоличествоФР = 0 Тогда
		Предупреждение("Фискальный регистратор не подключен!");
		ФР = Неопределено;
	ИначеЕсли КоличествоФР = 1 Тогда
		ФР = СписокФР[0].Значение;
	Иначе
		ФР = СписокФР.ВыбратьЭлемент("Необходимо выбрать фискальный регистратор");
		Если ФР = Неопределено Тогда
			Предупреждение("Операция отменена пользователем");
		Иначе
			ФР = ФР.Значение;
		КонецЕсли;
	КонецЕсли;

	Если НЕ ЗначениеЗаполнено(ФР) Тогда
		Возврат;
	КонецЕсли;
     		
	Попытка
	    		
		Позиция         = Неопределено;
		НомерСмены      = Неопределено;
		ТаблицаПлатежей = Новый ТаблицаЗначений();
		ТаблицаПлатежей.Колонки.Добавить("Заголовок");
		ТаблицаПлатежей.Колонки.Добавить("Сумма");
		ТаблицаПлатежей.Колонки.Добавить("НДС");
        СуммаДОкумента=0;
		Для Каждого Позиция Из Товары Цикл
			СтрокаТаблицы           = ТаблицаПлатежей.Добавить();
			СтрокаТаблицы.Заголовок = СокрЛП(Позиция.Номенклатура.НаименованиеПолное)+" "+СокрЛП(Позиция.ЕдиницаИзмерения)+" "+СокрЛП(Позиция.Количество);
			СтрокаТаблицы.Сумма     = Позиция.Сумма;
			СтрокаТаблицы.НДС       = УчетНДС.ПолучитьСтавкуНДС(Позиция.Номенклатура.СтавкаНДС);
			СуммаДокумента=СуммаДокумента+Позиция.Сумма;
		КонецЦикла;

		Результат = ПолучитьСерверТО().ПечатьЧекаПКО(ФР,
	                                    "",
	                                    НомерЧекаККМ,
	                                    НомерСмены,
	                                    ТаблицаПлатежей,
	                                    СуммаДокумента,
	                                    0);
										

		Если ЗначениеЗаполнено(Результат) Тогда
			
			ТекстОшибки = ПолучитьСерверТО().ПолучитьТекстОшибкиФРТО(Результат);
			Предупреждение(ТекстОшибки);
			Возврат;
		КонецЕсли;
		
		
	Исключение
		
		
		Предупреждение("Операция не выполнена!");
		
	КонецПопытки;
	
	ПолучитьСерверТО().ОтключитьКлиента(ЭтаФорма);

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

Показать

4. amigo667 8 10.02.15 21:54 Сейчас в теме

А документацию программиста к драйверу ФР FPrint-88К где можно найти??
Атол молчит, продавец молчит... Какая-то шляпа с этой задачкой.
И клиенту нужен ответ можно или нельзя? и если можно то каким способом, если нельзя с данным оборудованием то с каким можно??
Столько вопросов...

5. Bienko 214 11.02.15 08:12 Сейчас в теме

Вот, например, http://kkm78.ru/wp-content/uploads/2011/09/Drayver-FR.pdf

Оставьте свое сообщение

E-mail: