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


3 participantes

    [Resolvido]Baixa Parcial e gerar parcela com restante

    avatar
    guedesgon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 17/04/2017

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty [Resolvido]Baixa Parcial e gerar parcela com restante

    Mensagem  guedesgon 17/5/2017, 11:35

    Olá pessoal,
    Preciso de ajuda para fazer com que meu formulário quitar parcelas gere outar parcela com o restante no caso de pagamento parcial. já tentei de várias formas utilizei exemplos mas não consegui adaptar para o meu.  
    Tenho um formulário para quitar as parcelas geradas com os campos parcelas, DtVencimento, ValorParcela, DtaPgto, ValorPago, Débito, Quitar(sim/Não) e um botão de comando (Baixar) com o seguinte código no evento ao clicar:
    Private Sub Comando21_Click()

    Dim Rst As DAO.Recordset
    If Me.Débito > 0 And Me.Débito <> Me.ValorParcela Then
    If MsgBox("O valor pago não corresponde ao valor em débito." & vbCr & vbCr & "Quer criar nova parcela com a diferença?", vbYesNo) = vbYes Then
    Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tbl_ContasAreceber")

    Rst.AddNew
    Rst("CodAutContaAreceber") = Me.CodAutContaAreceber
    Rst("Parcelas") = Me.Parcelas
    Me.Parcelas = Me.Parcelas
    Rst("ValorParcela") = Me.Débito
    Rst("DtVencimento") = Format(Me.DtVencimento, "dd-mm-yyyy")
    Rst("Débito") = CCur(Me.ValorParcela - Me.ValorPago)
    Rst.Update
    Set Rst = Nothing
    Me.ValorParcela = Me.ValorPago
    End If
    End If

    Me.Form.Recalc
    End Sub

    Estou enviando o bd junto

    Alguém pode me ajudar, agradeço.
    Anexos
    [Resolvido]Baixa Parcial e gerar parcela com restante AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 57 vez(es)
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Re: [Resolvido]Baixa Parcial e gerar parcela com restante

    Mensagem  marcelo marques 17/5/2017, 17:36

    boa tarde guedesgon eu uso este código no meu assim que estiver em casa dou uma olhada no seu e tento adaptar e retorno.

    como você pretende o novo parcelamento porque o meu se eu devo 100,00 e pago 50,00 ele cria outra parcela de 50,00

    avatar
    guedesgon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 17/04/2017

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Baixa Parcial e gerar parcela com restante

    Mensagem  guedesgon 17/5/2017, 19:05

    Oi Marcelo Marques, agradeço pela atenção.
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Re: [Resolvido]Baixa Parcial e gerar parcela com restante

    Mensagem  marcelo marques 17/5/2017, 22:11

    boa noite guedesgon veja este exemplo,
    veja se e isto que você quer

    bons estudo

    abraço
    avatar
    guedesgon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 17/04/2017

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Baixa Parcial e gerar parcela com restante

    Mensagem  guedesgon 18/5/2017, 09:07

    Perfeito é isso mesmo que eu quero. Obrigado pela ajuda.
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Re: [Resolvido]Baixa Parcial e gerar parcela com restante

    Mensagem  marcelo marques 18/5/2017, 09:23

    olá guedesgon obrigado pelo retorno se foi solucionado o problema dai como resolvido


    abraço
    avatar
    guedesgon
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 17/04/2017

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Baixa Parcial e gerar parcela com restante

    Mensagem  guedesgon 18/5/2017, 22:09

    Resolvido. Obrigado mais uma vez.
    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Re: [Resolvido]Baixa Parcial e gerar parcela com restante

    Mensagem  marcelo marques 19/5/2017, 07:23

    bom dia guedesgon obrigado e bons estudos
    avatar
    joede
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 03/03/2023

    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Re: [Resolvido]Baixa Parcial e gerar parcela com restante

    Mensagem  joede 3/4/2023, 11:33

    Republica a solução do problema. Por favor!

    Conteúdo patrocinado


    [Resolvido]Baixa Parcial e gerar parcela com restante Empty Re: [Resolvido]Baixa Parcial e gerar parcela com restante

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:57