Notas de crédito A y B Hasar SMH/P330

[LuisRios]

Buen día,

Me pueden colaborar con una imagen de como la impresora hasar 330 imprime una nota debito, cuales serían los comandos para que al generar la nota débito haga los ajustes en la memoria de la impresora.

Gracias

[santiago14]

Hola.
No pude conseguir una foto de como sería una Nota de Débito puesto que mis clientes no están muy cerca como para ir a sacarles una foto, jajaja, Y de hecho, no deben hacer una ND todos los días.
En cuanto a los comandos y todo eso, están en la siguiente dirección:

http://www.clubdelphi.com/foros/showthread.php?t=82989

[mattaldi]

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.

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');