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;