----- Original Message -----

From: Claudio Torrillo

To: ifclipper@...

Sent: Tuesday, October 07, 2008 11:09 AM

Subject: Re: [ifclipper] Migraciones

José luis y Otros listeros.   Yo personalmente agrdezco las indicaciones que nos brindas y todos tus aportes, pero sólamente pido que nos circunscribamos a los temas concernientes a la temática de la lista.   Como la mayoría sabemos, TodoClipper es la lista para estos temas. IFClipper es para Impresoras fiscales, y dentro de ello la migración de los sitemas no está dentro de la temática.   Sin embargo, si quieres comentar como adaptar las rutinas que muchos de nosostros tenemos en Clipper + CA-Tools a Alaska o a Harbour con el menor impacto posible, todos los comentarios serán bien recibidos. Claudio G. Torrillo www.xcsa.com.ar --- El mar 7-oct-08, Jose Luis Otermin <otermin@gmail.com> escribió: De: Jose Luis Otermin <otermin@gmail.com> Asunto: [ifclipper] Migraciones Para: ifclipper@gruposyahoo.com.ar Fecha: martes, 7 de octubre de 2008, 9:06 am Estimados Colegas,   Sé que los cambios traen incertidumbres sobre todo cuando uno cree que abandona el terreno conocido para pisar uno que no se sabe bien dónde va a parar.   Al comienzo parece que el mundo OOP fuera como entrar en una gruta sin una antorcha. La primera impresión es que todo tiene demasiada complicación. Coincido.   Sin embargo, se puede simplificar muchísimo todo eso con el uso del preprocesador como primer medida. Y con la separación de tareas en procedimientos se logra una primera atomización de la complejidad.   Por ejemplo:   Estas son las declaraciones del preprocesador:   #COMMAND SUBMENU <oMenuBar> NEW   => <oMenuBar> := XbpImageMenu( ):new():create( oDos2Gui ) #COMMAND SUBMENU <oMenuBar> TITLE <cTitle>  => <oMenuBar>:Title := <cTitle> #COMMAND SUBMENU <oMenuBar> BARTEXT <cText> => <oMenuBar>:BarText := <cText> #COMMAND SUBMENU <oMenuBar> CREATE          => _oMbar:addItem( {<oMenuBar>,,, XBPMENUBAR_MIA_ OWNERDRAW} )   #COMMAND ADD MENUITEM CAPTION <cCaption> ACTION <cAction> [IMAGE <nImage>] [MESSAGE <cToolTip>] TO <oMenuBar> => <oMenuBar>:addItem( {<cCaption>, {|| <cAction>}, , XBPMENUBAR_MIA_ OWNERDRAW }, [<nImage>] ,[<cToolTip>] )     Y así se crea un sistema de menú como el del Office 2007.   PROCEDURE CreaMenu( oDlg )     MENUBAR NEW        SUBMENU oVentas NEW        SUBMENU oVentas TITLE "Ventas"        SUBMENU oVentas BARTEXT "Ventas"        SUBMENU oVentas CREATE           ADD MENUITEM CAPTION "~Archivos"  ACTION ARVENTAS("C" )  TO oVentas           ADD MENUITEM CAPTION "~Procesos"  ACTION PRVENTAS("C" )  TO oVentas           ADD MENUITEM CAPTION "~Consultas" ACTION CONVENTAS("C" ) TO oVentas   Como puede apreciarse, la complejidad de las declaraciones OOP ha quedado oculta atrás de la instrucción #COMMAND. Probablemente no se hace uso de esta herramienta como para explotarla en su potencial debido a que no es sencillo comprender su funcionamiento, pero para quien esté interesado por favor no deje de escribir su mensaje aquí o a mi correo. Es una herramienta demasiado potente como para abandonarla.   Además es el mejor camino para migrar el código hacia otras plataformas tanto como para realizar ajustes de impacto global en la aplicación sin tener que tocar TODOS los fuentes uno x uno.   Las soluciones "mágicas" pasan por transformar al texto de un formato en otro. Sencillamente se toma el modelo verboso de CLIPPER (heredado de dBASE) y se convierte en llamados a funciones. Lo inverso también es sencillo (quizá aun más).   Lo que parece incomodar a la hora de cambiar de plataforma es el hecho que ahora existen múltiples estados para administrar en vez de sólo uno. Porque el usuario puede ejecutar simultáneamente (en realidad, uno a uno, alternadamente) varias modificaciones de estado (hizo click en la barra de scroll, subió el valor de un botón de incremento - spinbutton-, eligió un valor en una lista o marcó varios y finalmente agrandó la pantalla. Todo eso antes de dar click en "Ok".   Eso parece un océano de problemas.   En realidad no lo es.   Cada objeto guarda en su propia memoria el estado en que estaba. Cuando el usuario da click en "Ok" el control pasa al estadio siguiente y para nuestra fortuna, todos esos objetos estaban vinculados a un objeto más grande que los contenía: El Padre. Que en nuestro ejemplo es el formulario. A ese formulario (que llamaremos oForm) le pedimos que nos diga cuántos objetos tiene como hijos:   aListaHijos := oForm:childList( )   FOR i:=1 to LEN(aListaHijos)      oHijo := aListaHijos[ i]      DO CASE      CASE oHijo:className( ) == "XbpMLE" // MemoLineEditor.          // Es un control de edicion de Memo.          cTexto := oHijo:getData( )          cCampo := oHijo:cargo          REPLACE &(cCampo) WITH cTexto      CASE oHijo:className( ) == "XbpComboBox"           // En un Combo hay dos elementos:          // El campo texto (XbpSLE - SingleLineEditor)          // y una lista (XbpListBox)          cTexto := oHijo:XbpSLE: getData()          cCampo := oHijo:cargo          REPLACE &(cCampo) WITH cTexto etc. Como se verá no es complicado. Para el caso de las impresoras fiscales la cosa es aun más sencilla. Se produce una llamada al control ActiveX y ya.   Si el tema les parece interesante, por favor siéntanse cómodos de preguntar.   Espero haber disipado algún temor (o confirmado varios jajaja )   Saludos   José Luis Otermin ------------ --------- --------- --------- --------- ---- HardCoded Systems SH +54-9-11-4417- 7774 +54-11-4503- 1761 ------------ --------- --------- --------- --------- ----   PD: Los correos que firmo con mi firma personal representan mi opinion personal. No deben interpretarse como expresiones de la empresa Alaska Software.

---

Yahoo! Cocina
Recetas prácticas y comida saludable
Visitá http://ar.mujer.yahoo.com/cocina/

