N130USRVD - Validação dos descontos para medição.
Linha de Produto: | Microsiga Protheus® | ||||
Segmento: | Serviços | ||||
Módulo: | Gestão de Contratos | ||||
Rotina: |
| ||||
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:
#Include 'Protheus.ch'
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