tomelin

Boa tarde, Deu certo. Obrigado, pode encerrar o post.

Obrigado, Vou tentar achar as dlls usadas pelo libWinCrypt nos fontes ACBr. Só falta fazer isso, as demais instruções refiz de novo sem sucesso.

Bom dia, como vejo quais as dll´s são usadas pela Reinf?

Boa noite, Prezados coletas, Temos 3 computadores no desenvolvimento em Delphi 11.3, todos enviam MDF-e, MD-e e EFD-Reinf usando o ACBr. Usamos certificado A3 e está válido, com a cadeia de certificação válida. A revision do ACBr em uso é 40749. Um computador tem windows 11, os outros 2 windows 10. MDF-e e MD-e funcionam nos 3 computadores. Mas a EFD-Reinf funciona somente num computador com windows 10. Nos outros 2 computadores retorna o erro "12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor" O componente TACBrReinf está assim configurado (aqui parte da configuração): Reinf.Configuracoes.Geral.VersaoDF := v2_01_02; Reinf.Configuracoes.Geral.SSLLib := libWinCrypt; Reinf.SSL.SSLDgst := dgstSHA256; Reinf.SSL.SSLType := LT_TLSv1_2; Reinf.Configuracoes.WebServices.Ambiente := taHomologacao; Segui todas as orientações deste site do forum ACBr: https://www.projetoacbr.com.br/forum/topic/75963-o-que-fazer-ao-receber-o-erro-12175-um-ou-mais-erros-foram-encontrados-no-certificado-secure-sockets-layer-ssl-enviado-pelo-servidor-o-processo-será-abortado/ Reinstalei a cadeia de certificação. Baixei e instalei a cadeia de certificação que está no manual de orientação do desenvolvedor da EFD-Reinf. Instalei também essas cadeias de certificação: https://www.gov.br/iti/pt-br/assuntos/repositorio/cadeias-da-icp-brasil https://www.gov.br/iti/pt-br/assuntos/repositorio/ac-serpro-de-1deg-nivel https://www.serpro.gov.br/links-fixos-superiores/pss-serpro/acserproacfssl https://www.gov.br/iti/pt-br/assuntos/repositorio/repositorio-ac-raiz Mas nada funcionou. O mesmo erro ocorre se executo o exemplo que vem com o ACBr "ACBrReinf_Exemplo.exe". O que mais posso fazer para funcionar nesses 2 computadores? Obrigado pela ajuda.

Deu certo, obrigado.

Boa tarde, Estou usando o ACBR Reinf para envio da declaração a partir de xml já gerado pelo sistema. Carrego o xml no evento usando "AcbrReinf1.Eventos.LoadFromString" O lote foi rejeitado, corrigi os valores e a partir do segundo envio retorna a seguinte mensagem "Já existe lote um lote idêntico recebido na base do ambiente nacional. Protocolo:" e o número do protocolo. Identifiquei que o problema é no ID do item do lote, tag: <envioLoteEventos><eventos><evento ID> Tem como eu recalcular a ID do lote do evento depois de carregar o xml a partir de um arquivo? Obrigado

Bom dia, Foi necessário um ajuste no componente da balança Trentin. Segue novamente o fonte para avaliação. ACBrBALTrentin.pas

Bom dia, Fiz a implementação da comunicação serial da balança da marca Trentin. Segue os fontes para análise e publicação. Obrigado ACBrBAL.pas ACBrBALTrentin.pas

Boa tarde, Foi necessário fazer um ajuste no componente ACBRBalToledo para utilizar o protocolo P03 para a balança toledo 2098. Nenhum dos protocolos existentes comunicou corretamente com a balança do cliente, que retornava a string quebrada da porta serial. Segue os fontes para a validação e se possível adição ao projeto. Obrigado ACBrBALToledo.pas

Bom dia, Consegui resolver o problema. Era um erro de programa.

Bom dia, estou iniciando o desenvolvimento do MDF-e. Estou realizando o envio síncrono do MDF-e e testantdo as rejeições da SEFAZ. Na function TWebServices.Envia(const ALote: String; ASincrono: Boolean = False): Boolean; É executado o comando FRetorno.GerarException( FRetorno.Msg ), que mostra a exception an tela. Minha dúvida: Tem como não mostrar a exception na tela? Preciso obter o código da rejeição para gravar na base de dados. Obrigado pela ajuda