Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-03-2007
Avatar de pborges36
pborges36 pborges36 is offline
Miembro
 
Registrado: oct 2004
Ubicación: Argentina
Posts: 192
Poder: 20
pborges36 Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 01-07-2013
lledesma lledesma is offline
Miembro
 
Registrado: abr 2004
Posts: 43
Poder: 0
lledesma Va por buen camino
Tu problema radica en q la fiscal tiene un limite por defecto en $1000. Debes subir este limite para q imprima todos los articulos
__________________
Atentamente
Luis
Responder Con Cita
Respuesta



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
se me imprimen paginas de graficas de mas nidia Impresión 3 13-11-2006 17:06:22
Manual ocx hasar pborges36 Impresión 2 06-11-2006 13:48:03
qrshapes no se imprimen pjjorda Impresión 1 15-05-2006 12:10:38
No se imprimen las imágenes salvanano Impresión 1 29-04-2006 00:01:02
Cuando imprimen en excel o word se pone lento el sistema tulio Varios 0 07-04-2004 14:56:37


La franja horaria es GMT +2. Ahora son las 09:37:46.


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
Copyright 1996-2007 Club Delphi