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


    [Resolvido]Parcelamento de duplicatas

    lukdogdog
    lukdogdog
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 21/06/2012

    [Resolvido]Parcelamento de duplicatas Empty [Resolvido]Parcelamento de duplicatas

    Mensagem  lukdogdog Sáb 15 Mar - 21:51

    Olá pessoal do Forum.
    Mais uma vez recorro a vocês, a quem possa me ajudar num problema que venho enfrentando a algum tempo com o seguinte código para poder gerar parcelas.
    Tenho o seguinte código abaixo que gera duplicatas e cria datas de semana em semana ou mês em mês.
    A dúvida é a seguinte, teria a possibilidade de fazer alguma adaptação com o código para o usuario poder escolher qual será o dia do primeiro vencimento, e gerar faturas por exemplo de 14 em 14 dias
    Exemplo: Parcelamento 28/42/56 dias para pagar
    a compra foi feita hoje 15/03/2014 e o vencimento é 12/04/2014 , 26/04/2014 , 10/04/2014

    Dim I As Long
    Dim VALOR As Currency
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb '' Indico banco de dados atual
    Set rs = db.OpenRecordset("CONTASR") '' Abro a tabela de contas

    With rs

    For I = 1 To Me.Parcelas
    .AddNew
    !Pedido = Me.[CODVENDA]
    !Parcelas = Me.[Parcelas]
    !TCompra = Me.[VALORCOMPRA]
    !CODDOC = Me.[CODVENDA] & "-" & I
    '!DATA = DateAdd("m", I, Me.[DataVenda]) 'cria datas de 30 em 30
    !DATA = DateAdd("ww", I, Me.DataVenda) 'cria datas de 7 em 7 dias
    !CLIENTE = Me![CÓDCLIENTE]
    !VALOR = Me!Valortotal
    .Update
    Next
    End With
    db.Close

    Desde Já obrigado pela atenção
    lukdogdog
    lukdogdog
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 21/06/2012

    [Resolvido]Parcelamento de duplicatas Empty Re: [Resolvido]Parcelamento de duplicatas

    Mensagem  lukdogdog Ter 18 Mar - 5:19

    Alguém poderia me ajudar com algum outro procedimento se o método DateAdd não servir?
    lukdogdog
    lukdogdog
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 21/06/2012

    [Resolvido]Parcelamento de duplicatas Empty Re: [Resolvido]Parcelamento de duplicatas

    Mensagem  lukdogdog Qua 9 Abr - 18:11

    Para quem estiver com a mesma dúvida, achei um exemplo interessante feito pelo mestre JPaulo nesse tópico
    http://maximoaccess.forumeiros.com/t1556-resolvidodividir-um-valor-e-registrar-o-n-de-vezes-e-valo
    lukdogdog
    lukdogdog
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 21/06/2012

    [Resolvido]Parcelamento de duplicatas Empty Re: [Resolvido]Parcelamento de duplicatas

    Mensagem  lukdogdog Sex 29 Jul - 0:52

    .

    Conteúdo patrocinado


    [Resolvido]Parcelamento de duplicatas Empty Re: [Resolvido]Parcelamento de duplicatas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 28 Mar - 22:54