Me podrian colaborar con este problema .
tengo undbedit q me trae el codigo de una descripcion (Dieta), al buscar los datos me los trae bien.
El dbedit lo tengo en el frame_OrdenesMedicas1, Cuando muestro el frame en el frm_consultabasica me trae los datos ok pero si lo muestro en otro formulario no me muestra los datos.
Que debo hacer para mostrarlos cuando los grabo????
delphi
procedure TFrameOrdenesMedicas1.sbBuscarDietaClick(Sender: TObject); Var Id: Integer; begin fdm.T_Historia.Close; fdm.T_Historia.Open; id := BuscarIb(fdm.t_Historia.Transaction,'TBL_DIETA','CODIGO','DESCRIPCION','ID'); if Not(Fdm.t_Historia.State in [dsEdit, dsInsert]) then Fdm.t_Historia.Edit; if id > 0 then begin Fdm.Dieta := Id; end; EditDieta.Clear; end;
///////////Para abrir la historia
delphi
Procedure TFrameOrdenesMedicas1.AbrirHistoria; var parametro:integer; Begin //cuando no es pyp entra al formulario consultabasica si es pyp enta a laos demas formularios if NoPyP then begin Fdm.T_Historia.Close; Fdm.T_Historia.ParamByName('id_historia').AsInteger := HistoriaLocal; Fdm.T_Historia.Open; end else begin fdm.T_OtrasOrdenes.Close; fdm.T_OtrasOrdenes.ParamByName('ID_AGENDA').AsInteger:=AgendaLocal; fdm.T_OtrasOrdenes.Open; end; End;