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

Tema: Manejo OCX impresora Fiscal Epson nueva generación

  1. #1
      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

    Impresora Manejo OCX impresora Fiscal Epson nueva generación

    Hola Amigos tengo problemas con la ocx de las impresoras Fiscales de la nueva generacion
    alguien esta trabajando con ella ?

    Saludos y gracias

    0 Not allowed!

  2. #2
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    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, y el resto de los foreros...

    Diciendo simplemente "tengo problemas" ¡prácticamente no decís nada! Cuando contáis un problema, dadnos detalles (como qué tipo de error tenéis exactamente) y cuantos más detalles deis mejor os podremos ayudar.

    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. #3
      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

    Teclado Impresoras Fiscales nueva generacion

    Buen dia amigos : Les cuento un poco de cero , la empresa Epson Argentina provee una ocx para
    comunicarte con la impresora fiscal , posee comandos para enviarle a la impresora para que haga algo ... Por ejemplo hay un comando que es para saber el estado de la impresora que puede ser fiscal o estado de hardware del impresor los datos hay que mandarlos en hexadecimal cuando ejecuto el comando la fiscal me da el siguiente error : el frame con contiene el minimo aceptado
    He bajado un soft que monitorea los datos enviados y comparando con un programa que funciona
    en visual comparo lo que yo envio y lo que envia el otro soft y aca les dejo las diferencias:


    Código:
    06 02 99 00 01 1C 00 00 03 30 30 42 42            bien el de visual
    
    06 02 FF 00 1C 00 03 30 31 32 30                     mal mi soft



    COBOL Código:
    1. WORKING-STORAGE SECTION.
    2.  01 ReturnDEValue        PIC S9(9) COMP-5 VALUE 0.
    3.  01 LINEA-ESTADO.
    4.     03 Comando            PIC X VALUE  X"00".
    5.     03 Comandobis         PIC X VALUE  X"01".
    6.  01 LINEA-EXTRA.   
    7.     03 DataField1         PIC X VALUE  X"00".
    8.     03 DataField2         PIC X VALUE  X"00".
    9. *01 ReturnString       PIC X(12).
    10. *01 Variable           PIC 9(3).
    11.  PROCEDURE       DIVISION.
    12. * abre el puerto
    13.      INVOKE EpsonFPHostControl1 "OpenPort"                         RETURNING ReturnDEValue.
    14. * dato a enviar al impresor
    15.      INVOKE EpsonFPHostControl1 "AddDataField" USING LINEA-ESTADO  RETURNING ReturnDEValue.
    16. * dato a enviar al impresor
    17.      INVOKE EpsonFPHostControl1 "AddDataField" USING LINEA-EXTRA   RETURNING ReturnDEValue.
    18. * aca envia el paquete de datos
    19.      INVOKE EpsonFPHostControl1 "SendCommand"                      RETURNING ReturnDEValue.

    0 Not allowed!

  4. #4
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    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, ambas colecciones de valores que muestras son bastante más largos que lo que tienes en el código COBOL que has publicado.

    ¿Tu problema es que no sabes cómo enviar a la impresora un string con estos valores? ¿Tienes algún ejemplo de un programa que funcione, sea en el lenguaje que sea (el de "Visual" por ejemplo)?

    También, publica aquí las instrucciones exactas de esa OCX. No hace falta que sea todo el manual, pero un ejemplo de lo que quieres hacer. E intentaremos crear el código desde 0 de nuevo, a lo mejor se te ha escapado algo y es por eso que no te funciona.

    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. #5
      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

    Gracias Kuk por tu respuesta voy a tratar de explicar y pongo un parte del codigo en visual basic que funciona con la ocx que provee epson , el string ha enviar deben ser valores en hexadecimal por lo que veo de la linea que dice LINEA-ESTADO la ocx se come el valor que dice (01) ... 03 Comandobis PIC X VALUE X"01"
    de la linea LINEA-EXTRA se come los valores nulos y me agrega "00"
    Las lineas que pege en power cobol corresponde al comando estado
    Voy a pegar aqui la linea de visual que funcionan (comando x , comando z y comando estado) :

    VB Código:
    1. Case 0
    2.         '---------------------------
    3.         ' Cierre X
    4.         '---------------------------
    5.             sCmd = Chr$(&H8) + Chr$(&H2)
    6.             MsgBox sCmd
    7.             If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
    8.            sCmdExt = Chr$(&HC) + Chr$(&H21)
    9.           '  sCmdExt = Chr$(&H0) + Chr$(&H1)
    10.             If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
    11.             If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
    12.             Call FPDelay
    13.             If Me.EpsonFP.ReturnCode <> 0 Then ShowMsg
    14.            
    15.  Case 1
    16.         '---------------------------
    17.         ' Cierre Z
    18.         '---------------------------
    19.             sCmd = Chr$(&H8) + Chr$(&H1)
    20.             If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
    21.             sCmdExt = Chr$(&HC) + Chr$(&H0)
    22.             If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
    23.             If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
    24.             Call FPDelay
    25.             If Me.EpsonFP.ReturnCode <> 0 Then ShowMsg
    26.            
    27. Case 6
    28.         '---------------------------
    29.         ' Estado
    30.         '---------------------------
    31.             sCmd = Chr$(&H0) + Chr$(&H1)
    32.             If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
    33.             sCmdExt = Chr$(&H0) + Chr$(&H0)
    34.             If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
    35.             If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
    36.             Call FPDelay
    37.             ShowMsg
    desde ya muchas gracias por su ayuda

    0 Not allowed!

  6. #6
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    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, usa los Tag-s de resalto de sintaxis como lo dicen las normas del foro (enlace en mi firma): [Información] "No sé dónde y cómo publicar posts..." - COBOL Foro

    En cuanto al código VB que has citado, me parece que te has liado. Estamos hablando de 1 byte cada vez, con lo cual el siguiente

    VB Código:
    1. sCmd = Chr$(&H0) + Chr$(&H1)
    2. sCmdExt = Chr$(&HC) + Chr$(&H0)

    En COBOL equivale a:

    COBOL Código:
    1. 01  sCmd            PIC X(2) VALUE X'0001'.
    2.  01  sCmdExt         PIC X(2) VALUE X'0C00'.

    Es decir, que cada valor mencionado en VB se ubique en 1 byte, dando así el conjunto de resultado de llamada de las 2 funciones Chr$ daría un String de un total de 2 bytes.

    Haz las modificaciones correspondientes según el ejemplo que te he dado, pruébalo y nos cuentas.

    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. #7
      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 por tu respuesta pero no me funciona me hace lo mismo que antes, lo que he notado que solo envia el caracter nulo 00 , por que use el comando reporte x y en ese caso si me envia el string que corresponde pero me agrega el caracter nulo

    Código:
    Estado del Impresor
    
    06 02 99 00 01 1C 00 00 03 30 30 42 42            forma correcta soft en vb6
    
    06 02 FF 00 1C 00 03 30 31 32 30                  forma incorrecta powercobol
    
    
    informe x
    
     06 02 FA 08 1B 02 1C 0C 21 03 30 31 36 44         forma correcta soft en vb6
    
     06 02 9C 08 1B 02 00 1C 0C 21 00 03 30 31 30 46    forma incorrecta powercobol

    0 Not allowed!

  8. #8
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    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, explícame bien qué son todos estos valores porque la verdad es que no me estoy enterando de dónde vienen tantos si sólo enviamos un par de Bytes... ¿Estos churros de datos de dónde los sacas?

    Mira, te voy a traducir exactamente una parte del código, debería ser así que yo sepa:

    COBOL Código:
    1.      WORKING-STORAGE SECTION.
    2.      01  sCmd            PIC X(2) VALUE X'0001'.
    3.      01  sCmdExt         PIC X(2) VALUE X'0C00'.
    4.      01  bAnswer         PIC S9(9) COMP-5.
    5.      PROCEDURE DIVISION
    6.          
    7.          *> código de antes...............
    8.          
    9.          *> Estado         
    10.          MOVE X'00' & X'01' TO sCmd
    11.          
    12.          IF  bAnswer NOT = ZEROS
    13.              INVOKE EpsonFP "AddDataField" USING sCmd RETURNING bAnswer
    14.              
    15.              MOVE X'00' & X'00' TO sCmdExt
    16.              
    17.              IF  bAnswer NOT = ZEROS           
    18.                  INVOKE EpsonFP "AddDataField" USING sCmdExt RETURNING bAnswer
    19.                  
    20.                  IF  bAnswer NOT = ZEROS
    21.                      INVOKE EpsonFP "SendCommand"
    22.                      
    23.                      CALL "FPDelay"
    24.            
    25.                      PERFORM ShowMsg
    26.                  END-IF
    27.              END-IF
    28.          END-IF

    @Rapinto, @Dasije, corregidme si me estoy equivocando en algo.

    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. #9
      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, esos valores que me preguntas es el string de datos que le envia la ocx de epson al impresor que tiene un formato :
    06 (ack) 02 (stx) 99(nro secuencia) 00 01 (comando a ejecutar sCmd) 1C (separador de campo) 00 00 (campo extra sCmdExt) 03 (etx) y los numero restantes checksum 30 30 42 42
    Estos valores los puedo ver porque estoy corriendo un programa que monitorea los datos que salen por el puerto serie (com1) donde esta conectada la impresora fiscal
    Y el problema que veo es que al comparar los datos enviados por el programa en vb6 a la ocx y lo que envia el powercobol 5.0 a la ocx es el caracter 00
    En el caso del comando estado que es sCmd 00 01 y el comando extra que es 00 00 estos valores cuando los envia a la ocx que es el intermediario entre la fiscal y la aplication

    0 Not allowed!

  10. #10
      Administrador Avatar de Kuk

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    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, la verdad es que no lo entiendo... Enviamos 2 bytes con los mismos valores... Parece ser que la OCX no recibe lo mismo, si envía cosas diferentes a la impresora.

    ¿Cual es la codificación del OCX, no será Unicode?

    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 1 de 11 1 2 3 4 5 6 7 8 9 10 ... ÚltimoÚltimo

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 6 usuarios viendo este tema. (0 miembros y 6 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
  •