[AP] 套用角色區分不同廠區的簽核設定

'//套用角色區分不同廠區的簽核設定

Dim ret As Variant, strDomainNm As String, RoleDocSigner As NotesDocument
ret = Split(SourceDB.Server, "/O=")
strDomainNm = Ucase(ret(Ubound(ret)))
'//----------by Mesha 20131224 以角色設定的方式改寫讀取簽核者，for 集團Notes系統整合。-----------
Set RoleDocSigner = GetSignerRoleIDDoc("NS", strDomainNm, SourceDoc.Company(0), "")
If RoleDocSigner Is Nothing Then Messagebox "not found RoleDocSigner!!", 0, "Warning" : Exit Function
Call ACSItem.AppendToTextList(RoleDocSigner.ProcUserNo)
Call SNLItem.AppendToTextList(RoleDocSigner.ProcUserNm)
'--------------------------------------------------------------------------------------------------