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

added combobox dropdown options to the CALIB_LIST form

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-24 09:05:19 -07:00
parent 8f233705a2
commit 6396264e64
2 changed files with 591 additions and 611 deletions
Download Patch File Download Diff File Expand all files Collapse all files

899
LSL2/OIWIN/CALIB_LIST.json
View File

File diff suppressed because it is too large Load Diff

27
LSL2/STPROC/CALIB_LIST.txt
View File

@ -67,19 +67,16 @@ END
RETURN Result RETURN Result
* * * * * * * * * * * * * *
Create: Create:
* * * * * * * * * * * * * *
IF MemberOf(@USER4,'CALIBRATION') ELSE IF MemberOf(@USER4,'CALIBRATION') ELSE
ErrMsg('Only authorized personnel may update the Calibration List.') ErrMsg('Only authorized personnel may update the Calibration List.')
End_Window(@WINDOW) End_Window(@WINDOW)
RETURN RETURN
END END
obj_Appwindow('Create',@WINDOW) obj_Appwindow('Create',@WINDOW)
Set_List_Box_Data( @WINDOW ) Set_List_Box_Data( @WINDOW )
@ -141,13 +138,9 @@ FOR I = 1 TO COUNT(ETCtrls,@VM) + (ETCtrls NE '')
NEXT Line NEXT Line
NEXT I NEXT I
RETURN RETURN
* * * * * * * * * * * * * *
Read: Read:
* * * * * * * * * * * * * *
@ -158,7 +151,6 @@ IF RowExists('CALIB_LIST',CLNo) ELSE
IF Get_Property(@WINDOW:'.ENTER_DTM','DEFPROP') = '' THEN IF Get_Property(@WINDOW:'.ENTER_DTM','DEFPROP') = '' THEN
CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTH') CurrDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTH')
Set_Property(@WINDOW:'.ENTER_DTM','DEFPROP',CurrDTM) Set_Property(@WINDOW:'.ENTER_DTM','DEFPROP',CurrDTM)
END END
END END
@ -187,14 +179,6 @@ RETURN
Delete: Delete:
* * * * * * * * * * * * * *
/*
IF Security_Check('Order',Delete$) THEN
Result = 1 ;* Proceed with delete
END ELSE
Security_Err_Msg('Order',Delete$)
Result = 0 ;* Stop event chain
END
*/
RETURN RETURN
@ -210,7 +194,6 @@ IF CLNo = '' THEN
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:NextCLNo) obj_Appwindow('LoadFormKeys',@WINDOW:@RM:NextCLNo)
END END
RETURN RETURN
@ -233,11 +216,9 @@ END ELSE
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:CLKeys) obj_Appwindow('LoadFormKeys',@WINDOW:@RM:CLKeys)
END END
RETURN RETURN
* * * * * * * * * * * * * *
LUCalibItemType: LUCalibItemType:
* * * * * * * * * * * * * *
@ -268,13 +249,10 @@ END
RETURN RETURN
* * * * * * * * * * * *
Close: Close:
* * * * * * * * * * * *
obj_Notes('Inbox',@USER4) ;* Checks for any new messages obj_Notes('Inbox',@USER4) ;* Checks for any new messages
Send_Event('MASTER_CALIB_LIST','CREATE') Send_Event('MASTER_CALIB_LIST','CREATE')
@ -314,7 +292,6 @@ IF CLNo NE '' AND CalDt NE '' THEN
obj_Appwindow('ViewNewDetail', oaParms) obj_Appwindow('ViewNewDetail', oaParms)
END END
RETURN RETURN
@ -350,6 +327,7 @@ END
RETURN RETURN
********************* *********************
PrintMostRecentLabel: PrintMostRecentLabel:
********************* *********************
@ -369,6 +347,3 @@ end
return return