Sandro Felipe Adad

Mas no teu exemplo voce não utiliza a API oficial (https://www.receitaws.com.br/v1/cnpj) e como ficaria a questão do captcha que é o assunto deste tópico?

Utiliza a api free oficial do governo? caso positivo poderia compartilhar a sua solução?

Sim, podemos alterar no fonte para o windows criar a chave se necessário. Linha 85 do ACBrConsultaCNPJNavegar.pas, alterar para True: Reg.OpenKey('SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', True);

Ítalo é realmente necessária a criação da tag SituacaoEspecial para a retenção de órgão público. Foi necessário alterar o schema também, apesar do schema fornecido por eles nao ter a definição do campo, mas no manual consta. Tag criada no tomador: <IncentivoFiscal> Segue arquivo de schema onde inclui o tipo tsSituacaoEspecial. Anexei também o manual deles onde consta essa nova tag, caso deseje incorporar no ACBRNFSeX. Segue a contribuição das alterações que realizei nos fontes do ACBR para sua avaliação, porem feitas apenas no componente ACBRNFse, não utilizo ainda o ACBRNFseX neste município. *** Dúvida, como faço para parametrizar http ou https no soapAction no arquivo ISSJoinville.ini? tive que alternar a informação no .ini, ora pra homologação começando por (http) e produção com (https) Ex: Homologação [SoapAction] Recepcionar=http://nfemwshomologacao.pmjlle.joinville.sc.gov.br/EnviarLoteRpsEnvio ConsSit=http://nfemwshomologacao.pmjlle.joinville.sc.gov.br/ConsultarLoteRpsEnvio Ex: Produção [SoapAction] Recepcionar=https://%NomeURL_HP%.joinville.sc.gov.br/EnviarLoteRpsEnvio ConsSit=https://%NomeURL_HP%.joinville.sc.gov.br/ConsultarLoteRpsEnvio Coloquei também os arquivos enviados com sucesso. pnfsConversao.pas pnfsNFSeW_ABRASFv2.pas pnfsNFSe.pas PMJ - NF-em - Webservices - Manual - v14.pdf nfse_v2-04.xsd 521791-rec.xml 521791-rec-soap.xml 521791-env-lot.xml 521791-env-lot-soap.xml NF-em Impressão.pdf

A solução é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.

Sim é extra oficial, voce precisa baixar os fontes daqui deste post , em seguida reinstalar o ACBR com a substituição do componente e fontes deste post.

1) Pode excluir o uses da unit Vcl.Edge. 2) Tem de recompilar todo o ACBR ou o componente ACBRTCP que é onde esta incluso o ACBRConsultaCNPJ

ConsultaCNPJIE.dprojACBrConsultaCNPJNavegar.dfmConsultaCNPJIE.dprojConsultaCNPJIE.dprojACBrConsultaCNPJNavegar.pasuConsultaCNPJ.dfmACBrConsultaCNPJ.pasConsultaCNPJIE.dpruConsultaCNPJ.pasACBrConsultaCNPJNavegar.dfmConsultaCNPJIE.dproj Ahh, tem de recompilar o componente substituindo essa unit na pasta nos fontes do ACBR: ..trunk2\Fontes\ACBrTCP Antonio Gomes criou um evento no componente para tratar a solicitação do captcha. if Assigned(FOnSolicitarCaptcha) then begin FOnSolicitarCaptcha(Html); RespHTTP.Text:= Html; ModoAntigo := False; end; ACBrConsultaCNPJ.pas

Orlando, consegue testar o exemplo que postei logo acima. Utilizo a API oficial: https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp Eu testei a consulta pela NFe, porem dependendo da UF não é possivel a sua utilização, pois não são disponibilizados dados para consulta.

