MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Reparcelamento de dividas

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 724
    Registrado : 12/04/2016

    [Resolvido]Reparcelamento de dividas Empty [Resolvido]Reparcelamento de dividas

    Mensagem  marcelo marques em 26/7/2020, 21:16

    Boa tarde pessoal estou quebrando a cabeça com um problemas faz dias problema do qual gostaria de fazer da seguinte forma

    exemplo: se eu tenho um parcelamento de 1.000,00 dividido em 10 X de 100,00
    eu pagaria apenas 4 parcelas de 100,00 e as demais atrasasse e fizesse um novo parcelamento do restante que seria 6 parcelas de 100,00 mais os juros
    como seria o código para resolver esta questão através de um botão no formulário :frmVendas "chamado [Reparcelamento]"
    so lembrando nao sei se seria desta forma mas gostaria de nas parcelas em atrasos que seria as 6X 100,00 na data de pagamento ficasse todas com a data  do dia que foi feito o reparcelamento e o valor do pagamento ficasse como 0,00 e criasse um novo parcelamento

    desde ja muito obrigado
    segue o anexo abaixo
    Anexos
    [Resolvido]Reparcelamento de dividas AttachmentContas a Pagar 2020.accdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (458 Kb) Baixado 11 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 11/11/2009

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  scandinavo em 28/7/2020, 18:26

    Inseri um campo txt para informar a taxa de juros aplicada.

    só não se ao certo se é esta forma correta de recalcular juros em cima de divida ativa.

    'scandinavo 28/07/20
    'zera as prcelas em atrazo e refaz um novo parcelamento incluindo juros

    'On Error Resume Next
    Dim Divida As Currency 'Variavel para somar a divida
    Dim N As Integer 'numero de parcelas n?o pagas
    Divida = 0 'inicio da variavel Zero
    N = 0 'inicio da variavel Zero

    Set DB = CurrentDb

    If MsgBox("Reparcelar divida...." & vbCrLf & vbCrLf & Me.CodVenda, vbInformation + vbYesNo, "Calotero") = vbYes Then
    'Abre a tabela de acordo com o codigo da vendas e as parcelas que n?o foram pagas
    Set rs = DB.OpenRecordset("SELECT * FROM Tbl_ContasAreceber WHERE Cod_TabVenda = " & Me.CodVenda & " and isnull(txt_pg_pendente) ")
    'fechando as parcelas em aberto
    Do While Not rs.EOF 'Repetirei para todas as parcelas

    rs.Edit
    Divida = rs!Valor_Parcela + Divida 'Soma a divida a cada passagem pelos registros
    N = N + 1 'conta o numero de parcelas em aberto
    rs!Dt_Pgto = Date 'data do dia
    rs!Valor_Parcela = 0 'zeras as que nao foram pagas
    rs!txt_pg_pendente = "Reparcelado" 'marca como reparcelado
    rs.Update

    rs.MoveNext 'Movo para proximo registro
    Loop

    MsgBox "Total " & Divida & " parcelas " & N

    Divida = Divida + (Divida * Me.txtJuros / 100) 'Nova Divida com juros

    MsgBox "Divida mais Juros " & Divida
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Inserindo as novas parcelas
    Valor_Parcela = Divida / N 'Valor de cada Parcela
    For i = 1 To N 'Insere as Parcela N ? u numero de parcelas restantes
    rs.AddNew
    rs("Cod_TabVenda") = Me.CodVenda
    rs("Parcelas") = i & "/" & N

    rs("Valor_Parcela") = Valor_Parcela
    rs("Dt_Vencimento") = DateAdd("m", i - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto atrav?s da fun??o DateAdd()
    rs.Update
    Next
    rs.Close
    DB.Close
    Me.frmSub_ContasAreceber.Requery 'Atualiza o SubForm

    Set DB = Nothing
    Set rs = Nothing

    Else

    MsgBox "Edi??o Cancelada", vbInformation, "Editar"
    End If
    Anexos
    [Resolvido]Reparcelamento de dividas AttachmentContas a Pagar Refaz parcelamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (499 Kb) Baixado 27 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 724
    Registrado : 12/04/2016

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  marcelo marques em 30/7/2020, 01:13

    boa noite scandinavo muito obrigado por me responder e me desculpe pela demora talvez nao tenha me expressado direito porem a forma que quero seria assim :

    Dt_pgto =ficasse como a data que foi feito o reparcelamento
    valor_pago=das parcelas que ainda falta para pagar ficasse com 0,00
    e ja o valor com os juros seria da seguinte forma
    valor dizer que tenho 10 parcelas de 100,00
    paguei somente 4 parcelas de 100,00 e deixei atrasar as demais depois de um tempo liguei para a loja para fazer uma negociação
    e o valor corrigido estava em 850,00 porem eu iria parcelar estes 850,00 em 10 vez novamente, não sei se expliquei certo mais quando eu disse valor em atraso mais juros , gostaria de já digitar o valor a ser parcelado







    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 11/11/2009

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  scandinavo em 30/7/2020, 04:34

    muito simples insira 2 imputibox no codigo e faça a alteração no codigo para pegar o valor da divida e o numero de parcelas destas imputbox.
    ou inserir um campo no frm para informar o valor renegociado (e na tabela também para registro) o campo com o numero de parcelas ja tem. ai é só adaptar o codigo.
    tenta ai se não conseguir fazer me avisa.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 11/11/2009

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  scandinavo em 30/7/2020, 14:30

    Insira um novo campo na tabela. no evento ao clicar do botão.



    'scandinavo 28/07/20
    'zera as prcelas em atrazo e refaz um novo parcelamento incluindo juros
    'On Error Resume Next
    Set DB = CurrentDb

    If MsgBox("Reparcelar divida...." & vbCrLf & vbCrLf & Me.CodVenda, vbInformation + vbYesNo, "Calotero") = vbYes Then
    'Abre a tabela de acordo com o codigo da vendas e as parcelas que n?o foram pagas
    Set rs = DB.OpenRecordset("SELECT * FROM Tbl_ContasAreceber WHERE Cod_TabVenda = " & Me.CodVenda & " and isnull(txt_pg_pendente) ")
    'fechando as parcelas em aberto
    Do While Not rs.EOF 'Repetirei para todas as parcelas

    rs.Edit
    rs!Dt_Pgto = Date 'data do dia
    rs!Valor_Parcela = 0 'zeras as que nao foram pagas
    rs!txt_pg_pendente = "Reparcelado" 'marca como reparcelado
    rs.Update

    rs.MoveNext 'Movo para proximo registro
    Loop
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Inserindo as novas parcelas
    Valor_Parcela = Me.txtDivida / Me.QtdeParcelas 'Valor de cada Parcela
    For i = 1 To Me.QtdeParcelas 'Insere as Parcela
    rs.AddNew
    rs("Cod_TabVenda") = Me.CodVenda
    rs("Parcelas") = i & "/" & Me.QtdeParcelas

    rs("Valor_Parcela") = Valor_Parcela
    rs("Dt_Vencimento") = DateAdd("m", i - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto atrav?s da fun??o DateAdd()
    rs.Update
    Next
    rs.Close
    DB.Close
    Me.frmSub_ContasAreceber.Requery 'Atualiza o SubForm

    Set DB = Nothing
    Set rs = Nothing

    Else

    MsgBox "Edi??o Cancelada", vbInformation, "Editar"
    End If
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 724
    Registrado : 12/04/2016

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  marcelo marques em 1/8/2020, 01:46

    boa noite scandinavo muito obrigado pela força problema resolvido
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 724
    Registrado : 12/04/2016

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  marcelo marques em 23/8/2020, 15:28

    Bom dia  scandinavo  me desculpe estar reabrindo este tópico  gostaria de fazer uma alteração só que já tentei e não consegui gostaria de fazer da seguinte forma pego o valor do reparcelamento e retira o restante do parcelamento anterior assim irei saber o quanto estou pagando a mais a diferença gostaria de lançar na última parcela do parcelamento antigo  exemplo Antes do reparcelamento  devia 100,00 em 5 x paguei apenas 1
    E fiz o reparcelamento com os juros ficou em 110,00 dividi em apenas duas vezes

    Parcela             valor           juros
    1/5                    20,00
    2/5                    0,00
    3/5                    0,00
    4/5                    0,00
    5/5                    0,00               30,00  'este valor são os juros da diferença entre o parcelamento anterior e o reparcelamento
    1/2                    55,00
    2/2                    55,00
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 798
    Registrado : 11/11/2009

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  scandinavo em 26/8/2020, 14:23

    Tem como postar o sistema. Pelo que eu tinha entendido você ia criar um campo para informar o valor do novo reparcelamento.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 724
    Registrado : 12/04/2016

    [Resolvido]Reparcelamento de dividas Empty Re: [Resolvido]Reparcelamento de dividas

    Mensagem  marcelo marques em 28/8/2020, 00:41

    boa noite scandinavo eu consegui resolver coloquei outro comando para criar uma nova parcela se estiver juros
    muito obrigado pela força

      Data/hora atual: 19/9/2020, 07:43