>>>DEBUGOUT PROGRAM() >>>DEBUGOUT " About to check for menu bar" >>>IF ThisForm.lnCnt2Bar > 0 AND CNTBAR('Print') >= ThisForm.lnCnt2Bar >>> DEBUGOUT " About to remove menu bar", ThisForm.lnCnt2Bar >>> DEBUGOUT " Bar prompt is", PRMBAR('Print', ThisForm.lnCnt2Bar) >>> DEBUGOUT " Print menu has", CNTBAR('Print'), ' bars before release bar' >>> release bar ThisForm.lnCnt2Bar of print >>> DEBUGOUT " Print menu has", CNTBAR('Print'), ' bars after release bar' >>>ENDIF ThisForm.lnCnt2Bar > 0 AND CNTBAR('Print') >= ThisForm.lnCnt2Bar >>>>>>
>>>FRMSALESORD.DESTROY >>> About to check for menu bar >>> About to remove menu bar 12 >>> Bar prompt is Default Print Options (SO) >>> Print menu has 12 bars before release bar >>> Print menu has 11 bars after release bar >>>>>>
>*-- set up print bar >lnCntBar = cntbar('Print') >ThisForm.lnCnt2Bar = lnCntBar + 1 > >if .not. empty(wwrctrl.frxorder) .or. .not. empty(wwrctrl.frxpicklst) ; > .or. .not. empty(wwrctrl.frxoelabl) .or. .not. empty(wwrctrl.frxbol) > if ChkSecur('DFLTPRSO') > *-- call the screens print valid so fields are properly updated > * Modified 21-July-2017 by TEG > * Add a condition so only enabled when this form is open > *-- TEG 12/6/2019 > * Check for presence of cWindow property in activeform > define bar Thisform.lnCnt2Bar of Print prompt "\<Default Print Options (SO)" ; > skip for glSYS_EDIT .or. glSYS_FIND OR ; > (not PEMSTATUS(_screen.ActiveForm, "cWindow", 5) OR ; > _screen.ActiveForm.cWindow <> "wrsalesord") ; > message "Select Sales Order/Point of Sale default print options." > on selection bar ThisForm.lnCnt2Bar of Print ; > _screen.activeForm.vlb_Print(.T.) > endif ChkSecur('DFLTPRSO') >endif .not. empty(wwrctrl.... >>
PROCEDURE CheckActiveWindowName (tcWindowName) IF VARTYPE(_Screen.ActiveForm)#'O' OR !PEMSTATUS(_Screen.ActiveForm,'cWindow',5) RETURN .f. ENDIF RETURN _Screen.ActiveForm.cWindow = tcWindowName ENDPROCthen you could have the menu definition:
define bar Thisform.lnCnt2Bar of Print prompt "\<Default Print Options (SO)" ; skip for glSYS_EDIT .or. glSYS_FIND OR (not CheckActiveWindowName('wrsalesord'))