[tulio]

Hola Compañeros


les comentos que de un sistema de facturación manejo un impresor fiscal HASAR 330F , y el problema que tengo es que en los comprobantes FACTURA B , no me imprime los datos del cliente, e probado todo tipo de combinaciones y solo me muestra en la factura la leyenda CONSUMIDOR FINAL, y no me salen el nombre,documento y domicilio del cliente.

Por favor si alguien me puede pegar la parte del codigo delphi que imprime en un impresor hasar las facturas B se lo agradezco mucho

Les muestro el codigo delphi donde imprimo las facturas A y facturas B


SAludos !!!!!!!

Código Delphi [-]
 
 If tipo='A' then ////FACTURA A
   begin
    hasar1.Finalizar;
    hasar1.Puerto:=1;
    hasar1.Modelo:=2;
    hasar1.Comenzar;
    hasar1.TratarDeCancelarTodo;
    fs:=chr(28);
    hasar1.PrecioBase:=true;
    nombre:=copy(trim(tablas.t_ClientesRAZON_SOCial.AsString),1,29);
    numdoc:=trim(tablas.t_Clientesnro_CUIt.AsString);
    domi:=copy(trim(tablas.t_ClientesDOMI_comer.AsString),1,29);
    Comando:='b'+FS+nombre+FS+numdoc+FS+'I'+FS+'C'+FS+Domi;
    hasar1.Enviar(comando);
    hasar1.AbrirComprobanteFiscal(65);  ////65=ticket factura A

    tablas.t_Items_faC.First;
    while not tablas.t_Items_faC.Eof do
     begin
      descri:=trim(tablas.t_Items_faCDESCR_ARti.AsString);
      cant:=tablas.t_Items_faCCANTIDAD.Asfloat;
      monto:=Fvarios.redondear((tablas.t_Items_faCImporte.AsFloat/tablas.t_Items_faCCANTIDAD.Asfloat),2) ;
      iva:=21;
      impint:=0;
      hasar1.ImprimirItem(descri,cant,monto,iva,impint);
      tablas.t_Items_faC.next;
     End;
    imprime:=true;
    hasar1.Subtotal(imprime);
    If PAGO='EFECTIVO' then
      hasar1.ImprimirPago('Contado',neto)
    else
      hasar1.ImprimirPago('Cuenta Corriente',neto);
    hasar1.CerrarComprobanteFiscal;
    hasar1.Finalizar;
   end
  Else ////COMIENZA LA FACTURA B
   begin
   hasar1.Finalizar;
   hasar1.Puerto:=1;
   hasar1.Comenzar;
   hasar1.TratarDeCancelarTodo;
   hasar1.PrecioBase:=false;
   tc:=TICKET_FACTURA_B;
   nombre:=copy(trim(tablas.t_ClientesRAZON_SOCial.AsString),1,29);
   numdoc:=trim(tablas.t_Clientesnro_CUIt.AsString);
   domi:=copy(trim(tablas.t_ClientesDOMI_comer.AsString),1,29);
   Comando:='b'+FS+nombre+FS+numdoc+FS+'C'+FS+'C'+FS+Domi;
   hasar1.Enviar(comando);

   hasar1.AbrirComprobanteFiscal(TICKET_FACTURA_B);

    tablas.t_Items_faC.First;
    while not tablas.t_Items_faC.Eof do
     begin
      descri:=trim(tablas.t_Items_faCDESCR_ARti.AsString);
      cant:=tablas.t_Items_faCCANTIDAD.Asfloat;
      monto:=Fvarios.redondear(tablas.t_Items_faCImporte.AsFloat/tablas.t_Items_faCCANTIDAD.Asfloat,2);
      iva:=21;
      impint:=0;
      hasar1.ImprimirItem(descri,cant,monto,iva,impint);
      tablas.t_Items_faC.next;
     End;
    imprime:=true;
    hasar1.Subtotal(imprime);

    If PAGO='EFECTIVO' then
      hasar1.ImprimirPago('Contado',neto)
    else
      hasar1.ImprimirPago('JCTA',neto);

    hasar1.CerrarComprobanteFiscal;
    hasar1.Finalizar;
   End;
 End