Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-05-2018
mattaldi mattaldi is offline
Miembro
 
Registrado: may 2007
Posts: 22
Poder: 0
mattaldi Va por buen camino
Thumbs up NC en Hasar 441

He probado parte de este codigo en una Hasar 441F.
Uso delphi 7 y los tickets A y B los imprime bien con el comando AbrirComprobanteFiscal.
Estoy intentando crear notas de crédito, me da el siguiente error:
'Función no soportada en versión de controlador fiscal seleccionada (Abrir DNFH)'.
¿alguien tubo este problema?, no encontré nada googleando.

Código:
Hasar1.Modelo:= MODELO_P441;
Hasar1.Puerto := 3;
Hasar1.Baudios:= 9600;
Hasar1.Comenzar;
Hasar1.TratarDeCancelarTodo();
fs:=#28;
comprobante_original:=ECompAsoc.Text;
comando:=#147 + fs + '1' + fs + comprobante_original;
Hasar1.Enviar(comando);
// DocumentoDeReferencia[1]:=ECompAsoc.Text;
if (condicioniva_cliente = 'RESPONSABLE INSCRIPTO') then
    begin//a
    Hasar1.DatosCliente (ENombreCliente.Text, SacarGuiones(cuit_cliente), TIPO_CUIT,RESPONSABLE_INSCRIPTO, direccion_cliente);
    Hasar1.AbrirDNFH(NOTA_CREDITO_A);
    Hasar1.PrecioBase:=False;
    end;//a
if (condicioniva_cliente='MONOTRIBUTISTA') or (condicioniva_cliente='EXCENTO') or (condicioniva_cliente = 'CONSUMIDOR FINAL') then
    begin//a
    if (condicioniva_cliente='MONOTRIBUTISTA') then
       Hasar1.DatosCliente (ENombreCliente.Text, SacarGuiones(cuit_cliente), TIPO_CUIT, MONOTRIBUTO, direccion_cliente);
    if (condicioniva_cliente='EXCENTO') then
       Hasar1.DatosCliente (ENombreCliente.Text, SacarGuiones(cuit_cliente), TIPO_CUIT, RESPONSABLE_EXENTO, direccion_cliente);
    if (condicioniva_cliente='CONSUMIDOR FINAL') then
       Hasar1.DatosCliente (ENombreCliente.Text, SacarGuiones(cuit_cliente), TIPO_CUIT, CONSUMIDOR_FINAL, direccion_cliente);
    Hasar1.AbrirDNFH(NOTA_CREDITO_B);
    Hasar1.PrecioBase:=False;
    end;//a
Hasar1.ImprimirItem (EDescripcionNC.Text,1,StrtoFloat(EImporteNC.Text),21,0);
Hasar1.Subtotal (True);
Hasar1.ImprimirPago ('Cuenta Corriente', StrToFloat(EImporteNC.Text));
Hasar1.CerrarDNFH;
Hasar1.Finalizar;
showMessage('Nota de Crédito impresa y guardada');

Última edición por mattaldi fecha: 09-05-2018 a las 16:22:15.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Cierres X y Z en fiscal Hasar SMH/P330 santiago14 Impresión 2 14-04-2019 23:10:11
Notas de débito A y B fiscal Hasar SMH/P330 santiago14 Impresión 0 30-04-2013 18:10:22
Facturas A y B en impresora fiscal Hasar SMH/P330 santiago14 Varios 1 30-04-2013 14:14:02
Nota de Credito con HASAR 320F diegolf Conexión con bases de datos 9 28-02-2008 18:10:39
Notas de Credito Paradiso Varios 10 01-07-2006 03:35:03


La franja horaria es GMT +2. Ahora son las 23:12:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi