Olá pessoal do Forum.
Mais uma vez recorro a vocês, a quem possa me ajudar num problema que venho enfrentando a algum tempo com o seguinte código para poder gerar parcelas.
Tenho o seguinte código abaixo que gera duplicatas e cria datas de semana em semana ou mês em mês.
A dúvida é a seguinte, teria a possibilidade de fazer alguma adaptação com o código para o usuario poder escolher qual será o dia do primeiro vencimento, e gerar faturas por exemplo de 14 em 14 dias
Exemplo: Parcelamento 28/42/56 dias para pagar
a compra foi feita hoje 15/03/2014 e o vencimento é 12/04/2014 , 26/04/2014 , 10/04/2014
Dim I As Long
Dim VALOR As Currency
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb '' Indico banco de dados atual
Set rs = db.OpenRecordset("CONTASR") '' Abro a tabela de contas
With rs
For I = 1 To Me.Parcelas
.AddNew
!Pedido = Me.[CODVENDA]
!Parcelas = Me.[Parcelas]
!TCompra = Me.[VALORCOMPRA]
!CODDOC = Me.[CODVENDA] & "-" & I
'!DATA = DateAdd("m", I, Me.[DataVenda]) 'cria datas de 30 em 30
!DATA = DateAdd("ww", I, Me.DataVenda) 'cria datas de 7 em 7 dias
!CLIENTE = Me![CÓDCLIENTE]
!VALOR = Me!Valortotal
.Update
Next
End With
db.Close
Desde Já obrigado pela atenção
Mais uma vez recorro a vocês, a quem possa me ajudar num problema que venho enfrentando a algum tempo com o seguinte código para poder gerar parcelas.
Tenho o seguinte código abaixo que gera duplicatas e cria datas de semana em semana ou mês em mês.
A dúvida é a seguinte, teria a possibilidade de fazer alguma adaptação com o código para o usuario poder escolher qual será o dia do primeiro vencimento, e gerar faturas por exemplo de 14 em 14 dias
Exemplo: Parcelamento 28/42/56 dias para pagar
a compra foi feita hoje 15/03/2014 e o vencimento é 12/04/2014 , 26/04/2014 , 10/04/2014
Dim I As Long
Dim VALOR As Currency
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb '' Indico banco de dados atual
Set rs = db.OpenRecordset("CONTASR") '' Abro a tabela de contas
With rs
For I = 1 To Me.Parcelas
.AddNew
!Pedido = Me.[CODVENDA]
!Parcelas = Me.[Parcelas]
!TCompra = Me.[VALORCOMPRA]
!CODDOC = Me.[CODVENDA] & "-" & I
'!DATA = DateAdd("m", I, Me.[DataVenda]) 'cria datas de 30 em 30
!DATA = DateAdd("ww", I, Me.DataVenda) 'cria datas de 7 em 7 dias
!CLIENTE = Me![CÓDCLIENTE]
!VALOR = Me!Valortotal
.Update
Next
End With
db.Close
Desde Já obrigado pela atenção