phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

modified WO_REC form to select WO_MAT keys instead of relying on WO_LOG<WO_MAT_KEY> field.

Browse Source 
refactored print cass labels to select on RDS table for list of RDSes instead of using relational column in WO_STEP table
This commit is contained in:
Infineon\StieberD
2025-07-24 16:57:21 -07:00
parent 6396264e64
commit a48f47ddc9
5 changed files with 548 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
LSL2/STPROC/RDS_SERVICES.txt
View File

@ -110,12 +110,16 @@ EQU COL$MET_TWSIG_Z2 TO 21
EQU COMMA$ to ','
EQU NEW_EXIST$ To 0 ; * Reduce Mode 0
equ NEXT_CUR$ To 1
equ ADD_EXIST$ to 2
AutoDisplayErrors = FALSE$ ; // Set this to True$ when debugging so all errors will automatically display.
Declare subroutine SRP_Stopwatch, Error_Services, obj_Tables, Metrology_Services, obj_RDS_Test, SRP_JSON, Logging_Services
Declare subroutine RTI_Set_Debugger, Database_Services, Btree.Extract, Extract_SI_Keys, Obj_WO_Mat, Obj_WO_Mat_Log
Declare subroutine Dialog_Box, Obj_Notes, RList, Set_Status, Errmsg, Obj_React_Status , Reactor_Services
Declare subroutine Rds_Services, Obj_Post_Log, Mona_Services, Transaction_Services
Declare subroutine Rds_Services, Obj_Post_Log, Mona_Services, Transaction_Services, Reduce
Declare function SRP_Sort_Array, Metrology_Services, obj_RDS_Test, obj_Test_Point_Map, Database_Services
Declare function Work_Order_Services, SRP_JSON, Logging_Services, Environment_Services, SRP_Trim, Error_Services
Declare function Memberof, Obj_WO_Mat, Obj_WO_Mat_Log, SRP_Array, DateTime, Dialog_Box, obj_Prod_Spec
@ -1984,7 +1988,9 @@ Service PushSigProfileToWoMat(RDSNo)
end service
Service AllTWUseSigned(RDSNo)
If RDSNo NE '' then
LSKeys = Xlate('RDS', RDSNo, 'RDS_LS_SORTED', 'X')
AllMetKeys = XLATE('RDS_LAYER', LSKeys, RDS_LAYER_RDS_TEST_KEYS$, 'X')
@ -2007,6 +2013,55 @@ Service AllTWUseSigned(RDSNo)
Error_Services('Add', ErrorMessage)
end
end
end service
Service GetRDSKeys(WONo)
Response = ''
ErrorMsg = ''
If (WONo NE '') then
If RowExists('WO_LOG', WONo) then
Open 'DICT.RDS' to hDict then
TableName = 'RDS'
SortList = 'RUN_ORDER_NUM'
ReduceScript = 'WITH {WO} EQ ':Quote(WONo)
Mode = NEXT_CUR$
Flag = ''
Cursor = ''
GoSub ClearCursors
Reduce(ReduceScript, SortList, Mode, TableName, Cursor, Flag)
If Flag then
Select TableName by SortList using Cursor then
Open TableName to hTable then
EOF = False$
Loop
Readnext KeyId using Cursor by AT else EOF = True$
Until EOF
Response<0, -1> = KeyId
Repeat
end else
ErrorMsg = 'Error in ':Service:' service. Error opening ':TableName:' table.'
end
end else
ErrorMsg = 'Error in ':Service:' service. Error selecting ':TableName:' table.'
end
end else
ErrorMsg = 'Error in ':Service:' service. Error calling Reduce'
end
end else
ErrorMsg = 'Error in ':Service:' service. Error opening DICT.RDS'
end
end else
ErrorMsg = 'Error in ':Service:' service. WO_LOG ':WONo:' does not exist.'
end
end else
ErrorMsg = 'Error in ':Service:' service. Null WONo passed into service.'
end
If ErrorMsg NE '' then Error_Services('Add', ErrorMsg)
end service
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@ -2021,4 +2076,3 @@ ClearCursors:
return