REPETIR REGISTRO COMO FACO ISSO?

CHARLESTON10 14/11/2011 13:01:15
#389128
Olá galera,

Eu tenho um sistema pronto, porém vou lançar uma atualização pra ele, depois que eu terminar vou lançar ele como Free.

Pra vocês entenderem a minha dúvida, o sistema é um programa de controle financeiro pessoal.

A questão é essa, eu não estou entendendo a lógica de como repetir um registro da minha tabela,
Tenho um registro de uma conta a pagar, e o usuário pode escolher que essa conta possa repetir a todo mês;
é como gerar uma parcela;

Enfim, a grande dúvida é essa, como eu faço para repetir a mesma conta por:

Semana
Quinzena
Mês
Bimestre
Trimestre
Semestre.

(Apenas um desses o usuário irá escolher)

Eu crio uma outra tabela para guardar os registros que irá repetir,
Ou eu faço um método que toda vez o programa verifica para repetir um registro.

Eu to enrolado, não entendo a lógica...

Valeu pessoal
ALVAROVB2009 14/11/2011 13:25:42
#389132
é mais fácil vc criar uma tabela a parte para guardar todos os registros duplicados, para serem tratador individualmente, assim vc tem como colocar qual conta foi paga, qual esta atrasada etc

Não sei como que vc vai calcular a quantidade de vezes que a conta será repetida, más vc pode usar um for next
dim I as integer
For i=0 to qtedepeticao
incluir o registro no banco
next

Resumindo ficaria algo assim

Qqer coisa posta ai
OMAR2011 14/11/2011 15:03:38
#389137
Crie dois campos a mais na tabela.Sendo um campo [Ô]Cod_Pag[Ô] número e outro [Ô]Pago[Ô] sim/não.Ai você pode registra quantas contas quiser com o mesmo [Ô]Cod_Pag[Ô].Por exemplo,
Pagamento Conta Energia.
Codigo Nome Valor Data Cod_pag Pago
1 Cemig 123,00 11/11/2011 1 Sim
2 Cemig 89,00 11/12/2011 1 Não
3 Copasa 76,00 10/11/2011 2 Sim
4 Copasa 78,00 10/12/2011 2 Não
Para atualizar basta criar um botão de atualização onde você clica em qualquer registro exibido no listview,tanto pode fazer armazenando dados do listview em variavéis ou usando
caixa de texto.Onde dará um click no registro e seus dados vão direto para caixa de texto.E no listview pode-se usar imagem para mostrar se foi pago ou não.
CHARLESTON10 28/11/2011 19:49:31
#390197
Sim, enquanto a isso não tenho problemas

Minha duvida é como eu fazer um registro repetir durante 1 ano de

7 em 7 dias - por semana
e por bimestre de 2 em 2 meses;

Eu faço da seguinte maneira para repetir o registro;


[ô]Repetir todos os dias do ano
[ô]//aki funfa legal
If Repetir = [Ô]1 dia[Ô] Then
For Contador = 1 To 365
MsgBox DateAdd([Ô]d[Ô], Contador, sData)
Next Contador
End If

[ô]Problema aki
If Repetir = [Ô]7 dias[Ô] Then
For Contador = 7 To (365 / 7)
MsgBox DateAdd([Ô]d[Ô], Contador, sData)
Next Contador
End If

[ô]Problema aki
If Repetir = [Ô]1 bimestre[Ô] Then
For Contador = 2 To 12
MsgBox DateAdd([Ô]m[Ô], Contador, sData)
Next Contador
End If


Acima esta o código que eu uso, é obvio que não esta dando certo, mas nao estou achando o código correto para implementar;

Da maneira acima por semana ele repete assim, exemplo:

Data para calcular: 01/01/2012
Contador: 7 - Indicando os dias

Vai aparecer

08/01/2012 - Correto
09/01/2012 - incorreto
10/01/2012 - incorreto

o que deveria ser é

08/01/2012
15/01/2012
22/01/2012 e assim por diante;

como resolvo ?
CHARLESTON10 28/11/2011 20:24:38
#390198
Galera, valeu pela ajuda;

Consegui resolver meu problema
Tópico encerrado , respostas não são mais permitidas