refactored calibration reminders into a service
This commit is contained in:
committed by
Stieber Daniel (CSC FI SPS MESLEO)
parent
7782918afd
commit
7cc861619f
@ -291,12 +291,6 @@ Event WINDOW.CREATE(CreateParam)
|
||||
Set_Property(@Window : '.MENU.ADMIN.MASS_TOOL_MODE_CHANGE', 'VISIBLE', 0)
|
||||
Set_Property(@Window : '.MENU.ADMIN.MASS_REACTOR_MODE_CHANGE', 'VISIBLE', 0)
|
||||
end
|
||||
|
||||
CalDueRecipients = XLATE('NOTIFICATION','CALIB_DUE_NOTIFY',NOTIFICATION_USER_ID$,'X')
|
||||
|
||||
LOCATE @USER4 IN CalDueRecipients USING @VM SETTING POS THEN
|
||||
obj_Calib_List('SendReminders') ;* New system added 3/18/2010 JCH
|
||||
END
|
||||
|
||||
UseFQAMatScan = Database_Services('ReadDataRow', 'APP_INFO', 'USE_FQA_MAT_SCAN')
|
||||
If UseFQAMatScan EQ 1 OR MemberOf(@User4, 'OI_TEST') then
|
||||
@ -854,3 +848,4 @@ return
|
||||
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user