Alterações para compatibilização do ACBreSocial com a versão Simplificada 1.3

[Diego Foliene]

Para adequação a versão S-1.3 do eSocial, os eventos da lista abaixo foram modificados. Clique no item para mais detalhes:

• evtInfoEmpregador (S-1000)
• evtTabRubrica (S-1010)
• evtRemun (S-1200)
• evtRMnRPPS (S-1202)
• evtBenPrRP (S-1207)
• evtPgtos (S-1210)
• evtDeslig (S-2299)
• evtTSVTermino (S-2399)
• evtProcTrab (S-2500)
• evtContProc (S-2501)
• evtConsolidContProc (S-2555)
• evtExcProcTrab (S-3500)
• evtBasesTrab (S-5001)
• evtIrrfBenef (S-5002)
• evtBasesFGTS (S-5003)
• evtCS (S-5011)

Em caso de dúvidas, consulte também os programas de exemplo disponíveis.

[Diego Foliene]

 evtInfoEmpregador (S-1000)

• Adiciona na classe TinfoCadastro a propriedade indTribFolhaPisPasep.

Exemplo de preenchimento:

uses
  pcesS1000;
\\...
var
  evtInfoEmpregador: TevtInfoEmpregador;
begin
  evtInfoEmpregador := ACBreSocial.Eventos.Iniciais.S1000.New.evtInfoEmpregador;
  evtInfoEmpregador.infoEmpregador.infoCadastro.indTribFolhaPisPasep := snfNao;
  //Preenche os demais dados do evento...
end;

Voltar ao início

[Diego Foliene]

 evtTabRubrica (S-1010)

• Adiciona na classe TDadosRubrica a propriedade codIncPisPasep.
• Adiciona as classes TIdeProcessoPisPasepCollection e TIdeProcessoPisPasepCollectionItem.

Exemplo de preenchimento:

uses
  pcesS1010;
\\...
var
  evtTabRubrica: TEvtTabRubrica;
  IdeProcessoPisPasep: TIdeProcessoPisPasepCollectionItem;
begin
  evtTabRubrica := ACBreSocial.Eventos.Tabelas.S1010.New.EvtTabRubrica;

  evtTabRubrica.InfoRubrica.DadosRubrica.codIncPisPasep := ciPISPASEPNaoeBasedeCalculodo;
  ideProcessoPisPasep := evtTabRubrica.InfoRubrica.DadosRubrica.IdeProcessoPisPasep.New;
  ideProcessoPisPasep.nrProc := '12345678';
  ideProcessoPisPasep.codSusp := '01014';
  //Preenche os demais dados do evento...
end;

Voltar ao inicio

[Diego Foliene]

 evtRemun (S-1200)

• Adiciona na classe TinfoIntermCollectionItem a propriedade hrsTrab.
• Adiciona a classe TdescFolha.

Exemplo de preenchimento:

uses
  pcesS1200;
//...
var
  evtRemun: TEvtRemun;
  descFolha: TdescFolha;
begin
  evtRemun := ACBreSocial1.Eventos.Periodicos.S1200.New.evtRemun;
  descFolha := evtRemun.dmDev.New.infoPerApur.ideEstabLot.New.remunPerApur.New.itensRemun.New.descFolha;
  descFolha.tpDesc := tpdeConsignado;
  descFolha.instFinanc := '033';
  descFolha.nrDoc := '12345678';
  descFolha.observacao := 'Teste';

  evtRemun.ideTrabalhador.infoInterm.New.hrsTrab := '0800';
  //Preenchimento das demais informações do evento...
end;

Voltar ao inicio

[Diego Foliene]

 evtRMnRPPS (S-1202)

• Adiciona a classe TdescFolha.

Exemplo de preenchimento:

uses
  pcesS1202;
//...
var
  evtRmnRPPRS: TEvtRmnRPPS;
  descFolha: TdescFolha;
begin
  evtRmnRPPRS := ACBreSocial1.Eventos.Periodicos.S1202.New.evtRmnRPPS;
  descFolha := evtRmnRPPRS.dmDev.New.infoPerApur.ideEstab.New.remunPerApur.New.itensRemun.New.descFolha;
  descFolha.tpDesc := tpdeConsignado;
  descFolha.instFinanc := '033';
  descFolha.nrDoc := '12345678';
  descFolha.observacao := 'Teste';
  //Preenche demais informações do evento...
