[Erro EFD-REINF]

45 minutos atrás, Felipe Wollmann disse:

Sim, estou conseguindo enviar o evento R2099, mas ainda não encontrei a forma correta de buscar o código de recibo dos eventos.

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,

 

 

[ideEmpregador - nrInsc com 8 posições]

12 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Márcio,

Favor anexar a Unit alterada para que possamos analisar e realizar o merge caso esteja tudo OK.

Segue anexo.

Abraços.

ACBreSocialWebServices.pas

[ideEmpregador - nrInsc com 8 posições]

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.

 

[Erro EFD-REINF]

3 minutos atrás, Renato Rubinho disse:

Confirma se seu caminho está correto realmente.

O que você postou: C:\ACBR_Atualizado\Exemplos\ACBrDFe\ACBrReinf\Delphi\Schemas

está fora do padrão do componente "..\Acbr\Exemplos\ACBrDFe\Schemas\Reinf"

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.

[Erro EFD-REINF]

17 minutos atrás, BigWings disse:

Como está a configuração do path dos Schemas?

Funciona se informar SSLXmlSignLib = xsMsXML?

19 minutos atrás, Daniel Simoes disse:

lembrando que xsLibXML2, não suporta Paths de rede, como por exemplo: //SERVIDOR/PastaSchemas... é necessário um Path regular Ex: (C:\Schemas\)

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.

 

[Erro EFD-REINF]

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

[ACBreSocial - problema ao definir certificado A3]

Boa tarde @Leivio Fontenele

Tem alguma novidade sobre a utilização de Certificado A3?

Grato,

 

 

[Chave de Acesso]

Em 14/09/2017 at 18:04, Natanael R. Rodrigues disse:

Gostaria de Gerar na minha aplicação da chave de acesso para manter o controle dos dados na minha aplicação. Tenho alguns processos de controle que tenho que fazer antes de alimentar o componente para enviar os dados para a eSocial. 

@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

[ACBreSocial - Fontes]

2 horas atrás, Juliomar Marchetti disse:

Exatamente como o Daniel repassou ! estou efetuando o merge entre o que já tem no branches e o que foi adicionado ao trunk2 para dai poder liberar.

@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

[ACBreSocial - Fontes]

@Paulo Souza

Essa função fica em System.DateUtils. Estou usando XE 10 Seattle.

Márcio

[ACBreSocial - Fontes]

1 hora atrás, Leivio Fontenele disse:

Para A3 estou fazendo uma lib para intermediar a assinatura. Aguarde uma ou duas semanas que dar certo

Grato @Leivio Fontenele e @Daniel Simoes.

Fico no aguardo do A3. Se conseguir alguma coisa eu posto aqui também.

Att,

Márcio

[ACBreSocial - Fontes]

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

[Problemas do SAT com Gbp Service]

Obrigado André. Vou tentar fazer isso.

Grato.

[Problemas do SAT com Gbp Service]

9 minutos atrás, Sérgio Assunção disse:

Mas qual é exatamente o problema com o SAT ?

Já li relatos, até aqui mesmo no fórum, em que esse aplicativo faz com que projetos desenvolvidos em Delphi ficam com a tela branca, botões somem, etc.

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.

[Problemas do SAT com Gbp Service]

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

 

[Erro ACBrSAT Sign]

Estou com o mesmo problema "cryptCreateHash", pelo que vi é um método pertencente à advapi32.dll. Preciso utilizar A3. Minha estão é Win 10 64 bits, mas em uma Seven 32 dá o mesmo erro.

Att,