Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Подключение Datecs FP-3530T RT к УТ          
Pashaboston Подменю пользователя
сообщение 27.04.16, 11:26
Сообщение #1

Говорящий
***
Группа: Пользователи
Сообщений: 91
Спасибо сказали: 1 раз
Рейтинг: 1

Подключение касового апарата к 1с производится через обработку SystemGroup_ATLAS_v2. При оплате карточкой чек не пробивается на ФР пишет "ЧЕК АНУЛЬОВАНО".

Вот функция которая закрываэт чек. Параметры проверил, код вида оплаты в тоже.
Функция ЗакрытьЧек(Объект, СуммаНал, СуммаБезнал) Экспорт

    Результат  = мНетОшибки;

    Если Объект.Драйвер.PrinterState = 9 Тогда
        Объект.Драйвер.EndNonFiscal();
    Если Объект.Драйвер.ResultCode <> 0 Тогда         
                Объект.ОписаниеОшибки = НСтр("ru='Кассовый аппарат ';uk='Касовий апарат '") + НСтр("ru=' ошибка оплаты ';uk=' помилка оплати '") + ОписаниеОшибки() + ".";
                Результат = мОшибкаНеизвестно;
                Возврат Результат;             КонецЕсли;     КонецЕсли;

        
    Если    СуммаБезнал  <>  0  Тогда        
    Объект.Драйвер.PrintRecTotal(СуммаБезнал, СуммаБезнал, "1");
    
    Если Объект.Драйвер.ResultCode <> 0 Тогда         
                Объект.ОписаниеОшибки = НСтр("ru='Кассовый аппарат ';uk='Касовий апарат '") + НСтр("ru=' ошибка оплаты ';uk=' помилка оплати '") + ОписаниеОшибки() + ".";
                Результат = мОшибкаНеизвестно;
                Возврат Результат;             КонецЕсли;     КонецЕсли;
        
        
        
    Если    СуммаНал  <>  0  Или  (СуммаНал  =  0 И СуммаБезнал  =  0)Тогда
    Объект.Драйвер.PrintRecTotal(СуммаНал, СуммаНал, "0");
    
    Если Объект.Драйвер.ResultCode <> 0 Тогда         
                Объект.ОписаниеОшибки = НСтр("ru='Кассовый аппарат ';uk='Касовий апарат '") + НСтр("ru=' ошибка оплаты ';uk=' помилка оплати '") + ОписаниеОшибки() + ".";
                Результат = мОшибкаНеизвестно;
                Возврат Результат;             КонецЕсли;     КонецЕсли;
            
        

            
    Объект.Драйвер.EndFiscalReceipt(True);
    
    Если Объект.Драйвер.ResultCode <> 0 Тогда         
                Объект.ОписаниеОшибки = НСтр("ru='Кассовый аппарат ';uk='Касовий апарат '") + НСтр("ru=' ошибка оплаты ';uk=' помилка оплати '") + ОписаниеОшибки() + ".";
                Результат = мОшибкаНеизвестно;
                Возврат Результат;             КонецЕсли;
        
        
    // Закрытие чека

    Возврат Результат;

КонецФункции // ЗакрытьЧек()

Kapipenker Подменю пользователя
сообщение 04.12.17, 20:36
Сообщение #2

Молчаливый
*
Группа: Пользователи
Сообщений: 1
Спасибо сказали: 0 раз
Рейтинг: 0


 ! 

Правила: 6
 


Сообщение отредактировал logist - 05.12.17, 0:21

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 28.03.24, 22:32
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!