CSA50COR - Atribuição de Valor de Corte -- 25073

O ponto de entrada atribui o valor de corte da amostra com base no coeficiente de variação calculado pela rotina.

CSAM050.PRW

CSA50COR - Atribuição de Valor de Corte ( [ Paramixb[1] ] ) --> nCorte

nCorte(numerico)
• Valor do corte a ser aplicado na amostra

O ponto de entrada deve retornar um valor numérico, que será usado pela rotina para efetuar o corte na amostra. Com a utilização do ponto de entrada, não será mais necessário informar o valor do corte nos parâmetros da pergunta do rotina de Cálculo da Pesquisa Salarial.

#INCLUDE 'PROTHEUS.CH'User Function CSA50COR()Local aArea 	:= GetArea()Local nCoefic 	:= ParamixB[1]*100Local nCorte  	:= 0Alert( "Passou pelo PE CSA50COR" )If nCoefic <= 5	nCorte := 0ElseIf nCoefic > 5 .And. nCoefic <= 15	nCorte := 2ElseIf nCoefic > 15 .And. nCoefic <= 35	nCorte := 1Else	Alert( "Coeficiente acima de 35%. Verifique a amostra!!" )	nCorte := 0EndIfRestArea( aArea )Return( nCorte )