Linha Microsiga Protheus

Árvore de páginas

01. CN300VRJ - Alterar o valor do reajuste do item da planilha


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

02. DETALHES


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:
PosiçãoTipoDescrição
PARAMIXB[1]Objeto do tipo FWFormGridModelSubmodelo da CNA(Planilha)
PARAMIXB[2]Objeto do tipo FWFormGridModelSubmodelo da CNB(Itens da Planilha)
PARAMIXB[3]numérico

Percentual calculado pelo sistema para o índice

Exemplo:

O reajuste é de 10%, logo o percentual nessa posição será 1.1

PARAMIXB[4]dataData referência informada no cabeçalho(CN9_DREFRJ)
PARAMIXB[5]lógicoVerdadeiro se utiliza pro-rata
PARAMIXB[6]dataData aplicação reajuste informada no cabeçalho(CN9_DTREAJ)
PARAMIXB[7]dataData do reajuste anterior
PARAMIXB[8]dataData do próximo reajuste
PARAMIXB[9]caractereCódigo do índice
Retorno:
ValorTipoDescrição
nResultnumérico

Valor que será aplicado como reajuste do item da planilha



 

Exemplo
#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

03. ASSUNTOS RELACIONADOS