Execute naming convention fix on dev - tables renamed, ASP updated
Database changes applied: - machine_overrides -> machineoverrides - pc_comm_config -> commconfig - pc_dnc_config -> dncconfig - pc_dualpath_assignments -> dualpathassignments - pc_network_interfaces -> networkinterfaces - usb_checkouts -> usbcheckouts ASP files updated (10 files): - api.asp, api_usb.asp - displaypc.asp, displaysubnet.asp, displaymachine.asp - displayusb.asp, displayprofile.asp - usb_history.asp, savecheckin_usb.asp, savecheckout_usb.asp 9 views recreated with new table references. Tested and verified working on dev environment. Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
12
api.asp
12
api.asp
@@ -1256,19 +1256,19 @@ Sub ClearShopfloorData(hostname)
|
||||
|
||||
LogToFile "Deleted " & cmdDelete.RecordsAffected & " communications records"
|
||||
|
||||
' Delete from pc_comm_config
|
||||
' Delete from commconfig
|
||||
Set cmdDelete = Server.CreateObject("ADODB.Command")
|
||||
cmdDelete.ActiveConnection = objConn
|
||||
cmdDelete.CommandText = "DELETE FROM pc_comm_config WHERE machineid = ?"
|
||||
cmdDelete.CommandText = "DELETE FROM commconfig WHERE machineid = ?"
|
||||
cmdDelete.Parameters.Append cmdDelete.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
||||
cmdDelete.Execute
|
||||
|
||||
LogToFile "Deleted " & cmdDelete.RecordsAffected & " comm config records"
|
||||
|
||||
' Delete from pc_dnc_config
|
||||
' Delete from dncconfig
|
||||
Set cmdDelete = Server.CreateObject("ADODB.Command")
|
||||
cmdDelete.ActiveConnection = objConn
|
||||
cmdDelete.CommandText = "DELETE FROM pc_dnc_config WHERE machineid = ?"
|
||||
cmdDelete.CommandText = "DELETE FROM dncconfig WHERE machineid = ?"
|
||||
cmdDelete.Parameters.Append cmdDelete.CreateParameter("@machineid", 3, 1, , CLng(machineid))
|
||||
cmdDelete.Execute
|
||||
|
||||
@@ -1372,7 +1372,7 @@ Function InsertCommConfigs(machineid, commConfigsJSON)
|
||||
Dim cmdInsert
|
||||
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
||||
cmdInsert.ActiveConnection = objConn
|
||||
cmdInsert.CommandText = "INSERT INTO pc_comm_config (" & _
|
||||
cmdInsert.CommandText = "INSERT INTO commconfig (" & _
|
||||
"machineid, portname, baudrate, databits, parity, stopbits, flowcontrol" & _
|
||||
") VALUES (?, ?, ?, ?, ?, ?, ?)"
|
||||
|
||||
@@ -1447,7 +1447,7 @@ Function InsertDNCConfig(machineid, dncConfigJSON, dualPathEnabled, path1Name, p
|
||||
Dim cmdInsert
|
||||
Set cmdInsert = Server.CreateObject("ADODB.Command")
|
||||
cmdInsert.ActiveConnection = objConn
|
||||
cmdInsert.CommandText = "INSERT INTO pc_dnc_config (" & _
|
||||
cmdInsert.CommandText = "INSERT INTO dncconfig (" & _
|
||||
"machineid, site, cnc, ncif, machinenumber, hosttype, " & _
|
||||
"ftphostprimary, ftphostsecondary, ftpaccount, " & _
|
||||
"debug, uploads, scanner, dripfeed, additionalsettings, " & _
|
||||
|
||||
Reference in New Issue
Block a user