Boa noite, galera.
Estou com uma pequena dificuldade ao gerar as parcelas no access, montei um formulário de pedido, com um botão para gerar as parcelas.
No pedido tem, o valor total dos produtos, mais o valor do frete e imposto separado, ao clicar para gerar as parcelas, queira que o imposto ficasse somado na primeira parcelas, e o frete divido junto com o valor do produto.
Segue o código que montei.
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tb_ContasReceber") 'Abre a Tb_ContasReceber
' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "Código = " & Me!Txt_Cond_Pagto.Column(0)
QuantParcelas = DLookup("N_Parcelas", "Tb_FormaPagamentos", strFiltro)
ValorTotalVenda = Me.Txt_TotalProdutos + Me.Txt_Frete + Txt_ICMS
ValorParcela = ValorTotalVenda / QuantParcelas 'Valor de cada parcela"
For I = 1 To QuantParcelas 'Insere as parcelas na Tb_ContasReceber
rs.AddNew
rs("CódigoPedido") = Txt_Código
rs("Parcelas") = I & "/" & QuantParcelas
rs("Vlr_APagar") = ValorParcela
rs("Especificacao") = "Nota Fiscal"
rs("DataVencimento") = DateAdd("m", I, Me.Txt_Data) 'Calcula as datas de vencimento atraves da função DateAdd()
rs.Update
Next
rs.Close
db.Close
Estou com uma pequena dificuldade ao gerar as parcelas no access, montei um formulário de pedido, com um botão para gerar as parcelas.
No pedido tem, o valor total dos produtos, mais o valor do frete e imposto separado, ao clicar para gerar as parcelas, queira que o imposto ficasse somado na primeira parcelas, e o frete divido junto com o valor do produto.
Segue o código que montei.
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tb_ContasReceber") 'Abre a Tb_ContasReceber
' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "Código = " & Me!Txt_Cond_Pagto.Column(0)
QuantParcelas = DLookup("N_Parcelas", "Tb_FormaPagamentos", strFiltro)
ValorTotalVenda = Me.Txt_TotalProdutos + Me.Txt_Frete + Txt_ICMS
ValorParcela = ValorTotalVenda / QuantParcelas 'Valor de cada parcela"
For I = 1 To QuantParcelas 'Insere as parcelas na Tb_ContasReceber
rs.AddNew
rs("CódigoPedido") = Txt_Código
rs("Parcelas") = I & "/" & QuantParcelas
rs("Vlr_APagar") = ValorParcela
rs("Especificacao") = "Nota Fiscal"
rs("DataVencimento") = DateAdd("m", I, Me.Txt_Data) 'Calcula as datas de vencimento atraves da função DateAdd()
rs.Update
Next
rs.Close
db.Close
Última edição por Leaojo em 26/3/2017, 17:44, editado 1 vez(es)