Página 3 de 11 PrimerPrimer 1 2 3 4 5 6 7 8 9 10 11 ÚltimoÚltimo
Resultados 21 al 30 de 102

Tema: Manejo OCX impresora Fiscal Epson nueva generación

  1. #21
      Senior
    f

    Fecha de Ingreso
    07 dic, 16
    Edad
    51
    Mensajes
    228
    Ciudad
    Mendoza

    Agradecimientos
     
    Recibidos
    147
    Enviados
    141

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    4 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    Predeterminado

    Gracias Rapinto el ejemplo que yo pase y que estoy trabajando esta en vb6 y funciona bien

    0 Not allowed!

  2. #22
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,010
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    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:

    COBOL Código:
    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:

    COBOL Código:
    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)

    0 Not allowed!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

  3. #23
      Senior
    f

    Fecha de Ingreso
    07 dic, 16
    Edad
    51
    Mensajes
    228
    Ciudad
    Mendoza

    Agradecimientos
     
    Recibidos
    147
    Enviados
    141

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    4 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    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

    COBOL Código:
    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
    Imagem Anexada Imagem Anexada

    0 Not allowed!

  4. #24
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,010
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    Predeterminado

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

    0 Not allowed!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

  5. #25
      Senior
    f

    Fecha de Ingreso
    07 dic, 16
    Edad
    51
    Mensajes
    228
    Ciudad
    Mendoza

    Agradecimientos
     
    Recibidos
    147
    Enviados
    141

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    4 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    Predeterminado

    no los x'20' los ´pone cuando envio estas lineas
    COBOL Código:
    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

    0 Not allowed!

  6. #26
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,010
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    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 Iniciado por 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...

    0 Not allowed!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

  7. #27
      Senior
    f

    Fecha de Ingreso
    07 dic, 16
    Edad
    51
    Mensajes
    228
    Ciudad
    Mendoza

    Agradecimientos
     
    Recibidos
    147
    Enviados
    141

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    4 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    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

    0 Not allowed!

  8. #28
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,010
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    Predeterminado

    Cita Iniciado por 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.

    0 Not allowed!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

  9. #29
      Senior
    f

    Fecha de Ingreso
    07 dic, 16
    Edad
    51
    Mensajes
    228
    Ciudad
    Mendoza

    Agradecimientos
     
    Recibidos
    147
    Enviados
    141

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    4 Post(s)
    Poder de Reputación
    19
    Concurso: Primer puesto / Point Value: 0

    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
    Imagem Anexada Imagem Anexada

    0 Not allowed!

  10. #30
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,010
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    Predeterminado

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

    COBOL Código:
    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.

    0 Not allowed!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

Página 3 de 11 PrimerPrimer 1 2 3 4 5 6 7 8 9 10 11 ÚltimoÚltimo

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 7 usuarios viendo este tema. (0 miembros y 7 visitantes)

Temas Similares

  1. [Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll
    Por drvedia1981 en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 3
    Último Mensaje: 01/02/2022, 13:34
  2. [Aporte] Manejo de control CmListView (Grid)
    Por Josber en el foro Cocina PowerCOBOL
    Respuestas: 27
    Último Mensaje: 18/11/2019, 09:16
  3. [Compilador] Error de generación del reporte de Crash
    Por JuanJuan77 en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 2
    Último Mensaje: 07/07/2017, 22:02
  4. [Información] Utilización de OCX impresora fiscal en RM/Cobol 7
    Por mainero en el foro RM/COBOL
    Respuestas: 3
    Último Mensaje: 29/06/2017, 23:34
  5. Motocicletas de nueva generación
    Por Kuk en el foro Espacio "Offtop"
    Respuestas: 0
    Último Mensaje: 24/12/2016, 15:24

User Tag List

Etiquetas para este Tema

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •