Nesse vídeo demonstraremos a utilização da função HttpPost, que serve para enviar um POST para uma API.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe302
Aciona uma requisição POST para uma página da internet
@type  Function
@author Atilio
@since 22/02/2023
@see https://tdn.totvs.com/display/tec/HttpPost
@obs 

    Função HttpPost
    Parâmetros
        + cUrl       , Caractere    , Indica a URL que será feito o POST
        + cGetParms  , Caractere    , Indica os parâmetros que serão passados na requisição GET
        + cPostParms , Caractere    , Indica os parâmetros que serão passados na requisição POST
        + nTimeOut   , Numérico     , Indica um número de segundos para timeout
        + aHeadStr   , Array        , Indica um array com os headers da requisição
        + cHeaderGet , Caractere    , Busca o retorno dos headers da requisição (passar por referência com @)
    Retorno
        + cRet       , Caractere    , Retorna uma string que corresponde a solicitação

    Obs.: Exemplo original em https://terminaldeinformacao.com/2020/08/06/exemplo-de-integracao-com-viacep-usando-fwrest/

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe302()
    Local aArea         := FWGetArea()
    Local cResult       := ''
    Local cCep          := '17054679'

    //Aciona a requisição via HttpPost
    cResult := HttpPost(;
        "https://viacep.com.br/ws/" + cCep + "/json/",; // cURL
        ,; // cGetParms
        ,; // nTimeOut
        ,; // aHeadStr
        ;  // cHeaderGet
    )
 
    //Exibe o resultado que veio do WS
    ShowLog(cResult)

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++