Márcio M Gomes

Para pegar o Recibo e Consultar, fiz assim: ACBrReinf.WebServices.EnvioLote.RetEnvioLote.Leitor.Grupo := ACBrReinf.WebServices.EnvioLote.RetEnvioLote.Leitor.rExtrai( 1, 'infoTotal') ; ; Recibo := ACBrReinf.WebServices.EnvioLote.RetEnvioLote.Leitor.rCampo( tcStr, 'nrRecArqBase' ) ; ACBrReinf.Consultar(Recibo) ; Não fiz um teste completo ainda devido a equipe que está desenvolvendo o XML (em outro sistema) não ter finalizado ainda. Espero que ajude. Att,

Segue anexo. Abraços. ACBreSocialWebServices.pas

Boa tarde. Aqui nós utilizamos o campo IdEmpregador.nrInsc com 8 posições ( Raiz do CNPJ para trabalhar com Matriz e Filiais), ficando a propriedade ACBreSocial.Configuracoes.Geral.IdEmpregador também com 8 posições. Na ACBreSocialWebServices.pas, método TEnvioLote.DefinirDadosMsg é atribuído o TpInsc de acordo com o tamanho do IdEmpregador. Como utilizamos com 8 posições, sempre está atribuindo TpInsc := tiCPF. Segue a imagem do método atual e abaixo o ajuste que realizei. Espero que ajude.

Rubinho, você me deu uma luz. rsrsrsr. Na minha pasta "customizada" de schemas, estava faltando o "xmldsig-core-schema.xsd". Coloquei ele lá e funcionou. Grato a todos.

O caminho do schema: C:\ACBR_Atualizado\Exemplos\ACBrDFe\ACBrReinf\Delphi\Schemas). A variável ArqSchema está OK. Tanto que não dá erro ao atribuir à parser_ctxt. Com xsMsXML dá a mensagem: "Necessário DigestMethod Algorithm = sha256 -> SSLLib = libOpenSSL." Não posso utilizar a OpenSSL devido a utilização de Certificado A3.

Bom dia. A aplicação exemplo do Reinf está me retornando o seguinte erro: Debugando, cheguei ao seguinte método: OBS: Observe as variáveis, a schema está vazia. Já atualizei os fontes, reinstalei tudo, baixei schemas atualizados (versão 1.03.00) e nada. Peço a ajuda da comunidade. Grato. Márcio M. Gomes

Boa tarde @Leivio Fontenele Tem alguma novidade sobre a utilização de Certificado A3? Grato,

@Natanael R. Rodrigues eu estou fazendo o seguinte: Pego o XML gerado de outra aplicação (completo, com os eventos), extraio apenas o evento (neste caso a aplicação externa está gerando apenas um evento por XML), assino e valido, adiciono apenas a assinatura do evento ao XML completo, valido e envio diretamente usando ACBreSocial.WebServices.Envia("XML"). Não estou gerando os eventos pelo ACBreSocial, e meu "Id" já vem preenchido pela aplicação externa. Na realidade é apenas uma interface entre a aplicação externa e o eSocial. Att, Márcio

@Juliomar Marchetti, Observei que em ACBrDFeSSL.pas no método TDFeSSLXmlSignClass.AdicionarSignatureElement, está atribuindo a variável URI := ExtraiURI(ConteudoXML, IdSignature), porém, para o eSocial essa variável deve ficar vazia. Estou fazendo o envio do XML diretamente pelo método Envia (ACBreSocial.WebServices.Envia), pois meu XML é gerado por outra aplicação, eu apenas assino e envio. Estou fazendo o envio e consulta com sucesso, apenas tive que ajustar isso. No fonte inicial feito pelo @Leivio Fontenele, estava assim dentro do TDFeSSLXmlSignClass.AdicionarSignatureElement: {$IFDEF ESOCIAL} URI := ''; {$ELSE} URI := ExtraiURI(ConteudoXML); {$ENDIF} Para meus testes deixei assim: if docElement <> 'eSocial' then URI := ExtraiURI(ConteudoXML, IdSignature); Como você comentou que está fazendo o merge no trunk2, não sei se isso foi visto. Att, Márcio

@Paulo Souza Essa função fica em System.DateUtils. Estou usando XE 10 Seattle. Márcio

Grato @Leivio Fontenele e @Daniel Simoes. Fico no aguardo do A3. Se conseguir alguma coisa eu posto aqui também. Att, Márcio

Boa tarde a todos. Estou testando os fontes do @Leivio Fontenele e está tudo OK (parabéns), apenas não estou conseguindo gerar a chave SHA256 com certificados A3. Estou fazendo em Delphi XE 10 Seattle. Configuração 1: SSLCryptLib := cryWinCrypt; SSLHttpLib := httpIndy; SSLXmlSignLib := xsXmlSec; Erro: "Certificado não pode ter sua chave privada exportada" Configuração 2: SSLCryptLib := cryWinCrypt; SSLHttpLib := httpIndy; SSLXmlSignLib := xsMsXml; Erro: "The DigestMethod algorithm 'http://www.w3.org/2001/04/xmlenc#sha256' is not supported" Alguém tem alguma dica para A3 ou conseguiu fazer. Grato Márcio Gomes

Obrigado André. Vou tentar fazer isso. Grato.

Olá Sérgio. O problema é que não executa a aplicação na situação e configurações descritas acima. Apenas pisca a tela e fecha. Estranho é que algumas estações executam uma vez e depois não executa mais. Já tivemos esse problema com uma outra aplicação, porém, gostaria de saber se alguém já passou por isso e conseguiu uma solução diferente da desinstalação ou formatação. Grato.

Bom dia. Alguém está com problemas para executar o exemplo do ACBrSAT em estações (Win 7) com o Gbp Service da GAS Tecnologia instalado. (Esse Gbp Service é utilizado para acesso bancário e causa problemas em vários outros programas). Desinstalá-lo é um problema e dá um trabalhão. Alguém já passou por isso ? Sabe alguma forma de resolver esse problema (sem precisar desinstala-lar o Gbp Service) ? OBS: Não adianta executar com administrador, dar permissão total, etc. Grato, Márcio Gomes