Hola Eduardo.
El costo de migrar de una plataforma de 16 bits a otra de 32 bits (o
64) actualmente es CERO (0) esfuerzo.
Esto se hace tanto con la herramienta que propone Jose Luis (Alaska
xBase++) como con la herramienta que propone Ciro (C2W).
Y la verdad es que es casi mágico ya que agregando una cantidad
ínfima de lineas abandonamos las limitaciones de los 16 bits y
subimos un escalón.
Ahora... como bien dice Jose Luis, que estos utilitarios permitan
cambiar de plataforma no significa que necesariamente nos conviertan
nuestras aplicaciones a un modo gráfico "pleno" y con manejo de
eventos.
Y creo que justamente en eso reside su virtud... podemos convertir
nuestros sistemas a un modo de trabajo con menores limitaciones, sin
riesgos y conservando toda la funcionalidad operativa actual y -
paralelamente- ir agregándole al sistema los elementos visuales que
dotarán al producto de toda su estética y funcionalidad gráfica.
Esto es una gran ventaja cuando nos vemos en la necesidad de
brindarle al cliente un producto remozado y acorde a los tiempos
actuales sin mayores demoras.
No se como es el grado de exigencia de tu clientela pero si yo a
cualquiera de mis clientes le digo que tendrá que esperar entre 12 y
18 meses para tener lo mismo que tiene ahora pero en entorno gráfico
me dará una buena patada en el... pompis y buscará otro producto ya
desarrollado.
Y convengamos que de 12 a 18 meses es un tiempo razonable para
desarrollar, probar y depurar una aplicación mediana.
En cambio en mi caso -con C2W- demoré menos de 10 dias en "traducir"
un sistema completo de gestión administrativa (Ventas, Compras,
Stock, Tesorería, Contabilidad, Estadísticas, interfaces con AFIP,
interfaces con Rentas, consolidación de sucursales, y una larga lista
de etceteras) y entregarle al cliente un sistema de 32 bits, con una
interface semi-visual y con la confiabilidad anterior porque en
definitiva siguen siendo los mismos prg's.
La posibilidad de imprimir en impresoras de cualquier tipo o en
formato pdf o mandar mail desde el sistema ya la tenía de antes con
la versión DOS.
Ahora de a poco voy cambiando las pantallas de ingreso de datos para
agregarle todos los "chiches" (listbox, checkbox, radiobuttons, etc.)
a los cuales nos acostumbró nuestro amigo Bill.
Mientras tanto el cliente sigue utilizando nuestros sistemas y
nuestros servicios.
Otro tema que vos mencionás se refiere a las aplicaciones cliente/
servidor que permiten una mejora operatoria por internet.
Y la verdad es que acá tambien hay soluciones mágicas.
Actualmente existe un rdd gratuito que permite seguir usando las
tablas dbf/cdx bajo un esquema cliente servidor.
Se llama "LETODB" (http://sourceforge.net/projects/letodb/) y no solo
funciona muy bien sino que su implementación se logra agregando sólo
dos (2) lineas en el programa principal y luego ni siquiera hay que
tocar una coma en cada prg.
Ignoro la velocidad de actualización que hay en los foros de Fivewin
pero te aseguro que la cantidad de herramientas "mágicas" que han
aparecido recientemente y que se comentan en otras listas es
maravillosa.
Voy con mi propio ejemplo:
Partí de una base de un sistema Clipper 5.3 bastante bien escrito y
encapsulado (modestia aparte... jejeje).
Con el agregado de DOSPRINTER (http://www.geocities.com/dosprint/) y
modificando un par de lineas de programa solucioné todo lo
relacionado a  impresión, previsualización, email y reportes en
formato pdf.
Con la compilación bajo C2W pase a 32 bits y apariencia semi visual
nuevamente modificando dos lineas del programa principal.
Y por último y modificando otras dos lineas puedo trabajar en forma
cliente/servidor.
Para mi las soluciones mágicas SI existen y trabajan muy bien... y
considerando que tengo 50 años de edad calculo que me quedará un
horizonte de no más de 10 años de programación, entonces no me
resulta atractivo el sacrificio de hacer todo desde cero.
Y nuevamente parafraseando a Jose Luis: "...nuestro cliente quiere
ver la factura impresa y al cliente pagando en la caja. Le interesa
que las modificaciones que pide se entreguen rápido, que la
aplicación de mostrador funcione todo el tiempo que tiene abierto el
negocio, que las DDJJ para Hacienda sean correctas. Eso pagan
nuestros clientes..."

Saludos...
Ricardo Sassy



At 20:06 29/09/2008, you wrote:

Gente

Aunque este tema de las migraciones no es nada nuevo, quiero decir
que a mi parecer y el de muchos, que he leido sus opiniones. Q no es
por despreciar, pero herramientas que dicen convertir algo q ni tiene
la misma filosofia, ni basica. A mi entender se podria lograr con una
herramienta MAGICA y sin trabajo alguno.
La pregunta es. Pero a que costo?

Basicamente clipper es un sistema de programacion estructurado lineal
basado en funciones.
Los desarrolos para WIN su filosofia es desarrollo por eventos.

Es lo mismo que una herramienta magica, nos permita trasladar
nuestros sistemas de clipper con DBF, y por magia, las convierta en
cliente/servidor de MySQL.
Si haces pruebas van a funcionar.
Pero a que costo.
Teniendo en cuenta que la filosofia de trabajo, de DBF que usamos. No
tiene nada que ver con MySQL, y uso de Internet.
Cuando con DBFs armamos browses que muestra datos de miles de
registros.
Como vas a trasladar esos miles de registros por internet, para que
el usuario seleccione un registro.
Es logico pasar miles de registro por intenet sin un filtrado??
Cual es el costo de hacer esto??

Lo mismo pasa con la programacion de clipper DOS a WIN.
Es logico eso? A que costo??

Bueno la idea de hablar de estos temas, es para que pensemos un poco.
Y para que no nos vendan ideas magicas. Cuando la realidad del
desarrollo es otra.

Si safas, pero por cuanto tiempo.
Despues los clientes nos quieren matar por que no funcionan nuestros
cambios.

Espero les sea util.


Un abrazo




On Mon, 29 Sep 2008 19:29:57 -0300, Ricardo Sassy wrote
> Hola Federico.
> La página del desarrollador es esta: http://sistemascvc.tripod.com/
id10.html
> Alli puedes bajar una demo totalmente funcional.
> El grupo Yahoo es este:
> http://es.groups.yahoo.com/group/clip2win/
> Dentro de los files del grupo vas a encontrar ejemplos de sistemas
ya migrados.
> El utilitario C2W lo que permite es -básicamente- convertir los
programas
> Clipper a formato visual y 32 bits agregándo sólo dos lineas de
código en
> el programa principal.
> Muchos de nosotros hemos migrado los sistemas Clipper usando esta
> herramienta sin mayores problemas.
> Una vez que migraste un sistema puedes ir agregándole de a poco
módulos
> escritos en ooHg y de esa forma ir modernizando los programas sin
> descontinuar el uso de los mismos.
>
> Saludos...
> Ricardo Sassy

Analista Programador con mas de 15 años de experiencia en Cipper 5.2 y
Visual FoxPro, MySQL, FiveWin. se ofrece para trabajar Full Time /
Partime, amplia experiencia, en distintos rubros y responsabilidad.
Dejar Mensaje a Eduardo Martinez

----- Original Message -----

From: Eduardo Rizzolo

To: ifclipper@...

Sent: Monday, September 29, 2008 8:06 PM

Subject: Re: [ifclipper] Una mano... por favor...

Gente

Aunque este tema de las migraciones no es nada nuevo, quiero decir que a mi parecer y el de muchos, que he leido sus opiniones. Q no es por despreciar, pero herramientas que dicen convertir algo q ni tiene la misma filosofia, ni basica. A mi entender se podria lograr con una herramienta MAGICA y sin trabajo alguno.
La pregunta es. Pero a que costo?

Basicamente clipper es un sistema de programacion estructurado lineal basado en funciones.
Los desarrolos para WIN su filosofia es desarrollo por eventos.

Es lo mismo que una herramienta magica, nos permita trasladar nuestros sistemas de clipper con DBF, y por magia, las convierta en cliente/servidor de MySQL.
Si haces pruebas van a funcionar.
Pero a que costo.
Teniendo en cuenta que la filosofia de trabajo, de DBF que usamos. No tiene nada que ver con MySQL, y uso de Internet.
Cuando con DBFs armamos browses que muestra datos de miles de registros.
Como vas a trasladar esos miles de registros por internet, para que el usuario seleccione un registro.
Es logico pasar miles de registro por intenet sin un filtrado??
Cual es el costo de hacer esto??

Lo mismo pasa con la programacion de clipper DOS a WIN.
Es logico eso? A que costo??

Bueno la idea de hablar de estos temas, es para que pensemos un poco.
Y para que no nos vendan ideas magicas. Cuando la realidad del desarrollo es otra.

Si safas, pero por cuanto tiempo.
Despues los clientes nos quieren matar por que no funcionan nuestros cambios.

Espero les sea util.


Un abrazo




On Mon, 29 Sep 2008 19:29:57 -0300, Ricardo Sassy wrote
> Hola Federico.
> La página del desarrollador es esta: http://sistemascvc.tripod.com/id10.html
> Alli puedes bajar una demo totalmente funcional.
> El grupo Yahoo es este:
> http://es.groups.yahoo.com/group/clip2win/
> Dentro de los files del grupo vas a encontrar ejemplos de sistemas ya migrados.
> El utilitario C2W lo que permite es -básicamente- convertir los programas
> Clipper a formato visual y 32 bits agregándo sólo dos lineas de código en
> el programa principal.
> Muchos de nosotros hemos migrado los sistemas Clipper usando esta
> herramienta sin mayores problemas.
> Una vez que migraste un sistema puedes ir agregándole de a poco módulos
> escritos en ooHg y de esa forma ir modernizando los programas sin
> descontinuar el uso de los mismos.
>
> Saludos...
> Ricardo Sassy
>
> At 16:31 29/09/2008, you wrote:
> >Ricardo de donde puedo obtener c2w y me podrias proporcionar un codigo de
> >ejemplo desde ya muchas gracias
> >
> >Federico de Maussion
> >Deán Funes - Córdoba
> > Argentina
> >
> >Ricardo Sassy escribió:
> > >
> > > Hola Gustavo.
> > > Con C2W lo solucioné transitoriamente trabajando la impresora en modo
> > > spool (la verdad es que este modo es muy práctico y fácil de usar).
> > > De todas formas estoy esperando la respuesta de otro colega (Guillermo
> > > Luhning) que me dijo que usando una lib específica llamada
> > > h32032bc.lib pudo usar las impresoras Hasar en C2W en modo nativo.
> > > Mientras tanto me sigo defendiendo en el modo spool.
> > > Por las dudas... ¿alguien tendrá la librería que menciono más arriba?.
> > >
> > > Saludos...
> > > Ricardo Sassy
> > >
> > > At 15:31 29/09/2008, you wrote:
> > >
> > >> Mario : Disculpa la intromison en el tema, es que tengo el mismo
> > >> problema. Tengo dearrollado un modulo de facturación en clipper52
> > >> funcionando correctamente y debi migrar el sistema , para lo cual
> > >> utilice la herramienta de Ciro C2W, pero no puedo hacer funcionar
> > >> la impresora. Me fui guiando con las instrucciones bajas de Hasar
> > >> pero no hay caso.
> > >> Podrias mandar un ejemplo , desde ya muchas gracias
> > >>
> > >> Gustavo Gabriele
> > >>
> > >> ----------------------------------------------------------
> > >> *De:* ifclipper@gruposyahoo.com.ar
> > >> [mailto:ifclipper@gruposyahoo.com.ar
> > >> <mailto:ifclipper@gruposyahoo.com.ar>] *En nombre de
> > >> *mariomansilla@arnet.com.ar
> > >> *Enviado el:* Lunes, 29 de Septiembre de 2008 01:32 p.m.
> > >> *Para:* ifclipper@gruposyahoo.com.ar
> > >> *Asunto:* Re: [ifclipper] Una mano... por favor...
> > >>
> > >>
> > >> Hola Ricardo :
> > >> Disculpas recien hoy veo tu mensaje , yo
> > >> pude hacer funcionar las impresoras fiscales hasar con la
> > >> winfis32.dll y las epson con las ocx de epson , pero con HMG oficial .
> > >> Aun no he tenido tiempo de probar las ocx de hasar .
> > >> Cualquier cosa avisame .
> > >> Saludos .
> > >> Mario Mansilla
> > >>
> > >>
> > >>
> > >>
> > >> > Hola Eduardo.
> > >> > Te agradezco la info.
> > >> > Estoy usando ooHg + Harbour 1.0.
> > >> > El problema que acabo de descubrir es que no puedo acceder a
> > >> ninguna dll.
> > >> > Probé un ejemplo básico con una dll que tiene funciones que te
> > >> devuelven
> > >> > el
> > >> > nro. de serie del disco y tampoco funciona.
> > >> > EL programa ejecuta sin errores pero alga pasa que no anda.
> > >> > Inclusive si le cambio el nombre a la dll tampo saltan errores asi que
> > >> > tiene que ser algo muy elemental.
> > >> >
> > >> >
> > >> Desde ya gracias...
> > >> > ¿Alquien probó acceder a la impresora usando los controles ocx?.
> > >> >
> > >> > Saludos...
> > >> > Ricardo Sassy
> > >> >
> > >> > At 18:58 27/09/2008, you wrote:
> > >> >>Ricardo
> > >> >>
> > >> >>En puertosur estamos armando una clase fiscal para xHarbour consola.
> > >> >>No tengo idea si va a funcionar con Harbour.
> > >> >>Solo te puedo decir q ayer la hice andar pero con xHarbour 1.00
> > >> >> compilacion de
> > >> >>PuertoSur.
> > >> >>Otra version no me funciono. No tengo ni idea de como es el estado de
> > >> >> Harbour
> > >> >>y la compativilidad.
> > >> >>
> > >> >>Direcciones de correo electrónico del grupo
> > >> >>
> > >> >> Enlace relacionado: http://www.puertosur.org
> > >> <http://www.puertosur.org/>
> > >> >> Enviar mensaje: PuertoSur@gruposyahoo.com.ar
> > >> >> Suscribirse: PuertoSur-subscribe@gruposyahoo.com.ar
> > >> >> Cancelar suscripción: PuertoSur-unsubscribe@gruposyahoo.com.ar
> > >> >> Propietario: PuertoSur-owner@gruposyahoo.com.ar
> > >> >>
> > >> >>On Sat, 27 Sep 2008 18:01:01 -0300, Ricardo Sassy wrote
> > >> >> > Hola Juan Carlos
> > >> >> > Uso Harbour 1.0 en modo consola.
> > >> >> > No tengo ningún warning ni nada raro en la compilación.
> > >> >> > El exe se genera normalmente y su ejecución no produce erorres de
> > >> >> ningún tipo.
> > >> >> > Incluso intenté algo tan básico como esto:
> > >> >> > cInfo := CallDll ( "VersionDLLFiscal" , "WINFIS32.DLL" )
> > >> >> > alert(cInfo)
> > >> >> > y devuelve un string vacio.
> > >> >> >
> > >> >> > Evidentemente me falta hacer algo que desconozco.
> > >> >> > Por las dudas... ¿que fecha y tamaño tiene la winfis32.dll que
> > >> estás
> > >> >> usando?.
> > >> >> > Estoy usando una del 01/12/2005 de 61440 bytes.
> > >> >> > ¿Será que tengo una dll equivocada?.
> > >> >> >
> > >> >> > Saludos y gracias...
> > >> >> > Ricardo Sassy
> > >> >> >
> > >> >> > At 14:13 27/09/2008, you wrote:
> > >> >> >
> > >> >>--
> > >> >> Eduardo Rizzolo
> > >> >> Eldorado, Misiones Argentina
> > >> >> INF 0023
> > >> >> Correo principal y Msn Hotmail:fullpaint@pinturas-misioneras.com.ar
> > >> >> skype:fullpaint1
> > >> >> ICQ:39280741
> > >> >> www.creacionistas.com <http://www.creacionistas.com/> -> Que lindo
> > >> cuentito nos contaron!!
> > >> >> www.puertosur.org <http://www.puertosur.org/>
> > >> >>
> > >> >>
> > >> >>------------------------------------
> > >> >>
> > >> >>Enlaces a Yahoo! Grupos
> > >> >>
> > >> >>
> > >> >>
> > >> >>
> > >> >
> > >> >
> > >
> >
> >__________________________________________________
> >Correo Yahoo!
> >Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
> >¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar
> >
> >------------------------------------
> >
> >Enlaces a Yahoo! Grupos
> >
> >
> >
> >
>
>


--
Eduardo Rizzolo
Eldorado, Misiones Argentina
INF 0023
Correo principal y Msn Hotmail:fullpaint@pinturas-misioneras.com.ar
skype:fullpaint1
ICQ:39280741
www.creacionistas.com -> Que lindo cuentito nos contaron!!
www.puertosur.org

Direcciones de correo electrónico del grupo

Muchachos, me alegro por el descubrimiento.
 
Pero … lamento meter la púa … jeje. Ojo, la caja de alfajores ya es un compromiso asumido!!!
 
Sin embargo,  el problema ya Ricardo lo expuso, se rompe la concomitancia y además, atenti!!, la reglamentación aclara que debe haber para cada punto de atención una IF.
 
Volviendo al Spooler, no entiendo; aún, cual es el objetivo de HASAR, pero no es recomendable operar de esa forma y menos aún compartir la IF.
Otro punto es la IP, es cierto, cualquier cosa que funciona en intranet, puede funcionar “teóricamente” por Internet, pero de allí a cumplir con reglamentaciones vigentes es otro tema.
 
No se olviden, que la mayoría de las empresas que utilizan ERP’s (algunos ni siquiera llegan a la E y lo llaman así igual) son por lo general empresas grandes donde la facturación por IF es insignificante respecto a de la facturación general (para la que suelen ser Auto Numeradores) y por lo tanto pueden obtener excepciones de parte de la AFIP. 
 
Si, ya sé que las inspecciones de la AFIP y bla, bla bla… pero recuerden que son SOLIDARIOS RESPONSABLES con el usuario de la IF (firme quien firme el formulario…)
 
Very happy sooling!!!!
 
Claudio Torrillo
www.xcsa.com.ar
 

---

De: ifclipper@... [mailto:ifclipper@...] En nombre de Ricardo Sassy
Enviado el: Miércoles, 01 de Octubre de 2008 08:51 p.m.
Para: ifclipper@...
Asunto: Re: [ifclipper] Una mano... por favor...
 

Es fácil.
1º) Arrancás el wspooler con el parámetro "-k".
2º) Con el utilitario "sndcmd.exe" que viene con las Hasar, le mandas el archivo lote de comandos fiscales a la dirección ip de la pc donde está la impresora.
Por defecto la impresora (mejor dicho el wspooler.exe) usa el puerto 1600 pero se puede cambiar.
Funciona "pipi cucu" inclusive en una wan. El tráfico de datos es muy bajo y con una conexión a internet regular ya alcanza para trabajar.
Incluso funciona prefectamente reemplazando la dirección ip con una dirección dns del tipo xxx.no-ip o xxx.dyndns.
Siempre me pregunté cómo era que los grandes programas ERP podian imprimir en la fiscal en forma remota y con aplicaciones web y nosotros -de vuelo más bajo-  teníamos que andar renegando con los puertos, las velocidades, la humedad y la ceguera de la abuelita.
Resultó ser una bol...ez de marca mayor.
Es una lástima que los de Hasar no le den más "manija" a esta forma de trabajo porque la verdad es que nos ahorra muchos problemas.
En la explicación original me olvidé decirles que para poder usar el wspooler.exe primero deben copiar el archivo winfis32.dll a la carpeta \windows\system32 ya que ese utilitario utiliza dicha dll.

