Consultores Diego Foliene Postado Quarta as 15:13 Consultores Compartilhar Postado Quarta as 15:13 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. 1 Diego FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:35 Autor Consultores Compartilhar Postado Quarta as 19:35 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 1 Diego FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:36 Autor Consultores Compartilhar Postado Quarta as 19:36 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:36 Autor Consultores Compartilhar Postado Quarta as 19:36 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:37 Autor Consultores Compartilhar Postado Quarta as 19:37 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:37 Autor Consultores Compartilhar Postado Quarta as 19:37 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:37 Autor Consultores Compartilhar Postado Quarta as 19:37 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:38 Autor Consultores Compartilhar Postado Quarta as 19:38 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:38 Autor Consultores Compartilhar Postado Quarta as 19:38 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:38 Autor Consultores Compartilhar Postado Quarta as 19:38 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:38 Autor Consultores Compartilhar Postado Quarta as 19:38 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:39 Autor Consultores Compartilhar Postado Quarta as 19:39 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:39 Autor Consultores Compartilhar Postado Quarta as 19:39 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:39 Autor Consultores Compartilhar Postado Quarta as 19:39 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:39 Autor Consultores Compartilhar Postado Quarta as 19:39 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:40 Autor Consultores Compartilhar Postado Quarta as 19:40 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 FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Consultores Diego Foliene Postado Quarta as 19:40 Autor Consultores Compartilhar Postado Quarta as 19:40 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 1 Diego FolieniAjude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts