Hola, te paso una copia de un modelo que tengo funcionando, tal vez no sea
el optimo pero funciona
- Apenas abro el formulario ejecuto este sub para chequear el estado de la
impresora
Private Sub ImpresoraFiscal()
HASAR1.Puerto = General.PuertoFiscal
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
- Este es el codigo que utilizo para imprimir el remito
Private Sub ImprimeRemito()
On Error GoTo impresora_apag
Procesar:
determino las copias
HASAR1.ConfigurarControlador COPIAS_DOCUMENTOS, 0
analizo la categoría de IVA del cliente y le paso los valores del
encabezado
Select Case Datos_Cliente.IVA
Case "RI"
HASAR1.DatosCliente Datos_Cliente.RazonSocial, Datos_Cliente.CUIT,
TIPO_CUIT, RESPONSABLE_INSCRIPTO, Datos_Cliente.Domicilio & " " &
Datos_Cliente.Localidad
Case "RNI"
HASAR1.DatosCliente Datos_Cliente.RazonSocial, Datos_Cliente.CUIT,
TIPO_CUIT, RESPONSABLE_NO_INSCRIPTO, Datos_Cliente.Domicilio & " " &
Datos_Cliente.Localidad
Case "RMO"
HASAR1.DatosCliente Datos_Cliente.RazonSocial, Datos_Cliente.CUIT,
TIPO_CUIT, MONOTRIBUTO, Datos_Cliente.Domicilio & " " &
Datos_Cliente.Localidad
Case "EXE"
HASAR1.DatosCliente Datos_Cliente.RazonSocial, Datos_Cliente.CUIT,
TIPO_CUIT, RESPONSABLE_EXENTO, Datos_Cliente.Domicilio & " " &
Datos_Cliente.Localidad
Case "CFI"
HASAR1.DatosCliente Datos_Cliente.RazonSocial, "00000000000",
TIPO_DNI, CONSUMIDOR_FINAL, Datos_Cliente.Domicilio & " " &
Datos_Cliente.Localidad
Case "RIL"
HASAR1.DatosCliente Datos_Cliente.RazonSocial, Datos_Cliente.CUIT,
TIPO_CUIT, RESPONSABLE_INSCRIPTO, Datos_Cliente.Domicilio & " " &
Datos_Cliente.Localidad
End Select
abro un remito
HASAR1.AbrirComprobanteNoFiscalHomologado Remito, lblRemito.Caption
imprimo los ítems del remito (recorro el flexgrid)
For Indice = 1 To gridArticulos.Rows - 1
With gridArticulos
HASAR1.ImprimirItemEnRemito .TextMatrix(Indice, 0), .TextMatrix(Indice,
1)
End With
Next Indice
verifico si hay datos adicionales
If Datos_Remito.Otros <> "X" Then
HASAR1.ImprimirItemEnRemito Datos_Remito.Otros, 1
End If
verifico si se especifica el transporte
If Datos_Remito.TransporteDescripcion <> "X" Then
HASAR1.ImprimirItemEnRemito "Transporte : " &
Datos_Remito.TransporteDescripcion, 1
HASAR1.ImprimirItemEnRemito Datos_Remito.TransporteDomicilio, 1
End If
verifico si se consigna el costo de la mercadería
If Val(Datos_Remito.Costo) <> 0 Then
HASAR1.ImprimirItemEnRemito "Valor de la Mercaderia :" &
Datos_Remito.Costo, 1
End If
verifico se se especifican la cantidad de bultos
If Val(Datos_Remito.Bultos) > 0 Then
HASAR1.ImprimirItemEnRemito "Bultos", Datos_Remito.Bultos
End If
verifico si se especifica el pago del envío
If Datos_Remito.FleteSeguro <> "X" Then
HASAR1.ImprimirItemEnRemito "Flete y seguro pago en " &
Datos_Remito.FleteSeguro, 1
End If
cierro el comprobante
HASAR1.CerrarComprobanteNoFiscalHomologado
Exit Sub
impresora_apag:
If MsgBox("Error Impresora:" & Err.Description, vbRetryCancel, "Errores") =
vbRetry Then
Resume Procesar
End If
End Sub
Espero que te sea util
_____
De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de Lic. Monica
Prager
Enviado el: Martes, 20 de Marzo de 2007 14:28
Para: vbusers List Member
Asunto: [vbusers] Impresion de Remitos en Impresora Fiscal Hasar
Hola , alguien tiene un ejemplo de impresión de remitos en una Hasar 300 F.
No hay ejemplos en la pagina de hasar y me esta dando un error después de
imprimir el remito.
Gracias
Monica
__________ Información de NOD32, revisión 2129 (20070320) __________
Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.14/727 - Release Date: 19/03/2007
11:49
