J
Jeff Ledbetter
Guest
DEFINE VARIABLE Merror AS CHARACTER NO-UNDO. DEFINE VARIABLE MhStatus AS HANDLE NO-UNDO. DEFINE VARIABLE Mok AS LOGICAL NO-UNDO. MESSAGE SUBSTITUTE("Populate module(s) '&1' in workspace '&2'?",Mmodule,Pwspace-id) VIEW-AS ALERT-BOX WARNING BUTTONS YES-NO TITLE Malert-title UPDATE Mok. IF Mok THEN DO: SESSION:SET-WAIT-STATE("GENERAL":U). /* Display status window */ IF CONNECTED("rtb":U) THEN DO: RUN hideObject IN SOURCE-PROCEDURE. MhStatus = DYNAMIC-FUNCTION('fnRtbRunWindowOnce':U,"rtb/w/rtb_procstat.w"). RUN rtb_set_window_title IN MhStatus (INPUT Malert-title). END. SESSION:SET-WAIT-STATE("GENERAL":U). Merror = DYNAMIC-FUNCTION('fnRtbPopulateWorkspace':U IN h_rtb_u_ws,Pwspace-id,Mmodule). SESSION:SET-WAIT-STATE(""). IF VALID-HANDLE(MhStatus) THEN DO: RUN destroyObject IN MhStatus. MhStatus = ?. RUN viewObject IN SOURCE-PROCEDURE. END. IF Merror <> "" THEN MESSAGE Merror VIEW-AS ALERT-BOX ERROR TITLE Malert-title. ELSE MESSAGE SUBSTITUTE("Module '&1' in workspace '&2' successfully populated.",Mmodule,Pwspace-id) VIEW-AS ALERT-BOX INFO TITLE Malert-title. END. /* Mok */ RETURN.
Continue reading...
Continue reading...