Consumir web service validar Factura Electrónica SAT México

[Joel Andujo]

BDía foro el intento consumir un web service con SOAP tool kit 3.0, no logro obtener resultados.
Este el manual que presenta el SAT : ftp://ftp2.sat.gob.mx/asistencia_servic ... taCFDI.pdf
este es el webservice : https://consultaqr.facturaelectronica.s ... e.svc?wsdl

Alguien ya logro conectar con este servicio de validación de CFDI, este es mi código :

Code: Select all  Expand view

stat func ExecWS()
 local oSoapClient, oError, lOk:=.t., oXML, oResponse
 TRY
   oSoapClient:= CreateObject( "mssoap.soapclient30" )
   oAcuse:=oSoapClient:msSoapInit('https://consultaqr.facturaelectronica.sat.gob.mx/consultacfdiservice.svc?wsdl')
   cXML:='<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/">'+;
         '<soapenv:Header/>'+;
         '<soapenv:Body>'+;
         '<tem:Consulta>'+;
         '<tem:expresionImpresa>'+;
         '?re=BEN9501023I0&amp;rr=SARM8209281F1&amp;tt=440.000000&amp;id=EC609EC1-5F63-4333-A2B8-2EDC10B68075</tem:expresionImpresa>'+;
         '</soapenv:Body>'+;
         '</soapenv:Envelope>'
 CATCH oErr
    mensaje('Soap Client 3.0 not installed!!')
    lOk := .f.
 END

 if lOk
    oResponse:=oSoapClient:Consulta(cXML)
    oXml:=TXmlDocument():New(oResponse)
    xbrowse( oXml )
 endif
 

saludos y cualquier ayuda se los agradesco de antemano
Joel Andujo

[benjiben143]

Hola vecino

buenas tardes


aquí en nuestra empresa ya lo tenemos implementado

y como estamos cerca

te invito un café el lunes 9 am

y ay pasamos el código


dirección

ferropuerto de sonora, s.a. de c,v,
carretera internacional km. 545-5
cd obregón sonora
pasando la corona a 2 kilómetros
tel 6441330186

saludos

[Joel Andujo]

Gracias vecino, acepto la invitación ahí nos vemos.

saludos
Joel Andujo

[benjiben143]

hola vecino


ya que tomamos el café pero fue agua siempre

te anexo la dll paraq que de cualquier lenguaje se pueda hacer la llamada

ejemplo

Code: Select all  Expand view

oSrv := CreateObject( "VerificaFactura2.Class" )
xsat:=osrv:Hola("?re=AAV8705296P4&rr=XAXX010101000&tt=855.80&id=18270533-399E-4E67-A5AD-26EC5F3180F7")
   ? "resultado del sat ", xsat
 

la liga para bajar la dll
http://www.eleben.com.mx/ferrofgarcia.zip


el creador de la dll se llama francisco garcia que trabaja en nuestro equipo de desarrollo

[Joel Andujo]

Gracias vecino funciono ok, da gusto conocer a gente que tan capaz que desarrolla en nuestro FWH

saludos y estamos en contacto.
Joel Andujo