Error in site JavaScript
Productos
Template Controlador Fiscal 2G Epson
Historial de Versiones
:
Date
13/06/2018
Version
1.2 y 1.74
Se agregaron los siguientes métodos:
-SetEncabezado(EPEncabezadoG)
-GetEncabezado()
-GetFiscalizacion()
-GetSerializacion()
-AbrirCajon()
-AuditoriaFecha(EPAFechaG)
-AuditoriaZeta(EPAZetaG)
Date
26/04/2018
Version
1.1
-Para la versión de Spooler se deberá cambiar en la tabla Request el campo template por CSTRING 100
Date
26/04/2018
Version
1.1
-Se cambió la instalación en AccesoryDeveloperteam
Date
26/04/2018
Version
1.1
Se agregaron los siguientes métodos:
DescargarReportezeta PROCEDURE(*GROUP pReporteZeta),STRING
DescargarReporteFecha PROCEDURE(*GROUP pReporteFecha),STRING
InformacionMemoria PROCEDURE(),STRING
Date
09/08/2018
Version
1.4 - 1.76
Se corrigieron los siguientes métodos:
-GetEstablecimiento(EPEstaG)
-SetEstablecimiento(EPEstaG)
Date
02/08/2018
Version
1.3 y 1.75
Se agregaron los siguientes métodos:
-ObtenerID()
-InformacionEquipo()
-InformacionCertificados()
-ObtenerEstado()
-GetEstablecimiento(EPEstaG)
-SetEstablecimiento(EPEstaG)
-EmitirDuplicado(EPDupDocG)
-Se agrego dentro del método Informacion la propiedad InformacionJornadaEnCurso
-Se corrigió un desplazamiento de datos en InformacionEnCurso
:
Tips & FAQ
:
Imprimir Generico No Fiscal Multilineas
! ......./- 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()
Ejemplo Solicitar Infomracion Usando Clase y Spooler
Usando Clase

Respuesta=FiscalE.Informacion(83,InformacionContadores)

Usando Spooler

SendRequest(Informacion,'83,InformacionContadores')
Respuesta=DebugGetAnswer()
Impresora Nueva
Si tiene una impresora recién comprada, deberá cargarles los datos de encabezado y otros, para poder hacer que funcione en modo testing.
Ingreso en Modo Demostración
Para una mejor distribución del producto, Ud. deberá dentro del archivo AJEFiscal.INI tener la siguiente información:
[EPSON]
USER=Nombre
SERIAL=SerialAsignado
Ejemplo Descargar CDT por 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()
Ejemplo Descuentos através del Spooler
CLEAR(EPItemDescuentoG)
EPItemDescuentoG.Ext0a1 = 0
EPItemDescuentoG.Descripcion ='Prueba'
EPItemDescuentoG.MontoDescuentoAjuste = 100
EPItemDescuentoG.CodigoInterno = 'CodInterno'

SendRequest(ImprimirDescuento,EPItemDescuentoG)
DebugGetAnswer()
Error en Puerto=10
En caso de obtener éste error por favor, compruebe el cable de conexión o utilice otro medio, por ejemplo con un conversor de puerto serie.
Ejemplo Remito
! ......./- Remito -/........

! 91 Remito R
! 901 Remito X
! 902 Recibo X
! 903 Presupuesto X
! 907 Donación

EPAbrirG.TipoDocumento = 91

CASE CLIP(GLO:Modo)
OF 'Spooler'
MESSAGE('Remito x Spooler')
!===========================================
! Abrir Remito
SendRequest(AbrirDocumento,EPAbrirG)
DebugGetAnswer()
!===========================================
! Carga y envio de datos del Cliente
CLEAR(EPDatosG)
EPDatosG.NombreLinea01 = 'Nombre del Ciente: SPOOLER'
EPDatosG.DomicilioLinea01 = 'Domicilio del Cliente'
EPDatosG.DocumentoTipo = 'T' ! Cuit
EPDatosG.DocumentoNumero = '20000000001'
EPDatosG.IvaResponsable = 'I' ! Responsable Inscripto
EPDatosG.DocumentoAsociado01 = '081-00001-00000013'
EPDatosG.TransportistaBeneficiarioRazonSocial01 = 'Los Pepes'
EPDatosG.TransportistaBeneficiarioDomicilio01 = 'Magnolia 331'
EPDatosG.TransportistaBeneficiarioDocumentoTipo = 'T'
EPDatosG.TransportistaBeneficiarioDocumentoNumero = '20000000001'
EPDatosG.TransportistaBeneficiarioIvaResponsable = 'I'
! EPDatosG.ChoferNombre01 = 'Jose'
! EPDatosG.ChoferDocumentoTipo = 'D'
! EPDatosG.ChoferDocumentoNumero = '123456789'
! EPDatosG.ChoferDominio01 = 'JPG169'

SendRequest(CargarDatosCliente,EPDatosG)
DebugGetAnswer()
!===========================================
! Carga y envio de datos del Item
CLEAR(EPDNFHItemsG)
EPDNFHItemsG.DescripcionItem = 'Descripcion del Item'
EPDNFHItemsG.Cantidad = 3 * 10000
EPDNFHItemsG.PrecioUnitario = 1.0000 * 10000
EPDNFHItemsG.TasaIva = 21.00 * 100
EPDNFHItemsG.CodigoInterno = 'CodigoInterno'
EPDNFHItemsG.ImpuestosInternosFijos = 0
EPDNFHItemsG.CodigoUnidadMedida = 01
EPDNFHItemsG.CodigoCondicionFrentealIVA = 7
EPDNFHItemsG.MontoDelItemEnPalabras = 'Bla bla bla'

EPItemG.Ext0a3 = 0 ! Item de venta
EPItemG.Ext6a7 = 0 ! Contabiliza Item de venta igual a Cantidad
! EPItemG.MontosNetosBrutos = 0

SendRequest(ImprimirItem,EPDNFHItemsG)
DebugGetAnswer()
!===========================================
! Informar Cerrar Tique y cortar papel
EPDNFHCerrarG.CortarPapel = 1
EPDNFHCerrarG.LienasParaFirma = 3

SendRequest(CerrarDocumento,EPDNFHCerrarG)
DebugGetAnswer()
: