Consulta con muchos if

[pgranados]

Empezado por Neftali [Germán.Estévez]

Yo creo que es esto.
En tu código sólo estás realizando los cambios sobre el registro actual (que debería ser el primero), pero en ningún momento estás haciendo un recorrido por todos los registros de un cliente.

Una vez hecho el Active, que ejecuta la consulta o abre la tabla, debería haber algo así:

Código Delphi [-]
// Activar el dataset (se posiciona en el primero)
DataModule1.UniQueryFichaDoc.Active := true; 
// mientras haya registros en el dataset...
while not DataModule1.UniQueryFichaDoc.eof do begin

  // hacer lo que sea con el regiustro activo...
  ... 
  // siguiente registro
  DataModule1.UniQueryFichaDoc.Next;
end;

OFFTopic:

Maestro, usted que todo lo sabe.

¿Por qué mucha gente prefiere utilizar un while en lugar de un For?

Saludos.

[Neftali [Germán.Estévez]]

Empezado por pgranados

Maestro, usted que todo lo sabe.

Ni mucho menos, me queda muuuuucho por aprender...

Empezado por pgranados

¿Por qué mucha gente prefiere utilizar un while en lugar de un For?

WHILE cuando no sabes el número de elementos a procesar, pero puedes evaluar una condición.
FOR cuando sabes de antemano el número de elementos a procesar.

Es cierto que donde puedes usar un FOR, también puedes usar un WHILE (llevando tú el contador), pero no al contrario.

Y luego supongo que están las preferencias, manías, costumbres de cada uno...

[Casimiro Noteví]

Empezado por pgranados

Maestro, usted que todo lo sabe.

Realmente, [Neftali] es el nombre del bot de la I.A. de clubdelphi, puedes preguntarle lo que quieras porque siempre te dará una respuesta automática y funcional

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

Realmente, [Neftali] es el nombre del bot de la I.A. de clubdelphi, puedes preguntarle lo que quieras porque siempre te dará una respuesta automática y funcional

Me he reído mucho...

[Neftali [Germán.Estévez]]

En estos casos el error o la solución suele ser un detalle muy tonto sobre el que no hemos caído.

Te recomiendo que crees un pequeño proyecto con esa porción de código donde se reproduce el problema y para los datos uses un TClientDataset y grabes los datos en un fichero. De esa forma cualquiera puede probarlo y reproducir el error y el comportamiento que tienes.

Lo subes y lo revisamos. Seguro que encontramos la lógica e incluso te podemos dar algún consejo de mejora.

[aposi]

El problema en el for lo tienes en que desactivas los botones en cada paso del for




Por ejemplo e un registro que no es TRATAMIENTO desactivas el boton5, aunque en el registro anterior lo actives.
Lo que puedes hacer es desactivar todos los botones fuera del for y una vez dentro activar los botones

Código Delphi [-]
TMSFMXToolBarButton5.Enabled := False;
 TMSFMXToolBarButton5.Opacity := 0.3;
TMSFMXToolBarButton6.Enabled := False;
 TMSFMXToolBarButton6.Opacity := 0.3;

TMSFMXToolBarButton13.Enabled := False;
 TMSFMXToolBarButton13.Opacity := 0.3;

TMSFMXToolBarButton17.Enabled := False;
TMSFMXToolBarButton17.Opacity := 0.3;
for i:= 0 to DataModule1.UniQueryConsultaDOC.RecordCount-1 do   begin
     if DataModule1.UniQueryConsultaDOC.FieldByName('TIPODOCUMENTO').value = 'TRATAMIENTO' then
     begin
       TMSFMXToolBarButton5.Enabled := true;
       TMSFMXToolBarButton5.Opacity := 1;
     end;
     if DataModule1.UniQueryConsultaDOC.FieldByName('TIPODOCUMENTO').value = 'EXAMEN' then
     begin
       TMSFMXToolBarButton6.Enabled := true;
       TMSFMXToolBarButton6.Opacity := 1;
     end;
     if DataModule1.UniQueryConsultaDOC.FieldByName('TIPODOCUMENTO').value = 'LABORATORIO' then
     begin
       TMSFMXToolBarButton13.Enabled := true;
       TMSFMXToolBarButton13.Opacity := 1;
     end;
           if DataModule1.UniQueryConsultaDOC.FieldByName('TIPODOCUMENTO').value = 'FICHA MEDICA' then
     begin
       TMSFMXToolBarButton17.Enabled := true;
       TMSFMXToolBarButton17.Opacity := 1;
     end;
    DataModule1.UniQueryConsultaDOC.Next;
   end;