[ACBR e-Social não gera XML de acordo as configurações do componente]

O XML gerado pelo componente TACBReSocial não está levando em consideração algumas informações que defino nas configurações.Geral dele.

Minha alteração foi feita em cima apenas da classe base e do evento de monitoramento 2220.

caso a alteração seja aceita devemos por nos os outros eventos.

pcesGerador.pas pcesS2220.pas

[S2220 erro quando não informado a tag respMonit]

Pessoal vou anexar aqui o patch das alterações que fiz relativos ao eSocial:

1) Evitar gerar a TAG não obrigatório de resultado do exame tpIndResult

tpIndResult = (irNormal, irAlterado, irEstavel, irAgravamento, irIndefinido=-1);

durante a implementação de cada um se configurar o resultado como irIndefinido a TAG do resultado do exame já não é apresentada. Acho que este deveria ser o valor padrão quando se gera um novo evento e adiciona um exame (mas eu não alterei os fontes para isso, apenas criei este novo tipo)

2) Quando o ASO é admissional geralmente o funcionário não possui matricula, logo não se pode gerar a TAG IdeVinculo. Como  o ACBR chamava um método genérico para esta TAG eu especializei para o método especifico da classe pcesS2220 e fiz os ajustes necessários.

procedure GerarIdeVinculo2220(pIdeVinculo: TIdeVinculo; pcodCateg: Boolean = True; pCessao: Boolean = False);

3) Não gerar a TAG RespMonit caso a empresa não tenha médico coordenador.

 procedure TevtMonit.GerarRespMonit;

deixei tudo comentado com meu nome tá simples de identificar, peço que ajustem no trunk se possível

PCNeSocial.patch

[S2220 erro quando não informado a tag respMonit]

Já testei estas alterações e está funcional. Seria ótimo se algum dos commiters pudessem avaliar e subir

[S2220 erro quando não informado a tag respMonit]

é vi isso tambem. minha sugestão de correção é a seguinte:

1) em  TRespMonit = class adiconar o método:

function IsEmpty: Boolean; 

function TRespMonit.IsEmpty: Boolean;
begin
  Result := (Trim(FCPFResp)+Trim(FNMResp)+Trim(FNRCRM)+Trim(FUFCRM)) = EmptyStr;
end;

2 em TevtMonit.GerarRespMonit; fazer assim:

procedure TevtMonit.GerarRespMonit;
begin
  if not self.exMedOcup.RespMonit.IsEmpty then
  begin
    Gerador.wGrupo('respMonit');
    if Trim(self.exMedOcup.RespMonit.cpfResp) <> '' then
      Gerador.wCampo(tcStr, '', 'cpfResp', 11, 11, 0, self.exMedOcup.RespMonit.cpfResp);
    Gerador.wCampo(tcStr, '', 'nmResp', 1, 70, 1, self.exMedOcup.RespMonit.nmResp);
    Gerador.wCampo(tcStr, '', 'nrCRM', 1, 8, 1, self.exMedOcup.RespMonit.nrCRM);
    Gerador.wCampo(tcStr, '', 'ufCRM', 2, 2, 1, self.exMedOcup.RespMonit.ufCRM);
    Gerador.wGrupo('/respMonit');
  end;
end;
 

 

[ESocial evento S2220 versão simplificado.]

Só esta alteração não resolve. quando dá new no exame ele já é setado como irNormal impedindo que eu deixe em branco, já que o Set não tem algo meno que irNormal