Consulta con muchos if

cloayza · #1 06-04-2023

Estimado colega, le propongo esta alternativa

Código Delphi [-]   
   {Esta función se encarga de habilitar el boton y la opacidad}
   procedure EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
   begin
        boton.Enable:=AEnable;
    if Boton.Enable then
       Boton.Opacity := 1
    else
       Boton.Opacity := 0.3;
   end;
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
     EnableButton(TMSFMXToolBarButton5, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'TRATAMIENTO') );
               
     EnableButton(TMSFMXToolBarButton6, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'EXAMEN'));
               
     EnableButton(TMSFMXToolBarButton13, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'LABORATORIO'));
     
     EnableButton(TMSFMXToolBarButton17, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'FICHA MEDICA'));
 
        DataModule1.UniQueryConsultaDOC.Next; 
   end;
end;

Saludos y buena fortuna

giantonti1801 · #2 07-04-2023

Cita:

Empezado por cloayza

Estimado colega, le propongo esta alternativa

Código Delphi [-]   
   {Esta función se encarga de habilitar el boton y la opacidad}
   procedure EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
   begin
        boton.Enable:=AEnable;
    if Boton.Enable then
       Boton.Opacity := 1
    else
       Boton.Opacity := 0.3;
   end;
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
     EnableButton(TMSFMXToolBarButton5, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'TRATAMIENTO') );
               
     EnableButton(TMSFMXToolBarButton6, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'EXAMEN'));
               
     EnableButton(TMSFMXToolBarButton13, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'LABORATORIO'));
     
     EnableButton(TMSFMXToolBarButton17, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'FICHA MEDICA'));
 
        DataModule1.UniQueryConsultaDOC.Next; 
   end;
end;

Saludos y buena fortuna

gracias amigo pero donde coloco esta funcion ya que puedo ver que debo crear un proceso para eso o lo puedo colocar en el evento onClickCeld?

cloayza · #3 07-04-2023

Veamos...
Supongamos que tu formulario es TForm1.

Código Delphi [-] 
type
  TForm1 = class(TForm)
  ....
  private
  public
    ...
    procedure xxxx;
    procedure EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
 End;

{Esta función se encarga de habilitar el boton y la opacidad}
//Declarara en la sección public...

procedure TForm1.EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
begin
        boton.Enable:=AEnable;
    if Boton.Enable then
       Boton.Opacity := 1
    else
       Boton.Opacity := 0.3;
end;

procedure TForm1.xxxx
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
     EnableButton(TMSFMXToolBarButton5, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'TRATAMIENTO') );
               
     EnableButton(TMSFMXToolBarButton6, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'EXAMEN'));
               
     EnableButton(TMSFMXToolBarButton13, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'LABORATORIO'));
     
     EnableButton(TMSFMXToolBarButton17, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'FICHA MEDICA'));
 
        DataModule1.UniQueryConsultaDOC.Next; 
   end;
end;

Espero que ahora este claro.

Saludos cordiales

giantonti1801 · #4 07-04-2023

Cita:

Empezado por cloayza

Veamos...
Supongamos que tu formulario es TForm1.

Código Delphi [-] 
type
  TForm1 = class(TForm)
  ....
  private
  public
    ...
    procedure xxxx;
    procedure EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
 End;

{Esta función se encarga de habilitar el boton y la opacidad}
//Declarara en la sección public...

procedure TForm1.EnableButton(boton:TMSFMXToolBarButton; AEnable:Boolean);
begin
        boton.Enable:=AEnable;
    if Boton.Enable then
       Boton.Opacity := 1
    else
       Boton.Opacity := 0.3;
end;

procedure TForm1.xxxx
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
     EnableButton(TMSFMXToolBarButton5, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'TRATAMIENTO') );
               
     EnableButton(TMSFMXToolBarButton6, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'EXAMEN'));
               
     EnableButton(TMSFMXToolBarButton13, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'LABORATORIO'));
     
     EnableButton(TMSFMXToolBarButton17, SameText(DataModule1.UniQueryConsultaDOCTIPODOCUMENTO.AsString,'FICHA MEDICA'));
 
        DataModule1.UniQueryConsultaDOC.Next; 
   end;
