added LSL2 stored procedures
This commit is contained in:
63
LSL2/STPROC/NDW_ADD_PROB_CAT_EVENTS.txt
Normal file
63
LSL2/STPROC/NDW_ADD_PROB_CAT_EVENTS.txt
Normal file
@ -0,0 +1,63 @@
|
||||
Compile function NDW_ADD_PROB_CAT_EVENTS(CtrlEntId, Event, @PARAMS)
|
||||
|
||||
Declare function React_Prob_Cat_Services, Get_Property
|
||||
Declare subroutine Set_Property, REACTOR_MODES_Services, End_Dialog
|
||||
|
||||
$Insert REACTOR_MODES_EQUATES
|
||||
|
||||
#pragma precomp SRP_PreCompiler
|
||||
#window NDW_ADD_PROB_CAT
|
||||
|
||||
GoToEvent Event for CtrlEntId else
|
||||
// Event not implemented
|
||||
end
|
||||
|
||||
Return EventFlow or 1
|
||||
|
||||
//-----------------------------------------------------------------------------
|
||||
// EVENT HANDLERS
|
||||
//-----------------------------------------------------------------------------
|
||||
|
||||
Event WINDOW.CREATE(CreateParam)
|
||||
|
||||
EventFlow = 1
|
||||
Set_Property(@Window:'.EDT_REACTOR_MODE','TEXT', CreateParam)
|
||||
//Result = False$
|
||||
End Event
|
||||
|
||||
Event EDT_NEW_PROB_CAT.CHAR(VirtCode, ScanCode, CtrlKey, ShiftKey, AltKey)
|
||||
|
||||
ModeEditing = Get_Property(@Window:'.EDT_REACTOR_MODE','TEXT')
|
||||
ExistingProbs = XLATE('REACTOR_MODES', ModeEditing, REACTOR_MODES_SERVICE_CATEGORIES$, 'X')
|
||||
|
||||
NewValue = Get_Property(@Window:'.EDT_NEW_PROB_CAT', 'TEXT')
|
||||
|
||||
If NewValue NE '' AND ModeEditing NE '' then
|
||||
Locate NewValue in ExistingProbs using @VM setting existingPos then
|
||||
Set_Property(@Window:'.BTN_SAVE', 'ENABLED', 0)
|
||||
end else
|
||||
Set_Property(@Window:'.BTN_SAVE', 'ENABLED', 1)
|
||||
end
|
||||
end else
|
||||
Set_Property(@Window:'.BTN_SAVE', 'ENABLED', 0)
|
||||
end
|
||||
|
||||
|
||||
end event
|
||||
Event BTN_SAVE.CLICK()
|
||||
|
||||
ModeEditing = Get_Property(@Window:'.EDT_REACTOR_MODE','TEXT')
|
||||
ModeEditingCategory = XLATE('REACTOR_MODES', ModeEditing, REACTOR_MODES_MODE_CATEGORY$, 'X')
|
||||
NewCategory = Get_Property(@Window:'.EDT_NEW_PROB_CAT', 'TEXT')
|
||||
|
||||
IF ModeEditing NE '' AND NewCategory NE '' then
|
||||
Reactor_Modes_Services('AddServiceCategory', ModeEditing, NewCategory, ModeEditingCategory)
|
||||
end
|
||||
End_Dialog(@Window, 1)
|
||||
end event
|
||||
|
||||
Event BTN_CANCEL.CLICK()
|
||||
End_Dialog(@Window, 1)
|
||||
end event
|
||||
|
||||
|
Reference in New Issue
Block a user