MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

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

    dailton_c
    dailton_c
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 25/02/2012

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

    Mensagem  dailton_c 23/3/2022, 22:43

    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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 23/3/2022, 23:39



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    dailton_c
    dailton_c
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 25/02/2012

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

    Mensagem  dailton_c 23/3/2022, 23:46

    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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 23/3/2022, 23:59

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

    Aguardo


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    dailton_c
    dailton_c
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 25/02/2012

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

    Mensagem  dailton_c 24/3/2022, 00:22

    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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 24/3/2022, 00:41

    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.


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    dailton_c
    dailton_c
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 25/02/2012

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

    Mensagem  dailton_c 1/4/2022, 21:44

    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
    Anexos
    [Resolvido]Vendas Parcelamento com diversas condições de pagamento AttachmentControle Comissões.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (635 Kb) Baixado 12 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 3/4/2022, 01:24

    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...


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    dailton_c
    dailton_c
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 25/02/2012

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

    Mensagem  dailton_c 3/4/2022, 12:51

    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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

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

    Mensagem  Celso Roberto 3/4/2022, 17:51

    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
    Anexos
    [Resolvido]Vendas Parcelamento com diversas condições de pagamento AttachmentControle Comissões Atual.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (622 Kb) Baixado 22 vez(es)


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    dailton_c gosta desta mensagem

    dailton_c
    dailton_c
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 25/02/2012

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

    Mensagem  dailton_c 3/4/2022, 22:42

    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


      Data/hora atual: 6/10/2022, 09:38