Efetuar loop simples
31/08/2004
0
Tentei usar o While...do e o For...do, mas, acredito que pela minha inexperiência não esteja conseguindo fazê-lo.
Se alguém souber como fazer isso e puder me ajudar, conte com os meus sinceros agradecimentos.
Obs: Já consegui fazer isso mas, a cada clique num determinado botão, ou seja, clicava-se 12 vezes no botão, agora quero os doze de uma só vez, ou melhor, num só clique.
Té +
Pro-luck
Posts
31/08/2004
Macario
Poste o codigo de como monta as parcelas para podermos lhe passar a melhor maneira.
31/08/2004
Pro-luck
Var
MensalidadeReplica: TDateTime;
begin
MensalidadeReplica := StrToDateTime(dm_.QryMensalidadesVencimento.Text);
dm_.QryReplicaMensalidades.Append;
dm_.QryReplicaMensalidadesAluno.Text := dm_.QryMensalidadesAluno.Text;
dm_.QryReplicaMensalidadesVencimento.Text := DateTimeToStr(IncMonth(MensalidadeReplica,1));;
dm_.QryReplicaMensalidadesCurso.Text := dm_.QryMensalidadesCurso.Text;
dm_.QryReplicaMensalidadesMesMensalidade.Text := dm_.QryMensalidadesMesMensalidade.Text;
dm_.QryReplicaMensalidadesValor.Value := dm_.QryMensalidadesValor.Value;
dm_.QryReplicaMensalidadesJuros_mora.Value := dm_.QryMensalidadesJuros_mora.Value;
dm_.QryReplicaMensalidadesJuros_AM.Value := dm_.QryMensalidadesJuros_AM.Value;
dm_.QryReplicaMensalidades.Post;
dm_.QryMensalidades.Append;
dm_.QryMensalidadesAluno.Text := dm_.QryReplicaMensalidadesAluno.Text;
dm_.QryMensalidadesVencimento.Text := dm_.QryReplicaMensalidadesVencimento.Text;
dm_.QryMensalidadesCurso.Text := dm_.QryReplicaMensalidadesCurso.Text;
dm_.QryMensalidadesMesMensalidade.Text := dm_.QryReplicaMensalidadesMesMensalidade.Text;
dm_.QryMensalidadesValor.Value := dm_.QryReplicaMensalidadesValor.Value;
dm_.QryMensalidadesJuros_mora.Value := dm_.QryReplicaMensalidadesJuros_mora.Value;
dm_.QryMensalidadesJuros_AM.Value := dm_.QryReplicaMensalidadesJuros_AM.Value;
dm_.QryMensalidades.Post;
ShowMessage(´Mensalidade replicada com sucesso!!!´);
dm_.QryReplicaMensalidades.Delete;
end;
--------------------------------------------------------------------------------------
Para essa rotina funcionar, existe uma tabela com a data incrementada e em seguida a
devolve para a tabela principal, e o processo é repetido a cada clique no botão.
Agora quero fazê-lo sem ter que clicar no botão doze vezes, quero clicar uma única vez e
loop executá-lo até que chegue a 12ª mensalidade.
Té +
31/08/2004
Sandra
http://delphiforum.icft.com.br/forum/viewtopic.php?t=50996
Pro-Luck,
Por favor, releia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.
Clique aqui para fazer login e interagir na Comunidade :)