SEND - DISP_E_MEMBERNOTFOUND

[cMach]

Obrigado José Quintas e Kapiaba pela ajuda!
uffa, o disp_e_membernotfound resolveu com a mudança do componente!!!! Agora preciso ler um arquivo json de retorno. Sabem se tem alguma documentação do xharbour a respeito?

Exemplo de retorno:

Código: Selecionar todos

{
    "message": "Evento sendo enviado para SEFAZ",
    "data": {
        "id": "fbc57a93-2b33-2f9c-a44f-12341lskdw02",
        "status_envio": {
            "codigo": "50",
            "mensagem": "Lote Recebido com Sucesso"
        } 
        "ambiente": "2",
    }
}

Exemplo de retorno com erro:

Código: Selecionar todos

{
    "error": {
        "message": "Campo \"cpfcnpjtransmissor\" deve ser informado no TX2." 
    }
}

Jairo Maia: Mensagem editada para colocar a tag

Código: Selecionar todos

[/b]. Veja como utilizar esta tag [url=https://pctoledo.org/forum/viewtopic.php?f=40&t=11910&p=68144#p68144]Clicando aqui.[/url][/quote]

[Kapiaba]

Mostre a função completa, não techo de mensagem. Não me diz nada. Ou quase nada.

[cMach]

Kapiaba,
Não desenvolvi a função ainda. Este post é um arquivo jSON de retorno.

[Kapiaba]

Entendi onde você pegou essa mensagem sem sentido:

https://atendimento.tecnospeed.com.br/h ... os-eventos

Algo assim?

Código: Selecionar todos

function ConverBase64()

    local user := "myUser"
    local pass := "myPass"
    local cBas64 := hb_base64encode(user+":"+pass,len(user+":"+pass))
   
    local enviar
    local respuesta
    local aHasRes
    local elemento
    Local cText

    //leemos el archivo.gz y lo convertimos base 64
    fMimeEnc( "c:\archivo.gz", "c:\archivo")

    //colocamos contenido en variable
    cText := MemoRead( "c:\archivo" )

    ohttp := CreateObject( "MSXML2.XMLHTTP" )
    ohttp:Open( "POST" ,"https://myurl",.F.)
    oHttp:SetRequestHeader("cache-control", "no-cache")
    ohttp:SetRequestHeader("content-type", "application/json" )
    ohttp:SetRequestHeader("authorization", "Basic "+cBas64 )

    TRY

      ohttp:Send( cText )

    CATCH

        msginfo("No Se Pudo Enviar archivo","Nuevamente")

        return .t.

    END

    response := ohttp:responseText

    aHasRes := hash()

    hb_jsondecode(response ,@aHasRes) //Parse JSON to hash

    xBrowse( aHasRes )

return nil