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;