Try
objHasar = CREATEOBJECT("ImpresoraFiscal2g.Impresora")
objHasar.CodigoActivacion=RTRIM(THISFORM.TXTcodigo.Value)
objHasar.IP = RTRIM(thisform.txtIP.value)
objHasar.Puerto=RTRIM(thisform.txtPuerto.Value)
objHasar.Comenzar()
IF !objHasar.ImpresoraOcupada()
objHasar.DescargarReportesElectronicos("01/01/2018", "28/02/2018", 1, .t.)
MESSAGEBOX("Archivos descargados en el path de la Aplicación")
ELSE
MESSAGEBOX("LA IMRESORA SE ENCUENTRA OCUPADA")
ENDIF
objHasar.Finalizar()
CATCH TO oError
MESSAGEBOX("Error:"+oError.Message)
EndTRY