en mi sistema tengo un sub que me permite verificar el estado de la impresora y
cancelar los documentos que a veces quedan en la memoria de la misma por no
haber recibido la orden CerrarComprobanteFiscal.
Además te sugiero que tengas especial cuidado con ciertos caracteres como las
ñ, ', etc. También con números de CUIT erróneos.
Private Sub ImpresoraFiscal()
HASAR1.Puerto = General.PuertoFiscal 'función que lee en un archivo .ini el
puerto donde esta conectada
HASAR1.Modelo = MODELO_P320
HASAR1.Comenzar
On Error GoTo impresora_apag
Procesar:
HASAR1.TratarDeCancelarTodo
Exit Sub
impresora_apag:
If MsgBox("Error Impresora:" & Err.Description, vbRetryCancel, "Errores") =
vbRetry Then
Resume Procesar
End If
End Sub
----- Original Message -----
From: Beto Carranza
To: vbusers List Member
Sent: Friday, March 09, 2007 3:05 PM
Subject: [vbusers] Impresora fiscal
Mónica y Alejandro,
Muchísimas gracias a los dos, la semana que viene voy a empezar con el módulo
de facturación y veré que dudas van surgiendo..
Muchas gracias nuevamente..
Beto.
El día 9/03/07, Alejandro A ALEKSICH <[EMAIL PROTECTED]> escribió:
mmmm, que yo sepa no se alquilan ya que teoricamente cuando se entrega al
cliente la impresora se lo hacen inicializadas, o sea lo que imprimas queda en
la memora del controlador y debe ser declarado a la AFIP, pero podrías imprimir
FAC por centavos y luego hacer su correspondiente N de Crédito.
Respecto al código, decinos que necesitas y si podemos te ayudamos. He
hecho algo, así que alguna punta quizá pueda darte.
Para Comenzar:
HASAR1.Puerto = nPuerto '1 o 2 depende del Nº del puerto serial al
que conectaste el contolador
HASAR1.Modelo = FiscalPrinterLibCtl.ModelosDeImpresoras.MODELO_P320
'8 'MODELO_P320
HASAR1.Comenzar
HASAR1.PrecioBase = False ' indica que los precios unitarios ya son $
fianles, la impresora no deber realizar ningún cálculo por renglón.
HASAR1.DatosCliente Trim(tCliente), Trim(tNDocumento), tTDocumento,
tCondicion, Trim(tDireccion)
If Trim(tLetra) = "A" Then
HASAR1.AbrirComprobanteFiscal
FiscalPrinterLibCtl.DocumentosFiscales.FACTURA_A
Else
HASAR1.AbrirComprobanteFiscal
FiscalPrinterLibCtl.DocumentosFiscales.FACTURA_B
End If
tRespuesta = HASAR1.Respuesta(3) 'Me devuelve el Nº de comprobante
asignado por el Controlador Fiscal
'Esto podría estar dentro de un For-Next o Do While por cada renglón de
la FAC
HASAR1.ImprimirItem tDescripcion, nCantiVendida, nPrecioUnitario,
nPorceAlicuota, nImpuestoInterno
'Esto lo mismo que lo anterior solo q ingresalos valores de pago
utilizados
HASAR1.ImprimirPago tCuentaValor, tImporte
HASAR1.CerrarComprobanteFiscal
Alejandro.-
----------------------------------------------------------------------------
De: Beto Carranza [mailto:[EMAIL PROTECTED]
Enviado el: Viernes, 09 de Marzo de 2007 09:24
Para: vbusers List Member
Asunto: [vbusers] Impresora fiscal
Hola,
Estoy por empezar un sistema que requiere la emisión de una factura a
través de una impresora HASAR SMH/ P-330F. Quería saber si alguien tiene algún
documento que explique las cosas a tener en cuenta antes de programar un
sistema de facturación, ya que es la primera vez que lo hago y no tengo mucha
noción de las normas legales a seguir. Solo tengo la información de la
impresora y un ejemplo de VB que me pude bajar de la página de Hasar.
Por otro lado, tienen idea si estas impresoras se alquilan para programar
sistemas o algo así??,
Espero me puedan ayudar...
Les agradezco de antemano,
Beto.
