TQuickRep

[[Caral]]

Hola
En el ejemplo en el boton de imprimir cambia el codigo por este:

Código Delphi [-]
procedure TForm1.Button6Click(Sender: TObject);
begin
  Try
  QuickReport2:=TQuickReport2.Create(self);
  QuickReport2.ADOQuery1.SQL.Text:= 'Select * from Directorio where ID = :A';
  QuickReport2.ADOQuery1.Parameters[0].Value:= Edit4.Text;
  QuickReport2.ADOQuery1.Open;
  QuickReport2.Preview;
  finally
  QuickReport2.Free;
  end;
end;

Saludos

[lisc_dla]

lo mas raro es me marca el error

[Fatal Error] Could not create output file 'C:\Users\DLA\caja prueba 2\pro_caja.exe'

quito el código y me lo sigue marcando, intente eliminar el archivo y no se pudo, reinicio la maquina y ya no marca el error. Creo es delphi intentare reinstalando

[[Caral]]

Hola
El error te pasa cuando ejecutas el EXE o cuando estas en delphi ?.
Saludos

[lisc_dla]

el error ocurre cuando abro el archivo .dpr en delphi y lo intento ejecutar

[lisc_dla]

diras que soy pero tengo otra pregunta hice todos los pasos de el ejemplo [caral] pero el datafield del QRDBText1 me marca el error adoquery1: missing sql propert


(por cierto creo que el error era el antivirus por que lo desinstale y ya no marca error a la hora de ejecutar)

[[Caral]]

Hola
El error que te manda el QRDBText1 es por que el adoquery en la propiedad string esta vacio, colocale el mismo sql que tienes en el form o

Código SQL [-]
select * from tu tabla.

Con eso esta listo.
Saludos

[lisc_dla]

Estaba alegre por que parecía que ya funcionaba lo que quería imprimir, resulta que si doy clic en el botón imprimir y el dbgrid esta vació si me manda hacia el qreport pero si hay datos en el dbgrid me manda el error:

'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'

en la linea:

QuickReport1.ADOQuery1.Parameters[0].Value:= txt_rfc.text;

hasta donde he leido es por conflicto en el tipo de dato, en este caso tengo el campo rfc de tipo varchar, ya estuve intentando pero me sigue marcando error.

[[Caral]]

Hola
Suposiciones:
1- el edit esta vacio.
2- El dato del edit no es el mismo que el de la tabla.
3- No dices ni muestras nada de codigo, solo la parte del parametro.
4- Como podemos adivinar asi ?.
Saludos

[lisc_dla]

primero realizo una búsqueda del dato rfc(es de tipo varchar) en el cuadro de texto txt_rfc(es resultado se visualiza en el dbgrid y el valor buscado queda en el text):

Filtro : String;
begin
AdoTable1.Filtered := False;
AdoTable1.Filtered := False;
Filtro := 'rfc = '+txt_rfc.Text;
AdoTable1.Filter := Filtro;
AdoTable1.Filtered := True;
AdoTable1.Open;


el código para mandar a imprimir:

Try
QuickReport1:=TQuickReport1.Create(self);
QuickReport1.ADOQuery1.SQL.Text:= 'Select * from cliente where frc = :s';
QuickReport1.ADOQuery1.Parameters[0].Value:= txt_rfc.text;
QuickReport1.ADOQuery1.Open;
QuickReport1.Preview;
finally
QuickReport1.Free;

[[Caral]]

Hola
Puede ser tonto pero estas seguro de esto:

Código Delphi [-]
Filtro := 'rfc = '+txt_rfc.Text;

Código Delphi [-]
'Select * from cliente where frc = :s';

Código Delphi [-]
QuickReport1.ADOQuery1.Parameters[0].Value:= txt_rfc.text;

Solo por curiosidad.
Saludos

[lisc_dla]

este error ya lo corregí

'Select * from cliente where frc = :s';
'Select * from cliente where rfc = :s';

pero sigue el mismo error marcando error

[[Caral]]

Hola
Solo para intentarlo:

Código Delphi [-]
Try
 QuickReport1:=TQuickReport1.Create(self);
 QuickReport1.ADOQuery1.SQL.Text:= 'Select * from cliente where frc = :s';
 QuickReport1.ADOQuery1.Parameters[0].Value:= QuotedStr(txt_rfc.text);
 QuickReport1.ADOQuery1.Open;
 QuickReport1.Preview;
 finally
 QuickReport1.Free;

Saludos

[lisc_dla]

mismo error, misma linea

[[Caral]]

Hola
El edit txt_rfc.text contiene un dato cuando presionas el boton de imprimir ?.
Que dato ?.
Saludos

[lisc_dla]

si el txt_rfc contiene el dato de la búsqueda que realice

[[Caral]]

Hola
Si el programa no es muy grande colocalo en un Zip aqui mismo, a ver si veo algo que no este viendo.
Saludos
PD: No lo podre correr, pero tal vez me entere de algo mas.

[lisc_dla]

no lo pude subir aquí(me salio un mensaje con que excede los limites), no se si hice bien pero lo subí en:

http://www.mediafire.com/?24axpowpu13osbp

[lisc_dla]

el formulario que manda a imprimir es:

frm_Cliente-->QuickReport1

[[Caral]]

Hola
Voy a ver si lo puedo abrir.
Saludos

[[Caral]]

Hola
No estan los reportes o no los veo.
Solo lo puedo abrir con notepad, pero me doy una idea.
Saludos