lo volvi a crear distinto y me hace los mismo este es el codigo:
corregido ya funciona este codigo
Código Delphi
[-]
procedure TForm2.Button4Click(Sender: TObject);
var
I,nr: Integer;
begin
query2.DatabaseName := 'Report1';
query2.SQL.Clear;
consult := 'Select distinct (ctlpol) as num_reg, cclie, status, tipo_mov, no_factura, docto, refer, importe, '+
'fecha_apli, fecha_venc, cob, afec_coi, obs_cxccxp, bank_com, strcvevend, num_moned, '+
'tcambio, impmon_ext, cconrefer, fechaelab, usuario, ctlpol, cvefolio ' +
' from BdOld\cuen04 '+
'union '+
'Select (ctlpol) as num_reg, cclie, status, tipo_mov, no_factura, docto, refer, importe, '+
'fecha_apli, fecha_venc, cob, afec_coi, obs_cxccxp, bank_com, strcvevend, num_moned, '+
'tcambio, impmon_ext, cconrefer, fechaelab, usuario, ctlpol, cvefolio ' +
'from cuen04 order by fecha_apli desc ' ;
query2.SQL.Add(consult);
query2.Active := true;
label1.Caption :='Total Reg.: '+ inttostr(query2.RecordCount);
table2.DatabaseName := 'Report1';
table2.TableName := 'CONSULTA2';
g1.MinValue := 0;
g1.MaxValue := query2.RecordCount;
SHOWMESSAGE ('NO. REG.: '+inttostr(query2.RecordCount));
table2.Open;
nr:=query2.RecordCount;
while not query2.Eof do
begin
table2.append;
for I := 0 to query2.fields.Count - 1 do
begin
table2.FieldByName('num_reg').AsInteger:=nr;
table2.Fields[i].Value := query2.Fields[i].Value;
end;
table2.insert;
query2.Next;
g1.Progress := query2.RecNo;
nr:=nr-1;
end;
table2.Close;
query2.Close;
showmessage ('Listo proceso terminado con exito ');
end;
quiza si estoy cometiendo un error y no me doy cuenta