[#Form: Sales Color] Option : AKVoucher : @@IsSales [!Form: AKVoucher] Add : Button : At End : Authorisation [#Form: INV Buttons] Add : Button : At End : Authorisation [Button : Authorisation] Key : Alt+F12 Title : "Authorisation" Action : Execute : Authorisation Inactive: $$IsCmpOwner Or @@PrintAuthorised="Yes" [Report : Authorisation] Form : Authorisation [Form : Authorisation] No Confirm : Yes Space Top : 0.5 Space Left : 1 Space Right : 1 ;; Background : Very Light Grey, Very Light Grey Full Width : No Full Height : No Vertical Align : Centre Parts : Authorisation [Part : Authorisation] Lines : MVTitle, AuthorisationUN, Authorisation PW, Authorisation Name Local : Field : MVTitle : Set as : "Company : " + ##SVCurrentCompany Local : Field : MVTitle : Delete : Border Local : Line : MVTitle : Space Bottom: 1 Local : Line : MVTitle : Border : Flush Totals Option : Small Size Part [Line : AuthorisationUN] Field : Medium Prompt, AuthorisationUN Local : Field : Medium Prompt : Info : "Name of User :" Space Bottom : 0.5 [Field : AuthorisationUN] Use : Short Name Field Set Always : Yes Modifies : OlymUserName Storage : AKSUserName Table : Invoice Authorised Users ShowTable : Always [Line : Authorisation PW] Field : Medium Prompt, Authorisation Password Local : Field : Medium Prompt : Info : "Password(if any) :" Space Bottom : 0.5 [Field : Authorisation Password] Use : Short Name Field Case : Normal Modifies : OlympicPw Control : Incorect Password : $$Value != @@CompanyPName [Line : Authorisation Name] Field : Medium Prompt, Authorisation Name, Authorisation Name1 Local : Field : Medium Prompt : Info : "Level" Space Bottom : 0.5 [Field : Authorisation Name] Use : Short Name Field Set as : #AuthorisationName1 Set Always : Yes Read Only : Yes [Field : Authorisation Name1] Use : Short Name Field Set as : @@CompanySecurityName Set Always : Yes Read Only : Yes Invisible : Yes [#Line : CUTitle] Add : Fields : At End : Info Field Local : Field : Info Field : Info : "Vch. Authorized?" ;[#Line : ComPany Users] ; ; Add : Fields : At End : OlyPW, OlyIsAuthorised;;, AKDuplicateAuthorized, JL Sec YesNo [#Part: ComPany Users] Local : Line : Company Users : Add : Fields : OlyPW, OlyIsAuthorised [Field : JLSecYesNo] Use : Logical Field Sub Form : JL Pj Security : #JLSecYesNo Set as : "Yes" Align : Left Width : @@NameWidth/2 Inactive : $$IsEmpty:$Name OR $$IsSysName:$Name [Field : OlyPW] Use : Short Name Field Set as : #CMPPassword Storage : OlyPW Invisible : Yes Set Always : Yes [Field : OlyIsAuthorised] Use : Logical Field Storage : IsInvAuthorised Width : @@NameWidth/2 Set as : No Inactive : $$IsSysName:$$Name [Field : AKDuplicateAuthorized] Use : Logical Field Storage : IsDuplicateAuthorized Width : @@NameWidth/2+5 Set as : No Inactive : $$IsSysName:$$Name [Collection : Company Users Collection] Type : User List : Company Child Of : ##SVCurrentCompany [Collection : Invoice Authorised Users] Type : User List : Company Child Of : ##SVCurrentCompany Format : $$Name, 20 Filter : FrmIsInvAuthorised [System : Formula] Company Security Name : $$FilterValue:$Security:CompanyUsersCollection:First:CompanySecurityFilter Company Security Filter : $Name = #AuthorisationUN Company PName : $$FilterValue:$OlyPW:CompanyUsersCollection:First:CompanySecurityFilter Incorect Password : "Incorrect \n PassWord" FrmIsInvAuthorised : $IsInvAuthorised OlyAuthorisation : $$FilterValue:$IsInvAuthorised:CompanyUsersCollection:First:CompanyAuthorisedFilter CompanyAuthorisedFilter : $Name=$$CmpUserName OlyVoucherAlter : "Voucher Alteration" + $$NewLine + "is not allowed" NotAdminAndNotAuthorised : Not $$IsCmpOwner And $$InAlterMode And Not $IsOptional And Not @@OlyAuthorisation And ((##OlympicPw="") AND NOT (@@OlyAuthorisation="Yes")) PrintAuthorised : $$FilterValue:$IsInvAuthorised:CompanyUsersCollection:First:CompanyAuthorisedFilter NotPrintAuthorised : Not $$IsCmpOwner AND @@PrintAuthorised="No" DuplicatePerson : $$FilterValue:$IsDuplicateAuthorized:CompanyUsersCollection:First:CompanyAuthorisedFilter NotDuplicatePerson : Not $$IsCmpOwner AND @@DuplicatePerson="No" [System : UDF] OlyPW : String : 33 IsInvAuthorised : Logical : 99 AKSUserName : String : 143 IsDuplicateAuthorized : Logical : 100 [Variable : OlymUserName] Type : String [Variable : OlympicPw] Type : String [#Report : Voucher] Variable : OlymUserName, OlympicPw [#Report : Accounting Voucher] Variable : OlymUserName, OlympicPw [#Form: Voucher] Control : OlyVoucherAlter : @@NotAdminAndNotAuthorised AND @@IsSales [#Form : Accounting Voucher] Control : OlyVoucherAlter : @@NotAdminAndNotAuthorised AND @@IsSales [#Key: Print Button] Inactive : If $$IsSales:$VoucherTypeName and @@NotPrintAuthorised Then Yes else No ;;$$InCreateMode Or @@NotAdminAndNotAuthorised [Border : Full Thin Right] Right : Thin , Full Length [Border: Full Thin Bottom Right] Bottom : Thin, Full Length Right : Thin, Full Length ;; End of File
because you might not have defined the user list..... log in as ADMIN user.... go to security control...users & passwords..... there in user name activate this
Ya, because of after Release 5.0 or latest, using above collection for User list, it will not displaying, all users name in Table, simple way to create a new user master, and store there and make a new collection. Regards
Hi Sir, Is there any way to change user name in print..i.e. user name is SAMUEL but in print I need SAMUEL JONAS, like wise for all the users I need their name with their surname. Below code I tried but didn't work. [#Line: PPR Sign] Left Fields : Simple Prompt Right Fields: Short Prompt ; Local : Field : Simple Prompt : Info : If (!$IsDeemedPositive:VoucherType:##SVVoucherType) then "" else $$CaseConvert:TitleCaseExact:$EnteredBy + " - " + $$String:$Date Local : Field : Simple Prompt : Inactive : !$IsDeemedPositive:VoucherType:##SVVoucherType Local : Field : Short Prompt : Info : $$LocaleString:" " Local : Field : Short Prompt : Width : 0 Local : Field : Short Prompt : Align : Right Local : Field : Logical Field : Set as : If $EnteredBy = "Samuel" then $EnteredBy = "Samuel Jonas" else " "
If you are logged in with normal user then "Company Users Collection" will give you only one user name, If you are logged in with company owner then only you will get all user list.
