Ir para conteúdo
  • Cadastre-se

Edevair Viesa Junior

Membros
  • Total de ítens

    377
  • Registro em

  • Última visita

Tudo que Edevair Viesa Junior postou

  1. Juliomar Marchetti existem algumas situações que a simpels consulta não resolve o problema. Por exemplo, se na hora de devolver a NFe assinada e acatada existe por exemplo a perda da conexão (pode ocorrer por conta da operadora de internet) com o servidor do Sefaz, não temos o .XML autorizado no disco, pois o mesmo não foi retornado. Tentei também diversas vezes resolver este problema e até hoje não consegui. Se alguém souber como fazer seria ótimo ! Neste caso ficaria sem a NFe guardada no disco do cliente. Aí é necessário fazer tudo manualmente desde o download do arquivo .xml autorizado quanto as considerações no sistemas. Não é mesmo possível fazer o download automático do XML emitido pela empresa e com o mesmo certificado da emissão ??
  2. Boa tarde. Eu atualizei os fontes e fiz os procedimento informado pelo Daniel Simões onde excluo o uso da Capicom no meu sistema. Porém depois desta alteração, fica intermitente a apresentação da mensagem do webservices sendo apresentada em branco ao enviar o arquivo XML para a SEFAZ. Debugando ví que o erro acontece no método Enviar da Unit ACBrNFe.PAS, na linha : Result := WebServices.Envia(ALote, Sincrono); Dentro de : function TACBrNFe.Enviar(ALote : String; Imprimir : Boolean; Sincrono: Boolean) : Boolean; Neste momento a mensagem apresentada em anexo e aí dá uma exception. Como resolvo o problema ?
  3. Sim Juliana, entendi e realmente funcionou. Porém vale salientar que este problema ocorre somente com a remessado Itaú, os outros bancos estão funcionando corretamente. Muito Obrigado !
  4. Não entendí.. Não é o que estou fazendo ??? Você me sugere trocar de posição as informações de Cedente e Banco ??? Pq funciona as remessas do Bradesco, Banco do Brasil e Sicred ?? Só do Itaú não funciona. Sugere que faça assim : Result := true try with l_acbr_boleto do begin with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; Seria isso ??
  5. Estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração : Segue a forma como estou informando os dados : Result := true try with l_acbr_boleto do begin with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...
  6. Boa tarde. Segue : Result := true try with l_acbr_boleto do begin with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...
  7. Boa noite, pessoal estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração :
  8. Daniel o "Use a força, leia os fontes..." foi o melhor.. Rssssss Me matei de rir aqui... Realmente sou preguiçoso nestas questões, o que não deveria ser. Cara muito obrigado ! Funcionou direitinho. Era a Natureza da Operação mesmo, porém te pergunto coloquei 1 para natureza da operação, onde consigo estes códigos (números da natureza da operação a serem usados aqui), tentei ver nos fontes e não consegui achar nada sobre isso. Outra coisa, aceita em todos os municípios esta emissão ??? Fiz o teste emitindo com o código de município de São Caetano do Sul, porém por exemplo se eu emitir pra São Paulo ou então Tatuí vai funcionar ?? Muitíssimo obrigado ! Junior
  9. Juliomar, novamente muito obrigado pela resposta. Fiz exatamente como me falou e mesmo assim não rodou. Inclusive neste mesmo micro já tinha instalado, só atualizei. Aí mãos à obra, e compilei os pacotes separados, como era no início do projeto ACBr e eis que achei o problema. Na unit ACBrNFe, no método NotasFiscais.Items[0].Imprimir; falta o parâmetro (l_impresso : boolean). Inclui True como parâmetro e aí compilou, o mesmo aconteceu em ACBrECFVirtualNFCe (linhas 707, 710 e 730) no mesmo método, também corrigi e funcionou. Será que meus arquivos estão errados ???? Sabe dizer o que é este parâmetro ??? Junior
  10. Primeiramente, muito obrigado pela resposta. Certo, pelo que eu entendi então pelo ACBR não consigo gerar o XML com os dados de itens de serviço, é isso ? O que acontece é que mesmo usando os comandos contidos no ACBrSAT: ISSQN.vBC := v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_QTD_PRODUTO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat;ISSQN.vAliq := v_client_AL0100.FieldByName('C_PERC_ALIQUOTA_ISS').AsFloat;ISSQN.cMunFG := g_num_municipio_servicos; O .XML gerado pelo componente SAT do ACBr gera o xml como abaixo : <CFe> <infCFe versaoDadosEnt="0.07"> <ide> <CNPJ>16716114000172</CNPJ> <signAC>SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT</signAC> <numeroCaixa>001</numeroCaixa> </ide> <emit> <CNPJ>08723218000186</CNPJ> <IE>149626224113</IE> <IM>741685-65</IM> <cRegTribISSQN>1</cRegTribISSQN> <indRatISSQN>S</indRatISSQN> </emit> <dest> </dest> <det nItem="1"> <prod> <cProd>3025400000006</cProd> <xProd>TESTE</xProd> <NCM>99999999</NCM> <CFOP>5933</CFOP> <uCom>HR</uCom> <qCom>1.0000</qCom> <vUnCom>1.40</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <ICMS> </ICMS> <PIS> <PISSN> <CST>01</CST> </PISSN> </PIS> <COFINS> <COFINSSN> <CST>01</CST> </COFINSSN> </COFINS> </imposto> </det> <total> <vCFeLei12741>0.00</vCFeLei12741> </total> <pgto> <MP> <cMP>01</cMP> <vMP>1.40</vMP> </MP> </pgto> </infCFe> </CFe> Perceba que as tags de ICMS, PIS e COFINS continuam gerando e ISS não foi inclusa. Por isso na validação dá o erro : 20161007105957|SAT-AC|erro|Funcao EnviarDadosVenda [869560]: Erro de validacao do conteudo([1999]Rejeição: Erro não identificado)(Campo: ICMS?) Pergunta, tenho que fazer este XML manualmente, o ACBr não gera o XMl ??? Mais uma, você me informa que o SAT não "vende" serviços, como então irei validar e enviar o XML ??? Tenho que fazer tudo manualmente ?? Uma última, consta no site do fabricante TANCA que o SAT envia e valida o XML, ou estou equivocado ? Muito Obrigado ! Junior
  11. Atualizei sim, até exclui a instalação inteira e refiz tudo. Permanece o erro. Será que é por quê estou instalando no delphi 7 ?? Muito Obrigado !
  12. Juliomar, muito obrigado por responder. Amigo tentei exatamente como você disse e deu o mesmo erro. Segue em anexo o arquivo log completo. Será que se eu excluir a instalação com o apagar_acbr e depois tentar novamente o svn resolve ??? log_Delphi_7.txt
  13. Boa tarde. Atualizei o svn e tentei fazer a instalação dos pacotes ACBR porém esta dando erro conforme log abaixo orland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\ACBrNFe.pas(667) Error: Not enough actual parameters C:\Program Files (x86)\Borland\Delphi7\Projects\ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\ACBrNFeDANFEClass.pas(214) Fatal: Could not compile used unit 'ACBrNFe' Compilation failure Erro ao compilar o pacote "ACBr_NFe.dpk". Abortando... Ocorreram erros na compilação dos pacotes. O que fiz de errado ? Junior
  14. Bom dia. Estou tentando incluir um serviço no SAT e está retornando erro. Utilizo o SDK da Tanca para os testes. Comandos Delphi : ISSQN.vBC := v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_QTD_PRODUTO_VENDA').AsFloat * v_client_VE0200.FieldByName('C_VALOR_UNITARIO_VENDA').AsFloat; ISSQN.vAliq := v_client_AL0100.FieldByName('C_PERC_ALIQUOTA_ISS').AsFloat; ISSQN.cMunFG := g_num_municipio_servicos; Ao enviar dadosvenda dá erro de validação de conteúdo 6010, extraindo o log, segue: LOG 20161007105840|SAT-SEFAZ|info|Acessando CFeComandos (comandos) 20161007105840|SAT-SEFAZ|info|CFeComandos[id:1]: wssathomolog.fazenda.sp.gov.br:443 20161007105842|SEFAZ-SAT|info|CFeComandos: [120] Não existem comandos da SEFAZ pendentes 20161007105846|SAT|info|Relogio sincronizado com sucesso (NTP: ntp.cais.rnp.br) 20161007105932|AC-SAT|info|Funcao ConsultarSAT [829725] requisitada. 20161007105932|SAT-AC|info|Funcao ConsultarSAT [829725]: SAT em operacao 20161007105945|SAT|info|Relogio sincronizado com sucesso (NTP: ntp.cais.rnp.br) 20161007105949|AC-SAT|info|Funcao ConsultarSAT [956156] requisitada. 20161007105949|SAT-AC|info|Funcao ConsultarSAT [956156]: SAT em operacao 20161007105957|AC-SAT|info|Funcao EnviarDadosVenda [869560] requisitada. 20161007105957|SAT-AC|erro|Funcao EnviarDadosVenda [869560]: Erro de validacao do conteudo([1999]Rejeição: Erro não identificado)(Campo: ICMS?) 20161007110011|AC-SAT|info|Funcao ExtrairLogs [024619] requisitada. Alguém poderia me ajudar me informar o que estou fazendo errado ? Agradeço antecipadamente a ajuda. Junior
  15. Estou com um problema em somente um de meus clientes. O sistema estava funcionando até sexta passada normalmente assinando as notas fiscais normalmente e do nada parou de funcionar. Agora na hora de assinar a nota aparece o erro : "Erro criar chave KeyInfo" e não assina a NF. Revisei tudo, reinstalei certificado e capicom, registrei as dlls novamente e revi a cadeia de certificação. O erro persite. Acessando o portal do e-cac pelo internet explorer na receita federal acessa normalmente. Ambiente: Windows 7 Ultimate 64 bits, certificado digital boa vista Segue em anexo o xml Como consigo resolver o problema ??? 35160721887376000130550010000004591000004590-nfe.xml
  16. Pessoal, estou tentando substituir uma UDF que usava com o firebird 2.1, pois estou migrando para o firebird 2.5. No firebird 2.5 não conseguí de forma alguma fazer esta UDF funcionar, então estou tentando outras formas mas está difícil e nem sei se o que estou tentando fazer existe. O problema é o seguinte: Eu criei a seguinte stored procedure no firebird: SET TERM ^ ; CREATE OR ALTER PROCEDURE F_CODIFONPT_BR ( i_string varchar(500)) returns ( c_string varchar(500) collate pxw_intl850) as begin C_STRING = :I_STRING; suspend; end^ SET TERM ; ^ Pois bem, estou tentando usar da seguinte forma : select PR0100.C_COD_PRODUTO, PR0100.C_DESC_PRODUTO, PR0100.C_MODELO_PRODUTO, PR0100.C_TIPO_CODIGO_PRODUTO, PR0100.C_VALOR_UNITARIO_PRODUTO, PR0100.C_QTD_ESTOQUE, PR0100.C_VALOR_CUSTO_PRODUTO, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_A_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_A, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_B_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_B, (PR0100.C_VALOR_UNITARIO_PRODUTO - (PR0100.C_VALOR_UNITARIO_PRODUTO * C_PERC_DESCONTO_C_PRODUTO) / 100) as C_VALOR_UNITARIO_PRODUTO_C, PR0100.C_USA_ESTOQUE_PRODUTO, PR0100.C_PERC_LUCRO_PRODUTO, PR0100.C_ATIVO_PRODUTO from PR0100 where F_CODIFONPT_BR(C_DESC_PRODUTO) LIKE F_CODIFONPT_BR('%' || 'teste' || '%') and (PR0100.C_USA_ESTOQUE_PRODUTO = 'N' or (PR0100.C_QTD_ESTOQUE > 0)) and C_COD_PRODUTO <> '000000000000000' order by C_DESC_PRODUTO Porém preciso usar assim, pois irei implementar na procedure F_CODIFONPT_BR as trocas de acentos, porém ao executar o sql dá o seguinte erro : An error was found in the application program input parameters for the SQL statement. Dynamic SQL Error. SQL error code = -804. Function unknown. F_CODIFONPT_BR. Como consigo resolver ???
  17. Juliomar muito obrigado !! André, muito obrigado também, mas este e-mail foi o mesmo que recebi, padrão do sefaz, porém não foi aberta contingência, e a nacional encontra-se instável também. Enfim, não temos pra onde correr, mas aí o problema é explicar pro cliente esta situação. Difícil viu !!!
  18. Bom dia. Até ontem estavam emitindo normalmente as Nfe pelo meu sistema e hoje TODOS os clientes estão com a mensagem: Forbidden (403) Consultando pelo navegador no link https://nfe.fazenda.sp.gov.br/ws/ : Server Error 403 - Forbidden: Access is denied. You do not have permission to view this directory or page using the credentials that you supplied. Todos os clientes estão com o certificados válidos. Como resolvo o problema ???
  19. Bom dia Pessoal Estou com um problema parecido e gostaria de ver se alguém consegue me ajudar: O arquivo .XML da NFe é do meu fornecedor. Quando tento validar dá o seguinte erro : "Número de Série do Certificado Digital não especificado !" Porém como informei o .XML é do meu fornecedor e não do cliente, aí especifico o número de série com o certificado local (meu cliente) e passa a dar o seguinte erro : "O conjunto de chaves não está definido" Porém é um arquivo válido pois consigo imprimir a danfe e está assinado e consultando no sefaz consta a entrega. Como faço para validar um arquivo de um fornecedor ???
  20. Por favor preciso de uma ajuda. Preciso selecionar via código uma impressora para a impressão da DANFE com o ACBrNFeDANFEFR. Uso delphi 7, tenho um cadastro em meu banco de dados com as impressoras suportadas pelo sistema, esta qual eu coloco em uma das colunas o nome da impressora no spooler do windows. No Fortes Report (Trunk 1) eu usava da seguinte forma : RLPrinter.PrinterName := F_Nome_Impressora(g_cod_impressora_nfe); Desta forma a impressora que minha função retornar o nome, seria a impressora selecionada para o print. Porém com o fast report não consigo fazer isso, ele sempre usa a impressora padrão do windows. Mesmo usando a propriedade abaixo : ACBrNFe1.DANFE.Impressora := F_Nome_Impressora(g_cod_impressora_nfe); Ou então como faço no preview para aparecer a opção da caixa de seleção das impressoras ? Ou ainda as duas coisas juntas ? Não posso voltar a usar o Fortes Report já que uso delphi 7 .clx para o desenvolvimento. Antes eu usava Rave Reports e tudo funcionava bem (Trunk1) e agora usando o trunk2 está osso. Rssss Um outro problema é uma mensagem que aparece em todas as impressões das DANFES no canto superior direito : FastReport - Unregistered version (only 5 pages) Como tiro isso ???? Muito Obrigado !
  21. Desencavando o assunto. Estava tudo funcionando com a Elgin Vox até hoje. Começou a dar um erro de "File Acces Denied" para a abertura da Gaveta. Alguém sabe me dizer como resolver ?? Outra coisa, na I9 conforme o colega Jano passou não funcionou, até agora não consigo abrir a gaveta com a I9 por comando, somente o comando automático após a impressão (isso configurado pelo spooler). Muito Obrigado !
  22. As tags de endereço de entrega estão preenchidas no xml porém a danfe do Fast report não possui campo próprio. Na versão do trunk eu usava com o Rave e funcionava, pq na versão do trunk2 não tem ?? Alguma sugestão de como implementar ??
  23. Agora tenho um novo problema, mas bem parecido. Meus clientes mudaram a impressora para I9 e o sistema não funciona com o que colocamos acima com a Vox. Vocês sabem qual a diferença para a I9 ?? Muito Obrigado !
  24. Muito obrigado ! Deu certinho aqui, era mesmo a questão da porta. Abs
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.