Frameworksp

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

Versões comparadas

Versão antiga 1

changes.mady.by.user Nuria Fauró Campos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Daniel Mendes De Melo Sousa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Referência
Portuguese

Pagetitle
PswSize - Digitação de usuario e senha
PswSize - Digitação de usuario e senha

Ponto-de-Entrada: PswSize - Digitação de usuario e senha
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
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

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

.
Programa Fonte

.

PRW


Sintaxe

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


Parâmetros:


NomeTipoDescrição
DefaultObrigatório
PARAMIXBVetor
X
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 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