jaidomini

[5214507] Nome=Neropolis UF=GO Provedor=Sigep NomeURL_H=gestaopublica.neropolis NomeURL_P=gestaopublica.neropolis Atenciosamente Jaisson Cruz Me desculpem, não vi que tinha um tópico para isso, algum moderador, mover para o conversa certa ou excluir o post.

Daniel, até Dezembro/17 eu utilizava os fontes antes desta alteração sem problemas com o Gmail/Hotmail, depois que atualizei notei que em "procedure TACBrMail.SendMail;" a linha if fSMTP.Login and fSMTP.AuthDone then foi alterada para if fSMTP.Login then Em outros smtps, estes com hospedagem cPanel, funciona normal, só que com gmail ou hotmail não vai... Eu fiz um teste alterando e compilando com a linha abaixo if fSMTP.Login and fSMTP.AuthDone then E o envio voltou a funcionar normalmente, veja aí se faz sentido o que relatei. Obrigado Jaisson

Eu fiz faz uns 4 dias, em XE2, coloca no uses: IdHTTP e IdSSLOpenSSL function RecWslerCampo(Texto: TStringList; NomeCampo: String ): String; var i : integer; linha: String; begin NomeCampo := Trim(NomeCampo) + '='; Result := ''; for i := 0 to Texto.Count-1 do begin linha := Trim(Texto); if Copy(linha,1,Length(NomeCampo)) = NomeCampo then begin Result := Copy(linha, Length(NomeCampo)+1, Length(linha)); break; end; end end; var IdHTTP1: TIdHTTP; IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL; sResposta: TStringList; begin try IdHTTP1:= TIdHTTP.Create(self); IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(Self); IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1; IdHTTP1.ReadTimeout := 5000; sResposta := TStringList.Create; sResposta.Text := IdHTTP1.Get( 'https://www.receitaws.com.br/v1/cnpj/XXXXXXXXXXXXXX', ' ','%20')); sResposta.Text := TrocaTexto(sResposta.Text,'": ','='); sResposta.Text := TrocaTexto(sResposta.Text,'",',''); sResposta.Text := TrocaTexto(sResposta.Text,'"',''); finally IdSSLIOHandlerSocketOpenSSL1.Free; IdHTTP1.Free; FechaAguarda; end; if Pos('nome=', sResposta.Text) > -1 then begin if RecWslerCampo(sResposta, 'situacao') <> 'ATIVA' then ShowMessage('Atenção, SITUAÇÃO está: ' + RecWslerCampo(sResposta, 'situacao')); razao_social := RecWslerCampo(sResposta, 'nome'); fantasia := RecWslerCampo(sResposta,'fantasia'); .... e assim por diante... end; end;

Eu fiz semana passa isso que você sugeriu, deu tudo certo, mas o problema foi o reCaptcha pedindo intermináveis verificações de placas e carros após clicar em Não sou robô. Eu até consegui resolver os problemas de script do TWebbrowser, rodando em compatibilidade do IE instalado, mas este reCaptcha parece que sabe que o browser está rodando dentro de um sistema, então ele pensa que é algum bot....

Hoje o dia todo não funcionou, até via browser estava instavel. Acabei de testar com a correção para o link http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao3.asp está funcionando 100%.

Percebi que o atual, tem como passar o CNPJ direto http://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/Cnpjreva_Solicitacao2.asp?cnpj=XXXXXXXXXXXXXX Agora tem como lidar internamente com este novo captcha para o usuario clicar no "Eu Nao Sou Robo" Estou tentando, se descobrir coloco aqui

