ayuda para pasar codigo de visual foxpro a xailer

[jjgp2]

Hola a todos
Favor de ayudarme a pasar este codigo de visula foxpro a xailer :
&& Consumir WS.
oXMLHTTP= CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open("POST"," http://pegasotecnologiacfdi.net/ServAdm ... wayQA/Serv iceGateway.svc/Soap11Text",.F.)
oXMLHTTP.SetRequestHeader("Content-Type","text/xml; charset=utf-8")
oXMLHTTP.SetRequestHeader("SOAPAction"," http://namespace.pegasotecnologia.com/S ... nBaseExter nalService/emitirCFD")
oXMLHTTP.Send(oXMLRequest.XML)
=STRTOFILE(oXMLHTTP.ResponseText,"D:oXMLResponse.xml")
esto es lo que yo escribe con xailer pero estoy perdido en las dos ultimas
lineas del codigo anterior y no se si lo que ya escribi este bien :
WITH OBJECT TInternet():New()
IF :Open()
:PostRequest(" http://pegasotecnologiacfdi.net/ServAdm ... wayQA/Serv iceGateway.svc/Soap11Text",.F.)
:AddRequestHeader("Content-Type"+crlf+"text/xml"+crlf+"charset=utf-8 ")
:AddRequestHeader("SOAPAction"," http://namespace.pegasotecnologia.com/S ... nBaseExter nalService/emitirCFD")
Endif
End
por su coperación mil gracias

[ignacio]

Buenos dí­as,
Me temo que su consulta se excede de lo que el servicio de suscripción de Xailer le otorga. Espero que algún otro usuario pueda echarle una mano. Si lo desea puede consultar nuestro servicio XCS.
Un saludo

[Cassiano de Oliveira]

José segue em anexo projeto para ajudá-lo, como não tenho o schema do
webservices não pude criar o XML mais adequado, porém acredito que o colega
analisando o projeto em anexo conseguirá dar andamento.
[]´s
"José de Jesús Garcí­a" wrote in message news:51e8839a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Hola a todos
Favor de ayudarme a pasar este codigo de visula foxpro a xailer :
&& Consumir WS.
oXMLHTTP= CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open("POST"," http://pegasotecnologiacfdi.net/ServAdm ... wayQA/Serv iceGateway.svc/Soap11Text",.F.)
oXMLHTTP.SetRequestHeader("Content-Type","text/xml; charset=utf-8")
oXMLHTTP.SetRequestHeader("SOAPAction"," http://namespace.pegasotecnologia.com/S ... nBaseExter nalService/emitirCFD")
oXMLHTTP.Send(oXMLRequest.XML)
=STRTOFILE(oXMLHTTP.ResponseText,"D:oXMLResponse.xml")
esto es lo que yo escribe con xailer pero estoy perdido en las dos ultimas
lineas del codigo anterior y no se si lo que ya escribi este bien :
WITH OBJECT TInternet():New()
IF :Open()
:PostRequest(" http://pegasotecnologiacfdi.net/ServAdm ... wayQA/Serv iceGateway.svc/Soap11Text",.F.)
:AddRequestHeader("Content-Type"+crlf+"text/xml"+crlf+"charset=utf-8 ")
:AddRequestHeader("SOAPAction"," http://namespace.pegasotecnologia.com/S ... nBaseExter nalService/emitirCFD")
Endif
End
por su coperación mil gracias
--

Attached files tstSOAP.zip (3.8 KB)Â

[jfgimenez]

José,
prueba con el código original de VFP, cambiando simplemente los puntos
(.) por dos puntos (:) en todas las instrucciones.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[jjgp2]

