Perguntas Bloquear preço abaixo da tabela no Orçamento

Vitor boa tarde, é necessário criar uma função,

e coloca no campo vlduser da c6_prcven U_validVlr()

User Function ValidVlr()
Local cProduto := aCols[n][aScan(aHeader,{|x|AllTrim(x[2])=="C6_PRODUTO"})]
Local nValor := aCols[n][aScan(aHeader,{|x|AllTrim(x[2])=="C6_PRCVEN"})]

If !Empty(cProduto)
If !Empty(M->C5_TABELA)
If nValor < DA1->DA1_VRMAX
Alert("Atencao o Valor de Venda nao pode ser Inferior ao informado na tabela de preços!")
Return .f.
Endif
Endif
Endif
Return .t.