Dúvida para gerar parcela
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
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
Curtidas 0
Respostas
Marcos Oliveira
02/04/2014
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
O valor está correto, ou seja, a quantidade de parcelas está correta?
Att,
Marcos
GOSTEI 0
Fabio Silva
02/04/2014
Sim
GOSTEI 0
Bruno Leandro
02/04/2014
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;
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;
GOSTEI 0
Marcos Saffran
02/04/2014
Qual é a estrutura da tabela QuerPagar?
GOSTEI 0
Fabio Silva
02/04/2014
Oi amigo
abaixo segue a estrutura da tabela querpagar
[img]http://arquivo.devmedia.com.br/forum/imagem/365574-20140403-170534.jpg[/img]
abaixo segue a estrutura da tabela querpagar
[img]http://arquivo.devmedia.com.br/forum/imagem/365574-20140403-170534.jpg[/img]
GOSTEI 0
Bruno Leandro
02/04/2014
olá Fabio colocando o insert dentro do while conforme passei deu certo ?
GOSTEI 0
Marcos Saffran
02/04/2014
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?
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?
GOSTEI 0
Nelson Santos
02/04/2014
Desenvolva softwares 3D em Delphi 7
www.3dsistemas.com.br
www.3dsistemas.com.br
GOSTEI 0
Ricardo Araujo
02/04/2014
Conseguiu gera as parcelas ?
GOSTEI 0