Muchas gracias por su ayuda
ya logre avansar con el proyecto el codigo quedo asi :
PUBLIC
oXMLRequest,oRaiz,oRequestCFD,oComprobante,oTransaccion,oTip oComprobante,oSucursal,oReceptor
//oXMLRequest:= CREATEOBJECT("Msxml2:DOMDocument")
oXMLRequest:= win_oleCREATEOBJECT("MSXML2.DOMDocument.5.0")
oXMLRequest:async := .T.
oXMLRequest:Load("D:cfdipegasoArchivos
adjuntos_2013620RequestEmitir.xml")
&& soapenv:Envelope
oRaiz:= oXMLRequest:documentElement
&& soapenv:Body scfd:emitirCFD scfd:PoRequestCFD RequestCFD
oRequestCFD:=
oRaiz:childNodes:Item(1):childNodes:Item(0):childNodes:Item( 0):childNodes:Item(0)
oComprobante:= oRequestCFD:childNodes:Item(0)
oTransaccion:= oRequestCFD:childNodes:Item(1)
oTipoComprobante:= oRequestCFD:childNodes:Item(2)
oSucursal:= oRequestCFD:childNodes:Item(3)
oReceptor:= oRequestCFD:childNodes:Item(4)
* ------------------------------------------------------------ ----------------------------------------
&& Cargar atributos y valores del XML request
oAtributoNuevo:= oXMLRequest:createAttribute("id") //rfc del cliente
oAtributos:= oTransaccion:Attributes:setNamedItem(oAtributoNuevo)
oTransaccion:setAttribute("id","1000")
oTransaccion:setAttribute("rfc","GAPJ720603FJP") //EMISOR
oAtributoNuevo:= oXMLRequest:createAttribute("formaDePago")
oAtributos:= oComprobante:Attributes:setNamedItem(oAtributoNuevo)
oComprobante:setAttribute("formaDePago","En una sola exhibicion")
oAtributoNuevo:= oXMLRequest:createAttribute("subTotal")
oAtributos:= oComprobante:Attributes:setNamedItem(oAtributoNuevo)
oComprobante:setAttribute("subTotal",Alltrim(TRANSFORM(2000, "9999999999999.999999")))
oXMLRequest:Save("D:cfdipegasoArchivos adjuntos_2013620oXMLRequest.xml")
* ------------------------------------------------------------ ----------------------------------------
&& Consumir WS.
oXMLHTTP:= CreateObject("MSXML2.XMLHTTP")
oXMLHTTP:Open("POST"," http://pegasotecnologiacfdi.net/ServAdm ... wayQA/Serv iceGateway.svc/Soap11Text",.F.)
oXMLHTTP:SetRequestHeader("Content-Type","text/xml; charset=utf-8")
oXMLHTTP:SetRequestHeader("SOAPAction"," http://namespace.pegasotecnologia.com/S ... nBaseExter nalService/emitirCFD")
oXMLHTTP:Send(oXMLRequest:XML) // :=
STRTOFILE(oXMLHTTP:ResponseText,"D:oXMLResponse.xml")
* ------------------------------------------------------------ ----------------------------------------
&& Recuperar valores del XML response.
oXMLResponse:= CREATEOBJECT("Msxml2.DOMDocument")
oXMLResponse:async := .T.
oXMLResponse:LoadXML(oXMLHTTP:ResponseText)
oTransaccion:=
oXMLResponse:selectSingleNode(" //s:Envelope/s:Body/emitirCFDResponse/emitirCFDResult/Respon seAdmon/Transaccion ")
cIDTransaccion:= oTransaccion:getAttribute("id")
cTipo:= oTransaccion:getAttribute("tipo") //cancelacion,egresos,ingresos
cEstatus:= oTransaccion:getAttribute("estatus") // ERROR SI FALLA
oCFD:=
oXMLResponse:selectSingleNode(" //s:Envelope/s:Body/emitirCFDResponse/emitirCFDResult/Respon seAdmon/CFD ")
cSerie:= oCFD:getAttribute("serie")
cFolio:= oCFD:getAttribute("folio")
cFecha:= oCFD:getAttribute("folio")
pero ahora me marca el siguiente error:
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 3.0.2
Compilador: Harbour 3.2.0dev (Rev. 18854)
Compilador C/C++: MinGW GNU C 4.7.1 (32-bit)
Plataforma: Windows 7 6.1.7601 Service Pack 1
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: No exported variable
Operación: ASYNC
Argumentos: [ 1] = Tipo: U Valor: NIL [ 2] = Tipo: L Valor: .T.
Fichero:
Código error SO: 0
Pila de llamadas:
_ASYNC (0)
TFORM1:BUTTON1CLICK (41)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (101)
(b)XCONTROL (147)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (281)
TFORM1:WMCOMMAND (940)
RUNFORM (0)
TAPPLICATION:RUN (283)
MAIN (15)
por favor ayudenme a corregirlo de antemano mil graciasd a todos
------------------------------------------------------------ ------------------------------------------------------------ ----------------------------------------