Wsdl
Publicado: Mar Mar 29, 2011 3:13 pm
Tiene que instalar el kit de Soap
Prueba de esta forma ami me funciono, por cierto alguien tiene un ejemplo
basico de CGI con apache
Gracias
LOCAL oSoapClient
Local Consulta :=
" https://www.sepe.es/ccomunicacto/servic ... taDatos?WS DL"
Local Prueba :=
" https://interpreu.sepe.es/ecomunicacto/ ... Comunicaci onDatos?WSDL"
Local Envio :=
" https://www.sepe.es/ccomunicacto/servic ... cacionDato s?WSDL"
oSoapClient := CreateObject( "MSSOAP.SoapClient30" )
WITH OBJECT oSoapClient
:MsSoapInit(Envio)
//::cXml :=
:servicioConsulta("C66XXX","D26XXXXXY","A28XXXXXX","password ",14,99)
::cXml :=
:servicioContratos("","D26XXXXXXY","A28XXXXXX","password ",14,99)
::oMemo1:Value := ::cXml
end
Un Saludo
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5996 (20110329) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com
Prueba de esta forma ami me funciono, por cierto alguien tiene un ejemplo
basico de CGI con apache
Gracias
LOCAL oSoapClient
Local Consulta :=
" https://www.sepe.es/ccomunicacto/servic ... taDatos?WS DL"
Local Prueba :=
" https://interpreu.sepe.es/ecomunicacto/ ... Comunicaci onDatos?WSDL"
Local Envio :=
" https://www.sepe.es/ccomunicacto/servic ... cacionDato s?WSDL"
oSoapClient := CreateObject( "MSSOAP.SoapClient30" )
WITH OBJECT oSoapClient
:MsSoapInit(Envio)
//::cXml :=
:servicioConsulta("C66XXX","D26XXXXXY","A28XXXXXX","password ",14,99)
::cXml :=
:servicioContratos("","D26XXXXXXY","A28XXXXXX","password ",14,99)
::oMemo1:Value := ::cXml
end
Un Saludo
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5996 (20110329) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com