Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-06-2005
Avatar de noe
noe noe is offline
Miembro
 
Registrado: dic 2003
Ubicación: Mexico
Posts: 111
Poder: 21
noe Va por buen camino
Unhappy

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
Responder Con Cita
  #2  
Antiguo 27-06-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
Código Delphi [-]
Query1.SQL.Add('Where (Alumnos.Matricula=Cobranza.Matricula 
and (Alumnos.Status="ACTIVO") AND (Alumnos.UltSem>'+Atraso);

utilizé atraso como una variable a la que le das el valor de tu campo atraso... tambien podrías cambiar la parte del SELECT para que lo selecciones junto con los otros campos.... ¿en que tablas tienes guardado el campo atraso?
__________________


Última edición por ContraVeneno fecha: 27-06-2005 a las 19:46:21.
Responder Con Cita
  #3  
Antiguo 27-06-2005
Avatar de noe
noe noe is offline
Miembro
 
Registrado: dic 2003
Ubicación: Mexico
Posts: 111
Poder: 21
noe Va por buen camino
gracias por responder en realidad el campo atraso no esta guardado en ninguna tabla, puesto que es un campo calculado, es decir solo esta en mi unico query que tengo pero como campo calculado, pero este campo llamado atraso no pertenese a ninguna tabla.

Gracias
Responder Con Cita
  #4  
Antiguo 27-06-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
a una variable global dale el valor de tu campo calculado y luego la utilizas como te menciono...
en teoría debe funcionar...
__________________

Responder Con Cita
  #5  
Antiguo 28-06-2005
Avatar de noe
noe noe is offline
Miembro
 
Registrado: dic 2003
Ubicación: Mexico
Posts: 111
Poder: 21
noe Va por buen camino
y en que evento y como le paso esos valores
Responder Con Cita
  #6  
Antiguo 28-06-2005
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.738
Poder: 23
ContraVeneno Va por buen camino
en lugar de que declares tu variable atraso en el evento Query1CalcFields
declarala global y lixto.
__________________

Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 19:56:35.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi