Fórum Dúvida para gerar parcela #474874

02/04/2014

0

Delphi

Boa tarde amigos!



Estou tentando criar um rotina para gerar parcelas automaticamente: Mas ela não gera cria apenas um parcela e com numeração ZERO não dá nenhum erro


Var 
parc : integer; 
begin 
DBEdit24Exit(Sender); 
if datamodule1.QuerPagar.State in [dsinsert] then 
begin 
datamodule1.QuerPagar.Insert; 
parc := 1; 
while parc <= datamodule1.QuerPagarqtdparcela.Value do 
Begin 
datamodule1.QuerPagarcod_parc.Value :=parc; 
datamodule1.QuerPagardatavencimento.Value:= date + (parc * 30); 
datamodule1.QuerPagar.Post; 
inc (parc); 
end; 
end; 
end;
Fabio Silva

Fabio Silva

Responder

Posts

02/04/2014

Marcos Oliveira

Você já depurou para ver o valor que está vindo de "datamodule1.QuerPagarqtdparcela.Value"?
O valor está correto, ou seja, a quantidade de parcelas está correta?

Att,

Marcos
Responder

Gostei + 0

02/04/2014

Fabio Silva

Sim
Responder

Gostei + 0

02/04/2014

Bruno Leandro

Coloque o insert dentro do while,

while parc <= datamodule1.QuerPagarqtdparcela.Value do
Begin
datamodule1.QuerPagar.Insert;
datamodule1.QuerPagarcod_parc.Value :=parc;
datamodule1.QuerPagardatavencimento.Value:= date + (parc * 30);
datamodule1.QuerPagar.Post;
inc (parc);
end;
Responder

Gostei + 0

02/04/2014

Marcos Saffran

Qual é a estrutura da tabela QuerPagar?
Responder

Gostei + 0

03/04/2014

Fabio Silva

Oi amigo


abaixo segue a estrutura da tabela querpagar


[img]http://arquivo.devmedia.com.br/forum/imagem/365574-20140403-170534.jpg[/img]

Responder

Gostei + 0

07/04/2014

Bruno Leandro

olá Fabio colocando o insert dentro do while conforme passei deu certo ?
Responder

Gostei + 0

07/04/2014

Marcos Saffran

Bom dia Fabio,

pelo que vi na sua tabela 'querpagar' será criada apenas uma parcela para cada Código, não sei se é isso que você deseja, pois também não identifiquei como você conseguirá controlar o acesso a essa informação.

Qual o banco de dados você está usando e o mesmo está gerando automaticamente o código corretamente?
Responder

Gostei + 0

27/05/2014

Nelson Santos

Desenvolva softwares 3D em Delphi 7
www.3dsistemas.com.br
Responder

Gostei + 0

02/06/2014

Ricardo Araujo

Conseguiu gera as parcelas ?
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar