Fórum programa de vencimento de contas #255689
23/10/2004
0
ola
estou fazendo um programa de vencimento de contas e ele funciona assim:
vc cadastra os vencimentos num bando de dados(paradox) se a conta vence dia 10/10/2004, o programa de avisa no dia 09/10/2004 com uma mensagem no oncreate, estou fazendo assim:
o label4 e onde eu coloquei a data atual.
mas eu estou com um problema pois esta mensagem so aparece se o campo estiver selecionado na DBGrid.
alguem tem outra ideia?
obrigado
estou fazendo um programa de vencimento de contas e ele funciona assim:
vc cadastra os vencimentos num bando de dados(paradox) se a conta vence dia 10/10/2004, o programa de avisa no dia 09/10/2004 com uma mensagem no oncreate, estou fazendo assim:
if label4.caption= DateToStr(Table1[´DATA DO VENCIMENTO´]-1) then showmessage(´Esta conta vai vencer ´ + DateToStr(Table1[´DATA DO VENCIMENTO´])+ ´ para ´ + (TABLE1[´FORNECEDOR´])+ 13+ ´no valor de ´ + (Table1[´VALOR´]));
o label4 e onde eu coloquei a data atual.
mas eu estou com um problema pois esta mensagem so aparece se o campo estiver selecionado na DBGrid.
alguem tem outra ideia?
obrigado
Fzamara
Curtir tópico
+ 0
Responder
Posts
23/10/2004
Gabriel.elessar
estou fazendo algo parecido, no meu caso esta no click de um botão...mas você pode adaptar até msm para um Time
e eu estou mostrando as parcelas vencidas em um list...
fica + ou - assim
var parcela : String;
begin
ListBox1.Clear;
parcelas.First;
while not parcelas.Eof do
begin
if parcelasDataParcela.AsDateTime <= Date then
begin
parcela := parcelasCodContasPagar.AsString + ´ ´+ parcelasCodParcelasContaPagar.AsString + ´ ´ + parcelasValorParcela.AsString + ´ ´ + parcelasDataParcela.AsString;
ListBox1.Items.Append(parcela);
end;
parcelas.Next;
end;
end;
o comando de repetição filtra só as parcelas vencidas, segundo a data do sistema!
espero ter ajudado
e eu estou mostrando as parcelas vencidas em um list...
fica + ou - assim
var parcela : String;
begin
ListBox1.Clear;
parcelas.First;
while not parcelas.Eof do
begin
if parcelasDataParcela.AsDateTime <= Date then
begin
parcela := parcelasCodContasPagar.AsString + ´ ´+ parcelasCodParcelasContaPagar.AsString + ´ ´ + parcelasValorParcela.AsString + ´ ´ + parcelasDataParcela.AsString;
ListBox1.Items.Append(parcela);
end;
parcelas.Next;
end;
end;
o comando de repetição filtra só as parcelas vencidas, segundo a data do sistema!
espero ter ajudado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)