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


4 participantes

    Atualizar alguns campos da tabela

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Atualizar alguns campos da tabela

    Mensagem  fabioavila 15/1/2024, 19:00

    Boa Tarde ,

    Tenho tabela chamada: importacao com os campos: ASSOCIADO , VENCIMENTO, VALOR PAGO e NUMERO TITULO e outra tabela chamada: pagamentos com os campos: CLIENTE, Dt_Vencimento, Valor_Pago e Dt_Pgt

    Minha dúvida é é possivel eu fazer uma varredura na tabela importacao e atualizar para a tabela pagamentos somente os campos : Valor_Pago e Dt_Pgt ou seja vai na tabela importacao e verifica se o Joao Abreu fez o pagamento e trazer os dados do Joao Abreu (VALOR PAGO e Dt_Pgt ) para a tabela pagamentos

    Entenderam minha dúvida

    Arr
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 15/1/2024, 19:28

    Olá Fábio!

    Você pergunta se é possível fazer uma consulta. Sim. Seria bom postar a parte do BD com as tabelas pera facilitar a resolução. Qual o relacionamento das tabelas? Associado de uma tabela é o mesmo que Cliente da outra? Na primeira tabela não tem Dt_Pgt para gravar na outra. Essa segunda tabela será criada a partir dessa consulta? Qual o motivo de duas tabelas se você pode colocar a Dt_Pgt na primeira tabela e trabalhar com uma tabela ou tem outros motivos que justifiquem isso? Esse Dt_Pgt colocado na primeira tabela seria o diferencial se foi pago ou não.

    Fico no aguardo

    Abraços
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabiopavila 16/1/2024, 02:31

    Ola

    Segue o Bd, lembrando que os dados da tabela importacao são importados de uma planilha do Excel para ela.
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  Attachmentimportacao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (65 Kb) Baixado 11 vez(es)
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 16/1/2024, 09:30

    Grande Fábio!

    Veja código no anexo para adaptar aos campos das tabelas enviadas. Ler tabela TbImportacao, verifica se campo de pagamento está preenchido. Se sim considera pago para ser transferido para TbPagamentos. Na transferência para TbPagamentos é verificado se Cliente/Associado já possui em determinada data de vencimento. Se já existe é pelo fato de já ter sido feito a transferência e evitar duplicar os registros. Tudo feito com as descrições do seu post original. As suas tabelas enviadas mudaram totalmente seus conteúdos/campos do que havia sido descrito originalmente. De onde vem os registros dessa sua tabela TbPagamentos? Código funciona perfeitamente é só adaptar aos seus novos campos.

    Abraços
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentTbImportação.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (71 Kb) Baixado 13 vez(es)
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabiopavila 16/1/2024, 23:46

    Ola Tudo Bem ,

    Os dados da Tabela TbPagamentos são gerados apartir do meu formulario de parcelamento , vou testar o seu arquivo e te retorno.

    Desde ja agredeço pela atenção

    Att
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabiopavila 17/1/2024, 01:10

    Olá,

    Fiz um teste aqui com novo nome mas não ta atualizando a tabela TbPagamentos abaixo como estão os dados nas tabelas.
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  Attachmenttabela.gif
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 12 vez(es)
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 18/1/2024, 13:23

    Grande Fábio!

    Fiz um teste com o mesmo registro (mesmos dados) que você incluiu na TbImportacao e executou/atualizou perfeitamente na tabela TbPagamentos. Verifique direitinho.

    Abraços
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentJanelaFábio.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (12 Kb) Baixado 6 vez(es)
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 18/1/2024, 14:24

    Enviando imagem correta.

    Abraços

    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentFábioTbPagamentos.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 5 vez(es)
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabiopavila 20/1/2024, 23:49

    Ola Tudo bem

    Realmente não atualiza kkkk to anexando o bd com as informações para ver se fiz algo de errado kkk

    Abraços
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentSistema Exemplo Kinho.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 11 vez(es)
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 21/1/2024, 14:35

    Olá Fábio!

    Acabei de executar o DB que você enviou e ficou tudo perfeito. Você está executando o código que é chamado pelo botão do formulário FrmExecutar? Tem alguma coisa errada nessa informação.

    Abraços
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentTbPagamentos.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 3 vez(es)
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabiopavila 21/1/2024, 18:00

    Ola tudo bem

    Estou clicando no botao Executar Código sim , precisa de alguma referência pra funcionar?

    Obrigado
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 21/1/2024, 18:28

    Caro Fábio!

    Não tenho ideia do que está acontecendo. Criei mais três botões para você testar. Um dos botões apaga conteúdo da tabela TbPagamentos. Os outros gravam registros na TbPagamentos com códigos bem parecidos. Verifica se funciona. Não tem sentido funcionar aqui e aí não funciona. Executa o quarto botão e em seguida o terceiro código e diz o que aconteceu.

    Abraços
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentSistema Exemplo TRÊS BOTÕES.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (70 Kb) Baixado 12 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Marcelo David 22/1/2024, 19:09

    Olá senhores.
    Pode ser que o Windows/Access bloqueou o VBA do arquivo accdb. Então, renomeio o arquivo e desbloqueie ele, se necessário.
    Ah casos que é necessário desbloquear com botão direito do mouse sobre o arquivo e marcar a opção Desbloquear e após, habilitar as macros.


    .................................................................................
    atualizar automaticamente - Atualizar alguns campos da tabela  Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    atualizar automaticamente - Atualizar alguns campos da tabela  Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    atualizar automaticamente - Atualizar alguns campos da tabela  Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    atualizar automaticamente - Atualizar alguns campos da tabela  Marcel11
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabioavila 22/1/2024, 19:45

    Ola Finformática

    Então fiz um teste se zerar a Tabela TbPagamentos e clicar no em seguida o terceiro código ele importa os dados da tabela TbImportacao para TbPagamentos, outro teste que fiz se inserir um novo registro na TbImportacao e clicar no terceiro código ele importa também esse registro para a TbPagamentos , mas se por exemplo estiver o registro na tabela TbImportacao ex:

    Associado Vencimento Valor_Pago Num_Titulo
    Zezinho da Mucama 20/04/2022 R$ 500,00 1500


    e na tabela TbPagamentos estiver ex:

    Cliente Dt_Vencimento Valor_Pago Dt_Pagto
    Zezinho da Mucama 20/04/2022

    Ele não importa o Valor Pago para a tabela e nem a Dt_Pgto para o Rgeistro Zezinho da Mucama.

    Att
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 23/1/2024, 02:29

    Que bom que executou. Reveja a mensagem 4 os critérios. Se já existe o mesmo associado com mesma data, qual o motivo que vai copiar novamente. Está fazendo tudo corretamente de acordo com os critérios passados por você. Verifique direitinho.

    Abraços


    Última edição por Finformática em 23/1/2024, 15:33, editado 1 vez(es)
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 23/1/2024, 02:46

    Grande Marcelo!

    Muito grato por suas instruções. Muito válido.

    Abraços

    Marcelo David gosta desta mensagem

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabioavila 24/1/2024, 13:08

    Ola tudo bem

    Se já existe o mesmo associado com mesma data, qual o motivo que vai copiar novamente ? Não é copiar o Associado novamente acontece eu preciso que o criterio verifique na Tabela TbImportacao se exemplo apenas o Joao pagou caso sim ele pega o Valor_Pago atualiza na tabela TbPagamentos apenas os campos Valor_Pago e Dt_Pgto(data do dia) do Joao.

    Entendeu?
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 24/1/2024, 16:39

    Caro Amigo!

    Isso o código já faz. Baseado em seus critérios:
    Ler tabela TbImportacao, verifica se campo de pagamento está preenchido. Se sim, considera pago para ser transferido para TbPagamentos. Na transferência para TbPagamentos é verificado se Cliente/Associado já possui em determinada data de vencimento. Se já existe é pelo fato de já ter sido feito a transferência e evitar duplicar os registros. Quando é gerada tabela TbPagamentos? Mande as duas tabelas com registros reais e relacionamentos entre elas para fazer uma análise melhor. Essa sua tabela de Importacao, como é criada? Você importa os dados de planilha Excel manualmente? Depois de importar e mandar para TbPagamentos a tabela de Importacao é apagada. É deletado só os registros para nova importação? Que critérios são usados para essa tabela de importacao? Quando você faz a importação dos registros da planilha Excel o associado já existe na tabela Pagamentos? Envia tabelas e relacionamentos.

    Abraços
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabioavila 26/1/2024, 16:36

    Boa Tarde,

    Ao menos que esteja fazendo algo diferente de você no meu computador ele não esta funcionando .independente de como é importado a tabela importação teria que funcionar com so dados ficiticios não concorda ?

    Acabei de baixo o seu arquivo Sistema Exemplo TRÊS BOTÕES.zip e apaguei os dados da 2 ultimas colunas do Cliente Macumba :

    Cliente Dt_Vencimento Valor_Pago Dt_Pagto
    Macumba 23/03/2020

    Ao Clicar no botão não teria que buscar os dados na tabela importacao e atualizar essas 2 colunas vazias(Valor_Pago Dt_Pagto) na tabela TbPagamentos visto que ambas estão vazias e existem o mesmo nome Macumba ?

    Associado Vencimento Valor_Pago Num_Titulo
    Macumba 20/03/2023 R$ 8.888.888,00 88
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 26/1/2024, 20:31

    Caro Fábio!

    Inicialmente observei os nomes fabioavila e fabiopavila. Um Novato e outro Avançado. É um mesmo membro?
    Agora fiz o inverso baseado nas suas tabelas. Considerando que primeiro você obtêm os dados na TbPagamentos. Então ler TbPagamentos, verifica se existe associado e vencimento na TbImportacao, se sim, atualiza campos da TbPagamentos. Veja se ajuda.

    Abraços
    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentTbImportação ler TbPagamentos com DOIS BOTÕES.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 5 vez(es)
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 30/1/2024, 20:12

    Fábio!

    Alguma evolução?

    Abraço
    avatar
    fabiopavila
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 26/12/2022

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabiopavila 7/2/2024, 01:26

    Ola Tudo bem ,

    Agora funcionando como eu preciso só que mais uma duvida ele so vai funcionar se o campo CLIENTE da tabela TbImportacao estiver vindo da Tabela tbl_Clientes ?

    Att
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 7/2/2024, 13:11

    Olá!

    Acredito que sim. Como é o relacionamento de suas tabela? Acho que Cliente da Tabela de Clientes deve está relacionado com Cliente da Tabela de Pagamentos e por sua vez com Cliente da tabela de Importacao. Acredito ser assim, pela lógica. Acho que primeiro você cadastro o cliente na tabela de Clientes, consequentemente tem que existir nela para fazer o relacionamento com as outras. Será assim?

    Abraços
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabioavila 9/2/2024, 04:03

    Olá Finformática

    Código ficou show de bola funcionou porém minha ultima dúvida digamos que eu importe os dados da tabela TbImportacao de outra uma tabela ou planilha percebi que ele só funciona se eu selecionar o NOME DO PAGADO manualmente ou se copiar e colar a linha toda da outra tabela e se esse nome vier direto de outra tabela usando uma Consulta de Atualização por exemplo ele não atualiza os dados do registro na tabela TbPagamentos tem como fazer isso ou não ?
    Finformática
    Finformática
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1098
    Registrado : 23/03/2010

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Finformática 9/2/2024, 14:59

    Olá!

    Não sei como você faz a importação dessa sua tabela TbImportacao. Se entendi direito a sua dúvida, o importante é que os nomes dos campos sejam exatamente como você mencionou aqui. Nomes de tabelas e campos do mesmo modo que você descreveu. Não entendi o que vc fala de Nome Pagado. Não tem que copiar / colar nada. Clicou no botão ele executa. Verifica o que já foi feito e só faz onde não foi feito. Verifique direitinho os códigos. Está bem detalhado cada posso a ser executado.
    Conforme já citei acima algumas vezes, acho que você começa na tabela de Cliente, depois tabela de Pagamentos e por fim a tabela de Importação. Basta executar o código. Não entendo perfeitamente a sua dúvida. O sistema é seu e eu que estou dizendo para você como ele funciona. Tem algum passo diferente do que já mencionei? Detalhe o passo a passo do funcionamento desse DB. O que está faltando? Detalhe sua dúvida e anexa aqui o que você tem desse DB com dados reais.

    Abraços
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  fabioavila 10/2/2024, 02:32

    Olá Finformática

    Segue o arquivo como falei anteriormente ficou funcionando tudo certinho é que agora surgiu outra possibilidade de importar os dados para essa Tabela TbImportados.

    Foi criado um botão Importar Dados no Formulário FrmExecutar para pegar os dados da tabela TbImportados e transferir para a tabela TbImportacao mas se fizer isso quando eu clico no Botão Atualizar Pagamentos ele não copia os registros que transfeir para a Tabela TbPagamentos , agora se eu fizer de forma manual abrir a tabela TbImportados selecionar todos os registros CTRL+C e ir na Tabela TbImportacao e dar o Ctrl+V e em seguida abrir o Formulario FrmExecutar e clicar no Botão Atualizar Pagamentos ele atualiza os dados para a Tabela TbPagamentos ou seja usando o comando não da certo os dados que importei lembrando que se eu ir na tabela TbImportacao e digitar e depois clicar no Botão Atualizar Pagamentos funciona perfeito ok..

    Entendeu ?

    Anexos
    atualizar automaticamente - Atualizar alguns campos da tabela  AttachmentTbImportação.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (99 Kb) Baixado 5 vez(es)

    Conteúdo patrocinado


    atualizar automaticamente - Atualizar alguns campos da tabela  Empty Re: Atualizar alguns campos da tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 21:40