Added in gating logic for system logging.
This commit is contained in:
parent
90d714c9f2
commit
1d47fec073
File diff suppressed because it is too large
Load Diff
@ -23,8 +23,16 @@ Return EventFlow or 1
|
|||||||
//-----------------------------------------------------------------------------
|
//-----------------------------------------------------------------------------
|
||||||
|
|
||||||
Event WINDOW.CREATE(CreateParam)
|
Event WINDOW.CREATE(CreateParam)
|
||||||
|
|
||||||
PlaceDialog(-2, -2)
|
PlaceDialog(-2, -2)
|
||||||
Set_Property(@Window, 'VISIBLE', 1)
|
Set_Property(@Window, 'VISIBLE', 1)
|
||||||
|
NewTWSystemActive = XLATE('APP_INFO', 'NEW_TW_SYSTEM_ACTIVE_SWITCH', 1, 'X')
|
||||||
|
If NewTWSystemActive EQ 0 then
|
||||||
|
msg(@Window, 'New TW System not activated, closing out')
|
||||||
|
Result = ''
|
||||||
|
Result<1> = False$
|
||||||
|
End_Dialog(@Window, Result)
|
||||||
|
end
|
||||||
GoSub FillFormMasterData
|
GoSub FillFormMasterData
|
||||||
RDSNo = ''
|
RDSNo = ''
|
||||||
PresetTestType = ''
|
PresetTestType = ''
|
||||||
@ -276,3 +284,4 @@ ClearFormData:
|
|||||||
return
|
return
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user