end;

Espero que ahora este claro.

Saludos cordiales

Gracias amigo funciona perfecto la funcion de habilitar los bottones pero aun sigue sucediendo igual que solo me muestra un resultado, es decir solo se habilita un solo botton.
Verifique tabla
Verifique las condiciones
hice la consulta en labla en sql
coloque en el where los valores manueales
incluso coloque un

Código Delphi [-]ShowMessage(DataModule1.UniQueryConsultaDOC.RecordCount.ToString);

para verificar que en efecto encontrara la misma cantidad de registro y perfectamente conicide.
Tambien le coloque un

Código Delphi [-]DataModule1.UniQueryConsultaDOC.First;

para obligarlo a irse al primer registro y tampoco con eso me funciona
Al parecer no está respetando el NEXT, es decir haga como haga la consulta solo se habilita un solo boton.
lo hice con while tambien lo hice con el for y nada

giantonti1801 · #5 07-04-2023

La solucion temporal que encontre es la siguiente funciona perfecto pero como podra imaginarse la consulta se vuelve muy lenta :

Código Delphi [-]procedure TFormReportes.StringGrid1CellClick(const Column: TColumn;
  const Row: Integer);
 var
 Filtro :string;
 i:integer;
 begin
 DataModule1.UniQueryConsultaDOC.Close;
  DataModule1.UniQueryConsultaDOC.sql.Clear;
  DataModule1.UniQueryConsultaDOC.sql.Add('select REGFICHA, TIPODOCUMENTO,REGPAC, INSTRUT from fichadoc');
  DataModule1.UniQueryConsultaDOC.SQL.Add('where instrut = :INSTRUT and REGFICHA = :REGFICHA and regpac =:regpac and TIPODOCUMENTO =:TIPODOCUMENTO');
  DataModule1.UniQueryConsultaDOC.ParamByName('INSTRUT').AsString := datamodule1.InstRut;
  DataModule1.UniQueryConsultaDOC.ParamByName('REGFICHA').AsString := Label1.text;
  DataModule1.UniQueryConsultaDOC.ParamByName('REGPAC').AsString := Label2.text;
  DataModule1.UniQueryConsultaDOC.ParamByName('TIPODOCUMENTO').AsString := 'TRATAMIENTO';
  DataModule1.UniQueryConsultaDOC.open;
  if not DataModule1.UniQueryConsultaDOC.eof then
  begin
      TMSFMXToolBarButton5.Enabled := true;
      TMSFMXToolBarButton5.Opacity := 1;
    end
    else
    begin
      TMSFMXToolBarButton5.Enabled := False;
      TMSFMXToolBarButton5.Opacity := 0.3;
    end;
    begin
     DataModule1.UniQueryConsultaDOC.Close;
      DataModule1.UniQueryConsultaDOC.sql.Clear;
      DataModule1.UniQueryConsultaDOC.sql.Add('select REGFICHA, TIPODOCUMENTO,REGPAC, INSTRUT from fichadoc');
      DataModule1.UniQueryConsultaDOC.SQL.Add('where instrut = :INSTRUT and REGFICHA = :REGFICHA and regpac =:regpac and TIPODOCUMENTO =:TIPODOCUMENTO');
      DataModule1.UniQueryConsultaDOC.ParamByName('INSTRUT').AsString := datamodule1.InstRut;
      DataModule1.UniQueryConsultaDOC.ParamByName('REGFICHA').AsString := Label1.text;
      DataModule1.UniQueryConsultaDOC.ParamByName('REGPAC').AsString := Label2.text;
      DataModule1.UniQueryConsultaDOC.ParamByName('TIPODOCUMENTO').AsString := 'LABORATORIO';
      DataModule1.UniQueryConsultaDOC.open;
      if not DataModule1.UniQueryConsultaDOC.eof then
      begin
          TMSFMXToolBarButton13.Enabled := true;
          TMSFMXToolBarButton13.Opacity := 1;
        end
        else
        begin
          TMSFMXToolBarButton13.Enabled := False;
          TMSFMXToolBarButton13.Opacity := 0.3;
        end;
     end;
    begin
     DataModule1.UniQueryConsultaDOC.Close;
      DataModule1.UniQueryConsultaDOC.sql.Clear;
      DataModule1.UniQueryConsultaDOC.sql.Add('select REGFICHA, TIPODOCUMENTO,REGPAC, INSTRUT from fichadoc');
      DataModule1.UniQueryConsultaDOC.SQL.Add('where instrut = :INSTRUT and REGFICHA = :REGFICHA and regpac =:regpac and TIPODOCUMENTO =:TIPODOCUMENTO');
      DataModule1.UniQueryConsultaDOC.ParamByName('INSTRUT').AsString := datamodule1.InstRut;
      DataModule1.UniQueryConsultaDOC.ParamByName('REGFICHA').AsString := Label1.text;
      DataModule1.UniQueryConsultaDOC.ParamByName('REGPAC').AsString := Label2.text;
      DataModule1.UniQueryConsultaDOC.ParamByName('TIPODOCUMENTO').AsString := 'EXAMEN';
      DataModule1.UniQueryConsultaDOC.open;
      if not DataModule1.UniQueryConsultaDOC.eof then
      begin
          TMSFMXToolBarButton6.Enabled := true;
          TMSFMXToolBarButton6.Opacity := 1;
        end
        else
        begin
          TMSFMXToolBarButton6.Enabled := False;
          TMSFMXToolBarButton6.Opacity := 0.3;
        end;
     end;
     begin
     DataModule1.UniQueryConsultaDOC.Close;
      DataModule1.UniQueryConsultaDOC.sql.Clear;
      DataModule1.UniQueryConsultaDOC.sql.Add('select REGFICHA, TIPODOCUMENTO,REGPAC, INSTRUT from fichadoc');
      DataModule1.UniQueryConsultaDOC.SQL.Add('where instrut = :INSTRUT and REGFICHA = :REGFICHA and regpac =:regpac and TIPODOCUMENTO =:TIPODOCUMENTO');
      DataModule1.UniQueryConsultaDOC.ParamByName('INSTRUT').AsString := datamodule1.InstRut;
      DataModule1.UniQueryConsultaDOC.ParamByName('REGFICHA').AsString := Label1.text;
      DataModule1.UniQueryConsultaDOC.ParamByName('REGPAC').AsString := Label2.text;
      DataModule1.UniQueryConsultaDOC.ParamByName('TIPODOCUMENTO').AsString := 'FICHA MEDICA';
      DataModule1.UniQueryConsultaDOC.open;
      if not DataModule1.UniQueryConsultaDOC.eof then
      begin
          TMSFMXToolBarButton17.Enabled := true;
          TMSFMXToolBarButton17.Opacity := 1;
        end
        else
        begin
          TMSFMXToolBarButton17.Enabled := False;
          TMSFMXToolBarButton17.Opacity := 0.3;
        end;
     end;

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Mostrar en un DBGRID Relacion Muchos Muchos	dmassive	SQL	6	12-02-2009 18:55:19
Guardar muchos muchos Tedit	el-mono	OOP	4	30-09-2008 06:40:33
Problemas con generadores en relacion Muchos-a-Muchos	Hagen	Firebird e Interbase	3	30-10-2006 16:47:51
Consulta en SQL con muchos parámetros	Aprendiendo	SQL	5	05-04-2005 22:30:13
Consulta SQl, relacion 1 a muchos	Walter	SQL	3	15-07-2003 03:13:28