1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Anuncie Aqui
    Anuncie aqui você Também: fdantas@4each.com.br

[RESOLVIDO] EMS 2.6 - Como acessar uma temp-table de dentro de uma UPC

Discussão em 'EMS , HCM e Totvs 11' iniciado por MARCELO GIOVANETI, Janeiro 17, 2014.

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

    MARCELO GIOVANETI Sem Pontuação

    Preciso fazer uma customização no ems 2.06 e para tanto preciso ter acesso aos dados que o usuario digitou em uma temp-table no programa padrão sf0309.

    Consegui pegar a handle do browse, mas não sei como disponilizar os dados dentro da UPC.

    Quem souber por favor me ajude

    Muito Obrigado
  2. bfranca

    bfranca Sem Pontuação

    Olá Marcelo!
    Segue um exemplo de como pegar as informações de dentro do browser. Vá colocando os números no buffer field e verá que dá pra buscar muito mais do que só os valores que estão sendo mostrados em tela.
    Qualquer dúvida entre em contato.
    Abs

    /* Inicio */
    DEF VAR campoA AS WIDGET-HANDLE NO-UNDO.
    DEF VAR campoB AS WIDGET-HANDLE NO-UNDO.
    DEF VAR campoC AS WIDGET-HANDLE NO-UNDO.
    DEF VAR campoD AS WIDGET-HANDLE NO-UNDO.
    DEF VAR campoE AS WIDGET-HANDLE NO-UNDO.
    DEF VAR campoF AS WIDGET-HANDLE NO-UNDO.
    DEF VAR campoG AS WIDGET-HANDLE NO-UNDO.

    def new global shared var wh-browse as widget-handle no-undo.
    def new global shared var wh-query as widget-handle no-undo.
    def new global shared var wh-buffer as widget-handle no-undo.
    def new global shared var wh-bt-delete as widget-handle no-undo.

    def var l-existe as logical no-undo.

    DEF VAR linha AS INT.

    /*Pega o primeiro registro do Browse*/
    l-existe = wh-query:GET-FIRST().

    if l-existe then do: /*existe registro na query*/
    ASSIGN linha = 1.

    /*Fique no bloco enquanto existir registro*/
    Bloco-1:
    DO WHILE l-existe:

    IF wh-browse:IS-ROW-SELECTED(linha) THEN DO:
    ASSIGN
    campoA = wh-buffer:buffer-field(1)
    campoB = wh-buffer:buffer-field(3)
    campoC = wh-buffer:buffer-field(7)
    campoD = wh-buffer:buffer-field(20)
    campoE = wh-buffer:buffer-field(21)
    campoF = wh-buffer:buffer-field(22)
    campoG = wh-buffer:buffer-field(23).

    disp
    campoA:BUFFER-VALUE
    campoB:BUFFER-VALUE
    campoC:BUFFER-VALUE
    campoD:BUFFER-VALUE
    campoE:BUFFER-VALUE
    campoF:BUFFER-VALUE
    campoG:BUFFER-VALUE
    WITH WIDTH 320 1 COL.

    LEAVE bloco-1.
    /*END.*/
    END.
    END.

    linha = linha + 1.
    l-existe = wh-query:GET-NEXT().
    if not l-existe THEN leave Bloco-1.
    end.
    end.
  3. jaisonantoniazzi

    jaisonantoniazzi Membro Ativo

  4. MARCELO GIOVANETI

    MARCELO GIOVANETI Sem Pontuação

    Colegas:

    Muito obrigado pela valiosa ajuda!

    A disposição
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página