--
Has recibido este mensaje porque estás suscrito al grupo "vfp-factura-electronica-mexico" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com
Para tener acceso a más opciones, visita el grupo en http://groups.google.com/group/vfp-factura-electronica-mexico?hl=es.
http://west-wind.com/presentations/vfpDotNetInterop/DotNetFromVFP.asp
-----Mensaje original-----
De: vfp-factura-ele...@googlegroups.com
[mailto:vfp-factura-ele...@googlegroups.com] En nombre de Halcón
Divino
Enviado el: martes, 19 de abril de 2011 11:59 a.m.
Para: vfp-factura-electronica-mexico
Asunto: [vfp-fem] Desde una aplicaión de VFP se puede llamdos a las
funciones del Web Service ???
Que tal a todos los foxeros...
Desde una aplicaión de VFP se le puede añadir une "Web References"
para hacer llamdos a las funciones del Web Service ???
Lo que quiero es enviar por medio de un Web Service el archivo XML que
contiene el CFD a un PAC y el PAC me va a retonar el archivo XML ya
timbrado por el mismo medio.
O como le estan haciendo los que ya puderon hacer el timbrado con el PAC
???
Los PAC´s que he contactado todos lo hacen por medio de Web Service si se
desea que sea en automatico ya que mandar por correo el XML se me hace que
es obsoleto.
.
Yo he desarrollado Web Service en .Net pero no veo por donde VFP tenga esta
funcionalidad.
La unica opción que se me ocurre es desarrollar una aplicación en .Net, tipo
interfaze, la cual sera llamada desde mi aplicación de VFP.... No se si
tengan otra solución ???
Saludos
Halcón Divino
Monterrey, N.L.
--
con estas simples lineas funciona la llamada al web service
si tienes instalado el kit soap 3.0 a mi me funciona con la version 9 de vfp
lcDirWS='direcion/del/web service/del timbrador'
oWS = CREATEOBJECT("MSSoap.SoapClient30")
oWS.MSSoapInit(lcDirWS)
oRespuesta = oWS.tibrar(parametros_del_webservice)
?orespuesta
en el caso de edicom requiere usuario,password y archvio zip en arreglo de bytes
y puedes usar
x_file= FILETOSTR('xml_atimbrar.zip')
zip_archivo= CREATEBINARY(x_file)
oRespuesta = oWS.tibrar(user,password,zip_archivo)
si lo timbra te envia un archivo zip en arreglo de bytes
este lo conviertes de la sig. manera
STRTOFILE (STRCONV(orespuesta,3),'c:\xmlzip.zip') && genera el archivo comprimido .zip
y depues usar una libreria para descomprimir el achivo
si no lo puede timbrar, te manda un error de programa y eso lo controlas con
un manejador de error.
espero que les sirva, saludos desde Nuevo Laredo
|
|
|
| Syntax: |
| getCfdi(user AS string, password AS string, file AS base64Binary) AS base64Binary |
| Sample Code: | |
|

