Desde una aplicaión de VFP se puede llamdos a las funciones del Web Service ???

1,360 views
Skip to first unread message

Halcón Divino

unread,
Apr 19, 2011, 1:59:04 PM4/19/11
to vfp-factura-electronica-mexico
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.

Francisco A. Martínez R.

unread,
Apr 19, 2011, 2:02:26 PM4/19/11
to vfp-factura-ele...@googlegroups.com
 


 

--
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.


Roberto Olivas

unread,
Apr 19, 2011, 2:31:53 PM4/19/11
to vfp-factura-ele...@googlegroups.com
De hecho sería lo más recomendable, pues existen problemas de compatibilidad
con SOAP y Windows 7. Puedes crear la interfaz para acceder a tu Web Service
en .NET y accederla desde Visual FoxPro por medio de COM. Te dejo este
enlace que hace referencia al tema .NET desde Visual FoxPro por medio de
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: 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.

--

Hugo C.

unread,
Apr 19, 2011, 4:02:49 PM4/19/11
to vfp-factura-electronica-mexico
Checa este producto.

http://www.west-wind.com/wsdlgenerator/

Saludos.

J. Alejandro Cervantes

unread,
Apr 19, 2011, 4:33:02 PM4/19/11
to vfp-factura-ele...@googlegroups.com
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


--- El mar 19-abr-11, Hugo C. <hcch...@gmail.com> escribió:
--
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-electronica-mexico+unsub...@googlegroups.com

Firmo Lopez

unread,
Apr 19, 2011, 4:46:36 PM4/19/11
to vfp-factura-ele...@googlegroups.com
Hola a todos
Es mas facil de lo que piensan.

El Visual FoxPro 9.00 viene con una herramienta en el "Task Pane Manager" para cargar y probar un Web Service que desees.
Solo debes tener la dirección URL donde esta el XML del Web Services Description Language (WSDL).

Despues que defines la dirección del WSDL, el VFP en el mismo Task Pane Manager te muestra todos los servicios (Funciones o metodos), te da un ejemplo del codigo para declarar el objeto Web Server e incluso te muestra la sintaxis de la llamada el servicio.

Por ejemplo en EDICOM el servicio de timbrado CFDI es, getCfdi

Syntax:
getCfdi(user AS string, password AS string, file AS base64Binary) AS base64Binary

El ejemplo de código es:

Sample Code:
LOCAL loCFDi AS "XML Web Service"
* LOCAL loCFDi AS "MSSOAP.SoapClient30"
* Do not remove or alter following line. It is used to support IntelliSense for your XML Web service.
*__VFPWSDef__: loCFDi = https://cfdiws.sedeb2b.com/EdiwinWS/services/CFDi?wsdl , CFDiService , CFDi
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")
	* Call your XML Web service here.  ex: leResult = loCFDi.SomeMethod()
	
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)
		* Handle SOAP error calling method
		lcErrorMsg=lcErrorMsg+CHR(13)+loCFDi.Detail
	OTHERWISE
		* Handle other error
	ENDCASE
	* Use for debugging purposes
	MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY

Facil, cuando tengas ya el archivo XML que quieres timbrar, lo colocas dentro de un archivo ZIP, y debes tener también el password y el username del cliente, entonces llamas al servicio de esta forma.

leResult = loCFDi.getCfdi(user, password, XMLfile)

No necesitas instalar nada, el VFP lo hace todo.
Claro el XML debe ir sellado primero, para eso si necesitas las herramientas de sellado, igual como lo harías con un CFD.

Saludos.
Firmo Lopez
www.AutoSoftTaller.com



Halcón Divino

unread,
Apr 19, 2011, 8:04:48 PM4/19/11
to vfp-factura-electronica-mexico

Alejandro:

Como consigo el tool kit soap 3.0 ???
Este ya viene con el Sistema Operativo de Windows ???
Hay que descargarlo de algun Link ???

Saludos
Halcón Divino



Francisco A. Martínez R.

unread,
Apr 19, 2011, 8:49:34 PM4/19/11
to vfp-factura-ele...@googlegroups.com
Viene en el CD de Visual Fox Pro 9

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

Halcón Divino

unread,
Apr 20, 2011, 11:14:06 AM4/20/11
to vfp-factura-electronica-mexico
Gracias a todos.
Aparentemente la mejor opción es irme por el Tool Kit SOAP 3.0

Ya realicé una pequeña prueba como cliente de un Web Service y
funcionó correctamente (Tengo Windows Xp profesional con sp2).

