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;