unit concentra;

interface
uses DBTables;

procedure concentrar(TablaConcentrar:TTable;rango1,rango2,campodeorden:String;concentrar1,concentrar2,concentrar3,concentrar4,concentrar5,concentrar6,concentrar7,concentrar8:Real);
implementation

procedure concentrar(TablaConcentrar:TTable;rango1,rango2,campodeorden:string;concentrar1,concentrar2,concentrar3,concentrar4,concentrar5,concentrar6,concentrar7,concentrar8:Real);
type
registros=record
orden:String[100];
c1,c2,c3,c4,c5,c6,c7,c8:Real;
end;
var
arch:File of registros;
dato:registros;

begin
AssignFile(arch,'c:\proyecto\tempo\concen.tmp');
ReWrite(arch);

TablaConcentrar.SetRange([rango1],[rango2]);
TablaConcentrar.First;

while not TablaConcentrar.Eof do
begin
dato.orden:=TablaConcentrar.FieldByName(campodeorden).AsString;
if concentra1<>'' then
dato.c1:=TablaConcentrar.FieldByName(concentra1).AsFloat;
if concentra2<>'' then
dato.c2:=TablaConcentrar.FieldByName(concentra2).AsFloat;
if concentra3<>'' then
dato.c3:=TablaConcentrar.FieldByName(concentra3).AsFloat;
if concentra4<>'' then
dato.c4:=TablaConcentrar.FieldByName(concentra4).AsFloat;
if concentra5<>'' then
dato.c5:=TablaConcentrar.FieldByName(concentra5).AsFloat;
if concentra6<>'' then
dato.c6:=TablaConcentrar.FieldByName(concentra6).AsFloat;
if concentra7<>'' then
dato.c7:=TablaConcentrar.FieldByName(concentra7).AsFloat;
if concentra8<>'' then
dato.c8:=TablaConcentrar.FieldByName(concentra8).AsFloat;

end;

end;


end.