Estimado Antonio, si bien es cierto, Daniel ha dado en el clavo, ahora me he entrampado en otra situación...
Hay algunos comandos que debo enviar a la impresora, éstos son hexadecimal, y no veo forma de enviarlos, pués no sé su equivalencia decimal, y menos aún, de qué forma representarlos con fwh...
Una de las tantas secuencias hexadecimal es la siguiente que está hecha en visual basic:
- Code: Select all Expand view
Private Sub Command5_Click()
' Obtención de las Caracteristicas fiscales'
Me.EpsonFPHostControl1.AddDataField Chr$(&H2) & Chr$(&HA) // Secuencia de comando hexadecimal
Me.EpsonFPHostControl1.AddDataField Chr$(&H0) & Chr$(&H1) // Secuencia de comando hexadecimal
Me.EpsonFPHostControl1.SendCommand
While EpsonFPHostControl1.State = EFP_S_Busy
DoEvents
Wend
MsgBox "Fiscal: " & Hex(Me.EpsonFPHostControl1.FiscalStatus)
MsgBox "Printer: " & Hex(Me.EpsonFPHostControl1.PrinterStatus)
MsgBox "Return Code: " & Hex(Me.EpsonFPHostControl1.ReturnCode)
MsgBox "Nombre de la Versión : " & Me.EpsonFPHostControl1.GetExtraField(1)
MsgBox "ID del País : " & Me.EpsonFPHostControl1.GetExtraField(2)
MsgBox "Versión de Firmware Mayor: " & Me.EpsonFPHostControl1.GetExtraField(3)
MsgBox "Versión de Firmware Menor: " & Me.EpsonFPHostControl1.GetExtraField(4)
MsgBox "Versión de Firmware Compi: " & Me.EpsonFPHostControl1.GetExtraField(5)
MsgBox "ID del mecanismo impresor: " & Me.EpsonFPHostControl1.GetExtraField(6)
MsgBox "Nombre Mecanismo Impresor: " & Me.EpsonFPHostControl1.GetExtraField(7)
MsgBox "Capacidad Memoria fiscal : " & Me.EpsonFPHostControl1.GetExtraField(8)
MsgBox "Capacidad Memoria Transac: " & Me.EpsonFPHostControl1.GetExtraField(9)
MsgBox "Capacidad Memoria Trabajo: " & Me.EpsonFPHostControl1.GetExtraField(10)
MsgBox "Jumper de Servicio Conect: " & Me.EpsonFPHostControl1.GetExtraField(11)
MsgBox "Estado de los dip-switche: " & Me.EpsonFPHostControl1.GetExtraField(12)
End Sub
Por cualquier ayuda, de antemano, gracias.
Un abrazo, Leo.
Quiero hacer facturación electrónica...
Leon Valenzuela.
Santiago - Chile.