Desafortunadamente no tengo el CD del VFP 9.0 y en la otra PC con
Windows 7 solo tengo instalado el VFP 9.0 y no tengo instalado el Tool
Kit SOAP 3.0

1. Algun otro link de donde pueda descargar el Tool Kit SOAP 3.0 ???
2. Ya lo probaron el SOAP 3.0 sobre Windows 7 ???

Saludos.
Halcón Divino
Monterrey, N.L.

Hugo C.

unread,
Apr 20, 2011, 12:24:12 PM4/20/11
to vfp-factura-electronica-mexico
Aqui esta.

http://www.microsoft.com/downloads/en/details.aspx?familyid=c943c0dd-ceec-4088-9753-86f052ec8450&displaylang=en

El punto es que ya esta descontinuado.

( The Microsoft SOAP Toolkit is deprecated by the .NET Framework. SOAP
Toolkit support will be retired in April 2005 )

Saludos.

Francisco A. Martínez R.

unread,
Apr 20, 2011, 1:17:18 PM4/20/11
to vfp-factura-ele...@googlegroups.com
Puedo subir una imagen del cd de vfp 9.0 a mi ftp, si te interesa dime para hacerlo. Saludos

Roberto Olivas

unread,
Apr 20, 2011, 2:11:40 PM4/20/11
to vfp-factura-ele...@googlegroups.com
El SOAP kit ya está descontinuado. Es preferible desarrollar un módulo en
.NET para consumir el Web Service y llamarlo desde Visual FoxPro via COM. En
esta liga encontrarás como consumir componentes .NET desde Visual FoxPro:

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.

--

Halcón Divino

unread,
Apr 20, 2011, 6:54:32 PM4/20/11
to vfp-factura-electronica-mexico
Ya lo pude descargar el tool kit SOAP 3.0 y ya lo probé aparente mente
todo bien con Windows 7 y VFP 9.0
Gracias
saludos

Francisco A. Martínez R.

unread,
Apr 20, 2011, 7:41:40 PM4/20/11
to vfp-factura-ele...@googlegroups.com
Haclón a mi me sirvió mucho el programa que subiste a Taringa, a ver si cuando ya tengas éste de los CFDI nos pasas un ejemplo. Saludos


--

Halcón Divino

unread,
Apr 20, 2011, 2:17:51 PM4/20/11
to vfp-factura-electronica-mexico
Gracias
Ya lo conseguí y ya lo instalé (Tool Kit SOAP 3.0) y ya lo probé.
Funcionó correctamente en Windows 7 con VFP 9.0
Saludos
Halcón Divino.

Charlie Vargas

unread,
Apr 21, 2011, 10:17:10 AM4/21/11
to vfp-factura-ele...@googlegroups.com
Hola, Tengo una pregunta, esto se puede hacer en VFP 8.0?, por la herramienta, que mencionas
 

Date: Tue, 19 Apr 2011 13:46:36 -0700
From: firmo...@gmail.com
To: vfp-factura-ele...@googlegroups.com
Subject: [vfp-fem] Re: Desde una aplicaión de VFP se puede llamdos a las funciones del Web Service ???

Firmo Lopez

unread,
Apr 21, 2011, 10:40:30 AM4/21/11
to vfp-factura-ele...@googlegroups.com
Sí, el Task Pane Manager también viene en VFP 8.0 y funciona perfectamente para acceder al los Web Services.

Saludos
Firmo Lopez
www.AutoSoftTaller.com

Isaias E. Yam I.

unread,
Apr 25, 2011, 9:17:27 AM4/25/11
to vfp-factura-ele...@googlegroups.com

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.

Enrique Martinez

unread,
May 12, 2011, 1:48:50 AM5/12/11
to vfp-factura-ele...@googlegroups.com
Hola Firmo, te agradezco mucho tu ayuda con el codigo de ejemplo del WS, estoy tratando de hacer pruebas con tu codigo cambiando los datos proporcionados
por el PAC pero me marca error al ejecutarlo, como lo hice?, copié tu codigo a un prg y ahi le hice los cambios para las pruebas pero me marca el siguiente error:
 
"LOCFDI is not an object"
 
este error me lo marca en la linea
 
leResult = loCFDi.getCfdi(user, password, XMLfile)

Me puedes orientar que estoy haciendo mal por favor.
 
Nota: ya tengo generado el cfdi y validado en la pagina del validador del SAT, solo me falta lo mas dificil enviarlo al PAC.
 
