PROGRAM-NAME não mostra o programa executado

Discussão em 'EMS , HCM e Totvs 11' iniciado por af.dums, Maio 24, 2023.

Página 2 de 2
  1. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    Esse active-window tem efeito colateral, ele mostra a janela que está ativa, se tiver mais que uma janela aberta o comando se perde.

    Eu sempre usei dentro de UPC em programas smart da totvs e nunca tive problema.

    Tenta dessa forma:

    DEF VAR h-programa AS HANDLE NO-UNDO.

    h-programa = THIS-PROCEDURE:INSTANTIATING-PROCEDURE.

    MESSAGE h-programa:CURRENT-WINDOW:NAME SKIP h-programa:CURRENT-WINDOW:TITLE
    VIEW-AS ALERT-BOX.
    rafael.andrade, Maio 24, 2023
    #7
  2. af.dums

    af.dums Membro Ativo

    Segue o que me retornou, mudei o ACTIVE-WINDOW para CURRENT-WINDOW também na minha chamada...
    As chamadas de h-programa me retornam vazias
    Vou fazer mais uns testes por aqui...


    CURRENT-WINDOW:TITLE: 06.9.5503 - CD0204 - 2.00.00.060 - Implantação Item
    THIS-PROCEDURE:FILE-NAME: auditlab/tw-item.p
    THIS-PROCEDURE:INSTANTIATING-PROCEDURE:NAME: database/tgin/twp/twin172.p
    h-programa:CURRENT-WINDOW:NAME:
    h-programa:CURRENT-WINDOW:TITLE:
    af.dums, Maio 24, 2023
    #8
  3. rafael.andrade

    rafael.andrade Membro Master Moderador Equipe de Suporte

    A sua UPC está em que programa?

    Se está num "nível abaixo", é só fazer INSTANTIATING-PROCEDURE até chegar no programa pai.
    rafael.andrade, Maio 29, 2023
    #9
Página 2 de 2

Compartilhe esta Página