Mi codigo es el siguiente( este codigo esta en un boton)
Código:
procedure TFrm_ConsultaAtrasos.BitBtn1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.Horario, Alumnos.status, Alumnos.Nombreprof, Alumnos.Colegiatura, Alumnos.UltSem, sum(Cobranza.Buenopor)as TotalPagado');
Query1.SQL.Add('FROM cobranza, Alumnos');
Query1.SQL.Add('Where (Alumnos.Matricula=Cobranza.Matricula) and (Alumnos.Status="ACTIVO")');
Query1.SQL.Add('Group by Alumnos.matricula, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre, Alumnos.horario, Alumnos.status, Alumnos.nombreprof, Alumnos.colegiatura, Alumnos.UltSem');
Query1.SQL.Add('Order by Alumnos.NombreProf, Alumnos.Horario, Alumnos.ApPat, Alumnos.ApMat, Alumnos.Nombre');
Query1.Open;
end;
y este otro en mi evento onClacFields
Código:
procedure TFrm_ConsultaAtrasos.Query1CalcFields(DataSet: TDataSet);
var
SemanaComparacion: Integer;
Atraso: Integer;
Colegiatura: Integer;
begin
SemanaComparacion := StrToInt(Edt_SemComparacion.Text);
Atraso := SemanaComparacion - Query1.FieldByName('UltSem').AsInteger;
Colegiatura := Query1.FieldByName('Colegiatura').AsInteger;
Query1.FieldByName('Atraso').AsInteger:= Atraso;
Query1.FieldByName('Adeudo').AsInteger := Colegiatura*Atraso;
end;
Eso es todo
A ver si asi me pueden ayudar, lo que quiero solamente es que se muestren en la consulta solo los que deban de 3 a mas semanas de colegiatura
Gracias