Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   algunos items no se imprimen en hasar 330 (https://www.clubdelphi.com/foros/showthread.php?t=40996)

pborges36 05-03-2007 17:10:07

algunos items no se imprimen en hasar 330
 
Holas. Estoy programando en D6 y utilizo el ocx de hasar.Mi problema es el sig: tengo un procedimiento al cual llamo para imprimir la factura en una impresora Hasar 330. el procedimiento es mas o menos asi.

Código Delphi [-]
procedure TImpresoraFiscal.ImprimeFiscal;
begin
//Abrir Puerto
   hasar1.Modelo:=8;
   hasar1.Puerto:=1;
   
   hasar1.ConfigurarControlador(REIMPRESION_CANCELADOS,'false');
   hasar1.ConfigurarControlador(IMPRESION_LEYENDAS,'true');
   hasar1.PrecioBase:=true;
   hasar1.DatosCliente(nombre,numdoc,TIPO_CUIT,RESPONSABLE_INSCRIPTO,domi);
   hasar1.AbrirComprobanteFiscal(FACTURA_A);
   if not hasar1.HuboErrorFiscal then
     begin
         //Grabar Items del comprobante
         Query1.First;
         while not Query1.Eof do
             begin
                 descri:=Query1.FieldByName('descri').AsString;
                 cant:=Query1.FieldByName('cant').AsFloat;
                 monto:=Query1.FieldByName('monto').AsFloat;
                 iva:=Query1.FieldByName('iva').AsFloat;
                 impint:=Query1.FieldByName('impint').AsFloat;
                 hasar1.ImprimirItem(descri,cant,monto,iva,impint);
                 if hasar1.HuboErrorFiscal then
                   MessageDlg('error en: '+descri+' '+floattostr(cant)+' '+floattostr(monto)+' '+floattostr(iva), mtWarning, [mbOK], 0);
                 Query1.Next;
             end;
      //Grabar SubTotal
         hasar1.Subtotal(true);
         hasar1.EspecificarPercepcionGlobal('Percepcion Ingr. Brutos',ingrbrut);
         hasar1.ImprimirPago(condicionventa,total);
         hasar1.CerrarComprobanteFiscal;
         facturanumero:=inttostr(strtoint(hasar1.Respuesta[3]));
     end
   else
     begin
         MessageDlg('Verifique los Datos del Cliente', mtError, [mbOK], 0);

     end;
      //Cerrar Puerto
   hasar1.Finalizar;
end;

la cuestion es que, muy aleatoriamente, no siempre, algunos items de la factura que ya tengo guardada en la base de datos no los imprime. Tampoco me da ningun mensaje de error. Ademas despues de imprimir la factura se imprime el remito con un procedimiento similar y en ese caso siempre salen bien. Creo que puede ser algun problema de velocidad del puerto serie, pero no estoy muy seguro y tampoco se como podria verificar eso.
Si alguien pudiera guiarme un poco estaria muy agradecido. Saludos

lledesma 01-07-2013 16:23:17

Tu problema radica en q la fiscal tiene un limite por defecto en $1000. Debes subir este limite para q imprima todos los articulos


La franja horaria es GMT +2. Ahora son las 13:27:54.

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