Класс для API эквайринга Pilot_NT «Сбербанка РФ»

[Игорь Столяров]

Привет всем !

Класс работы с эквайрингом Сбербанка РФ через драйвер Pilot_NT.dll.
Форк класса ADMIN'а: Pilot_NT.zip

Класс рабочий, в комплекте примеры использования.
Любые замечания, исправления и дополнения - приветствуются !
----------------------------------------------------------------------------------------------------
Рекомендуем использовать актуальные версии классов LibCURL и cJSON.

[wad_ja]

где взять
INCLUDE('cfcapi.inc'),ONCE
INCLUDE('CFCComctrl.inc'),ONCE
INCLUDE('dynstrclass.inc'), ONCE
в Pilot_NT.zip их нет

[wad_ja]

Если я правильно понял мы зовем экваринг и указываем просто сумму? А в случае успеха печатаем чек?

[wad_ja]

У Сбера своя ДЛЛка есть или через оле командовать. Пробовать не на чем. Оборудование привезли в район , а я в городе. 2 часа на автобусе ехать или по удаленке. Проще видимо отправить на терминалы СБЕРа с квитанциями - все равно на квитанциях есть QR-code и это нормально работает и в терминале СБЕРа и в моб. приложении.

[Игорь Столяров]

где взять
INCLUDE('cfcapi.inc'),ONCE

Спросите там, где это нашли. Класс SBRF такие компоненты не использует.

[wad_ja]

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!! Class Definition File Contents
!!!!! File Name: sbrf.clw
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

MEMBER('classes.clw')
MAP
END
INCLUDE('cfcapi.inc'),ONCE
INCLUDE('CFCComctrl.inc'),ONCE
INCLUDE('sbrf.inc'),ONCE
INCLUDE('dynstrclass.inc'), ONCE

_TSB_TestPinpad_ LONG,STATIC,NAME('TSB_TestPinpad')
_TSB_card_authorize7_ LONG,STATIC,NAME('TSB_card_authorize7')
_TSB_close_day_ LONG,STATIC,NAME('TSB_close_day')

cstrTSB_TestPinpad CSTRING('_TestPinpad')
cstrTSB_card_authorize7 CSTRING('_card_authorize7')
cstrTSB_close_day CSTRING('_close_day')
Это начало sbrf.clw из "грузим Pilot_nt.zip"

[Игорь Столяров]

MEMBER('classes.clw')

Класс Pilot_NT «Сбербанка РФ» такие компоненты не использует.

[wad_ja]

Как вообще это работает? Вызываем эквайринг и если получаем параметры
CardID = sbrf.GetCardID()
CheckFileName = sbrf.GetFileName()
Куда их используем? На чек или просто запоминаем в базу? Сам принцип.

[Игорь Столяров]

Сам принцип

см. пожалуйста примеры использования класса в файле Sbrf.txt
Выполняем оплату суммы через эквайринг и при успешной транзакции показываем
слип-чек и для карты сбера - ID карты:

Код: Выделить всё

     ! Оплата суммы
     If Loc:Pilot.Payment(1234.56)
        Sbrf::Message(Loc:Pilot.Buffer.Str())     ! Cлип-чек
        
        If Int(Loc:Pilot.gAnswer.SberOwnCard)     ! Если карта сбера -> Показать ID карты
           Sbrf::Message(Loc:Pilot.gAnswer.CardID)
        end
     else
        Sbrf::ViewError(Loc:Pilot.GetError())     ! Ошибка
     end