OCX on HMG

Moderator: Rathinagiri

Post Reply
User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

OCX on HMG

Post by fchirico »

EL Grupo Hasar (fabricante de impresoras fiscales) dejó de usar como herramienta de comunicación las DLL, y ahora solo soporta un OCX provisto por GRupo Hasar, por lo que me veo obligado a modificar mis programas hechos en HMG Official.

Tengo algunos clientes con la Hasar 715, pero usando la DLL en HMG Oficial, ahora necesito saber cómo usar un OCX en HMG, alguien tendrá un ejemplo de cómo usar un OCX con HMG?

Muchas gracias!

The Hasar Group (manufacturer of fiscal printers ) stopped using it as a communication tool DLLs , and now only supports OCX provided by Grupo Hasar , so I am forced to modify my programs made ​​HMG Official.

I have some clients with Hasar 715, but using the DLL in HMG Officer, now I need to know how to use an OCX in HMG , someone has an example of how to use an OCX with HMG ?

Thank you!
Saludos, Fernando Chirico.
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: OCX on HMG

Post by danielmaximiliano »

Hola Fernando :

Yo lo utilizo asi :

Code: Select all

#include 'hmg.ch'
#define c715F 'HASAR.Fiscal.1'

/*---------------------------------------------------------/
//    Los Tilos Versión OCX                                //
/---------------------------------------------------------*/

Function Main                         
LOCAL OCX_bSaveHandler
LOCAL OCX_Error   := 0 
Public oGif
PUBLIC nHandle
PUBLIC nTicketTOTAL
PUBLIC cSeparador
PUBLIC nHandler
PUBLIC nError
PUBLIC nhandler
PUBLIC o715F  
PUBLIC cModelo          := '' 
PUBLIC nComFiscal      := 0
PUBLIC lConectado      := .F.
PUBLIC lOcupado       := .F.
PUBLIC cRecibe        := ""
lErrorComenzar      := .F.  && flag para detectar errores de comunicación 

Crea715f( )

Code: Select all

*------------------------------------------------------------------------------*
Function Crea715f( )
*------------------------------------------------------------------------------*
Return
    IF ( o715F := CreateObject( c715F ) ) != NIL
       o715F:puerto := 1
	   If ( cModelo := o715F:AutodetectarModelo( ) ) != NIL
		      PrincipalOCX.STATUSBAR.Item(2) := 'Impresora ' + Alltrim ( cModelo ) + ' Conectada a  ' + ;
			                                     Alltrim ( STR ( nPuerto ) )
		    else 	
			  PrincipalOCX.STATUSBAR.Item(2) := 'Impresora desconocida ' + ' Conectada a COM1 ' 
       EndIf
    Else
		Msgbox ( ' No se puede inicializar la IMPRESORA ' , ' Mensaje de error !!! ' )
    endIf		
		      
Return
para ventas utilizo algo como esto

Code: Select all

#define c715F          'HASAR.Fiscal.1'
************************************************************************
* HMG ejemplo utilizando OCX fiscal010724.ocx 
* Modelo: SMH/P-715F
************************************************************************

#define cOCUPADO_CMD			"Un comando se ejecutando, espere por favor un momento !!!"
#define cESTACION_TICKET 	"T"
#define cESTACION_SLIP		"S"
#define nTICKET_C			 84
#define nTICKET_FACTURA_A    65  
#define nTICKET_FACTURA_B    66  

Code: Select all

*o715f:CerrarComprobanteFiscal( )

/* Abrir un nuevo Comprobante */

o715f:AbrirComprobanteFiscal ( 84 )
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
fchirico
Posts: 324
Joined: Sat Aug 23, 2008 11:27 pm
Location: Argentina

Re: OCX on HMG

Post by fchirico »

Gracias DANIEL!!!

Voy a hacer pruebas y cualquier duda te molesto.
Saludos, Fernando Chirico.
Post Reply