Saludos...
Ricardo Sassy



At 19:35 01/10/2008, you wrote:

Noo No NO NO...ahora explica el tema de trabajar la impresora con IP....me parece interesante....
salu2
Carlos
como te pregunto Gerardo esto es con Hasar unicamente  o Epson tiene algo parecido?...
 
 
 
 
 
----- Original Message -----
From: Ricardo Sassy
To: ifclipper@...
Sent: Wednesday, October 01, 2008 7:14 PM
Subject: RE: [ifclipper] Una mano... por favor...
El asado lo podemos hacer aunque la impresora funcione bien.
Si hacen bien las cosas no van a tener problemas con la impresora.
Estuve todo el fin de semana con una impresora que me prestó un cliente y me cansé de facturar y hacer cierres Z sin ningún problema.
Incluso probé la opción de trabajar la impresora con el protocolo IP y anduvo excelente, pero la explicación la dejo para otra oportunidad.
Para hacer una prueba simple del modo spool basta con cargar el programa spooler.exe con los parámetros que expliqué antes y tirarle en la carpeta que hayan  elegido el archivo FA.330 que lo van a encontrar entre los drivers y utilitarios de Hasar.
Ese archivo es un pequeño lote de comandos par emitir una factura "A" pero revisen los importes unitarios para no meter la pata.
Con facturar $ 0,10 + iva alcanza para probar.
Agradezco lo de los alfajores. En el mail anterior puse mal la dirección: es Vidal 3916.
Respecto del asado... en la bodeguita tengo un Rutini merlot que me mira con cariño.
Saludos...
Ricardo Sassy
At 16:28 01/10/2008, you wrote:

Ricardo : La palabra del programador es palabra santa, ya te aviso cundo salen para alla.
 
PD: Tomalo como una pequeña recompensa espiritual de todos los que dejamos de tomar Migral para el dolor de cabeza originado  por las impresoras fiscales.
OjO , que si cuando lo probamos no funca, caemos todos a comer asado a tu casa  (jajajajajajajajajaja)
 
Un abrazo
Gustavo Gabriele
 
 

---

De: ifclipper@... [mailto:ifclipper@...] En nombre de Ricardo Sassy
Enviado el: Miércoles, 01 de Octubre de 2008 03:21 p.m.
Para: ifclipper@...
Asunto: RE: [ifclipper] Una mano... por favor...
 
Si hubiera sabido esto lo escribía un poco antes !!!!
Jajajaja...
Es verdad el dicho que dice "la necesidad tiene cara de hereje".
Esto del spool lo descubrí y lo investigué como una alternativa por no poder hacer andar la fucking impresora fiscal desde Harbour.
Si lo de los alfajores es cierto: Vidal 3016 Capital Federal; si no es cierto no importa... jajajaja.
Saludos.
Ricardo Sassy


At 13:43 01/10/2008, you wrote:

Ricardo , una maravilla mañana me pongo a probar.
 
Gustavo Gabriele
PD :  Hay una caja de Alfajores Habanna y una de habanet esperado que digas donde los mando
 

---

Este mensaje ha sido verificado por el E-mail Protegido. Antivirus actualizado en 01/10/2008 / Versión: 0.93.1/8369

----- Original Message -----

From: Ricardo Sassy

To: ifclipper@...

Sent: Wednesday, October 01, 2008 12:01 AM

Subject: RE: [ifclipper] Una mano... por favor...

Bueno... aqui voy con la explicación del modo spool, aclarando que desde el punto de vista "legal" dicho modo de trabajo sólo se "aceptaría" en aquellos comercios que por su naturaleza está exceptuados de respetar la famosa concomitancia... (¿alguien la respeta?).

El modo "spool" de las impresoras Hasar es un modo de trabajo donde la impresora está todo el tiempo "viendo" lo que le tiran dentro de una carpeta predeterminada y tratando de procesar en forma batch los archivos que se colocan en dicha carpeta.
Si la impresora "encuentra" un archivo interpretable (desde el punto de vista de la impresora o sea con comandos fiscales) lo procesa y devuelve el resultado de ese proceso en otra carpeta predeterminada, con el mismo nombre del archivo de entrada pero con la extensión ".ANS"  (de "answer... ¿vieron?).
En otras palabras, la impresora esta a la espera de que desde nuestro aplicacativo generemos un archivo plano con la secuencia de comandos a ejecutar y le copiemos ese archivo a la carpeta donde "ella" está esperando.

El modo spool se poner en marcha ejecutando el programa WSPOOLER.EXE que es parte de los programas y drivers que se pueden bajar de la página de Hasar.
Este programa abre una sesión de DOS (que luego podemos minimizar) y queda en ejecución permanente hasta que lo cancelemos con CTRL-C.

Vamos a un ejemplo totalmente funcional para comprender los parámetros que necesita este programa:
WSPOOLER -p1 -v57600 -l -n -sC:\FISCAL\ENTRADA -aC:\FISCAL\SALIDA
"-p" es el parámetro donde le indicamos al programa cuál es el puerto COM a abrir para comunicarse con la impreosa.
"-v" es el parámetro donde le indicamos al programa cuál es la velocidad con que operaremos dicho puerto. Esta velocidad debe coincidir con la seteada en la impresora mediante el utilitario Pruf.
"-l" (ojo... ele de lagarto y no i de inútil) sirve para que el programa vaya generando un archivo log que nos puede servir hipotéticamente para detectar errores de comandos o de funcionamiento. Este archivo log se llama -por defecto- "spooler.log" y contiene información muy interesante para ver por qué a veces nos equivocamos en la sintáxis de un comando fiscal o por qué la impresora se niega a ejecutar un comando que creemos que está bien.
Este un ejemplo del contenido (acumulativo) de spooler.log:
30/09-23:04:20: **START SPOOLER**
30/09-23:04:20: A abrir COM1
30/09-23:04:21: Comando completado: *
30/09-23:04:21: Comando completado: *
30/09-23:04:21: Comando completado: D| |0.0|C|0
30/09-23:04:21: Comando completado: E
30/09-23:04:21: Comando completado: J
"-n" sirve para que en el archivo de respuestas que nos devuelve el programa spooler cada linea de respuestas esté encabezada por el comando que le dió origen.
Esto sirve para poder interpretar mejor ese archivo de respuestas y saber qué nos fué "contestando" la impresora por cada comando que le enviamos.
"-s" es el parámetro que sirve para indicarle al programa spooler cuál es la carpeta donde tiene que estar "a la escucha".
Cualquier archivo que "caiga" es esa carpeta será procesado y posteriormente borrado en forma automática por el programa spooler.exe.
"-a" es el parámetro donde le pido al programa spooler que me devuelva los resultados de la impresora fiscal.
Continuando con el ejemplo, si a la carpeta c:\fiscal\entrada le "tiro" un archivo denominado "99XZC208.FIS" (archivo que obviamente contiene una colección de comandos fiscales para -por ejemplo- emitir una factura), la respuesta de la impresora quedará en C:\FISCAL\SALIDA, en un archivo denominado "99XZC208.ANS".

Es responsabilidad de nuestros aplicativos revisar ese archivo de salida para cerciorarnos que la impresión finalizó correctamente y poder recuperar datos que sean necesarios para actualizar nuestras propias bases de datos.
En mi caso, por ejemplo, tomo de ese archivo el nro. de comprobante emitido, el punto de venta y el monto de iva total, para poder actualizar las bases del sistema en corcondancia con lo emitido por la impresora fiscal.

Los comandos que se le envian a la impresora son EXACTAMENTE LOS MISMOS que usamos habitualmente en el modo de trabajo normal.
Para los que hayan tomado el ejemplo de codificación Clipper que ofrece Hasar, cada linea de este archivo es el contenido de la variable "s" de los ejemplos.

Este es un ejemplo de archivo de comandos para emitir una factura "A":

bEmpresa Equis S.A.30702383923ICDomicilio...
@AS
BItem Uno1.01.021.0M0.00b
BItem Dos1.01.010.5M0.00b
CPSubtotal0
DEfectivo100.00T0
E

La primera linea carga los datos del cliente.
La segunda linea abre el comprobante factura "A",
La tercera y cuarta lineas cargan items de venta con distintas tasas de iva.
La quinta linea pide e imprime un subtotal.
La sexta linea es la del pago.
La séptima linea es la del cierre de comprobante.
Si miran con atención verán que el primer caracter es la representación ascii del comando fiscal.
Obviamente lo que aquí se ve como un símbolo raro es la representación del caracter CHR(28) que se utiliza como separador de campos.

Si todo está bien, la impresora nos devolverá un archivo con estas respuestas (siempre en relación el ejemplo de factura "A" de arriba):
b|1100000010000000|0000011000000000
@|1100000010000000|0011011000000000|00000049
B|1100000010000000|0011011000000000
B|1100000010000000|0011011000000000
C|1100000010000000|0011011000000000|2.0000|2.32|0.32|0.00|0.00|0.00
D|1100000010000000|0011011000000000|-97.68
E|1100000010000000|0000011000000000|00000049|1|2369-0800966608
Entonces simplemente hay que leer este archivo plano y en base al primer caracter ir interpretando y rescatando los datos que nos interesan.
Por ejemplo de la linea "E" yo saco el nro. de comprobante otorgado y el nro. de cai y de la linea "C" saco los totales de iva acumulados.
El contenido de cada linea de respuesta es posicionalmente hablando EXACTAMENTE lo que figura en el manual como respuesta a cada comando.
Para facilitar la intepretación de las respuestas, el programa spooler reemplaza el caracter CHR(28) por el caracter "|" (pipe) como separador de campos.

RESUMEN:
1º) Genero un archivo ascii con la colección de comandos necesarios para una tarea determinada (emitir factura "A", pedir un cierre "Z", etc.) y copiarlo a la carpeta de entrada del spooler.
Si se trabaja desde varios puestos de trabajo simultáneos con una única impresora fiscal es conveniente que el nombre del archivo sea en parte relacionado con el puesto de trabajo y en parte al azar.
2º) Esperar alrededor de 20 segundos hasta que la impresora finaliza la impresión y luego leer el archivo de respuestas (mismo nombre que el de entrada pero con extensión ".ANS").
3º) Interpretar el archivo leido y en base a eso interactuar con el aplicativo propio.

