Hetosoft Sistemas

Senhores: Gostaria de verificar a possibilidade de alteração: * no arquivo Cidades.ini o provedor de Varzea Grande-MT não e mais ISSNET mudou para Betha [5108402] Nome=Várzea Grande UF=MT //Provedor=ISSNET Provedor=Betha NomeURL_H=homologacao NomeURL_P=varzeagrande Na unit pnfsConversao: * Adicionar na function CodCidadeToProvedor(const ACodigo: Integer): string; Provedor := 'Betha': a cidade de 5108402 // Várzea Grande/MT, e retirar do Provedor := 'ISSNET'. 5103502, // Diamantino/MT 4200051, // Abdon Batista/SC 5108402 // Várzea Grande/MT : Provedor := 'Betha'; //5108402, // Várzea Grande/MT 5201108, // Anapolis/GO 5201405 // Aparecida de Goiania/GO : Provedor := 'ISSNET'; * na unit ACBrNFSeConfiguracoes o arquivo Cidades.ini esta sendo lido diretorio na pasta da aplicação. Existe uma pasta ArqINI para a cidade e os provedores só que não da pra definir pq ficou fixo o diretorio nesta unit. procedure TGeralConfNFSe.SetConfigMunicipio; var Ok: Boolean; NomeArqParams, Texto, sCampo, sFim, CodIBGE: String; I: Integer; begin // =========================================================================== // Verifica se o código IBGE consta no arquivo de paramêtros: Cidades.ini // se encontrar retorna o nome do Provedor // =========================================================================== NomeArqParams := ApplicationPath + 'Cidades.ini'; Linq dos arquivos alterados: https://mega.nz/#!xlIjhYgZ!K6r-vMUGKr4GqnZD_Ja6CXpRE7LHPMO0g7ubVQnH_G4

Você esta usando o ambiente de homologação testei aqui também esta com essa mensagem, o de produção esta normal. Homologação Aguardando comandos Endereço: MARCOSVM Porta: [3436] WebService Consulta Status serviço: - Inativo ou Inoperante tente novamente. - Erro: Requisição não enviada. 12007 - O nome ou o endereço do servidor não pôde ser resolvido Produção <retConsStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10"> <tpAmb>1</tpAmb> <verAplic>3.10</verAplic> <cStat>107</cStat> <xMotivo>Servico em Operacao</xMotivo> <cUF>51</cUF> <dhRecbto>2015-09-16T10:35:18-04:00</dhRecbto> <tMed>1</tMed> </retConsStatServ>

Italo, Alberto, Régys bom dia, Obrigado a todos como não tem o que fazer vou usando o antigo por enquanto. Mas se alguém puder verificar gostaria de saber por que No aplicativo gratuito de manifestação do destinatário versão 10.0.22.(17/08/2015) do Governo do Estado de São Paulo todas as opções estão no aplicativo inclusive (Situação da Manifestação) e funcionando, creio eu que estão usando o novo servidor inclusive teste aqui e ele me retorna 50 resultados em uma unica busca proposto no novo servidor NFeDistribuicaoDFe. Nota Técnica 2014/002 - 2.2. Leiaute Mensagem de Retorno pag. 5/13 Retorno: Estrutura XML com os documentos de interesse do ator (qtde máxima=50). Schema XML: retDistDFeInt _v9.99.xsd