end;

Voltar ao início

[Diego Foliene]

 evtBenPrRP (S-1207)

• Adiciona a classe TdescFolha.

Exemplo de preenchimento:

uses
  pcesS1207;
//...
var
  evtBenPrRP: TevtBenPrRP;
  descFolha: Tdescfolha;
begin
  evtBenPrRP := ACBreSocial1.Eventos.Periodicos.S1207.New.evtBenPrRP;
  descFolha := evtBenPrRP.dmDev.New.infoPerApur.ideEstab.New.itensRemun.New.descFolha;
  descFolha.tpDesc := tpdeConsignado;
  descFolha.instFinanc := '033';
  descFolha.nrDoc := '12345678';
  descFolha.observacao := 'Teste';
  //Preenchimento das demais informações do evento...
end;

Voltar ao início

[Diego Foliene]

 evtPgtos (S-1210)

• Adiciona na classe TinfoIRComplem uma propriedade perAnt do tipo TperAnt.
• Adiciona na classe TprevidComplCollectionItem as propriedades vlrDedPC13 e vlrPatrocFunp13.
• O elemento InfoIRComplem agora é uma collection.

Exemplo de preenchimento:

uses
  pcesS1210;
//...
var
  evtPgtos: TevtPgtos;
  perAnt: TperAnt;
  InfoIRComplem: TinfoIRComplemCollectionItem;
  previdCompl: pcesS1210.TprevidComplCollectionItem;
begin
  evtPgtos := ACBreSocial1.Eventos.Periodicos.S1210.New.evtPgtos;
  InfoIRComplem := evtPgtos.IdeBenef.infoIRComplem.New;
  perAnt := InfoIRComplem.perAnt;
  perAnt.perRefAjuste := '102024';
  perAnt.nrRec1210Orig := '123456';

  previdCompl := InfoIRComplem.infoIRCR.New.previdCompl.New;
  previdCompl.vlrDedPC13 := 100;
  previdCompl.vlrPatrocFunp13 := 100;
  //Preenche as demais informações do evento...
end;

Voltar ao inicio

[Diego Foliene]

 evtDeslig (S-2299)

• Adiciona na classe TInfoInterCollectionItem a propriedade hrsTrab.
• Adiciona a classe TdescFolha.

Exemplo de preenchimento:

uses
  pcesS2299;
//...
var
  evtDeslig: TevtDeslig;
  descFolha: TdescFolha;
begin
  evtDeslig := ACBreSocial1.Eventos.NaoPeriodicos.S2299.New.evtDeslig;
  evtDeslig.InfoDeslig.infoInterm.New.hrsTrab := '0800';
  descFolha := evtDeslig.InfoDeslig.VerbasResc.dmDev.New.infoPerApur.ideEstabLot.New.detVerbas.New.descFolha;
  descFolha.tpDesc := tpdeConsignado;
  descFolha.instFinanc := '033';
  descFolha.nrDoc := '12345678';
  descFolha.observacao := 'Teste';
  //Preenchimento das demais informações...
end;

Voltar ao inicio

[Diego Foliene]

 evtTSVTermino (S-2399)

• Adiciona a classe TdescFolha.

Exemplo de preencimento:

uses
  pcesS2399;
//...
var
  evtTSVTermino: TevtTSVTermino;
  descFolha: TdescFolha;
begin
  evtTSVTermino := ACBreSocial1.Eventos.NaoPeriodicos.S2399.New.EvtTSVTermino;
  descFolha := evtTSVTermino.InfoTSVTermino.verbasResc.dmDev.New.ideEstabLot.New.detVerbas.New.descFolha;
  descFolha.tpDesc := tpdeConsignado;
  descFolha.instFinanc := '033';
  descFolha.nrDoc := '12345678';
  descFolha.observacao := 'Teste';
end;

Voltar ao inicio

[Diego Foliene]

 evtProcTrab (S-2500)

• Adiciona na classe TIdeResp as propriedades dtAdmRespDir e matRespDir.
• Adiciona na classe IdePeriodoCollectionItem uma propriedade infoInterm do tipo TinfoIntermCollectionItem.

Exemplo de preenchimento:

uses
  pcesS2500;
