|
Transcrição CURL Php em HTTPREQUEST Wx |
Iniciado por BOLLER, dez., 13 2019 5:27 PM - 9 respostas |
| |
| | | |
|
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em dezembro, 13 2019 - 5:27 PM |
sClientID é string = sClient_Id sClientSecret é string = sClient_Secret sUserLogin é string = sUser_Login sUserPassword é string = sUserMot_de_Passe sURL é string = " http://e.Site.fr/oauth2/token.php "
sM_sHTTPUrl é uma string = "grant_type = senha & senha =" + sUserPassword + "& username =" + sUserLogin
cMyRequest é HTTPRequest cMyRequest..Method = httpPost cMyRequest..URL = sURL cMyRequest..User = sClientID cMyRequest = sClientID cMyRequest .. "application / x-www-form-urlencoded" cMyRequest ..Conteúdo = StringToUTF8 (sM_sHTTPUrl) cMyResponse é httpResponse = HTTPSend (cMyRequest)
sClientID est une chaîne = sClient_Id sClientSecret est une chaîne = sClient_Secret sUserLogin est une chaîne =sUser_Login sUserPassword est une chaîne =sUserMot_de_Passe sURL est une chaîne ="http://e.Site.fr/oauth2/token.php"
sM_sHTTPUrl est une chaîne = "grant_type=password&password="+sUserPassword+"&username="+sUserLogin
cMyRequest is httpRequest cMyRequest..Method = httpPost cMyRequest..URL = sURL cMyRequest..User=sClientID cMyRequest..Password=sClientSecret cMyRequest..ContentType = "application/x-www-form-urlencoded" cMyRequest..Content = StringToUTF8(sM_sHTTPUrl) cMyResponse is httpResponse = HTTPSend(cMyRequest)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 20 2020 - 2:34 PM |
CODIGO_USUARIO is int = 0 Memed_ApiRest_Homologacao("https://SANDBOX.api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_USUARIO,"","DELETE")
CODIGO_USUARIO = 0 Memed_ApiRest_Producao("https://api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_USUARIO,"","DELETE")
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 20 2020 - 2:35 PM |
Memed_ApiRest_Homologacao("https://SANDBOX.api.memed.com.br/v1/especialidades","","GET")
Memed_ApiRest_Producao("https://api.memed.com.br/v1/especialidades","","GET")
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 22 2020 - 9:16 PM |
Procedure Ws_Memed_01_Medico_Criar(gsUser, gsPassword, external_id, nome, sobrenome, data_nascimento, cpf, Email, uf, sexo, crm, cidade, Especialidade, AMBIENTE)
arr_resultado is array of string
IF gsUser = gloUser AND gsPassword = gloPassword sJsonCriarUsuario is string = [ { "data": { "type": "usuarios", "attributes": { "external_id": @ID_EXTERNO@, "nome": "@nome@", "sobrenome": "@sobrenome@", "data_nascimento": "@data_nascimento@", "cpf": "@cpf@", "email": "@email@", "uf": "@uf@", "sexo": "@sexo@", "crm": "@crm@" }, "relationships": { "cidade": { "data": { "type": "cidades", "id": "@cidade@" } }, "especialidade": { "data": { "type": "especialidades", "id": "@especialidades@" } } } } } ] sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@ID_EXTERNO@",external_id) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@nome@",nome) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@sobrenome@",sobrenome) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@data_nascimento@",data_nascimento) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@cpf@",cpf) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@email@",Email) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@uf@",uf) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@sexo@",sexo) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@crm@",crm) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@cidade@",cidade) sJsonCriarUsuario = Replace(sJsonCriarUsuario,"@especialidades@",Especialidade) Resultado is Variant IF AMBIENTE = "HOMOLOGACAO" Resultado= Ws_ApiRest_Memed_Homologacao("https://SANDBOX.api.memed.com.br/v1/sinapse-prescricao/usuarios","",sJsonCriarUsuario,"POST") ELSE IF AMBIENTE = "PRODUCAO" Resultado= Ws_ApiRest_Memed_Producao("https://api.memed.com.br/v1/sinapse-prescricao/usuarios","",sJsonCriarUsuario,"POST") END sResultado_Content is string = Resultado[1] sResultado_ContentType is string = Resultado[2] sResultado_StatusCode is string = Resultado[3] Add(arr_resultado,Resultado[1]) END
RESULT arr_resultado
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 22 2020 - 9:17 PM |
Procedure Ws_Memed_02_Medico_Alterar(gsUser, gsPassword, CODIGO_DO_USUARIO, nome, sobrenome, sexo, cpf, Email, data_nascimento, uf, id_especialidade, id_cidade, AMBIENTE)
arr_resultado is array of string
IF gsUser = gloUser AND gsPassword = gloPassword sJson_sinapse_prescricao is string = [ { "data": { "type": "usuarios", "attributes": { "nome": "@nome@", "sobrenome": "@sobrenome@", "sexo": "@sexo@", "cpf": "@cpf@", "email": "@email@", "data_nascimento": "@data_nascimento@", "uf": "@uf@" }, "relationships": { "especialidade": { "data": { "type": "especialidades", "id": "@id_especialidade@" } }, "cidade": { "data": { "type": "cidades", "id": "@id_cidade@" } } } } } ] sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@nome@",nome) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@sobrenome@",sobrenome) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@sexo@",sexo) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@cpf@",cpf) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@email@",Email) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@data_nascimento@",data_nascimento) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@uf@",uf) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@id_especialidade@",id_especialidade) sJson_sinapse_prescricao = Replace(sJson_sinapse_prescricao,"@id_cidade@",id_cidade) Resultado is Variant IF AMBIENTE = "HOMOLOGACAO" Resultado= Ws_ApiRest_Memed_Homologacao("https://SANDBOX.api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_DO_USUARIO,"",sJson_sinapse_prescricao,"PATCH") ELSE IF AMBIENTE = "PRODUCAO" Resultado= Ws_ApiRest_Memed_Producao("https://api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_DO_USUARIO,"",sJson_sinapse_prescricao,"PATCH") END Add(arr_resultado,Resultado[1]) END
RESULT arr_resultado
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 22 2020 - 9:17 PM |
Procedure Ws_Memed_03_Medico_Excluir(gsUser, gsPassword, CODIGO_USUARIO, AMBIENTE)
arr_resultado is array of string
IF gsUser = gloUser AND gsPassword = gloPassword Resultado is Variant IF AMBIENTE = "HOMOLOGACAO" Resultado= Ws_ApiRest_Memed_Homologacao("https://SANDBOX.api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_USUARIO,"","","DELETE") ELSE IF AMBIENTE = "PRODUCAO" Resultado= Ws_ApiRest_Memed_Producao("https://api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_USUARIO,"","","DELETE") END sResultado_Content is string = Resultado[1] sResultado_ContentType is string = Resultado[2] sResultado_StatusCode is string = Resultado[3] Add(arr_resultado,Resultado[1]) END
RESULT arr_resultado
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 22 2020 - 9:18 PM |
Procedure Ws_Memed_04_Medico_Recuperar_Token(gsUser, gsPassword, CODIGO_USUARIO, AMBIENTE)
arr_resultado is array of string
IF gsUser = gloUser AND gsPassword = gloPassword Resultado is Variant IF AMBIENTE = "HOMOLOGACAO" Resultado= Ws_ApiRest_Memed_Homologacao("https://SANDBOX.api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_USUARIO,"","","GET") ELSE IF AMBIENTE = "PRODUCAO" Resultado= Ws_ApiRest_Memed_Producao("https://api.memed.com.br/v1/sinapse-prescricao/usuarios/"+CODIGO_USUARIO,"","","GET") END sResultado_Content is string = Resultado[1] sResultado_ContentType is string = Resultado[2] sResultado_StatusCode is string = Resultado[3] Add(arr_resultado,Resultado[1]) END
RESULT arr_resultado
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 22 2020 - 9:19 PM |
//Método de envio e retorno usado nas funções acima (Homologacao):
Procedure Ws_ApiRest_Memed_Homologacao(sUrl, Token, sJson, TipoGetPost)
arrayResultado is array of string
IF sUrl <> "" AND TipoGetPost <> "" rest_request is restRequest rest_response is restResponse sAPIKEY is string = "iJGiB4kjDGOLeDFPWMG3no9VnN7Abpqe3w1jEFm6olkhkZD6oSfSmYCm" sSECRETKEY is string = "Xe8M5GvBGCr4FStKfxXKisRo3SfYKI7KrTMkJpCAstzu2yXVN4av5nmL" IF Token = "" THEN sUrl = sUrl+"?api-key=[%sAPIKEY%]&secret-key=[%sSECRETKEY%]" ELSE sUrl = sUrl+"?token="+ Token END fSaveText("C:\TEMP\MEMED_ENVIO.JSON",sJson) rest_request..URL = sUrl rest_request.ContentType = typeMimeJSON IF sJson <> "" rest_request.Content = sJson END IF Upper(TipoGetPost) = "POST" rest_request.Method = httpPost ELSE IF Upper(TipoGetPost) = "GET" rest_request.Method = httpGet ELSE IF Upper(TipoGetPost) = "DELETE" rest_request.Method = httpDelete ELSE IF Upper(TipoGetPost) = "PUT" rest_request.Method = httpPut ELSE IF Upper(TipoGetPost) = "COPY" rest_request.Method = httpCopy ELSE IF Upper(TipoGetPost) = "HEAD" rest_request.Method = httpHead ELSE IF Upper(TipoGetPost) = "PATCH" rest_request.Method = httpPatch END rest_request.Header["Accept"] = "application/vnd.api+json" rest_response = HTTPSend(rest_request) fSaveText("C:\TEMP\MEMED_RETORNO.JSON",rest_response..Content) Add(arrayResultado,rest_response..Content) Add(arrayResultado,rest_response..ContentType) Add(arrayResultado,rest_response..StatusCode) Add(arrayResultado,rest_response..DescriptionStatusCode) END
RESULT arrayResultado
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 22 2020 - 9:20 PM |
//Método de envio e retorno usado nas funções acima (Producao):
Procedure Ws_ApiRest_Memed_Producao(sUrl, Token, sJson, TipoGetPost)
arrayResultado is array of string
IF sUrl <> "" AND TipoGetPost <> "" rest_request is restRequest rest_response is restResponse sAPIKEY is string = "iJGiB4kjDGOLeDFPWMG3no9VnN7Abpqe3w1jEFm6olkhkZD6oSfSmYCm" sSECRETKEY is string = "Xe8M5GvBGCr4FStKfxXKisRo3SfYKI7KrTMkJpCAstzu2yXVN4av5nmL" IF Token = "" THEN sUrl = sUrl+"?api-key=[%sAPIKEY%]&secret-key=[%sSECRETKEY%]" ELSE sUrl = sUrl+"?token="+ Token END fSaveText("C:\TEMP\MEMED_ENVIO.JSON",sJson) rest_request..URL = sUrl rest_request.ContentType = typeMimeJSON IF sJson <> "" rest_request.Content = sJson END IF Upper(TipoGetPost) = "POST" rest_request.Method = httpPost ELSE IF Upper(TipoGetPost) = "GET" rest_request.Method = httpGet ELSE IF Upper(TipoGetPost) = "DELETE" rest_request.Method = httpDelete ELSE IF Upper(TipoGetPost) = "PUT" rest_request.Method = httpPut ELSE IF Upper(TipoGetPost) = "COPY" rest_request.Method = httpCopy ELSE IF Upper(TipoGetPost) = "HEAD" rest_request.Method = httpHead ELSE IF Upper(TipoGetPost) = "PATCH" rest_request.Method = httpPatch END rest_request.Header["Accept"] = "application/vnd.api+json" rest_response = HTTPSend(rest_request) fSaveText("C:\TEMP\MEMED_RETORNO.JSON",rest_response..Content) Add(arrayResultado,rest_response..Content) Add(arrayResultado,rest_response..ContentType) Add(arrayResultado,rest_response..StatusCode) Add(arrayResultado,rest_response..DescriptionStatusCode) END
RESULT arrayResultado
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 22 2020 - 9:21 PM |
CODIGO FONTE
https://repository.windev.com/resource.awp…
https://repository.windev.com/resource.awp?file_id=281474976710881;webservice-soap-interagindo-com-webservice-rest-full-api-conversao-curl-para-restsend
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|