Magnele Sales

Segue anexo com fonte... ACBrConsultaCNPJ.WS.CNPJWS.pas

Consulta CNPJ pelo componente TACBrConsultaCNPJ e provedor cwsCNPJWS não retorna IBGE_Municipio. Para corrigir o problema foi necessário incluir o código "FResposta.CodigoIBGE := LJsonObject.AsJSONObject['cidade'].AsString['ibge_id'];" não função "function TACBrConsultaCNPJWSCNPJWS.Executar: boolean;" da unit "ACBrConsultaCNPJ.WS.CNPJWS".

Acredito que o ACBrReinf ainda esteja ajustado para a versão do layout 1.5. A partir de janeiro entra o layout 2.1 de acordo com o Ato Declaratório abaixo; ATO DECLARATÓRIO EXECUTIVO COFIS Nº 93, DE 26 DE NOVEMBRO DE 2021 - ATO DECLARATÓRIO EXECUTIVO COFIS Nº 93, DE 26 DE NOVEMBRO DE 2021 - DOU - Imprensa Nacional (in.gov.br).

Ei Renato, segui este guia de configuração e consegui enviar e-mails em servidores que não requerem SSL.. Uma conta que estava testando e que requer SSL é o zoho free, mas vi na documentação que não está disponível o serviço smtp para as contas free. Então, sobre SSL pode ser realmente que a mensagem relate sobre a versão do SSL mas tenha origem de fato na autenticação. Agradeço o apoio pessoal... Muito obrigado...

Humm, sobre a usuário/senha tenho certeza que estão corretos. Mas se a mensagem pode não ser clara vou verificar se o email / smtp está habilitado. Avançando retorno aqui... Obrigado pessoal...

Sim, quiando me referi as pastas 32 e 64 não quis dizer pastas do sistema. Mas as pastas de saída de compilação que direcionei para cada arquitetura... O erro completo é este SMTP Error: Unable to Login. 10091 - error:1408F10B:SSL routines:ssl3_get_record:wrong version number

Isto, compilo em 64. Mas para fins de testes no exemplo MailTeste compilei em 32 e 64 colocando as dlls libeay32 e ssleay32 na pasta 32 e 64 bits, mas não consegui executar com sucesso. São estas as dlls? Ou precisa de outras?

Fiz o teste com o Demo do ACBrMail e o erro é o mesmo...

Sim, são sistema e dll 64... Também testei em 32 e o erro é o mesmo... Observando a mensagem, o erro não parece estar relacionado à arquitetura, mas sim quanto à versão da DLL... Mas a questão, qual versão usar? Estou usando a 1.1.1.10 disponibilizada pelo ACBr...

Estou com o erro "SSL routines:ssl3_get_record:wrong version number" ao chamar o send do TACBrMail. As dlls do openssl estão na pasta e na versão 64 bits... Alguém já passou por isto e pode compartilhar a solução?

Ao validar alguns tipos de documentos a exceção não é gerada. Ao debugar pude verificar que a validação acontece corretamente, mas ao processar o bloco final do método Validar na linha 788 a lógica despreza o retorno quando Assigned( fsOnMsgErro ) retorna false e fsRaiseExcept não foi setado... Para contornar modifiquei o bloco conforme abaixo. Mas talvez a solução esteja em outro ponto... if fsMsgErro <> '' then begin Result := false ; if Assigned( fsOnMsgErro ) then fsOnMsgErro( fsMsgErro ) else //Acrescentei aqui fsRaiseExcept := True; //Acrescentei aqui if fsRaiseExcept then raise Exception.Create( ACBrStr(fsMsgErro) ); end ;

Exato, mas uso em casa...

Sim, estou trabalhando em conformidade com o Contrato da CE. É um projeto não comercializado desenvolvido por mim, não para uma empresa.

Para uso pessoal... Estou desenvolvendo um projeto ainda não comercial.

Mesmo problema aqui... Uma pena o 10.4 regredir neste ponto. Acho que o Delphi Starter tinha esta limitação também.