Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] Manejo de control CmListView (Grid) Josber Cocina PowerCOBOL 17 24 de septiembre de 2019 16:04
[Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 2 24 de noviembre de 2017 02:05
[Compilador] Error de generación del reporte de Crash JuanJuan77 PowerCOBOL (ActiveX, v4 - v11) 2 7 de julio de 2017 21:02
[Información] Utilización de OCX impresora fiscal en RM/Cobol 7 mainero RM/COBOL 3 29 de junio de 2017 22:34
Motocicletas de nueva generación Kuk Espacio "Offtop" 0 24 de diciembre de 2016 15:24
Respuesta
 
Herramientas

  #51
Antiguo 4 de enero de 2018, 23:38
IDENTIFICATION DIVISION
fastpho
Novato Junior
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
Forero desde (Registrado)diciembre 2016
Argentina
UbicaciónMendoza
Edad49 años
Última Actividad17.10.2019 15:30
PROCEDURE DIVISION
PostsPosts: 71
Ha dicho GraciasEnviado: 41
Ha recibido agradecimientosRecibido: 23
Mejores respuestasSoluiones: 4
ReputaciónReputación: 5
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

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:

Código COBOL:
  1. move spaces TO FUNC-EPSON-LIB.
  2. MOVE "setComPort" TO FUNC-EPSON-LIB.
  3. MOVE 1 TO sPort
  4. 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
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Laura ( 8 de enero de 2018)
  #52
Antiguo 8 de enero de 2018, 23:48
IDENTIFICATION DIVISION
Laura
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Laura
DATA DIVISION
Forero desde (Registrado)diciembre 2017
Argentina
UbicaciónEl Trebol
Edad53 años
Última Actividad27.08.2019 13:36
PROCEDURE DIVISION
PostsPosts: 7
Ha dicho GraciasEnviado: 6
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Laura is an unknown quantity at this point
Predeterminado

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..
Laura no ha iniciado sesión   Responder Con Cita
  #53
Antiguo 9 de enero de 2018, 20:14
IDENTIFICATION DIVISION
fastpho
Novato Junior
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
Forero desde (Registrado)diciembre 2016
Argentina
UbicaciónMendoza
Edad49 años
Última Actividad17.10.2019 15:30
PROCEDURE DIVISION
PostsPosts: 71
Ha dicho GraciasEnviado: 41
Ha recibido agradecimientosRecibido: 23
Mejores respuestasSoluiones: 4
ReputaciónReputación: 5
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

Laura, Tenes que usar la libreria EpsonFiscalDriver.DLL , en el archivo cobol85.cbr que te mande especifica esa libreria
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Laura (15 de enero de 2018)
  #54
Antiguo 10 de enero de 2018, 13:42
IDENTIFICATION DIVISION
Joseg
Novato Senior
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad01.10.2019 09:37
PROCEDURE DIVISION
PostsPosts: 162
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 46
Mejores respuestasSoluiones: 9
Medallas recibidas: 1Medallas: Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ReputaciónReputación: 9
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de fastpho Ver Mensaje
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:
Código COBOL:
  1. 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).
Joseg no ha iniciado sesión   Responder Con Cita
  #55
Antiguo 16 de enero de 2018, 22:12
IDENTIFICATION DIVISION
Laura
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Laura
DATA DIVISION
Forero desde (Registrado)diciembre 2017
Argentina
UbicaciónEl Trebol
Edad53 años
Última Actividad27.08.2019 13:36
PROCEDURE DIVISION
PostsPosts: 7
Ha dicho GraciasEnviado: 6
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Laura is an unknown quantity at this point
Predeterminado

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..
Laura no ha iniciado sesión   Responder Con Cita
  #56
Antiguo 17 de enero de 2018, 14:06
IDENTIFICATION DIVISION
fastpho
Novato Junior
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
Forero desde (Registrado)diciembre 2016
Argentina
UbicaciónMendoza
Edad49 años
Última Actividad17.10.2019 15:30
PROCEDURE DIVISION
PostsPosts: 71
Ha dicho GraciasEnviado: 41
Ha recibido agradecimientosRecibido: 23
Mejores respuestasSoluiones: 4
ReputaciónReputación: 5
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

