search

VSydorenko / SMP_BankExchange

Підсистема інтеграції із системами Клієнт-Банк
https://t.me/simplySOFT
GNU Affero General Public License v3.0
13 stars 0 forks source link

Api Monobank #11

Open mazurvn opened 6 days ago

mazurvn commented 6 days ago

Є побажання до розробки проект. Так як через вебхук багато лишніх рухів, із веб сервером в тому числі - пропоную наступне, по аналогії як з ПриватБанком. 1) Маючи токен - ми можемо отримати айді рахунків


Соединение = Новый HTTPСоединение("api.monobank.ua",443,,,,,Новый ЗащищенноеСоединениеOpenSSL); 
Заголовки = Новый Соответствие;
Заголовки.Вставить("X-Token",Токен);    
Запрос = Новый HTTPЗапрос("/personal/client-info"
,Заголовки);    
Ответ = Соединение.Получить(Запрос);    
ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();
ЧтениеЖС = Новый ЧтениеJSON;
ЧтениеЖС.УстановитьСтроку(ТекстОтвета);
КодОтвета = ПрочитатьJSON(ЧтениеЖС);
ЧтениеЖС.Закрыть()

У відповідь буде таблиця КодОтвета .accounts із переліком "white,black,fop" і айді рахунками https://prnt.sc/ien-5nKlAASR https://prnt.sc/j4Dr2a3Lwe4_

2) Зберігаємо айді фопа і відповідно отримуємо виписку за період


        Соединение = Новый HTTPСоединение("api.monobank.ua",443,,,,,Новый ЗащищенноеСоединениеOpenSSL);
    Заголовки = Новый Соответствие;
    Заголовки.Вставить("X-Token",Токен);    
    Запрос = Новый HTTPЗапрос("/personal/statement/"
    + IDСчет + "/"
    + ПолучитьUnixTime(НачалоПериода) + "/"   
    + ПолучитьUnixTime(КонецПериода),Заголовки);
    Ответ = Соединение.Получить(Запрос);
    ТекстОтвета = Ответ.ПолучитьТелоКакСтроку();
        ЧтениеЖС = Новый ЧтениеJSON;
    ЧтениеЖС.УстановитьСтроку(ТекстОтвета);
    КодОтвета = ПрочитатьJSON(ЧтениеЖС);
    ЧтениеЖС.Закрыть();
YaroslavHolovatiy commented 6 days ago

Описаний вами функціонал реалізований в розширенні для БАС Малий бізнес.