[Resolvido]Vendas Parcelamento com diversas condições de pagamento

Boa noite,
Estou precisando de uma ajuda para este procedimento, tenho um formulário de Pedido onde tenho uma combox com as condições de pagamento.
Que são as Seguintes :7 ddl, 14ddl, 30ddl, 30/60 ddl, 15/30/45/60/75/90ddl, 15/30/45/60/75 ddl, 15/30/45/60/75/90 ddl 30/45/60/75/90 ddl; 30/60/90 ddl.

Eu uso este código do JPaulo, em parcelamentos, mas nestas condições eu estou batendo a cabeça e como não sou expert em VB ou em access gostaria de uma ajuda.
Vou deixa o código do JPaulo ai se alguém me ajudar fico muito grato.
Ainda se possível um código que junte todas as parcelas a receber no Mês/ANO, ou seja nos meses que tem 31 dias do dia 01 ao dia 31 e nos meses qie tem 30 dias do dia 01 ao dia 30; na consulta que eu fiz não ficou legal.


Private Function Calc_parc()
Dim rs As DAO.Recordset, I As Byte
Dim rs1 As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("select * from tbl_parcelas where Num_OR = " & Me.Num_OR & "")
Set rs1 = CurrentDb.OpenRecordset("select * from tbl_parcelas where Num_OR = " & Me.Num_OR & " and quitada = -1")
If Not rs1.EOF Then
MsgBox "Este Serviço ja foi parcelada e contém pagamento efetuados. " & Chr(10) & "" _
& "Não será possivel refazer parcelamento !!!", vbCritical
Set rs1 = Nothing
Exit Function
End If


If Not rs.EOF Then
If MsgBox("Já existe um parcelamento para este Serviço !!! " & Chr(10) & "" _
& "Deseja substituir pelos novos valores? ", vbYesNo + vbExclamation + vbDefaultButton1, "Parcelamento") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where Num_OR = " & Me.Num_OR & ""
DoCmd.SetWarnings True

Else
Exit Function
End If

End If

If Not Resto <= 0 Then
For I = 1 To Me.q_parc
With rs
.AddNew
!Num_OR = Me.Num_OR
!Num_parc = I & "/" & Me.q_parc
!Data_venc = DateAdd("m", I - 1, (Me.Data_1a_parc))
!Val_parc = Me.v_parc

.Update
End With
Next
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from tbl_parcelas where Num_OR = " & Me.Num_OR & ""
DoCmd.SetWarnings True
End If
rs.Close
Set rs = Nothing
'MsgBox "Valores inseridos com sucesso!!!"
Me.Forma_Pgto.Requery
Me.Forma_Pgto.SetFocus

End Function

Olá..
Veja este exemplo se te ajuda

https://www.maximoaccess.com/t28063-prazos-de-pagamento-nova-atualizacao-no-codigo-do-mestre-jpaulo-parcelas_2008_old#196413

Aguardamos.

Boa noite, Celso Roberto e obrigado pela ajuda.

Mas se abrir o Visual e o mesmo código que deixei na tela.
Preciso de uma variante ou um modulo que faça a conversão das datas neste caso do código que eu deixei ela esta fixa em 30 dias.
Preciso de uma var que quando for iniciar em 30 dias e depois acrescentar os 15 ou 30 dias, ou se iniciar em 15 ele acrescente os 15 ou dias dias após a venda.


Valeu

Olá..
Neste exemplo é necessário configurar apenad a tabela prazo de pagamento com prazos necessários

Aguardo

Celso Roberto,

Desculpas eu não me atentei as modificações deste bd, como eu li sua mensagem pelo celular.
E no celular o access ainda não roda ou já está rodando?
Esta perfeito o modelo que me enviou.
Vou adaptar e volto a lhe informar.
E sobre o relatório qual a melhor forma de fazer na consulta ou por um modulo?


Abraços,

Dailton

