[firebase-br] procedure pra determinar proximo vencimento

[Zottis IG]

Eu Faço isso na aplicação, mas mesmo assim vou passar minha sugestão, como 
me passaram na época:
       Extrai o Mes, ano e dia da data atual ou da data de entrega do pedido

                  Dia := Dados.ClientesCadDIAPADRAO.Value;

                  month  := month +1;

                   if month > 12 then
                      begin
                        month := 1;
                        year  := year+1;
                      end;
                   if month = 2 then
                      begin
                        if dia > 28 then
                          begin
                            dia := 1;
                            month:= month+1;
                          end;
                      end;
                Vencimento := EncodeDate(Year,Month,dia);


Pegue o último dia do mês,
verifica
(pra ficar mais fácil,


Arte&Cor Estamparia - Zottis

"Um homem só tem o direito de olhar
  a um outro de cima para baixo, quando
  vai ajuda-lo a levantar-se".
                   Gabriel Garcia Marquez
----- Original Message ----- 
From: "Francisco" <francisco em logosinfo.com.br>
To: "'FireBase'" <lista em firebase.com.br>
Sent: Thursday, September 24, 2009 9:40 AM
Subject: [firebase-br] procedure pra determinar proximo vencimento


Pessoal, bom dia.

Alguem teria uma sugestao para uma procedure que calculasse o proximo
vencimento do cliente?
Tipo: o cliente paga todo dia 10, comprando ate o dia 01 de outubro a fatura
cai dia 10/10/09, após 1 de outubro 10/11/09.
Gostaria que fosse uma SP dentro banco.

Obrigado(a),

Francisco A souza




______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa