735
I want to know how I can use the value from the userrec.username field as the default Buyer value in the Other Information tab of PO Maintenance. End users would like to have their username default as the Buyer rather than scroll through a PV list. I'm sure it's an easy VBA customization but I'm not a VBA guy. Appreciate any help.
*This post is locked for comments
You may also want to put the above code in the buyer_Default()
You can put this code in your Form1_Display() or other appropriate place:
Dim CurrentUser As String
Dim sql As String
Dim CSR_UserRec As Integer, intFetchUserRec As Integer
Call GetBufferValue("bpes.userid", CurrentUser)
sql = "select * from userrec where username = " + SParm(Trim$(CurrentUser))
Call SqlCursorEx(CSR_UserRec, NOLEVEL + SqlSystemDb, "CSR_UserRec", "userrec", "")
intFetchUserRec = SqlFetch1(CSR_UserRec, sql, bUserRec, LenB(bUserRec))
Call SqlFree(CSR_UserRec)
serr1 = SetObjectValue("cBuyer", bUserRec.UserName)
And make sure you import userrec.dh file your application\DB\DHFiles\Sys folder.
HTH
Share
Report
All responses (
Answers (