Saludos y de antemano muchas gracias por tu ayuda.
 
Enrique Martinez Regalado
Puerto Vallarta, Jalisco, México
 
 
 

Firmo Lopez

unread,
May 12, 2011, 1:06:41 PM5/12/11
to vfp-factura-ele...@googlegroups.com

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

Enrique Martinez

unread,
May 12, 2011, 2:59:35 PM5/12/11
to vfp-factura-ele...@googlegroups.com
Muchas Gracias Firmo por responder, yo creo que primero tengo que ver con el PAC cual es el objeto que ellos utilizan, por que veo que en el ejemplo claro dices que es para EDICOM.
 
Saludos y te informo como me fué.
 
 
Gracias
 
Enrique Martinez

Enrique Martinez

unread,
May 16, 2011, 3:34:16 AM5/16/11
to vfp-factura-ele...@googlegroups.com
Hola Firmo
 
Estoy hecho un mar de dudas, hable con el PAC que es Forcogsa, me hicieron llegar un DEMO para el timbrado, que se supone vienen 2 ejemplos, uno viene en JAVA y
otro viene en .NET solo que desconozco como funciona JAVA y .net no tengo a la mano para poder ver el codigo de ejemplo, tu sabes como podria ver alguno o los 2 ejemplos
para poder ver las funciones de envio y recepcion del XML.
 
Saludos y disculpa si son preguntas simples.
 
Gracias
 
Enrique Martinez

Firmo Lopez

unread,
May 16, 2011, 10:02:00 AM5/16/11
to vfp-factura-ele...@googlegroups.com
Hola Enrique.

Te puedo ayudar, solo necesito el URL del Web Service (wsdl) y la sintaxis de los métodos (nombre del método, parámetros con el tipo de variable y que retorna), eso debe estar en el manual que te debió dar tu PAC.
Los ejemplos pueden servir también, pero es preferible la información documentada para no tener que indagar en el código de ejemplo.

Por lo pronto puede enviarme el código de ejemplo en .NET.

Saludos
Firmo

Enrique Martinez

unread,
May 16, 2011, 10:12:47 AM5/16/11
to vfp-factura-ele...@googlegroups.com
Hola Firmo ya logré abrir el ejemplo de .net lo anexo para si lo quieres revisar.
 
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Xml;
using System.IO;
using ClienteWSFormasDig.org.dyndns.forcogsa;
using System.Net;
using System.Net.Security;
using System.Security.Cryptography.X509Certificates;
namespace ClienteWSFormasDig
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            string usuario = "pruebasWS";
            string pass = "pruebasWS";
            string rfcemisor = "APR0412108C5";
            string fecha = "2011-04-07T10:14:42";
            string cfdi = GetXmlString(@"../../resources/37797__GTM950725M89.xml");
            //string[] listaFolios = new string [1];
            string[] listaFolios = { "0E9927D5-2B2E-41EB-A110-6A39613D6254" }; // folios a cancelar
            // este codigo se debe quitar cuando pasen el timbre a produccion.
            ServicePointManager.ServerCertificateValidationCallback = new RemoteCertificateValidationCallback(ValidateServerCertificate);
            CredentialCache cache = new CredentialCache();
            WSForcogsaService serv = new WSForcogsaService();
            // obtiene el token
            wsAutenticarResponse resp = serv.Autenticar(usuario, pass);
           
            // seccion timbre
            wsTimbradoResponse respTimbre = serv.Timbrar(cfdi, resp.token);
            Console.Write(respTimbre.cfdi);
            txtArea.Text = respTimbre.cfdi;
            // nuevo token para solicitar una nueva transaccion
            resp = serv.Autenticar(usuario, pass);
            // seccion de la cancelacion
            wsCancelacionResponse respCancel = serv.Cancelacion(rfcemisor, fecha, listaFolios, resp.token);
            if (respCancel.folios != null)
                label2.Text = respCancel.folios.ElementAt(0).mensaje;
            else
                label2.Text = respCancel.mensaje;
        }

        private string GetXmlString(string strFile)
        {
            // Load the xml file into XmlDocument object.
            XmlDocument xmlDoc = new XmlDocument();
            try
            {
                xmlDoc.Load(strFile);
            }
            catch (XmlException e)
            {
                Console.WriteLine(e.Message);
            }
            // Now create StringWriter object to get data from xml document.
            StringWriter sw = new StringWriter();
            XmlTextWriter xw = new XmlTextWriter(sw);
            xmlDoc.WriteTo(xw);
            return sw.ToString();
        }
        private void label1_Click(object sender, EventArgs e)
        {
        }
        private void label2_Click(object sender, EventArgs e)
        {
        }
 
        public static bool ValidateServerCertificate(Object sender, X509Certificate certificate, X509Chain chain, SslPolicyErrors sslPolicyErrors)
        {
            return true;
        }
      

    }