--
Has recibido este mensaje porque estás suscrito al grupo "vfp-factura-electronica-mexico" de Grupos de Google.
Para publicar una entrada en este grupo, envía un correo electrónico a vfp-factura-ele...@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a vfp-factura-electroni...@googlegroups.com
http://west-wind.com/presentations/vfpDotNetInterop/DotNetFromVFP.asp
-----Mensaje original-----
De: vfp-factura-ele...@googlegroups.com
[mailto:vfp-factura-ele...@googlegroups.com] En nombre de Halcón
Divino
Enviado el: miércoles, 20 de abril de 2011 09:14 a.m.
Para: vfp-factura-electronica-mexico
Asunto: [vfp-fem] Re: Desde una aplicaión de VFP se puede llamdos a las
funciones del Web Service ???
Gracias a todos.
--
--
Hola amigos, baje la clase cfd2.9 y funciona perfectamente para mi, sin embargo, habrá un ejemplo de cómo generar un cfdi3.0 , gracias.
Saludos, desde yucatan.
Hola Enrique
Verifica que tengas la declaración el objeto "loCFDi" como "XML Web Service"
Debe declararse así.
LOCAL loCFDi AS "XML Web Service"
Luego debes asignarle el valor
LOCAL loException, lcErrorMsg, loWSHandler
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC\")+"_ws3client.vcx")
loCFDi = loWSHandler.SetupClient("https://cfdiws.sedeb2b.com/EdiwinWS/services/CFDi?wsdl", "CFDiService", "CFDi")
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loCFDi)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loCFDi.FaultCode)
lcErrorMsg=lcErrorMsg+CHR(13)+loCFDi.Detail
OTHERWISE
* Handle other error
ENDCASE
MESSAGEBOX("ERROR: "+lcErrorMsg)
FINALLY
ENDTRY
El objeto adquiere el valor en la línea:
loCFDi = loWSHandler.SetupClient("https://cfdiws.sedeb2b.com/EdiwinWS/services/CFDi?wsdl", "CFDiService", "CFDi")
Si la conexión al WS se realiza con éxito, entonces, en el caso de EDICOM, que es con quien trabaja este código, el objeto “loCFDi” contiene los métodos para sellado y demás como el método “getCfdi” que sirve para sellado de un XML.
Déjame saber si te funciona.
Saludos
Firmo
GraciasEnrique Martinez--
Bueno,tomando como referencia el timbrado tengo una duda, los pacs están obligados a regresarte el xml timbrado? O solo regresa el timbre y por desarrollo timbrar el xml ¿?
Saludos.
De: vfp-factura-ele...@googlegroups.com [mailto:vfp-factura-ele...@googlegroups.com] En nombre de Ernesto Arias
Enviado el: Lunes, 16 de Mayo de 2011 06:10 p.m.
Para: vfp-factura-ele...@googlegroups.com
LOCAL
loTimbreFiscalDigital AS "XML Web Service"LOCAL
loException, lcErrorMsg, loWSHandlerLOCAL
Resultado as StringResultado=
SPACE(0)cParametro=TimbreXML("TIM99.XML","N#@Mo!)#oh>)OdX=q_ZUCsLxqpv?","1763AAB0593430490B3B3EE5457A9A2580F9D7DE","33928","CFD\E00000_A101.XML")
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOMEloTimbreFiscalDigital = loWSHandler.SetupClient("http://timbre01.facturaxion.net/CFDI.asmx?WSDL", "TimbreFiscalDigital", "TimbreFiscalDigitalSoap")
lcResultado=loTimbreFiscalDigital.GenerarTimbre(cparametro,resultado)aqui me deberia devolver el valor en RESULTADO Y NO ME DAN VALOR, ME REGRESA .F.
CATCH TO
loExceptionlcErrorMsg="Error: "+
TRANSFORM(loException.Errorno)+" - "+loException.MessageDO CASE
CASE VARTYPE
FINALLY
ENDTRY
Si pueder apoyarme, o como hacen el timbre--
LOCAL loWSForcogsaPort AS "XML Web Service"
* LOCAL loWSForcogsaPort AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support
IntelliSense for your XML Web service.
*__VFPWSDef__: loWSForcogsaPort =
https://forcogsa.dyndns.org:8081/WSTimbrado/WSForcogsaService?wsdl ,
WSForcogsaService , WSForcogsaPort
LOCAL loException, lcErrorMsg, loWSHandler
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()
+"FFC\")+"_ws3client.vcx")
loWSForcogsaPort =
loWSHandler.SetupClient("https://forcogsa.dyndns.org:8081/WSTimbrado/
WSForcogsaService?wsdl",
"WSForcogsaService", "WSForcogsaPort")
* Call your XML Web service here. ex: leResult =
loWSForcogsaPort.SomeMethod()
CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" -
"+loException.Message
DO CASE
CASE VARTYPE(loWSForcogsaPort)#"O"
* Handle SOAP error connecting to web service
CASE !EMPTY(loWSForcogsaPort.FaultCode)
* Handle SOAP error calling method
lcErrorMsg=lcErrorMsg+CHR(13)+loWSForcogsaPort.Detail
OTHERWISE
* Handle other error
ENDCASE
* Use for debugging purposes
MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
XMLfile = "C:\sistema\CFD\BuzonFacturas\37797__GTM950725M89.xml"
leResult = loWSForcogsaPort.Timbrar(pruebasWS, pruebasWS, XMLfile)
Pero al ejecutarlo me marca un error que dice: Error: 1429 - OLE
IDispatch exception code 0 from Client: Client:Incorrect number of
parameters supplied for SOAP request HRESULT=0x80070057: El parámetro
no es correcto.
- Client:Unspecified client error. HRESULT=0x80070057: El parámetro
no es correcto.
..
Client:Incorrect number of parameters supplied for SOAP request
HRESULT=0x80070057: El parámetro no es correcto.
- Client:Unspecified client error. HRESULT=0x80070057: El parámetro
no es correcto.
Cualquier sugerencia se acepta, saludos
Enrique Martinez
Puerto Vallarta, Jalisco
A mi me parece que la declaración de la variable Resultado no debe ser de tipo string, sino Character. Bueno a menos que esté equivocado, que alguien de mas luz.
Saludos.
Desde Mérida Yucatán.
De: vfp-factura-ele...@googlegroups.com [mailto:vfp-factura-ele...@googlegroups.com] En nombre de Bart Sosa
Enviado el: Jueves, 19 de Mayo de 2011 06:50 p.m.
Para: vfp-factura-ele...@googlegroups.com
-----Mensaje original-----
De: vfp-factura-ele...@googlegroups.com
[mailto:vfp-factura-ele...@googlegroups.com] En nombre de
eljacket
Enviado el: Miércoles, 01 de Junio de 2011 01:45 p.m.
Para: vfp-factura-electronica-mexico
Asunto: [vfp-fem] Re: Desde una aplicaión de VFP se puede llamdos a las
funciones del Web Service ???
Buen día!
Saludos!!
--
Por el momento voy a empezar con un cliente con el metodo que ya pude
probar, y luego intentaré con el WS
Saludos
Enrique Martinez
Hola buenos días, podrían compartir el manual conmigo? A mi también me falta el timbrado con forcogsa
Gracias de antemano, un saludo
--
Has recibido este mensaje porque estás suscrito al grupo "vfp-factura-electronica-mexico"
de Grupos de Google.
Para ver este debate en la Web, visita https://groups.google.com/d/msg/vfp-factura-electronica-mexico/-/Nd_w908Iyr8J.
Para publicar una entrada en este grupo, envía un correo electrónico a
vfp-factura-ele...@googlegroups.com.
Para anular tu suscripción a este grupo, envía un correo electrónico a
vfp-factura-electroni...@googlegroups.com
Para tener acceso a más opciones, visita el grupo en
http://groups.google.com/group/vfp-factura-electronica-mexico?hl=es.
__________ Information from ESET NOD32 Antivirus, version of virus signature database 6316 (20110722) __________
The message was checked by ESET NOD32 Antivirus.
Gracias