Perguntas Validar campo

Caio boa tarde, pra começar, troque o nome da sua função VALID pois é um nome padrão dentro da linguagem advpl e pode ocasionar erros futuros, tente VldNum por exemplo.

Segundo vc deverá ou mandar um parâmetro pra sua função ou utilizar a leitura do campo que vc criou;

User Function VldNum(nNum) // Envio de Parametros, na validacao do campo na SC6 Você coloca U_VldNum(M->C6_NUM) por exemplo:

Ou

Capturando o conteudo do campo na SC6 na digitação do Pedido de Vendas:

No campo de Validação da SC6 Coloque apenas U_VldNum()

User Function VldNum()
Local nPosNum := AScan(aHeader,{|x| AllTrim(x[2]) == "C6_NUM" })

// Verifica se a Linha nao Esta Deletada
If !aCols[n,Len(aHeader)+1]
If Val(aCols[n,nPosNum]) < 10
MsgStop("Atenção Valor Menor que 10 !")
Return .f.
Endif
Endif
Return .f.

////

#INCLUDE "PROTHEUS.CH"

User Function VALID

If VAL (nNum) < 10
MsgInfo("Valor incorreto")
Return(.F.)
Else
Return(.T.)
EndIf
Return

Perdão usei como exemplo o campo C6_NUM, vc deverá substituir pelo seu campo ok.

Abraços

Segue o exemplo no caso da utilização de um axcadastro:

User Function VldNum()

// Verifica se a Linha nao Esta Deletada
If Val(M->Z1_NUMERO) < 10
MsgStop("Atenção Valor Menor que 10 !")
Return .f.
Endif

Return .t.

Neste caso basta colocar na validação do campo Z1_NUMERO U_VldNum()

Caso o usuário digite um valor menor que 10 será apresentada a mensagem e o mesmo não poderá sair do campo,
caso contrário passará normalmente.