ge-aerospace/shopdb
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add Part Marker machinetypeid and update editpc.asp filtering

Browse Source 
sql/add_genspect_partmarker_machinetypes.sql:
- Add Genspect (machinetypeid 45) and Part Marker (machinetypeid 46)

editpc.asp:
- Add pctypeid 10 (Part Marker) -> machinetypeid 46 filter
- Fix comment for Genspect to show machinetypeid 45

🤖 Generated with [Claude Code](https://claude.com/claude-code)

Co-Authored-By: Claude <noreply@anthropic.com>
This commit is contained in:
cproudlock
2025-12-09 11:11:20 -05:00
parent 3fa1fc3812
commit 133aa29458
3 changed files with 33 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
editpc.asp
View File

@@ -592,9 +592,9 @@ Set rsMachineStatus = Nothing
' pctypeid 5 (CMM) -> CMM equipment (machinetypeid 3)
' pctypeid 6 (Wax/Trace) -> Wax Trace equipment (machinetypeid 5)
' pctypeid 7 (Keyence) -> Measuring Machine equipment (machinetypeid 23)
' pctypeid 8 (Genspect/EAS1000) -> Measuring Machine equipment (machinetypeid 23)
' pctypeid 8 (Genspect/EAS1000) -> Genspect equipment (machinetypeid 45)
' pctypeid 9 (Heat Treat) -> Furnace equipment (machinetypeid 14)
' pctypeid 10 (Part Marker) -> no filter (show all equipment)
' pctypeid 10 (Part Marker) -> Part Marker equipment (machinetypeid 46)
Dim rsControlPCs, equipmentTypeFilter, filterDescription
equipmentTypeFilter = ""
filterDescription = ""
@@ -614,6 +614,9 @@ Set rsMachineStatus = Nothing
Case 9
equipmentTypeFilter = " AND m.machinetypeid = 14"
filterDescription = "Furnace (Heat Treat)"
Case 10
equipmentTypeFilter = " AND m.machinetypeid = 46"
filterDescription = "Part Marker"
End Select
strSQL = "SELECT m.machineid, m.machinenumber, m.alias FROM machines m " &_
"LEFT JOIN models mo ON m.modelnumberid = mo.modelnumberid " &_