Efetuar loop simples

31/08/2004

0

Quero que meu sistema preencha doze registros com valores únicos, mas, com datas distintas, ou seja, primeiro com valor de 50,00 por exemplo e datado de 10/01/04, o segundo também com valor de 50,00 mas datado de 10/02/04 e assim sucessivamente até chegar as doze parcelas.

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

Pro-luck

Responder

Posts

31/08/2004

Macario

Olá colega, bom dia.

Poste o codigo de como monta as parcelas para podermos lhe passar a melhor maneira.


Responder

31/08/2004

Pro-luck

procedure TMensalidades_.UmEmUmClick(Sender: TObject);
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é +


Responder

31/08/2004

Sandra

Tópico bloqueado: duplicidade.
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.


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar