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

Thread: Manejo OCX impresora Fiscal Epson nueva generación

  1. #41
    Gran amigo del Foro y Guru de COBOL Rapinto's Avatar
    Posts
    246
    Rep Power
    17

    Default

    fastpho,

    Não será necessário utilizar:
    COBOL Code:
    1. * define na Working
    2. 01  WSRESULT PIC S9(009)   COMP-5.
    3.  
    4. CALL FUNC WITH  STDCALL  USING BY REFERENCE CODIGO-CmImpresor
    5.                                         RETURNING WSRESULT.
    Espero que resolva.
    Un saludo,
    Rui Pinto

  2. #42
    Administrador Kuk's Avatar
    Idade
    37
    Posts
    2,000
    Rep Power
    10

    Default

    fastpho, mirando el prototipo C de la función, vemos:

    CPP Code:
    1. int getPrinterStatus( void )

    int - es el Integer, equivalente a PIC S9(9) COMP-5 y es lo que la función devuelve.
    void - quiere decir NADA, o sea que no hay parámetros a pasar para esta función.

    Ahora, viendo cómo lo haces tú:

    COBOL Code:
    1. CALL FUNC WITH  STDCALL  USING BY REFERENCE CODIGO-CmImpresor.

    Le estás pasando un puntero (la dirección del campo CODIGO-CmImpresor) y por el contrario no recibes el valor Integer que devuelve dicha función.

    La forma correcta de llamarla sería:

    COBOL Code:
    1. CALL FUNC WITH  STDCALL RETURNING CODIGO-CmImpresor.

    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. #43
    Senior
    Idade
    51
    Posts
    219
    Rep Power
    19

    Default

    Gracias Kuk y Rui voy a probar y despues cuento como me fue

    ---------- Post añadido : 13:29 ---------- Post anterior : 13:24 ----------

    Funciona de las dos maneras Gracias Kuk y Rui
    COBOL Code:
    1.      CALL FUNC WITH  STDCALL  USING BY REFERENCE CODIGO-CmImpresor returning CODIGO-CmImpresor.
    2.      CALL FUNC WITH  STDCALL RETURNING CODIGO-CmImpresor.           

  4. #44
    Acabo de llegar...
    Idade
    56
    Posts
    7
    Rep Power
    0

    Default

    Kuk, Hola.. Necesito hacer funcionar la impresora EPSON TM 900 nueva generación y no encuentro la forma de usar la OCX o la DLL.. Vi en el foro que la están usando.. me pueden ayudar x favor?

    Gracias...

  5. #45

    Default

    Laura, Kuk, no está usándo ese controlador, supongo que por que aquí en España, fiscalmente no es obligatorio, el que te tendría que ayudar es fastpho, que parece ser que ha conseguido ponerlo en marcha. Lo único que ha hecho Kuk y otros, y no es poco, es ayudar con un problema.

    Un saludo.-

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

    Default

    Laura, como ha dicho Josber, yo no las uso. Pero dinos qué problema tienes, técnicamente te podremos ayudar.

    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. #47
    Senior
    Idade
    51
    Posts
    219
    Rep Power
    19

    Default

    Laura, Hola Laura , tendrias que bajar desde la pagina web de epson argentina , yo logre hacerla andar yo estoy utilizando EpsonFiscalDriver.DLL para facturar y sacar informes
    bajatelos y te ayudo
    Suerte

  8. #48
    Acabo de llegar...
    Idade
    56
    Posts
    7
    Rep Power
    0

    Default

    Hola.. buenísimo.. yo tengo la DLL (EpsonFiscalInterface.DLL) y la OCX (comEsponFiscalDriver.OCX) q me enviaron de Espon, incluso fui a un curso pero no supieron decirme como usarlas en el Fujitsu. La OCX intento incluirla como un Custom Control pero pero me sale una leyenda This is not a custom control file.. Podés pasarme los códigos para incluir la DLL? NO encuentro la forma.. Muchísimas gracias..

    ---------- Post añadido : 16:07 ---------- Post anterior : 15:59 ----------

    Gracias.. Te cuento rápido mi problema. Espon provee una DLL para la impresora fiscal para lenguaje de alto nivel y también una OCX para lenguaje de bajo nivel.. No se como utilizar la DLL en el Fujitsu y así utilizarla. Tampoco puedo incluir la OCX como custom control porq me dice This is not a custom control file y tampoco conozco otra forma de utilizarla. Fui a un curso en Espon y no hay nadie q desarrolle en Fijitsu, somos pocos y entonces no tienen las respuestas para ayudarnos.

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

    Default

    Laura, Si lees bien el problema en paginas anteriores en el foro la ocx no funciona con pwc y como te dije tenes que usar la libreria EpsonFiscalDriver.DLL que funciona muy bien.
    Tenes que copiar tal libreria donde compile tu programa y en el archivo cobol85.cbr incluir las llamadas de las funciones que necesitas te paso unas lineas de programa y lo que debe incluir
    el archivo cobol85.cbr


    Lineas de Cobol85.cbr
    Code:
    [TPV.ENTRY]
    AddDataField=EpsonFiscalDriver.DLL
    ClosePort=EpsonFiscalDriver.DLL
    GetAPIVersion=EpsonFiscalDriver.DLL
    GetExtraField=EpsonFiscalDriver.DLL
    GetReceivedFrame=EpsonFiscalDriver.DLL
    GetSentFrame=EpsonFiscalDriver.DLL
    OpenPort=EpsonFiscalDriver.DLL
    Purge=EpsonFiscalDriver.DLL
    SendCommand=EpsonFiscalDriver.DLL
    getBaudRate=EpsonFiscalDriver.DLL
    getComPort=EpsonFiscalDriver.DLL
    getExtraFieldCount=EpsonFiscalDriver.DLL
    getFiscalStatus=EpsonFiscalDriver.DLL
    getLastError=EpsonFiscalDriver.DLL
    getPrinterStatus=EpsonFiscalDriver.DLL
    getProtocolType=EpsonFiscalDriver.DLL
    getReturnCode=EpsonFiscalDriver.DLL
    getState=EpsonFiscalDriver.DLL
    setBaudRate=EpsonFiscalDriver.DLL
    setComPort=EpsonFiscalDriver.DLL
    setProtocolType=EpsonFiscalDriver.DLL
    setComPort=EpsonFiscalDriver.DLL
    setLog=EpsonFiscalDriver.DLL
    Lineas de Programa:
    COBOL Code:
    1.      MOVE "GetAPIVersion" TO FUNC-EPSON-LIB.
    2.      CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION. 
    3. ***    set log
    4. **    move spaces       to FUNC-EPSON-LIB.
    5. **    MOVE "SetLog" TO FUNC-EPSON-LIB.
    6. **    MOVE "./" TO InBuffer.
    7. **    MOVE 0 TO BufferLen.
    8. **    CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE   InBuffer
    9. ** *                                  BY VALUE  BufferLen
    10. **    COM SET     
    11.      move spaces       TO FUNC-EPSON-LIB.
    12.      MOVE "setComPort" TO FUNC-EPSON-LIB.
    13.      MOVE 1            TO sPort *> activamos COM1
    14.      CALL FUNC-EPSON-LIB WITH  STDCALL   USING BY VALUE sPort.
    15. **    BAUDIOS SET     
    16.      MOVE spaces       TO FUNC-EPSON-LIB.
    17.      MOVE "setBaudRate" TO FUNC-EPSON-LIB.
    18.      move 9600          TO sBaudio *> set baudios
    19.      CALL FUNC-EPSON-LIB WITH  STDCALL   USING BY VALUE sBaudio.
    20. **    MOVE spaces       TO FUNC-EPSON-LIB.
    21. **    MOVE "getBaudRate" TO FUNC-EPSON-LIB.
    22. **         CALL FUNC-EPSON-LIB WITH  STDCALL   USING BY REFERENCE sBaudio.
    23. **    DISPLAY sBaudio
    24. **    PROTOCOL SET
    25.      move spaces       TO FUNC-EPSON-LIB.
    26.      MOVE "setProtocolType" TO FUNC-EPSON-LIB.
    27.      MOVE 1                 TO SProtocol.
    28.      CALL FUNC-EPSON-LIB WITH  STDCALL   USING BY VALUE SProtocol.
    29. *> OPEN  PORT.
    30.      move spaces       TO FUNC-EPSON-LIB.
    31.      MOVE "OpenPort"   TO FUNC-EPSON-LIB.
    32.      CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.
    33.        
    34.      move spaces       TO FUNC-EPSON-LIB.
    35.      MOVE "getLastError" TO FUNC-EPSON-LIB.
    36.      CALL FUNC-EPSON-LIB WITH  STDCALL RETURNING  iError.           
    37.      IF iError = 0  then MOVE "ok" to "Text" OF CmCOMUNICACION.
    38.      IF iError = 1  then MOVE "Puerto ocupado" to  "Text" OF CmCOMUNICACION.
    39.      IF iError = 2  then MOVE "Puerto invalido" to "Text" OF CmCOMUNICACION.
    40.      IF iError = 10  then MOVE "Error de escritura verifique el impresor" to "Text" OF CmCOMUNICACION.
    41. **    display    iError
    42. *     
    43. *
    44. *    MOVE "ClosePort"   TO FUNC-EPSON-LIB.
    45. *    CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.
    46. *     
    47.  

  10. #50
    Acabo de llegar...
    Idade
    56
    Posts
    7
    Rep Power
    0

    Default

    Estuve probando con un ejemplo q pusieron justamente con lo de "setComPort" y copié la DLL en mi release pero cuando lo ejecuto me da error, como q no reconoce el setComPort, lo moví a la variable también.. pero con éste ejemplo q vos me pusiste voy a seguir probando mañana. Muchas gracias.. ojalá también pueda ayudar en algo..

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

Thread Information

Users Browsing this Thread

There are currently 5 users browsing this thread. (0 members and 5 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
  •