adelionep

Em Anexo as Units, conforme solicitado. ACBreSocial.pas ACBreSocialWebServices.pas ACBrDFeWebService.pas

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;

Isso mesmo.

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.

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.

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.