...
Referência| Portuguese | |||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: PswSize - Digitação de usuario e senha
usuário e senha Descrição: Permite a digitação de usuário e senha no login com o tamanho máximo de 255 caracteres. ponto de entrada irá receber como parametroparâmetro um vetor (PARAMIXB) com o usuário e senha digitados na tela de login do Protheus e deverá retornar um vetor com um usuário com senha válida do arquivo de senhas do Protheus .. PRWSintaxe PswSize - Digitação de usuario usuário e senha ( < PARAMIXB> ) --> → aPsw Parâmetros:
| Default | Obrigatório |
| PARAMIXB | Vetor |
| Valores recebidos no ponto de entrada, contendo login e senha |
#include "protheus.ch"
User Function PswSize()
Local aUsersLocal nFindLocal aReturnLocalaUsers
Local nFind
Local aReturn
Local cUser := Trim(ParamIxb[1])
Local cPsw := Trim(ParamIxb[2])
aUsers := {}
Aadd(aUsers,{'Adriano Xicuri Inagaki','adriano','xiadin', 'aghaha'})
Aadd(aUsers,{'Claudio Domingos Reis','claudio','253536', 'lkaosp'})
Aadd(aUsers,{'Ivan Pinheiro','ivan','123123', 'iheavy'})
Aadd(aUsers,{'Julio Rogerio Junior','julio','xn2526', 'popipi'})
nFind := Ascan(aUsers,{|x| Upper(x[1]) == Upper(cUser) .And. Upper(x[4]) == Upper(cPsw)})
aReturn := {cUser,cPsw}
If nFind > 0
aReturn := {aUsers[nFind][2],aUsers[nFind][3]}EndIfReturn
EndIf
Return aReturn
