Ajuste ao gerar grupo infoTrabInterm e infoComplCont do evento S-1200

[Joceandro Perin]

Boa tarde galera..

Na função GerarDmDev da unit pcesS1200 está gerando os grupos infoTrabInterm e infoComplCont sem verificar se os mesmos foram criados, como são grupos opcionais, ao gerar eles sem informação, está dando access violation..

Ajustei então para verificar se esses objetos foram criados para serem gerados..

Como estava...

if VersaoDF < ve02_04_02 then
  GerarInfoTrabInterm(dmDev[i].infoTrabInterm);

if VersaoDF >= ve02_04_02 then
  GerarInfoComplCont(dmDev[i].infoComplCont);

Ajustado..

if (VersaoDF < ve02_04_02) and (dmDev[i].infoTrabIntermInst()) then
  GerarInfoTrabInterm(dmDev[i].infoTrabInterm);

if (VersaoDF >= ve02_04_02) and (dmDev[i].infoComplContInst()) then
  GerarInfoComplCont(dmDev[i].infoComplCont);

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

pcesS1200.pas

[Italo Giurizzato Junior]

Bom dia Joceandro,

Você relatou alterações no evento 1200 mas a unit anexada é do 1050.

[Joceandro Perin]

Bom dia Italo,

1050? Estranho, eu baixei aqui o fonte anexado e é o 1200 mesmo, vou anexar ela novamente..

Segue..

 

pcesS1200.pas

[Italo Giurizzato Junior]

Joceandro,

Desculpe foi falha minha.

Ainda hoje estarei enviando para o repositório, muito obrigado pela colaboração.

[Joceandro Perin]

Sem problema.. Tenho mais uma correção @Italo Jurisato Junior

Essa inconsistência retornada pelo eSocial..

 

Aí verifiquei que o grupo infoInterm sempre está gerando, no meu caso não há informações relativas ao trabalho intermitente e passo sempre zero no campo qtdDiasInterm, esse grupo é opcional conforme o layout 2.4.02.. No layout permite zero, mais se eu remover o grupo, ele sobe normalmente..

 

Edited April 12, 2018 by Joceandro Perin

[Joceandro Perin]

Eu vi que o grupo infoInterm só deve ser montado se a codCateg for igual a 111..

[Joceandro Perin]

@Italo Jurisato Junior Fiz mais uns ajustes pra essa questão do grupo infoInterm pra montar somente quando houver informação no campo qtdDiasInterm, hoje ele monta sempre mesmo que eu não passe informações pra esse campo, aí pro eSocial nos casos que a categoria for diferente de 111 está dando inconsistência..

Mandei a unit novamente pra você avaliar esses ajustes e subir ao SVN.. Obrigado..

pcesS1200.pas

[Italo Giurizzato Junior]

Bom dia Joceandro,

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