0
Senior |
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
Guardián del Foro |
Hola:
Al final lo hice todo con EpsonFiscalInterface.dll, funciona perfecto.
Saludos.
Fito...
Acabo de llegar... |
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!
Acabo de llegar... |
@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:. Algun consejo.Gracias.CODE Código:
JMP0015I-U [PID:000011A8 TID:00000698] CANNOT CALL PROGRAM 'AddDataField'. CODE=0xC1 PGM=INFOFIS ADR=00405C2B
Senior |
@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....
Acabo de llegar... |
Hola fastpro, gracias por tu respuesta.
Ampliemos.
Estoy usando la librería EpsonFiscalDriver.dll.
El archivo COBOL85.CBR:......CODE 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 operadorEn la PROCEDURE del formulario principal, tengo un copy con las lineas de programación:COBOL Código:
if caj-tipoprv = 12 call "A-EPSONTM900" cancel "A-EPSONTM900" end-if.COBOL Código:
#include "procedur\InfoFis.pro".
Y en el archivo InfoFis.pro, lo siguiente:Y el error me da en la linea 004360, con el mensaje que envié anteriormente.COBOL Código:
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.
Gracias.
Senior |
@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...
Acabo de llegar... |
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.
Senior |
@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
Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)
Marcadores