Efetua uma transação utilizando REST

Exemplo 1- Enviando um produto:

	//Cabeçalho
	aHeadPar := {}
	aAdd(aHeadPar, "Content-Type: application/json")
	
	//Conteúdo JSON
	cTexto := '{'                                                                        + CRLF
	cTexto += '  "idEmp": '     + cIDEmpr                                        + ','
	cTexto += '  "codProd": "' + cProduto                                      + '",'
	cTexto += '  "obs": "'      + cObserv                                        + '"'
	cTexto += '}'                                                                        + CRLF
	
	//Monta a conexão com o servidor REST
	oRestClient := FWRest():New(cSilURL) // Ex.: "http://aaaaaaa/v1"
	oRestClient:setPath(cSilEnd) // Ex.: "/produtos"
	
	//Definindo o parâmetro a ser usado no POST
	cTexto := FWNoAccent(cTexto)
	oRestClient:SetPostParams("["+cTexto+"]")
	
	//Publica a alteração, e caso não dê certo, mostra erro
	If ! oRestClient:Post(aHeadPar)
		Aviso('Atenção', 'Houve erro na atualização no servidor!' + CRLF + ;
			'Contate o Administrador!' + CRLF + ;
			"Erro: " + oRestClient:GetLastError() + CRLF + CRLF + ;
			"Result: " + oRestClient:GetResult(), {'OK'}, 03)
	Else
		//Alert("Exportação OK: "+oRestClient:GetResult())
	EndIf

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

Observações:

• Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
• Se tiver sugestões de rotinas, pode entrar em contato;