VENTAJAS:
1º) Se puede operar la impresora fiscal desde varios puestos de trabajo simultáneamente, con solo tener acceso desde nuestra pc "facturadora" a las carpetas de spool de la pc donde físicamente está conectada la impresora fiscal... que es donde está corriendo el programa spooler.exe.
2º) Nuestro aplicativo se desentiende de abrir y cerrar puertos, setear velocidades y toda la cháchara del hardware. Simplemente le enviamos a la carpeta de spool los comandos a ejecutar.
3º) La operación del aplicactivo es más veloz porque no tiene que esperar la respuesta individual a cada comando sino que lee todo junto, al final y desde un archivo plano.
4º) Como de la parte del hardware se encarga el programa spooler.exe, no importa en qué lenguaje programemos siempre que seamos capaces de generar un archivo plano con los comandos y copiarlo a otra carpeta.
5º) En escenarios de Terminal Server o VPN podemos facturar en las sucursales SIN NINGUN ESFUERZO Y SIN RENEGAR CON EL HARDWARE, usando los programas y archivos que están en el servidor central (esto es maravilloso !!!).

EJEMPLO DE CODIFICACION:
Acá transcibo un ejemplo de cómo abro un loop esperando el archivo de respuestas de la respuesta de la impresora (en forma exclusiva para asegurarme que no falta nada) y luego interpreto ese archivo.


FUNCTION spoolmanager(cTipoDocum)
    IF EMPTY(cSpoolDir) .OR. EMPTY(cAnswerDir)
       ALERT('FALTA DEFINIR CARPETAS SPOOL FISCAL')
       RETURN(.F.)
    ENDIF
    COPY FILE (cArchSpool) TO (cSpoolDir+cFileSPool)
    PONER_MJE(24,"Recuperando Datos Finales... Espere un momento." )
    INKEY(10)
    ********** ACA LEER RESULTADOS Y ASIGNAR nTic
    cArchAnswer := ALLTRIM(cAnswerDir+cFileAnswer)
    nCantLineas := 0
    nIntentos   := 20
    nTic        := 0
    DO WHILE nIntentos > 0
       IF FILE(cArchAnswer)
          DO WHILE FT_FUSE(cArchAnswer,16)<1
          ENDDO
          FT_FGOTOP()
          DO WHILE !FT_FEOF()
             ++nCantLineas
             AADD(aLineasLeidas,FT_FREADLN())
             FT_FSKIP()
          ENDDO
          FT_FUSE()
          FOR I=1 TO nCantLineas
              DO CASE
                 CASE cTipoDocum=='FACTURA'
                      IF LEFT(aLineasLeidas[I],1)='E'
                         nTic  := VAL(SUBST(aLineasLeidas[I],37,8))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                         cCai1 := (SUBST(aLineasLeidas[I],48,15))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='C'
                         nTotalZZ := VAL(TOMAMEDIO(aLineasLeidas[I],'|',4))    //LINEA DE SUBTOTAL              (comando 'C')
                         nIvaZZ   := VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL              (comando 'C')
                      ENDIF
                 CASE cTipoDocum=='CREDITO'
                      IF LEFT(aLineasLeidas[I],1)='�'
                         nTic  := VAL(SUBST(aLineasLeidas[I],37,8))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                         cCai1 := (SUBST(aLineasLeidas[I],48,15))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='p'
                         nIvaZZ   += VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL
                         nTotalZZ += VAL(TOMAMEDIO(aLineasLeidas[I],'|',8))    //LINEA DE SUBTOTAL
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='q'
                         nIvaZZ   += VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL
                      ENDIF
              ENDCASE
          NEXT
          FERASE(cArchAnswer)
          FERASE(cArchSpool)
          EXIT
       ENDIF
       INKEY(.5)
       nIntentos := nIntentos - 1
       IF nIntentos = 0
          IF ALERT('ESPERANDO RESPUESTA IMPRESORA FISCAL...;¨CONTINUA?',{'SI','NO'}) < 2
             nIntentos := 10
          ENDIF
       ENDIF
    ENDDO
RETURN(.T.)


Espero haber sido claro.

Saludos...
Ricardo Sassy



8 29/09/2008, you wrote:

Ricardo : Si no es mucha molestia, me anoto para tu explicación y desde ya muchas gracias
 
Gustavo Gabriele
 

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de Ricardo Sassy
Enviado el: Lunes, 29 de Septiembre de 2008 10:04 p.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...
 

Si alguien necesita una explicación del modo spool me avisan.
Es muy fácil y hay que desentenderse de la apertura del puerto y todo eso.
Solamente enviar los comandos relacionados con el documento a imprimir o la consulta que se le quiera efectuar a la impresora.

Saludos...
Ricardo Sassy


At 19:26 29/09/2008, you wrote:

Mario : , alli Ricardo tiro una pista para utilizar la impresora en modo spooll del c2w, Igualmente muchas gracias
 
Gustavo
 

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de mariomansilla@arnet.com.ar
Enviado el: Lunes, 29 de Septiembre de 2008 05:36 p.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...
 

Hola Gustavo :
                          El ejemplo esta hecho para Hmg oficial , si te es util lo mismo te lo envio .
Saludos .
Mario Mansilla


> Mario : Disculpa la intromison en el tema, es que tengo el mismo problema.
> Tengo dearrollado un modulo de facturación en clipper52 funcionando
> correctamente y debi migrar el sistema , para lo cual utilice la
> herramienta
> de Ciro C2W, pero no puedo hacer funcionar la impresora. Me fui guiando
> con las instrucciones bajas de Hasar pero no hay caso.
> Podrias mandar un ejemplo , desde ya muchas gracias
>
> Gustavo Gabriele
>
> _____
>
>
De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En
> nombre de mariomansilla@arnet.com.ar
> Enviado el: Lunes, 29 de Septiembre de 2008 01:32 p.m.
> Para: ifclipper@gruposyahoo.com.ar
> Asunto: Re: [ifclipper] Una mano... por favor...
>
> Hola Ricardo :
> Disculpas recien hoy veo tu mensaje , yo pude
> hacer funcionar las impresoras fiscales hasar con la winfis32.dll y las
> epson con las ocx de epson , pero con HMG oficial .
> Aun no he tenido tiempo de probar las ocx de hasar .
> Cualquier cosa avisame .
> Saludos .
> Mario Mansilla
>
>
>
>
>> Hola Eduardo.
>> Te agradezco la info.
>> Estoy usando ooHg + Harbour 1.0.
>> El problema que acabo de descubrir es que no puedo acceder a ninguna
>> dll.
>> Probé un ejemplo básico con una dll que tiene funciones que te devuelven
>> el
>> nro. de serie del disco y tampoco funciona.
>> EL programa ejecuta sin errores pero alga pasa que no anda.
>> Inclusive si le cambio el nombre a la dll tampo saltan errores asi que
>> tiene que ser algo muy elemental.
>>
>>
>
Desde ya gracias...
>> ¿Alquien probó acceder a la impresora usando los controles ocx?.
>>
>> Saludos...
>> Ricardo Sassy
>>
>> At 18:58 27/09/2008, you wrote:
>>>Ricardo
>>>
>>>En puertosur estamos armando una clase fiscal para xHarbour consola.
>>>No tengo idea si va a funcionar con Harbour.
>>>Solo te puedo decir q ayer la hice andar pero con xHarbour 1.00
>>> compilacion de
>>>PuertoSur.
>>>Otra version no me funciono. No tengo ni idea de como es el estado de
>>> Harbour
>>>y la compativilidad.
>>>
>>>Direcciones de correo electrónico del grupo
>>>
>>> Enlace relacionado: http://www.puertosur.org
>>> Enviar mensaje: PuertoSur@gruposyahoo.com.ar
>>> Suscribirse: PuertoSur-subscribe@gruposyahoo.com.ar
>>> Cancelar suscripción: PuertoSur-unsubscribe@gruposyahoo.com.ar
>>> Propietario: PuertoSur-owner@gruposyahoo.com.ar
>>>
>>>On Sat, 27 Sep 2008 18:01:01 -0300, Ricardo Sassy wrote
>>> > Hola Juan Carlos
>>> > Uso Harbour 1.0 en modo consola.
>>> > No tengo ningún warning ni nada raro en la compilación.
>>> > El exe se genera normalmente y su ejecución no produce erorres de
>>> ningún tipo.
>>> > Incluso intenté algo tan básico como esto:
>>> > cInfo := CallDll ( "VersionDLLFiscal" , "WINFIS32.DLL" )
>>> > alert(cInfo)
>>> > y devuelve un string vacio.
>>> >
>>> > Evidentemente me falta hacer algo que desconozco.
>>> > Por las dudas... ¿que fecha y tamaño tiene la winfis32.dll que estás
>>> usando?.
>>> > Estoy usando una del 01/12/2005 de 61440 bytes.
>>> > ¿Será que tengo una dll equivocada?.
>>> >
>>> > Saludos y gracias...
>>> > Ricardo Sassy
>>> >
>>> > At 14:13 27/09/2008, you wrote:
>>> >
>>>--
>>> Eduardo Rizzolo
>>> Eldorado, Misiones Argentina
>>> INF 0023
>>> Correo principal y Msn Hotmail:fullpaint@pinturas-misioneras.com.ar
>>> skype:fullpaint1
>>> ICQ:39280741
>>> www.creacionistas.com -> Que lindo cuentito nos contaron!!
>>> www.puertosur.org
>>>
>>>
>>>------------------------------------
>>>
>>>Enlaces a Yahoo! Grupos
>>>
>>>
>>>
>>>
>>
>>
>
>

---

No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.173 / Virus Database: 270.7.5/1703 - Release Date: 02/10/2008 07:46 a.m.

Ricardo muchísimas gracias por la explicación.
Realmente  he estado renegando mucho sin poder obtener información al
respecto.

Federico de Maussion
Deán Funes - Córdoba
        Argentina