Olá..
Desculpe, eu te disse para configurar pela tabela, o correto é pelo frmprazopagamento.
Veja exemplos de prazos já cadastrado para entender.
Quanto a consulta com vencimentos, anexe oque tem pronto após atualizar o código.

Boa tarde,

Celso Roberto, não estou conseguindo fazer o trem fumar já tentei de diversas formas.
Ainda por cima esta semana foi muito corrida para mim.
Será que pode me dar uma luz no que eu estou errando, ah tudo que eu sei e é bem pouco aprendi aqui lendo as resenhas e estudando os banco de dados.
Ficaria muito grato.
EStou postando o DB

Olá..

baixei o seu bd, estou analizando.

só uma duvida, voce vai trabalhar com formulário desacoplado?

pergunto porque vi que voce esta com o formulario que gera o parcelamento desacoplado.

aguardo...

Bom dia,

Celso eu trabalho com o formulário desacoplado, porque não sei outro maneira de se o usuário parar na metade do registro não fica gravado.
Assim se eu abrir o form no acoplado já gera o uma chave e seu eu escrever "a" já ira ficar gravado a chave com a informação "a", a não ser que tenha uma outra maneira de não deixar isto acontecer.
Este BD é para a minha esposa, então eu queria assim, ela vai efetuar a venda hoje, numero pedido, valor, condição de pagamento.
Amanhã a empresa fatura então ela retorno ao pedido e acrescenta o numero da nfe o valor faturado (veja que tem uma comparação entre o Valor do
Pedido e o Valor faturado, pois nem sempre é o mesmo valor) ai que vai gerar as parcelas
Somente depois de completar estas informações, por isto também eu uso o form desacoplado (não sei se é a melhor forma).
E neste caso a empresa pode demorar dias para faturar, lembra que eu falei que precisava de uma consulta que todos os vencimentos do dia 01 até o ultimo dia do mês não importando se fosse 28, 30 ou 31 que estes vencimentos sejam juntados e jogados para o dia 10 de cada mês, ou seja a previsão do recebimento da comissão.
Aproveitando eu pesquisei uma maneira de quando o formulário não estivesse aberto o código abriria e já carregava as informações acontece que se o formulário estiver aberto ele não carrega tentei já algumas alterações e também pesquisei o assunto mas não consegui uma luz.

Private Sub LtsClientes_Click()
If CurrentProject.AllForms("Cadastro_Pedido").IsLoaded = True Then
Forms![Cadastro_Pedido]!txtcodigo = Ltsclientes.Column(0)
Forms![Cadastro_Pedido]!txtNum_ped = Ltsclientes.Column(1)
Forms![Cadastro_Pedido]!txtcliente = Ltsclientes.Column(2)
Else:
DoCmd.OpenForm ("Cadastro_Pedido"), acNormal


Mas não funciona, acho que falta algum argumento na linha.


Se conseguir entender e me ajudar fico muito grato.

Abraços e um ótimo e abençoado Domingo.

Dailton

olá..

Veja se o anexo esta gerando as parcelas de acordo como pretende.

Te peço desculpas pois não é minha especialidade trabalhar com forms desacoplados, por este motivo não irei conseguir te ajudar muito.

Quanto as outras duvidas que mencionou na mensagem anterior, o ideal é para cada duvida abrir um tópico de ajuda, assim os especialistas neste assunto existentes no Fórum poderão te ajudar e também não iremos misturar duvidas em um unico tópico.

Isto ajuda também quem procura por soluções iguais a sua.

Conto com sua compreensão.

Aguardo..

Abraços

Celso Roberto,

Muito obrigado pela ajuda nem sei como lhe agradecer.
Agora que deu a "luz", eu consegui verificar onde eu estava errando, muito obrigado pelo tempo dedicado a me ajudar.
Já esta funcionando certinho, quanto as outras duvidas vou continuar procurando se não encontrar vou abrir um novo tópico..


Abraços,

Dailton