Api FitCard maquina de Cartao

NADIRONUNES Qua 13 Dez 2023, 5:46 pm

NADIRONUNES: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010

Mensagem NADIRONUNES Qua 13 Dez 2023, 5:46 pm

boa tarde a todos

tenho acessar o site e busco os valores passado na maquina

ai conseguiu essa api do site pra integracao

Código:: http://api.sisatec.com.br/credenciado/v1/Credenciado/GetVendasCombustivel?terminal=@codigo&key=@token&inicio=@data_inicial&fim=@data_final&empresa=1 @token 57A0CD36D0FEE5953F66B29FAD58ABB407ADDF1F @codigo 1302184229 @data_inicial Formato: dd/MM/yyyy @data_final Formato: dd/MM/yyyy data DateTime Data da transação hora string Hora da transação valorTransacao double Valor total da transação

NADIRONUNES Ter 23 Jul 2024, 9:39 pm

NADIRONUNES: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 578
Registrado : 30/08/2010

Mensagem NADIRONUNES Ter 23 Jul 2024, 9:39 pm

up

nao to conseguindo a parte do codigo json, nao sei nem por onde começa

to tentando com esse codigo

Código:: Public Function BusqFitCard() Dim tokenFit, codigoFit As String, tes As String Dim strURL_API As String Dim vStatus As String Dim xmlHttp As New MSXML2.xmlHttp Dim Dom As New DOMDocument Dim o As Object Dim j As JsonLib Dim json As String Set j = New JsonLib Parametros_de_Periodo "SysData.jas" Filtrx = Format(M_I, "mm/dd/yyyy") & "' AND '" & Format(M_F, "mm/dd/yyyy") token = "57A0CD36D0FEE5953F66B29FAD58ABB407ADDF1F" Codigo = "1302184229" strURL_API = "http://api.sisatec.com.br/credenciado/v1/Credenciado/GetVendasGestao?terminal=" & Codigo & "&key=" & token & "&inicio=" & Format(M_I, "dd/mm/yyyy") & "&fim=" & Format(M_F, "dd/mm/yyyy") & "&empresa=1" vStatus = URLExists(strURL_API) If vStatus = True Then xmlHttp.Open "GET", strURL_API, False xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" xmlHttp.send json = xmlHttp.responseText Set o = j.parse(json) tes = o.Item("codigo").Item(0).Item("text") MsgBox tes Else End If End Function