Falha carregamento arquivo .ini

[Rozelo]

Prezados Senhores,

estou usando o projeto C:\ACBr\Exemplos\ACBrDFe\ACBreSocial\Delphi\ACBreSocial_Exemplo.dpr.  

não estou conseguindo importar um arquivo tipo .ini  do evente S2206.

Quando essa função é chamada, o case não retorna nada.

function TNaoPeriodicos.LoadFromIni(const AIniString: String): Boolean;
var
  Ok: Boolean;
  typVersaoDF : TVersaoeSocial;
begin
  typVersaoDF := TACBreSocial(Self.Owner).Configuracoes.Geral.VersaoDF;

  case StringINIToTipoEvento(Ok, AIniString, typVersaoDF) of
    teS2190: Self.S2190.New.EvtAdmPrelim.LerArqIni(AIniString);
    teS2200: Self.S2200.New.EvtAdmissao.LerArqIni(AIniString);
    teS2205: Self.S2205.New.EvtAltCadastral.LerArqIni(AIniString);
    teS2206: Self.S2206.New.EvtAltContratual.LerArqIni(AIniString);
    teS2210: Self.S2210.New.EvtCAT.LerArqIni(AIniString);
    teS2220: Self.S2220.New.evtMonit.LerArqIni(AIniString);
    teS2221: Self.S2221.New.evtToxic.LerArqIni(AIniString);
    teS2230: Self.S2230.New.EvtAfastTemp.LerArqIni(AIniString);
    teS2231: Self.S2231.New.EvtCessao.LerArqIni(AIniString);
    teS2240: Self.S2240.New.EvtExpRisco.LerArqIni(AIniString);
    teS2245: Self.S2245.New.EvtTreiCap.LerArqIni(AIniString);
    teS2250: Self.S2250.New.EvtAvPrevio.LerArqIni(AIniString);
    teS2260: Self.S2260.New.EvtConvInterm.LerArqIni(AIniString);
    teS2298: Self.S2298.New.EvtReintegr.LerArqIni(AIniString);
    teS2299: Self.S2299.New.EvtDeslig.LerArqIni(AIniString);
    teS2300: Self.S2300.New.EvtTSVInicio.LerArqIni(AIniString);
    teS2306: Self.S2306.New.EvtTSVAltContr.LerArqIni(AIniString);
    teS2399: Self.S2399.New.EvtTSVTermino.LerArqIni(AIniString);
    teS2400: Self.S2400.New.EvtCdBenefIn.LerArqIni(AIniString);
    teS2405: Self.S2405.New.EvtCdBenefAlt.LerArqIni(AIniString);
    teS2410: Self.S2410.New.EvtCdBenIn.LerArqIni(AIniString);
    teS2416: Self.S2416.New.EvtCdBenAlt.LerArqIni(AIniString);
    teS2418: Self.S2418.New.EvtReativBen.LerArqIni(AIniString);
    teS2420: Self.S2420.New.EvtCdBenTerm.LerArqIni(AIniString);
    teS3000: Self.S3000.New.EvtExclusao.LerArqIni(AIniString);
  end;

  Result := (GetCount > 0);
end;

 

[Juliomar Marchetti]

Está com os fontes atualizados e rodou o instalador