Re: CreateObject() ?
Posted: Thu Feb 27, 2020 4:22 pm
I mean resource files.
HASA
HASA
I don't know. I've not found anything about that.
HMGforum.com
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
CreateObject() ?
Page 2 of 2
Re: CreateObject() ?
Posted: Fri Feb 28, 2020 1:03 am
Re: CreateObject() ?
Posted: Sun Nov 20, 2022 11:24 pm
Hola a todos !
Me toca trabajar con impresora fiscal que es algo completamente nuevo para mí...
Basado en el post del Sr. Roberto Lopez y la invaluable ayuda de Daniel Maximiliano agrego esto al hilo:
Me toca trabajar con impresora fiscal que es algo completamente nuevo para mí...
Basado en el post del Sr. Roberto Lopez y la invaluable ayuda de Daniel Maximiliano agrego esto al hilo:
Code: Select all
#include <hmg.ch>
#define Hasar 'HasarArgentina.ImpresoraFiscalRG3561'
Function Prueba_Hasar
LOCAL oHasar := Nil
LOCAL cModelo := ""
LOCAL cResp_1 := ""
LOCAL cResp_2 := ""
LOCAL cResp_3 := ""
LOCAL cResp_4 := ""
LOCAL cResp_5 := ""
LOCAL cResp_6 := ""
If ( oHasar := CreateObject ( Hasar ) ) != Nil
oHasar:Conectar ("127.0.0.1")
cModelo := oHasar:ConsultarVersion ( )
cResp_1 := oHasar:ObtenerCampoRespuesta('NombreProducto')
cResp_2 := oHasar:ObtenerCampoRespuesta('Marca')
cResp_3 := oHasar:ObtenerCampoRespuesta('Version')
cResp_4 := oHasar:ObtenerCampoRespuesta('FechaFirmware')
cResp_5 := oHasar:ObtenerCampoRespuesta('VersionMotor')
cResp_6 := oHasar:ObtenerCampoRespuesta('VersionProtocolo')
MsgInfo ("Producto: " + AllTrim (cResp_1) + CRLF +;
"Marca: " + AllTrim (cResp_2) + CRLF +;
"Modelo y Versión: " + AllTrim (cResp_3) + CRLF +;
"Fecha de Firmware: " + AllTrim (cResp_4) + CRLF +;
"Motor Versión: " + AllTrim (cResp_5) + CRLF +;
"Protocolo Versión: " + AllTrim (cResp_6) , "Información de la impresora" )
Else
MsgBox ( ' No se puede inicializar la impresora fiscal ' , ' Error !!! ' )
EndIf
Return Nil
- Screenshot_20221120_201554.png (17.87 KiB) Viewed 1705 times
Re: CreateObject() ?
Posted: Mon Nov 21, 2022 6:54 pm
What type of communication does your printer offer?
RS232? TCPIP?
RS232? TCPIP?