Page 3 of 11 FirstFirst 1 2 3 4 5 6 7 8 9 10 11 LastLast
Results 21 to 30 of 102

Thread: Manejo OCX impresora Fiscal Epson nueva generación

  1. #21
    Senior
    Idade
    51
    Posts
    219
    Rep Power
    19

    Default

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

  2. #22
    Administrador Kuk's Avatar
    Idade
    37
    Posts
    2,001
    Rep Power
    10

    Default

    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 Code:
    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 Code:
    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

  3. #23
    Senior
    Idade
    51
    Posts
    219
    Rep Power
    19

    Default

    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 Code:
    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
    Attached Images Attached Images

  4. #24
    Administrador Kuk's Avatar
    Idade
    37
    Posts
    2,001
    Rep Power
    10

    Default

    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

  5. #25
    Senior
    Idade
    51
    Posts
    219
    Rep Power
    19

    Default

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

  6. #26
    Administrador Kuk's Avatar
    Idade
    37
    Posts
    2,001
    Rep Power
    10

    Default

    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


    Quote Originally Posted by fastpho View Post
    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

  7. #27
    Senior
    Idade
    51
    Posts
    219
    Rep Power
    19

    Default

    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

  8. #28
    Administrador Kuk's Avatar
    Idade
    37
    Posts
    2,001
    Rep Power
    10

    Default

    Quote Originally Posted by fastpho View Post
    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

  9. #29
    Senior
    Idade
    51
    Posts
    219
    Rep Power
    19

    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
    Attached Images Attached Images

  10. #30
    Administrador Kuk's Avatar
    Idade
    37
    Posts
    2,001
    Rep Power
    10

    Default

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

    COBOL Code:
    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

Page 3 of 11 FirstFirst 1 2 3 4 5 6 7 8 9 10 11 LastLast

Thread Information

Users Browsing this Thread

There are currently 7 users browsing this thread. (0 members and 7 guests)

Similar Threads

  1. [Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll
    By drvedia1981 in forum PowerCOBOL (ActiveX, v4 - v11)
    Replies: 3
    Last Post: 01-02-2022, 12:34
  2. [Aporte] Manejo de control CmListView (Grid)
    By Josber in forum Cocina PowerCOBOL
    Replies: 27
    Last Post: 18-11-2019, 08:16
  3. [Compilador] Error de generación del reporte de Crash
    By JuanJuan77 in forum PowerCOBOL (ActiveX, v4 - v11)
    Replies: 2
    Last Post: 07-07-2017, 21:02
  4. [Información] Utilización de OCX impresora fiscal en RM/Cobol 7
    By mainero in forum RM/COBOL
    Replies: 3
    Last Post: 29-06-2017, 22:34
  5. Motocicletas de nueva generación
    By Kuk in forum Espacio "Offtop"
    Replies: 0
    Last Post: 24-12-2016, 14:24

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •