[16:22:07] Fábio Alexandre Silveira: Pessoal, com a rotina abaixo consegui consumir o serviço RestFULL com o mobile.
//Retorno ao Httprequest
ResCode is Buffer
lstlotLocal is ResultLoteLocal//Minha class
//Dados de Envio
sHttpQuery is string
//Minha Variaveis POST
sSistema is string ="999999"
sAssinatura is string = "xyxyxyxyxyxyxyxyxyxyyxxyyxyxy"
sUnidade is string = "999"
//Dados de user
bufBUser is Buffer = "MyUser"
bufBPassword is Buffer = "XYXYXYXYXYXYXYYXYXYXYX"
//
bufSAuthenticacaoBasc is Buffer = Crypt(StringBuild("%1:%2",bufBUser,bufBPassword), "", cryptNone )
//Varialvel para armazenar dados do codigo de contagem e codigo do local
sCodContange is string
sCodLocal is string
//Limpa o looper
LooperDeleteAll(LOOP_LOTESCONTAGEM)
//Cria o formulário de envio
HTTPCreateForm("FORM")
HTTPAddParameter( "FORM","sistema",sSistema)
HTTPAddParameter( "FORM","assinatura",sAssinatura)
HTTPAddParameter( "FORM","unidade,",sUnidade)
IF NoSpace( EDT_CODLOTE)="" THEN
//GET para a lista de lotes. Para o caso, onde o usuário não informou contagem e local
//API
sHttpQuery = URLEncode(StringBuild ("https://Seu _dominio:sua_porta/Sua API?sistema=%1&assinatura=%2&unidade=%3",sSistema,sAssinatura,sUnidade))
ELSE
sCodContange = ExtractString(EDT_CODLOTE,1,"-",FromBeginning)
sCodLocal = ExtractString(EDT_CODLOTE,2,"-",FromBeginning)
IF sCodLocal = EOT OR sCodLocal="" THEN
Info("Favor informar código do local")
RETURN
END
HTTPAddParameter( "FORM","Parametro_1",sCodContange)
HTTPAddParameter( "FORM","Parametro_1",sCodLocal)
//API
sHttpQuery = URLEncode( StringBuild( "https://Seu _dominio:sua_porta/Sua_API?sistema=%1&assinatura=%2&unidade=%3&contagem=%4&local=%5",sSistema,sAssinatura,sUnidade,sCodContange,sCodLocal))
END
//Authentica requsição
<COMPILE IF ConfigurationType=Android OR ConfigurationType=iOS>
HTTP.IgnoreError =httpIgnoreInvalidCertificateName
<END>
//POST
ResStart is boolean = HTTPSendForm("FORM","Sua_Dominio",httpPost,"","Authorization: Basic" + bufSAuthenticacaoBasc ,"application/json")
//GET
ResStart = HTTPSendForm("FORM",sHttpQuery,httpGet,"","Authorization: Basic " + bufSAuthenticacaoBasc ,"application/json")
IF ResStart = True THEN
//Resgata o valor da consulta
ResCode= HTTPGetResult()
IF ResCode <> "" THEN
//Desserializao json na classe LotesLocais
Deserialize(lstlotLocal,ResCode,psdJSON)
//Carrega o controle looper
FOR i = 1 TO ArrayCount(lstlotLocal.lista)
LooperAddLine(LOOP_LOTESCONTAGEM,lstlotLocal.lista[i].idContagem,lstlotLocal.lista[i].descricaoLocal,lstlotLocal.lista[i].qtdNiveis,lstlotLocal.lista[i].qtdEndereco,lstlotLocal.lista[i].qtdProdutos)
END
ELSE
Info("Registro não encontrado!")
<COMPILE IF ConfigurationType=Android>
SetFocus(EDT_CODLOTE)
<END>
END
//Envia mensagem de erro
Error(ErrorInfo(errFullDetails ))
END
CASE EXCEPTION:
Error( ExceptionInfo(errFullDetails))
[16:22:22] Fábio Alexandre Silveira: Espero que ajude.
