N130USRVD - Validação dos descontos para medição.

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

Gestão de Contratos

Rotina:

Rotina	Nome Técnico
CNTA130	Descontos na Medições do Contrato

Parâmetro(s):

Estrutura da tabela CNQ - PARAMIXB[1]

Valores da tabela CNQ - PARAMIXB[2]

Ponto de Entrada:

CN130USRVD

Versão:

Protheus 12.1.17

Ponto de Entrada

Descrição:	Ponto de entrada tem por objetivo permitir validar os descontos inclusos na medição de contratos após as validações do sistema.
Eventos:	Na rotina CNTA120
Programa Fonte:	CNTA130.prw
Função:	CN130VldDes
Retorno:	Lógico

Exemplo:

USER FUNCTION CN130USRVD()
Local aHeader := PARAMIXB[1]
Local aCols := PARAMIXB[2]

Local nPosVlr := aScan(aHeader,{|x|Alltrim(x[2]) == 'CNQ_VALOR' })
Local nVlrtot := 0
Local nX := 0

Local lRet := .T.

For nX := 1 To Len(aCols)
nVlrTot += aCols[nX,nPosVlr]
Next nX

If nVlrTot > 100
MsgAlert('Valor Inválido')
lRet := .F.
Else
MsgAlert('Valor Válido')
EndIf

RETURN lRet