//...
var
  evtProcTrab: TevtProcTrab;
  infoInterm: TInfoIntermCollectionItem;
begin
  evtProcTrab := ACBreSocial1.Eventos.NaoPeriodicos.S2500.New.EvtProcTrab;
  evtProcTrab.ideEmpregador.ideResp.dtAdmRespDir := Now;
  evtProcTrab.ideEmpregador.ideResp.matRespDir := '12345678';

  infoInterm := evtProcTrab.ideTrab.infoContr.New.ideEstab.infoVlr.idePeriodo.New.infoInterm.New;
  infoInterm.dia := 30;
  infoInterm.hrsTrab := '0800';
  //Preenchimento das demais informações...
end;

Voltar ao inicio

[Diego Foliene]

 evtContProc (S-2501)

• Adiciona na classe TideProc a propriedade ideSeqProc.
• Adiciona na classe TInfoCRIRRFCollectionItem a propriedade vrCR13.
• Adiciona a classe TrendIsen0561.
• Adiciona na classe TInfoIRCollectionItem as propriedades vrRendModeGrave13, vrRendIsen65Dec, vrJurosMora13, vrPrevOficial13 e rendIsen0561.

Exemplo de preenchimento:

uses
  pcesS2501;
//...
var
  evtContProc: TevtContProc;
  infoCRIRRF: pcesS2501.TInfoCRIRRFCollectionItem;
  infoIR: pcesS2501.TinfoIRCollectionItem;
begin
  evtContProc := ACBreSocial1.Eventos.NaoPeriodicos.S2501.New.EvtContProc;
  evtContProc.ideProc.ideSeqProc := 1;

  infoCRIRRF := evtContProc.ideTrab.New.infoCRIRRF.New;
  infoCRIRRF.vrCR13 := 100;

  infoIR := infoCRIRRF.infoIR.New;
  infoIR.vrRendMoleGrave13 := 13;
  infoIR.vrRendIsen65Dec := 65;
  infoIR.vrJurosMora13 := 13;
  infoIR.vrPrevOficial13 := 13;

  infoIR.rendIsen0561.vlrDiarias := 100;
  infoIR.rendIsen0561.vlrAjudaCusto := 100;
  infoIR.rendIsen0561.vlrIndResContrato := 100;
  infoIR.rendIsen0561.vlrAbonoPec := 100;
  infoIR.rendIsen0561.vlrAuxMoradia := 100;
  //Preenchimento das demais informações...
end;

Voltar ao inicio

[Diego Foliene]

 evtConsolidContProc (S-2555)

• Adiciona o novo evento na íntegra.

Exemplo de preenchimento:

uses
  pcesS2555;
//...
var
  evtConsolidContProc: TEvtConsolidContProc;
begin
  evtConsolidContProc := ACBreSocial1.Eventos.NaoPeriodicos.S2555.New.evtConsolidContProc;
  evtConsolidContProc.ideEvento.ProcEmi := peAplicEmpregador;
  evtconsolidcontProc.ideEvento.VerProc := '1.0.0';

  evtConsolidContProc.ideEmpregador.TpInsc := tiCNPJ;
  evtConsolidContProc.ideEmpregador.NrInsc := '12345678901234';

  evtConsolidContProc.ideProc.nrProcTrab := '123456789012345';
  evtConsolidContProc.ideProc.perApurPgto := '2024-10';
end;

Voltar ao inicio

[Diego Foliene]

 evtExcProcTrab (S-3500)

• Adiciona na classe TideProcTrab a propriedade ideSeqProc.

uses
  pcesS3500;
//...
var
  evtExcProcTrab: TevtExcProcTrab;
begin
  evtExcProcTrab := ACBreSocial1.Eventos.NaoPeriodicos.S3500.New.EvtExcProcTrab;
  evtExcProcTrab.InfoExclusao.ideProcTrab.ideSeqProc := 1;
  //Preenchimento das demais informações do evento...
end;

Voltar ao inicio

[Diego Foliene]

 evtBasesTrab (S-5001)

• Adiciona as novas classes TInfoPisPasep, TIdeEstabCollection, TIdeEstabCollectionItem, TInfoCategPisPasepCollection, TInfoCategPisPasepCollectionITem, TinfoBasePisPasepCollection e TinfoBasePisPasepCollectionItem.

