Ver Mensaje Individual
  #1  
Antiguo 06-08-2007
knife_sj knife_sj is offline
Miembro
 
Registrado: feb 2005
Posts: 18
Reputación: 0
knife_sj Va por buen camino
Hasar Ocx - Adodb - Error

Bueno, mi problema consiste en lo siguiente
ayer implemente en mi programa de facturacion la opcion de poder imprimir con controlador fiscal, antes se imprimia solamente con RaveReport... desde q implemente este sistema pasa lo siguiente:

ANTES de usar el controlador fiscal las consultas andan todas perfectas, el programa corre normalmente

pero DESPUES de hacer una factura e imprimirla por el controlador TODAS las consultas me dan el siguiente error cuando intento abrirlas:
Código:
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
ya sean consultas elaboradas como por ejemplo

Código:
'SELECT   Articulos.id, Articulos.CodigoBarra, Articulos.descr, rubros.rubro, proveedores.nombre, Articulos.costo, Articulos.porcentaje, Articulos.presentacion,'+#13+#10+
'         Articulos.descarga, Articulos.stock, Articulos.colchon'+#13+#10+
'FROM     Articulos INNER JOIN'+#13+#10+
'                rubros ON Articulos.rubro = rubros.id INNER JOIN'+#13+#10+
'                proveedores ON Articulos.proveedor = proveedores.id'+#13+#10+
'WHERE    (Articulos.descr LIKE '''+keyword.text+'%'') OR (Articulos.CodigoBarra = '''+keyword.Text+''')'+#13+#10+
'ORDER BY Articulos.descr'
o consultas tan sencillas como

Código:
SELECT * FROM Articulos
en un momento llegue a pensar q era mi MS - SQL Server... pero antes de hacer nada hice una prueba

como el programa tiene una opcion para seleccionar que tipo de impresora vamos a usar (fiscal o comun y corriente) hice una factura con la impresora comun y corriente.. luego hice una consulta de precios, consulte facturas anteriores, pedi un inventario por pantalla... en resumen hice varias consultas y el programa andaba perfecto...

realmente no se que puedo llegar a estar haciendo mal con el tema del controlador, pero les adjunto el codigo para que lo revisen por favor

Código:
        
if (tipo_impresora = 0) then //si es impresora comun
            Form1.RvProject1.ExecuteReport('Ticket')
else
begin

   with HASAR1 do
   begin
        Puerto := 1;
        Transporte := PUERTO_SERIE;
        PrecioBase := False;
        Modelo := modelo_fiscal;
        DescripcionesLargas := True;
        Reintentos := 3;
        TiempoDeEspera := 2000;
   end;

   HASAR1.Comenzar;
   HASAR1.TratarDeCancelarTodo;
   HASAR1.AbrirComprobanteFiscal(TICKET_C);
 
   while not Rep_Detalle.Eof do
   begin

     HASAR1.ImprimirItem(
           Rep_Detalle.FieldValues['descr'],
           Rep_Detalle.FieldValues['CANT'],
           Rep_Detalle.FieldValues['PRECIO'],
            21, 0);

    Rep_Detalle.Next;

  end;

  HASAR1.ImprimirPago('Efectivo', StrToFloat(subtotal.Caption));
  HASAR1.CerrarComprobanteFiscal;
  HASAR1.Finalizar;

end;
Responder Con Cita