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

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)

Hola Amigos:

Me puse a trabajar de nuevo en el fiscal. Una pregunta, la EpsonFiscalInterface.dll funciona?

Saludos.

Fito...

Buenas Fito, si la EpsonFiscalInterface.dll funciona perfectamente , yo solo utilizo una sola funcion (descargar) que es la q baja los formularios 8010 ,8011,8012 , para subir a la afip

Hola:

Al final lo hice todo con EpsonFiscalInterface.dll, funciona perfecto.

Saludos.

Fito...

Hola, soy nuevo en el foro, en realidad trabajo mas con c#, llegue a este foro buscando informacion de simulador de TM-T900FA, veo que alguien ya se lo descargo, yo no lo puedo encontrar, solo encontre emuladores de Hasar, alguien tiene algun link de descarga del emulador de Epson?
Muchas gracias!

@panzaverde,
Hola buenas tardes.
Leí que estas usando la versión de pwc v3.0. Yo tengo un sistema de facturación con esta versión y ahora tengo la urgencia de hacerlo funcionar con una TM-T900AF. Leí todas las consultas y consejos de este tag, pero no encuentro la forma de hacerlo funcionar. Modifique el COBOL85.CBR como aconsejan pero me tira el error:

Código:

JMP0015I-U [PID:000011A8 TID:00000698] CANNOT CALL PROGRAM 'AddDataField'. CODE=0xC1 PGM=INFOFIS ADR=00405C2B

. Algun consejo.Gracias.

@jhjacomo, Buen dia , que libreria estas usando .. ? Los ejemplos que hay para abrir el puerto Sacar un informe x o z son para la libreria epsonfiscaldriver.dll....

Hola fastpro, gracias por tu respuesta.
Ampliemos.
Estoy usando la librería EpsonFiscalDriver.dll.
El archivo COBOL85.CBR:

Código:

[INFOFIS]

@EnvSetWindow=UNUSE

PRTLIS=PRTLIS.ENV

PRT1=FAELE.ENV

PRINTER=lpt3



[INFOFIS.ENTRY]

AddDataField=EpsonFiscalDriver.dll

ClosePort=EpsonFiscalDriver.dll

GetAPIVersion=EpsonFiscalDriver.dll

GetExtraField=EpsonFiscalDriver.dll

GetReceivedFrame=EpsonFiscalDriver.dll

GetSentFrame=EpsonFiscalDriver.dll

OpenPort=EpsonFiscalDriver.dll

Purge=EpsonFiscalDriver.dll

SendCommand=EpsonFiscalDriver.dll

getBaudRate=EpsonFiscalDriver.dll

......

En el formulario tengo un botón, que se envía al controlador la selección del operador

Código COBOL:

     if caj-tipoprv = 12
        call "A-EPSONTM900"
        cancel "A-EPSONTM900"
     end-if.

En la PROCEDURE del formulario principal, tengo un copy con las lineas de programación:

Código COBOL:

 #include "procedur\InfoFis.pro".

Y en el archivo InfoFis.pro, lo siguiente:

Código COBOL:

003010 IDENTIFICATION DIVISION.
003020 PROGRAM-ID. A-EPSONTM900 is common.
003040 ENVIRONMENT DIVISION.
003160 DATA DIVISION.
003350 WORKING-STORAGE SECTION.
003360 01 ReturnDEValue     PIC S9(9) COMP-5 VALUE 0.
003370 01 LINEA-INFORME-X.
003380    03 Comando        PIC X VALUE X"08".
003390    03 Comandobis     PIC X VALUE X"02".
003400 01 LINEA-EXTRA.
003410    03 DataField1     PIC X VALUE X"0C".
003420    03 DataField2     PIC X VALUE X"21".
003430 01 ReturnValue       Pic S9(9) Comp-5 Value 0.
003440 01 N-Length          pic 99 value zero.
003450 01 lpString1         pic x(2).
003460 01 lpString2         pic x(2).
003470 01 x                 pic x(4).
003480 01 Cantidad          PIC S9(9) COMP-5 VALUE 0.
003490 01 ReturnString      PIC X(4) VALUE HIGH-VALUE.
003500 01 Variable          PIC 9(3).
003620 01 i                    pic 99.
003630*
003640 01 FUNC-EPSON-LIB    Pic x(40).
003640 01 BufferLen         pic S9(9) COMP-5 VALUE 0.
003650 01 version           pic x(250).
004100 PROCEDURE DIVISION.
004310 la-x.
004320     move spaces TO FUNC-EPSON-LIB.
004330     MOVE 2 TO BufferLen
004340     MOVE "AddDataField" TO FUNC-EPSON-LIB.
004350*> La propia llamada a la FUNC-EPSON-LIB:
004360     CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-INFORME-X
004370          BY VALUE BufferLen.
004380
004390     move spaces TO FUNC-EPSON-LIB.
004400
004410     MOVE 2 TO BufferLen.
004420     MOVE "AddDataField" TO FUNC-EPSON-LIB.
004430*> La propia llamada a la FUNC-EPSON-LIB:
004440     CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-EXTRA
004450          BY VALUE BufferLen.
004460*SEND COMMAND
004470     move spaces TO FUNC-EPSON-LIB.
004480     MOVE "SendCommand" TO FUNC-EPSON-LIB.
004490     CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE VERSION.
004500
005520 END PROGRAM A-EPSONTM900.

Y el error me da en la linea 004360, con el mensaje que envié anteriormente.

Gracias.

@jhjacomo, Cuando llamas SetComPort no te da error ? , verifica que tanto tu aplicación, como el cbr y la dll esten en el mismo lugar...

Hola FASTPHO, en realidad yo me baje el ejemplo de x y z que le sugeriste a Laura, el comando SetComPort no lo estaba usando,pero al leer tu respuesta, se lo agregué y el error sigue siendo el mismo, solo que ahora me da con SetComPort.
Verifique que el ejecutable, el archivo cobol85.cbr y la dll estén en la misma carpeta.
Yo me bajé de epson el EpsonFiscalDriver_03.02.00.zip, lo descomprimí y lo instalé, luego me copie de la carpeta donde se instaló (C:\Program Files (x86)\EpsonFiscalDriver\64) la DLL EpsonFiscalDriver.DLL. Estoy trabajando con un Windows 7 64 bits y estoy compilando con el FSC 3 que Kuk adapto para los 64 bits.
Saludos FASTPHO y gracias por tu ayuda.

@jhjacomo, Para poder enviar algun comando al impresor primero tenes que setear la puerta la velocidad etc en el post 49 hay un ejemplo, con respecto al error el compilador no encuentra la dll o estas usando la libreria de 64 en vez de la 32 ...
Saludos