Exemplo de leitura:

uses
  pcesS5001;
//...
var
  evtBasesTrab: TEvtBasesTrab;
  ideEstab: pcesS5001.TideEstabCollectionItem;
  infoCategPisPasep: TInfoCategPisPasepCollectionItem;
  infoBasePisPasep: TinfoBasePisPasepCollectionItem;
  i, j, k, LcodCateg, Lind13: integer;
  LTpInsc: tpTpInsc;
  LtpValorPisPasep: TtpValorPisPasep;
  LnrInsc, Lmatricula : String;
  LvalorPisPasep: Double;
begin
  evtBasesTrab := TS5001(ACBreSocial1.WebServices.ConsultaLote.RetConsultaLote[0].retEventos[0].tot[0].Evento).EvtBasesTrab;
  for i:=0 to Pred(evtBasesTrab.infoPisPasep.ideEstab.Count) do
  begin
    ideEstab := evtBasesTrab.infoPisPasep.ideEstab[i];
    LTpInsc := ideEstab.tpInsc;
    LnrInsc := ideEstab.nrInsc;
    for j:=0 to Pred(ideEstab.infoCategPisPasep.Count) do
    begin
      infoCategPisPasep := ideEstab.infoCategPisPasep[j];
      Lmatricula := infoCategPisPasep.matricula;
      LcodCateg := infoCategPisPasep.codCateg;
      for k:=0 to Pred(infoCategPisPasep.infoBasePisPasep.Count) do
      begin
        infoBasePisPasep := infoCategPisPasep.InfoBasePisPasep[k];
        LtpValorPisPasep := infoBasePisPasep.tpValorPisPasep;
        Lind13 := infoBasePisPasep.ind13;
        LvalorPisPasep := infoBasePisPasep.valorPisPasep;
      end;
    end;
  end;
end;

Voltar ao inicio

[Diego Foliene]

 evtIrrfBenef (S-5002)

• Adiciona as novas classes TTotInfoIR, TconsolidApurMenCollection e TconsolidApurMenCollectionItem.

Exemplo de leitura:

uses
  pcesS5002;
//...
var
  evtIrrfBenef: TevtIrrfBenef;
  consolidApurMen: TconsolidApurMenCollectionItem;
  i: Integer;
  LCRMen, LdescRendimento: String;
  LvlrRendTrib, LvlrRendTrib13, LvlrPrevOficial, LvlrPrevOficial13,
  LvlrCRMen, LvlrCR13Men, LvlrParcIsenta65, LvlrParcIsenta65Dec,
  LvlrDiarias, LvlrAjudaCusto, LvlrIndResContrato, LvlrAbonoPec,
  LvlrRendMoleGrave, LvlrRendMoleGrave13, LvlrAuxMoradia,
  LvlrBolsaMedico, LvlrBolsaMedico13, LvlrJurosMora, LvlrIsenOutros: Double;
begin
  evtIrrfBenef := TS5002(ACBreSocial1.WebServices.ConsultaLote.RetConsultaLote[0].retEventos[0].tot[0].Evento).EvtirrfBenef;
  for i:=0 to Pred(evtIrrfBenef.IdeTrabalhador.totInfoIR.consolidApurMen.Count) do
  begin
    consolidApurMen := evtIrrfBenef.IdeTrabalhador.totInfoIR.consolidApurMen[i];
    LCRMen := consolidApurMen.CRMen;
    LvlrRendTrib := consolidApurMen.vlrRendTrib;
    LvlrRendTrib13 := consolidApurMen.vlrRendTrib13;
    LvlrPrevOficial := consolidApurMen.vlrPrevOficial;
    LvlrPrevOficial13 := consolidApurMen.vlrPrevOficial13;
    LvlrCRMen := consolidApurMen.vlrCRMen;
    LvlrCR13Men := consolidApurMen.vlrCR13Men;
    LvlrParcIsenta65 := consolidApurMen.vlrParcIsenta65;
    LvlrParcIsenta65Dec := consolidApurMen.vlrParcIsenta65Dec;
    LvlrDiarias := consolidApurMen.vlrDiarias;
    LvlrAjudaCusto := consolidApurMen.vlrAjudaCusto;
    LvlrIndResContrato := consolidApurMen.vlrIndResContrato;
    LvlrAbonoPec := consolidApurMen.vlrAbonoPec;
    LvlrRendMoleGrave := consolidApurMen.vlrRendMoleGrave;
    LvlrRendMoleGrave13 := consolidApurMen.vlrRendMoleGrave13;
    LvlrAuxMoradia := consolidApurMen.vlrAuxMoradia;
    LvlrBolsaMedico := consolidApurMen.vlrBolsaMedico;
    LvlrBolsaMedico13 := consolidApurMen.vlrBolsaMedico13;
    LvlrJurosMora := consolidApurMen.vlrJurosMora;
    LvlrIsenOutros := consolidApurMen.vlrIsenOutros;
    LdescRendimento := consolidApurMen.descRendimento;
  end;
