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] UPC Zoom do item

Discussão em 'EMS , HCM e Totvs 11' iniciado por hugo_mlcabral1, Maio 26, 2017.

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

    hugo_mlcabral1 Sem Pontuação

    Senhores, bom dia!

    Alguém tem uma upc pronta para selecionar apenas os itens ativos no zoom z02in172?
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    olha, criar uma tela de zoom é tão simples que é mais facil vc criar a sua tela de zoom como vc precisa, salvar em uma pasta de especificos em que o propath pega antes das pastas do produto padrão, salva o seu zoom com o mesmo nome que o original e já era.
  3. hugo_mlcabral1

    hugo_mlcabral1 Sem Pontuação

    @bootstrapmaster entendi, eu fiz modificando a include que passa os parametros com as opções do status dos itens, mas não achei que ficou legar... ainda estou tentando fazer a upc rsrsrs, estou tentando chamar a pi-abre-query do browse mas está dando erro dizendo que esta procedure não foi encontrada estou fazendo a chamada abaixo estou errando em alguma coisa?

    IF VALID-HANDLE(p-wgh-object) AND string(c-objeto) = "b03in172.w" THEN DO:

    ASSIGN wh-br-zoom = WIDGET-HANDLE(ENTRY(1,c-objeto)) NO-ERROR.

    if string(p-ind-object) = "BROWSER" AND p-ind-event = "VALUE-CHANGED" then do:

    ASSIGN i-compr-fabric = no
    l-ativo = YES
    l-auto = no
    l-todas = no
    l-obsoleto = no.

    RUN pi-upc PERSISTENT SET wh-br-zoom (input i-compr-fabric,
    input l-ativo,
    input l-auto,
    input l-todas,
    input l-obsoleto).

    message "Evento : " string(p-ind-event) skip
    "Objeto : " string(p-ind-object) skip
    "Handle Objeto : " string(p-wgh-object) skip
    "Handle Frame : " string(p-wgh-frame) skip
    "Tabela : " string(p-cod-table) skip
    "Recid : " string(p-row-table) skip
    "Cobjeto:" string(c-objeto) SKIP
    "PrivObjeto: " p-wgh-object:private-data SKIP
    FRAME-NAME skip
    "01" skip
    view-as alert-box.

    END.

    END.
  4. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    vou te dar outra dica, que vai ser mais facil quem sabe, por exemplo, vamos supor que vc quer aplicar essa regra do zoom somente para o programa de criação de ordem de produção por exemplo, cp0301, esse programa fica em cdp/cd0301.r, correto ?
    se fosse usar a minha estrutura de pastas, eu tenho t:\_custom (onde ficam os especificos), t:\ems2, t:\ems5, t:\hcm e assim vai
    então dentro da pasta _custom eu tenho a pasta cdp, e crio nessa pasta um fonte chamado cp0301.w, como pelo propath, a pasta t:\_custom está antes de t:\ems2, é logico que quando chamar o cp0301.r, vai entrar o meu programa e não o original, o que o meu programa faz ????? simples, uso a template livre, a chamada "Custom SmartWindow(Janela Mestre)" na procedure local-inicialize coloco esse codigo:
    Código:
    /*------------------------------------------------------------------------------
      Purpose:     Override standard ADM method
      Notes:      
    ------------------------------------------------------------------------------*/
    
      /* Code placed here will execute PRIOR to standard behavior. */
      run pi-before-initialize.
    
      {include/win-size.i}
    
      {utp/ut9000.i "XX9999" "9.99.99.999"}
    
      /* Dispatch standard ADM method.                             */
      RUN dispatch IN THIS-PROCEDURE ( INPUT 'initialize':U ) .
    
      /* Code placed here will execute AFTER standard behavior.    */
    
      run pi-after-initialize.
    
      on find of item do:
          if item.cod-obsoleto <> 1 then return error.
          return.
      end.
    
      run t:\ems2\cdp\cp0301.w.
    END PROCEDURE.
    
    Ou seja, crio uma trigger de find virtual para a tabela item, quando eu sair do programa cp0301, a trigger deixa de existir, a vantagem é que a trigger de banco ainda será executada sem problemas.
    claro que vc estando nesse programa e usar o CTRL-ALT-X, a regra servirá para os outros programas, mas quando vc voltar para o menu, a regra deixa de existir.
  5. hugo_mlcabral1

    hugo_mlcabral1 Sem Pontuação

    @bootstrapmaster cara a dica foi muito útil, só mudei um pouco a lógica, fiz o seguinte: criei um botão falso por cima do botão do zoom onde ele faz o on find que você falou e depois dou o apply choose no botão original e funcionou perfeitamente... valeu a força!!!
  6. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    é, pode ser também hehehehe
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página