RetornaPercentualExtra
Esta função permite alterar o percentual de cálculo do evento passado por parâmetro ao executar uma regra passada como primeiro parâmetro. É utilizada no modelo Fiscal Controle de Jornada para Efeitos Fiscais quando a situação a ser verificada é do tipo Extras, e quando houver regra por processo para retornar o % de extra da situação (regra 751). Isto quando utiliza Controle de Ponto e Refeitório Portaria. Por parâmetro é passado o colaborador, data de apuração, situação, rateio, tabela de eventos, evento e o valor do percentual, que pode já vir carregado, e é o único valor onde pode-se alterar o valor. Os demais são apenas para consulta, consistências.
Sintaxe: RetornaPercentualExtra(Numero xCodReg, Numero xNumEmp, Numero xTipCol, Numero xNumCad, Data xDatApu, Numero xCodSit, Numero xCodRat, Numero xTabEve, Numero xCodEve, Numero End xValCal);
Parâmetros:
| Nome | Tipo | Descrição |
| xCodReg | Numérico | Código da regra que vai ser chamada na execução da função. |
| xNumEmp | Numérico | Empresa, que poderá ser consultado através do R066SIT.NumEmp. |
| xTipCol | Numérico | Tipo do Colaborador, que poderá ser consultado através do R066SIT.TipCol. |
| xNumCad | Numérico | Cadastro do Colaborador, que poderá ser consultado através do R066SIT.NumCad. |
| xDatApu | Data | Data de Apuração, que poderá ser consultado através do R066SIT.DatApu. |
| xCodSit | Numérico | Código da situação, que poderá ser consultado através do R066SIT.CodSit. |
| xCodRat | Numérico | Código do rateio da situação, que poderá ser consultado através do R066SIT.CodRat. |
| xTabEve | Numérico | Código da tabela de evento, que poderá ser consultado através do R008EVC.CodTab. |
| xCodEve | Numérico | Código do evento, que poderá ser consultado através do R008EVC.CodEve. |
| xValCal | Numérico | Valor do cálculo com ou sem algum valor passado. Pode ser alterado. |
Tipo de retorno: xValCal;
Exemplo:
@ Busca regra da regra por processo 751 @
Definir cursor cBusRPP;
xNumReg = 0;
cBusRPP.Sql"SELECT CODREG FROM R000RPP WHERE CODPRO = 751"; @ RPP: Retorna % de
extra da Situação @
cBusRPP.AbrirCursor();
Se (cBusRPP.Achou)
xNumReg = cBusRPP.CodReg;
cBusRPP.FecharCursor();
@ Se tipo for Extras (16) @
Se (R010SIT.TipSit = 16)
inicio
@ Busca percentual de cálculo para a situação atual no evento @
Definir cursor cValCal;
xEmp = R066SIT.NumEmp;
xSit = R066SIT.CodSit;
cValCal.Sql" SELECT R008EVC.CODTAB, R008EVC.CODEVE, R008EVC.VALCAL \
FROM R030EMP, R008EVC, R008EVS \
WHERE R030EMP.NUMEMP = :xEmp \
AND R030EMP.TABEVE = R008EVS.CODTAB \
AND R008EVS.CODTAB = R008EVC.CODTAB \
AND R008EVS.CODEVE = R008EVC.CODEVE \
AND R008EVS.CODSIT = :xSit";
cValCal.AbrirCursor();
Se (cValCal.Achou)
inicio
xCodTab = cValCal.CodTab;
xCodEve = cValCal.CodEve;
xValCal = cValCal.ValCal;
fim;
Senao
inicio
xCodTab = 0;
xCodEve = 0;
xValCal = 0;
fim;
cValCal.FecharCursor();
@ Se há regra informada na regra por processo, executa a função @
Se (xNumReg <> 0)
@ xValCal pode ser alterado, o resto dos parâmetros apenas consulta @
RetornaPercentualExtra(xNumReg, R066SIT.NumEmp, R066SIT.TipCol, R066SIT.NumCad,
R066SIT.DatApu, R066SIT.CodSit, R066SIT.CodRat, xCodTab, xCodEve, xValCal);
fim;
Utilização: Modelos de relatório da categoria Fiscal.
Observação: Para a consulta, são disponibilizadas as tags R066SIT e R008EVC. Para alterar o valor do cálculo deve-se alterar na regra o R008EVC.ValCal, que o mesmo será retornado para a variável passada na função" e no "Retorno" colocar xValCal com o valor de R008EVC.ValCal alterado ou não em regra.
Disponível para o módulo: Controle de Ponto e Refeitório Portaria.
English
Español
