Urgente UPC PD4000 capturar nr-pedido

Mas você já tem uma UPC?

Se você já tem, só pegar um evento que passe na tabela ped-venda trazendo o RowID pelos parâmetros básicos da UPC, assim vc faz um FIND e tem o pedido inteiro.

Parâmetros da UPC com um FIND básico

Código:

DEFINE INPUT PARAMETER Evento           AS CHAR          NO-UNDO.
DEFINE INPUT PARAMETER Objeto           AS CHAR          NO-UNDO.
DEFINE INPUT PARAMETER hObjeto          AS HANDLE        NO-UNDO.
DEFINE INPUT PARAMETER hFrame           AS WIDGET-HANDLE NO-UNDO.
DEFINE INPUT PARAMETER Tabela           AS CHAR          NO-UNDO.
DEFINE INPUT PARAMETER RegRowID         AS ROWID         NO-UNDO.

MESSAGE "Evento: "   + Evento                SKIP
        "Objeto: "   + Objeto                SKIP
        "hObjeto: "  + STRING(VALID-HANDLE(hObjeto),"Válido/Inválido") SKIP
        "Frame: "    + hFrame:NAME           SKIP
        "Tabela: "   + Tabela                SKIP
        "RegRowID: " + STRING(RegRowID)
        VIEW-AS ALERT-BOX INFO BUTTONS OK.

IF Tabela = "ped-venda" AND RegRowID <> ? THEN DO:
   FIND FIRST ped-venda WHERE ROWID(ped-venda) = RegRowID NO-LOCK NO-ERROR.

   MESSAGE ped-venda.nr-pedido
       VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.

Mas lembre-se, o ideal é pegar no evento correto que você vai usar, senão pode gerar vários bugs no programa.