Mira he peusto esto ( no se como se pone para que aparesca el codigo separado en blanco sorry ) .
Código Delphi
[-]
procedure TDataModule2.qryAutorizacionesDESCMANValidate(Sender: TField);
var percaaplicar : real;
sumaimporte, sumaimporte1, sumatotal :extended;
begin
while not qryautorizaciones.Eof do
begin
sumaimporte := sumaimporte + qryautorizacionesAutdto.value;
sumaimporte1 := sumaimporte1 + qryautorizacionesDescMan.value;
qryautorizaciones.next;
end;
sumatotal := sumaimporte + sumaimporte1;
if (sumatotal - qryautorizacionesImporte1.value) > 0 then
raise exception.create('La cantidad autorizada supera la pendiente');
end;