[RESOLVIDO] UPC - CC0300b

Discussão em 'EMS , HCM e Totvs 11' iniciado por carlosfgn, Junho 1, 2012.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. carlosfgn

    carlosfgn Sem Pontuação

    Amigos, boa tarde!
    Após muitas tentativas, não consegui desenvolver uma UPC para alterar uma informação no momento da implantação de ordens de compras.
    Estou precisando informar, automativamente, o usuario requisitante e dentre outros dentro da Pagina1.
    Pressionando a tecla Ctrol+Alt+H, observo que existe uma tabela temporária tt-ordem-compra.
    O problema é que não sei como acessá-la para manipular as informações.

    Alguém poderia me ajudar?
    Segue abaixo um código que estou trabalhando.

    Desde já, agradeço pela atenção!

    /*********************************************************************************************************************************************/
    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 NEW GLOBAL SHARED VAR h-fpage1 AS HANDLE NO-UNDO.
    DEF NEW GLOBAL SHARED VAR h-folder AS HANDLE NO-UNDO.

    DEFINE VARIABLE h-label-pg AS WIDGET-HANDLE EXTENT 8 NO-UNDO.
    DEFINE VARIABLE h-image-pg AS WIDGET-HANDLE EXTENT 8 NO-UNDO.

    DEF VAR h-frame AS HANDLE NO-UNDO.

    IF p-ind-event = "AFTER-display"
    AND p-ind-object = "CONTAINER" THEN DO:
    DO:
    ASSIGN h-frame = p-wgh-frame:FIRST-CHILD.
    ASSIGN h-frame = h-frame:FIRST-CHILD.

    DO while valid-handle(h-frame):
    IF h-frame:TYPE <> "field-group" THEN DO:

    IF h-frame:NAME = "Page1" THEN do:
    ASSIGN h-fpage1 = h-frame.
    END.

    ASSIGN h-frame = h-frame:NEXT-SIBLING.
    END.
    ELSE
    LEAVE.
    END.
    END.

    IF VALID-HANDLE (h-fpage1) THEN do:
    MESSAGE "tratamento aqui?"view-as alert-box.

    END.
    end.
    /*********************************************************************************************************************************************/

    Grato,
    Carlos Neto
  2. carlosfgn

    carlosfgn Sem Pontuação

    Alguém tem alguma dica?
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página