begin
DataModule1.UniQueryConsultaDOC.Close;
DataModule1.UniQueryConsultaDOC.sql.Clear;
DataModule1.UniQueryConsultaDOC.sql.Add('select REGPAC, TIPODOCUMENTO,REGFICHA, INSTRUT, FICPAC from fichadoc');
DataModule1.UniQueryConsultaDOC.SQL.Add('where instrut = :INSTRUT and REGFICHA = :REGFICHA');
DataModule1.UniQueryConsultaDOC.ParamByName('INSTRUT').AsString := datamodule1.InstRut;
DataModule1.UniQueryConsultaDOC.ParamByName('REGFICHA').AsString := Label1.text;
DataModule1.UniQueryConsultaDOC.open;
while not DataModule1.UniQueryConsultaDOC.eof do
begin
if DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString = 'TRATAMIENTO' then
begin
TMSFMXToolBarButton5.Enabled := true;
TMSFMXToolBarButton5.Opacity := 1;
end
else
begin
TMSFMXToolBarButton5.Enabled := False;
TMSFMXToolBarButton5.Opacity := 0.3;
end;
if DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString = 'EXAMEN' then
begin
TMSFMXToolBarButton6.Enabled := true;
TMSFMXToolBarButton6.Opacity := 1;
end
else
begin
TMSFMXToolBarButton6.Enabled := False;
TMSFMXToolBarButton6.Opacity := 0.3;
end;
if DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString = 'LABORATORIO' then
begin
TMSFMXToolBarButton13.Enabled := true;
TMSFMXToolBarButton13.Opacity := 1;
end
else
begin
TMSFMXToolBarButton13.Enabled := False;
TMSFMXToolBarButton13.Opacity := 0.3;
end;
if DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString = 'FICHA MEDICA' then
begin
TMSFMXToolBarButton17.Enabled := true;
TMSFMXToolBarButton17.Opacity := 1;
end
else
begin
TMSFMXToolBarButton17.Enabled := False;
TMSFMXToolBarButton17.Opacity := 0.3;
end;
DataModule1.UniQueryConsultaDOC.Next;
end;