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, 15: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 51 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 975
    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, 21: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, 23:05

    Oi Marcelo Marques, agradeço pela atenção.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 975
    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, 02: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, 13:07

    Perfeito é isso mesmo que eu quero. Obrigado pela ajuda.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 975
    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, 13: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 19/5/2017, 02:09

    Resolvido. Obrigado mais uma vez.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 975
    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, 11: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, 15: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: 13/4/2024, 10:44