Marcos Barreto

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

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

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

é 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;

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