Ricardo Sassy escribió:
>
> Es fácil.
> 1º) Arrancás el wspooler con el parámetro "-k".
> 2º) Con el utilitario "sndcmd.exe" que viene con las Hasar, le mandas
> el archivo lote de comandos fiscales a la dirección ip de la pc donde
> está la impresora.
> Por defecto la impresora (mejor dicho el wspooler.exe) usa el puerto
> 1600 pero se puede cambiar.
> Funciona "pipi cucu" inclusive en una wan. El tráfico de datos es muy
> bajo y con una conexión a internet regular ya alcanza para trabajar.
> Incluso funciona prefectamente reemplazando la dirección ip con una
> dirección dns del tipo xxx.no-ip o xxx.dyndns.
> Siempre me pregunté cómo era que los grandes programas ERP podian
> imprimir en la fiscal en forma remota y con aplicaciones web y
> nosotros -de vuelo más bajo-  teníamos que andar renegando con los
> puertos, las velocidades, la humedad y la ceguera de la abuelita.
> Resultó ser una bol...ez de marca mayor.
> Es una lástima que los de Hasar no le den más "manija" a esta forma de
> trabajo porque la verdad es que nos ahorra muchos problemas.
> En la explicación original me olvidé decirles que para poder usar el
> wspooler.exe primero deben copiar el archivo winfis32.dll a la carpeta
> \windows\system32 ya que ese utilitario utiliza dicha dll.
>
> Saludos...
> Ricardo Sassy
>
>
>
> At 19:35 01/10/2008, you wrote:
>
>> Noo No NO NO...ahora explica el tema de trabajar la impresora con
>> IP....me parece interesante....
>> salu2
>> Carlos
>> como te pregunto Gerardo esto es con Hasar unicamente  o Epson tiene
>> algo parecido?...
>>
>>
>>
>>
>>
>>
>>     ----- Original Message -----
>>     From: Ricardo Sassy <mailto:sharley@...>
>>     To: ifclipper@...
>>     <mailto:ifclipper@...>
>>     Sent: Wednesday, October 01, 2008 7:14 PM
>>     Subject: RE: [ifclipper] Una mano... por favor...
>>
>>     El asado lo podemos hacer aunque la impresora funcione bien.
>>     Si hacen bien las cosas no van a tener problemas con la impresora.
>>     Estuve todo el fin de semana con una impresora que me prestó un
>>     cliente y me cansé de facturar y hacer cierres Z sin ningún problema.
>>     Incluso probé la opción de trabajar la impresora con el protocolo
>>     IP y anduvo excelente, pero la explicación la dejo para otra
>>     oportunidad.
>>     Para hacer una prueba simple del modo spool basta con cargar el
>>     programa spooler.exe con los parámetros que expliqué antes y
>>     tirarle en la carpeta que hayan  elegido el archivo FA.330 que lo
>>     van a encontrar entre los drivers y utilitarios de Hasar.
>>     Ese archivo es un pequeño lote de comandos par emitir una factura
>>     "A" pero revisen los importes unitarios para no meter la pata.
>>     Con facturar $ 0,10 + iva alcanza para probar.
>>     Agradezco lo de los alfajores. En el mail anterior puse mal la
>>     dirección: es Vidal 3916.
>>     Respecto del asado... en la bodeguita tengo un Rutini merlot que
>>     me mira con cariño.
>>
>>     Saludos...
>>     Ricardo Sassy
>>
>>     At 16:28 01/10/2008, you wrote:
>>>         Ricardo : La palabra del programador es palabra santa, ya te
>>>         aviso cundo salen para alla.
>>>
>>>         PD: Tomalo como una pequeña recompensa espiritual de todos
>>>         los que dejamos de tomar Migral para el dolor de cabeza
>>>         originado  por las impresoras fiscales.
>>>         OjO , que si cuando lo probamos no funca, caemos todos a
>>>         comer asado a tu casa  (jajajajajajajajajaja)
>>>
>>>         Un abrazo
>>>         Gustavo Gabriele
>>>
>>>
>>>        
------------------------------------------------------------------------
>>>         De: ifclipper@...
>>>         [mailto:ifclipper@...
>>>         <mailto:ifclipper@...>] En nombre de Ricardo
>>>         Sassy
>>>         Enviado el: Miércoles, 01 de Octubre de 2008 03:21 p.m.
>>>         Para: ifclipper@...
>>>         Asunto: RE: [ifclipper] Una mano... por favor...
>>>
>>>
>>>         Si hubiera sabido esto lo escribía un poco antes !!!!
>>>         Jajajaja...
>>>         Es verdad el dicho que dice "la necesidad tiene cara de hereje".
>>>         Esto del spool lo descubrí y lo investigué como una
>>>         alternativa por no poder hacer andar la fucking impresora
>>>         fiscal desde Harbour.
>>>         Si lo de los alfajores es cierto: Vidal 3016 Capital
>>>         Federal; si no es cierto no importa... jajajaja.
>>>
>>>         Saludos.
>>>         Ricardo Sassy
>>>
>>>
>>>
>>>         At 13:43 01/10/2008, you wrote:
>>>>             Ricardo , una maravilla mañana me pongo a probar.
>>>>
>>>>             Gustavo Gabriele
>>>>             PD :  Hay una caja de Alfajores Habanna y una de
>>>>             habanet esperado que digas donde los mando
>>>>
>>>>            
------------------------------------------------------------------------
>>     ------------------------------------------------------------------------
>>     Este mensaje ha sido verificado por el E-mail Protegido.
>>     Antivirus actualizado en 01/10/2008 / Versión: 0.93.1/8369
>>
>

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
¡Abrí tu cuenta ya! - http://correo.yahoo.com.ar

Noo No NO NO...ahora explica el tema de trabajar la impresora con IP....me parece interesante....
salu2
Carlos
como te pregunto Gerardo esto es con Hasar unicamente  o Epson tiene algo parecido?...
 
 
 
 
 

----- Original Message -----

From: Ricardo Sassy

To: ifclipper@...

Sent: Wednesday, October 01, 2008 7:14 PM

Subject: RE: [ifclipper] Una mano... por favor...

El asado lo podemos hacer aunque la impresora funcione bien.

Si hacen bien las cosas no van a tener problemas con la impresora.

Estuve todo el fin de semana con una impresora que me prestó un cliente y me cansé de facturar y hacer cierres Z sin ningún problema.

Incluso probé la opción de trabajar la impresora con el protocolo IP y anduvo excelente, pero la explicación la dejo para otra oportunidad.

Para hacer una prueba simple del modo spool basta con cargar el programa spooler.exe con los parámetros que expliqué antes y tirarle en la carpeta que hayan  elegido el archivo FA.330 que lo van a encontrar entre los drivers y utilitarios de Hasar.

Ese archivo es un pequeño lote de comandos par emitir una factura "A" pero revisen los importes unitarios para no meter la pata.

Con facturar $ 0,10 + iva alcanza para probar.

Agradezco lo de los alfajores. En el mail anterior puse mal la dirección: es Vidal 3916.

Respecto del asado... en la bodeguita tengo un Rutini merlot que me mira con cariño.

Saludos...

Ricardo Sassy

At 16:28 01/10/2008, you wrote:

Ricardo : La palabra del programador es palabra santa, ya te aviso cundo salen para alla.

 

PD: Tomalo como una pequeña recompensa espiritual de todos los que dejamos de tomar Migral para el dolor de cabeza originado  por las impresoras fiscales.

OjO , que si cuando lo probamos no funca, caemos todos a comer asado a tu casa  (jajajajajajajajajaja)

 

Un abrazo

Gustavo Gabriele

 

 

---

De: ifclipper@... [mailto:ifclipper@...] En nombre de Ricardo Sassy

Enviado el: Miércoles, 01 de Octubre de 2008 03:21 p.m.

Para: ifclipper@...

Asunto: RE: [ifclipper] Una mano... por favor...

 

Si hubiera sabido esto lo escribía un poco antes !!!!

Jajajaja...

Es verdad el dicho que dice "la necesidad tiene cara de hereje".

Esto del spool lo descubrí y lo investigué como una alternativa por no poder hacer andar la fucking impresora fiscal desde Harbour.

Si lo de los alfajores es cierto: Vidal 3016 Capital Federal; si no es cierto no importa... jajajaja.

Saludos.

Ricardo Sassy

At 13:43 01/10/2008, you wrote:

Ricardo , una maravilla mañana me pongo a probar.

 

Gustavo Gabriele

PD :  Hay una caja de Alfajores Habanna y una de habanet esperado que digas donde los mando

 

---

---

Este mensaje ha sido verificado por el E-mail Protegido. Antivirus actualizado en 01/10/2008 / Versión: 0.93.1/8369

Ricardo, y que les decís a los clientes que tienen impresoras EPSON y te piden trabajar en red con las mismas?????
O tenés algo hecho para que las EPSON trabajen en red?
 
 
Gerardo J. Biagiotti
Analista de Sistemas
 
 


__________ Information from ESET Smart Security, version of virus signature database 3486 (20081001) __________

The message was checked by ESET Smart Security.

http://www.eset.com

----- Original Message -----

From: Ricardo Sassy

To: ifclipper@...

Sent: Wednesday, October 01, 2008 7:14 PM

Subject: RE: [ifclipper] Una mano... por favor...

El asado lo podemos hacer aunque la impresora funcione bien.
Si hacen bien las cosas no van a tener problemas con la impresora.
Estuve todo el fin de semana con una impresora que me prestó un cliente y me cansé de facturar y hacer cierres Z sin ningún problema.
Incluso probé la opción de trabajar la impresora con el protocolo IP y anduvo excelente, pero la explicación la dejo para otra oportunidad.
Para hacer una prueba simple del modo spool basta con cargar el programa spooler.exe con los parámetros que expliqué antes y tirarle en la carpeta que hayan  elegido el archivo FA.330 que lo van a encontrar entre los drivers y utilitarios de Hasar.
Ese archivo es un pequeño lote de comandos par emitir una factura "A" pero revisen los importes unitarios para no meter la pata.
Con facturar $ 0,10 + iva alcanza para probar.
Agradezco lo de los alfajores. En el mail anterior puse mal la dirección: es Vidal 3916.
Respecto del asado... en la bodeguita tengo un Rutini merlot que me mira con cariño.

Saludos...
Ricardo Sassy

At 16:28 01/10/2008, you wrote:

Ricardo : La palabra del programador es palabra santa, ya te aviso cundo salen para alla.
 
PD: Tomalo como una pequeña recompensa espiritual de todos los que dejamos de tomar Migral para el dolor de cabeza originado  por las impresoras fiscales.
OjO , que si cuando lo probamos no funca, caemos todos a comer asado a tu casa  (jajajajajajajajajaja)
 
Un abrazo
Gustavo Gabriele
 
 

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de Ricardo Sassy
Enviado el: Miércoles, 01 de Octubre de 2008 03:21 p.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...
 

Si hubiera sabido esto lo escribía un poco antes !!!!
Jajajaja...
Es verdad el dicho que dice "la necesidad tiene cara de hereje".
Esto del spool lo descubrí y lo investigué como una alternativa por no poder hacer andar la fucking impresora fiscal desde Harbour.
Si lo de los alfajores es cierto: Vidal 3016 Capital Federal; si no es cierto no importa... jajajaja.

Saludos.
Ricardo Sassy



At 13:43 01/10/2008, you wrote:

Ricardo , una maravilla mañana me pongo a probar.
 
Gustavo Gabriele
PD :  Hay una caja de Alfajores Habanna y una de habanet esperado que digas donde los mando
 

---

---

Este mensaje ha sido verificado por el E-mail Protegido. Antivirus actualizado en 01/10/2008 / Versión: 0.93.1/8369

Ricardo : La palabra del programador es palabra santa, ya te aviso cundo salen para alla.
 
PD: Tomalo como una pequeña recompensa espiritual de todos los que dejamos de tomar Migral para el dolor de cabeza originado  por las impresoras fiscales.
OjO , que si cuando lo probamos no funca, caemos todos a comer asado a tu casa  (jajajajajajajajajaja)
 
Un abrazo
Gustavo Gabriele
 
 

---

De: ifclipper@... [mailto:ifclipper@...] En nombre de Ricardo Sassy
Enviado el: Miércoles, 01 de Octubre de 2008 03:21 p.m.
Para: ifclipper@...
Asunto: RE: [ifclipper] Una mano... por favor...
 

Si hubiera sabido esto lo escribía un poco antes !!!!
Jajajaja...
Es verdad el dicho que dice "la necesidad tiene cara de hereje".
Esto del spool lo descubrí y lo investigué como una alternativa por no poder hacer andar la fucking impresora fiscal desde Harbour.
Si lo de los alfajores es cierto: Vidal 3016 Capital Federal; si no es cierto no importa... jajajaja.

