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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
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
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.

Programa Fonte
.PRW
Sintaxe

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

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXBVetorX
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 aReturnLocal 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 aReturn