CreateObject() ?

[HASA]

I mean resource files.
HASA

[Roberto Lopez]

- Hello Roberto, congratulations, does it have anything to do with a reserved word for resouce files or so?
HASA - São Paulo -Brazil

I don't know. I've not found anything about that.

[Claudio Ricardo]

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:

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 1704 times

[mol]

What type of communication does your printer offer?
RS232? TCPIP?