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]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 5/1/2020, 11:49

    Prezados,

    Estou desenvolvendo uma funcionalidade para 'Estornar Venda' em um BD de controle de estoque e vendas de uma Livraria. Essa funcionalidade é acionada por um botão "EstornarVenda' no formulário 'Vendas', que possui um subformulário 'DetalheVenda'. O trecho de código VBA abaixo mostra o estorno sendo realizado (deleta todos os registros da Tabela 'DetalheVenda' para o código de Venda na tela e, após, deleta o próprio registro daquela Venda:

    If Resposta = vbOK Then
    'Exclui os registros de detalhe desta Venda sendo estornada
    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exclui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    Me.Requery
    End If

    A lógica está funcionando, pois todos os registros daquela venda foram excluídos. O problema está no comando 'Me.Requery', que está produzindo o erro de execução '3167 - Registro excluído'. Na tela os campos aparecem preenchidos com '#excluído'. Gostaria de saber como fazer para atualizar a tela, mostrando o registro de uma outra venda cadastrada (p/ex. a primeira ou a última).

    Obrigado.

    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 5/1/2020, 16:35

    Devo acrescentar que observei que esta mensagem de erro só ocorre quando se aciona o botão 'EstornarVenda' logo após uma nova venda ter sido gravada (o registro da nova venda ainda está na tela do formulário Vendas e seu subformulário 'DetalheVenda'. Se eu fecho o formulário e reabro, selecionando o registro dessa Venda e clicando em 'EstornarVenda', o programa funciona normalmente, deletando os registros desta Venda nas Tabelas 'Vendas' e 'DetalheVenda' e executando o comando 'Me.Requery' com sucesso (após o 'Requery', a tela apresenta o primeiro registro da Tabela 'Vendas').
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4608
    Registrado : 20/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Silvio em 6/1/2020, 11:14

    Boas.....


    Tente isso.

    If Resposta = vbOK Then
    'Exclui os registros de detalhe desta Venda sendo estornada
    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exclui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    End If

    DoCmd.GoToRecord , , acLast ' vai para o último registro da tua tabela. Retirado o comando me.requery da linha de código.









    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 6/1/2020, 15:26

    Prezado Silvio,

    Coloquei o comando que você sugeriu e retirei o 'Me.Requery', mas ainda não consegui que funcionasse. Não aparece mais a mensagem de 'Erro 3167 - Registro excluído' porém:

    1. Na tela do formulário 'Vendas' continua aparecendo o registro da Venda recém-estornada, mesmo com o comando 'DoCmd.GoToRecord , , acLast');
    2. Quando eu tento fechar o formulário 'Vendas' surge uma mensagem do Access 'Registro excluído';(os registros foram efetivamente deletados);
    3. Quando eu dou OK nessa mensagem do Access surge outra mensagem 'Não é possível salvar este registro agora. .........'. Tenho que responder OK para efetivamente fechar o formulário 'Vendas'.

    Assim, de algum modo, não estamos conseguindo posicionar o formulário 'Vendas' em um registro válido após o estorno. Abraços.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David em 6/1/2020, 17:44

    Boa tarde amigos,
    ao invés do requery após excluir, use refresh.

    Me.Refresh


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 6/1/2020, 21:13

    Prezado Marcelo David,

    Colocando o comando 'Me.Refresh', em vez de 'Me. Requery' continua a mensagem de erro '3167 - Registro excluído'.

    Abraços.
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2095
    Registrado : 13/04/2012

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Fernando Bueno em 6/1/2020, 21:36

    Boa tarde;

    Tenta compactar e reparar seu banco.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução 16rzeq
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 6/1/2020, 22:42

    Prezado Fernando Bueno,

    Tenho feito isso regularmente. Mas fiz a compactação e reparação do BD uma vez mais, sem eliminar o erro 3167.

    Abraços
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David em 7/1/2020, 02:13

    Poderia postar o banco para verificarmos?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4608
    Registrado : 20/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Silvio em 7/1/2020, 09:44

    Boas.....

    Coloque um tratamento de erro.

    Algo parecido com isso.
    on error goto fim

    If Resposta = vbOK Then
    'Exclui os registros de detalhe desta Venda sendo estornada
    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exclui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    End If

    fim:
    if err.number= 3167 then
    DoCmd.GoToRecord , , acLast
    end if


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 7/1/2020, 12:17

    Prezado Silvio,

    A inclusão de um tratamento de erro, como sugerido, evita a interrupção do código VBA no comando 'Me.Requery' (ou Refresh), mas na tela continua visível o registro excluído. Não aponta automaticamente para o último registro válido.
    Achei uma solução de compromisso que é um MsgBox informando que a Venda foi estornada com sucesso, seguido de um comando para fechar o formulário 'Vendas', conforme abaixo:

    If Resposta = vbOK Then

    strSQL = "DELETE FROM DetalheVenda WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError

    'Exlui o registro desta Venda
    strSQL = "DELETE FROM Vendas WHERE CodVenda = " & Me.CodVenda
    CurrentDb.Execute strSQL, dbFailOnError
    MsgBox ("Venda estornada com sucesso.")
    'DoCmd.Close

    End If

    Funciona bem. Como estornar uma Venda é uma operação não usual, basta o usuário reabrir o formulário 'Vendas' via botão do Painel de Navegação que fica sempre aberto ao iniciar o BD Access.

    Abraços e obrigado pelo interesse.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Assis em 7/1/2020, 12:32

    Boa tarde

    A tabela "Vendas" deve estar relacionada com a tabela "DetalheVenda" pelo campo "Codvenda".
    Se isso estiver a acontecer então basta executar o comando "DELETE" só na tabela "Vendas" que a relação automaticamente tem de anular na tabela "DetalheVenda".


    'Se CodVenda for numerico
    CurrentDb.Execute "DELETE * From Vendas Where [Codvenda]= " & Me.CodVenda

    Poste:
    Só estas duas tabelas e o formulário aonde tem o comando "Anular"




    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4608
    Registrado : 20/04/2011

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Silvio em 7/1/2020, 13:20

    Boas...

    Verdade mesmo, se houver um relacionamento um para muitos entre as tabelas e haver a propagação automática de exclusão, Assis está coberto de razão.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 8/1/2020, 06:00

    Prezados Assis, Silvio, Marcelo David e demais colegas do Forum MA,

    Realmente, a colocação do Assis permitiu simplificar o código da funcionalidade 'EstornarVendas' ao editar a relação entre as Tabelas 'Vendas' e 'DetalheVendas', inserindo a condição 'propagar exclusão dos registros relacionados'. Mas como o problema está na atualização do formulário 'Vendas' após o estorno ser feito com sucesso, decidi enviar o BD para avaliação de vocês (arquivo zipado anexo).

    No painel de navegação que abrirá automaticamente, cliquem no botão 'Nova Venda' ou 'Todas as Vendas' e, no formulário 'Vendas' que abrir, insiram alguns dados de uma nova Venda e, em seguida (sem clicar no botão 'ConcluirVenda'), cliquem no botão 'EstornarVenda'. O código VBA irá pedir confirmação e, após o OK, surgirá a mensagem 'Venda estornada com sucesso'. Eu retornei o código original, com o comando 'Me.Requery', que originou o erro '3167 - registro excluído' objeto desse Tópico que abri. Peço que avaliem o que pode estar acontecendo e se existe alguma solução para o erro que não exija o fechamento do formulário 'Vendas'.

    Peço que desconsiderem as evidencias de ser um projeto de BD Access de desenvolvedor amador, sem habilidades maiores com o VBA. É um projeto meu para doação a uma instituição de caridade de cunho espiritual, que possui livraria sem qualquer controle de estoque e vendas.

    De antemão, obrigado a todos pelo empenho em ajudar meu projeto.
    Anexos
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução AttachmentLivrariaNossoLar.zip
    BD do projeto, para avaliação do erro objeto deste Tópico
    Você não tem permissão para fazer download dos arquivos anexados.
    (183 Kb) Baixado 4 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Assis em 8/1/2020, 22:12

    Boa noite

    Teste e retorne
    Anexos
    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução AttachmentLivrariaNossoLar_Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (255 Kb) Baixado 6 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 9/1/2020, 12:18

    Prezado Assis,

    Para a funcionalidade 'Nova Venda' (preencher o formulário de uma nova venda e imediatamente clicar no botão 'EstornarVenda') eu continuo a obter a mensagem '3167 - Registro excluído'. Se eu fechar o formulário recém-preenchido com uma venda e abrir de novo, selecionando aquela venda, e clicar 'EstornarVenda' o erro não ocorre.

    Observei que a única modificação feita por você foi migrar o comando 'Me.Requery' para o final da Sub 'EstornarVenda'.

    Abraços.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4223
    Registrado : 06/11/2009

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Assis em 9/1/2020, 12:29

    Qual a versão do seu Office ?

    No meu Office 2013 32 não acontece aquilo que citou.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 9/1/2020, 14:15

    Office Professional Plus 2016

    Abraços.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David em 9/1/2020, 18:04

    Boa tarde,


    Abaixo dessa linha:
    Código:
    Dim strSQL As String
    ponha:
    Código:
    On Error Resume Next

    Apague o requey e e ponha isso:

    Código:
    SendKeys "{ESC}"
    NovaVenda_Click
    SendKeys "{F5}"
    DoEvents
    MsgBox ("Venda estornada com sucesso.")

    A MsgBox tem que está exatamente como pus.



    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 9/1/2020, 22:15

    Caro Marcelo David,

    A solução apresentada funcionou, eliminando o erro 3167. Gostaria de entender o que os comandos colocados realizam, antes de colocar o Tópico como 'Resolvido'.

    Observei, porém, que após a mensagem "Venda Estornada com sucesso", o Access limpa o formulário 'Vendas' e o subformulário 'DetalheVenda', preparando para uma nova Venda. Nesse formulário limpo, porém, a primeira ComboBox preenchível (Tarefeiro) está vazia, ou seja não apresenta a seleção de dados da Tabela 'Tarefeiros' para escolha. Como é campo obrigatório gera um impasse no preenchimento da 'Nova Venda'.

    Abraços, e obrigado pelo interesse
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David em 10/1/2020, 10:33

    Bom dia,
    Para a combo se manter com os itens para seleção, após essa linha:
    Código:
    DoEvents
    ponha essa:
    Código:
    Me.CodColab.Requery

    Segue o que as linha fazem:
    On Error Resume Next
    Como sugere o que está escrito, ao ocorrer algum erro, siga (pelo menos tenta) para a próxima linha sem interromper o procedimento

    SendKeys "{ESC}"
    Envio a tecla ESC do teclado. Como se fosse você clicando nela, isso desfaz a última ação ocorrida no registro
    NovaVenda_Click
    Executo o método do botão Nova Venda, para assim deixar o formulário preparado para tal
    SendKeys "{F5}"
    Envio a tecla F5 do teclado. Como se fosse você clicando nela, isso atualiza imediatamente o que estiver no formulário, retirando assim o texto #Excluído dos campos
    DoEvents
    Faz com que o sistema operacional execute outras tarefas na execução do código, no nosso caso, ele exibe a MsgBox e o Requery da Combo mesmo após ocorrer algum erro que não interrompa o fluxo do programa, pois estamos usando o On Error Resume Next.
    Me.CodColab.Requery
    Recarrega a combo buscando novamente os registros da SQL




    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    teremiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 30/12/2019

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  teremiro em 10/1/2020, 14:31

    Prezado Marcelo David,

    Finalmente posso considerar esse Tópico como resolvido.

    Obrigado pelo empenho na solução e pelas explicações sobre a mesma.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução Empty Re: [Resolvido]Comando 'Me.Requery' dando erro '3167 - Registro excluído' em tempo de execução

    Mensagem  Marcelo David em 10/1/2020, 15:34

    Ótimo que ficou a contento. O fórum agradece o retorno!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: 21/9/2020, 03:55