Estimados,
Estoy trabajando con webservices y tengo la siguiente inquietud al momento de utilizar los metodos POST y GET.
El web service esta alojado en esta URL
Para probar el servicio y depurar consultas se puede usar esta pagina:
El servicio espera dos parámetros, uno GET, siempre es el mismo f=ws, de modo que hay que llamar a la url de esta manera
y el otro parámetro es POST, mensaje. El mensaje se envía en formato xml de acuerdo a la siguiente especificación:
[b:160d7b16]EJEMPLO DE MENSAJE DE LLAMADA InteraccionFarmacologica[/b:160d7b16] (se puede colocar en la pagina de pruebas)COLFARMRN SISTEMAS RNFM00001 COLFARMRN InteraccionFarmacologica 1.0.1 xml AlfaBeta 35142 12907
[b:160d7b16]EJEMPLO XML de respuesta[/b:160d7b16]COLFARMRN SISTEMAS RNFM00001 COLFARMRN 1 InteraccionFarmacologica 1.0.1 xml AlfaBeta 35142 12907 04/03/16 01:03:53 2645 Interacciones encontradas: 1 Interaccion 1 IBUPROFENO ENALAPRIL IBUPIRAC 600 MG ENALAPRIL RICHET
Los AINE pueden disminuir el efecto antihipertensivo y natriurético de los IECA,
el mecanismo puede implicar la atenuación de la efectividad de los agentes antihipertensivos
secundario a la interferencia con la producción de prostaglandinas vasodilatadoras y natriuréticas
que son estimuladas por los agentes antihipertensivos. Si bien no se conocen interacciones
farmacocinéticas significativas entre los AINE y los inhibidores de la ECA, la combinación
de los AINE y los inhibidores de la ECA pueden producir efectos secundarios tales como
bradicardia marcada debido a hiperpotasemia. Se debe monitorear la eficacia antihipertensiva
en especial en la insuficiencia renal, en pacientes ancianos, en pacientes deshidratados.
Cuando el uso concomitante es necesario, monitorear la eficacia antihipertensiva de los IECA
y la función renal periódicamente para detectar signos de insuficiencia renal.
/////////////////////////////////////////////////////////////////////////////////////////////////////
[b:160d7b16]
ESTE ES UN EJEMPLO DE MI FUNCION CONSULTAR() QUE NO OBTIENE LOS VALORES DE RESULTADO COMO EN EL EJEMPLO[/b:160d7b16]
/////////////////////////////////////////////////////////////////////////////////////////////////////
//.......................
FUNCTION Consultar()
//......................
local odoc,ohttp,cUrl,cXml
//..crea objeto XML
TRY
oHttp:=createobject( 'Microsoft.XMLHTTP')
CATCH
try
oHttp:=createobject( 'Microsoft.XMLHTTP')
catch
Alert('Error en la creacion del objeto Microsoft.XMLHTTP : ' + Ole2TxtError())
return .F.
end
END
//.. Creo Objeto XML
TRY
oDoc := CreateObject( 'MSXML2.DOMDocument' )
CATCH
try
oDoc := CreateObject( 'MSXML2.DOMDocument' )
catch
Alert('Error en la creacion del objeto MSXML2.DOMDocument : ' + Ole2TxtError())
return .F.
end
END
cUrl:="http://ws.medicamentosrothlin.com.ar/?f=ws"
cXml:=''
cXml+='' + CRLF
cXml+='' + CRLF
cXml+='' + CRLF
cXml+=' COLFARMRN ' + CRLF
cXml+=' SISTEMAS ' + CRLF
cXml+=' RNFM00001 ' + CRLF
cXml+=' COLFARMRN ' + CRLF
cXml+=' ' + CRLF
cXml+=' ' + CRLF
cXml+=' InteraccionFarmacologica ' + CRLF
cXml+=' 1.0.1 ' + CRLF
cXml+=' xml ' + CRLF
cXml+=' ' + CRLF
cXml+=' ' + CRLF
cXml+=' ' + CRLF
cXml+=' AlfaBeta ' + CRLF
cXml+=' 35142 ' + CRLF
cXml+=' 12907 ' + CRLF
cXml+=' ' + CRLF
cXml+=' ' + CRLF
cXml+=' ' + CRLF
PREGUNTA : Como debería hacer para que GET y POST funcionen correctamente y obtener una respuesta del webservice como la del ejemplo...??
///......................
oHttp:Open( 'POST' , cUrl , .F. )
oDoc:LoadXML( cXml ) //carga el documento a xml
oHttp:send(oDoc:xml) // envio xml
cRespuesta:= oHttp:responseText
? cRespuesta
//.....................
retu .t.
Muchas gracias,
Saludos Mariano
↧