Boa Tarde Italo, Obrigado pelo esclarecimento, mas neste caso não e envio de NF estou consultando Manifestação; segundo a NT 2012_002 são 2 campos distintos. estou tentando saber a Situação da Manifestação do Destinatário, esse comando existia no antigo quando vem um retorno de consulta da pra saber se a NF já foi manifestada: 4.10.2 Leiaute Mensagem de Retorno - Pag. 12/24 | IR24 | cSitConf | E | IR11 | N | 1-1 | 1 | Situação da Manifestação do Destinatário: 0=Sem Manifestação do Destinatário; 1=Confirmada Operação; 2=Desconhecida; 3=Operação não Realizada; 4=Ciência. EX: Monitor Antigo (na penultima lina a situação da NF, e na ultima lina a situação da manifestação) [RESNFE001] NSU=xxxxxxxxxxx chNFe=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CNPJ=xxxxxxxxxxxxxx xNome=xxxxxxxxx x xxxxxxxxxxx IE=xxxxxxxxxxx dEmi=01/09/2015 tpNF=1 vNF=1800 digVal=xxxxxxxxxxxxxxxxxxxxxxxxxxx= dhRecbto=01/09/2015 12:31:03 cSitNFe=1 -> cSitConf=0 e o que vc esta passando e sobre Situação da NF-e: 4.10.2 Leiaute Mensagem de Retorno - Pag. 12/24 IR23 | cSitNFe | E | IR11 | N | 1-1 | 1 | Situação da NF-e:| 1=Uso autorizado no momento da consulta; 2=Uso denegado; 3=NF-e cancelada; EX: Novo Plus (na penultima lina a situação da NF, aqui não tem como saber a situação para poder manifestar) [RESNFE001] NSU=xxxxxxxxxxxxxxx chNFe=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx CNPJ=xxxxxxxxxxxxxx xNome=xxxxxxxxxxxx xxxx xxxxxxx xx xxxxxxxx xxxx xxxxxx xxxx IE=xxxxxxxxx dEmi=15/06/2015 11:57:00 tpNF=1 vNF=2640 digVal=xxxxxxxxxxxxxxxxxxxxxxxxxxx= dhRecbto=15/06/2015 11:59:01 cSitNFe=1 nProt=xxxxxxxxxxxxxxx

Alberto Leal ou Régys Silveira acho que na versão anterior tinha o campo cSitConf= e nesta nova versão do monitor não tem este campo no retorno da consulta. IR24 cSitConf E IR11 N 1-1 1 Situação da Manifestação do Destinatário: 0=Sem Manifestação do Destinatário; 1=Confirmada Operação; 2=Desconhecida; 3=Operação não Realizada; 4=Ciência. Como ficou no Plus?

Régys Silveira, surgiu um detalhe que esta me atrapalhando nos testes só estão vindo as notas já manifestadas usando o comando conforme foi passado. NFe.DistribuicaoDFe(cUF, cCNPJ, nUltNSU) -> onde cUf é o código numerico da uf -> cCnpj é o cnpj que deseja consultar -> e nUltNsu é o resultado do ultimo nsu Obs: estou testando nos 2 monitores e no AcbrNfeMonitor esta trazendo. Aproveitando algus detalhes que estão diferentes: * O indCont=0 no anterior indicava o fim da consulta; no plus ficou indCont=1 * quando a consulta chega ao final esta zerando o ultimoNSU o que não acontecia na versão anterior, abaixo o penultimo e ultimo retorno da pesquisa. NFe.DistribuicaoDFe(51, 0xxxxxxxxxxxxx, 000000000001983) OK: versao=1.00 tpAmb=1 verAplic=1.1.6 cStat=138 xMotivo=Documento localizado dhResp=14/09/2015 10:33:36 indCont=0 ultNSU=000000000002003 NFe.DistribuicaoDFe(51, 0xxxxxxxxxxxxX, 000000000002003) OK: versao=1.00 tpAmb=1 verAplic=1.1.6 cStat=137 xMotivo=Nenhum documento localizado dhResp=14/09/2015 10:33:43 indCont=1 ultNSU=000000000000000

Regys Silveira na Manifestação do Destinatário esta retornando: OK: versao=1.00 tpAmb=1 verAplic=1.1.6 cStat=138 xMotivo=Documento localizado dhResp=11/09/2015 11:33:41 indCont=0 ultNSU000000000001409 falta o sinal = apos ultNSU (facilita localizar o conteudo de um ponto de referencia). ex: ultNSU=000000000001409

Obrigado Regys Silveira vou iniciar os testes.

Obrigado Regys Silveira vou ficar aguardando.

Obrigado pela dica Rômulo Mayworm mas não vai servir eu preciso saber qual comando vai substituir o NFe.ConsultaNFeDest, por que até o momento não achei no manual do ACBrNFeMonitor ou ainda não foi criado. o que é preocupante já que o ConsultaNFeDest vai ser desativado.

Obrigado pela resposta Rômulo Mayworm, estou usando NFe.ConsultaNFeDest(cCNPJ,nIndicadorNFe,nIndicadorEmissor,cultimoNSU) via socket para enviar comandos para o ACBrNFeMonitor se alguem souber qual o novo procedimento e puder me passar agradeço.

