Sandro Felipe Adad

1) responsavel tecnico - tag invalida function TBPeXmlWriter.Gerar_InfRespTec: TACBrXmlNode; begin Result := nil; if (BPe.infRespTec.CNPJ <> '') then begin Result := FDocument.CreateElement('infRespTec'); corrigido - estava errado aqui 2) não gerava passageiros: if BPe.infPassagem.infPassageiro.xNome <> '' then Result.AppendChild(Gerar_InfPassageiro);//Gerar_InfPassageiro;ACBrBPeXmlWriter.pas

Após atualização de agora cedo parece que o problema foi sanado. Pode encerrar.

Erro ocorre na function ServicoToLayOut. "Valor string inválido para TLayOutMDFe: URL-QRCode". Utilizando qualquer tipo de CTe (versão 4) e com UFs diferentes. Apaguei toda minha pasta trunk e ja reinstalei o ACBR mas problema persiste ainda. Vi que no forum do ACBRDFE alguem reportou problema similar.

Correção de erros e tipos de dados. tpSimFacultativo - novo tipo. (pcesConversaoeSocial.pas) usado em TInfoVlr: (unit pcesS2500;) FindenSD: tpSimFacultativo; FindenAbono: tpSimFacultativo; correção em unit pcesS5503; function TevtFGTSProcTrab.LerXML: boolean; // Capturar a versão do evento s := Copy(FXML, Pos('/evt/evtFGTSProcTrab/', FXML)+21, 16); //ajustado e ... while leitor.rExtrai(2, 'infoTrabFGTS', '', i + 1) <> '' do begin with infoTrabFGTS do begin New; //incluído Items[i].Fmatricula := leitor.rCampo(tcStr, 'matricula'); Items[i].FcodCateg := leitor.rCampo(tcInt, 'codCateg'); Items[i].FcategOrig := leitor.rCampo(tcInt, 'categOrig'); procedure TEvtProcTrab.GerarInfoVlr(Obj: TInfoVlr); begin Gerador.wGrupo('infoVlr'); Gerador.wCampo(tcStr, '', 'compIni', 7, 7, 1, obj.compIni); Gerador.wCampo(tcStr, '', 'compFim', 7, 7, 1, obj.compFim); if VersaoDF > veS01_01_00 then begin ... Gerador.wCampo(tcStr, '', 'indenSD', 0, 1, 0, eSSimFacultativoToStr(obj.indenSD)); Gerador.wCampo(tcStr, '', 'indenAbono', 0, 1, 0, eSSimFacultativoToStr(obj.indenAbono));

Em anexo para sua avaliação. pcesConversaoeSocial.pas pcesS5503.pas pcesS2500.pas

experimente comentar a linha que acusa o erro, o código neste evento é so para diminuir a tela do navegador(zoom)

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?