[RESOLVIDO] UPC CD0704

Discussão em 'EMS , HCM e Totvs 11' iniciado por Charles.s, Julho 16, 2013.

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

    Charles.s Sem Pontuação

    Boa noite galera, tenho que fazer uma UPC que criará um botão que irá habilitar um browser, e duas novas folders para instanciar viewers, até ai tudo bem, está feito, mas agora preciso ver se um campo de uma das viewers que é um toggle-box está marcado, e se estiver preciso que o programa chame o browser que foi criado, na hora que for clicado no botão confirmar do programa.
    Alguém pode me ajudar, por favor?
  2. LFBuozi

    LFBuozi Membro Participativo

    No "choose" do botão:
    Código:
    if toggle-box:check then
        assign browse:enabled = yes.
    É isto?
  3. Charles.s

    Charles.s Sem Pontuação

    Na verdade não é tão simples assim, porque o botão de confirmar é o da tela programa padrão, daí eu tive que capturar o último evento do botão, fazer a busca na tabela e chamar o browser depois.
    Mas foi meio difícil até conseguir a solução, já que sou meio iniciante na linguagem.
    Bom, mas valeu a tentativa, obrigado!
    Segue o código que usei para resolver o problema.

    Código:
    if  p-ind-event  = "AFTER-END-UPDATE"                                     
    and p-ind-object = "VIEWER"                                         
    and c-objeto     = "cd0704-v06.w" then                              
    do:                                                                 
                                                                      
       FIND FIRST emitente                                            
            where rowid(emitente) = p-row-table NO-LOCK NO-ERROR.
    
       IF AVAIL emitente THEN DO:
           FIND FIRST dz-emitente 
               WHERE dz-emitente.cod-emitente = emitente.cod-emitente
               AND dz-emitente.lg-associado = YES NO-LOCK NO-ERROR.               
                                                   
           IF AVAIL dz-emitente 
           THEN  
              run rsp/rscd005.w.  
       END.
    END.
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página