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

  #21
Antiguo 24 de abril de 2017, 13:54
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

Gracias Rapinto el ejemplo que yo pase y que estoy trabajando esta en vb6 y funciona bien
fastpho no ha iniciado sesión   Responder Con Cita
  #22
Antiguo 24 de abril de 2017, 14:21
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.10.2019 15:47
PROCEDURE DIVISION
PostsPosts: 1.417
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 540
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Rapinto, la tecnología .NET comparte ciertas características con ActiveX, como declaración del contenido de la DLL en el registro de Windows. Pero sigue siendo otra tecnología y no es compartible con ActiveX. Así que en este caso si se hubiera tratado de una biblioteca .NET sería imposible registrarla en PowerCOBOL. Además, estamos hablando de una OCX, esta extensión que yo sepa es exclusiva para ActiveX y nunca se usa en .NET.

fastpho, me sigue pareciendo un sin sentido lo que está pasando... No me entra en la cabeza de dónde y cómo salen los nulos.

Intenta lo siguiente:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  sCmd            PIC X(250).
  3.  01  sCmdExt         PIC X(250).
  4.  
  5.  PROCEDURE DIVISION.
  6.          
  7.      MOVE X'0802' TO sCmd   (1:2)
  8.      MOVE X'0C21' TO sCmdExt(1:2)
  9.      MOVE SPACES  TO sCmd   (3:)
  10.                      sCmdExt(3:)

Si no te da buen resultado, también añade un nulo al final del campo, o sea:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  sCmd            PIC X(250).
  3.  01  sCmdExt         PIC X(250).
  4.  
  5.  PROCEDURE DIVISION.
  6.          
  7.      MOVE X'0802' TO sCmd   (1:2)
  8.      MOVE X'0C21' TO sCmdExt(1:2)
  9.      MOVE SPACES  TO sCmd   (3:)
  10.                      sCmdExt(3:)
  11.      MOVE X'00'   TO sCmd   (250:1)
  12.                      sCmdExt(250:1)


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
fastpho (24 de abril de 2017)
  #23
Antiguo 24 de abril de 2017, 21: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

Gracias Kuk voy a probar , de todas maneras estoy buscando alguna libreria de kernel32 o de user32 para ver si puedo eliminar el null terminated del string

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01 ReturnDEValue        PIC S9(9) COMP-5 VALUE 0.
  3.  01  sCmd            PIC X(250).
  4.  01  sCmdExt         PIC X(250).
  5.  PROCEDURE       DIVISION.
  6.      MOVE X'0802' TO sCmd   (1:2).
  7.      MOVE X'0C21' TO sCmdExt(1:2).
  8.      MOVE SPACES  TO sCmd   (3:)
  9.                      sCmdExt(3:).
  10.      MOVE X'00'   TO sCmd   (250:1)
  11.                      sCmdExt(250:1)                    
  12.      INVOKE EpsonFPHostControl1 "OpenPort"                    RETURNING ReturnDEValue.                    
  13.      INVOKE EpsonFPHostControl1 "AddDataField" USING sCmd     RETURNING ReturnDEValue.
  14.      INVOKE EpsonFPHostControl1 "AddDataField" USING sCmdExt  RETURNING ReturnDEValue.
  15.      INVOKE EpsonFPHostControl1 "SendCommand"                 RETURNING ReturnDEValue.    
  16.      call "BUSY".    
  17.      INVOKE EpsonFPHostControl1 "ClosePort"                   RETURNING ReturnDEValue.
  18.          
Con este codigo me manda esto al puerto lo muestro un print screen
Imágenes Adjuntas
Tipo de Archivo: jpg Transmi.jpg (359,3 KB, 13 descargas)
fastpho no ha iniciado sesión   Responder Con Cita
  #24
Antiguo 24 de abril de 2017, 22:36
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.10.2019 15:47
PROCEDURE DIVISION
PostsPosts: 1.417
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 540
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

fastpho, esto para mi quiere decir que es la OCX la que añade los nulos porque el valor X'20' es espacios.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
fastpho (24 de abril de 2017)
  #25
Antiguo 24 de abril de 2017, 23:45
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

no los x'20' los ´pone cuando envio estas lineas
Código COBOL:
  1.     MOVE X'00'   TO sCmd   (250:1)
  2.                     sCmdExt(250:1)


---------- Post añadido : 23:36 ---------- Post anterior : 23:31 ----------

Mira ese link kuk
IBM Knowledge Center

---------- Post añadido : 23:45 ---------- Post anterior : 23:36 ----------

IBM Knowledge Center
fastpho no ha iniciado sesión   Responder Con Cita
  #26
Antiguo 25 de abril de 2017, 07:50
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.10.2019 15:47
PROCEDURE DIVISION
PostsPosts: 1.417
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 540
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

fastpho, el formato Z"Mi texto terminado por nulo" no es soportado por Fujitsu. Es soportando por IBM (a partir de cierta versión) y por MicroFocus. Con lo cual no es el caso


Cita del post de fastpho Ver Mensaje
no los x'20' los ´pone cuando envio estas lineas
Yo lo que veo en el pantallazo es que hay espacios hasta el final del campo recibido por la OCX y no hay ni un sólo nulo. Pero sigue sin funcionarte, según entiendo...


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
fastpho (25 de abril de 2017)
  #27
Antiguo 25 de abril de 2017, 14:01
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

En el pantallazo que mande si te fijas bien antes del separador de campo 1c esta el 00 y vuelve a repetir con el scmdext
fastpho no ha iniciado sesión   Responder Con Cita
  #28
Antiguo 25 de abril de 2017, 14:44
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.10.2019 15:47
PROCEDURE DIVISION
PostsPosts: 1.417
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 540
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Cita del post de fastpho Ver Mensaje
antes del separador de campo 1c esta el 00
A ver, no sé si me estoy liando pero estoy mirando WRITTEN DATA COM1 y no veo ningún nulo. El READ DATA COM1 sí que los contiene pero según entiendo es la salida, o sea la respuesta del COM1 y no lo que se haya enviado a él. WRITTEN DATA COM1 es lo que se le ha enviado, y ahí no hay ningún nulo por medio, sólo los 2 que nosotros fijamos al final del campo en la posición 250.

Con esto quiero decir que seguramente se nos está escapando algo, y el problema no son los nulos.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
fastpho (26 de abril de 2017)
  #29
Antiguo 26 de abril de 2017, 14:42
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
Estadística Impresoras Fiscales nueva generacion

hola Kuk voy a subir la imagen de nuevo y marque en rojo con circulo los x'00'
el write es lo que envia a la impresora
gracias
Imágenes Adjuntas
Tipo de Archivo: jpg Transmi.jpg (344,7 KB, 7 descargas)
fastpho no ha iniciado sesión   Responder Con Cita
  #30
Antiguo 26 de abril de 2017, 16:28
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.10.2019 15:47
PROCEDURE DIVISION
PostsPosts: 1.417
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 540
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

fastpho, esos 2 nulos son los 2 que ponemos al final de cada campo:

Código COBOL:
  1.         MOVE X'00'   TO sCmd   (250:1)
  2.                         sCmdExt(250:1)

Es decir, en total añadimos al supuesto "Stack" 2 campos de 250 bytes cada uno, al final de los cuales movemos un nulo.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
fastpho (26 de abril de 2017)
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:26.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.