Saludos.
Ricardo Sassy



At 13:43 01/10/2008, you wrote:

Ricardo , una maravilla mañana me pongo a probar.
 
Gustavo Gabriele
PD :  Hay una caja de Alfajores Habanna y una de habanet esperado que digas donde los mando
 

---

Ricardo , una maravilla mañana me pongo a probar.
 
Gustavo Gabriele
PD :  Hay una caja de Alfajores Habanna y una de habanet esperado que digas donde los mando
 

---

----- Original Message -----

From: HQ Sistemas

To: ifclipper@...

Sent: Wednesday, October 01, 2008 1:43 PM

Subject: RE: [ifclipper] Una mano... por favor...

Ricardo , una maravilla mañana me pongo a probar.

Gustavo Gabriele

PD :  Hay una caja de Alfajores Habanna y una de habanet esperado que digas donde los mando

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de Ricardo Sassy
Enviado el: Miércoles, 01 de Octubre de 2008 12:02 a.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...

Bueno... aqui voy con la explicación del modo spool, aclarando que desde el punto de vista "legal" dicho modo de trabajo sólo se "aceptaría" en aquellos comercios que por su naturaleza está exceptuados de respetar la famosa concomitancia... (¿alguien la respeta?).

El modo "spool" de las impresoras Hasar es un modo de trabajo donde la impresora está todo el tiempo "viendo" lo que le tiran dentro de una carpeta predeterminada y tratando de procesar en forma batch los archivos que se colocan en dicha carpeta.
Si la impresora "encuentra" un archivo interpretable (desde el punto de vista de la impresora o sea con comandos fiscales) lo procesa y devuelve el resultado de ese proceso en otra carpeta predeterminada, con el mismo nombre del archivo de entrada pero con la extensión ".ANS"  (de "answer... ¿vieron?).
En otras palabras, la impresora esta a la espera de que desde nuestro aplicacativo generemos un archivo plano con la secuencia de comandos a ejecutar y le copiemos ese archivo a la carpeta donde "ella" está esperando.

El modo spool se poner en marcha ejecutando el programa WSPOOLER.EXE que es parte de los programas y drivers que se pueden bajar de la página de Hasar.
Este programa abre una sesión de DOS (que luego podemos minimizar) y queda en ejecución permanente hasta que lo cancelemos con CTRL-C.

Vamos a un ejemplo totalmente funcional para comprender los parámetros que necesita este programa:
WSPOOLER -p1 -v57600 -l -n -sC:\FISCAL\ENTRADA -aC:\FISCAL\SALIDA
"-p" es el parámetro donde le indicamos al programa cuál es el puerto COM a abrir para comunicarse con la impreosa.
"-v" es el parámetro donde le indicamos al programa cuál es la velocidad con que operaremos dicho puerto. Esta velocidad debe coincidir con la seteada en la impresora mediante el utilitario Pruf.
"-l" (ojo... ele de lagarto y no i de inútil) sirve para que el programa vaya generando un archivo log que nos puede servir hipotéticamente para detectar errores de comandos o de funcionamiento. Este archivo log se llama -por defecto- "spooler.log" y contiene información muy interesante para ver por qué a veces nos equivocamos en la sintáxis de un comando fiscal o por qué la impresora se niega a ejecutar un comando que creemos que está bien.
Este un ejemplo del contenido (acumulativo) de spooler.log:
30/09-23:04:20: **START SPOOLER**
30/09-23:04:20: A abrir COM1
30/09-23:04:21: Comando completado: *
30/09-23:04:21: Comando completado: *
30/09-23:04:21: Comando completado: D| |0.0|C|0
30/09-23:04:21: Comando completado: E
30/09-23:04:21: Comando completado: J
"-n" sirve para que en el archivo de respuestas que nos devuelve el programa spooler cada linea de respuestas esté encabezada por el comando que le dió origen.
Esto sirve para poder interpretar mejor ese archivo de respuestas y saber qué nos fué "contestando" la impresora por cada comando que le enviamos.
"-s" es el parámetro que sirve para indicarle al programa spooler cuál es la carpeta donde tiene que estar "a la escucha".
Cualquier archivo que "caiga" es esa carpeta será procesado y posteriormente borrado en forma automática por el programa spooler.exe.
"-a" es el parámetro donde le pido al programa spooler que me devuelva los resultados de la impresora fiscal.
Continuando con el ejemplo, si a la carpeta c:\fiscal\entrada le "tiro" un archivo denominado "99XZC208.FIS" (archivo que obviamente contiene una colección de comandos fiscales para -por ejemplo- emitir una factura), la respuesta de la impresora quedará en C:\FISCAL\SALIDA, en un archivo denominado "99XZC208.ANS".

Es responsabilidad de nuestros aplicativos revisar ese archivo de salida para cerciorarnos que la impresión finalizó correctamente y poder recuperar datos que sean necesarios para actualizar nuestras propias bases de datos.
En mi caso, por ejemplo, tomo de ese archivo el nro. de comprobante emitido, el punto de venta y el monto de iva total, para poder actualizar las bases del sistema en corcondancia con lo emitido por la impresora fiscal.

Los comandos que se le envian a la impresora son EXACTAMENTE LOS MISMOS que usamos habitualmente en el modo de trabajo normal.
Para los que hayan tomado el ejemplo de codificación Clipper que ofrece Hasar, cada linea de este archivo es el contenido de la variable "s" de los ejemplos.

Este es un ejemplo de archivo de comandos para emitir una factura "A":

bEmpresa Equis S.A.30702383923ICDomicilio...
@AS
BItem Uno1.01.021.0M0.00b
BItem Dos1.01.010.5M0.00b
CPSubtotal0
DEfectivo100.00T0
E

La primera linea carga los datos del cliente.
La segunda linea abre el comprobante factura "A",
La tercera y cuarta lineas cargan items de venta con distintas tasas de iva.
La quinta linea pide e imprime un subtotal.
La sexta linea es la del pago.
La séptima linea es la del cierre de comprobante.
Si miran con atención verán que el primer caracter es la representación ascii del comando fiscal.
Obviamente lo que aquí se ve como un símbolo raro es la representación del caracter CHR(28) que se utiliza como separador de campos.

Si todo está bien, la impresora nos devolverá un archivo con estas respuestas (siempre en relación el ejemplo de factura "A" de arriba):
b|1100000010000000|0000011000000000
@|1100000010000000|0011011000000000|00000049
B|1100000010000000|0011011000000000
B|1100000010000000|0011011000000000
C|1100000010000000|0011011000000000|2.0000|2.32|0.32|0.00|0.00|0.00
D|1100000010000000|0011011000000000|-97.68
E|1100000010000000|0000011000000000|00000049|1|2369-0800966608
Entonces simplemente hay que leer este archivo plano y en base al primer caracter ir interpretando y rescatando los datos que nos interesan.
Por ejemplo de la linea "E" yo saco el nro. de comprobante otorgado y el nro. de cai y de la linea "C" saco los totales de iva acumulados.
El contenido de cada linea de respuesta es posicionalmente hablando EXACTAMENTE lo que figura en el manual como respuesta a cada comando.
Para facilitar la intepretación de las respuestas, el programa spooler reemplaza el caracter CHR(28) por el caracter "|" (pipe) como separador de campos.

RESUMEN:
1º) Genero un archivo ascii con la colección de comandos necesarios para una tarea determinada (emitir factura "A", pedir un cierre "Z", etc.) y copiarlo a la carpeta de entrada del spooler.
Si se trabaja desde varios puestos de trabajo simultáneos con una única impresora fiscal es conveniente que el nombre del archivo sea en parte relacionado con el puesto de trabajo y en parte al azar.
2º) Esperar alrededor de 20 segundos hasta que la impresora finaliza la impresión y luego leer el archivo de respuestas (mismo nombre que el de entrada pero con extensión ".ANS").
3º) Interpretar el archivo leido y en base a eso interactuar con el aplicativo propio.

VENTAJAS:
1º) Se puede operar la impresora fiscal desde varios puestos de trabajo simultáneamente, con solo tener acceso desde nuestra pc "facturadora" a las carpetas de spool de la pc donde físicamente está conectada la impresora fiscal... que es donde está corriendo el programa spooler.exe.
2º) Nuestro aplicativo se desentiende de abrir y cerrar puertos, setear velocidades y toda la cháchara del hardware. Simplemente le enviamos a la carpeta de spool los comandos a ejecutar.
3º) La operación del aplicactivo es más veloz porque no tiene que esperar la respuesta individual a cada comando sino que lee todo junto, al final y desde un archivo plano.
4º) Como de la parte del hardware se encarga el programa spooler.exe, no importa en qué lenguaje programemos siempre que seamos capaces de generar un archivo plano con los comandos y copiarlo a otra carpeta.
5º) En escenarios de Terminal Server o VPN podemos facturar en las sucursales SIN NINGUN ESFUERZO Y SIN RENEGAR CON EL HARDWARE, usando los programas y archivos que están en el servidor central (esto es maravilloso !!!).

EJEMPLO DE CODIFICACION:
Acá transcibo un ejemplo de cómo abro un loop esperando el archivo de respuestas de la respuesta de la impresora (en forma exclusiva para asegurarme que no falta nada) y luego interpreto ese archivo.


FUNCTION spoolmanager(cTipoDocum)
    IF EMPTY(cSpoolDir) .OR. EMPTY(cAnswerDir)
       ALERT('FALTA DEFINIR CARPETAS SPOOL FISCAL')
       RETURN(.F.)
    ENDIF
    COPY FILE (cArchSpool) TO (cSpoolDir+cFileSPool)
    PONER_MJE(24,"Recuperando Datos Finales... Espere un momento." )
    INKEY(10)
    ********** ACA LEER RESULTADOS Y ASIGNAR nTic
    cArchAnswer := ALLTRIM(cAnswerDir+cFileAnswer)
    nCantLineas := 0
    nIntentos   := 20
    nTic        := 0
    DO WHILE nIntentos > 0
       IF FILE(cArchAnswer)
          DO WHILE FT_FUSE(cArchAnswer,16)<1
          ENDDO
          FT_FGOTOP()
          DO WHILE !FT_FEOF()
             ++nCantLineas
             AADD(aLineasLeidas,FT_FREADLN())
             FT_FSKIP()
          ENDDO
          FT_FUSE()
          FOR I=1 TO nCantLineas
              DO CASE
                 CASE cTipoDocum=='FACTURA'
                      IF LEFT(aLineasLeidas[I],1)='E'
                         nTic  := VAL(SUBST(aLineasLeidas[I],37,8))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                         cCai1 := (SUBST(aLineasLeidas[I],48,15))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='C'
                         nTotalZZ := VAL(TOMAMEDIO(aLineasLeidas[I],'|',4))    //LINEA DE SUBTOTAL              (comando 'C')
                         nIvaZZ   := VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL              (comando 'C')
                      ENDIF
                 CASE cTipoDocum=='CREDITO'
                      IF LEFT(aLineasLeidas[I],1)='�'
                         nTic  := VAL(SUBST(aLineasLeidas[I],37,8))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                         cCai1 := (SUBST(aLineasLeidas[I],48,15))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='p'
                         nIvaZZ   += VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL
                         nTotalZZ += VAL(TOMAMEDIO(aLineasLeidas[I],'|',8))    //LINEA DE SUBTOTAL
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='q'
                         nIvaZZ   += VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL
                      ENDIF
              ENDCASE
          NEXT
          FERASE(cArchAnswer)
          FERASE(cArchSpool)
          EXIT
       ENDIF
       INKEY(.5)
       nIntentos := nIntentos - 1
       IF nIntentos = 0
          IF ALERT('ESPERANDO RESPUESTA IMPRESORA FISCAL...;¨CONTINUA?',{'SI','NO'}) < 2
             nIntentos := 10
          ENDIF
       ENDIF
    ENDDO