Ola, Estou implementando uma rotina para consultar Manifestação do Destinatário usando o ACBrNFeMonitor e me deparei com a Nota Técnica 2014/002 onde diz "Este Web Service possibilitará a descontinuidade, no futuro, do Web Service de Consulta da Relação de Documentos Destinados (NfeConsultaDest). Desativação do Web Service NfeConsultaDest: 02/02/15". Nos teste que estou fazendo em 10/09/2015 o servidor ainda funciona. A minha duvida é: 1) este serviço vai ser decontinuado? 2) no ACBrNFeMonitor existe o comando DistribuicaoDFe?

Desativei o CONSULTALOTEAPOSENVIO = False e mudei minha rotina de enviar try if Form_NFSe.ACBrNFSe1.Enviar(vNumLote) then begin //MessagemH( 0, 'Form_NFSe.ACBrNFSe1.Enviar(vNumLote)' ); DM12.Client_NotaFiscal.edit; DM12.Client_NotaFiscalNFS_PROTOCOLO.Text:= Form_NFSe.ACBrNFSe1.WebServices.Enviar.Protocolo; DM12.Client_NotaFiscalNFS_PROTOCOLO_LOTE.Text:= Form_NFSe.ACBrNFSe1.WebServices.ConsLote.Protocolo; DM12.Client_NotaFiscalNFS_CODVERIFICACAO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; DM12.Client_NotaFiscalNUMERO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; DM12.Client_NotaFiscal.ApplyUpdates(-1); Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; //COSNULTA 1 SEGUNDOS 5 TENTATIVA //CONSUTA RPS RPS + 12 - RPS.XML // // try Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; Form_NFSe.ACBrNFSe1.NotasFiscais.LoadFromFile( RAIZ+'\Controles_SQL\NFSe\EnvioDeResposta\'+ Copy( DM12.Client_NotaFiscalC_EMISSAO.Text,7,4 )+ Copy( DM12.Client_NotaFiscalC_EMISSAO.Text,4,2 )+ '\RPS\'+DM12.Client_NotaFiscalNFS_RPS.Text+Form_NFSe.Edit2.Text+'-RPS.XML' ); Form_NFSe.ACBrNFSe1.ConsultarNFSeporRps(Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo), Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); Form_NFSe.MemoResp.Lines.Text := UTF8Encode(Form_NFSe.ACBrNFSe1.WebServices.ConsNfseRps.RetWS); Form_NFSe.memoRespWS.Lines.Text := UTF8Encode(Form_NFSe.ACBrNFSe1.WebServices.ConsNfseRps.RetWS); Form_NFSe.LoadXML(Form_NFSe.MemoResp, Form_NFSe.WBResposta); DM12.Client_NotaFiscal.edit; DM12.Client_NotaFiscalNFS_CODVERIFICACAO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; DM12.Client_NotaFiscalNUMERO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; DM12.Client_NotaFiscal.ApplyUpdates(-1); if Tipo=0 then begin //IMPRIMIR Form_NotaFiscal.BitBtn99Click(nil); end; Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; except MessagemH(2,'NFS-e NºPED:'+DM12.Client_NotaFiscalCOD.Text+' RPS:'+FormatFloat('#########0', StrToInt(NumNFSe))+''+#13+ 'Sem Retorno !'); Abort; end; end else begin MessagemH(2,'NFS-e NºPED:'+DM12.Client_NotaFiscalCOD.Text+' RPS:'+FormatFloat('#########0', StrToInt(NumNFSe))+''+#13+ 'Não Enviada !'); Abort; end; except on E: Exception do begin MessagemH(2,'NFS-e NºPED:'+DM12.Client_NotaFiscalCOD.Text+' RPS:'+FormatFloat('#########0', StrToInt(NumNFSe))+''+#13+ 'Não Enviada !'+#13+ E.Message); Form_NFSe.ACBrNFSe1.NotasFiscais.Clear; Abort; end; end;

Essa semana comerçou acontecer isto, Da erro ao enviar a NFS, mais a nota ta no Site ISS.NET e ja atualizei o acbr com a Revisão 8457

Estou com o demo do Consultar CNPJ mais executar da este erro

