Jump to content

dev botao

Falha carregamento arquivo .ini


Rozelo
  • Este tópico foi criado há 717 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;

 

Link to comment
Share on other sites

  • Este tópico foi criado há 717 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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.