RETURN(.T.)


Espero haber sido claro.

Saludos...
Ricardo Sassy



8 29/09/2008, you wrote:

Ricardo : Si no es mucha molestia, me anoto para tu explicación y desde ya muchas gracias
 
Gustavo Gabriele
 

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de Ricardo Sassy
Enviado el: Lunes, 29 de Septiembre de 2008 10:04 p.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...
 

Si alguien necesita una explicación del modo spool me avisan.
Es muy fácil y hay que desentenderse de la apertura del puerto y todo eso.
Solamente enviar los comandos relacionados con el documento a imprimir o la consulta que se le quiera efectuar a la impresora.

Saludos...
Ricardo Sassy


At 19:26 29/09/2008, you wrote:

Mario : , alli Ricardo tiro una pista para utilizar la impresora en modo spooll del c2w, Igualmente muchas gracias
 
Gustavo
 

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de mariomansilla@arnet.com.ar
Enviado el: Lunes, 29 de Septiembre de 2008 05:36 p.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...
 

Hola Gustavo :
                          El ejemplo esta hecho para Hmg oficial , si te es util lo mismo te lo envio .
Saludos .
Mario Mansilla


> Mario : Disculpa la intromison en el tema, es que tengo el mismo problema.
> Tengo dearrollado un modulo de facturación en clipper52 funcionando
> correctamente y debi migrar el sistema , para lo cual utilice la
> herramienta
> de Ciro C2W, pero no puedo hacer funcionar la impresora. Me fui guiando
> con las instrucciones bajas de Hasar pero no hay caso.
> Podrias mandar un ejemplo , desde ya muchas gracias
>
> Gustavo Gabriele
>
> _____
>
>
De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En
> nombre de mariomansilla@arnet.com.ar
> Enviado el: Lunes, 29 de Septiembre de 2008 01:32 p.m.
> Para: ifclipper@gruposyahoo.com.ar
> Asunto: Re: [ifclipper] Una mano... por favor...
>
> Hola Ricardo :
> Disculpas recien hoy veo tu mensaje , yo pude
> hacer funcionar las impresoras fiscales hasar con la winfis32.dll y las
> epson con las ocx de epson , pero con HMG oficial .
> Aun no he tenido tiempo de probar las ocx de hasar .
> Cualquier cosa avisame .
> Saludos .
> Mario Mansilla
>
>
>
>
>> Hola Eduardo.
>> Te agradezco la info.
>> Estoy usando ooHg + Harbour 1.0.
>> El problema que acabo de descubrir es que no puedo acceder a ninguna
>> dll.
>> Probé un ejemplo básico con una dll que tiene funciones que te devuelven
>> el
>> nro. de serie del disco y tampoco funciona.
>> EL programa ejecuta sin errores pero alga pasa que no anda.
>> Inclusive si le cambio el nombre a la dll tampo saltan errores asi que
>> tiene que ser algo muy elemental.
>>
>>
>
Desde ya gracias...
>> ¿Alquien probó acceder a la impresora usando los controles ocx?.
>>
>> Saludos...
>> Ricardo Sassy
>>
>> At 18:58 27/09/2008, you wrote:
>>>Ricardo
>>>
>>>En puertosur estamos armando una clase fiscal para xHarbour consola.
>>>No tengo idea si va a funcionar con Harbour.
>>>Solo te puedo decir q ayer la hice andar pero con xHarbour 1.00
>>> compilacion de
>>>PuertoSur.
>>>Otra version no me funciono. No tengo ni idea de como es el estado de
>>> Harbour
>>>y la compativilidad.
>>>
>>>Direcciones de correo electrónico del grupo
>>>
>>> Enlace relacionado: http://www.puertosur.org
>>> Enviar mensaje: PuertoSur@gruposyahoo.com.ar
>>> Suscribirse: PuertoSur-subscribe@gruposyahoo.com.ar
>>> Cancelar suscripción: PuertoSur-unsubscribe@gruposyahoo.com.ar
>>> Propietario: PuertoSur-owner@gruposyahoo.com.ar
>>>
>>>On Sat, 27 Sep 2008 18:01:01 -0300, Ricardo Sassy wrote
>>> > Hola Juan Carlos
>>> > Uso Harbour 1.0 en modo consola.
>>> > No tengo ningún warning ni nada raro en la compilación.
>>> > El exe se genera normalmente y su ejecución no produce erorres de
>>> ningún tipo.
>>> > Incluso intenté algo tan básico como esto:
>>> > cInfo := CallDll ( "VersionDLLFiscal" , "WINFIS32.DLL" )
>>> > alert(cInfo)
>>> > y devuelve un string vacio.
>>> >
>>> > Evidentemente me falta hacer algo que desconozco.
>>> > Por las dudas... ¿que fecha y tamaño tiene la winfis32.dll que estás
>>> usando?.
>>> > Estoy usando una del 01/12/2005 de 61440 bytes.
>>> > ¿Será que tengo una dll equivocada?.
>>> >
>>> > Saludos y gracias...
>>> > Ricardo Sassy
>>> >
>>> > At 14:13 27/09/2008, you wrote:
>>> >
>>>--
>>> Eduardo Rizzolo
>>> Eldorado, Misiones Argentina
>>> INF 0023
>>> Correo principal y Msn Hotmail:fullpaint@pinturas-misioneras.com.ar
>>> skype:fullpaint1
>>> ICQ:39280741
>>> www.creacionistas.com -> Que lindo cuentito nos contaron!!
>>> www.puertosur.org
>>>
>>>
>>>------------------------------------
>>>
>>>Enlaces a Yahoo! Grupos
>>>
>>>
>>>
>>>
>>
>>
>
>

---

Este mensaje ha sido verificado por el E-mail Protegido. Antivirus actualizado en 01/10/2008 / Versión: 0.93.1/8366

Gracias Ricardo!!!

Simplemente Genial !!!

Saludos, Fernando Chirico.

--- Ricardo Sassy <sharley@...> escribió:


---------------------------------

Bueno... aqui voy con la explicación del modo spool,
aclarando que desdeel punto de vista "legal" dicho
modo de trabajo sólo se"aceptaría" en aquellos
comercios que por su naturaleza estáexceptuados de
respetar la famosa concomitancia... (¿alguien
larespeta?).



      
________________________________________________________________________________\
____
¡Buscá desde tu celular!

Yahoo! oneSEARCH ahora está en Claro

http://ar.mobile.yahoo.com/onesearch

----- Original Message -----

From: Ricardo Sassy

To: ifclipper@...

Sent: Wednesday, October 01, 2008 12:01 AM

Subject: RE: [ifclipper] Una mano... por favor...

Bueno... aqui voy con la explicación del modo spool, aclarando que desde el punto de vista "legal" dicho modo de trabajo sólo se "aceptaría" en aquellos comercios que por su naturaleza está exceptuados de respetar la famosa concomitancia... (¿alguien la respeta?).

El modo "spool" de las impresoras Hasar es un modo de trabajo donde la impresora está todo el tiempo "viendo" lo que le tiran dentro de una carpeta predeterminada y tratando de procesar en forma batch los archivos que se colocan en dicha carpeta.
Si la impresora "encuentra" un archivo interpretable (desde el punto de vista de la impresora o sea con comandos fiscales) lo procesa y devuelve el resultado de ese proceso en otra carpeta predeterminada, con el mismo nombre del archivo de entrada pero con la extensión ".ANS"  (de "answer... ¿vieron?).
En otras palabras, la impresora esta a la espera de que desde nuestro aplicacativo generemos un archivo plano con la secuencia de comandos a ejecutar y le copiemos ese archivo a la carpeta donde "ella" está esperando.

El modo spool se poner en marcha ejecutando el programa WSPOOLER.EXE que es parte de los programas y drivers que se pueden bajar de la página de Hasar.
Este programa abre una sesión de DOS (que luego podemos minimizar) y queda en ejecución permanente hasta que lo cancelemos con CTRL-C.

Vamos a un ejemplo totalmente funcional para comprender los parámetros que necesita este programa:
WSPOOLER -p1 -v57600 -l -n -sC:\FISCAL\ENTRADA -aC:\FISCAL\SALIDA
"-p" es el parámetro donde le indicamos al programa cuál es el puerto COM a abrir para comunicarse con la impreosa.
"-v" es el parámetro donde le indicamos al programa cuál es la velocidad con que operaremos dicho puerto. Esta velocidad debe coincidir con la seteada en la impresora mediante el utilitario Pruf.
"-l" (ojo... ele de lagarto y no i de inútil) sirve para que el programa vaya generando un archivo log que nos puede servir hipotéticamente para detectar errores de comandos o de funcionamiento. Este archivo log se llama -por defecto- "spooler.log" y contiene información muy interesante para ver por qué a veces nos equivocamos en la sintáxis de un comando fiscal o por qué la impresora se niega a ejecutar un comando que creemos que está bien.
Este un ejemplo del contenido (acumulativo) de spooler.log:
30/09-23:04:20: **START SPOOLER**
30/09-23:04:20: A abrir COM1
30/09-23:04:21: Comando completado: *
30/09-23:04:21: Comando completado: *
30/09-23:04:21: Comando completado: D| |0.0|C|0
30/09-23:04:21: Comando completado: E
30/09-23:04:21: Comando completado: J
"-n" sirve para que en el archivo de respuestas que nos devuelve el programa spooler cada linea de respuestas esté encabezada por el comando que le dió origen.
Esto sirve para poder interpretar mejor ese archivo de respuestas y saber qué nos fué "contestando" la impresora por cada comando que le enviamos.
"-s" es el parámetro que sirve para indicarle al programa spooler cuál es la carpeta donde tiene que estar "a la escucha".
Cualquier archivo que "caiga" es esa carpeta será procesado y posteriormente borrado en forma automática por el programa spooler.exe.
"-a" es el parámetro donde le pido al programa spooler que me devuelva los resultados de la impresora fiscal.
Continuando con el ejemplo, si a la carpeta c:\fiscal\entrada le "tiro" un archivo denominado "99XZC208.FIS" (archivo que obviamente contiene una colección de comandos fiscales para -por ejemplo- emitir una factura), la respuesta de la impresora quedará en C:\FISCAL\SALIDA, en un archivo denominado "99XZC208.ANS".

Es responsabilidad de nuestros aplicativos revisar ese archivo de salida para cerciorarnos que la impresión finalizó correctamente y poder recuperar datos que sean necesarios para actualizar nuestras propias bases de datos.
En mi caso, por ejemplo, tomo de ese archivo el nro. de comprobante emitido, el punto de venta y el monto de iva total, para poder actualizar las bases del sistema en corcondancia con lo emitido por la impresora fiscal.

Los comandos que se le envian a la impresora son EXACTAMENTE LOS MISMOS que usamos habitualmente en el modo de trabajo normal.
Para los que hayan tomado el ejemplo de codificación Clipper que ofrece Hasar, cada linea de este archivo es el contenido de la variable "s" de los ejemplos.

Este es un ejemplo de archivo de comandos para emitir una factura "A":

bEmpresa Equis S.A.30702383923ICDomicilio...
@AS
BItem Uno1.01.021.0M0.00b
BItem Dos1.01.010.5M0.00b
CPSubtotal0
DEfectivo100.00T0
E

La primera linea carga los datos del cliente.
La segunda linea abre el comprobante factura "A",
La tercera y cuarta lineas cargan items de venta con distintas tasas de iva.
La quinta linea pide e imprime un subtotal.
La sexta linea es la del pago.
La séptima linea es la del cierre de comprobante.
Si miran con atención verán que el primer caracter es la representación ascii del comando fiscal.
Obviamente lo que aquí se ve como un símbolo raro es la representación del caracter CHR(28) que se utiliza como separador de campos.

Si todo está bien, la impresora nos devolverá un archivo con estas respuestas (siempre en relación el ejemplo de factura "A" de arriba):
b|1100000010000000|0000011000000000
@|1100000010000000|0011011000000000|00000049
B|1100000010000000|0011011000000000
B|1100000010000000|0011011000000000
C|1100000010000000|0011011000000000|2.0000|2.32|0.32|0.00|0.00|0.00
D|1100000010000000|0011011000000000|-97.68
E|1100000010000000|0000011000000000|00000049|1|2369-0800966608
Entonces simplemente hay que leer este archivo plano y en base al primer caracter ir interpretando y rescatando los datos que nos interesan.
Por ejemplo de la linea "E" yo saco el nro. de comprobante otorgado y el nro. de cai y de la linea "C" saco los totales de iva acumulados.
El contenido de cada linea de respuesta es posicionalmente hablando EXACTAMENTE lo que figura en el manual como respuesta a cada comando.
Para facilitar la intepretación de las respuestas, el programa spooler reemplaza el caracter CHR(28) por el caracter "|" (pipe) como separador de campos.

RESUMEN:
1º) Genero un archivo ascii con la colección de comandos necesarios para una tarea determinada (emitir factura "A", pedir un cierre "Z", etc.) y copiarlo a la carpeta de entrada del spooler.
Si se trabaja desde varios puestos de trabajo simultáneos con una única impresora fiscal es conveniente que el nombre del archivo sea en parte relacionado con el puesto de trabajo y en parte al azar.
2º) Esperar alrededor de 20 segundos hasta que la impresora finaliza la impresión y luego leer el archivo de respuestas (mismo nombre que el de entrada pero con extensión ".ANS").
3º) Interpretar el archivo leido y en base a eso interactuar con el aplicativo propio.