@Sandro Felipe Adad @Antonio Gomes @Dfox @Alexandre de Paula Aproveitando os códigos colaborados neste tópico, criada uma solução funcional utilizando o navegador TWebBrowser do delphi ao invés do TEdge. Segue para avaliação, se puderem verificar Antonio Gomes, DFox e Alexandre. ACBrConsultaCNPJNavegar.pas ConsultaCNPJIE.dpr ConsultaCNPJIE.dproj uConsultaCNPJ.dfm uConsultaCNPJ.pas ACBrConsultaCNPJNavegar.dfm

So que deixe essa tela redimensionavel, acabo de pegar um captcha diferente retornado pela receita. Como é o deploy do projeto chromium, o que precisa ser distribuido junto a aplicação delphi?

sim, copiei a dll (webView2Loader.dll) pra basta Debug, mas a tela navegar ficava cinza sem nada sendo exibido.... O problema é que copiei a dll que veio no seu zip e no meu delphi a versão é diferente... kkk Copiei a dll que veio na minha instalação do delphi (C:\Users\Sandro\Documents\Embarcadero\Studio\21.0\CatalogRepository\EdgeView2SDK-0.9.488\Bin\x86 ) no meu caso e funcionou.. ai abriu a tela do navegador. Deu um erro de carga no endereço eletronico(email) com o cnpj padrão desse exemplo... depois verifico. Creio que ficou bem legal a sua idéia. Com relação a navegador acho melhor usar o edge que o chromium pois ja vem com o delphi. Agora olha isso: de repente solicitou outro tipo de captcha... Será que estão mexendo no serviço ainda?

Pra mim não deu certo este exemplo, ele não invoca a rotina NavegarEdge, ao clicar no botão "Com ACBR" só exibe a mensagem: 'Erro na consulta, atulize o captcha".

Achei interessante sua idéia de usar o componente do ACBR na solução do workaround, só teriamos de ver com algum membro do ACBR se incorporariam esta nossa solução. Ah, na minha contribuição de exemplo eu não capturei todos os campos do html, apenas os que utilizo em minhas aplicações, teria de completar pra ficar de acordo com a classe do componente. Só alteraria a propriedade do zoom no seu exemplo para: EdgeBrowser1.ZoomFactor := 0.7;

ops, postei antes de salvar. ConsultaCNPJ.dproj uConsultaCNPJ.dfm uConsultaCNPJ.pas ConsultaCNPJ.dpr

Funciona na sua máquina acessar por algum browser o endereço abaixo? https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp O projeto foi construido no delphi 10.4.1

Até que seja confirmada ou não a inviabilidade de uso da api pública pelo componente do ACBR, o que pode ser feito é usar usarmos a consulta pública como foi sugerido aqui no forum. Ou seja, um projeto que contenha um navegador (edge), possibilitando que o próprio usuário clique no botão (Sou Humano) e efetue a consulta manualmente. Após a consulta manual é possível extrair os dados do próprio html resultante. Fiz um protótipo funcional que efetua isso a quem interessar. ConsultaCNPJ.dpr ConsultaCNPJ.dproj uConsultaCNPJ.dfm uConsultaCNPJ.pas

PAF-Bpe é O Programa Aplicativo Fiscal – Bilhete de Passagem Eletrônico (PAF-BP-e) Tem razão Italo, devem ser informações do software emissor do BPE, nada a ver com o xml do BPE em si.

A duvia esta ai, se gero o MD5 na tag infcpl e depois assino o xml com o certificado digital, como é feita a checagem posterior deste arquivo pelo MD5, ja que foi alterado o arquivo original que agora está com a seção <signature> preenchida? Se uso o MD5Checker do arquivo todo ele não corresponde mais com o código que foi gerado no XML, pois inclusive consta o próprio código MD5 na tag infcpl alem da tag signature preenchida... Então suponho que no momento da geração do MD5 algumas informações não devam ser incluídas? Não sei se consegui explicar a minha dúvida sobre a checagem deste MD5 pós transmissão. É possível checar o MD5 a partir de um arquivo neste caso, ou tem de ser desmembrado pra checagem?

