Perguntas CONSULTA SALDO EM SB2

Prezados, boa tarde!
Sou iniciante em advpl e estou com problema para resolver esse cenário.

Como faço para fazer uma validação no campo CP_QUANT com B2_QATU?
Quero validar
se CP_QUANT > B2_SALDO
Produto sem Saldo
else

Como faço?

Ola boa tarde !

Crie um fonte e chame ele na validação do campo , seria algo como :


User function validacao()

IF(Posicione("SB2",2,xFilial("SB2")+M->CP_LOCAL+M->CP_PRODUTO,"B2_SALDO") < M->CP_QUANT)
MSGALERT( “Saldo insuficiente”, “Atenção” )
ENDIF

RETURN()

Obs: Não testei, estou sem o protheus no momento :/

Não pode esquecer que podem existir saldos empenhados, então é bom verificar o B2_SALDO - B2_EMP > CP_QUANT, dessa forma você irá verificar realmente o saldo disponível.