Microsig@ ADVPL

Os procedimentos de alterar programas, compilar e logar no Protheus, às vezes são repetidos dezenas de vezes, até que o programador chegue ao resultado desejado. Que tal então pular pelo menos a etapa de digitar Usuário e Senha, para agilizar os testes com programas? Bom, p ara entrar no Protheus sem digitar nem o Usuário, nem a Senha, siga os passos abaixo : 1 - Entre no Configurador. 2 - Clique em U suário, Senhas e Política . 3 - Na janela que se abre (abaixo), mude o listbox Habilitar single sign-on para Opcional e mude o listbox Modalidade de Single S ign-on para Sistema Operacional (conforme abaixo) : 4 - Saia do Configurador e entre no smartcliente (sigaadv por exemplo). Após a configuração acima, surge um campo checkbox na tela de login (ver abaixo) : 5 - Marque este checkbox e entre no Protheus. 6 - Agora, saia do Protheus. 7 - Entre no Protheus novamente e verá que este não pedirá mais o Usuário nem a Senha. Obs. 1: Para que o Protheus volte ...

Para você que é ADMIN e, numa emergência, precise de uma rotina para pegar as senhas dos seus usuários do Protheus 8, segue uma rotina que faz isso e grava tudo num arquivo texto, sem criptografia. A rotina lê o arquivo SIGAPASS.SPF e grava o arquivo DADOSU.TXT na pasta TEMP (que deve ser criada dentro da pasta do Protheus). O arquivo contém o nome reduzido, senha e mais alguns dados. Use com responsabilidade: user function PegaSenhas() local aPswDet := "",; cArquivo, cPswFile := "sigapss.spf", cRBSFConct := cPswId := cPswName := cPswPwd := cPswDet := cUserId := "",; lEncrypt := .f.,; nArquivo, nPswRec := 0, nRBSFrec := SPF_RecCount(cPswFile, 1) psworder(1) for nId := 1 to nRBSFrec cUserId := strzero(nId,6) nPswRec := spf_seek(cPswFile,"1U"+cUserId, 1) if nPswRec > 0 spf_getfields(cPswFile, nPswRec, @cPswId, @cPswName, @cPswPwd, @cPswDet) aPswDet := str2array(cPswDet, lEncrypt) ...

A função abaixo é muito útil quando se deseja que durante a execução do Protheus num determinado momento, se deseje verificar a senha de um administrador ou gerente, para liberar uma rotina. Esta verifica se uma senha (informada num campo, por exemplo) está cadastrada no arquivo de senhas do Protheus. Esta usa as funções PSWORDER, PSWSEEK e PSWRET : static function SENHA (cParSenha) aDaduser := {} cOperador := space(15) __cNivel := space(1) if empty(cParSenha) msgalert("Senha nao informada!") return .f. endif psworder(3) if pswseek(cParSenha, .t.) aDaduser := pswret(nil) cOperador := left (aDaduser[1,2],15) __cNivel := substr(aDaduser[3,6],3,3) lRetorno := .t. else msgalert("Senha invalida ou nao informada!") lRetorno := .f. endif return lRetorno