F_BaseContr
- PaulaF (Unlicensed)
- Thaise Sousa (Unlicensed)
Retorna a soma do valor da base de contribuição de um tributo de um determinado colaborador.
Sintaxe: RH.F_BaseContr(Colaborador, Data, Tipo, Processo)
A sintaxe da função F_BaseContr contém os seguintes argumentos:
| Parte | Descrição |
|---|---|
| Colaborador | Informe o código reduzido do colaborador |
| Data | Informe a data que deverá ser utilizada como base |
| Tipo | Informe o código do Tipo de Tributo, que pode ser: 01 - Base de INSS; 02 - Base de INSS 13o; 03 - Base de INSS Férias; 04 - Base de IRRF; 05 - Base de IRRF 13o; 06 - Base de IRRF Férias; 07 - Base de FGTS; 08 - Base de FGTS 13o; 09 - Base de FGTS Férias; 10 - Bruto da RAIS 11 - Base de INSS Indenizado 12 - Base de IRRF Indenizado 13 - Base de FGTS Indenizado 14 - Bruto RAIS 13º 15 - Base de FGTS Afastado 16 - Base da RAIS Férias 17 - Salário Família 18 - Base de IRRF PLR 19 – Base de INSS Indenizado 13º Salário 20 – Base de INSS Indenizado Férias 21 – Base de IRRF Indenizado 13º Salário 22 – Base de IRRF Indenizado Férias 23 – Base de FGTS Indenizado 13º Salário 24 – Base de FGTS Indenizado Férias 25 – Base de FGTS Afastado 13º Salário 26 – Bruto RAIS Férias Indenizadas |
| Processo | Informe o código do processo desejado |
Dim iBASEMENSAL, iBASEFERIAS1, iBASEFERIAS2, iBASEFERIAS3, iBASE_CALCULO
iBASEMENSAL = RH.F_BaseContr(RH.T_COLABORADOR.FIELD("COL_IN_CODIGO").AsInteger, Mega.Data(Mega.MesCorrente,2),1, RH_ProcessoCorrente)
iBASEFERIAS1 = RH.F_BaseContr(RH.T_COLABORADOR.FIELD("COL_IN_CODIGO").AsInteger, Mega.Data(Mega.MesCorrente,2),3,10)
iBASEFERIAS2 = RH.F_BaseContr(RH.T_COLABORADOR.FIELD("COL_IN_CODIGO").AsInteger, Mega.Data(Mega.MesCorrente,2),3,19)
iBASEFERIAS3 = RH.F_BaseContr(RH.T_COLABORADOR.FIELD("COL_IN_CODIGO").AsInteger, Mega.Data(Mega.MesCorrente,2),3,20)
iBASE_CALCULO = (iBASEMENSAL + iBASEFERIAS1 + iBASEFERIAS2 + iBASEFERIAS3