Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Evento S-2200 - Tratamento do grupo duracao/infocontrato


gabriellc
Go to solution Solved by EMBarbosa,

Recommended Posts

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

Gabriel Rodrigues Da Costa Neto

Link to comment
Share on other sites

  • Consultores
  • Solution
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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.