[RESOLVIDO] Auxilio com UPC

Bom dia gente...
Desculpe por estar colocando aqui muitas vezes podem achar idiota minhas duvidas, porem
nao tenho muito conhecimento em progress e tenho muita dificuldade...
estou precisando fazer nao sei se é isto mesmo, mas andei pesquisando algumas coisas
e acho que poderia ser uma UPC, porem nao tenho muito conhecimento para tanto, dai precisava
de auxilio de voces...
preciso que quando for implantado um item e este item o campo (ped-item.cod-refer seja <> " ")
no pedido (ped-venda.pd4000) e o cliente precisa ser de um estado X (ped-venda.estado = X)
o representante (ped-repre.nome-ab-rep) seja alterado conforme o assing que eu estabelecer...
alguem consegue me auxiliar com isto?
obrigada.

Boa tarde,
segue o manual de customização, ai vc vai aprender a fazer as UPCs

boa sorte, e qualquer duvida só falar...

oie...
entao andei olhando algumas coisas e fiz abaixo... conseguem ver se está certo?

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.

IF p-ind-event = "after-end-update" AND p-ind-object = "VIEWER" THEN
DO:
FIND ped-venda WHERE ROWID(ped-venda) = p-row-table NO-LOCK NO-ERROR.
IF AVAIL ped-venda THEN
DO:
IF ped-venda.estado = "SP" THEN
DO:

FIND FIRST ped-item WHERE ped-item.nr-pedcli = ped-venda.nr-pedcli
AND ped-item.cod-refer <> " " NO-ERROR.
IF AVAIL ped-item THEN
DO:

FIND FIRST ped-repre WHERE ped-repre.nr-pedido = ped-venda.nr-pedido
AND ped-repre.nome-ab-rep <> "XX-2" NO-ERROR.
IF AVAIL ped-repre THEN
DO:

ASSIGN ped-repre.nome-ab-rep = "XX-2".

END.
END.
END.
END.
END.


obrigada...