E-social Grupo 'Informações relacionadas ao aprendiz' no Registro S-2200

[HugoH]

Bom dia...precisei enviar ao e-Social a admissão de um Aprendiz, e no Fontes\ACBrDFe\ACBreSocial\PCNeSocial\pcesGerador.pas tive que ajustar para também gerar o XML com indAprend = 1  e sem pAprend.NrInsc informado...

Segue para vossa apreciação:

procedure TeSocialEvento.GerarInfoAprend(pAprend: TAprend);
begin
//  if (pAprend.NrInsc <> EmptyStr) then
if (pAprend.NrInsc <> EmptyStr) OR (pAprend.cnpjEntQual <> EmptyStr) then
  begin
    Gerador.wGrupo('aprend');

    if VersaoDF >= veS01_02_00 then
    begin
      Gerador.wCampo(tcStr, '', 'indAprend',   1,  1, 1, eStpIndAprendToStr(pAprend.indAprend));
      Gerador.wCampo(tcStr, '', 'cnpjEntQual', 0, 15, 0, pAprend.cnpjEntQual);
    end;

    if (pAprend.NrInsc <> EmptyStr) then
    begin
      Gerador.wCampo(tcStr, '', 'tpInsc', 1,  1, 1, eSTpInscricaoToStr(pAprend.TpInsc));
      Gerador.wCampo(tcStr, '', 'nrInsc', 1, 15, 1, pAprend.NrInsc);
    end;

    if VersaoDF >= veS01_02_00 then
      Gerador.wCampo(tcStr, '', 'cnpjPrat', 0, 15, 0, pAprend.cnpjPrat);

    Gerador.wGrupo('/aprend');
  end;
end;

[Juliomar Marchetti]

favor anexar o arquivo alterado

[HugoH]

Segue:

pcesGerador.pas

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-4996

[Renato Rubinho]

Boa noite,

Obrigado pela contribuição.
Foram enviadas correções ao SVN que devem resolver o problema relatado, Rev-32056
Por favor atualize os fontes, reinstale os componentes, verifique se o problema foi resolvido e, se possível, nos informe se foi o resultado esperado.

[HugoH]

Boa tarde, 

Rev-32056 atualizada e testada com sucesso.

Muito obrigado

[Renato Rubinho]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.