Función SUM Pasarlo a un componente

[maravert]

Buenos días, estoy tratando de obtener la suma de un campo llamado Importe y pasar el resultado a un Label,
pero me dice que mi variable no existe.

Mi código es el siguiente

Código Delphi [-]
procedure TfrmAdminColeg.Button3Click(Sender: TObject);
var
  TotalImporte, Total: Double;
begin
  DM.CuentasPorCobrar.SQL.Clear;
  DM.CuentasPorCobrar.SQL.Add('SELECT SUM(importe) AS Total FROM CuentasPorCobrar');
  DM.CuentasPorCobrar.Open;
  if not DM.CuentasPorCobrar.FieldByName('Total').IsNull then
  begin
    TotalImporte := DM.CuentasPorCobrar.FieldByName('Total').AsFloat;
    Label4.Caption := FormatFloat('0.00', TotalImporte); // Formatear a dos decimales
  end
  else
  begin
    Label4.Caption := '0.00';
  end;
  DM.CuentasPorCobrar.Close;
end;

Me da el siguiente error

[Casimiro Notevi]

Prueba con:

Código Delphi [-]
DM.CuentasPorCobrar.Fields[0].asFloat

[maravert]

Muchas gracias por tu respuesta, hice las modificaciones así.

Código Delphi [-]
 TotalImporte := DM.CuentasPorCobrar.Fields[0].Value;

Pero me regresa el valor de 1

[Casimiro Notevi]

Pues sumará 1, ¿no?
En eso no podemos ayudar sin más información y datos de ejemplo.

[maravert]

Gracias por contestar, tengo una tabla con la siguiente estructura

Código SQL [-]
CREATE TABLE `CuentasPorCobrar` (
  `idColegiatura` int NOT NULL,
  `idGpo` int DEFAULT NULL,
  `idAlumno` int NOT NULL,
  `CuentasPorCobrarMaestro` int NOT NULL,
  `DiasTolerancia` int NOT NULL,
  `Referencia` int NOT NULL,
  `NumeroCargo` int NOT NULL,
  `Importe` decimal(10,2) NOT NULL,
  `FechaAplicacion` datetime NOT NULL,
  `FechaVencimiento` datetime NOT NULL,
  `Usuario` int NOT NULL,
  `Semestre` smallint DEFAULT NULL
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_general_ci;

y lo que necesito es obtener el total del campo importe y pasarlo a un Label

Gracias, muy agradecido

[Casimiro Notevi]

Si abres el phpmyadmin, o el que uses, y tecleas:

Código SQL [-]
SELECT SUM(importe) FROM CuentasPorCobrar

¿Qué te devuelve?