MAS 20 & MAS 200
Command Line / Web Links
These can be run from a command line, a web page, or wherever else you can run a program. Remember to replace [server], [port], [division], [customer], and [company] with the appropriate values where applicable. Please note, these commands have only been tested with MAS 90/200 up to v3.71.
MAS 90 - Customer Inquiry
windx:////ARWIAA^Y[division][customer]^[company]
MAS 90 - Vendor Inquiry
windx:////APWIAA^Y[division][vendor]^[company]
MAS 90 - Inventory Inquiry
windx:////IMWIAA^Y[item number]^[company]
Note: The item number needs to be padded to 15 characters in length on the right-hand side with this character “þ”, sans quotes.)
MAS 90 - Sales By Salesperson Report
windx:////ARWRPA^Y^[company]
MAS 90 - Monthly Purchase Report
windx:////APWRMA^Y^[company]
MAS 90 - Customer Sales Analysis Report
windx:////ARWRDA^Y^[company]
MAS 90 - Vendor Purchase Analysis Report
windx:////APWREA^Y^[company]
MAS 90 - Monthly Sales Recap by Product Line Report
windx:////SOWRJA^Y^[company]
MAS 90 - Inventory Sales Analysis Report
windx:////IMWRJA^Y^[company]
MAS 90 - Return Reason Report
windx:////RAWRGA^Y^[company]
MAS 90 - Benefit Accrual Report
This one is dangerous because it reveals employee pay rates without logging in to MAS.
windx:////PRWRVA^Y^[company]
MAS 200 - Customer Inquiry
windx://[server]/[port]/ARWIAA^Y[division][customer]^[company]
MAS 200 - Vendor Inquiry
windx://[server]/[port]/APWIAA^Y[division][vendor]^[company]
MAS 200 - Inventory Inquiry
windx://[server]/[port]/IMWIAA^Y[item number]^[company]
MAS 200 - Sales By Salesperson Report
windx://[server]/[port]/ARWRPA^Y^[company]
MAS 200 - Monthly Purchase Report
windx://[server]/[port]/APWRMA^Y^[company]
MAS 200 - Customer Sales Analysis Report
windx://[server]/[port]/ARWRDA^Y^[company]
MAS 200 - Vendor Purchase Analysis Report
windx://[server]/[port]/APWREA^Y^[company]
MAS 200 - Monthly Sales Recap by Product Line Report
windx://[server]/[port]/SOWRJA^Y^[company]
MAS 200 - Inventory Sales Analysis Report
windx://[server]/[port]/IMWRJA^Y^[company]
MAS 200 - Return Reason Report
windx://[server]/[port]/RAWRGA^Y^[company]
MAS 200 - Benefit Accrual Report
This one is dangerous because it reveals employee pay rates without logging in to MAS.
windx://[server]/[port]/PRWRVA^Y^[company]
SO Extended Description (VBScript)
This code should work from anywhere that you can use VBScript. Make sure you change "[name of dsn]", "[user id]", "[company]", and "[password]" to their appropriate values before attempting to call this function.
Function GetDescription(OrderNum, LineSeqNo, ShowExtended, RegularDesc)
If ShowExtended = "Y" Then
strDescriptionConnectionString = "DSN=[name of dsn];" & _
"UID=[user id]|[company];PWD=[password]"
Set DescriptionConnection = CreateObject("ADODB.Connection")
DescriptionConnection.Open strDescriptionConnectionString
Set rsDescription = CreateObject("ADODB.Recordset")
Sql_Description = "SELECT * FROM SO_05SOExtdItemDescription " & _
"WHERE OrderNumber = ‘" & OrderNum & "’ AND LineSEQNo = ‘" & _
LineSeqNo & "’"
rsDescription.Open Sql_Description, DescriptionConnection
Do While Not rsDescription.EOF
FinishedDesc = FinishedDesc & _
trim(rsDescription.Fields.Item("CommentText").Value)
rsDescription.MoveNext
Loop
FinishedDesc = replace(FinishedDesc, "~;~", vbCrLf)
GetDescription = FinishedDesc
rsDescription.Close
DescriptionConnection.Close
set rsDescription = Nothing
set DescriptionConnection = Nothing
Else
GetDescription = RegularDesc
End If
End Function
If ShowExtended = "Y" Then
strDescriptionConnectionString = "DSN=[name of dsn];" & _
"UID=[user id]|[company];PWD=[password]"
Set DescriptionConnection = CreateObject("ADODB.Connection")
DescriptionConnection.Open strDescriptionConnectionString
Set rsDescription = CreateObject("ADODB.Recordset")
Sql_Description = "SELECT * FROM SO_05SOExtdItemDescription " & _
"WHERE OrderNumber = ‘" & OrderNum & "’ AND LineSEQNo = ‘" & _
LineSeqNo & "’"
rsDescription.Open Sql_Description, DescriptionConnection
Do While Not rsDescription.EOF
FinishedDesc = FinishedDesc & _
trim(rsDescription.Fields.Item("CommentText").Value)
rsDescription.MoveNext
Loop
FinishedDesc = replace(FinishedDesc, "~;~", vbCrLf)
GetDescription = FinishedDesc
rsDescription.Close
DescriptionConnection.Close
set rsDescription = Nothing
set DescriptionConnection = Nothing
Else
GetDescription = RegularDesc
End If
End Function
Example for calling the function:
Dim ItemDescription
ItemDescription = GetDescription("0000001", "002", "Y", _
"This is the regular description")
ItemDescription = GetDescription("0000001", "002", "Y", _
"This is the regular description")

, Simi Valley, CA