ARRAYS PARA GERAR PARCELAS
Galera,
Certa vez vi aqui no forum um tópico que ensinava a gerar parcelas via arrays, infelizmente não estou localizando mais.
Bom, em um text tenho as seguintes informações: 21,28,35 e gostaria de quando clicar para gerar a cobranca ele verifique os números entre a virgula e gere duplicatas.
gerar as parcelas via loop ok, o problema está em gerar o intervalo de pagamento existente entre as virgulas.
se não me engano o tópico era do Max o fiscal.
Caso alguem saiba como fazer ou tenha as informações do tópico.
Desde já agradeço.
Certa vez vi aqui no forum um tópico que ensinava a gerar parcelas via arrays, infelizmente não estou localizando mais.
Bom, em um text tenho as seguintes informações: 21,28,35 e gostaria de quando clicar para gerar a cobranca ele verifique os números entre a virgula e gere duplicatas.
gerar as parcelas via loop ok, o problema está em gerar o intervalo de pagamento existente entre as virgulas.
se não me engano o tópico era do Max o fiscal.
Caso alguem saiba como fazer ou tenha as informações do tópico.
Desde já agradeço.
Cara
tenta algo assim
Dim Parcela() As String
Dim x As Integer
Parcela = Split(Text1, [Ô],[Ô]) no text1 terá 10,20,30
For x = 0 To UBound(Parcela)
List1.AddItem Parcela(x)
Next x
boa sorte
SINKERTEC, obrigado pela ajuda!
vou testar e logo te respondo
vou testar e logo te respondo
SINKERTEC,
Está me retornando um erro ao tentar salvar no banco mysql.
bom... minha intenção é pegar a hora do windows e acrescentar os dias do intervalo das virgulas e lançar as parcelas. criei um codigo para teste antes de implementar no programa e esta me retornando que os dados são incompativeis para:
data + parcelas
segue o código
Private Sub command1_Click()
Dim parcela() As String
Dim x As Integer
Dim dat As Date
[ô]on error goto erradicionar
parcela = Split(Me.txtprazo, [Ô],[Ô]) [ô]no text1 terá 10,20,30
Mycon.Open [Ô]dsn=est1112[Ô]
With mycmd
.ActiveConnection = Mycon
.CommandType = adCmdText
For x = 0 To UBound(parcela)
[txt-color=#e80000]dat = Now + parcela[/txt-color]
.CommandText = [Ô]insert into teste [Ô] & [Ô] (parcela,vencimento)value([ô][Ô] & parcela & [Ô][ô],[Ô] * [Ô][ô][Ô] & _
Format(dat, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô])[Ô]
.Execute
End With
Next x
saida:
Set mycmd = Nothing
Mycon.Close
With Err
If .number <> 0 Then
.number = 0
GoTo saida
End If
End With
End Sub
Veja em quais lugares estou errando.
Att.
Ricardo
Está me retornando um erro ao tentar salvar no banco mysql.
bom... minha intenção é pegar a hora do windows e acrescentar os dias do intervalo das virgulas e lançar as parcelas. criei um codigo para teste antes de implementar no programa e esta me retornando que os dados são incompativeis para:
data + parcelas
segue o código
Private Sub command1_Click()
Dim parcela() As String
Dim x As Integer
Dim dat As Date
[ô]on error goto erradicionar
parcela = Split(Me.txtprazo, [Ô],[Ô]) [ô]no text1 terá 10,20,30
Mycon.Open [Ô]dsn=est1112[Ô]
With mycmd
.ActiveConnection = Mycon
.CommandType = adCmdText
For x = 0 To UBound(parcela)
[txt-color=#e80000]dat = Now + parcela[/txt-color]
.CommandText = [Ô]insert into teste [Ô] & [Ô] (parcela,vencimento)value([ô][Ô] & parcela & [Ô][ô],[Ô] * [Ô][ô][Ô] & _
Format(dat, [Ô]YYYY/MM/DD[Ô]) & [Ô][ô])[Ô]
.Execute
End With
Next x
saida:
Set mycmd = Nothing
Mycon.Close
With Err
If .number <> 0 Then
.number = 0
GoTo saida
End If
End With
End Sub
Veja em quais lugares estou errando.
Att.
Ricardo
problema resolvido,
tratava de uma tremanda falta de organização do código (vixiii)
SINKERTEC, muito obrigado!
tratava de uma tremanda falta de organização do código (vixiii)
SINKERTEC, muito obrigado!
Tópico encerrado , respostas não são mais permitidas