>>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....Tamar