Isso mesmo, porque o dia que o Bradesco corrigir o receptor de arquivos, ele irá numerar, o único problema é que o ACBr, mesmo informando o nosso numero, ele zera no codigo: if (ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then Att Jaisson

Apesar de no manual dizer que permite duas maneiras(numerar o nosso numero ou esperar que o banco numera enviando Zeros), apenas quando o cliente numera é que funciona, do contrario vem no arquivo de retorno falando que o nosso número é inválido. Att Jaisson Respondendo mais precisamente sobre regras, depende do contrato com o banco, o Bradesco usa a mesma carteira 9 para o cliente emitir ou o banco. No acbr teria que comentar o código abaixo, pois o sistema do bradesco não está repeitando manual quando envia Zeros, dando o retorno nosso numero invalido: if (ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then begin ANossoNumero := StringOfChar('0', wTamNossoNum); DigitoNossoNumero := '0'; end else

Sempre configurei o Bradesco sem erros há anos na carteira 9, sempre com o cliente emitindo o boleto, agora tive um problema com um cliente onde ele envia a remessa mas o banco é quem envia o boleto. Eu coloco a opção abaixo deixando o nosso numero com zeros, como manda o manual mas banco retorna erro falando que o nosso numero está invalido. AcbrBoleto1.Cedente.ResponEmissao := tbBancoEmite; O Acbr sabiamente zera o nosso numero ao setar esta opção(tbBancoEmite), na procedure TACBrBancoBradesco.GerarRegistroTransacao400 ANossoNumero := ACBrTitulo.NossoNumero; wTamNossoNum := CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero); if (ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then begin ANossoNumero := StringOfChar('0', wTamNossoNum); DigitoNossoNumero := '0'; end else begin ANossoNumero := ACBrTitulo.NossoNumero; DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo); end; Eu tive que comentar o texto em negrito para funcionar, estando com a opção tbBancoEmite e Preenchendo o Nosso Numero, dessa forma o banco validou OK o arquivo, porque no manual também fala que quando o banco emite, o cedente também pode numerar. Então, fica minha dúvida aqui para ver se aconteceu com mais pessoas para registro e envio do banco, se sim, para alterar na base do Acbr.

Tive problema em 2 clientes também, sempre com Cartão Certising Cinza com o Gerenciador Criptografico Oberthur. O cliente usava no Windows XP há uns 8 meses, ao comprar um computador novo com Windows 10, em menos de 15 dias o certificado foi excluído do cartão, em contato com a Certising deram um voucher, veio outro cartão Cinza e não durou nem 10 dias, de novo foi excluído. O outro cliente, usava Windows 10 e não durou 3 dias. Estes clientes trocaram por A1 e não tiveram mais problema. Ao menos comigo, a conclusão que Cheguei foi a combinação: Cartão Cinza da Certising Windows 10 Oberthur AcbrNFe (Nao uso o monitor)

Isso mesmo, só assim deu certo. Importar o pfx diretamente nao dava certo nem a pau, só importando o PFX pelo aplicativo da VALID é que deu certo! Valeu!

Até onde sei, o Acbr não aceita o certificado A3 (Leitora + Cartão ou Token) no OpenSSL, somente o A1 (Arquivo) Para A3, utilize Capicom: ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom; ou ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicomDelphiSoap; Para configurar o Capicom, as DLL's estão na pasta "ACBr\DLLs\Capicom" Dê botão direito sobre instala.bat e execute como Administrador, caso não funcionar, copie as DLL's para a pasta C:\Windows\System32 caso o Windows for x86 ou C:\Windows\SysWOW64 se for Windows 64 bits e repita o processo de executar o instala.bar como administrador. Abç. Jaisson

Verdade, acabou de voltar, bem na hora que fui fazer o teste pelo emissor.

Não consegui também, tentei de várias formas, o estranho é que consegui pelo emissor do governo. O que fiz, gerei o XML pelo MEU sistema, importei no Emissor e Transmiti, foi normal. Muito estranho, o XML assinado pelo ACBr está identico ao XML autorizado pelo emissor do Governo. Alguem conseguiu?

Thiago Barbosa, vc conseguiu ler o peso da balança welmy?

Passei por um caso parecido: Não se esqueça, atualize o ACBr e evrifique se os arquivos estão sendo gerado em C:\ Abç Jaisson

Cara, olhei melhor, e não é que tinha gerado em C:\ Ou seja, o diretório que informava gerava o arquivo mfd, e em C:\ os arquivos CAT52 Vi umas dicas e tive que alterar a função xBematech_FI_ArquivoMFD para xBematech_FI_ArquivoMFDPath no arquivo ACBrECFBematech.pas Assim começou a gerar no diretório informado todos os arquivos. Obrigado pela dica. Att Jaisson

Olá Fabio. 1. Estava com versão de Abril/13, atualizei hj com o novo trunk e vou testar hoje novamente. 2. Fiz o teste com as DLL's do ACBr e depois com as do site da Bematech. 3. DirArquivos existe 4. Não gerou mesmo.... nem em C:\ Assim que testar novamente posto aqui. Abç Jaisson

Conseguiu resolver, estou com o mesmo problema, gera o MFD mas os arquivos CAT52 não....

Olá Pessoal. Estou executando o comando: ACBrECF1.PafMF_GerarCAT52(dtPeriodoIni.Date, dtPeriodoFim.Date, DirArquivos); Mas, gera somente 1 arquivo com a extensão .mfd no diretorio informado. Executei o exemplo ACBTeste.exe e quando clico no botao CAT52, ele gera o arquivo MFD e todos aqueles aquivos que envia para o escritório. Alguém, sabe porque no meu sistema não gera estes arquivos? as Dll's são as mesmas... Grato Jaisson