Имя: Пароль:
1C
1C 7.7
v7: ТиС Элвис-Мини ФР-Ф и эквайринг
,
0 Мимохожий Однако
 
18.07.14
07:57
Клиенты установили у себя эквайринг (оплату карточками) как отдельное оборудование. В ТиС в чеке эту операцию требуется отображать отдельно, чтобы в Z-отчете отделялись наличные от безналичных платежей.
Ищу фрагмент кода, который в функции чека позволяет это ввести.
Используется обработка fr_elves.ert компонента DrvFr.dll
1 DCKiller
 
18.07.14
08:10
>> Ищу фрагмент кода, который в функции чека позволяет это ввести.
Ну, и как ищется? Успешно?
2 Мимохожий Однако
 
18.07.14
08:30
Пока безуспешно.
3 Галахад
 
гуру
18.07.14
09:15
Что-нибудь типа "ЗакрытьЧек(Сумма1, Сумма2,...)
4 Мимохожий Однако
 
18.07.14
09:29
Добавил в обработку фрагмент
..
Объект.Password = Пароль;
Объект.Summ1    = Получено;

//Объект.Summ2    = 0;
Объект.Summ2    = ПолученоЭквайринг;

Объект.Summ3    = 0;
Объект.Summ4    = 0;
Объект.StringForPrinting=" ";
Объект.DiscountOnCheck=Скидка;
Объект.CloseCheck();
..
Попробую сегодня у клиента проверить, что будет.
5 Мимохожий Однако
 
31.07.14
20:53
Сериал продолжается...
..
Обнаружилось, что чек пробивается правильно. В Z-отчете сумма попадает в оплату КРЕДИТОМ, но не даёт сделать другой чек с оплатой КРЕДИТОМ. Налом по .Summ1    отрабатывает нормально и потом. Не даёт делать следующий чек с кредитом. После перезагрузки компьютера. Всё работает до первого чека с кредитом.
Подозреваю, что нужна еще одна команда по завершению печати по второму режиму...
Может кто знает?
6 mTema32
 
31.07.14
22:08
По drvfr.dll есть целое здоровенное рукводство програмиста с примерами. На сайте штрихов можно скачать. Истина там)
7 Мимохожий Однако
 
31.07.14
22:17
(6)Есть такая фраза "Угадал все буквы, но не смог назвать слово". Руководство есть, читаю. Нашел как установить свойство SUMM1. Но после печати чека...(5)
Может быть, команду
Объект.CloseCheck(); повторить дважды?
8 abfm
 
31.07.14
22:23
Втрорая команда Объект.CloseCheck();
бесполезна надо открыть чек
сделать регистракцию продажи
указать форму оплаты
внести сумму оплаты
закрыть чек.

обнуляйте переменные.
9 Мимохожий Однако
 
31.07.14
22:27
(8)Т.е после команды Объект.CloseCheck();

сделать сразу же

Объект.Summ1    = 0;
Объект.Summ2    = 0;

Так?
Или есть специальная команда для обнуления?

Или Объект = "";?
10 abfm
 
31.07.14
22:30
Это не правильно но сработает.
Объект.Summ2    = 0;
11 Мимохожий Однако
 
31.07.14
22:34
(10)Завтра попробую фрагмент:
.
Объект.Password = Пароль;
Объект.Summ1    = Получено;
Объект.Summ2    = ПолученоЭквайринг;
Объект.Summ3    = 0;
Объект.Summ4    = 0;
Объект.StringForPrinting=" ";
Объект.DiscountOnCheck=Скидка;
Объект.CloseCheck();
Объект.Summ1    = 0;
Объект.Summ2    = 0;
12 abfm
 
31.07.14
22:41
5 дочек? ФАНТАСТИКА.
13 Мимохожий Однако
 
31.07.14
22:46
(12) Это не сложно. Главное - нАчать )) А по поводу ФР еще что-нибудь подскажешь?
14 abfm
 
31.07.14
22:47
Спрашивай.
15 Мимохожий Однако
 
31.07.14
22:48
Код в (11) рабочий?
16 abfm
 
31.07.14
22:50
Там вообще ещё отключить подключить рекомендуеться. Тогда и проблема пропадет.
17 abfm
 
31.07.14
22:51
(11)Хуже не будет.
18 Мимохожий Однако
 
31.07.14
22:52
В конце кода есть строка
Возврат ОтключитьсяОтФР(Объект, Пароль);
...
Функция ОтключитьсяОтФР(Объект, Пароль, ЗапоминатьОшибку = 1)
    Рез = 0;

    // пеключим ФР в нерабочий режим
    Объект.Password=Пароль;
    Объект.Disconnect();
    
    Ответ = Объект.ResultCode;
    Если Ответ=0 Тогда
        Рез=1;
    ИначеЕсли ЗапоминатьОшибку = 1 Тогда
        ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
    КонецЕсли;
    
    Возврат Рез;
КонецФункции
19 abfm
 
31.07.14
22:56
Где то Export есть
Объект.Summ2    = 0;
сделай и забудь
20 Мимохожий Однако
 
31.07.14
22:58
ОК. Спасибо за поддержку.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший