Que tal PAblo
Tienes razón no puse en el primero al query se me fue, pero el problema es que si te fijas en mi codigo el sql tiene parametros y estos se igualan a dos campos pero el problema es que debido a esto solo pasa una vez en al tabla.
Yo tengo dos Campos IDALMACEN y IDCONCEPTO los cuales los necesito sumar y mandarlos a otra tabla pero son varios registros. un ejemplo es
Tenemos el IDALMACEN 2 y el IDCONCEPTO: 1003 y en el siguiente registro tenemos el 2 y el 1003; pero despues tenemos el 3 y el 1002 entonces yo tengo que sumar todos los que sean iguales.
El problema es que no se como hacerlo ya hice un pedazo de codigo pero cuando recorre la tabla me repite algunos registros, te pongo mi codigo para que veas como le he hecho.
Código:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
var1, var2, var3, var4 : integer;
begin
Table2.Open;
while not table2.Eof do
begin
table2.delete;
end;
var3 := 0;
var4 := 0;
Table2.open;
Table1.open;
Table1.First;
while not Table1.Eof do
begin
var1 := Table1CIDALMACEN.AsInteger;
var2 := Table1CIDCONCEPTO.AsInteger;
if (var1 <> var3) or (var2 <> var4) then
begin
Query1.close;
Query1.ParamByName('almacen').AsInteger := Table1CIDALMACEN.AsInteger;
Query1.ParamByName('concepto').AsInteger:= able1CIDCONCEPTO.AsInteger;
Query1.Open;
Table2.Append;
Table2IDALMCONC.AsString := IntToStr (var1) + IntToStr (var2);
Table2CIDALMACEN.AsInteger := Query1CIDALMACEN.AsInteger;
Table2CIDCONCEPTO.AsInteger := Query1CIDCONCEPTO.AsInteger;
Table2CTOTALCOSTO.AsCurrency := Query1total.AsCurrency;
Table2CTOTALUNIDADES.AsInteger := Query1total_unidades.AsInteger;
Table2.Post;
var3 := var1;
var4 := var2;
//Table1.Next;
end;
// else
Table1.Next;
end;
end;
end.
ojala y me pudieran ayudar porque ya me h dado de topes y no he podido, y gracias por tu respuesta tan pronta Pablo.
Saludos.....