Páginas filhas
  • PswSize - Digitação de usuário e senha

Ponto-de-Entrada: PswSize - Digitação de 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.
O ponto de entrada irá receber como 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.


Sintaxe

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


Parâmetros:


NomeTipoDescrição
PARAMIXBVetorValores 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
  • Sem rótulos