Saludos
Enrique Martinez

Enrique Martinez

unread,
May 16, 2011, 10:17:50 AM5/16/11
to vfp-factura-ele...@googlegroups.com
Te lo mando a tu privado, ya que mide mas de 1mb.
 
Saludos y muchas gracias por tu ayuda
 
Enrique Martinez

Ernesto Arias

unread,
May 16, 2011, 7:09:46 PM5/16/11
to vfp-factura-ele...@googlegroups.com
Hola el sistema de Forcogsa solamente lo configuras ellos tienen un manual y entre la configuracion esta el directorio donde tienes los xml para el timbrado y cada cuando debe checar para automaticamente enviarlo al pac y regresarlo timbrado.


 
 
Gracias
 
Enrique Martinez

--

Isaias E. Yam I.

unread,
May 17, 2011, 9:13:04 AM5/17/11
to vfp-factura-ele...@googlegroups.com

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.

 


Enviado el: Lunes, 16 de Mayo de 2011 06:10 p.m.
Para: vfp-factura-ele...@googlegroups.com

Rulo

unread,
May 17, 2011, 5:35:12 PM5/17/11
to vfp-factura-ele...@googlegroups.com
No se si esten obligados supongo que del PAC yo solo he trabajado con 2

Facturaxion te regresa solo el timbre

SeFactura (nadie lo debe conocer jajajaja) te regresa el CFDI timbrado

Recomendaria que desarrollaras para ambos casos.

Otra cosa es que no se si te devuelvan un XML con su propia sintaxis (o sea que el nodo para el timbre se llame TimbreF o algo parecido)

Ademas pueden regresarte el timbre o un mensaje de error o un xml que contiene el mensaje de error.

Muchas cosas a tener en cuenta y a desarrollar.

Suerte.

Bart Sosa

unread,
May 18, 2011, 5:33:23 PM5/18/11
to vfp-factura-ele...@googlegroups.com
Rulo
 
Como has recuperado el resultado del timbrado con facturaxion
Estoy programando en VFP
 
Saludos
 
Bart Sosa

Rulo

unread,
May 19, 2011, 5:46:17 PM5/19/11
to vfp-factura-ele...@googlegroups.com
Que tal Bart

Bueno todo el trabajo que realizo con XML lo hago en base a funciones que realizo usando STREXTRACT (ya se que no es la mejor forma pero a mi me gusta asi)

Para facturaxion primero checo si lo que te devuelve es un error o el timbre en base a la busqueda STREXTRACT(cxmlrespp,"<Error","/>")

No se si a esto te refieres, si no es asi aclaralo un poco mas.

Saludos

Bart Sosa

unread,
May 19, 2011, 7:50:07 PM5/19/11
to vfp-factura-ele...@googlegroups.com
Estoy realizando el timbre con esta función pero no logro que me devuelva algún valor solo Boleano
 

LOCAL

loTimbreFiscalDigital AS "XML Web Service"

LOCAL

loException, lcErrorMsg, loWSHandler

LOCAL

Resultado as String

Resultado=

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,"",HOME
()+"FFC\")+"_ws3client.vcx")

loTimbreFiscalDigital = 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

loException

lcErrorMsg="Error: "+

TRANSFORM(loException.Errorno)+" - "+loException.Message

DO CASE

CASE VARTYPE

(loTimbreFiscalDigital)#"O"

* Handle SOAP error connecting to web service

CASE !EMPTY(loTimbreFiscalDigital.FaultCode)

* Handle SOAP error calling method

lcErrorMsg=lcErrorMsg+CHR(13)+loTimbreFiscalDigital.Detail

OTHERWISE

* Handle other error

ENDCASE

* Use for debugging purposes

MESSAGEBOX(lcErrorMsg)

FINALLY

ENDTRY

Si pueder apoyarme, o como hacen el timbre
 
Saludos
 
Bart sosa

--

Enrique Martinez

unread,
May 19, 2011, 8:06:53 PM5/19/11
to vfp-factura-ele...@googlegroups.com
Bart yo estoy tratando con Forcogsa con el siguiente codigo pero me
marca un error que describo al final.

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

