| Line 129... |
Line 129... |
| 129 |
objBtnControl.ButtonSpacer = 0
|
129 |
objBtnControl.ButtonSpacer = 0
|
| 130 |
objBtnControl.ImageHspace = 2
|
130 |
objBtnControl.ImageHspace = 2
|
| 131 |
|
131 |
|
| 132 |
|
132 |
|
| 133 |
'--- Set button conditions ---
|
133 |
'--- Set button conditions ---
|
| 134 |
objBtnControl.IsReadonlyAction = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE )
|
134 |
objBtnControl.IsReadonlyAction = Eval( ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE OR ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE )
|
| 135 |
|
135 |
|
| 136 |
|
136 |
|
| 137 |
' NOTE: At this point, all buttons are Active and Visible and must now be configured
|
137 |
' NOTE: At this point, all buttons are Active and Visible and must now be configured
|
| 138 |
' as appropriate by statements that follow.
|
138 |
' as appropriate by statements that follow.
|
| 139 |
|
139 |
|
| Line 352... |
Line 352... |
| 352 |
' make the approve merge button variant visible
|
352 |
' make the approve merge button variant visible
|
| 353 |
Call objBtnControl.Visible ( "btnApproveMerge", "Y" )
|
353 |
Call objBtnControl.Visible ( "btnApproveMerge", "Y" )
|
| 354 |
|
354 |
|
| 355 |
' These conditions match those used in Diff.asp that control whether the Merge button is visible or not.
|
355 |
' These conditions match those used in Diff.asp that control whether the Merge button is visible or not.
|
| 356 |
' Use them to enable or disable the approve merge button
|
356 |
' Use them to enable or disable the approve merge button
|
| 357 |
If ( ReleaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeRelease") ) _
|
357 |
If ( ReleaseMode <> enumDB_RELEASE_IN_ARCHIVE_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND ReleaseMode <> enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeRelease") ) _
|
| 358 |
OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeReleaseForCCB") ) Then
|
358 |
OR ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE AND objAccessControl.IsActive("MergeReleaseForCCB") ) Then
|
| 359 |
|
359 |
|
| 360 |
Call objBtnControl.Active ( "btnApproveMerge", "Y" )
|
360 |
Call objBtnControl.Active ( "btnApproveMerge", "Y" )
|
| 361 |
Call objBtnControl.Active ( "btnRejectPackage", "Y" )
|
361 |
Call objBtnControl.Active ( "btnRejectPackage", "Y" )
|
| 362 |
Else
|
362 |
Else
|