bom dia povo, esta solução não deu certo, porque pra excluir um evento s-1210 não pode ter IndApuracao pq ai vai apresentar erro ok.
provisoriamente eu criei uma rotina 2
if ( self.InfoExclusao.tpEvento In [teS1200, teS1202, teS1210, teS2299] ) then
begin
GerarIdeTrabalhador2(self.InfoExclusao.IdeTrabalhador, True);
GerarIdeFolhaPagto2(self.InfoExclusao.IdeFolhaPagto);
end
else
begin
if ( self.InfoExclusao.IdeFolhaPagto.perApur = '' ) then
GerarIdeTrabalhador2(self.InfoExclusao.IdeTrabalhador, True)
else
GerarIdeFolhaPagto(self.InfoExclusao.IdeFolhaPagto);
end;
procedure TeSocialEvento.GerarIdeFolhaPagto2(pIdeFolhaPagto: TIdeFolhaPagto);
begin
if pIdeFolhaPagto.perApur <> EmptyStr then
begin
Gerador.wGrupo('ideFolhaPagto');
Gerador.wCampo(tcStr, '', 'perApur', 7, 7, 1, pIdeFolhaPagto.perApur);
Gerador.wGrupo('/ideFolhaPagto');
end;
end;
ai deu certo