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!
OCX on HMG
Moderator: Rathinagiri
OCX on HMG
Saludos, Fernando Chirico.
- danielmaximiliano
- Posts: 2611
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: OCX on HMG
Hola Fernando :
Yo lo utilizo asi :
para ventas utilizo algo como esto
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
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
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: OCX on HMG
Gracias DANIEL!!!
Voy a hacer pruebas y cualquier duda te molesto.
Voy a hacer pruebas y cualquier duda te molesto.
Saludos, Fernando Chirico.