Criar Rotina de Verifaca��o de data de vencimento no delphi

Question

Pessoal Bom tarde !Como se faz uma rotina de verifica��o de data de vencimento no delphi ou no Mysql , exemplo verificar a data de vencimento de um contrato ?Por que estou querendo criar um progra...

Leonardo Xavier · Answer

Bom cara eu vou implementar isso no meu sistema na segunda feira, segundo meu cronograma de programa��o, se n�o se importar de esperar eu posto aqui o c�digo da minha implementa��o....

Marcos Iwazaki · Answer

Acho que uma das formas para se fazer isso seria...
Ao abrir o sistema, ele abre um tela X
Essa tela X vc faz um select que tras os titulo vencidos ou que v�o vencer no dia,
e mostra os dados tudo em um dbgrid.

Caso o select n�o retornar registro algum vc pode fechar a tela automaticamente.

Alisson Santos · Answer

Bom referente o que informou, existe algumas maneiras de se fazer que � viavel e inviavel.
O ideal � sempre que abrir o sistema executar uma rotina que verifique no banco de dados e retorne para voc� em um grid todos os contratos que est�o pendentes, esse seria um jeito.
Outro jeito seria colocar um ttimer em sua aplica��o e de tempos em tempos ele verificar isso. N�o acho legal pois o contrato vence ao dia e n�o a horas.
Fica ai a dica.

Watson Rocha · Answer

Alisson Boa tarde !O ideal � sempre que abrir o sistema executar uma rotina que verifique no banco de dados e retorne para voc� em um grid todos os contratos que est�o pendentes, esse seria um jeito. &lt&lt Esse jeito � muito interessante mas como fazer ela , voc� sabe me informar ?...

Watson Rocha · Answer

Venho Agradecer mais uma vez o William do Forum Devmedia. com sua exelente exeperiencia em programa��o e um grande conhecimento em bancos de dados , me ajudou com as minhas d�vidas .

Pessoal Processo Resolvido.

Ficou desse jeito !

begin
qryDatas.Close;
qryDatas.SQL.Clear;
qryDatas.SQL.Add('SELECT * FROM CONTRATO');
qryDatas.Open;

qryDatas.First;
while not qryDatas.Eof do
begin
if DaysBetween(Date, StrToDate(qryDatas.Fields[5].AsString)) <= 45 then
begin
str := str + 'Contrato: ' + qryDatas.Fields[0].AsString + ' - Data de Vencimento: ' + qryDatas.Fields[5].AsString + #10#13;
end;
qryDatas.Next;
end;

if str <> '' then
ShowMessage('Contratos pr�ximo do vencimento!'#10#13 + str);
end;
end.

Deivison Melo · Answer

Estarei finalizando o t�pico!...

F�rum Criar Rotina de Verifaca��o de data de vencimento no delphi #424922