[RESOLVIDO] UPC - tornar o campo obrigatório

Boa tarde,

Foi adicionado um campo via SOP no programa re1001a. Acontece que gostaria de tornar esse campo obrigatório, ou seja, ele precisa ser maior que 0.

Entrei em contato com o suporte da datasul e eles comentaram que só daria para fazer via UPC, mas não tenho conhecimento em desenvolvimento de UPC's, como posso desenvolver essa função para tornar o campo obrigatório.

Obrigado desde já.

Espero q ajude...
Um exemplo de UPC segue abaixo, vc precisa montar o codigo e cadastrar a upc para o programa em questao....cadastrar a upc no programa men012aa...
=======================================================================================================================
def input param p-ind-event as char no-undo.
def input param p-ind-object as char no-undo.
def input param p-wgh-object as handle no-undo.
def input param p-wgh-frame as widget-handle no-undo.
def input param p-cod-table as char no-undo.
def input param p-row-table as rowid no-undo.
def var c-objeto as char no-undo.

def new global shared var h-object as handle no-undo.
def new global shared var wh-campo as widget-handle no-undo.

assign c-objeto = entry(num-entries(p-wgh-objectrivate-data, "~/"), p-wgh-objectrivate-data, "~/").

/*
message "EVENTO" p-ind-event skip
"OBJETO" p-ind-object skip
"NOME OBJ" c-objeto skip
"FRAME" p-wgh-frame skip
"TABELA" p-cod-table skip
"ROWID" string(p-row-table) view-as alert-box.
*/

if p-ind-event = "assign" then
do:
if valid-handle (wh-campo) then
do:
if wh-campo:screen-value <= 0 then do:
/* da mensagem de valor do campo invalido e nao deixa prosseguir voltando cursor para o campo para o usuario digitar o valor */
end.
else do:
/* grava campo */
end.
end.
end.