Gerar Aviso Antecipado
Como faço para gerar um aviso antecipado toda vez que o sistema for aberto. Este aviso deverá ser em um label.
EX.: Vencimento 23/10/2003
No dia 13/10/2003 o sistema gerou o aviso:
´título vencendo em 10 dias´.
OBS.:
Utilizo o seguinte código para gerar um aviso, porém preciso saber como fazer para antecipar em 10 dias este aviso.
begin
dm.tbl2.IndexFieldNames:=´DataVenc´;
If dm.tbl2.FindKey([StrToDateTime(Label2.Caption)]) then
begin
Label5.caption:=´Documentos vencendo em 10 dias.´;
end;
Obrigado
EX.: Vencimento 23/10/2003
No dia 13/10/2003 o sistema gerou o aviso:
´título vencendo em 10 dias´.
OBS.:
Utilizo o seguinte código para gerar um aviso, porém preciso saber como fazer para antecipar em 10 dias este aviso.
begin
dm.tbl2.IndexFieldNames:=´DataVenc´;
If dm.tbl2.FindKey([StrToDateTime(Label2.Caption)]) then
begin
Label5.caption:=´Documentos vencendo em 10 dias.´;
end;
Obrigado
Cbier
Curtidas 0
Respostas
Rômulo Barros
22/10/2003
Evento on create do formulario(Sender:Tobject);
Begin
Function TaVencido : Boolean;
Var
Dt : TdateTime;
Begin
Dt := Date;
IncDay(Dt,10); // Incrementa a data em 10 dias.. use tb IncMonth, IncYear...
dm.tbl2.first;
while Not dm.tbl2.eof do
begin
If(dm.tbl2.fieldbyname(´DataVenc´).AsDate = Dt)
begin
showmessage(´Existe algo que vai vence em 10 dias. Agora, o resto é com vc....´);
result := true;
break;
end;
end;
End;
End;
dm.tbl2.DataVenc´
Begin
Function TaVencido : Boolean;
Var
Dt : TdateTime;
Begin
Dt := Date;
IncDay(Dt,10); // Incrementa a data em 10 dias.. use tb IncMonth, IncYear...
dm.tbl2.first;
while Not dm.tbl2.eof do
begin
If(dm.tbl2.fieldbyname(´DataVenc´).AsDate = Dt)
begin
showmessage(´Existe algo que vai vence em 10 dias. Agora, o resto é com vc....´);
result := true;
break;
end;
end;
End;
End;
dm.tbl2.DataVenc´
GOSTEI 0
Cbier
22/10/2003
Valeu pessoal !!! Deu certíssimo.
CBier
CBier
GOSTEI 0