IsCashSale
Posted: Tue May 05, 2020 2:06 pm
I want to make Order.IsCashSale Read Only but can't get this Module to fire? Help me please.
Code: Select all
from System import *
from SoftPro.ClientModel import *
from SoftPro.OrderTracking.Client import *
from SoftPro.OrderTracking.Client.Orders import *
from SoftPro.Select.Client.Security import *
from System.Collections.Generic import IEnumerable, List
from System.Linq import Enumerable
import clr
clr.ImportExtensions(Linq)
def Order_IsCashSale_ReadOnly(args):
secMgr = args.GetService(ISecurityManager)
userSecId = ISecurityManager.CurrentSecurityIdentityID.GetValue(secMgr)
secUser = ISecurityManager.GetUser(secMgr, userSecId)
groups = List[ISecurityIdentity](secUser.Groups)
foundUser = Enumerable.Any(groups, lambda t: t.IsGroup and t.Name == 'Administrators')
if not foundUser:
args.Value = True