01. CN300VRJ - Alterar o valor do reajuste do item da planilha
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Gestão de Contratos |
| Função: | CNTA300R - Revisões de Contrato |
| Ponto de Entrada: | CN300VRJ |
02. DETALHES
| Descrição: | Possibilita ao desenvolvedor modificar o valor de reajuste a ser aplicado ao item da planilha(CNB). É chamado uma pra cada item(CNB) de todas as planilhas(CNA) que estejam habilitadas para serem reajustadas(campos CNB_FLREAJ e CNA_FLREAJ) | ||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Eventos: | Executado antes da inclusão de uma nova revisão | ||||||||||||||||||||||||||||||
| 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]//Valor calculado pelo sistema p/ o indice
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 := (nVlrInd * 1.1) //Incrementa em 10% o valor já calculado pelo sistema
Return nResult
|