Amigos,
Aquí un DEMO del modulo de timbrado que tengo disponible para uso con xHarbour de forma nativa o de manera STAND ALONE, puede usar cualquier GUI, podemos conectar cualquier aplicación a nuestro sistema de timbrado.
Aqui el LINK de Descarga WCFDI TIMBRADO
Saludos
Hola amigo.
ResponderEliminarQue version de MySql.lib necesito para trabajar con Fivewin xHarbour 10.06?
He bajado la ultima que ofreces pero no me trabaja. Me da este error : Too many recursive error handler calls.
Espero puedas ayudarme. Te deseo el mayor exito con Facturacion Electronica.
Saludos.
Francisco Alegria.
Paco, enviame por correo el xHB que uses y con gusto te genero la lib correspondiente con mucho gusto. Saludos
ResponderEliminarWilliam, te envié por correo la descripcion. No sé si entendí mal y lo que querias era la carpeta del xHB que uso.
EliminarSaludos.
Paco, requiero de saber que PCODE es el que tienes, lo puedes ver con: HB_PCodeVer(), para asi generar una LIB de acuerdo a lo que necesites. Saludos
EliminarWilliam, version del pcode es 10.
EliminarSaludos.
Paco,
EliminarLa lib que genere es tambien para el PCode 10, deja enviarte de nuevo para evitar alguna duplicidad.
saludos
William, ya logre trabajar con algunos ejemplos en fwh1006 con la lib que me enviaste. Ahora a meterle mano a MySql-xHarb-Fwh1006.
EliminarMuchisimas gracias. Estaré en contacto.
Saludos.
Es todo un gusto, hare un documento de metodos disponibles en la LIB, comento mas adelante.
Eliminarsaludos
Como hago para colocar mi avatar aqui?
ResponderEliminarPaco, cuando me logueo en el blog, lo hago con mi cuenta de GMail, y ahi tengo el avatar, directamente en blogspot no lo se, haber si alguien nos ayuda. saludos
EliminarHola William, aqui de nuevo dando lata.
ResponderEliminarHe logrado trasladar mi primer modulo del sistema de DBF a MySql con TMySql, gracias a ti.
Sin embargo tengo un pequeño inconveniente en las ALTAS (INSERT), con el refresh del xBrowse. El codigo es este:
If lAppend
oServer:Query( "INSERT INTO catalogo (codicont,nv,nombre,usuario) VALUES ('"+cCodigoCta+"','"+cNivelCta+"','"+cNombreCta+"','"+cUsuarioEdit+"')" )
Else
oServer:Query( "UPDATE catalogo SET codicont = '"+cCodigoCta+"', nv = '"+cNivelCta+"', nombre = '"+cNombreCta+"', modificado = '"+cUsuarioEdit+"' WHERE Codicont = '"+cCodiAnter+"' ORDER BY codicont LIMIT 1")
Endif
if oServer:lError
MsgStop(oServer:Error +CRLF+ " No se pudo grabar el registro. Posible perdida de coneccion con servidor.","Alto")
endif
//PERO CUANDO ES APPEND NO REFRESCA EL XBROWSE. El cursor se mantienen en el registro anterior donde estaba, aunque graba bien el registro.
//***********************************
//TUVE QUE AGREGAR ESTE CODIGO PARA QUE REFRESQUE, aunque creo que no deberia ser necesario.
If lAppend
oCatalogo:GoTop()
oCatalogo:Refresh()
oCatalogo:Locate("Codicont",cCodigoCta,.f.,.t.)
Endif
//****************************************
oLbx:Refresh()
oCatalogo:Refresh()
No se si puedes ayudarme con esto.
Saludos.
William, disculpa cuando expuse "NO REFRESCA EL XBROWSE", bueno creo que lo hace, porque si buscas el registro recien grabado, lo encuentra. Lo que pasa es que el cursor no se mueve automaticamente al nuevo registro ingresado.
ResponderEliminarGracias.
oServer:Query( "UPDATE catalogo SET codicont = '"+cCodigoCta+"', nv = '"+cNivelCta+"', nombre = '"+cNombreCta+"', modificado = '"+cUsuarioEdit+"' WHERE Codicont = '"+cCodiAnter+"' ORDER BY codicont LIMIT 1")
ResponderEliminarEn este codigo no lleva el ORDER BY
If lAppend
ResponderEliminaroCatalogo:GoTop()
oCatalogo:Refresh()
oCatalogo:Locate("Codicont",cCodigoCta,.f.,.t.)
Endif
//****************************************
oLbx:Refresh()
oCatalogo:Refresh()
Para que el browse "reconozca" el registro dado de alta, es necesario refrescar primero el Query en este caso oCatalogo:refresh() y despues oLbx:refresh()
Saludos
Willi, sigue lo mismo.
ResponderEliminarIf lAppend
oServer:Query( "INSERT INTO catalogo (codicont,nv,nombre,usuario) VALUES ('"+cCodigoCta+"','"+cNivelCta+"','"+cNombreCta+"','"+cUsuarioEdit+"')" )
Endif
if oServer:lError
MsgStop(oServer:Error +CRLF+ " No se pudo grabar el registro. Posible perdida de coneccion con servidor.","Alto")
endif
* If lAppend
* oCatalogo:GoTop()
* oCatalogo:Refresh()
* oCatalogo:Locate("Codicont",cCodigoCta,,)
* Endif
oCatalogo:Refresh()
oLbx:Refresh()
Saludos.
enviame tu codigo pra revisarlo a mi cuenta de yahoo o hotmail
ResponderEliminarsaludos
ok William
ResponderEliminarHola amigo, estoy leyendo tu post, son buenos, mi correo es martindeica@hotmail.com me gustaria tu ayuda para migrar mis sistemas a mysql
ResponderEliminar