1 respuesta en este tema

[FELIX]

saludos.

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;

 

[FELIX]

olvidaba mencionar cuando entra al formulario frm_consultabasica se conecta a la tabla tbl_historia, los demas entran a la  tbl_otrasordenes

/////tbl_historia

SELECT
HISTORIA.ID,
HISTORIA.FECHA,
HISTORIA.ID_MEDICO,
HISTORIA.ID_CABGRUPOHISTORIA,
HISTORIA.ID_PACIENTE,
HISTORIA.ID_CONTRATO,
HISTORIA.EDA_PAC,
HISTORIA.TIP_MED,
HISTORIA.FNC_PAC,
HISTORIA.SEX_PAC,
HISTORIA.IDE_PAC,
HISTORIA.COD_TID,
HISTORIA.AP1_PAC,
HISTORIA.AP2_PAC,
HISTORIA.NM1_PAC,
HISTORIA.NM2_PAC,
HISTORIA.FECHA_REGISTRO,
HISTORIA.LOGIN,
HISTORIA.IDCAB_FAC,
HISTORIA.NRO_HIS,
HISTORIA.ID_ADMISION,
HISTORIA.IMPRESION_DX,
HISTORIA.DIAGNOSTICO,
HISTORIA.ID_GRUPOHISTORIA,
HISTORIA.ID_FORMATO_HC,
HISTORIA.ID_AGENDA,
HISTORIA.NRO_FAC,
HISTORIA.ID_RIPCN,
HISTORIA.ODONTOGRAMA,
HISTORIA.OBSERVACION_ODONTOGRAMA,
HISTORIA.ESTADO_ODONTOGRAMA,
HISTORIA.TIPO_IMPRESIONDX,
HISTORIA.ID_CONDUCTA,
HISTORIA.MOTIVO_EGRESO,
HISTORIA.PRONOSTICO,
HISTORIA.DESTINO,
HISTORIA.DIAGNOSTICO_EGRESO,
HISTORIA.CAUSA_MUERTE,
HISTORIA.ID_CAUSAEXT,
HISTORIA.ID_FINALIDADCX,
HISTORIA.CONSULTA_CERRADA,
HISTORIA.MOTIVO_CONSULTA,
HISTORIA.PADECIMIENTO_ACTUAL,
HISTORIA.TIPO_DIAGNOSTICO,
HISTORIA.ID_CIE_RELACIONADO1,
HISTORIA.ID_CIE_RELACIONADO2,
HISTORIA.ID_CIE_RELACIONADO3,
HISTORIA.ID_MEDICO_CERRO,
HISTORIA.INDICACIONES,
HISTORIA.RECOMENDACIONES,
HISTORIA.CUIDADOS,
HISTORIA.EVOLUCION_HC,
HISTORIA.TIPO_ENCUENTRO,
HISTORIA.NOTA_ODONTOLOGIA,
HISTORIA.ID_PROGRAMA,
HISTORIA.ID_CLAP,
HISTORIA.ID_PADREHISTORIA,
HISTORIA.ID_DIETA,
HISTORIA.ID_UND_FUNCIONAL,
HISTORIA.ID_ADMISION_SGTO,
HISTORIA.CERRADO,
HISTORIA.ATENCION_TEMPORAL,
HISTORIA.FECHA_CIERRE_CONSULTA,
HISTORIA.TRASLADO,
HISTORIA.ID_DESTINO_3047,
HISTORIA.ID_ESTADO_SALIDA,
HISTORIA.ID_MEDICO_SALIDA,
HISTORIA.TSUPERFICIES_TENIDAS,
HISTORIA.TSUPERFICIES_PRESENTES,
HISTORIA.INDICE_PLACA
FROM
HISTORIA
WHERE
  (HISTORIA.ID = :Id_Historia) 

/////////////tbl_otrasordenes

select
TBL_OTRAS_ORDENES.id,
TBL_OTRAS_ORDENES.FECHA_OTRA_INDICACION,
TBL_OTRAS_ORDENES.ID_ADMISION,
TBL_OTRAS_ORDENES.ID_HISTORIA,
TBL_OTRAS_ORDENES.INDICACION,
TBL_OTRAS_ORDENES.ID_MEDICO,
TBL_OTRAS_ORDENES.ID_AGENDA,
TBL_OTRAS_ORDENES.CUIDADOS,
TBL_OTRAS_ORDENES.RECOMENDACIONES,
TBL_OTRAS_ORDENES.INDICACIONES,
TBL_OTRAS_ORDENES.DIETA
from
TBL_OTRAS_ORDENES
WHERE
  (TBL_OTRAS_ORDENES.ID_AGENDA = :Id_agend