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

[fastpho]

Laura, Hola!!! te molesto otra vez xq no hay manera q me funcione la DLL en mi programa. Te comento, estoy usando pwc versión 7.. vos cuál usas?

Creé mi cobol85.cbr igual al q vos me indicaste, copié la DLL en la release (y x las dudas también en la del proyecto)

Hice la prueba con el comando de setear el puerto moviéndolo a una variable y sin moverlo, y cuando lo ejecuto me da el siguiente error:

JMP0015I-U [PID:000011A8 TID:00000698] CANNOT CALL PROGRAM 'setComPort'. CODE=0x7e PGM=PRUEBA ADR=0040173F


mi código es el sgte:

move spaces TO FUNC-EPSON-LIB.
MOVE "setComPort" TO FUNC-EPSON-LIB. 
MOVE 1 TO sPort 
CALL FUNC-EPSON-LIB WITH STDCALL USING BY VALUE sPort.

Estaría super agradecida q me ayudes xq si o si tengo q hacerlas funcionar. Decime si tengo q pagarte la capacitación o lo q sea..

Muchas gracias..

Laura
El problema lo tenes me parecen en el archivo cobol85.cbr , el nombre del formulario principal es el nombre que tenes que utilizar en el archivo cobol85.cbr

[Laura]

Mi error es q usaba la otra DLL "EpsonFiscalInterface.DLL", ahora al menos no me dio error cuando lo ejecuto. Voy a probar con los comandos. Te cuento como me va..

[fastpho]

Laura, Tenes que usar la libreria EpsonFiscalDriver.DLL , en el archivo cobol85.cbr que te mande especifica esa libreria

[Joseg]

❞ Laura, Tenes que usar la libreria EpsonFiscalDriver.DLL , en el archivo cobol85.cbr que te mande especifica esa libreria

Usar DLLs/OCX feitos em "C/C++", é em ALGUNS CASOS, necessário compilar com a diretiva "BINARY(BYTE)".

Ter igualmente atenção a campos com sinal PIC S9...

Por exemplo:

01 aaa pic s9(5) COMP-5

em fujitsu representa-se de uma forma em Microfocus/Outros tem outro valor (analisando em hexadecimal da para ver as diferenças).

[Laura]

fastpho, Hola.. tenés algún ejemplo para mostrarme de como x ejemplo enviar un cierre Z o X, no encuentro ejemplos bien claros, los q tengo y muchos es con la otra DLL q no me sirve. O sino donde puedo conseguir ejemplos así arranco xq estoy estancada..

Muchas gracias..

[fastpho]

Laura, te paso un ejemplo de Informe X e Informe Z
Informe X

ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01 ReturnDEValue        PIC S9(9) COMP-5 VALUE 0.
 01 LINEA-INFORME-X.
    03 Comando            PIC X VALUE  X"08".
    03 Comandobis         PIC X VALUE  X"02".
 01 LINEA-EXTRA.   
    03 DataField1         PIC X VALUE  X"0C".
    03 DataField2         PIC X VALUE  X"21".
 01 ReturnValue Pic S9(9) Comp-5 Value 0.    
 01 N-Length pic 99    value zero.  
 01 lpString1   pic x(2).
 01 lpString2   pic x(2).
 
 01 x pic x(4).
 01 Cantidad           PIC S9(9) COMP-5 VALUE 0.
 01 ReturnString       PIC X(4) VALUE HIGH-VALUE.
 01 Variable           PIC 9(3).
 PROCEDURE       DIVISION.
     move spaces        TO FUNC-EPSON-LIB.
     MOVE 2             TO BufferLen
     MOVE "AddDataField" TO FUNC-EPSON-LIB
    *> La propia llamada a la FUNC-EPSON-LIBión:
     CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-INFORME-X
                                  BY VALUE BufferLen     
 
     move spaces       TO FUNC-EPSON-LIB.  
 
     MOVE 2             TO BufferLen
     MOVE "AddDataField" TO FUNC-EPSON-LIB
    *> La propia llamada a la FUNC-EPSON-LIBión:
     CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-EXTRA
                                   BY VALUE BufferLen     
*SEND  COMMAND                                   
     move spaces       TO FUNC-EPSON-LIB.
     MOVE "SendCommand" TO FUNC-EPSON-LIB.
     CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.  

Informe Z

 WORKING-STORAGE SECTION.
 01 ReturnDEValue        PIC S9(9) COMP-5 VALUE 0.
 01 Comando            PIC X VALUE  X"39".
 01 LINEA-INFORME-Z.
    03 Comando            PIC X VALUE  X"08".
    03 Comandobis         PIC X VALUE  X"01".
 01 LINEA-EXTRA.   
    03 DataField1         PIC X VALUE  X"0C".
    03 DataField2         PIC X VALUE  X"00".
 
 01 Cantidad           PIC S9(9) COMP-5 VALUE 0.
 01 ReturnString       PIC X(12).
 01 Variable           PIC 9(3).
 PROCEDURE       DIVISION.
 
    
 
     move spaces        TO FUNC-EPSON-LIB.
     MOVE 2             TO BufferLen
     MOVE "AddDataField" TO FUNC-EPSON-LIB
 
     CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-INFORME-Z
                                  BY VALUE BufferLen     
 
     move spaces       TO FUNC-EPSON-LIB.  
 
     MOVE 2             TO BufferLen
     MOVE "AddDataField" TO FUNC-EPSON-LIB
 
     CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-EXTRA
                                   BY VALUE BufferLen     
*SEND  COMMAND                                   
     move spaces       TO FUNC-EPSON-LIB.
     MOVE "SendCommand" TO FUNC-EPSON-LIB.
     CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.  
     

[Laura]

GRACIAS!!! Voy a probar entonces.. después te cuento..

[Softdac]

Estimada Laura, disculpe el atrevimiento, pero me podría resumir como soluciono el inconveniente? ya que tengo desarrollado un sistema en powercobol 7 con la ocx EpsonFPHostControlX en modo compatible funcionando Ok, hasta que me solicitaron confeccionar notas de debitos, y ahí se me vino la noche, renegué un montón, hasta que consultando en Epson, me indicaron que debía usar el protocolo extendido del ocx, pero no encontré manera de hacerla funcionar, me dieron varias alternativas pero nada, hasta que encontré este tema en el foro, por lo que decidí molestarla.
Desde ya muchas gracias, por su atención.
Saludos
Daniel

[drvedia1981]

Hola tenes un sistema funcionando con EpsonFPHostControlX en una tm220af o anteriores o las nuevas con cual queres hacer nota de credito ? Saludos

[Softdac]

Hola drvedia1981, el sistema viene funcionando desde ya hace unos años, con powercobol 7 y el ocx EpsonFPHostControlX, en modo compatible en impresora tm220AFII, pero ojo, lo que no puedo hacer es notas de débitos, ya para eso tengo trabajar en modo extendido, y es ahí en donde reniego para pasarles los valores hexadecimales al controlador. Según la gente de epson, me dijo que cuando le paso en un comando el valor x'00' el controlador lo toma como nulo, por lo que me descarta el comando, pero hasta ahora no le encontré la vuelta.
Gracias por tu interes.