S2220 - Ajuste leitura INI

[emarcolongo]

Bom dia.

Fizemos uma alteração na leitura do arquivo ini

o exMedOcup.tpExameOcup deveria esta na seção exMedOcup

      sSecao := 'aso';
      exMedOcup.aso.DtAso  := StringToDateTime(INIRec.ReadString(sSecao, 'dtAso', '0'));
      //exMedOcup.tpExameOcup  := eSStrToTpExameOcup(Ok, INIRec.ReadString(sSecao, 'tpAso', '0'));  //02/05/2022
      exMedOcup.aso.ResAso := eSStrToResAso(Ok, INIRec.ReadString(sSecao, 'resAso', '1'));

      sSecao := 'exMedOcup';                                                                            //02/05/2022
      exMedOcup.tpExameOcup  := eSStrToTpExameOcup(Ok, INIRec.ReadString(sSecao, 'tpExameOcup', '0'));  //02/05/2022

 

pcesS2220.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2649

[EMBarbosa]

Em 04/05/2022 at 10:27, emarcolongo disse:

Bom dia.

Fizemos uma alteração na leitura do arquivo ini

o exMedOcup.tpExameOcup deveria esta na seção exMedOcup

      sSecao := 'aso';
      exMedOcup.aso.DtAso  := StringToDateTime(INIRec.ReadString(sSecao, 'dtAso', '0'));
      //exMedOcup.tpExameOcup  := eSStrToTpExameOcup(Ok, INIRec.ReadString(sSecao, 'tpAso', '0'));  //02/05/2022
      exMedOcup.aso.ResAso := eSStrToResAso(Ok, INIRec.ReadString(sSecao, 'resAso', '1'));

      sSecao := 'exMedOcup';                                                                            //02/05/2022
      exMedOcup.tpExameOcup  := eSStrToTpExameOcup(Ok, INIRec.ReadString(sSecao, 'tpExameOcup', '0'));  //02/05/2022

 

pcesS2220.pas 21 kB · 1 download

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

Mais uma vez obrigado.