e382a3246e
- Fix dualpath PC propagation direction (Equipment->PC) in api.asp and db_helpers.asp - Fix early exit in CreatePCMachineRelationship preventing propagation - Fix getShopfloorPCs to filter machinetypeid IN (33,34,35) instead of >= 33 - Fix getShopfloorPCs to show equipment numbers via GROUP_CONCAT subquery - Add detailed PropagateDP logging for dualpath debugging - Default "Show on Shopfloor Dashboard" checkbox to checked in addnotification.asp - Add USB label batch printing, single USB labels, and USB history pages - Add printer supplies tracking and toner report enhancements - Add uptime map visualization page - Add dashboard/lobby display SQL migration - Update CLAUDE.md with IIS 401 workaround documentation - Update TODO.md Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
128 lines
3.9 KiB
Plaintext
128 lines
3.9 KiB
Plaintext
<%@ Language=VBScript %>
|
|
<%
|
|
'=============================================================================
|
|
' FILE: savecheckoutusb.asp
|
|
' PURPOSE: Process USB checkout request
|
|
' SECURITY: Parameterized queries, input validation
|
|
' CREATED: 2025-12-07
|
|
'=============================================================================
|
|
%>
|
|
<!--#include file="./includes/sql.asp"-->
|
|
<!--#include file="./includes/response.asp"-->
|
|
<%
|
|
' Get form values
|
|
Dim machineid, sso, reason
|
|
machineid = Trim(Request.Form("machineid"))
|
|
sso = Trim(Request.Form("sso"))
|
|
reason = Trim(Request.Form("reason"))
|
|
|
|
' Validate machineid
|
|
If machineid = "" Or Not IsNumeric(machineid) Then
|
|
objConn.Close
|
|
ShowError "Invalid USB device ID.", "checkoutusb.asp"
|
|
Response.End
|
|
End If
|
|
|
|
' Validate SSO - must be 9 digits
|
|
If sso = "" Or Len(sso) <> 9 Then
|
|
objConn.Close
|
|
ShowError "SSO must be exactly 9 digits.", "checkoutusb.asp"
|
|
Response.End
|
|
End If
|
|
|
|
' Verify SSO is numeric
|
|
Dim i, c
|
|
For i = 1 To Len(sso)
|
|
c = Mid(sso, i, 1)
|
|
If c < "0" Or c > "9" Then
|
|
objConn.Close
|
|
ShowError "SSO must contain only digits.", "checkoutusb.asp"
|
|
Response.End
|
|
End If
|
|
Next
|
|
|
|
' Verify the USB device exists and is available
|
|
Dim checkSQL, cmdCheck, rsCheck
|
|
checkSQL = "SELECT m.machineid, m.serialnumber, m.alias, " & _
|
|
"(SELECT COUNT(*) FROM usbcheckouts uc WHERE uc.machineid = m.machineid AND uc.checkin_time IS NULL) AS is_checked_out " & _
|
|
"FROM machines m " & _
|
|
"WHERE m.machineid = ? AND m.machinetypeid = 44 AND m.isactive = 1"
|
|
|
|
Set cmdCheck = Server.CreateObject("ADODB.Command")
|
|
cmdCheck.ActiveConnection = objConn
|
|
cmdCheck.CommandText = checkSQL
|
|
cmdCheck.CommandType = 1
|
|
cmdCheck.Parameters.Append cmdCheck.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
|
|
Set rsCheck = cmdCheck.Execute
|
|
|
|
If rsCheck.EOF Then
|
|
rsCheck.Close
|
|
Set rsCheck = Nothing
|
|
Set cmdCheck = Nothing
|
|
objConn.Close
|
|
ShowError "USB device not found.", "checkoutusb.asp"
|
|
Response.End
|
|
End If
|
|
|
|
Dim serialnumber, usbAlias, isCheckedOut
|
|
serialnumber = rsCheck("serialnumber") & ""
|
|
usbAlias = rsCheck("alias") & ""
|
|
If IsNull(rsCheck("is_checked_out")) Or rsCheck("is_checked_out") = "" Then
|
|
isCheckedOut = 0
|
|
Else
|
|
isCheckedOut = CLng(rsCheck("is_checked_out"))
|
|
End If
|
|
|
|
rsCheck.Close
|
|
Set rsCheck = Nothing
|
|
Set cmdCheck = Nothing
|
|
|
|
If isCheckedOut > 0 Then
|
|
objConn.Close
|
|
ShowError "USB device '" & Server.HTMLEncode(serialnumber) & "' is already checked out.", "checkoutusb.asp"
|
|
Response.End
|
|
End If
|
|
|
|
' Insert checkout record
|
|
Dim insertSQL, cmdInsert
|
|
insertSQL = "INSERT INTO usbcheckouts (machineid, sso, checkout_reason, checkout_time) VALUES (?, ?, ?, NOW())"
|
|
|
|
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
|
cmdInsert.ActiveConnection = objConn
|
|
cmdInsert.CommandText = insertSQL
|
|
cmdInsert.CommandType = 1
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@sso", 200, 1, 20, sso)
|
|
|
|
If reason = "" Then
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@reason", 200, 1, 1000, Null)
|
|
Else
|
|
cmdInsert.Parameters.Append cmdInsert.CreateParameter("@reason", 200, 1, 1000, reason)
|
|
End If
|
|
|
|
On Error Resume Next
|
|
cmdInsert.Execute
|
|
|
|
If Err.Number = 0 Then
|
|
Set cmdInsert = Nothing
|
|
objConn.Close
|
|
|
|
' Build display name
|
|
Dim displayName
|
|
If usbAlias <> "" And usbAlias <> serialnumber Then
|
|
displayName = serialnumber & " (" & usbAlias & ")"
|
|
Else
|
|
displayName = serialnumber
|
|
End If
|
|
|
|
ShowSuccess "USB '" & Server.HTMLEncode(displayName) & "' checked out to SSO " & Server.HTMLEncode(sso) & ".", "displayusb.asp", "USB Checkout"
|
|
Else
|
|
Dim insertErr
|
|
insertErr = Err.Description
|
|
Set cmdInsert = Nothing
|
|
objConn.Close
|
|
ShowError "Error checking out USB: " & Server.HTMLEncode(insertErr), "checkoutusb.asp"
|
|
End If
|
|
%>
|