Perguntas Protheus x IFOOD

User Function HubStatPed(cTokenLogin,cIdPedidos,cIdStatus,lEnviaEmail,lEnviaEntrega,nDiasEntrega)
Local aArea 		:= GetArea()
Local cUrl			:= 'http://api.ideris.com.br/PedidoStatus'
Local cJsonPed 		:= ''
Local aHeader 		:= {}
Local cHeadRet 		:= ""
Local cHeaderGet 	:= ""
Local oJSon
Local lRet			:= .F.
    
aHeader 		:= {}
cHeadRet 		:= ""
cHeaderGet 	:= ""
aadd(aHeader,'Authorization: '+ (AllTrim(cTokenLogin)) )
aadd(aHeader,'Content-Type: application/json')
aadd(aHeader,'User-Agent: Mozilla/4.0 (compatible; Protheus ' + GetBuild() + ')' )

cjSonPed := '{' + CRLF
cjSonPed += '"idPedidos": "'+AllTrim(cIdPedidos)+'",' + CRLF //ID's que serão alterados para um mesmo status separados por vírgula : string
cjSonPed += '"idNovoStatus":'+AllTrim(cIdStatus)+',' + CRLF // ID do novo status para o(s) pedido(s) informado(s). É possível encontrar a lista de status de pedido do Ideris na ação GET 'PedidoStatus' : int
cjSonPed += '"enviaMensagemClienteML": false,' + CRLF //Caso verdadeiro, irá enviar uma mensagem pré-definida para o cliente (somente Mercado Livre) : booleano
cjSonPed += '"informaEntregaML": false,' + CRLF //Caso verdadeiro, irá informar para o Mercado Livre que o produto foi entregue em mãos (somente Mercado Livre e entrega em mãos) : booleano
cjSonPed += '"informaRastreio": false,' + CRLF //Caso verdadeiro, irá informar o rastreio do envio do produto (ainda não implementado para todos os marketplaces)
cjSonPed += '"diasEstimativa": 1' + CRLF //Uma estimativa do número de dias necessário para realizar a entrega. Necessário somente para alguns marketplaces : int, nullable 
cjSonPed += '}' + CRLF

//cRetJSon := HttpPost(cUrl,'',cjSonPed,160,aHeader,@cHeaderGet)  //encodeUtf8(cjSonProduto,"UTF-8")
cRetJSon := HTTPQuote(cUrl, "PUT", "", cjSonPed, 160, aHeader, @cHeaderGet)
							
nStatusHTTP :=  HttpGetStatus() 

If ( nStatusHTTP == 200 .OR. nStatusHTTP == 201 ) 
    FWJsonDeserialize(encodeUtf8(cRetJSon,"UTF-8"), @oJson)
	IF ( Valtype(oJson) == "O" )
        U_HbLogErro('0','IDERIS: Sucesso Na Atualização de Status Pedido Web No. ' + cIdPedidos,.f.,cRetJSon)
		lRet := .T.
    Endif
ElseIf nStatusHTTP == 429
    Inkey(10)
Else
    U_HbLogErro('4','IDERIS: Falha Na Atualização de Status Pedido Web No. ' + cIdPedidos,.f.,cRetJSon)
Endif
/*