Ponto-de-Entrada: PswSize - Digitação de usuario e senha
Descrição:
Permite a digitação de usuário e senha no login com o tamanho máximo de 255 caracteres.
O ponto de entrada irá receber como parametro 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.
Sintaxe
PswSize - Digitação de usuario e senha ( < PARAMIXB> ) → aPsw
Parâmetros:
| Nome | Tipo | Descrição |
| PARAMIXB | Vetor | Valores recebidos no ponto de entrada, contendo login e senha |
Retorno
aPsw
- (vetor)
- Vetor com usuário e senha correspondente do arquivo de senhas do Protheus
Exemplos
#include "protheus.ch"
User Function PswSize()
Local aUsers
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]}
EndIf
Return aReturn