end;

Voltar ao inicio

[Diego Foliene]

 evtBasesFGTS (S-5003)

• Adiciona na classe TInfoFGTS a propriedade classTrib do tipo TpClassTrib.

Exemplo de leitura:

uses
  pcesS5003;
//...
var
  evtBasesFGTS: TevtBasesFGTS;
  LclassTrib: TpClassTrib; 
begin
  evtBasesFGTS := TS5003(ACBreSocial1.WebServices.ConsultaLote.RetConsultaLote[0].retEventos[0].tot[0].Evento).evtBasesFGTS;
  LclassTrib := evtBasesFGTS.infoFGTS.classTrib;
end;

Voltar ao inicio

[Diego Foliene]

 evtCS (S-5011)

• Adiciona as classes TinfoEstabRef, TideEstabCollection, TideEstabCollectionItem, TbasesPisPasep e TbasesCp13.

Exemplo de leitura:

uses
  pcesS5011;
//...
var
  S5011: TS5011;
  evtCS: TEvtCS;
  i, j, k: integer;
  ideEstab: pcesS5011.TideEstabCollectionItem;
  ideLotacao: pcesS5011.TideLotacaoCollectionItem;
  basesRemun: pcesS5011.TbasesremunCollectionItem;
  LaliqRat: tpAliqRat;
  Lfap, LaliqRatAjust, LvrBcCp00, LvrBcCp15, LvrBcCp20, LvrBcCp25,
  LvrSuspBcCp00, LvrSuspBcCp15, LvrSuspBcCp20, LvrSuspBcCp25,
  LvrBCPisPasep, LVrBCPisPasepSusp: Double;
begin
  evtCS := TS5011(ACBreSocial1.WebServices.ConsultaLote.RetConsultaLote[0].retEventos[0].tot[0].Evento).evtCS;
  for i:=0 to Pred(evtCS.infoCS.ideEstab.Count) do
  begin
    ideEstab := evtCS.infoCS.ideEstab[i];
    LAliqRat := ideEstab.infoEstab.infoEstabRef.aliqRat;
    Lfap := ideEstab.infoEstab.infoEstabRef.fap;
    LAliqRatAjust := ideEstab.infoEstab.infoEstabRef.aliqRatAjust;

    for j:=0 to Pred(ideEstab.ideLotacao.Count) do
    begin
      ideLotacao := ideEstab.ideLotacao[j];
      for k:=0 to Pred(ideLotacao.basesremun.Count) do
      begin
        basesRemun := ideLotacao.basesRemun[k];
        LvrBcCp00 := basesRemun.basesCp13.vrBcCp00;
        LvrBcCp15 := basesRemun.basesCp13.vrBcCp15;
        LvrBcCp20 := basesRemun.basesCp13.vrBcCp20;
        LvrBcCp25 := basesRemun.basesCp13.vrBcCp25;
        LvrSuspBcCp00 := basesRemun.basesCp13.vrSuspBcCp00;
        LvrSuspBcCp15 := basesRemun.basesCp13.vrSuspBcCp15;
        LvrSuspBcCp20 := basesRemun.basesCp13.vrSuspBcCp20;
        LvrSuspBcCp25 := basesRemun.basesCp13.vrSuspBcCp25;
      end;
    end;
    
    LvrBcPisPasep := ideEstab.basesPisPasep.vrBcPisPasep;
    LvrBcPisPasepSusp := ideEstab.basesPisPasep.vrBcPisPasepSusp;
  end;
end;

Voltar ao inicio