VENTAJAS:
1º) Se puede operar la impresora fiscal desde varios puestos de trabajo simultáneamente, con solo tener acceso desde nuestra pc "facturadora" a las carpetas de spool de la pc donde físicamente está conectada la impresora fiscal... que es donde está corriendo el programa spooler.exe.
2º) Nuestro aplicativo se desentiende de abrir y cerrar puertos, setear velocidades y toda la cháchara del hardware. Simplemente le enviamos a la carpeta de spool los comandos a ejecutar.
3º) La operación del aplicactivo es más veloz porque no tiene que esperar la respuesta individual a cada comando sino que lee todo junto, al final y desde un archivo plano.
4º) Como de la parte del hardware se encarga el programa spooler.exe, no importa en qué lenguaje programemos siempre que seamos capaces de generar un archivo plano con los comandos y copiarlo a otra carpeta.
5º) En escenarios de Terminal Server o VPN podemos facturar en las sucursales SIN NINGUN ESFUERZO Y SIN RENEGAR CON EL HARDWARE, usando los programas y archivos que están en el servidor central (esto es maravilloso !!!).

EJEMPLO DE CODIFICACION:
Acá transcibo un ejemplo de cómo abro un loop esperando el archivo de respuestas de la respuesta de la impresora (en forma exclusiva para asegurarme que no falta nada) y luego interpreto ese archivo.


FUNCTION spoolmanager(cTipoDocum)
    IF EMPTY(cSpoolDir) .OR. EMPTY(cAnswerDir)
       ALERT('FALTA DEFINIR CARPETAS SPOOL FISCAL')
       RETURN(.F.)
    ENDIF
    COPY FILE (cArchSpool) TO (cSpoolDir+cFileSPool)
    PONER_MJE(24,"Recuperando Datos Finales... Espere un momento." )
    INKEY(10)
    ********** ACA LEER RESULTADOS Y ASIGNAR nTic
    cArchAnswer := ALLTRIM(cAnswerDir+cFileAnswer)
    nCantLineas := 0
    nIntentos   := 20
    nTic        := 0
    DO WHILE nIntentos > 0
       IF FILE(cArchAnswer)
          DO WHILE FT_FUSE(cArchAnswer,16)<1
          ENDDO
          FT_FGOTOP()
          DO WHILE !FT_FEOF()
             ++nCantLineas
             AADD(aLineasLeidas,FT_FREADLN())
             FT_FSKIP()
          ENDDO
          FT_FUSE()
          FOR I=1 TO nCantLineas
              DO CASE
                 CASE cTipoDocum=='FACTURA'
                      IF LEFT(aLineasLeidas[I],1)='E'
                         nTic  := VAL(SUBST(aLineasLeidas[I],37,8))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                         cCai1 := (SUBST(aLineasLeidas[I],48,15))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='C'
                         nTotalZZ := VAL(TOMAMEDIO(aLineasLeidas[I],'|',4))    //LINEA DE SUBTOTAL              (comando 'C')
                         nIvaZZ   := VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL              (comando 'C')
                      ENDIF
                 CASE cTipoDocum=='CREDITO'
                      IF LEFT(aLineasLeidas[I],1)='�'
                         nTic  := VAL(SUBST(aLineasLeidas[I],37,8))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                         cCai1 := (SUBST(aLineasLeidas[I],48,15))           //LINEA DE CIERRE DE COMPROBANTE (comando 'E')
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='p'
                         nIvaZZ   += VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL
                         nTotalZZ += VAL(TOMAMEDIO(aLineasLeidas[I],'|',8))    //LINEA DE SUBTOTAL
                      ENDIF
                      IF LEFT(aLineasLeidas[I],1)='q'
                         nIvaZZ   += VAL(TOMAMEDIO(aLineasLeidas[I],'|',5))    //LINEA DE SUBTOTAL
                      ENDIF
              ENDCASE
          NEXT
          FERASE(cArchAnswer)
          FERASE(cArchSpool)
          EXIT
       ENDIF
       INKEY(.5)
       nIntentos := nIntentos - 1
       IF nIntentos = 0
          IF ALERT('ESPERANDO RESPUESTA IMPRESORA FISCAL...;¨CONTINUA?',{'SI','NO'}) < 2
             nIntentos := 10
          ENDIF
       ENDIF
    ENDDO
RETURN(.T.)


Espero haber sido claro.

Saludos...
Ricardo Sassy



8 29/09/2008, you wrote:

Ricardo : Si no es mucha molestia, me anoto para tu explicación y desde ya muchas gracias
 
Gustavo Gabriele
 

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de Ricardo Sassy
Enviado el: Lunes, 29 de Septiembre de 2008 10:04 p.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...
 

Si alguien necesita una explicación del modo spool me avisan.
Es muy fácil y hay que desentenderse de la apertura del puerto y todo eso.
Solamente enviar los comandos relacionados con el documento a imprimir o la consulta que se le quiera efectuar a la impresora.

Saludos...
Ricardo Sassy


At 19:26 29/09/2008, you wrote:

Mario : , alli Ricardo tiro una pista para utilizar la impresora en modo spooll del c2w, Igualmente muchas gracias
 
Gustavo
 

---

De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En nombre de mariomansilla@arnet.com.ar
Enviado el: Lunes, 29 de Septiembre de 2008 05:36 p.m.
Para: ifclipper@gruposyahoo.com.ar
Asunto: RE: [ifclipper] Una mano... por favor...
 

Hola Gustavo :
                          El ejemplo esta hecho para Hmg oficial , si te es util lo mismo te lo envio .
Saludos .
Mario Mansilla


> Mario : Disculpa la intromison en el tema, es que tengo el mismo problema.
> Tengo dearrollado un modulo de facturación en clipper52 funcionando
> correctamente y debi migrar el sistema , para lo cual utilice la
> herramienta
> de Ciro C2W, pero no puedo hacer funcionar la impresora. Me fui guiando
> con las instrucciones bajas de Hasar pero no hay caso.
> Podrias mandar un ejemplo , desde ya muchas gracias
>
> Gustavo Gabriele
>
> _____
>
>
De: ifclipper@gruposyahoo.com.ar [mailto:ifclipper@gruposyahoo.com.ar] En
> nombre de mariomansilla@arnet.com.ar
> Enviado el: Lunes, 29 de Septiembre de 2008 01:32 p.m.
> Para: ifclipper@gruposyahoo.com.ar
> Asunto: Re: [ifclipper] Una mano... por favor...
>
> Hola Ricardo :
> Disculpas recien hoy veo tu mensaje , yo pude
> hacer funcionar las impresoras fiscales hasar con la winfis32.dll y las
> epson con las ocx de epson , pero con HMG oficial .
> Aun no he tenido tiempo de probar las ocx de hasar .
> Cualquier cosa avisame .
> Saludos .
> Mario Mansilla
>
>
>
>
>> Hola Eduardo.
>> Te agradezco la info.
>> Estoy usando ooHg + Harbour 1.0.
>> El problema que acabo de descubrir es que no puedo acceder a ninguna
>> dll.
>> Probé un ejemplo básico con una dll que tiene funciones que te devuelven
>> el
>> nro. de serie del disco y tampoco funciona.
>> EL programa ejecuta sin errores pero alga pasa que no anda.
>> Inclusive si le cambio el nombre a la dll tampo saltan errores asi que
>> tiene que ser algo muy elemental.
>>
>>
>
Desde ya gracias...
>> ¿Alquien probó acceder a la impresora usando los controles ocx?.
>>
>> Saludos...
>> Ricardo Sassy
>>
>> At 18:58 27/09/2008, you wrote:
>>>Ricardo
>>>
>>>En puertosur estamos armando una clase fiscal para xHarbour consola.
>>>No tengo idea si va a funcionar con Harbour.
>>>Solo te puedo decir q ayer la hice andar pero con xHarbour 1.00
>>> compilacion de
>>>PuertoSur.
>>>Otra version no me funciono. No tengo ni idea de como es el estado de
>>> Harbour
>>>y la compativilidad.
>>>
>>>Direcciones de correo electrónico del grupo
>>>
>>> Enlace relacionado: http://www.puertosur.org
>>> Enviar mensaje: PuertoSur@gruposyahoo.com.ar
>>> Suscribirse: PuertoSur-subscribe@gruposyahoo.com.ar
>>> Cancelar suscripción: PuertoSur-unsubscribe@gruposyahoo.com.ar
>>> Propietario: PuertoSur-owner@gruposyahoo.com.ar
>>>
>>>On Sat, 27 Sep 2008 18:01:01 -0300, Ricardo Sassy wrote
>>> > Hola Juan Carlos
>>> > Uso Harbour 1.0 en modo consola.
>>> > No tengo ningún warning ni nada raro en la compilación.
>>> > El exe se genera normalmente y su ejecución no produce erorres de
>>> ningún tipo.
>>> > Incluso intenté algo tan básico como esto:
>>> > cInfo := CallDll ( "VersionDLLFiscal" , "WINFIS32.DLL" )
>>> > alert(cInfo)
>>> > y devuelve un string vacio.
>>> >
>>> > Evidentemente me falta hacer algo que desconozco.
>>> > Por las dudas... ¿que fecha y tamaño tiene la winfis32.dll que estás
>>> usando?.
>>> > Estoy usando una del 01/12/2005 de 61440 bytes.
>>> > ¿Será que tengo una dll equivocada?.
>>> >
>>> > Saludos y gracias...
>>> > Ricardo Sassy
>>> >
>>> > At 14:13 27/09/2008, you wrote:
>>> >
>>>--
>>> Eduardo Rizzolo
>>> Eldorado, Misiones Argentina
>>> INF 0023
>>> Correo principal y Msn Hotmail:fullpaint@pinturas-misioneras.com.ar
>>> skype:fullpaint1
>>> ICQ:39280741
>>> www.creacionistas.com -> Que lindo cuentito nos contaron!!
>>> www.puertosur.org
>>>
>>>
>>>------------------------------------
>>>
>>>Enlaces a Yahoo! Grupos
>>>
>>>
>>>
>>>
>>
>>
>
>

---

Este mensaje ha sido verificado por el E-mail Protegido. Antivirus actualizado en 30/09/2008 / Versión: 0.93.1/8362