Pegar usuário corrente no EMS

Pegar usuário corrente no EMS

DEFINE NEW GLOBAL SHARED VAR c-seg-usuario AS CHAR NO-UNDO.

Encontrar um Zoom

O padrão de nomenclatura do zoom do EMS 2.04 é:

• "z" + "00" + "dumpname"
Onde: z é o prefixo de zoom, 00 é a versão do objeto, e o dumpname é o nome físico da tabela.

Exemplos:
• mgcad.cliente = ad036 ==> z01ad036
• mgcad.repres = ad229 ==> z01ad229