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]Parcelas dias úteis

    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 11/01/2018

    [Resolvido]Parcelas dias úteis Empty [Resolvido]Parcelas dias úteis

    Mensagem  Anslu em 3/2/2020, 20:14

    Boa Tarde! Venho pedir a ajuda de vocês. Tenho um formulário que gero parcelas com este código. Só que preciso que ele gere as parcelas e retire os sábados e domingos, ficando somente dias úteis.

    Desde já agradeço toda a ajuda que tenho adquirido neste forum!

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber
           ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela
       
       For I = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
           rs.AddNew
           rs("Cod_Lançamento") = Me.Cod_Lance
           rs("NumCheque") = "0" & I & "/" & Me.QtdeParcelas
           rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
           rs("VencCheque") = DateAdd("d", I - 1, Me.txtDt_1Parcela) 'Calcula as datas de Vencto através da função DateAdd()
           rs("DataLanc") = Me.txtDataLanc
           rs("Taxa") = Me.txtTaxa
           rs.Update
       Next
       rs.Close
       db.Close
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 174
    Registrado : 26/11/2013

    [Resolvido]Parcelas dias úteis Empty Re: [Resolvido]Parcelas dias úteis

    Mensagem  delsonk em 3/2/2020, 20:26

    Boa tarde!
    Veja uma forma de solucionar essa questão neste tópico que ajudei a resolver:

    https://www.maximoaccess.com/t33895-resolvidoparcelas-diarias#232447

    Espero que lhe ajude!

    Att, Delson
    avatar
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 11/01/2018

    [Resolvido]Parcelas dias úteis Empty Re: [Resolvido]Parcelas dias úteis

    Mensagem  Anslu em 4/2/2020, 13:36

    Bom dia! Fiz desta forma mais continua gerando com sábado e domingos.

    Obs: Parcelas diárias

    Dim dtVencimento As Date
    Set db = CurrentDb()
       Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber
           ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela
       
       For I = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
           rs.AddNew
           rs("Cod_Lançamento") = Me.Cod_Lance
           rs("NumCheque") = "0" & I & "/" & Me.QtdeParcelas
           rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
           dtVencimento = DateAdd("d", I - 1, Me.txtDt_1Parcela)
           If Weekday(dtVnecimento) = 7 Then
             dtVencimento = DateAdd("d", -1, dtVencimento)
           ElseIf Weekday(dtVnecimento) = 1 Then
             dtVencimento = DateAdd("d", 1, dtVencimento)
           End If
           rs("VencCheque") = dtVencimento
           rs("DataLanc") = Me.txtDataLanc
           rs("Taxa") = Me.txtTaxa
           rs.Update
       Next
       rs.Close
       db.Close
       Me.frm_LancChequeDetSub.Requery  'Atualiza o SubForm
       Me.btn_Diário.enabled = False
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Parcelas dias úteis Empty Re: [Resolvido]Parcelas dias úteis

    Mensagem  Alexandre Neves em 4/2/2020, 19:46

    Boa noite
    Será porque não tem a opção Option Explicit e está a trabalhar com variáveis que não existem
    Código:
    Dim dtVencimento As Date
    Set db = CurrentDb()
      Set rs = db.OpenRecordset("tbl_LancChequeDet") 'Abre Tbl_ContasAreceber
          ValorCheque = Me.txtTotalRecebe / Me.QtdeParcelas 'Valor de cada Parcela
     
      For I = 1 To Me.QtdeParcelas  'Insere as Parcela na Tbl_ContasAreceber
          rs.AddNew
          rs("Cod_Lançamento") = Me.Cod_Lance
          rs("NumCheque") = "0" & I & "/" & Me.QtdeParcelas
          rs("ValorCheque") = Me.txtTotalRecebe / Me.QtdeParcelas
          dtVencimento = DateAdd("d", I - 1, Me.txtDt_1Parcela)
          If Weekday(dtVencimento) = 7 Then
            dtVencimento = DateAdd("d", -1, dtVencimento)
          ElseIf Weekday(dtVencimento) = 1 Then
            dtVencimento = DateAdd("d", 1, dtVencimento)
          End If
          rs("VencCheque") = dtVencimento
          rs("DataLanc") = Me.txtDataLanc
          rs("Taxa") = Me.txtTaxa
          rs.Update
      Next
      rs.Close
      db.Close
      Me.frm_LancChequeDetSub.Requery  'Atualiza o SubForm
      Me.btn_Diário.enabled = False


    .................................................................................
    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
    Anslu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 11/01/2018

    [Resolvido]Parcelas dias úteis Empty Re: [Resolvido]Parcelas dias úteis

    Mensagem  Anslu em 4/2/2020, 20:43

    Muito Obrigado!

    Conteúdo patrocinado

    [Resolvido]Parcelas dias úteis Empty Re: [Resolvido]Parcelas dias úteis

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/2/2020, 11:21