[Sintaxis] Manejo OCX impresora Fiscal Epson nueva generación

[fastpho]

rodolfo que libreria estas utilizando pq en la libreria EpsonFiscalDriver.dll no existe ese comando

[rodolfo]

❞ rodolfo que libreria estas utilizando pq en la libreria EpsonFiscalDriver.dll no existe ese comando

Hola fastpho, estoy usando EpsonFiscalInterface.dll.

[Fito]

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.

 WORKING-STORAGE SECTION.
 
 01  LINEA-OBTENER-ID    pic xx value X"0005".
 01  LINEA-EXTRA         pic xx value X"0000".
 
 01  xsucursal           pic x(500).
 01  redefines xsucursal.
     02 wsucursal        pic 99999.
     02                  pic x(495).
 
 01  variables-nuevas.
     02 BufferLen           pic s9(9) comp-5.
     02 campo               pic s9(9) comp-5.
 
 PROCEDURE       DIVISION.
 
*...... Obtener el punto de venta ..................................     
     move "OpenPort"       to Epson
     call Epson with stdcall using by reference version.     
 
     move "Purge"          to Epson
     call Epson with stdcall using by reference version.     
 
     move 2                to BufferLen
     move "AddDataField"   to Epson
     call Epson with stdcall using by reference LINEA-OBTENER-ID
                                   by value     BufferLen 
     
     move 2                to BufferLen
     move "AddDataField"   to Epson
     call Epson with stdcall using by reference LINEA-EXTRA
                                      by value     BufferLen.
     
     move "SendCommand"    to Epson
     call Epson with stdcall using by reference version.
     
     move "GetExtraField"  to Epson
     move 5                to campo
     move 5                to BufferLen
     call Epson with stdcall using by value campo 
                                   by reference xsucursal
                                   by value BufferLen.
                                   
     move wsucursal        to suc-default.
 
     invoke pow-self "DisplayMessage" using xsucursal.
 
     
     move "ClosePort"      to Epson
     call Epson with stdcall using by reference version.     
*...... /Obtener el punto de venta ..................................     

Si alguien tiene una idea, bienvenida sea.

Saludos.

Fito...

[fastpho]

Hola Fito, el problema lo tenes en :

 01  LINEA-OBTENER-ID    pic xx value X"00".
 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]

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]

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]

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]

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]

Holaa Fastpho:

Qué emulador estás usando?

Y otengo uno, pero no tiene este modelo ..

Saludos.

Fito...

[fastpho]

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