PC Toledo

segue codigo para usuario e senha,

Error BASE/1003 Variable does not exist: SELF
Called from \prg\chat_hwgui.PRG->LOGIN(294)
Called from \prg\chat_hwgui.PRG->MAIN(33)

HwGUI 2.17 (fork) Harbour 3.4.0dev (096e855) (2019-07-15 13:50)
Data : 11/03/21
Hora : 23:27:00
WKS : DESKTOP-IT12ARQ
Usuário : Inacio Carvalho

VALID {|| ::SENHA:="", oSenha:Refresh(), .T. }

Olá!

Li o post das (11:17) deste tópico hoje pela manhã e estava bem diferente. Foi editado sem aviso....

Parece que o autor percebeu que estava errado quanto às coisas que havia escrito sobre o funcionamento de múltiplos comandos dentro de um code block, como citei em minha mensagem anterior e demonstro abaixo...

Error BASE/1004 Message not found: HDIALOG:OEDITBOX1
Called from ->__ERRRT_SBASE(0)
Called from ->HDIALOG:ERROR(0)
Called from ->(b)HBOBJECT(0)
Called from ->HDIALOG:MSGNOTFOUND(0)
Called from ->HDIALOG:OEDITBOX1(0)
Called from \prg\chat_hwgui.PRG->CHECKPASS(362)
Called from \prg\chat_hwgui.PRG->(b)LOGIN(245)
Called from ->ONDLGCOMMAND(477)
Called from ->(b)(_INITSTATICS00003)(0)
Called from ->HDIALOG:ONEVENT(208)
Called from ->HWG_DLGBOXINDIRECT(0)
Called from ->HDIALOG:ACTIVATE(149)
Called from \prg\chat_hwgui.PRG->LOGIN(251)
Called from \prg\chat_hwgui.PRG->VELHAMAIN(33)

HwGUI 2.17 (fork) Harbour 3.4.0dev (096e855) (2019-07-15 13:50)
Data : 11/03/21
Hora : 23:46:49
WKS : DESKTOP-IT12ARQ
Usuário : Inacio Carvalho

cjp escreveu:A linha 294 é esta:
VALID {|| ::SENHA:="", oSenha:Refresh(), .T. }
Na verdade eu não entendi este código, não sei como ele validaria a senha.

e outra coisa é fazer fontes pra você colar no seu aplicativo prontos para uso.

Fora ficar ignorando as postagens que estou fazendo, mas isso é o de menos, com tanto que ele aprenda, tá valendo.

Por isso apaguei partes da minha postagem, pq a pessoa pergunta uma coisa usando um determinado código(raciocínio), vem outra pessoa e coloca mais dezenas de códigos que não foi a pessoa que codificou ou seja não é o pensamento dele, ai ele pega o código da outra pessoa, e começa a querer entender e fazer mais perguntas... Não sabe o que ele fez e vai entender o pensamento dos outros ?

Vai nos dizer que em nenhum lugar do aplicativo existe um VALID?

E uma coisa é ajudar, e outra coisa é fazer fontes pra você colar no seu aplicativo prontos para uso.
Nesse caso ao invés de ajuda, passa a ser "funcionário grátis".
É necessário que você faça sua parte durante a ajuda.

Nota: Pode ser que você está querendo fazer 500 coisas de uma vez, e nem está tentando entender o que é passado.

Não estou ignorando as tuas postagens. Estou apenas tentando entendê-las antes de responder.

que apareça os * em vez do que foi digitado

mesmo vendo que a logica dele estava errada.

Olá!
Seu código na função login, qual é o ultimo comando ? Depois de ACTIVATE ?
COmo vc quer que retorne .T. ou .F. ?
Use ai:
LOCAL lRet := .F.
If pass == OK ; lRet := .T.
e no firnal, return lRet
Não ficarei analisando códigos muito grande.
No final de toda função existe algum tipo de retorno para quem a chamou.

@ 15,65 GET oE5 ;
VAR snh ;
PASSWORD ; // ---> NOTE
SIZE 150, 26

ja que fui citado indiretamente vamos lá:

