<%
'--------------------------------------------------------
' Configurations for this page
'--------------------------------------------------------
myPageName = "editOrder.asp"
myPageTable = "orders"
'--------------------------------------------------------
displayHeader()
if (checkSecurity(30) or checkSecurity(CONST_securityLevelToEditOrdersAll) or checkSecurity(CONST_securityLevelToEditOrdersForCompanyJob)) then
select case request("action")
case "getById"
getOrderById()
case "assignset"
assignSet()
case "edit"
editOrder() ' gets company/contact info from super user and gets quantity, discipline, and bid category information
case "fulfill"
editOrder()
case "delete"
editOrder()
case "deleteExecute"
deleteExecute()
case "finish"
if request("print") <> "" then
printOrder()
else
finishOrder()
end if
case "list"
list()
case else
list()
end select
else
response.Write("You must be a super user to access this section ")
security_getLogonInfo(myPageName & "?job_id=" & request("job_id"))
end if
displayFooter()
'-----------------------------------------------------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------------------------------------------------
function list()
select case request("action")
case "fill"
%>
Retrieve Order By ID
<%
end select
sqlString = "select lkdeliverymethod.deliveryMethod, orders.*, job.job as jobName, company.name as companyName, contacts.name as contactName, pgc.name as pushgroupContactName "
sqlString = sqlString & "from orders left outer join job on (orders.job_id = job.id) left outer join company on (orders.company_id=company.id) left outer join contacts on (orders.contact_id=contacts.id) left outer join contacts pgc on (orders.pushgroup_contact_id = pgc.id) left outer join lkdeliverymethod on (lkdeliverymethod.id=orders.shipment_method) "
sqlString = sqlString & "where orders.id=orders.id "
if not (checkSecurity(CONST_securityLevelToEditOrdersAll)) then
sqlString = sqlString & " and job.company_id="&Session("User_Company")&" "
end if
select case request("action")
case "fill"
if CONST_statusToDisplayInFillOrder <> "" then
fillStatusList = split(CONST_statusToDisplayInFillOrder,",")
sqlString = sqlString & " and (orders.status = 'Pending'"
For Each statusType in fillStatusList
sqlString = sqlString & " or orders.status = '"&trim(statusType)&"'"
Next
sqlString = sqlString & ")"
else
sqlString = sqlString & " and (orders.status = 'Pending' or orders.status = 'Waiting on Deposit' or orders.status='Hold' or orders.status = 'Waiting on CC Approv' or orders.status = 'Waiting on Approval' or orders.status = 'Not Approved' or orders.status='Incomplete' )"
end if
case else
sqlString = sqlString & " and orders.date_ordered > DATE_SUB(now(), interval "&CONST_manageOrdersInterval&" day) "
end select
sqlString = sqlString & " order by id"
showList sqlString
end function
'--------------------------------------------------------------------------
' This function shows the list of companies.
'--------------------------------------------------------------------------
function showList(sqlString)
dim headerArray(11)
dim jsRowArray(2)
dim displayArray(11,4,1)
set objRS = objConn.Execute(sqlString)
headerArray(0) = " "
headerArray(1) = "Job Order ID"
headerArray(2) = "Company MBE/WBE"
headerArray(3) = "Contact"
headerArray(4) = "Pushgroup Contact ID"
headerArray(5) = "Status"
headerArray(6) = "Date Ordered"
if checkSecurity(30) and CONST_displayDeliveryMethEditOrder then
headerArray(6) = headerArray(6) & " Delivery Method"
end if
if CONST_displayFreeSetInEditOrderList then
headerArray(7) = "Free Set"
end if
if CONST_displayTaxInEditOrderList then
headerArray(8) = "Tax"
end if
headerArray(9) = "Comments"
if CONST_displayFreightInEditOrderList then
headerArray(10) = "Freight"
end if
if CONST_displayQuantityInEditOrderList then
headerArray(11) = "Quantity Of Full Sets"
end if
select case request("action")
case "fill"
displayArray(0,0,0) = "