Código Delphi [-]with dm.qpagar do begin active:=false; sql.Clear; sql.Add('SELECT sum(subtotal) as total from ventaActual '); active:=true; editTotal.Text:=dm.qApagar.Fields[0].AsString;
with dm.qpagar do begin active:=false; sql.Clear; sql.Add('SELECT sum(subtotal) as total from ventaActual '); active:=true; editTotal.Text:=dm.qApagar.Fields[0].AsString;