1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

[RESOLVIDO] EPC Browser

Discussão em 'EMS , HCM e Totvs 11' iniciado por rohis, Maio 22, 2009.

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

    rohis Membro Ativo

    Preciso desenvolver uma EPC para o programa PE3130 - Acerto Divergências HCM, porém não estou conseguindo localizar os eventos do browser, preciso desta informação porque quero validar o campo "Ocorrências" do Browser.

    Alguém sabe como eu consigo localizar os campos e eventos do Browser?
  2. wsartorelli

    wsartorelli Membro Participativo

    Veja esse exemplo, fiz para ter acesso a esse campo que voce precisa.

    /*******************************************************************************
    ** Programa : UPPE3130.P
    ** Objetivo : Controle de frequencia
    ** Data : 04/06/2008
    ** Autor : Wanderley Sartorelli - Intesy
    ** Versao : 1.00.000
    *******************************************************************************/

    /* definicao de parametros */
    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.

    /* definicao de variaveis globais */
    Def New Global Shared Var wh-browse As Widget-handle No-undo.
    Def New Global Shared Var wh-bt-salva As Widget-handle No-undo.
    Def New Global Shared Var wh-bt-salva-novo As Widget-handle No-undo.
    Def New Global Shared Var wh-cdn-empresa As Widget-handle No-undo.
    Def New Global Shared Var h-query As Handle No-undo.
    def new global shared var i-ep-codigo-usuario like empresa.ep-codigo no-undo.
    def new global shared var wh-ocorrencia As WIDGET-HANDLE No-undo.
    def new global shared var wh-qual As WIDGET-HANDLE No-undo.

    /* definicao de variaveis locais */
    Def Var h-frame As Handle No-undo.
    DEF VAR h-buffer AS HANDLE NO-UNDO.

    /* MESSAGE "Evento............: " p-ind-event SKIP */
    /* "Objeto............: " p-ind-object SKIP */
    /* "Handel do Obejto..: " p-wgh-object SKIP */
    /* "Frame.............: " p-wgh-frame SKIP */
    /* "p-cod-table.......: " p-cod-table SKIP */
    /* "Viewer............: " p-wgh-object:FILE-NAME SKIP */
    /* "Nome da tabela....: " p-cod-table SKIP */
    /* "Rowid da tabela...: " STRING(p-row-table) VIEW-AS ALERT-BOX. */


    IF p-ind-event = 'INITIALIZE' AND
    p-ind-object = 'CONTAINER' AND
    p-wgh-object:FILE-NAME = 'prghur/pep/pe3130.w' THEN DO:

    If Not Valid-handle(wh-browse) Then Do:

    Assign h-frame = p-wgh-frame:First-child.

    Do While Valid-handle(h-frame):

    If h-frame:Type <> "field-group" Then Do:

    IF h-frame:NAME = 'bt-salva' THEN
    ASSIGN wh-bt-salva = h-frame.

    If h-frame:Name = "browse-1" Then
    Leave.

    Assign h-frame = h-frame:Next-sibling.
    End.
    Else
    Assign h-frame = h-frame:First-child.
    END.

    Assign wh-browse = h-frame.

    End.

    Assign h-query = wh-browse:Query.


    IF VALID-HANDLE(h-query) THEN
    DO:
    wh-ocorrencia = wh-browse:GET-BROWSE-COLUMN(17).
    wh-qual = wh-browse:GET-BROWSE-COLUMN(14).

    ON "F5" Of wh-ocorrencia PERSISTENT
    Run prghur/upc/uppe3130-2.p.

    On MOUSE-SELECT-DBLCLICK Of wh-ocorrencia PERSISTENT
    Run prghur/upc/uppe3130-2.p.
    END.

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

Compartilhe esta Página