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] Botão upc

Discussão em 'EMS , HCM e Totvs 11' iniciado por Will, Agosto 26, 2009.

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

    alexfowler Membro Participativo

    Ao inves de passar o parametro, no seu outro .p tambem coloque

    def new global shared var r_table as rowid no-undo.

    E entao vai ter o r_table

    [ ]´s
    Alexandre
  2. Will

    Will Membro Participativo

    cara, fiz como vc sugeriu mas mesmo assim ele nao esta recebendo o valor

    o codigo da minha upc esta assim


    define input param p-ind-event as char no-undo.
    define input param p-ind-object as char no-undo.
    define input param p-wgh-object as handle no-undo.
    define input param p-wgh-frame as widget-handle no-undo.
    define input param p-cod-table as char no-undo.
    define input param p-row-table as rowid no-undo.

    def var h_frame as widget-handle no-undo.
    def var h_page as widget-handle no-undo.
    def var c-char as char no-undo.
    def var c-objeto as char no-undo.
    def var h_mail as handle no-undo.
    DEF NEW GLOBAL SHARED VAR bt-mail AS WIDGET-HANDLE NO-UNDO.
    def new global shared var r_table as rowid no-undo.
    assign r_table = p-row-table.
    if can-query (p-wgh-object,"file-name") then
    assign c-char = entry(num-entries(p-wgh-object:file-name,"~/"),
    p-wgh-object:file-name,"~/").

    if c-char = "fr5020.w" and p-ind-Event = "INITIALIZE" and
    p-ind-object = "container" then do:
    create button bt-mail
    assign row = 1.33
    column = 30
    label = "Mail"
    frame = p-wgh-frame
    width = 4
    height = 1.25
    sensitive = true
    visible = true

    triggers:
    on choose persistent run enviamail.p.
    end triggers.
    end.

    e no meu enviamail.p defini a variavel r_table, igual ao msotrado acima, porem nao esta retornando valor
  3. alexfowler

    alexfowler Membro Participativo

    Provavelmente porque voce esta gravando o row-table em todo momento na upc, independente do evento, e entao no ultimo evento antes de voce clicar no botao email, o rowtable ta com ?.

    Outra ideia mais faci é pegar os campos chaves da tabela na tela e gravar eles em variaveis.
  4. Will

    Will Membro Participativo

    hm, ok, no caso como faria pra pegar um campo! se tratando de um programa da datasul onde nao tenho acesso ao codigo
  5. mcarril

    mcarril Membro Participativo

    Uma pergunta ? Porque variável shared GLOBAL ? As variáveis Globais são aquelas que usamos no sistema inteiro ...

    Não é só definir :

    DEF NEW SHARED v-rowid AS ROWID.

    e no segundo DEF SHARED VAR v-rowid AS ROWID.

    As definições devem estar idênticas (Exceto pelo NEW) senão não roda.
  6. Will

    Will Membro Participativo

    so pra constar, obtendo o codigo desse funcionario no momento do click ja e suficiente
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página