para iniciante não pense que pingo é rotina.
as vezes é melhor passar uma rotina mesmo que seja com a logica de outro para facilitar o entendimento e foi isso que eu fiz
no primeiro post ele mesmo avisa que a rotina de login não esta feita
logo após ele pergunta como fazer para que apareça os * em vez do que foi digitado , ai coloquei um trecho referente a PASSWORD na senha
em nenhum momento eu me referi a retorno de verdadeiro ou falso, mesmo vendo que a logica dele estava errada.

pessoal ajudar as vezes passa por pegar na mão mesmo, não é ser programador gratuito, sofri muito para aprender e tive ajuda de algumas pessoas como o Quintas , sempre tento fazer sozinho mas quando empaca e não vai em frente a melhor forma é mostrar como fazer , se depois a pessoa vai seguir ou não é decisão dele

INIT DIALOG oDlgAcesso TITLE FIRMA+alltrim(aPasta) AT 0, 0 SIZE 814, 484 CLIPPER COLOR x_WHITE ;
STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER ;
ON INIT {|| INI_SENHAS() }

FUNCTION LoginUsuario()
   PRIVATE lVal1  := .F., lVal2 := .F., oGetcUsuario, oGetcSenha, aUSUARIO:={}
   PRIVATE vSenha := Space(06), vUsuario:=spac(10), oDlgAcesso

   INIT DIALOG oDlgAcesso TITLE FIRMA+alltrim(aPasta)  AT 0, 0  SIZE 814, 484 CLIPPER COLOR x_WHITE ;
               STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER         ;
               ON INIT {|| INI_SENHAS() }

      @  60, 404 SAY "  Usuario:" SIZE  80, 22 BACKCOLOR x_WHITE COLOR x_BLACK
      @ 135, 400 GET vUsuario   SIZE 120, 26 PICTURE '@!'     ;
                 MAXLENGTH 10 TOOLTIP "Digite o usuario"      ;
                 VALID  { || ValidaUsuario() }

      @ 555, 404 SAY "  Senha:"        SIZE  80, 22 Tooltip 'Digite a Senha' BACKCOLOR x_WHITE COLOR x_BLACK
      @ 625, 400 GET vSenha PASSWORD SIZE 120, 26                 ;
                 MAXLENGTH 06 TOOLTIP "Digite a senha de acesso"  ;
                 VALID  { || ValidaSenha(), IF( lVal1 = .T. .AND. lVal2 = .T. , ( HWG_ENDDIALOG(),TELAPRINCIPAL() ), ( vSENHA:=SPAC(06), oDLGACESSO:REFRESH()) ) }

   ACTIVATE DIALOG oDlgAcesso
RETURN NIL

FUNCTION ValidaUsuario()
   LOCAL BB:=0
   DO CASE
      CASE Empty(vUsuario)
         lVal1:=.F.
         vUsuario := Space(10)
         vSenha   := Space(06)
         RETURN .F.
      CASE !Empty(vUsuario)
         BB:=ASCAN( aUSUARIO, { |aVal| aVal[1] == vUSUARIO } )
         IF BB > 0
            lVal1:=.T.
            RETURN .T.
         ELSE
            HWG_MSGSTOP([Usuário não cadastrado], [Aviso do sistema])
            lVal1:=.F.
            vUsuario :=Space(10)
            vSenha   :=Space(06)
            RETURN .F.
         ENDIF
   ENDCASE
RETURN .T.
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
FUNCTION ValidaSenha()
   LOCAL BB:=0
   DO CASE
      CASE Empty(vSenha)
            vSenha := (Space(06))
            lVal2  := .F.
            RETURN .F.
      CASE !Empty(vSenha)
         BB:=ASCAN( aUSUARIO, { |aVal| aVal[2] == vUSUARIO+vSenha } )
         IF BB > 0
            nUSO  := aUSUARIO[BB,3] ; CVV:=aUSUARIO[BB,4]   ; cUsuario:=aUSUARIO[BB,1]
            lVal2 := .T.
            RETURN .T.
         ELSE
            HWG_MSGSTOP([Senha não confere com a cadastrada], [Aviso do sistema])
            vSenha := Space(06)
            lVal2  := .F.
            RETURN .F.
         ENDIF
   ENDCASE
RETURN .T.