[firebase-br] RES: procedure pra determinar proximo vencimento

[PV - LVSoft]

Francisco,

Desculpe se estou mandando de forma errada mas já fui no fórum e não
encontrei outra forma de te enviar isto.

Eu acho que tenho a solução para você. Segue rotina:

{***************************************************************************
************
 ** Rotina utilizada para retornar o próximo vencimento, levando em
consideração que: **
 ** se a data atual passar do dia 10 o próximo vencimento será no próximo
mês caso    **
 ** contrário o vencimento será no mesmo mês.
**
 **
**
 ** Autor: Paulo Vale
**
 ** Empresa: LVSoft Tecnologia da Informação em Sistemas
**
 ** Data: 24/09/2009
**
 **
**
 
****************************************************************************
***********}
Function ProximoVencimento( Data_da_Compra : TDateTime) : TDateTime;
var
	bo_antes : boolean;
	data_proximo_vencimento : string ;
	data_mais_mes : Tdatetime;

begin

	// Verificamos se o vencimento é antes
	if ( strtoint(copy(datetostr(data_da_compra),1,2)) < 10 ) then
		
		bo_antes := true else bo_antes := false ;

	// Montamos o vencimento	
	if bo_antes then begin

		data_proximo_vencimento := '10/' + 
					    copy(datetostr( Data_da_Compra
),4,2) +'/'+
					    copy(datetostr( Data_da_Compra
),7,4) ;

	end 
	else 
	begin	

		//acrescentamos um mês
		data_mais_mes := incmonth( Data_da_Compra , 1 ) ;

		data_proximo_vencimento := '10/' + 
					    copy(datetostr( data_mais_mes
),4,2) +'/'+
					    copy(datetostr( data_mais_mes
),7,4) ;

	end;

	result := strtodate(data_proximo_vencimento);

end;


Espero ter ajudado
Forte Abraço
Paulo Vale



-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br] Em
nome de Francisco
Enviada em: quinta-feira, 24 de setembro de 2009 09:40
Para: 'FireBase'
Assunto: [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