Muchas gracias a todos...
Una pregunta más.. tienen idea si para desarrollar un sistema que imprima
una factura en una impresora fiscal es necesario algún comprobante de la
AFIP, algo con lo que el cliente esté seguro que no va a tener ningún
problema legal causado por el sistema??, hay que seguir algún
procedimiento?? o solo usar las funciones que dice el manual de la
impresora??
Bueno, nuevamente gracias,
Beto.
El día 9/03/07, Gastón Dorigo <[EMAIL PROTECTED]> escribió:
*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 <[EMAIL PROTECTED]>
*To:* vbusers List Member <[email protected]>
*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.
>
