Histórico da Página

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 parâ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.

PswSize - Digitação de usuario usuário e senha ( < PARAMIXB> ) → aPsw

(vetor)
• Vetor com usuário e senha correspondente do arquivo de senhas do Protheus

#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