× Linguagem de Programação ADVPL

Perguntas Retorno Webservice

Mais
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!!!

Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.320 segundos
Joomla templates by a4joomla