{{branchTel}}

{{section.attributes.section}}

Все результаты

  • По вашему запросу {{search.q}} ничего не найдено.

Перейти на страницу поиска
{{countBasket}}

{{userFullName}}

Личный кабинет

Выйти
Доставка и оплата
Контакты

Комментарии в чеке ФР Datecs FP 3530T.

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Поиск  Правила 
Страницы: 1
RSS
Комментарии в чеке ФР Datecs FP 3530T., Типовое отраслевое решение "Альфа-Авто: Автосервис+Автозапчасти, украинская версия 4.1" Разработка: "1С-Рарус" Локализация: "АБИ Украина" (4.1.07.01). Комментарии в чеке ФР Datecs FP 3530T.
 
#1
20.03.2013 16:15:41
1. 1С:Предприятие 8.1 (8.1.15.14).  
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ПараметрыШапки);

Безрезультатно!
 
 
 
#2
21.03.2013 14:32:28
:evil:
 
 
 
#3
21.03.2013 15:06:38
Посомтрите код здесь: Обработки-ТорговоеОборудование-Формы-ФР_Datecs_FP_3530T-Функция ПечатьШапкиЧека(флФиск,ТипЧека,ТекстШапки)

Если Задача.ПрограммнаяШапка=1 Тогда
Для Сч=1 По СтрЧислоСтрок(Задача.ТекстШапки) Цикл
Стр=СтрПолучитьСтроку(Задача.ТекстШапки,Сч);
Задача.Печать(обСтрокаПривести(Стр," ",Задача.ДлинаСтроки,1));
КонецЦикла;
ИначеЕсли НЕ ПустаяСтрока(ТекстШапки) Тогда
Для Сч=1 По СтрЧислоСтрок(ТекстШапки) Цикл
Стр=СтрПолучитьСтроку(ТекстШапки,Сч);
Задача.Печать(обСтрокаПривести(Стр," ",Задача.ДлинаСтроки,1));
КонецЦикла;
КонецЕсли;


У вас видимо в настройках отключена печать программной шапки чека.
 
 
 
#4
21.03.2013 15:17:16
ок посмотрим. Спасибо за ответ.
 
 
 
#5
22.03.2013 16:38:38
Спасибо! Правда печатать в подвале (именно в самом конце) не получилсь. Пришлось сделать в Шапке.
Итак: в модуле обработки ФронтКассира в Функция ПробитьЧек добавлены строки:
SafeArrayПараметрыШапки.SetValue(15,0,ПараметрыШапки.ОсновнойОтдел);     //Основной отдел
// --> + Рубцов в конфу Начало
Если ЗначениеЗаполнено(ЭтотОбъект.ДоговорВзаиморасчетов) Тогда
     Если ЭтотОбъект.ДоговорВзаиморасчетов.ВидДоговора = Перечисления.ВидыДоговоров.Кредит Тогда
      ПараметрыШапки.ТекстШапки =""+ЭтотОбъект.ДоговорВзаиморасчетов.НомерДоговора+" "+ЭтотОбъект.ДоговорВзаиморасчетов.ДатаНачала;  
  КонецЕсли;
КонецЕсли;
// --> - Рубцов в конфу Конец
SafeArrayПараметрыШапки.SetValue(16,0,ПараметрыШапки.ТекстШапки);        //Текст шапки

, а в обработке ТорговоеОборудование в форме ФР_Datecs_FP_3530T добавлены строки:
// Печатаем строку с наименованием кассы
Задача.Печать("КАСА " + ВРЕГ(СокрЛП(Задача.ИмяУстройства)));
// --> + Рубцов в конфу Начало
// Задача.Печать("01234567890123456789012345678901234567890123456789");
ТекСтр = "Касир: "+ПользователиИнформационнойБазы.ТекущийПользователь().Имя;
Если СтрДлина(ТекСтр) <= 24  Тогда
Задача.Печать(ТекСтр);
Иначе
Задача.Печать("Кассир: ");
Задача.Печать(""+ПользователиИнформационнойБазы.ТекущийПользователь().Имя);
КонецЕсли;
// --> - Рубцов в конфу Конец
// Разделитель
Задача.Печать(РазделительСекций1);
// --> + Рубцов в конфу Начало
ТекСтр = "Договір Кредиту: "+ ТекстШапки;
Если СтрДлина(ТекСтр) <= 24  Тогда
Задача.Печать(ТекСтр);
Иначе
Задача.Печать("Договір Кредиту: ");
Задача.Печать(""+ТекстШапки);
КонецЕсли;
// Разделитель
Задача.Печать(РазделительСекций1);
// --> - Рубцов в конфу Конец


// Все ОК,закончили
Возврат 0;
 
 
 
Страницы: 1
Читают тему
Поддержка отраслевых решений «1С-Рарус»
Узнать подробнее
Услуги 1С