while anidado para leer una tabla

[gri]

Hola definitivamente no nos copiamos, son sistemas de diferentes cosas el mio es de un sistema para controlar materiales alimenticios que se usan en un comedor de mi escuela, se necesitan hacer pedidos de todo lo que se necesita cocinar, los pedidos son semanales por proveedor, y para hacer pedidos se necesita saber que ingredientes llevan las comidas y tambien depende del menu semanal de comidas, pero no solo eso debo de hacer la lista de ingredientes por dia.

Pero todo ya lo hace mi sistema y solo me faltaba la parte de hacer los pedidos, una vez teniendo mi pedido semanal, lo de los proveedores lo voy hacer con consulta.

Y el de sergio es de un hospital en la parte del almacen, todos los empleados llevan su solicitud mensual de lo que necesitan y el almacenista surte cada mes, pero como almacenista tambien tiene que hacer sus pedidos dependiendo de todo lo que los empleados pidieron.

[Aleca]

disculpen pero....
Codigo 1

Código Delphi [-]
var
a, b, c, d, e, f:String;
cant: Integer;
begin
{si lo q se captura ya esta guardado en pedido no debe hacer nada}
if (Table1.Locate('FechaE', Edit1.Text, [])) then
begin
ShowMessage('Ya existe el pedido de esa fecha');
end
else
{si lo q se captura no se ha pedido}
begin
ShowMessage('espera unos segundos');
   Table2.First;
   table2.Edit;
  While Not Table2.Eof do
  begin
    Cant:=0;
    Table2.Edit;
    DataSource2.DataSet.Edit;
    begin
    a:=Table2.FieldValues['FechaMenu'];
    b:=Table2.FieldValues['Dia'];
    c:=Table2.FieldValues['Nombre'];
    d:=Table2.FieldValues['Cantidad'];
    e:=Table2.FieldValues['Unidad'];
    f:=Table2.FieldValues['Clasificacion'];
    table2.First;
    LABEL6.Caption:=a+c;
    while Not table2.Eof  do
    begin
    showmessage('segundo while');
    DataSource2.DataSet.Edit;
      if (a=Table2.FieldValues['FechaMenu'])and (c=Table2.FieldValues['Nombre']) then
      begin
      showmessage('probando en el if');
      cant:= cant + Table2.FieldValues['Cantidad'];
      end;
      Table2.Next;
    end; {fin del while 2}
    if not(Table1.Locate('Descripcion',c, [])) then
      begin
      table1.Append;
      Table1.Edit;
      Table1.FieldValues['Proveedor']:=f;
      Table1.FieldValues['Descripcion']:=c;
      Table1.FieldValues['Unidad']:=e;
      Table1.FieldValues['CantidadP']:=cant;
      Table1.FieldValues['FechaE']:=a;
      end;
    Table1.Post;
    Table2.Next;
  //end;{fin del if que comprueba lo que tengo en la primera posicion es = a la fecha}
  end; {fin del while}
Table2.Post;
end;{fin del else}
end; {fin del metodo del boton}

Codigo 2

Código Delphi [-]
while Not Table2.Eof do
begin
  Cant:=0;
  Table2.Edit;
    DataSource2.DataSet.Edit;
    a:=Table2.FieldValues['FechaMenu'];
    b:=Table2.FieldValues['Dia'];
    c:=Table2.FieldValues['Nombre'];
    d:=Table2.FieldValues['Cantidad'];
    e:=Table2.FieldValues['Unidad'];
    f:=Table2.FieldValues['Clasificacion'];
    table2.First;//para comparar las variables con cada registro de la tabla
    while Not table2.Eof  do
    begin
    DataSource2.DataSet.Edit;
      if (a=Table2.FieldValues['FechaMenu'])and (c=Table2.FieldValues['Nombre']) then
      begin
      cant:= cant + Table2.FieldValues['Cantidad'];
      end;
      Table2.Edit;
      Table2.Next;
    end; {fin del while 2}

    if not(Table1.Locate('Descripcion',c, [])) then
      begin
      table1.Append;
      Table1.Edit;
      Table2.Edit;
      Table1.FieldValues['Proveedor']:=f;
      Table1.FieldValues['Descripcion']:=c;
      Table1.FieldValues['Unidad']:=e;
      Table1.FieldValues['CantidadP']:=cant;
      Table1.FieldValues['FechaE']:=a;
      //Table2.First;// probando para ver si lo hace 2 veces
      end;
    Table1.Edit;
    Table1.Post;
   Table2.Next;//AKI YA NO PUEDE LLEGAR POR QUE YA LLEGO AL EOF DE MI TABLE 2
  //end;{fin del if que comprueba lo que tengo en la primera posicion es = a la fecha}
 end; {fin del while}

yo los veo demasiado parecido....

[gri]

hola

te recomiendo que lo leas detenidamente para que me entiendas.

si son parecidos por que el primer while(codigo 1) agarra los datos que tengo al entrar y lo pone en variables a, b, c, ... son temporales.(almacenan datos(nombres) que se repiten dentro de toda mi tabla pero sus cantidades son diferentes) entonces necesito sumar sus cantidades.

el segundo while(codigo 2) recorra toda la tabla busca esos datos suma sus cantidades.(ahi termina su funcion del segundo while). sale.

inserta los datos dentro de otra tabla(sino estan insertados).

y debe regresar (recuerda que sali del while(codigo2)) al while(codigo1)....

pero ahi esta el pero, como es la misma tabla el while(codigo2 me deja al final se acabo) y definitivamente no puedo regresar al while1(codigo1).


ese es el problema.

[Aleca]

dos cabezas piensan mas que una, juntate con tu compañero y adapten el codigo que puse mas arriba.
PD: la tabla2 no debe editarse, tenes que tener un solo while.

[gri]

hola despues de todo se soluciono aqui esta:

Código SQL [-]
DBGrid3.Visible:=True;
QUERY1.SQL.Clear;
QUERY1.SQL.Add('Select FechaMenu, Clasificacion, Nombre, sum(Cantidad) as Total,Unidad, Count(*) as NumeroProducto From ingredientesdiarios  where FechaMenu='+QuotedStr(Edit1.Text));
QUERY1.SQL.Add('group by FechaMenu, Clasificacion, Nombre, Unidad');
QUERY1.Active:=True;
QUERY1.Open;

No estaba tan lejos, solo que las veces que lo intentaba hacer no usaba el Group by, y me decia que era necesario.
de todas formas gracias.

una dudita ¿alguien sabe como envio el resultado de una consulta, o lo que tiene un query, a un reporte de report builder?

Saludos