Комментарии в чеке ФР Datecs FP 3530T.
Для получения доступа к форуму необходимо
авторизоваться
или
зарегистрироваться
на сайте.
Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте
rarus-soft.ru
Читают тему
2. Типовое отраслевое решение "Альфа-Авто: Автосервис+Автозапчасти, украинская версия 4.1". Разработка: "1С-Рарус" Локализация: "АБИ Украина" (4.1.07.01).
3. ФР Datecs FP 3530T.
Я программист. (Под этой учеткой задают вопросы два человека: директор и программист). Пробавал в модуле обработки ФронтКассира:
SafeArrayПараметрыШапки.SetValue(14,0,ПараметрыШапки.ПодкладнаяПечать); //Печать на чековую ленту
SafeArrayПараметрыШапки.SetValue(15,0,ПараметрыШапки.ОсновнойОтдел); //Основной отдел
SafeArrayПараметрыШапки.SetValue(16,0,ПараметрыШапки.ТекстШапки); //Текст шапки
// --> + Рубцов в конфу Начало, пробуем записать в текст подвала номер договора
Если ЗначениеЗаполнено(ЭтотОбъект.ДоговорВзаиморасчетов) Тогда
ПараметрыШапки.ТекстПодвала = ""+ЭтотОбъект.ДоговорВзаиморасчетов.НомерДоговора;
КонецЕсли;
// --> - Рубцов в конфу Конец, пробуем записать в текст подвала номер договора
SafeArrayПараметрыШапки.SetValue(17,0,ПараметрыШапки.ТекстПодвала); //Текст подвала
SafeArrayПараметрыШапки.SetValue(18,0,ПараметрыШапки.ВыделятьНалоги); //Выделять Налоги
SafeArrayПараметрыШапки.SetValue(19,0,ПараметрыШапки.ПарольКассира); //Пароль кассира
SafeArrayПараметрыШапки.SetValue(20,0,ПараметрыШапки.ИмяКассира); //Имя кассира
// --> + Рубцов в конфу Начало, пробуем записать в текст подвала номер договора
Если ЗначениеЗаполнено(ЭтотОбъект.ДоговорВзаиморасчетов) Тогда
СформированнаяСтрока = ""+ЭтотОбъект.ДоговорВзаиморасчетов.НомерДоговора;
КонецЕсли;
// --> - Рубцов в конфу Конец, пробуем записать в текст подвала номер договора
SafeArrayПараметрыШапки.SetValue(21,0,СформированнаяСтрока); //Дополнительная информация о реквизитах сотового платежа
SafeArrayПараметрыШапки.SetValue(22,0,0); X Сумма за свой счет
SafeArrayПараметрыЧека.SetValue(0,0,SafeArrayПараметрыШапки);
Безрезультатно!
Если Задача.ПрограммнаяШапка=1 Тогда
Для Сч=1 По СтрЧислоСтрок(Задача.ТекстШапки) Цикл
Стр=СтрПолучитьСтроку(Задача.ТекстШапки,Сч);
Задача.Печать(обСтрокаПривести(Стр," ",Задача.ДлинаСтроки,1));
КонецЦикла;
ИначеЕсли НЕ ПустаяСтрока(ТекстШапки) Тогда
Для Сч=1 По СтрЧислоСтрок(ТекстШапки) Цикл
Стр=СтрПолучитьСтроку(ТекстШапки,Сч);
Задача.Печать(обСтрокаПривести(Стр," ",Задача.ДлинаСтроки,1));
КонецЦикла;
КонецЕсли;
У вас видимо в настройках отключена печать программной шапки чека.
Итак: в модуле обработки ФронтКассира в Функция ПробитьЧек добавлены строки:
SafeArrayПараметрыШапки.SetValue(15,0,ПараметрыШапки.ОсновнойОтдел); //Основной отдел
// --> + Рубцов в конфу Начало
Если ЗначениеЗаполнено(ЭтотОбъект.ДоговорВзаиморасчетов) Тогда
Если ЭтотОбъект.ДоговорВзаиморасчетов.ВидДоговора = Перечисления.ВидыДоговоров.Кредит Тогда
ПараметрыШапки.ТекстШапки =""+ЭтотОбъект.ДоговорВзаиморасчетов.НомерДоговора+" "+ЭтотОбъект.ДоговорВзаиморасчетов.ДатаНачала;
КонецЕсли;
КонецЕсли;
// --> - Рубцов в конфу Конец
SafeArrayПараметрыШапки.SetValue(16,0,ПараметрыШапки.ТекстШапки); //Текст шапки
, а в обработке ТорговоеОборудование в форме ФР_Datecs_FP_3530T добавлены строки:
// Печатаем строку с наименованием кассы
Задача.Печать("КАСА " + ВРЕГ(СокрЛП(Задача.ИмяУстройства)));
// --> + Рубцов в конфу Начало
// Задача.Печать("01234567890123456789012345678901234567890123456789");
ТекСтр = "Касир: "+ПользователиИнформационнойБазы.ТекущийПользователь().Имя;
Если СтрДлина(ТекСтр) <= 24 Тогда
Задача.Печать(ТекСтр);
Иначе
Задача.Печать("Кассир: ");
Задача.Печать(""+ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
КонецЕсли;
// --> - Рубцов в конфу Конец
// Разделитель
Задача.Печать(РазделительСекций1);
// --> + Рубцов в конфу Начало
ТекСтр = "Договір Кредиту: "+ ТекстШапки;
Если СтрДлина(ТекСтр) <= 24 Тогда
Задача.Печать(ТекСтр);
Иначе
Задача.Печать("Договір Кредиту: ");
Задача.Печать(""+ТекстШапки);
КонецЕсли;
// Разделитель
Задача.Печать(РазделительСекций1);
// --> - Рубцов в конфу Конец
// Все ОК,закончили
Возврат 0;