English
Español
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:<div class="Code"><p>@ Busca regra da regra por processo 751 @<br></br>Definir cursor cBusRPP;<br></br><br></br>xNumReg = 0;<br></br>cBusRPP.Sql"SELECT CODREG FROM R000RPP WHERE CODPRO = 751"; @ RPP: Retorna % de extra da Situação @<br></br>cBusRPP.AbrirCursor();<br></br>Se (cBusRPP.Achou)<br></br>xNumReg = cBusRPP.CodReg;<br></br>cBusRPP.FecharCursor(); <br></br>@ Se tipo for Extras (16) @<br></br>Se (R010SIT.TipSit = 16)<br></br>inicio<br></br>@ Busca percentual de cálculo para a situação atual no evento @<br></br>Definir cursor cValCal;<br></br><br></br>xEmp = R066SIT.NumEmp;<br></br>xSit = R066SIT.CodSit;<br></br>cValCal.Sql" SELECT R008EVC.CODTAB, R008EVC.CODEVE, R008EVC.VALCAL \<br></br>FROM R030EMP, R008EVC, R008EVS \<br></br>WHERE R030EMP.NUMEMP = :xEmp \<br></br>AND R030EMP.TABEVE = R008EVS.CODTAB \<br></br>AND R008EVS.CODTAB = R008EVC.CODTAB \<br></br>AND R008EVS.CODEVE = R008EVC.CODEVE \<br></br>AND R008EVS.CODSIT = :xSit";<br></br>cValCal.AbrirCursor();<br></br>Se (cValCal.Achou)<br></br>inicio<br></br>xCodTab = cValCal.CodTab;<br></br>xCodEve = cValCal.CodEve;<br></br>xValCal = cValCal.ValCal;<br></br>fim;<br></br>Senao<br></br>inicio<br></br>xCodTab = 0;<br></br>xCodEve = 0;<br></br>xValCal = 0; <br></br>fim;<br></br>cValCal.FecharCursor();<br></br>@ Se há regra informada na regra por processo, executa a função @<br></br>Se (xNumReg <> 0)<br></br>@ xValCal pode ser alterado, o resto dos parâmetros apenas consulta @<br></br>RetornaPercentualExtra(xNumReg, R066SIT.NumEmp, R066SIT.TipCol, R066SIT.NumCad, R066SIT.DatApu, R066SIT.CodSit, R066SIT.CodRat, xCodTab, xCodEve, xValCal);<br></br>fim;</p></div>
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
