' COM - AR_Customer
IMPORT COM.sbi
oscript = COM::CREATE(:SET, "ProvideX.Script")
COM::CBN oScript, "Init", :CALL, "C:\\Sage\\Sage 100 Standard\\MAS90\\Home"
osession = COM::CBN(oscript, "NewObject", :SET, "SY_Session")
COM::CBN osession, "nSetUser", :CALL, "UserID", "Password"
COM::CBN osession, "nsetcompany", :CALL, "ABC"
COM::CBN osession, "nSetModule", :CALL, "A/R"
mdate = COM::CBN(osession, "sModuleDate", :GET)
COM::CBN osession, "nSetDate", :CALL, "A/R", mdate
COM::CBN osession, "nSetProgram", :CALL, COM::CBN(osession, "nLookupTask", :CALL, "AR_Customer_ui")
oui = COM::CBN(oscript, "NewObject", :SET, "AR_Customer_ui", osession)
COM::CBN oui, "nProcess", :CALL, "01MAVRK"
COM::CBN oui,"DropObject", :CALL
COM::RELEASE oui
COM::CBN osession, "DropObject", :CALL
COM::RELEASE osession
COM::RELEASE oscript