Cobol Foro
Página 8 de 11 « First 4567 8 91011
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Manejo OCX impresora Fiscal Epson nueva generación (https://www.cobolforo.es/showthread.php?t=601)

fastpho 4 de abril de 2019 00:01
rodolfo que libreria estas utilizando pq en la libreria EpsonFiscalDriver.dll no existe ese comando

rodolfo 8 de abril de 2019 02:27
Cita:
Citación del post de fastpho (Mensaje 4847)
rodolfo que libreria estas utilizando pq en la libreria EpsonFiscalDriver.dll no existe ese comando
Hola fastpho, estoy usando EpsonFiscalInterface.dll.

Fito 13 de agosto de 2019 23:01
Holaaa:

Estoy renegando con la Epson TM-T900FA, ya pude hacer un X y un Z. Pero ahora quiero recuperar desde la impresora el puesto de venta y no logro hacerlo. Mando un comando OBTENER ID que en el campo 5 tiene el puesto de venta y no logro nada.

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  
  3.  01  LINEA-OBTENER-ID    pic xx value X"0005".
  4.  01  LINEA-EXTRA         pic xx value X"0000".
  5.  
  6.  01  xsucursal           pic x(500).
  7.  01  redefines xsucursal.
  8.      02 wsucursal        pic 99999.
  9.      02                  pic x(495).
  10.  
  11.  01  variables-nuevas.
  12.      02 BufferLen           pic s9(9) comp-5.
  13.      02 campo               pic s9(9) comp-5.
  14.  
  15.  PROCEDURE       DIVISION.
  16.  
  17. *...... Obtener el punto de venta ..................................     
  18.      move "OpenPort"       to Epson
  19.      call Epson with stdcall using by reference version.     
  20.  
  21.      move "Purge"          to Epson
  22.      call Epson with stdcall using by reference version.     
  23.  
  24.      move 2                to BufferLen
  25.      move "AddDataField"   to Epson
  26.      call Epson with stdcall using by reference LINEA-OBTENER-ID
  27.                                    by value     BufferLen 
  28.      
  29.      move 2                to BufferLen
  30.      move "AddDataField"   to Epson
  31.      call Epson with stdcall using by reference LINEA-EXTRA
  32.                                       by value     BufferLen.
  33.      
  34.      move "SendCommand"    to Epson
  35.      call Epson with stdcall using by reference version.
  36.      
  37.      move "GetExtraField"  to Epson
  38.      move 5                to campo
  39.      move 5                to BufferLen
  40.      call Epson with stdcall using by value campo 
  41.                                    by reference xsucursal
  42.                                    by value BufferLen.
  43.                                    
  44.      move wsucursal        to suc-default.
  45.  
  46.      invoke pow-self "DisplayMessage" using xsucursal.
  47.  
  48.      
  49.      move "ClosePort"      to Epson
  50.      call Epson with stdcall using by reference version.     
  51. *...... /Obtener el punto de venta ..................................    

Si alguien tiene una idea, bienvenida sea.

Saludos.

Fito...

fastpho 14 de agosto de 2019 02:47
Hola Fito, el problema lo tenes en :
Código COBOL:
  1.  01  LINEA-OBTENER-ID    pic xx value X"00".
  2.  01  LINEA-EXTRA         pic xx value X"05".
esta es la manera correcta , lo tenes al reves
Saludos

---------- Post añadido : 01:47 ---------- Post anterior : 00:36 ----------

Fito te conste cualquiera ...
ahora re leyendo me di cuenta
Que están bien los parametros
Mañana lo pruebo bien yo utilizo otra función pq la getextra field nunca me devolvió nada

Fito 14 de agosto de 2019 04:52
Hola Fastpho:

Gracias por contestar. Hasta ahora logré solamente hacer cierre x y z. A la tiqueadora la conecté por usb pero instalé y configuré el Epson Virtual Port y lo manejo como serial.

Ahora estoy intentando hacer un tique factura, veremos cómo me va.

Gracias. Saludos.

Fito...

fastpho 14 de agosto de 2019 15:06
Fito, Buen dia mira probe tu codigo con el simulador , y tu codigo me esta
devolviendo el la variable xsucursal el valor 12345 que es el punto de venta en el simulador

Fito 14 de agosto de 2019 16:13
Holaaaa:

Entonces será problema de conexión? Tenga la tiqueadora sin inicializar, será por eso que no puedo hacer mucho? porque intenté hacer la cabecera del Tique Factura y tampoco logré nada.

Saludos.

Fito...

fastpho 14 de agosto de 2019 16:54
Fito, cuando la impresora esta sin fiscalizar no te va ha dar el pto de venta pq el campo es zero , podes facturar , sacar x y z no podes obtener las declaraciones juradas , no podes re imprimir comprobantes , por eso es mejor trabajar con el simulador

Fito 19 de agosto de 2019 17:21
Holaa Fastpho:

Qué emulador estás usando?

Y otengo uno, pero no tiene este modelo ..

Saludos.

Fito...

fastpho 20 de agosto de 2019 14:42
Fito, Buen dia , el simulador de impresora fiscal para la tm900 es la version 1.3
es con el que yo trabajo o tambien si tenes la impresora es que casi igual como te comente anteriormente , con el simulador podes hacer casi todas las funciones del protocolo : facturar , sacar informes , obtener los informes de ventas para presentar a la afip (f8010,f8011,f8012) , reimprimir algun comprobante por cualquier motivo , etc y la comunicacion con el simulador es serie , para el caso de trabajar directamente con la impresora la comunicacion puede ser serie o usb (recomendada por la gente de epson) en este caso si esta sin fiscalizar el impresor podes facturar (ticket c.final , ticket "a"y "b" , nota de credito "a" y "b" , sacar x y z
Saludos


La franja horaria es GMT +2. Ahora son las 05:11.
Página 8 de 11 « First 4567 8 91011
Mostrar 40 mensajes desde este tema en una página

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.