Antonio Carlos L

Caros eu baixei a API da calculadora e coloquei para rodar no Docker e acabei vendo que existe um banco de dados SQLLite ( .DB ) coloquei aqui zipado para quem quiser. calculadora.zip

Boa tarde a todos, resolvi o problema. Quero agradecer em especial ao @Juliomar Marchetti por insistir na cadeia de certificado. Segui em parte a matéria postada acima e em parte outras duas então o que falo abaixo esta contido nestas fontes, vou apenas resumir. A tela de erro possui dois código: Erro Interno: -2146893815 - É um código de erro do sistema operacional Windows, mais especificamente relacionado a problemas de certificado digital ou conexão segura (SSL/TLS). Erro: 2148073481 - Esse código vem da biblioteca de segurança do Windows (WinINet ou Schannel) e também está ligado à falha de conexão segura. Como EU procedi em um Windows 11 Original em uma maquina Dell. 1 - Assegure-se de que removeram o certificado da Leitora ou o Token; 2 - Rode o Windows Update, uma atualização sem reinicio cria problemas; 3 - Em executar digite inetcpl.cpl, e deixei dessa forma: 3 - Em executar digite certmgr.msc, a - selecione a pasta Pessoal, Certificados e se estiver aparecendo certificados exclua o de uso; Token e Cartão costumam acumular os certificados anteriores vencidos, eu deixo apenas o válido. b - selecione a pasta Autoridades de Certificação Raiz Confiáveis, Certificados e exclua os Autoridade Certificadora Raiz Brasileira v(n) Pode ocorrer de aparecer uma mensagem que não foi permitir excluir o Autoridade Certificadora Raiz Brasileira v5 isso se resolve reiniciando a maquina e fazendo a exclusão, esta preso, por ter sido usado. 4 - Reinicie a maquina, descompacte o arquivo Arquivos-Solução-Certificado-A3.zip (Eu achei isso nos dois sites não sei de quem é a autoria ) Arquivos-Solucao-Certificado-A3.zip 5 - Execute como Administrador o arquivo InstaladorCadeias_1.0.2.0.exe ; 6 - Execute o FixCrypto_TSL1_2_Windows 7 - Na pasta CA tem dois certificados, no meu caso eu instalei apenas o Raiz-icp-brasil v10.cer pois o cartão do cliente não era da SOLUTI. Os fornecedores ficam em disponíveis em https://www.gov.br/iti/pt-br/assuntos/repositorio Importante rode novamente o certmgr.msc e veja se a finalidade de todos os Autoridade Certificadora Raiz Brasileira v(n) estão como <Todos> se não estiver , clique com o botão do lado direito e Propriedades, Geral e modifique. 8 - Reinicie a maquina; 9 - Recoloque o cartão ou token e vai funcionar; Observação: Se voltar a acontecer eu vou adicionar aos passos acima a recomendação do @Victor H. Gonzales - Panda Usando o Editor de Política de Grupo Local (gpedit.msc), alterar a seguinte propriedade: - Política Computador Local > Configuração do Computador > Modelos Administrativos > Sistema > Gerenciamento de Comunicação da Internet > Configurações de Comunicação da Internet > Desativar Atualização Automática de Certificados Raiz. - Definir esta regra como "Habilitado". - Em seguida no prompt de comando como administrador, executar o seguinte comando: gpupdate /force

Entendo Juliomar, mas veja so a loucura , se eu fizer consulta de STATUS na SVRS com o A3 da erro, mas so mudei o webservice para AM e NENHUM erro . Não tem algo estranho ? Não deveria em sendo problema no windows, o defeito ser reproduzido ?

entendi agora o porque @datilas realmente na versão inicial da distribuição não existia 656 e deve ter sido definido que não sendo 137, 138 era exception. E talvez adicionar esse 656 va realmente quebrar varios pontos. Mas ja estou tratando no exception e vida que segue. Obrigado Juliomar também.

