Perguntas Validar duplicidade em SC

Jonas boa noite, não necessariamente um ponto de entrada, poderá utilizar uma validação no campo C1_PRODUTO para pesquisar se existe alguma sc não atendida com o mesmo produto.

Não testei mas veja se funfa:

Na Validação Usuario deste Campo Coloque U_BsqSC(M->C1_PRODUTO)



User Function BsqSC(cProduto)
Local aArea := GetArea()
Local lExiste := .f.
Local lRet := .t.

If SC1->(dbSetOrder(1), dbSeek(xFilial("SC1")+cProduto))
While SC1->(!Eof()) .And. SC1->C1_PRODUTO == cProduto .And. SC1->C1_FILIAL == xFilial("SC1")
If SC1->C1_QUANT > SC1->C1_QUJE // Quantidade Solicitada Menos Quantidade Atendida Se For Maior Entao Esta em Aberto
lExiste := .t.
Exit
Endif

SC1->(dbSkip(1))
Enddo
Endif

If lExiste
MsgBox("Atenção Já Existe Solicitação de Compras para Este Produto Ainda Não Atendida !")
lRet := .f.
Endif

RestArea(aArea)
Return lRet