Home

Linha Microsiga Protheus

Páginas filhas
  • PLS090OP - Controla Exibição

Ponto-de-Entrada: PLS090OP - Controla Exibição
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11
Descrição:

Controla a exibição dos botões da tela de liberação SADT.

Exemplo

User Function PLS090OP()

LOCAL aRet    := {.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.,.T.}
LOCAL cNomUsr := UsrRetName(RetCodUsr())   //NOME DO OPERADOR
LOCAL cCodGru   := UsrRetGrp(cNomUsr)[1]     //CODIGO DO GRUPO DO OPERADOR
LOCAL cNomGru


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Pega o Grupo do Operador             ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


PswOrder(1)
If PswSeek(cCodGru,.F.)
 cNomGru := PswRet(1)[1,1][2]
Else
 cNomGru := Space(15)
EndIf            
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Todos os grupos                ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If cCodGru == '******'
 cNomGru := 'Todos'
EndIf
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Checa o Gropo Ex               ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If AllTrim(cNomGru) == 'PLS_REC001'
   aRet := {.F.,.F.,.F.,.F.,.F.,.T.,.T.,.T.,.F.,.F.}
EndIf    
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Fim da Rotina                ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Return aRet

Programa Fonte
.PRW
Sintaxe

PLS090OP - Controla Exibição ( ) --> aRet

Retorno
    aRet(vetor)
  • Array com conteúdos lógicos indicando :

    .T. - Exibe
    .F. - Não exibe

    Exemplo

    aRet := {.F.,.F.,.F.,.F.,.F.,.T.,.T.,.T.,.F.,.F.}