| Produto: | TOTVS Backoffice |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Backoffice |
| Módulo: | Gestão de Contratos |
| Função: | CNTA300R - Revisões de Contrato |
| Ponto de Entrada: | CN300VRJ |
| Descrição: | Possibilita ao desenvolvedor modificar o valor de reajuste a ser aplicado ao item da planilha(CNB). | ||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Eventos: | Executado uma vez pra cada item(CNB) de todas as planilhas(CNA) que estejam habilitadas para serem reajustadas(campos CNB_FLREAJ e CNA_FLREAJ) | ||||||||||||||||||||||||||||||
| Programa Fonte: | CNTA300R.PRW | ||||||||||||||||||||||||||||||
| Função: | CN300REAJU | ||||||||||||||||||||||||||||||
| Parâmetros: |
| ||||||||||||||||||||||||||||||
| Retorno: |
|
#INCLUDE "Protheus.ch"
/*{Protheus.doc} CN300VRJ()
Possibilita ao desenvolvedor modificar o valor de reajuste a ser aplicado ao item da planilha(CNB). É chamado 1x pra cada item(CNB) para cada planilha(CNA).
*/
User Function CN300VRJ()
Local oModelCNA := PARAMIXB[1]//Instância da classe FWFormGridModel referente ao subModelo da CNA(Planilha)
Local oModelCNB := PARAMIXB[2]//Instância da classe FWFormGridModel referente ao subModelo da CNB(Itens da Planilha)
Local nVlrInd := PARAMIXB[3]//Percentual calculado pelo sistema para o índice
Local dDataRef := PARAMIXB[4]//Data referência informada no cabeçalho(CN9_DREFRJ)
Local lProRata := PARAMIXB[5]//Verdadeiro se utiliza pro-rata
Local dDataApl := PARAMIXB[6]//Data aplicação reajuste informada no cabeçalho(CN9_DTREAJ)
Local dDtRjAnt := PARAMIXB[7]//Data do reajuste anterior
Local dDtPrxRj := PARAMIXB[8]//Data do próximo reajuste
Local cIndice := PARAMIXB[9]//Código do indice
Local nResult := 0
nResult := oModelCNB:GetValue("CNB_VLUNIT") + 100 //Soma 100 reais ao total do item
nResult *= nVlrInd
Return nResult