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]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior.

    avatar
    Leaojo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 15/09/2016

    [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior. Empty [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior.

    Mensagem  Leaojo 26/3/2017, 00:09

    Boa noite, galera.

    Estou com uma pequena dificuldade ao gerar as parcelas no access, montei um formulário de pedido, com um botão para gerar as parcelas.
    No pedido tem, o valor total dos produtos, mais o valor do frete e imposto separado, ao clicar para gerar as parcelas, queira que o imposto ficasse somado na primeira parcelas, e o frete divido junto com o valor do produto.

    Segue o código que montei.

    Set db = CurrentDb()
           Set rs = db.OpenRecordset("Tb_ContasReceber") 'Abre a Tb_ContasReceber
           
           ' Avaliar o filtro antes ser passado para a função DLookup.
           strFiltro = "Código = " & Me!Txt_Cond_Pagto.Column(0)
           QuantParcelas = DLookup("N_Parcelas", "Tb_FormaPagamentos", strFiltro)
           
           ValorTotalVenda = Me.Txt_TotalProdutos + Me.Txt_Frete + Txt_ICMS
           ValorParcela = ValorTotalVenda / QuantParcelas 'Valor de cada parcela"
           
       For I = 1 To QuantParcelas 'Insere as parcelas na Tb_ContasReceber
           rs.AddNew
           rs("CódigoPedido") = Txt_Código
           rs("Parcelas") = I & "/" & QuantParcelas
           rs("Vlr_APagar") = ValorParcela
           rs("Especificacao") = "Nota Fiscal"
           rs("DataVencimento") = DateAdd("m", I, Me.Txt_Data) 'Calcula as datas de vencimento atraves da função DateAdd()
           rs.Update
       Next
       rs.Close
       db.Close


    Última edição por Leaojo em 26/3/2017, 17:44, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior. Empty Re: [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior.

    Mensagem  Alexandre Neves 26/3/2017, 15:07

    Boa tarde.
    Utilize
    Código:

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tb_ContasReceber") 'Abre a Tb_ContasReceber

    ' Avaliar o filtro antes ser passado para a função DLookup.
    strFiltro = "Código = " & Me!Txt_Cond_Pagto.Column(0)
    QuantParcelas = DLookup("N_Parcelas", "Tb_FormaPagamentos", strFiltro)

    ValorTotalVenda = Me.Txt_TotalProdutos + Me.Txt_Frete
    ValorParcela = ValorTotalVenda / QuantParcelas 'Valor de cada parcela"

    For I = 1 To QuantParcelas 'Insere as parcelas na Tb_ContasReceber
    rs.AddNew
    rs("CódigoPedido") = Txt_Código
    rs("Parcelas") = I & "/" & QuantParcelas
    if I=1 then
        rs("Vlr_APagar") = ValorParcela + Txt_ICMS
    else
        rs("Vlr_APagar") = ValorParcela
    end if
    rs("Especificacao") = "Nota Fiscal"
    rs("DataVencimento") = DateAdd("m", I, Me.Txt_Data) 'Calcula as datas de vencimento atraves da função DateAdd()
    rs.Update
    Next
    rs.Close
    db.Close


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Leaojo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 15/09/2016

    [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior. Empty Re: [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior.

    Mensagem  Leaojo 26/3/2017, 17:43

    Deu certo. Alexandre Neves.


    Muito obrigado.

    Conteúdo patrocinado


    [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior. Empty Re: [Resolvido]Como fazer, que ao gerar as parcelas a primeira parcela fique com o valor maior.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 19:32