Evento S-2200 - Tratamento do grupo duracao/infocontrato

[gabriellc]

o codigo sempre estava gerando a TAG duracao/infocontrato, mesmo colocando PrazoNaoAplicavel,

codigo alterado:

DE
      vinculo.infoContrato.duracao.TpContr   := eSStrToTpContr(Ok, INIRec.ReadString(sSecao, 'tpContr', '1'));
      vinculo.infoContrato.duracao.dtTerm    := StringToDateTime(INIRec.ReadString(sSecao, 'dtTerm', '0'));
      vinculo.infoContrato.duracao.clauAssec := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'clauAssec', 'S'));
      vinculo.infoContrato.duracao.objDet    := INIRec.ReadString(sSecao, 'objDet', '');

PARA

      if INIRec.ReadString(sSecao, 'tpContr', '1') <> '3' then
      begin
      vinculo.infoContrato.duracao.TpContr   := eSStrToTpContr(Ok, INIRec.ReadString(sSecao, 'tpContr', '1'));
      vinculo.infoContrato.duracao.dtTerm    := StringToDateTime(INIRec.ReadString(sSecao, 'dtTerm', '0'));
      vinculo.infoContrato.duracao.clauAssec := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'clauAssec', 'S'));
      vinculo.infoContrato.duracao.objDet    := INIRec.ReadString(sSecao, 'objDet', '');
      end;

pcesS2200.pas

[EMBarbosa]

Em 13/01/2022 at 12:23, gabriellc disse:

o codigo sempre estava gerando a TAG duracao/infocontrato, mesmo colocando PrazoNaoAplicavel,

codigo alterado:

DE
      vinculo.infoContrato.duracao.TpContr   := eSStrToTpContr(Ok, INIRec.ReadString(sSecao, 'tpContr', '1'));
      vinculo.infoContrato.duracao.dtTerm    := StringToDateTime(INIRec.ReadString(sSecao, 'dtTerm', '0'));
      vinculo.infoContrato.duracao.clauAssec := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'clauAssec', 'S'));
      vinculo.infoContrato.duracao.objDet    := INIRec.ReadString(sSecao, 'objDet', '');

PARA

      if INIRec.ReadString(sSecao, 'tpContr', '1') <> '3' then
      begin
      vinculo.infoContrato.duracao.TpContr   := eSStrToTpContr(Ok, INIRec.ReadString(sSecao, 'tpContr', '1'));
      vinculo.infoContrato.duracao.dtTerm    := StringToDateTime(INIRec.ReadString(sSecao, 'dtTerm', '0'));
      vinculo.infoContrato.duracao.clauAssec := eSStrToSimNao(Ok, INIRec.ReadString(sSecao, 'clauAssec', 'S'));
      vinculo.infoContrato.duracao.objDet    := INIRec.ReadString(sSecao, 'objDet', '');
      end;

pcesS2200.pas 29 kB · 0 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  23464.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.