MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Compartilhe

    rogluz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/03/2016

    [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  rogluz em 3/5/2017, 16:07

    Bom dia!

    Preciso Gerar lançamentos de 15 dias em uma tabela que representa agendamentos de um cliente.

    Exemplo:

    Data atual 03/05/2017

    agendar ate o final de ano de 15 em 15 dias o mesmo registro duplicando.

    Um agendamento para o cliente copiando o atual.

    Não achei material de gerar lançamentos de 15 dias somente na função Dateadd ou tem dia, mes e ano mas quinzena não consegui.

    Alguém pode me ajudar?
    avatar
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 245
    Registrado : 16/12/2015

    Re: [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  pcnet em 3/5/2017, 22:57

    Boa noite,

    Creio que o exemplo do amigo Uilson Brasil faz aquilo que pretende.

    Link: [Você precisa estar registrado e conectado para ver este link.]

    Cumprimentos

    rogluz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/03/2016

    Re: [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  rogluz em 4/5/2017, 06:39

    Ola Pcnet!

    Agradeço a resposta e com certeza o exemplo poderá ser bem útil, porem para eu adaptar ao meu caso preciso visualizar o modulo
    e o mesmo não permite pedindo uma senha.

    Você por acaso sabe a senha para visualizar o modulo para eu saber o conteúdo da função?

    Agradeço
    avatar
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 245
    Registrado : 16/12/2015

    Re: [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  pcnet em 4/5/2017, 08:39

    Bom dia,

    Estive a verificar o exemplo e entrei em todos os módulos sem restrição.
    Onde lhe pediu senha?

    Cumprimentos

    rogluz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/03/2016

    Re: [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  rogluz em 4/5/2017, 12:09

    Bom dia!

    Ao entrar no formulário formparcelamento em modo design gostaria de ver o que o botão btnGerar " F2-Gerar Parcelas" esta executando ao clicar então
    vou no evento ao clicar.
    Quando clico para ver me pede uma senha e remete ao modulo SysParc(GeraParcelas2003), impossibilitando assim de ver o script de execução.

    Agradeço pelo retorno.
    avatar
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 245
    Registrado : 16/12/2015

    Re: [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  pcnet em 4/5/2017, 12:18

    Bom dia,

    No meu caso abro sem qualquer restrição.

    O código que se encontra no botão que referiu é este:
    Código:
    Private Sub btnGerar_Click()
    On Error Resume Next
    btFoco.SetFocus
    Dim Correct As Variant
    If txtContar > 1 Then
        MsgBox "As parcelas já foram geradas.", vbInformation, "Aviso"
        DoCmd.CancelEvent
    Else
        If MsgBox("Confirma a geração do parcelamento?", vbYesNo + vbDefaultButton1 + vbQuestion, "OrthOffice") = vbYes Then
            DoCmd.OpenForm "formProcesso"
            If IsNull(txtQuant) Or txtQuant = "" Or txtQuant = 0 _
            Or IsNull(txtData) Or txtData = "" _
            Or IsNull(txtValor) Or txtValor = "" _
            Or IsNull(txtInter) Or txtInter = "" Or txtInter = 0 Then
                Forms!formProcesso!imgExclamation.Visible = True
                Forms!formProcesso!imgOK.Visible = False
                Forms!formProcesso!info.Caption = "Verifique os campos..."
                Forms!formProcesso!info.ForeColor = 999
                Pause 1
                DoCmd.Close acForm, "formProcesso"
                txtQuant.SetFocus
                DoCmd.CancelEvent
            Else
                Forms!formProcesso!imgOK.Visible = True
                Forms!formProcesso!info.Caption = "Geração iniciada ..."
                Pause 1
                Dim DB As Database, rs As DAO.Recordset
                Correct = txtInter - 1
                'Dim ValorPac As Currency, i As Long
                Set DB = CurrentDb()
                Set rs = DB.OpenRecordset("tblExemplo") 'Abre a tabela
                For i = 1 To txtQuant  'Insere as Parcelas na tabela
                rs.AddNew
                rs("CPVALOR") = txtValor
                If intervMes = True Then
                    rs("CPDATA") = DateAdd("m", i - 1, txtData)
                ElseIf itervDias = True Then
                    rs("CPDATA") = DateAdd("d", (i - 1) * Correct, txtData)
                End If
                rs("COMPRA") = "Parcela " & i & " de " & txtQuant
                rs.Update
                Next
                rs.Close
                DB.Close
                Recalc
                Forms!formProcesso!info.Caption = "Parcelas geradas"
                Pause 2
                Forms!formProcesso!info.Caption = "Verificando vencimentos"
                Pause 1
                Forms!formProcesso!info.Caption = "Ajustando vencimentos"
                Pause 1
                'Ajustando data de vencimento (finais de semana)
                DoCmd.SetWarnings False
                If aSeg = True Then 'Ajusta data vcto para segunda-feira
                    DoCmd.OpenQuery "SabToSeg"
                    DoCmd.Close acQuery, "SabToSeg"
                    DoCmd.OpenQuery "DomToSeg"
                    DoCmd.Close acQuery, "DomToSeg"
                ElseIf aSex = True Then 'Ajusta data vcto para sexta-feira
                    DoCmd.OpenQuery "SabToSex"
                    DoCmd.Close acQuery, "SabToSex"
                    DoCmd.OpenQuery "DomToSex"
                    DoCmd.Close acQuery, "DomToSex"
                End If
                DoCmd.SetWarnings True
                Recalc
                Forms!formProcesso!info.Caption = "Processo concluído"
                Pause 1
                DoCmd.Close acForm, "formProcesso"
                Call Form_Current
            End If
        End If
    End If
    End Sub

    Cumprimentos

    rogluz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/03/2016

    Re: [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  rogluz em 5/5/2017, 02:32

    Perfeito!

    Consegui resolver com

    rs("Data") = DateAdd("d", (I - 1) * Correct, Me.DataInicial), onde Corrent e a variavel correspondente ao numero de dias e Me.DataInicial corresponde a data inicial de agendamento.

    Muitíssimo obrigado.



    avatar
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 245
    Registrado : 16/12/2015

    Re: [Resolvido]Como gerar parcelas de 15 dias em uma tabela de agendamento

    Mensagem  pcnet em 5/5/2017, 08:48

    Ótimo que tenha conseguido resolver (,")
    O forum agradece o seu feedback.

    Cumprimentos

      Data/hora atual: 14/11/2018, 11:52