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 26-05-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
O no entiendo o no veo dónde está el problema.

Los valores de Atraso y Adeudo corresponden a dos sencillas fórmulas:

Atraso = SemanaComparacion - UltSem
Adeudo = Colegiatura*Atraso

donde SemanaComparacion es un valor fijo que introduces en el Edit.

Estas mismas fórmulas son las que debes poner en el evento OnCalcFields:

Código Delphi [-]
var
  SemanaComparacion: Integer;
  Atraso: Integer;
  Colegiatura: Integer;

begin
  SemanaComparacion := StrToInt(Edit1.Text);
  Atraso := SemanaComparacion - DataSet.FieldByName('UltSem').AsInteger;
  Colegiatura := DataSet.FieldByName('Colegiatura').AsInteger;

  DataSet.FieldByName('Atraso').AsInteger := Atraso;
  DataSet.FieldByName('Adeudo').AsInteger := Colegiatura*Atraso;
end;

// Saludos
Responder Con Cita
  #2  
Antiguo 26-05-2005
Avatar de noe
noe noe is offline
Miembro
 
Registrado: dic 2003
Ubicación: Mexico
Posts: 111
Poder: 21
noe Va por buen camino
Thumbs up Muchas gracias Paisano

Gracias Roman, no cabe duda creo que me estaba empezando a confundir y no encontraba la respuesta, solo agrege 2 campos mas llamados atraso y adeudo como calculados en mi query y ya.

Siempre nos ayudas a todos.

Te estoy muy agradecido.
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 00:14:59.


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