Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 3 1 de febrero de 2022 12:34
[Aporte] Manejo de control CmListView (Grid) Josber Cocina PowerCOBOL 27 18 de noviembre de 2019 08:16
[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 14:24
Respuesta
 
Herramientas

  #21
Antiguo 24 de abril de 2017, 13:54
IDENTIFICATION DIVISION
fastpho
 Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
23.05.2022 22:21
PROCEDURE DIVISION
Posts: 218
Enviado: 136
Recibido: 134
Soluciones: 21
Reputación: 19
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point 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
diciembre 2014
Madrid
37 años
25.05.2022 09:09
PROCEDURE DIVISION
Posts: 1.990
Enviado: 688
Recibido: 850
Soluciones: 100
Reputació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 - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic 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
 Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
23.05.2022 22:21
PROCEDURE DIVISION
Posts: 218
Enviado: 136
Recibido: 134
Soluciones: 21
Reputación: 19
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point 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
Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  Transmi.jpg
Vistas: 103
Tamaño:  359,3 KB  
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
diciembre 2014
Madrid
37 años
25.05.2022 09:09
PROCEDURE DIVISION
Posts: 1.990
Enviado: 688
Recibido: 850
Soluciones: 100
Reputació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 - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic 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
 Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
23.05.2022 22:21
PROCEDURE DIVISION
Posts: 218
Enviado: 136
Recibido: 134
Soluciones: 21
Reputación: 19
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point 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
diciembre 2014
Madrid
37 años
25.05.2022 09:09
PROCEDURE DIVISION
Posts: 1.990
Enviado: 688
Recibido: 850
Soluciones: 100
Reputació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


Citación 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 - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic 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
 Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
23.05.2022 22:21
PROCEDURE DIVISION
Posts: 218
Enviado: 136
Recibido: 134
Soluciones: 21
Reputación: 19
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point 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
diciembre 2014
Madrid
37 años
25.05.2022 09:09
PROCEDURE DIVISION
Posts: 1.990
Enviado: 688
Recibido: 850
Soluciones: 100
Reputació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

Citación 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 - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic 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
 Senior
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
23.05.2022 22:21
PROCEDURE DIVISION
Posts: 218
Enviado: 136
Recibido: 134
Soluciones: 21
Reputación: 19
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point 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
Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  Transmi.jpg
Vistas: 84
Tamaño:  344,7 KB  
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
diciembre 2014
Madrid
37 años
25.05.2022 09:09
PROCEDURE DIVISION
Posts: 1.990
Enviado: 688
Recibido: 850
Soluciones: 100
Reputació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 - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic 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: 5 (0 miembros y 5 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 10:03.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2022, Jelsoft Enterprises Ltd.