Isaias E. Yam I.

unread,
May 20, 2011, 9:51:14 AM5/20/11
to vfp-factura-ele...@googlegroups.com

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.

 


Enviado el: Jueves, 19 de Mayo de 2011 06:50 p.m.
Para: vfp-factura-ele...@googlegroups.com

Rulo

unread,
May 20, 2011, 2:51:08 PM5/20/11
to vfp-factura-ele...@googlegroups.com
Que tal Bart Intenta poner una @ "arroba" antes de la variable resultado.

Revisare mas detenidamente tu codigo para verificar si ese es el motivo pero por lo pronto creo que es eso.

Informanos.

Rulo

unread,
May 20, 2011, 2:56:34 PM5/20/11
to vfp-factura-ele...@googlegroups.com
Bueno ampliando mi respuesta el @ es para pasar el parametro de la funcion cono referencia.

lcResultado=loTimbreFiscalDigital.GenerarTimbre(cparametro,@resultado)

lcResultado te regresara .T. o .F.

resultado te regresara la cadena que contiene el xml del timbre o el error.

Cualquier otra duda creo que seria bueno resolverla en otro debate porque este ya se salio mucho del tema (creo yo).

Saludos y Suerte.

eljacket

unread,
Jun 1, 2011, 2:45:20 PM6/1/11
to vfp-factura-electronica-mexico

Buen día!

Enrique una pregunta, ya pudiste timbrar?? Que metodo fue el que
seguiste??

Saludos!!

Armando Rodríguez

unread,
Jun 1, 2011, 2:54:54 PM6/1/11
to vfp-factura-ele...@googlegroups.com
Me uno a la pregunta de eljacket.

-----Mensaje original-----

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

--

Enrique Martinez

unread,
Jun 1, 2011, 11:29:40 PM6/1/11
to vfp-factura-ele...@googlegroups.com
hola, ya pude timbrar con las pruebas, pero con el segundo metodo, con
la aplicación de java, donde pones las facturas en una carpeta y te
las regresa a otra ya timbradas, si pude hacer las pruebas, pero me
interesa el metodo del WS, ya ves que todos los PAC's tienen esa forma
de timbrado.

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

as_diamante

unread,
Jul 21, 2011, 11:59:11 PM7/21/11
to vfp-factura-ele...@googlegroups.com
Enrique, que gusto que tu ya hayas podido timbrar! Me preguntaba si pudiese tener algun ejemplo con VFP,
para ir haciendolo yo tambien ya que a uno de mis clientes le urge hacer CFDI y en /forcogsa
para hacer pruebas pero quisiera tener alguna referencia...
lei que hay un manual lo voy a solicitar de todas maneras,

gracias de antemano por compartir tu experencia, 
Saludos cordiales a todos!

as_diamante

unread,
Jul 22, 2011, 1:22:14 AM7/22/11
to vfp-factura-ele...@googlegroups.com
Gracias Enrique por el Manual me sorprendio la rapidez... deja lo intento y si tengo alguna duda voy a preguntarte que eres el experto, gracias nuevamente, Saludos

Adrian Gmail

unread,
Jul 22, 2011, 9:54:38 AM7/22/11
to vfp-factura-ele...@googlegroups.com

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

adria...@yahoo.com.mx

--

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.

 

__________ Information from ESET NOD32 Antivirus, version of virus signature database 6316 (20110722) __________

 

The message was checked by ESET NOD32 Antivirus.

 

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 6316 (20110722) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

Enrique Martinez

unread,
Jul 24, 2011, 12:21:53 AM7/24/11
to vfp-factura-ele...@googlegroups.com
claro que si ahorita lo adjunto, por que no se como subirlo a la
pagina de archivos de vfp

Saludos

Enrique Martinez

MANUAL DE CONFIGURACION.docx

Ing. Hector Garcia

unread,
Jul 24, 2011, 1:14:00 AM7/24/11
to vfp-factura-ele...@googlegroups.com
Alguien que tenga alguna referencia de en donde buscar un grupo de
desarrolladores de Factura Electr�nica en PHP?
Lo agradecer� infinitamente.

Gracias

Jorge Casas

unread,
Aug 5, 2011, 6:22:48 PM8/5/11
to vfp-factura-electronica-mexico
Alguien a usado este ejemplo con Buzon-E?

Saludos
Reply all
Reply to author
Forward
0 new messages