' BOI Customer Contact - Web Page
IMPORT cgi.sbi
IMPORT com.sbi
cgi::Header 200,"text/html"
cgi::FinishHeader
PRINT """
<html>
<header>
<title>ScriptBasic 100 BOI</title>
</header>
<body>
<table>
<center><h1>ABC - Customer Contacts</h1></center>
<table style="width:100%">
<tr>
<th>Customer Number</th>
<th>Company Name</th>
<th>Phone Number</th>
</tr>
"""
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, "USER", "PASSWORD"
COM::CBN osession, "nsetcompany", :CALL, "ABC"
COM::CBN osession, "nSetDate", :CALL, "A/R", "20210722"
COM::CBN osession, "nSetModule", :CALL, "A/R"
ocust = COM::CBN(oscript, "NewObject", :SET, "AR_Customer_svc", osession)
COM::CBN ocust,"nMoveFirst"
DO UNTIL COM::CBN(ocust, "nEOF", :GET)
PRINT " <tr>\n"
PRINT " <td>", COM::CBN(ocust, "sARDIVISIONNO", :GET), "-", COM::CBN(ocust, "sCUSTOMERNO", :GET), "</td>\n"
PRINT " <td>", COM::CBN(ocust, "sCUSTOMERNAME", :GET), "</td>\n"
PRINT " <td>", COM::CBN(ocust, "sTELEPHONENO", :GET), "</td>\n"
COM::CBN ocust, "nMoveNext"
PRINT " </tr>\n"
LOOP
PRINT """
</table>
</body>
</html>
"""
COM::CBN ocust, "DropObject"
COM::RELEASE ocust
COM::CBN osession, "DropObject"
COM::RELEASE osession
COM::RELEASE oscript