Conseguir USERNAME = nome do usuario conexao remota CLIENTNAME = nome da maquina que abrio a conexao remota USERPROFILE = caminho da pasta de meus documentos do usuario Edit1.Text := GetEnv('USERNAME'); function TForm1.GetEnv(Variable: string): string; var Buffer : Integer; begin Buffer := GetEnvironmentVariable(PChar(Variable), nil, 0); if Buffer > 0 then begin SetLength(Result, Buffer - 1); GetEnvironmentVariable(PChar(Variable), PChar(Result), Buffer); end else Result := ''; end; essa é pra saber se esta em uma conexao remota ou desktop procedure TForm1.Button1Click(Sender: TObject); begin if IsRemoteSession=True then Edit1.Text:='Conexao Remota' else Edit1.Text:= 'Desktop' ; end; function TForm1.IsRemoteSession: boolean; var res : integer; begin res := GetSystemMetrics (SM_REMOTESESSION); Result := (res <> 0); end;

Tem como o exe que esta em um Servidor saber qual o Nome do cumputador REMOTO ; ex: SERVIDOR ex: HETOPROG pc que chamou via conexao remota o SERVIDOR quero saber o nome do pc do cliente nao do servidor que no caso seria HETOPROG

Estou em MT, mesmo assim ficou Qrcode Erro 100 - Qr Code Inválido Sabendo que fis manual, teria como da uma olhada pra ver se fis errado , ta homologacao nao testei ainda em producao. /////////////////////// NOVO 2014 /////////////////////////////////// //51 AUF := StrToInt( Copy( Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe,0,2) ); //PRODUCAO AAmbiente := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb; //URL CONSULTA if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then urlUF := 'http://www.sefaz.mt.gov.br/nfce/consultanfce' else urlUF := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce'; //CHEVE DE ACESSO AchNFe := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe; //DESTINO AcDest := '';//Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest; //DATAEMISSAO AdhEmi := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi; AvNF := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF; AvICMS := Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS; AdigVal:= Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal; AidToken:= tokem; //000001 AToken:= id_tokem; //372571E09FF51F8AF9E6CDB328511C01 /////////////////////// NOVO 2014 /////////////////////////////////// Memo1.Lines.Clear; AchNFe := OnlyNumber(AchNFe); // Passo 1 sdhEmi_HEX := AsciiToHex(DateTimeTodh(AdhEmi) + GetUTC(CodigoParaUF(AUF), AdhEmi)); // Passo 2 sdigVal_HEX := AsciiToHex(AdigVal); // Passo 3 e 4 cIdToken := AidToken; if DFeUtil.EstaVazio(AToken) then cTokenHom := Copy(AchNFe, 7, 8) + '20' + Copy(AchNFe, 3, 2) + Copy(cIdToken, 3, 4) else cTokenHom := AToken; cTokenPro := AToken; // Alterado por Italo em 05/06/2014 // Essa alteração foi feita, pois algumas UF estão gerando o Token também para o Ambiente de Homologação // Neste caso o mesmo deve ser informado na propriedade Token caso contario deve-se atribuir a // essa propriedade uma String vazia if (AAmbiente = taHomologacao) then begin if (AToken = '') then cTokenHom := Copy(AchNFe, 7, 8) + '20' + Copy(AchNFe, 3, 2) + Copy(cIdToken, 3, 4) else cTokenHom := AToken; end else cTokenPro := AToken; sToken := DFeUtil.SeSenao(AAmbiente = taProducao, cIdToken + cTokenPro, cIdToken + cTokenHom); sNF := StringReplace(FormatFloat('0.00', AvNF), ',', '.', [rfReplaceAll]); sICMS := StringReplace(FormatFloat('0.00', AvICMS), ',', '.', [rfReplaceAll]); sEntrada := 'chNFe=' + AchNFe + '&nVersao=100&tpAmb=' + TpAmbToStr(AAmbiente) + DFeUtil.SeSenao(AcDest = '', '', '&cDest='+AcDest) + '&dhEmi=' + sdhEmi_HEX + '&vNF=' + sNF + '&vICMS=' + sICMS + '&digVal=' + sdigVal_HEX + '&cIdToken='; // Passo 5 calcular o SHA-1 da string sEntrada if fsHashQRCode = nil then fsHashQRCode := TACBrEAD.Create(nil); try cHashQRCode := fsHashQRCode.CalcularHash(sEntrada + sToken, dgstSHA1); except raise Exception.Create('Erro ao calcular Hash do QR-Code'); end; // Passo 6 Memo1.Text := urlUF + '?' + sEntrada + cIdToken+ '&cHashQRCode=' + cHashQRCode; /////////////////////// NOVO 2014 ///////////////////////////////////

Tem algum exemplo como usar ?

