[jhonny]

Pues asi, a simple vista, pruebalo asi y nos cuentas:

Código Delphi [-]
 
while not ibtable.Eof do 
begin
Ibquery.Sql.Clear;
consulta:='select , sum(cuen01.importe) as abono
              from
cuen01 inner join conc01 on cuen01.tipo_mov=conc01.num_cpto
where conc01.tipo=''A'' and conc01.con_refer <> ''N''
and cuen01.no_factura=:document';
 
Ibquery.Sql.Add(consulta);
Ibquery.Close;
Ibquery.ParamByName('document').AsString:=Ibtable.FieldValue['cve_doc'];
Ibquery.Open;
misaldo:=IBquery.FieldValues['abonos'];
IBtable.Next;
end;