Não sei se tem relação estou tendo o mesmo problema em um cliente que possui certificado cartao A3 isso em um ambiente Windows 11 Prof. Efetuei o procedimento sugerido mesmo o erro não tendo sido Erro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor O processo será abortado! e NÃO adiantou , comportamento intermitente, e com demora na resposta. Coloquei o exemplo do ACBr na maquina do cliente, usando o certificado A3 dele , fiz 10 consultas a SEFAZ RJ ( SVRS ) e das 10 apenas 3 retornaram o status correto as outra 7 o erro. Mudei para a SEFAZ AM e das 10 requisições TODAS foram respondidas com exito sem nenhum erro. Eu creio se se houvesse um problema na maquina e certificado o comportamento deveria se reproduzir em um WebService distinto. Coloquei la no mesmo cliente um certificado A1 de outro cliente e fiz as mesmas 10 requisições a SEFAZ RJ ( SVRS ) e das 10 apenas uma falhou mas não com a mesma mensagem de erro. Então suponho que algo esteja ocorrendo la no WebService que atende RJ

Obrigado Juliomar por sua atenção, eu não tendo problemas com 656 isso em locais onde a consulta é única. Realmente como você falou se tem mais de um ator consultando aí é complicado pois todos vão disputar e aí é quem chegar primeiro depois da última consulta. E por eu já estar tratando no Exception e não dentro de um Case está ok. A pergunta foi muito mais conceitual, o que levou os desenvolvedores do projeto a adotarem uma Exception ao invés de um retorno normal. Apenas querendo entender. Obrigado.

Então Juliomar eu li o conteúdo da Nota Técnica 2014.002 v1.21 me parece ser a última versão Se entendi corretamente o Comportamento do cStat=656 "Rejeição: Consumo Indevido", ocorre, por exemplo, quando: A aplicação cliente continua consultando o WebService com distNSU após receber 137 - Nenhum documento localizado, sem respeitar o intervalo de 1 hora ou se realiza consultas fora da sequência de ultNSU. Não testei a consulta ACBrDFe.DistribuicaoDFePorUltNSU(ACBrDFe.Configuracoes.WebServices.UFCodigo, ACBrDFe.SSL.CertCNPJ, IntToStr(iUltimoNSU)) fora de um try except como esta no exemplo. Realmente deve haver algo que não estou vendo. Me parece que é claro que em havendo um cStat=656 não pode consultar ate dar pelo menos 60 minutos da ultima consulta informada no resultado. Mas se cStat=656 é um retorno esperado me parece estranho ele estourar uma exceção me parece que um cStat inexistente ou um retorno truncado deveria fazê-lo. Poderia se não for abusar esclarecer o ponto ? Obrigado.

Tenho a seguinte situação quando faço isso try if ACBrDFe.DistribuicaoDFePorUltNSU(ACBrDFe.Configuracoes.WebServices.UFCodigo, ACBrDFe.SSL.CertCNPJ, IntToStr(iUltimoNSU)) then begin // retorno True end else begin // retorno False end; except // estou tendo que tratar o cStat 656 aqui end; Verifiquei que em TDistribuicaoDFe.TratarResposta Result := (FretDistDFeInt.CStat = 137) or (FretDistDFeInt.CStat = 138); Creio que como é um retorno documentado deveria ser algo do tipo Result := (FretDistDFeInt.CStat in [137, 138,656]) Isso é porposital ?

Uma hipótese é da contabilidade ter passado a fazer a consulta sem informar nada, o mais comum e se for isso, desiste.

Caros Moderadores, por necessidade precisei alterar o Demo do ACBr NFe para a inclusão de dados dinamicos de destinatario possibilitando testar outras condicões. Fiz a implementação e se entenderem ser útil e quiserem anexar ao projeto esta ai. Alteracao_codigo.zip

Exatamente como o @Juliomar Marchetti falou não tem outra forma.

No segundo link mostra que é tudo por uma API Rest Json e tem as especificações. Inclusive eles sugerem a assinatura através de alguns apps. Se não me engano o padrão é o mesmo da NF-e

Mas isso de demorar aconteceria apenas para a primeira vez quando você parte do zero. E se mesmo demorando está conseguindo fique feliz. Se por exemplo o contador de seu cliente estiver usando algum aplicativo de consulta que faz isso a cada 1 hora em background a chance de você não conseguir por consumo indevido é total, mesmo que você só realize uma única consulta.

Se entendi a resposta do Juliomar basta passar as informações que internamente o componente vai gerar o hash

Maxsuel, erro 10060 indica que a URL não pode ser encontrada. As máquinas estão com DNS definido ou estão fazendo do IP do Gateway o DNS ?