Ajuste no campo tpPgto do evento S-1210 e validações

[Joceandro Perin]

Boa tarde

Ajustei a tipagem do campo tpPgto do Evento S-1210 que estava com opções a menos e diferentes do layout 2.4.02..

Ajustado..

tpTpPgto = (tpPgtoRemun1200, tpPgtoResc2299, tpPgtoResc2399, tpPgtoRemun1202, tpPgtoBenefPrev1207, tpPgtoFerias, tpPgtoCompAnt);

Ajustei tbm a validação na unit pcesS1210 para gerar conforme o campo tpPgto

if (objInfoPgto.Items[i].tpPgto in [tpPgtoRemun1200, tpPgtoResc2299, tpPgtoResc2399, tpPgtoRemun1202]) then
  if (objInfoPgto.Items[i].detPgtoFlInst()) then
    GerardetPgtoFl(objInfoPgto.Items[i].detPgtoFl);

@Italo Jurisato Junior Segue units para avaliação..

 

pcesConversaoeSocial.pas

pcesS1210.pas

[Italo Giurizzato Junior]

Bom dia Joceandro,

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.