Boa tarde, em Santa Catarina é necessário utilizar a criptografia MD5 na tag <infCpl> do BPE (https://www.sef.sc.gov.br/arquivos_portal/servicos/160/Anexo_II___Ato_DIAT_n__07_2022.pdf) conforme o texto a seguir: IV – concretizada a venda, registrar no campo “infCpl” do XML do respectivo BP-e o número do DAV que originou a operação, o Identificador único do DAF (IdDAF) que gerou o conteúdo de informação relativo ao XML, e a assinatura MD5 do PAF-BP-e, com o seguinte formato: #DAV “N”, onde N representa o número do Documento Auxiliar de Venda, #DAF “X” onde X representa o Identificador único do DAF, #GPS “P” onde P representa o Posicionamento Global de instalação do PAF-BP-e (ex: -27.58983,-48.5503673), ou do dispositivo móvel onde é executado Módulo Específico Embarcado do PAF-BP-e (MEE). Exemplo: #DAV1234567890123 #DAF1234567890ABCDEF123456 (Base64URL) #GPS-27.541234,-48.503573 #MD51234567890ABCDEF123456… <infAdic> <infCpl>#DAV0000000012824#GPS-27.20171,-49.63195#MD5F315C16FC27303FE66C6A1286D5E930A</infCpl> </infAdic> Poderiam me ajudar quanto a em que momento deve ser gerado o MD5? ( O texto não especifica o momento da geração do MD5, se é antes ou depois da assinatura digital com certificado e envio pra SEFA...) a) Gera o xml e calcula o md5 e depois assina digitalmente ou b) Gera o xml, assina digitalmente e depois calcula o MD5 ??? c) ou Não é o arquivo todo que é considerado na assinatura MD5 e so depois do cálculo e incluida a informação na tag infcpl.. d) ??? Ja econtrei aqui no forum um código que gera o MD5 de um arquivo com o Indy: function MD5(const fileName : string) : string; var idmd5 : TIdHashMessageDigest5; fs : TFileStream; begin idmd5 := TIdHashMessageDigest5.Create; fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ; try result := idmd5.HashStreamAsHex(fs); finally fs.Free; idmd5.Free; end; end;

Boa tarde, gostaria de saber se tem alguem aqui no forum que ja emitiu BPE no estado de SC. Estou iniciando testes de envio tanto em homologação quanto em produção e obtenho a mensagem de schema XML inválido. ( O XML é enviado e retorna esta mensagem.) <retBPe xmlns="http://www.portalfiscal.inf.br/bpe" versao="1.00"> <tpAmb>1</tpAmb> <cUF>42</cUF> <verAplic>RS20220905131633</verAplic> <cStat>215</cStat> <xMotivo>RejeiA A o: Falha no schema XML</xMotivo> </retBPe> Meu sistema ja emite BPE para outras unidades de federação sem problema pelo ACBR, no entanto nesta UF não esta sendo possível, alguem sabe se tem alguma tag específica para ser gerada neste estado ou alguma configuração diferente no ACBR que deva ser efetuada?

Lembrando que a partir de hoje apenas 1.1. https://www.gov.br/esocial/pt-br/noticias/fim-da-convivencia-das-versoes-do-leiaute-do-esocial Ex: ACBreSocial.Configuracoes.Geral.VersaoDF := veS01_01_00;

Fim da versão 1.0. https://www.gov.br/esocial/pt-br/noticias/fim-da-convivencia-das-versoes-do-leiaute-do-esocial

pcesS3500.pas Contribuição de ajuste do número de ocorrências tas tags cpftrab e perapurpgto Gerador.wCampo(tcStr, '', 'cpfTrab' , 11, 11, 0, self.InfoExclusao.ideProcTrab.cpfTrab); // Apenas gerada no S-2500 Gerador.wCampo(tcStr, '', 'perApurPgto', 7, 7, 0, self.InfoExclusao.ideProcTrab.perApurPgto); //Apenas gerada no S-2501

ISSCuritiba.ini Arquivo alterado.