x Want to participate? Join the group to interact
  • State Verified Answer
  • +1 person also asked this people also asked this
  • Replies 1 reply
  • Subscribers 137 subscribers
  • Views 891 views
  • Users 0 members are here
Browse Forums
Announcements
237
topics
29
replies
General Discussion
5k
topics
13k
replies
Sage Data & Analytics
56
topics
95
replies
Sage Enterprise Intelligence
210
topics
416
replies
Sage Intelligence Reporting
121
topics
322
replies
Jacques F

Password check

SOLVED
Posted By

Hi

I need to add a check for a User's Supervisor to enter his password in a certain scenario.  How can I have the system prompt for a User's password? This is in V12.

This function accepts anything as correct, or doesn't work.

Read [AUS]LOGIN=toupper(vireblc(USERCODE,0))
Call CTLPAS(vireblc(PASSWORD,0), OK) From GESUSER

The PASSE function doesn't work - that is for the classic user password, not Syracuse user password.

Is there a Syracuse password check?

  • +1
    verified answer

    This seems to work:

    Funprog ZCHECKPWD(ZUSER_SYRA,ZUSER_CLASSIC,ZPASSWD)

    Value Char ZUSER_SYRA

    Value Char ZUSER_CLASSIC

    Value Char ZPASSWD

      Local Integer ZSTAT

      Local Char ZMESSAGE(200)

    [L]ZSTAT = func ASYRFNC.ACHECKLOGIN(GACTX,ZUSER_SYRA,ZPASSWD,ZUSER_CLASSIC,[L]ZMESSAGE)

    Infbox num$(ZRES) - [L]ZMESSAGE

    End [L]ZSTAT

*Community Hub is the new name for Sage City