Laura, te paso un ejemplo de Informe X e Informe Z
Informe X
Código COBOL:
  1. ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 ReturnDEValue        PIC S9(9) COMP-5 VALUE 0.
  5.  01 LINEA-INFORME-X.
  6.     03 Comando            PIC X VALUE  X"08".
  7.     03 Comandobis         PIC X VALUE  X"02".
  8.  01 LINEA-EXTRA.  
  9.     03 DataField1         PIC X VALUE  X"0C".
  10.     03 DataField2         PIC X VALUE  X"21".
  11.  01 ReturnValue Pic S9(9) Comp-5 Value 0.    
  12.  01 N-Length pic 99    value zero.  
  13.  01 lpString1   pic x(2).
  14.  01 lpString2   pic x(2).
  15.  
  16.  01 x pic x(4).
  17.  01 Cantidad           PIC S9(9) COMP-5 VALUE 0.
  18.  01 ReturnString       PIC X(4) VALUE HIGH-VALUE.
  19.  01 Variable           PIC 9(3).
  20.  PROCEDURE       DIVISION.
  21.      move spaces        TO FUNC-EPSON-LIB.
  22.      MOVE 2             TO BufferLen
  23.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  24.    *> La propia llamada a la FUNC-EPSON-LIBión:
  25.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-INFORME-X
  26.                                   BY VALUE BufferLen    
  27.  
  28.      move spaces       TO FUNC-EPSON-LIB.  
  29.  
  30.      MOVE 2             TO BufferLen
  31.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  32.    *> La propia llamada a la FUNC-EPSON-LIBión:
  33.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-EXTRA
  34.                                    BY VALUE BufferLen    
  35. *SEND  COMMAND                                  
  36.      move spaces       TO FUNC-EPSON-LIB.
  37.      MOVE "SendCommand" TO FUNC-EPSON-LIB.
  38.      CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.  
Informe Z
Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01 ReturnDEValue        PIC S9(9) COMP-5 VALUE 0.
  3.  01 Comando            PIC X VALUE  X"39".
  4.  01 LINEA-INFORME-Z.
  5.     03 Comando            PIC X VALUE  X"08".
  6.     03 Comandobis         PIC X VALUE  X"01".
  7.  01 LINEA-EXTRA.  
  8.     03 DataField1         PIC X VALUE  X"0C".
  9.     03 DataField2         PIC X VALUE  X"00".
  10.  
  11.  01 Cantidad           PIC S9(9) COMP-5 VALUE 0.
  12.  01 ReturnString       PIC X(12).
  13.  01 Variable           PIC 9(3).
  14.  PROCEDURE       DIVISION.
  15.  
  16.    
  17.  
  18.      move spaces        TO FUNC-EPSON-LIB.
  19.      MOVE 2             TO BufferLen
  20.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  21.  
  22.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-INFORME-Z
  23.                                   BY VALUE BufferLen    
  24.  
  25.      move spaces       TO FUNC-EPSON-LIB.  
  26.  
  27.      MOVE 2             TO BufferLen
  28.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  29.  
  30.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-EXTRA
  31.                                    BY VALUE BufferLen    
  32. *SEND  COMMAND                                  
  33.      move spaces       TO FUNC-EPSON-LIB.
  34.      MOVE "SendCommand" TO FUNC-EPSON-LIB.
  35.      CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.  
  36.      
fastpho no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Laura (17 de enero de 2018)
  #57
Antiguo 17 de enero de 2018, 22:12
IDENTIFICATION DIVISION
Laura
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Laura
DATA DIVISION
Forero desde (Registrado)diciembre 2017
Argentina
UbicaciónEl Trebol
Edad53 años
Última Actividad27.08.2019 13:36
PROCEDURE DIVISION
PostsPosts: 7
Ha dicho GraciasEnviado: 6
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Laura is an unknown quantity at this point
Predeterminado

GRACIAS!!! Voy a probar entonces.. después te cuento..
Laura no ha iniciado sesión   Responder Con Cita
  #58
Antiguo 2 de agosto de 2018, 23:37
IDENTIFICATION DIVISION
Softdac
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Softdac
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
UbicaciónSanta Fe/galvez
Edad50 años
Última Actividad07.02.2019 13:21
PROCEDURE DIVISION
PostsPosts: 8
Ha dicho GraciasEnviado: 3
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Softdac is on a distinguished road
Ayuda

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
Softdac no ha iniciado sesión   Responder Con Cita
  #59
Antiguo 3 de agosto de 2018, 16:04
IDENTIFICATION DIVISION
drvedia1981
Novato Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
UbicaciónCaba Argentina
Última Actividad11.12.2018 15:07
PROCEDURE DIVISION
PostsPosts: 33
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
drvedia1981 is an unknown quantity at this point
Predeterminado

Hola tenes un sistema funcionando con EpsonFPHostControlX en una tm220af o anteriores o las nuevas con cual queres hacer nota de credito ? Saludos
drvedia1981 no ha iniciado sesión   Responder Con Cita
  #60
Antiguo 4 de agosto de 2018, 04:54
IDENTIFICATION DIVISION
Softdac
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Softdac
DATA DIVISION
Forero desde (Registrado)marzo 2015
Argentina
UbicaciónSanta Fe/galvez
Edad50 años
Última Actividad07.02.2019 13:21
PROCEDURE DIVISION
PostsPosts: 8
Ha dicho GraciasEnviado: 3
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Softdac is on a distinguished road
Predeterminado

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.
Softdac no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
argentina , epson , fiscal , impresora , ocx


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 07:57.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.