LOCALIZAÇÃO : Ponto de entrada executado na rotina CNTA090 e CNTA100.

EM QUE PONTO : após o preenchimento da tela de lançamento de despesas do SIGAPMS:
    * Ao executar baixa dos valores de retenção de caução - CNTA100
    * Ao incluir caução de abatimento - CNTA090
    * Ao executar baixa da caução sem abatimento - CNTA090

Permite validar os lançamentos de projeto do SIGAPMS, realizado através do módulo Gestão de Contratos.

CNTA090.PRW e CNTA100.PRW

CNTVLDPMS - Execução nas rotinas CNTA090 e CNTA100 ( < PARAMIXB[1]> ) --> lRet

lRet(logico)
• Informa se permite concluir o lançamento

//No exemplo a seguir, valida se o valor total do título foi lançado corretamente:User Function CNVLDPMS()Local nVl    := PARAMIXB[1]//Valor total do tituloLocal lRet   := .T.Local nTot   := 0Local nx//aRatAFR - array private que armazena o aCols da tela de lançamento de despesa do projetoIf len(aRatAFR) > 0 //Soma os valores rateados For nx:=1 to len(aRatAFR[1,2])  ntot += aRatAFR[1,2,nx,4] NextEndIf//Verifica se o total equivale ao valor do titulolRet := (ntot == nVl)If !lret MsgAlert('O rateio nao compreende o valor total do título')EndIfReturn lRet