FiveTech Software tech support forums

Code: Select all | Expand

local oHttp, cCadena, cNomObjOLE := "Microsoft.XMLHTTP",  cToken := '', ;
      cURL := "https://apis.bbva.com/business-accounts-sbx/v1/statements/aeb43"
 
 oHttp:Open ( "GET" , cUrl, .f. )
 oHttp:SetRequestHeader ( "Content-Type", "application/json")
 oHttp:SetRequestHeader ( "Accept", "application/json")
 oHttp:SetRequestHeader ( "Authorization", cToken )
 oHttp:SetRequestHeader ( "Host", "apis.bbva.com" )

 try
        oHttp:Send ()
 catch
        ? 'Error en Send'
        return .t.
end
cCadena := oHttp:responseText
 

Code: Select all | Expand

function BBVA   ()

    local oHttp, cCadena, aRespuesta := { => }, cCode, cToken, cFicTok := '.\TOK_BBV.TXT', cFicJSon := '.\EXT_BBV.JSON', ;
          cNomObjOLE := "Microsoft.XMLHTTP", ; 
          cRedirect_Uri := "http://localhost", ;
          cAppID     := "'",  cSecretID  := "", ;                  && Esta información se consigue dándose de alta en https://www.bbvaapimarket.com/es y añadiendo una APP
          cURL   := "https://connect.bbva.com/token"

*    Abrir navegador Chrome con la página dónde se solicitan los datos del usuario de la banca electrónica de BBVA
    shellexecute ( , "open", "chrome.exe", ;
                            "https://connect.bbva.com/sandboxconnect?scope=" + ;
                            "&client_id="    + cAppID                        + ;
                            "&redirect_uri=" + cRedirect_Uri                 + ;
                            "&response_type=code" )    