Eu uso essa funcao para criar o qrcode tokem := '000001'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then URL := 'http://www.sefaz.mt.gov.br/nfce/consultanfce?' else URL := 'http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?'; if Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpAmb = taProducao then tpAmb := '1' else tpAmb := '2'; cDest := Iif(Length(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF) > 0, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Dest.CNPJCPF, ''); Memo1.Lines.Clear; Memo1.Text := URL + 'chNFe=' + Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe + '&nVersao=' + '100' + '&tpAmb=' + tpAmb + Iif((Length(cDest) > 0),('&cDest=' + cDest), '') + '&dhEmi=' + StringToHex(DateTimeTodhUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi,GetUTC(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.emit.enderEmit.UF, Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dEmi))) + '&vNF=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF) + '&vICMS=' + FormatFloat(',0.00;-,0.00', Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.Total.ICMSTot.vICMS) + '&digVal=' + StringToHex(Form_NFe.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.digVal) + '&cIdToken=' + tokem; Hash_SHA1 := Form_NFe.ACBrEAD1.CalcularHash(UTF8Encode(Memo1.Text), dgstSHA1); Memo1.Text := Memo1.Text + '&cHashQRCode=' + Hash_SHA1; O Resultado disso da isto http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140903953552000102650020000003601000003606& nVersao=100& tpAmb=2& dhEmi=323031342D30392D30395431313A32313A31382D30343A3030& vNF=58,35& vICMS=0,00& digVal=6947717550706D66654572782F7A45305469442F6D7645395532453D& cIdToken=000001& cHashQRCode=31E6075144254C592F4C520F6D177A609C31ED3F link completo http://homologacao.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51140903953552000102650020000003601000003606&nVersao=100&tpAmb=2&dhEmi=323031342D30392D30395431313A32313A31382D30343A3030&vNF=58,35&vICMS=0,00&digVal=6947717550706D66654572782F7A45305469442F6D7645395532453D&cIdToken=000001&cHashQRCode=31E6075144254C592F4C520F6D177A609C31ED3F se copiar este link e joga na web vai mostrar o cupom, mais mostrar este erro Erro 100 - QR Code Inválido Pegando um qrcode de uma loja que aparentemente nao tem diferença http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51141101030685000696650020000005351054760777& nVersao=100& tpAmb=1& dhEmi=323031342d31312d30335432303a33303a30392d30333a3030& vNF=129.00& vICMS=0.00& digVal=4d684d6b6d535277387779326351524e584c68307a44506b6e32303d& cIdToken=000001& cHashQRCode=A3663ADC59B24F91207E3F51C6C3D6B68E809074 link completo http://www.sefaz.mt.gov.br/nfce/consultanfce?chNFe=51141101030685000696650020000005351054760777&nVersao=100&tpAmb=1&dhEmi=323031342d31312d30335432303a33303a30392d30333a3030&vNF=129.00&vICMS=0.00&digVal=4d684d6b6d535277387779326351524e584c68307a44506b6e32303d&cIdToken=000001&cHashQRCode=A3663ADC59B24F91207E3F51C6C3D6B68E809074 da tudo certo sem erro nenhum o que deve ser? agradeço desde ja.

Conseguir resolver colocando assim ACBrMail1.From := DM.Client_MERCADO_PISEMAIL_USUARIO.Text; email do cleinte ACBrMail1.FromName := DM.Client_MERCADO_PISFANTASIA.Text; //Opcional nome do cliente sabendo que nos outro servidores colocava assim ACBrMail1.From := DM.Client_MERCADO_PISFANTASIA.Text; nome do cliente ACBrMail1.FromName := ''; //Opcional nao entedir mais blz, obrigado pela atencao.

O Pior que ja ta, quando mando email da nf-e pelo acbrnfe da certo. mais no componente acbrmail nao, tem outra ideia ?

Eu uso smtp da google , Hotmail, locaweb e muito outros com o componente ACBrMail1 mais estou tentando usar o smtp.office365.com [email protected] ********** mais nada , já tentei varias combinações, alguma dica, obrigado.

blz, mais a questao nao é o erro , o erro nao tem problema, mais o que eu queria se poder, era nao mostrar o erro ou qualquer erro como Messagem com ok para eu pode pula pro proximo registro, a messgem de ok para tudo. ate o cleinte aperta ok.

Dificio , é so quando a fefaz ta muito lenta, quando tenta verifica status ou enviar, ai da este erro.