' BOI - ACL AR_Customer
IMPORT BOI.sbi
oscript = BOI::CREATE(:SET, "ProvideX.Script")
BOI::CBN oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Standard\\MAS90\\Home"
osession = BOI::CBN(oscript, "NewObject", :SET, "SY_Session")
BOI::CBN osession, "nSetUser", :CALL, "JRS", "MyPassword"
BOI::CBN osession, "nsetcompany", :CALL, "ABC"
BOI::CBN osession, "nSetModule", :CALL, "A/R"
mdate = BOI::CBN(osession, "sModuleDate", :GET)
BOI::CBN osession, "nSetDate", :CALL, "A/R", mdate
BOI::CBN(osession, "nSetProgram", :CALL, BOI::CBN(osession, "nLookupTask", :CALL, "AR_Customer_ui"))
ocust = BOI::CBN(oscript, "NewObject", :SET, "AR_Customer_bus", osession)
oui = BOI::CBN(oscript, "NewObject", :SET, "AR_Customer_ui", osession)
BOI::CBN(oui, "nInvokeLookup", :CALL, "AR_Customer", retval)
PRINT retval,"\n"
BOI::CBN ocust, "DropObject"
BOI::CBN osession, "DropObject"
BOI::RELEASE oscript