Jump to content

chamada diadoacbr

Assista tectoy.png

S2220 - Ajuste leitura INI


Go to solution Solved by EMBarbosa,

Recommended Posts

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

Link to comment
Share on other sites

  • Administradores

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

TK-2649

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

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

[]'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.