DeveloperTeam Software Solutions

! ......./- Documentos NFH Genericos / Uso Interno [Mult. lineas] -/

EPAbrirG.TipoDocumento = 0
!===========================================
! Abrir DNFGUI
EPAbrirG:Ext0a1 = 0 ! Rollo
EPAbrirG:ImprimeDocumentoGenerico = 1 ! 0 = Generico / 1 = Uso Interno
EPAbrirG:ImprimeEncabezados = 0 ! 0 = Imprime / 1 = No Imprime
SendRequest(AbrirDocumento,EPAbrirG)
DebugGetAnswer()
!===========================================
! Carga Multiples lineas
CLEAR(EPDNFGVariasLineasG)
EPDNFGVariasLineasG.LineaTexto[01] = 'Línea de texto 01'
EPDNFGVariasLineasG.LineaTexto[02] = 'Línea de texto 02'
EPDNFGVariasLineasG.LineaTexto[08] = 'Línea de texto 08'
EPDNFGVariasLineasG.LineaTexto[17] = 'Línea de texto 17'
EPDNFGVariasLineasG.LineaTexto[23] = 'Línea de texto 23'
SendRequest(ImprimirVariasLineas,EPDNFGVariasLineasG)
DebugGetAnswer()
!===========================================
! Informar Cerrar y cortar papel
EPDNFHCerrarG.CortarPapel = 1

SendRequest(CerrarDocumento,EPDNFGVariasLineasG)
DebugGetAnswer()

SendRequest(ErrorMessage)
LOC:ErrorMessage = DebugGetAnswer()

SendRequest(StatusFiscalMessage)
LOC:StatusFiscalMessage = DebugGetAnswer()

SendRequest(PrinterFiscalMessage)
LOC:PrinterFiscalMessage = DebugGetAnswer()

Usando Clase

Respuesta=FiscalE.Informacion(83,InformacionContadores)

Usando Spooler

SendRequest(Informacion,'83,InformacionContadores')
Respuesta=DebugGetAnswer()

Si tiene una impresora recién comprada, deberá cargarles los datos de encabezado y otros, para poder hacer que funcione en modo testing.

Para una mejor distribución del producto, Ud. deberá dentro del archivo AJEFiscal.INI tener la siguiente información:
[EPSON]
USER=Nombre
SERIAL=SerialAsignado

!=== Ésta función sólo se puede ejecutar en modo Fiscal===

CLEAR(EPDupDocG)
EPDupDocG.TipoDocumento = L:TipoDeDocumento
EPDupDocG.NumeroDocumento = L:NroDeDocumento
SendRequest(EmitirDuplicado,EPDupDocG)

ShowGetAnswer()

! ......./- Nota de Debito-/........

EPAbrirG.TipoDocumento=116
EPAbrirG.FCNDD = 1

FiscalE.AbrirDocumento(EPAbrirG) ! Clase

SendRequest(AbrirDocumento,EPAbrirG) !Spooler

! ......./- Reporte por Zetas F.8010 -/

Spooler
!===========================================
CLEAR(EPDZetaG)
EPDZetaG.Ext1a2 = '0000' ! Descarga cinta testigo digital. (CTD)
EPDZetaG.ZInicial = L:ZDsd
EPDZetaG.ZFinal = L:ZHst
SendRequest(DescargarReportezeta,EPDZetaG)

ShowGetAnswer()

! ......./- Reporte por Fechas F.8010 -/

Spooler
Formato Fecha DDMMAA

CLEAR(EPAFechaG)
EPAFechaG.Ext1a2 = '0000' ! Descarga cinta testigo digital. (CTD)
EPAFechaG.FechaInicial = L:ZDsd
EPAFechaG.FechaFinal = L:ZHst
SendRequest(DescargarReporteFecha,EPAFechaG)


ShowGetAnswer()

IF FiscalE.ErrorCode <> 0
MESSAGE(CLIP(L:Comando)&'Estado: '&CLIP(FiscalE.ErrorMessage))
END
IF FiscalE.StatusFiscalCode <> 0
MESSAGE(Clip(L:Comando)&'Estado Fiscal: '&CLIP(FiscalE.StatusFiscalMessage))
END
IF FiscalE.PrinterFiscalCode <> 0
MESSAGE(Clip(L:Comando)&'Estado Impresora: '&CLIP(FiscalE.PrinterFiscalMessage))
END

CLEAR(EPItemDescuentoG)
EPItemDescuentoG.Ext0a1 = 0
EPItemDescuentoG.Descripcion ='Prueba'
EPItemDescuentoG.MontoDescuentoAjuste = 100
EPItemDescuentoG.CodigoInterno = 'CodInterno'

SendRequest(ImprimirDescuento,EPItemDescuentoG)
DebugGetAnswer()