MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Feriados fixos e móveis

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty [Resolvido]Feriados fixos e móveis

    Mensagem  Ney Santos em 31/3/2014, 15:41

    Bom dia, sei que existem inúmeros exemplos de funções que mostram feriados.
    Ma oque estou precisando ´e uma coisa mais simples, gostaria que após o usuario digitar uma data
    o sistema lesse apenas o dia e o mes desse campo, ignorando o ano e se o resultado fosse um feriado
    uma msgbox sriaa disparada comunicando o evento.
    Exemplo: 25/12/2014 ( Natal )
    25/12 o vento seria informando.
    os feriado em e questão serão buscados através de um select case, inclusive os feriados municipais
    Alguem tem alguam idaia de como fazer isso?

    Obrigado
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Alexandre Neves em 31/3/2014, 19:59

    Boa tarde,
    Já abordamos várias vezes a questão. Procure aqui, no fórum


    .................................................................................
    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
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Ney Santos em 31/3/2014, 20:36

    AMIGO COMO DISSE NO INICIO DO TOPICO SEI QUE EXISTEM VARIAS FUNÇOES QUE TRATAM FERIADOS POREM ESTOU PRECISANDO DE UMA COISA MASI SIMPLES, E QUE NÃO SEI COMO ESVREVER NO VBA UMA MANEIRA DO CAMPO DATA VER APENAS O DIA EO MES..
    POR IISO POSTEI MINHA DUVIDA..
    OBRIGADO PELA ATENÇÃO.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Alexandre Neves em 31/3/2014, 20:38

    Reveja a sua mensagem

    REGRAS DO FÓRUM
    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.


    .................................................................................
    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
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Ney Santos em 31/3/2014, 20:56

    ops desculpe ai, pelo visto vc se ofendeu e essa não foi minha intenção, nao tinha percebido
    a caixa alta.. alem do que vc parece mais interessado em corrigir do que propiamente em ajudar..
    Administrador
    Administrador
    Administrador
    Administrador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 398
    Registrado : 02/11/2009

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Administrador em 31/3/2014, 21:33

    Sua barra de desrespeito baixou, por violação dos items 6 e 12 das regras do fórum.


    .................................................................................
    Admin
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Mal entendido

    Mensagem  Ney Santos em 1/4/2014, 14:17

    Prezado administrador.. mais uma vez venho pedir desculpas pela caixa alta
    Parece que ninguém leu o primeiro post, principalmente a primeira linha.
    Sei que existem varias funções para feriados...( eu já tinha pesquisado antes)
    Não entendi porque o Sr. Alexandre Neves ficou tão indignado com a caixa alta, no fim da mensagem ate agradeci a atenção dele.
    Agora se for para criar desconforto esse meu post, peço por gentileza que o mesmo seja retirado,
    afim de que não haja mais aborrecimentos por parte de vocês.
    Em outras ocasiões tive minhas duvidas sanadas através desse fórum. e sou muito grato.
    Quanto a questão dos feriados melhor deixar pra lá encontrarei uma maneira de resolver..
    Muito obrigado.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3676
    Registrado : 04/04/2010

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Avelino Sampaio em 1/4/2014, 14:21

    Ney,

    crie uma tabela e depois é só usar a função Dlookup() ou Dcount() para confrontar a data digitada com as datas da tabela. Creio que este seja o caminho mais simples.

    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Ney Santos em 1/4/2014, 14:30

    Prezado Avelino!
    Bom dia, baixo vou colocar uma parte de um código retirado aqui mesmo do fórum, e adaptado por mim..
    Private Sub CpDataAg_AfterUpdate()
    Dim FeriadoBrasileiro

    Select Case Format(CpDataAg, "dd-mm")
    Case "01-01"
    FeriadoBrasileiro = True
    NomeFeriado = "Confraternização Universal"
    Case "21-04"
    FeriadoBrasileiro = True
    NomeFeriado = "Tiradentes"
    Case "01-05"
    FeriadoBrasileiro = True
    NomeFeriado = "Dia do Trabalhador"
    Case "07-09"
    FeriadoBrasileiro = True
    NomeFeriado = "Independência do Brasil"
    Case "12-10"
    FeriadoBrasileiro = True
    NomeFeriado = "Nossa Senhora Aparecida"
    Case "02-11"
    FeriadoBrasileiro = True
    NomeFeriado = "Finados"
    Case "15-11"
    FeriadoBrasileiro = True
    NomeFeriado = "Proclamação da República"
    Case "20-11"
    FeriadoBrasileiro = True
    NomeFeriado = "Dia da Consciência Negra"
    Case "25-12"
    FeriadoBrasileiro = True
    NomeFeriado = "Natal"
    End Select
    Dim Mensagem
    Mensagem = "Cadastro de Tramitações"
    If FeriadoBrasileiro = True Then
    MsgBox CpDataAg & " é Feriado " & NomeFeriado
    Resposta = CpDataAg & " é " & NomeFeriado & vbCrLf & " O evento será agendado para " & vbCrLf & " Dia " & [CpDataAg] + 1


    DiaSemana = Weekday(CpDataAg)
    CpDataAg = [CpDataAg]
    If (DiaSemana = 1) Then
    Resposta = CpDataAg & " é Domingo, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & " Dia " & [CpDataAg] + 1
    MsgBox Resposta, 64, Mensagem
    CpDataAg = DateAdd("d", 1, CpDataAg)

    If (DiaSemana = 7) Then
    Resposta = CpDataAg & " é Sabado, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & "Dia " & [CpDataAg] + 2
    MsgBox Resposta, 64, Mensagem
    CpDataAg = DateAdd("d", 2, CpDataAg)
    End If

    Me.Texto.SetFocus
    End If
    End If
    Isso eu fiz ontem, mas não da o resultado esperado..
    A mensagem e disparada porém o campo CpDataAg, continua com a data digitada( ex. 25/12/14 - Natal)
    Não sei pq o resto da função não acontece ou seja, oque vem apos a msgbox: MsgBox CpDataAg & " é Feriado " & NomeFeriado
    que seria alterar a data para no caso 26/12/14, mas na hipótese do dia seguinte ser um sabado ou um domingo então agendar pra uma segunda feira..
    Espero ter sido claro..
    obrigado pela atenção
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Resolvido

    Mensagem  Ney Santos em 1/4/2014, 15:20

    Prezado Avelino!
    Resolvi a questão descobri o erro..
    Na verdade oque fiz foi pegar parte do c´digo e criar uma função:
    Tambem verifiquei que eu tinah esquecido de dizer que o campo com as data deveria ser acrescido de + 1 dia para mudar a data.
    Ficou então da da seguinte maneira:
    Primeirto a função criada:
    Function feriado()
    Dim FeriadoBrasileiro As Integer
    Select Case Format(CpDataAg, "dd-mm")
    Case "01-01"
    FeriadoBrasileiro = True
    NomeFeriado = "Confraternização Universal"
    Case "21-04"
    FeriadoBrasileiro = True
    NomeFeriado = "Tiradentes"
    Case "01-05"
    FeriadoBrasileiro = True
    NomeFeriado = "Dia do Trabalhador"
    Case "07-09"
    FeriadoBrasileiro = True
    NomeFeriado = "Independência do Brasil"
    Case "12-10"
    FeriadoBrasileiro = True
    NomeFeriado = "Nossa Senhora Aparecida"
    Case "02-11"
    FeriadoBrasileiro = True
    NomeFeriado = "Finados"
    Case "15-11"
    FeriadoBrasileiro = True
    NomeFeriado = "Proclamação da República"
    Case "20-11"
    FeriadoBrasileiro = True
    NomeFeriado = "Dia da Consciência Negra"
    Case "25-12"
    FeriadoBrasileiro = True
    NomeFeriado = "Natal"
    End Select
    If FeriadoBrasileiro = True Then
    MsgBox CpDataAg & " é Feriado " & NomeFeriado & vbCrLf & " O evento será agendado para " & vbCrLf & " Dia " & [CpDataAg] + 1
    CpDataAg = [CpDataAg] + 1
    Resposta = CpDataAg & " é " & NomeFeriado
    End If
    End Function


    Depois no evento Após Atualizar do campo:
    Private Sub CpDataAg_AfterUpdate()
    Call feriado

    Dim Mensagem
    Mensagem = "Cadastro de Tramitações"


    DiaSemana = Weekday(CpDataAg)
    CpDataAg = [CpDataAg]
    If (DiaSemana = 1) Then
    Resposta = CpDataAg & " é Domingo, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & " Dia " & [CpDataAg] + 1
    MsgBox Resposta, 64, Mensagem
    CpDataAg = DateAdd("d", 1, CpDataAg)

    If (DiaSemana = 7) Then
    Resposta = CpDataAg & " é Sabado, o evento" & vbCrLf & " será agendado para segunda-feira" & vbCrLf & "Dia " & [CpDataAg] + 2
    MsgBox Resposta, 64, Mensagem
    CpDataAg = DateAdd("d", 2, CpDataAg)

    End If

    Me.Texto.SetFocus
    End If

    End Sub
    Com isso dou pro resolvido o post
    Obrigado..
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Ney Santos em 1/4/2014, 15:44

    Obrigado!
    Porem acabei de me depara com uma coisa , os feriados que não tem data fixa.
    Por exemplo:
    18/04/14 - sexta feira santa.
    Pensei na sua ideia de criar uma tabela, mas como fazer o sistema localizar um feriado que não tem dia fixo..?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Alexandre Neves em 1/4/2014, 22:24

    Boa noite,
    Para feriados móveis, tem de criar código.
    Para o caso que mencionou, utilize
    Function Pascoa(intAno As Integer) As Date
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Dim X As Byte, y As Byte
    Dim a As Byte, B As Byte, C As Byte, D As Byte, e As Byte

    If intAno > 1581 And intAno < 1600 Then X = 22: y = 2
    If intAno > 1599 And intAno < 1700 Then X = 22: y = 2
    If intAno > 1699 And intAno < 1800 Then X = 23: y = 3
    If intAno > 1799 And intAno < 1900 Then X = 23: y = 4
    If intAno > 1899 And intAno < 2000 Then X = 24: y = 5
    If intAno > 1999 And intAno < 2100 Then X = 24: y = 5
    If intAno > 2099 And intAno < 2200 Then X = 24: y = 6
    If intAno > 2199 And intAno < 2300 Then X = 25: y = 7

    a = intAno Mod 19
    B = intAno Mod 4
    C = intAno Mod 7
    D = ((19 * a) + X) Mod 30
    e = ((2 * B) + (4 * C) + (6 * D) + y) Mod 7
    If (D + e) < 10 Then
    Pascoa = DateSerial(intAno, 3, D + e + 22)
    Else
    Pascoa = DateSerial(intAno, 4, D + e - 9)
    End If
    If Pascoa = DateSerial(intAno, 4, 26) Then Pascoa = DateAdd("d", -7, Pascoa)
    If Pascoa = DateSerial(intAno, 4, 25) And D = 28 And a > 10 Then Pascoa = DateAdd("d", -7, Pascoa)
    End Function

    Function SextaFeiraSanta(ByVal intAno As Integer) As Date
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' código criado por Alexandre Neves, do Fórum MaximoAccess '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    SextaFeiraSanta = DateAdd("d", -2, Pascoa(intAno))
    End Function


    .................................................................................
    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
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Ney Santos em 1/4/2014, 23:13

    Prezado Alexandre, e como vou chamar essa função?
    Ela deve ser executado no evento após atualizar do campo..
    Qual seria a forma de executa-la?

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3676
    Registrado : 04/04/2010

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Avelino Sampaio em 2/4/2014, 00:01

    Desculpa pela demora.

    segue o projeto completo.

    Baseado no cálculo da Páscoa, conforme o Alexandre apresentou, podemos calcular o carnaval e o Corpo de Cristo.  

    usei recursividade (chamar a própria função dentro da função) para reavaliar a data quando esta é alterada por cair em finais de semana e feriados.

    Public Function fncAjustaData(dataInformada As Date, Optional status As Boolean) As Date
    Dim k, F, j%, NovaData As Date
    Static feriado
    feriado = IIf(status = True, Null, feriado)
    k = Split(fncFeriadosMoveis(Year(dataInformada)) & ",0101,0421,0501,0907,1012,1102,1115,1120,1225", ",")
    F = Split("Carnaval,Sexta Santa,Corpus Crist,Confraternização Universal,Tiradente,Dia do Trabalhador,Independência do Brasil,Nossa Senhora Aparecida,Finados,Proclamação da República,Dia da Consciência Negra,Natal", ",")
    NovaData = dataInformada
    For j = 0 To UBound(k)
       If k(j) = Format(dataInformada, "mmdd") Then
           NovaData = dataInformada + 1
           feriado = "feriado (" & F(j) & ")"
           Exit For
       End If
    Next
    If Weekday(NovaData) = 7 Then
       NovaData = NovaData + 2
       feriado = "Sábado"
    End If
    If Weekday(NovaData) = 1 Then
       NovaData = NovaData + 1
       feriado = "Domingo"
    End If
    If NovaData <> dataInformada Then NovaData = fncAjustaData(NovaData)
    If (NovaData = dataInformada) And Not IsNull(feriado) Then MsgBox "Esta data cairá no " & feriado & vbCrLf & vbNewLine & "Será reagendado para: " & NovaData & " (" & WeekdayName(Weekday(NovaData)) & ")", vbInformation, "Aviso"
    fncAjustaData = NovaData
    End Function

    -------------------------------------------------

    Public Function fncFeriadosMoveis(ano%) As String
    Dim dt_Pascoa As Date
    Dim dt_Carnaval As Date
    Dim dt_SextaSanta As Date
    Dim dt_CorpusC As Date
    Dim A%, B%, C%, D%, E%, F%, G%, H%, I%, k%, L%, M%, P%, Q%
    A = (ano Mod 19)
    B = Int(ano / 100)
    C = (ano Mod 100)
    D = Int(B / 4)
    E = (B Mod 4)
    F = Int((B + 8 )/ 25)
    G = Int((B - F + 1) / 3)
    H = ((19 * A + B - D - G + 15) Mod 30)
    I = Int(C / 4): k = (C Mod 4)
    L = ((32 + 2 * E + 2 * I - H - k) Mod 7)
    M = Int((A + 11 * H + 22 * L) / 451)
    P = Int((H + L - 7 * M + 114) / 31)
    Q = ((H + L - 7 * M + 114) Mod 31)

    dt_Pascoa = CDate((Q + 1) & "/" & P & "/" & ano)
    dt_Carnaval = DateAdd("d", -47, dt_Pascoa)
    dt_SextaSanta = DateAdd("d", -2, dt_Pascoa)
    dt_CorpusC = DateAdd("d", 60, dt_Pascoa)

    fncFeriadosMoveis = Format(dt_Carnaval, "mmdd") & "," & Format(dt_SextaSanta, "mmdd") & "," & Format(dt_CorpusC, "mmdd")
    End Function


    Sucesso!
    Anexos
    [Resolvido]Feriados fixos e móveis Attachmentney.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 83 vez(es)


    Última edição por Avelino Sampaio em 2/4/2014, 08:45, editado 4 vez(es)


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.

    crysostomo gosta desta mensagem

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Ney Santos em 2/4/2014, 01:26

    cheers  prezado Avelino.
    oque dizer show de bola, incrível sensacional,
    testei e funcionou perfeitamente, junto coma outra função do própio Alexandre- cham,ada feriados brasileiros que peguei aqui mesmo no forum,
    pude incrementar incluindo tambem 2 feriados municipais aqui da minha cidade, O aniversário e tambem o dia do Padroeiro da cidade.
    Agora so falta eu criar coragem de migrar pro 2007 e tentar aprender usar o monta ribons
    que comprei a meses e ate´hoje não consegui usar rss..
    A voce e ao Alexandre meu muito obrigado..
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3676
    Registrado : 04/04/2010

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  Avelino Sampaio em 2/4/2014, 08:50

    Obrigado pelo feedback e sucesso!


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1461
    Registrado : 23/01/2018

    [Resolvido]Feriados fixos e móveis Empty Re: [Resolvido]Feriados fixos e móveis

    Mensagem  crysostomo em 16/11/2020, 23:55

    Que exemplo espetacular cheers


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 28/11/2020, 02:41