[solicitarDownloadEventos]

Em Anexo as Units, conforme solicitado.

ACBreSocial.pas ACBreSocialWebServices.pas ACBrDFeWebService.pas

[solicitarDownloadEventos]

Outra correção, Classe ABreSocial, linha 65:

Trocar:
  ACBRESOCIAL_NAMESPACE_RETEVT =  'http://www.esocial.gov.br/schema/consulta/identificadores-eventos/empregador/v1_0_0';

por:
  ACBRESOCIAL_NAMESPACE_CONS_EMP =  'http://www.esocial.gov.br/schema/consulta/identificadores-eventos/empregador/v1_0_0';

Adicionar:
  ACBRESOCIAL_NAMESPACE_CONS_TAB = 'http://www.esocial.gov.br/schema/consulta/identificadores-eventos/tabela/v1_0_0';
  ACBRESOCIAL_NAMESPACE_CONS_TRA = 'http://www.esocial.gov.br/schema/consulta/identificadores-eventos/trabalhador/v1_0_0';

Essa nomeação é só uma sugestão.

 

Na Classe ACBReSocialWebServices, linha 685, adicionar:

case tipoConsulta of
        tcEmpregador:
          begin
            Consulta.SoapEnvelope := ACBRESOCIAL_NAMESPACE_CONS_EMP;
          end;
          tcTabela:
          begin
            Consulta.SoapEnvelope := ACBRESOCIAL_NAMESPACE_CONS_TAB;
          end;
          tcTrabalhador:
          begin
            Consulta.SoapEnvelope := ACBRESOCIAL_NAMESPACE_CONS_TRA;
          end;
    end;

 

 

[solicitarDownloadEventos]

Isso mesmo.

[solicitarDownloadEventos]

4 minutos atrás, Italo Jurisato Junior disse:

Bom dia Alessandro,

Mas o Clear é executado antes de passar os parâmetros para o método.

Mas se eu comentar o Clear de procedure TDFeWebService.InicializarServico; os dados chegam lá no procedure TConsultaIdentEventos.DefinirDadosMsg; e consequentemente os campos do XML, ficam preenchidos.

[solicitarDownloadEventos]

Sim, tudo informado, tanto que na linha 923 até 926(ACBReSocialWebServices), os campos estão preenchidos, mas quando ele entra na function Executar, está tudo vazio.

[solicitarDownloadEventos]

Pessoal a function ConsultaIdentificadoresEventosEmpregador ainda não funciona pra mim, alguém conseguiu utilizar?

O Mesmo para ConsultaIdentificadoresEventosTabela e ConsultaIdentificadoresEventosTrabalhador, notei que quando chega na linha 667 de ACBReSocialWebServices em procedure TConsultaIdentEventos.DefinirDadosMsg, o campo FCnpj, está vazio, nenhuma propriedade do objeto foi preenchida, ocasionando erro na validação do XML;

Aproveitando na Classe ACBReSocialWebServices, linhas 743 e 744, falta ".xsd" no caminho dos Schemas, ocasionando erro de que o arquivo de Schemas não foi localizado.