Ainda não consegui.
a API só funciona com GET e retorna vazio.
Quando faço pelo POSTMAN ou SOAPui retorna o conteudo.
Não sei onde está o meu erro.

Moderador: Moderadores
FUNCTION Cnv64Hash(xHash)
LOCAL xCnv := ""
// convertendo pra base64 - mr, 17/10/19.
//msginfo(xHash)
//msginfo(str(len(xhash),3,0))
xCnv = HB_Base64Encode( xHash, LEN(xHash) ) // converte o conteúdo do arquivo em base64
//msginfo(str(len(xCnv),3,0))
//wCnv := SUBS(xCnv,1,len(xhash))
//msginfo(xCnv)
wCnv := ""
for k = 1 to len(xCnv)
//msginfo('pos: '+str(k,3,0)+' char: '+subs(xCnv,k,1)+' - asc: '+str(asc(subs(xCnv,k,1)),3,0))
// tirando os chr(10) e chr(13) da chave //
xChar := SUBS(xCnv,k,1)
IF ASC(xChar) # 10 .AND. ASC(xChar) # 13
wCnv += xChar
ENDIF
next
RETURN ALLTRIM(wCnV)
cCode := StrTran( cCode, Chr(13) + Chr(10), "" )
Mario Mesquita escreveu:Por isso vc é o mestre, kkkkk Sou todo tosco, já botei no loop...
FOR EACH cLetra IN @cTexto DESCEND
DO CASE
CASE cLetra $ "0123456789"
CASE cLetra $ "abcdefgh..."
CASE cLetra $ "ABCDEFGH..."
CASE cLetra == "é", cLetra := "e"
CASE cLetra == Chr(13); cLetra := ""
CASE cLetra == Chr(10); cLetra := ""
OTHERWISE
? cLetra, Asc( cLetra ), Substr( cTexto, cLetra:__EnumIndex - 10, 20 )
ENDCASE
NEXT
Usuários vendo este fórum: Nenhum usuário registrado online e 5 visitantes