¡¡¡Listooooo!!! Resuelto con la mayor sencillez del mundo. Tan bloqueado estaba que no recordé cómo se levantan los datos...
Código Delphi [-] sFiltro := '(E_EVAD_MASTER_DATE = '+IntToStr(aRegistroAdverso[ADVERSO_MASTER_FECHA_MAESTRA])+') '+
'AND (E_EVAD_MASTER_TIME = '+IntToStr(aRegistroAdverso[ADVERSO_MASTER_HORA_MAESTRA])+') '+
'AND (E2_CTRL_PAC = '+QuotedStr(Trim(aRegistroAdverso[ADVERSO_MASTER_CTRL_PAC]))+')';
with TADOTable.Create(Self) do
begin
Connection := DataSys.ADOConnHipo;
TableName := 'E_EVAD_OBSERVACIONES';
TableDirect := False;
Filter := sFiltro;
Filtered := True;
Open;
if RecordCount = 1 then
begin
redtObservaciones8H.Text := Desencriptar(FieldByName('EEVAD_OBSERVACIONES_8H').AsString);
redtObservaciones16H.Text := Desencriptar(FieldByName('EEVAD_OBSERVACIONES_16H').AsString);
redtObservaciones24H.Text := Desencriptar(FieldByName('EEVAD_OBSERVACIONES_24H').AsString);
end;
Free;
end;
¡Gracias, Casimiro! Necesitaba alguien que me bombardeara con ideas para generar más ideas...
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...
"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.
Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
|