*********    Una vez introducidos usuario y contraseña, el navegador se redije a cRedirect_Url con un parámetro que tiene el código de autorización : ?code=xxxxxx
*********    cCode := Recuperar de la ventana del navegador la dirección (por ejemplo : http://http://localhost/?code=F16fo8) y sacar code "F16fo8"
*    Realizar un POST con el authorization_code para acceder a un access_token válido
    try
        oHttp := CreateObject (cNomObjOLE)
    catch
        ? 'Error de creacion oHttp'
        return .t.
    end

    oHttp:Open ( "POST" , cUrl + "?grant_type=authorization_code" + ;
                                    "&code=" + ALLTRIM (cCode)                       + ;
                                    "&redirect_uri=" + cRedirect_Uri, .f. )
    oHttp:SetRequestHeader ( "Authorization", "Basic " + cMimeEnc(cAppID + ':' + cSecretID) )

    try
        oHttp:Send ()
    catch
        ? 'Error en Send Token'
        return .t.
    end
    cCadena := oHttp:responseText 
    HB_MemoWrit ( cFicTok, cCadena, .f. )
    aRespuesta := hb_jsonDecode (cCadena)
    cToken := aRespuesta ['access_token']

*  Realizar un GET con el acces_token y acceder a los movimientos de las cuentas
    cUrl       := "https://apis.bbva.com/business-accounts-sbx/v1/statements/aeb43"
    oHttp:Open ( "GET" , cUrl, .f. )
    oHttp:SetRequestHeader ( "Content-Type", "application/json")
    oHttp:SetRequestHeader ( "Accept", "application/json")
    oHttp:SetRequestHeader ( "Authorization", "jwt " + cToken )
    oHttp:SetRequestHeader ( "Host", "apis.bbva.com" )

    try
        oHttp:Send ()
    catch
        ? 'Error en Send'
        return .t.
    end
    cCadena := oHttp:responseText 
    HB_MemoWrit ( cFicJSon, cCadena, .f. )
    oHttp := Nil
return Nil
 

Code: Select all | Expand

oDOM := oActiveX:GetProp( "Document" )
cUrl := oDOM:Url

Code: Select all | Expand

#include "Fivewin.ch"

class TApiBBVA

    data oWnd           && Ventana Padre
    data cNomObjOLE     && Nombre del objeto OLE para hacer GET y POST
    data cAppID         && Informaci¢n APP creada en BBVAMarket
    data cSecretID      && Informaci¢n C¢digo secreto de BBVAMarket
    data cURL           && URL de BBVA
    data cRedirect_Uri  && Url a la que se redige la respuesta de ConnectBBVA
    data cToken         && Access_Token devuelto por oAuth
    data cCode          && Authorization_Code necesario para solicitar access_token
    data cFicTok        && Nombre de fichero para almacenar Token
    data cFicJSon       && Nombre de fichero para almacenar respuesta JSon
    data oTimer         && Timer para comprobar cada 3 segundos que ha respondido ConnectBBVA

    method New (oWnd)
    method EXTRACTO ()                  && Devuelve JSon con los extractos de las cuentas del cliente BBVA
    method PEDIR_CODE ()                && Si el usuario a rellenado sus datos correctos en ConnecBBVA, rellena ::cCode
    method IniTimer ( oDlg, oActiveX )  && Iniciar ::oTimer
    method TENGO_CODE ( oActiveX )      && Comprueba que la cUrl contiene en ::cCode, lo rellena y devuelve true
    method PEDIR_TOKEN ()               && Petici¢n de access_Token usando ::cCode y si hay respuesta devuelve true
    method PEDIR_EXTRACTO ()            && Petici¢n de Extracto usando ::cToken, devuelve Json son los datos
endclass

method New (oWnd)                   class TApiBBVA

    ::oWnd       := oWnd
    ::cNomObjOLE := "Microsoft.XMLHTTP"     && "WINHTTP.WINHTTPREQUEST.5.1"
    ::cAppID     := ''           && Hay que darse de alta en BBVAMarket
    ::cSecretID  := ""        
    ::cURL       := "https://connect.bbva.com/token"
    ::cRedirect_Uri := "http://localhost"
    ::cToken     := ""
    ::cCode      := ""
    ::cFicTok    := '.\TOK_BBV.TXT'
    ::cFicJSon   := '.\EXT_BBV.JSON'
return Self

method EXTRACTO ()                  class TApiBBVA

    if ::PEDIR_CODE ()
        if ::PEDIR_TOKEN ()
            ::PEDIR_EXTRACTO ()
        endif
    endif
return Nil

method PEDIR_CODE ()                    class TApiBBVA

    local oDlg, oActiveX, nPos, oTimer, oApi

    oApi := Self
    define dialog oDlg from 100, 100 to 950,1000 title "Navegar" pixel ;
              of ::oWnd

    activate dialog oDlg on init ;
           ( oActiveX := ShowPageWeb( oDlg, ;
                "https://connect.bbva.com/sandboxconnect?scope=" + ;
                "&client_id="    + oApi:cAppID                      + ;
                "&redirect_uri=" + oApi:cRedirect_Uri               + ;
                "&response_type=code", 0, 0, 825, 950 )          , ;
         oApi:IniTimer (oDlg, oActiveX ) )
    release ::oTimer

return oDlg:nResult = ID_OK

method IniTimer ( oDlg, oActiveX )          class TApiBBVA

    define Timer ::oTimer of oDlg interval 3000 ;
        action IF ( ::TENGO_CODE (oActiveX), oDlg:End (ID_OK), )
    activate Timer ::oTimer
return Nil

method TENGO_CODE ( oActiveX )              class TApiBBVA

    local oDOM := oActiveX:GetProp( "Document" ), ; // -> Object Document
          Retorno := .f., nPos
    local cUrl := oDOM:Url

    if (nPos := AT ( "?code=", cUrl )) # 0
        ::cCode := SUBSTR ( cUrl, nPos + 6 )
        Retorno := .t.
    endif
return Retorno

Function ShowPageWeb( oParent, cUrl, nT, nL, nH, nW )

    local oActiveX, oHttp, oActiveXdo

    oActiveX := TActiveX():New( oParent, "Shell.Explorer.2", nT, nL, nW, nH )

    oActivex:Silent := .T. // aqui silence... en el script.

    oActiveX:Do( "Navigate2", cUrl )

    oActivex:SetFocus()

    WHILE oActivex:Busy
        SysWait(.2)
    ENDDO

    oActiveXdo := oActiveX:Document()

    oHttp := oActiveX:GetProp( "Document" ) // -> Object Document


    if Empty( oHttp )
        MsgInfo( "Problemas en el Site...", ;
             "Problemas en el Site..." )
        RETURN( .F. )
    endif
Return oActiveX

method PEDIR_TOKEN ()                   class TApiBBVA

    local oHttp, cCadena, aRespuesta

    try
        oHttp := CreateObject (::cNomObjOLE)
    catch
        ? 'Error de creacion oHttp'
        return .t.
    end

    oHttp:Open ( "POST" , ::cUrl + "?grant_type=authorization_code" + ;
             "&code=" + ALLTRIM (::cCode)                     + ;
             "&redirect_uri=" + ::cRedirect_Uri, .f. )
    oHttp:SetRequestHeader ( "Authorization", ;
             "Basic " + cMimeEnc(::cAppID + ':' + ::cSecretID) )

    try
        oHttp:Send ()
    catch
        ? 'Error en Send Token'
        return .t.
    end
    cCadena := oHttp:responseText
*   HB_MemoWrit ( ::cFicTok, cCadena, .f. )
    aRespuesta := hb_jsonDecode (cCadena)

    if hb_HHaskey ( aRespuesta, 'access_token' )
        ::cToken := aRespuesta ['access_token']
    endif
    oHttp := Nil
return ! EMPTY ( ::cToken )

method PEDIR_EXTRACTO ()                class TApiBBVA

    local oHttp, cUrl, cCadena

    cURL       := "https://apis.bbva.com/business-accounts-sbx/v1/statements/aeb43"
    try
        oHttp := CreateObject (::cNomObjOLE)
    catch
        ? 'Error de creacion oHttp'
        return .t.
    end
    oHttp:Open ( "GET" , cUrl, .f. )
    oHttp:SetRequestHeader ( "Content-Type", "application/json")
    oHttp:SetRequestHeader ( "Accept", "application/json")
    oHttp:SetRequestHeader ( "Authorization", "jwt " + ::cToken )
    oHttp:SetRequestHeader ( "Host", "apis.bbva.com" )

    try
        oHttp:Send ()
    catch
        ? 'Error en Send'
        return .t.
    end
    cCadena := oHttp:responseText
    HB_MemoWrit ( ::cFicJSon, cCadena, .f. )
    oHttp := Nil
return Nil
 

Code: Select all | Expand

    oApiBBVA := TApiBBVA():new ()            && Pasar como parámetro la ventana padre

    oApiBBVA:EXTRACTO ()