Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Ayuda a principiante con unos errores Hipromark COBOL - General 3 4 de mayo de 2018 18:26
[Aporte] Dll interfaceEpsonNF ejemplo de uso drvedia1981 Cocina PowerCOBOL 0 19 de diciembre de 2017 02:30
[Sintaxis] Comunicarse con una DLL Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 1 30 de junio de 2016 19:58
[Sintaxis] Ayuda para interactuar con base de Datos Breew PowerCOBOL (ActiveX, v4 - v11) 19 28 de enero de 2016 22:46
[Sintaxis] Ayuda con DISPLAYMESSAGE Juanes PowerCOBOL (ActiveX, v4 - v11) 3 5 de octubre de 2015 16:42
Respuesta
 
Herramientas

  #1
Antiguo 23 de noviembre de 2017, 18:09
IDENTIFICATION DIVISION
drvedia1981
Novato Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
UbicaciónCaba Argentina
Última Actividad11.12.2018 15:07
PROCEDURE DIVISION
PostsPosts: 33
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
drvedia1981 is an unknown quantity at this point
Predeterminado Ayuda con libreria epson InterfaceEpsonNF.dll

Hola a todos, quiero utilizar la libreria de epson InterfaceEpsonNF.dll para manejar un tm-t20 no fiscal y vi un ejemplo que trae en vb6 que funciona muy bien como puedo llevarlo a power7 solo esta el archivo .dll y el manual con los comandos, por ejemplo para setear puerto dice asi
function ConfiguraTaxaSerial (dwTaxa:Integer):Integer; StdCall; External 'InterfaceEpsonNF.dll'
donde dwtaxa puede ser 9600 19200 baudios etc.

En vb6:
Código VB:
  1. Dim iRetorno As Integer
  2. Private Sub FUNC02_Click()
  3.     iRetorno = ConfiguraTaxaSerial(19200)
  4.     MsgBox "Baud Rate da Serial configurado com sucesso.", vbOKOnly + vbInformation, "Retorno"
  5. End Sub

Alguna ayuda para implementarlo en power7 Muchas Gracias Saludos.
drvedia1981 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 23 de noviembre de 2017, 18:31
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.10.2019 15:47
PROCEDURE DIVISION
PostsPosts: 1.417
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 540
Mejores respuestasSoluiones: 87
ReputaciónReputació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

drvedia1981, en el fichero COBOL85.CBR pones:

Código:
[MainForm.Entry]
ConfiguraTaxaSerial=InterfaceEpsonNF.dll
En tu programa haces:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  RESP       PIC S9(9) COMP-5.
  3.  01  NPORT      PIC S9(9) COMP-5.
  4.  01  FUNC       PIC X(50) VALUE "ConfiguraTaxaSerial".
  5.  PROCEDURE DIVISION.
  6.      
  7.      MOVE 19200 TO NPORT      
  8.  
  9.      CALL FUNC WITH STDCALL USING BY VALUE NPORT RETURNING RESP


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 24 de noviembre de 2017, 02:05
IDENTIFICATION DIVISION
drvedia1981
Novato Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
UbicaciónCaba Argentina
Última Actividad11.12.2018 15:07
PROCEDURE DIVISION
PostsPosts: 33
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 3
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
drvedia1981 is an unknown quantity at this point
Predeterminado

Hola Kuk gracias por la pronta respuesta, tengo que poner cada función en el cobol85.cbr por ejemplo:

Código:
[MainForm.Entry]
ConfiguraTaxaSerial=InterfaceEpsonNF.dll
IniciaPorta=InterfaceEpsonNF.dll
ImprimeTextoTag=InterfaceEpsonNF.dll
Le_Status=InterfaceEpsonNF.dll
Es asi no ? Saludos.

---------- Post añadido : 02:05 ---------- Post anterior : 19:09 ----------

Hola kuk ya funcionando perfecto gracias por todo saludos
drvedia1981 no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 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 07:44.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.