| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
jpeixinho
Novato
Registrado: Quarta-Feira, 25 de Agosto de 2010
Mensagens: 30
|
 Enviada: Seg Dez 02, 2013 8:17 am Assunto: Gerar parcelas com dia fixo |
 |
|
Bom dia turma!
Gostaria de uma ajuda de vocês, como faço para gerar parcelas com os vencimentos contendo os dias fixo.
Exemplo:
Parc. Vencimento Valor
1 02/01/2014 150,00
2 02/02/2014 150,00
3 02/03/2014 150,00
4 02/04/2014 150,00
Obs: Só muda o mês e o ano caso chegue no final do ano, mais o dia permanece o mesmo em todas as parcelas. |
|
| Voltar ao Topo |
|
 |
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Seg Dez 02, 2013 1:13 pm Assunto: |
|
|
| Basta tratar a data do vencimento como data, colocar o dia que quiser no local do dia e pronto... |
|
| Voltar ao Topo |
|
|
jpeixinho
Novato
Registrado: Quarta-Feira, 25 de Agosto de 2010
Mensagens: 30
|
| Enviada: Ter Dez 03, 2013 7:31 am Assunto: Tópico Resolvido |
|
|
Obrigado Ghost_Rider!
Conseguir fazer o que queria da seguinte forma.
| Código: | procedure TFormParcelas.Gerar_Parcela;
Var
VarValor:Real;
VarParcela:Real;
Louca,L,AUX:Integer;
T : Integer;
P : Integer;
R : String;
F : Integer;
G : String;
Begin
VarValor:=0;
P:=0;
F:=0;
VarValor:=VarValor+Valor.Value;
VarParcela:=VarValor/Parcela.Value;
if Parcela.Value=0 then
Begin
Louca:=1;
AUX:=0;
End
else
Begin
Louca:=0;
AUX:=1;
End;
For L:=AUX to (Parcela.AsInteger-Louca) do
Begin
Sps_ID.Close;
Sps_ID.Open;
if Sps_ID.RecordCount = 0 then
begin
T:= 1;
end;
if Sps_ID.RecordCount > 0 then
begin
Sps_ID.Last;
T:= Sps_ID.FieldByName('ID').Value+1;
end;
P:=P+1;
Sql_Inserir.Params[0].Value := T;
Sql_Inserir.Params[1].Value := P;
Sql_Inserir.Params[2].AsDate := IncMonth(Data.Date,L);
Sql_Inserir.Params[3].AsFloat := VarParcela;
Sql_Inserir.ExecSQL;
end;
end; |
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
