hola a todos
tengo el siguiente problema:
Estoy haciendo una aplicasion de medicina donde nececito imprimir una receta medica el problema
es que tengo una tabla llama Tindicacion (que es la receta) contiene: El medico, la fecha y el
paciente. Otra del detalle Tdetalle_ind donde se guardan los medicamentos. Todo se hace muy Bien
pero para el reporte tengo un boton con el siguiente codigo.
Código Delphi
[-]
procedure TFreceta.BitBtn8Click(Sender: TObject);
var
rep: string;
begin
Data.Tindicaciones.edit;
Data.Tindicaciones.post;
rep:=DBEdit2.Text; //uso esta variable para saver el codigo de la indicacion (receta) (odtengo el
//codigo del ultimo registro para imprimirlo de esta forma
//para imprimir uso este codigo para pasarselo al reporte que esta en el form llamado form1
Form1.ADOQuery1.close;
Form1.ADOQuery1.SQL.Text:='select * from Indicaciones WHERE Cod_ind Like'+Quotedstr('%'+rep+'%');
Form1.ADOQuery1.open;
Form1.Tdetalle.Active:=true;
Form1.Tmedicamento.Active:=true;
Form1.QuickRep1.Preview;
Data.Tindicaciones.insert;
Data.Tpaciente.insert;
Data.Tmedico.insert;
Data.Tindicaciones.edit;
DBText1.caption:=datetostr(DateTimePicker1.Date);
DBGrid1.Enabled:=false;
end;
El problema es que en el reporte avece en el detalle sale mal osea sale como un selec * ó
no sale el detalle (los medicamentos).
pero si es un registro ya guardado sale todo bien (un registro que se guardo y luego se busco y
se le dio al reporte de nuevo.
En el reporte tengo:
ADOQuery1 (El del codigo de arriva): es el maestro todo sale bien con el
ADOTable1 (Tdetalle_ind): Es la de detalle esta conectado con el QuickRep1 y solo sale bien si
estavan guardado los datos.
Todo esta bajo Ado
Como corrijo que el detalle sarga siempre bien
luego suvo un pequeño ejemplo del problema