×
Linguagem de Programação ADVPL
Perguntas Retorno Webservice
- luis10075
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 98
- Obrigados Recebidos: 1
10 anos 9 meses atrás #21023
por luis10075
Retorno Webservice foi criado por luis10075
Buenos dias, necesito ayuda, estoy consumiendo un webservice, pero no consigo obtener Retorno
La estructura del Method es el que sigue:
// WSDL Method registraOrden of Service WSSpeiServicesImplService
WSMETHOD registraOrden WSSEND oWSordenPago WSRECEIVE oWSspeiServiceResponse WSCLIENT WSSpeiServicesImplService
Local cSoap := "" , oXmlRet
BEGIN WSMETHOD
cSoap += '<h2h:registraOrden xmlns:h2h=" h2h.integration.spei.enlacefi.lgec.com/ ">'
cSoap += WSSoapValue("ordenPago", ::oWSordenPago, oWSordenPago , "ordenPagoWS", .F. , .F., 0 , NIL, .F.)
cSoap += "</h2h:registraOrden>"
oXmlRet := SvcSoapCall( Self,cSoap,;
"",;
"DOCUMENT"," h2h.integration.spei.enlacefi.lgec.com/ ",,,;
" demo.stpmex.com:7004/speidemo/webservices/SpeiServices ")
::Init()
::oWSspeiServiceResponse:SoapRecv( WSAdvValue( oXmlRet,"_REGISTRAORDENRESPONSE:_RETURN","speiServiceResponse",NIL,NIL,NIL,NIL,NIL,"tns") )
END WSMETHOD
oXmlRet := NIL
Return .T.
Con este fuente estoy realizando los testes
#Include 'Protheus.ch'
#Include 'APWEBSRV.CH'
User Function TESTSTP()
Local oSw0 := WSSpeiServicesImplService():New()
oSw0:OWSORDENPAGO:cclaveRastreo := "ARJ0000000014"
oSw0:OWSORDENPAGO:ccuentaBeneficiario := "123456789012345678"
oSw0:OWSORDENPAGO:CCONCEPTOPAGO := "PAGO PROVEEDOR"
oSw0:OWSORDENPAGO:cemailBeneficiario := "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."
oSw0:OWSORDENPAGO:cempresa := "ARJ"
oSw0:OWSORDENPAGO:nfechaOperacion := 20140213
oSw0:OWSORDENPAGO:cfirma := "SADFGDSDDF"
oSw0:OWSORDENPAGO:ninstitucionContraparte := 40131
oSw0:OWSORDENPAGO:ninstitucionOperante := 90646
oSw0:OWSORDENPAGO:nmonto := 1000
oSw0:OWSORDENPAGO:cnombreBeneficiario := "WATERS, S.A. DE C.V."
oSw0:OWSORDENPAGO:nreferenciaNumerica := 16907
oSw0:OWSORDENPAGO:ntipoCuentaBeneficiario := 40
oSw0:OWSORDENPAGO:ntipoPago := 1
oSw0:registraorden()
Return
Anexo imagen de debug, alguien me puede apoyar, saludos desde Mexico!!!
La estructura del Method es el que sigue:
// WSDL Method registraOrden of Service WSSpeiServicesImplService
WSMETHOD registraOrden WSSEND oWSordenPago WSRECEIVE oWSspeiServiceResponse WSCLIENT WSSpeiServicesImplService
Local cSoap := "" , oXmlRet
BEGIN WSMETHOD
cSoap += '<h2h:registraOrden xmlns:h2h=" h2h.integration.spei.enlacefi.lgec.com/ ">'
cSoap += WSSoapValue("ordenPago", ::oWSordenPago, oWSordenPago , "ordenPagoWS", .F. , .F., 0 , NIL, .F.)
cSoap += "</h2h:registraOrden>"
oXmlRet := SvcSoapCall( Self,cSoap,;
"",;
"DOCUMENT"," h2h.integration.spei.enlacefi.lgec.com/ ",,,;
" demo.stpmex.com:7004/speidemo/webservices/SpeiServices ")
::Init()
::oWSspeiServiceResponse:SoapRecv( WSAdvValue( oXmlRet,"_REGISTRAORDENRESPONSE:_RETURN","speiServiceResponse",NIL,NIL,NIL,NIL,NIL,"tns") )
END WSMETHOD
oXmlRet := NIL
Return .T.
Con este fuente estoy realizando los testes
#Include 'Protheus.ch'
#Include 'APWEBSRV.CH'
User Function TESTSTP()
Local oSw0 := WSSpeiServicesImplService():New()
oSw0:OWSORDENPAGO:cclaveRastreo := "ARJ0000000014"
oSw0:OWSORDENPAGO:ccuentaBeneficiario := "123456789012345678"
oSw0:OWSORDENPAGO:CCONCEPTOPAGO := "PAGO PROVEEDOR"
oSw0:OWSORDENPAGO:cemailBeneficiario := "Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo."
oSw0:OWSORDENPAGO:cempresa := "ARJ"
oSw0:OWSORDENPAGO:nfechaOperacion := 20140213
oSw0:OWSORDENPAGO:cfirma := "SADFGDSDDF"
oSw0:OWSORDENPAGO:ninstitucionContraparte := 40131
oSw0:OWSORDENPAGO:ninstitucionOperante := 90646
oSw0:OWSORDENPAGO:nmonto := 1000
oSw0:OWSORDENPAGO:cnombreBeneficiario := "WATERS, S.A. DE C.V."
oSw0:OWSORDENPAGO:nreferenciaNumerica := 16907
oSw0:OWSORDENPAGO:ntipoCuentaBeneficiario := 40
oSw0:OWSORDENPAGO:ntipoPago := 1
oSw0:registraorden()
Return
Anexo imagen de debug, alguien me puede apoyar, saludos desde Mexico!!!
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.320 segundos