wSettingsTab3.w

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS C-Win 
/*------------------------------------------------------------------------

  Name: wSettingsTab3.w
  Desc: Settings tab for Backup

------------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.       */
/*----------------------------------------------------------------------*/

CREATE WIDGET-POOL.

/* ***************************  Definitions  ************************** */

/* Parameters Definitions ---                                           */

DEFINE INPUT  PARAMETER phParent    AS HANDLE      NO-UNDO.
DEFINE INPUT  PARAMETER phRectangle AS HANDLE      NO-UNDO.

/* Local Variable Definitions ---                                       */

{ DataDigger.i }

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE Window
&Scoped-define DB-AWARE no

/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME DEFAULT-FRAME

/* Custom List Definitions                                              */
/* List-1,List-2,List-3,List-4,List-5,List-6                            */
&Scoped-define List-1 btnSeq btnAction btnDb btnDumpName btnExt btnLastDir ~
btnProgDir btnTable btnUserid btnWeekday btnDate btnDay btnDayName btnHH ~
btnMM btnMonth btnSS btnTime btnTimestamp btnYear 

/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME



/* ***********************  Control Definitions  ********************** */

/* Define the widget handle for the window                              */
DEFINE VAR C-Win AS WIDGET-HANDLE NO-UNDO.

/* Definitions of the field level widgets                               */
DEFINE RECTANGLE RECT-17
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE-PIXELS 560 BY 30.

DEFINE VARIABLE tgBackupOnCreate AS LOGICAL INITIAL no 
     LABEL "Backup on &Create" 
     VIEW-AS TOGGLE-BOX
     SIZE-PIXELS 174 BY 17 TOOLTIP "save a copy of the record as xml on creation" NO-UNDO.

DEFINE VARIABLE tgBackupOnDelete AS LOGICAL INITIAL no 
     LABEL "Backup on &Delete" 
     VIEW-AS TOGGLE-BOX
     SIZE-PIXELS 160 BY 17 TOOLTIP "save a copy of the record as xml on deletion" NO-UNDO.

DEFINE VARIABLE tgBackupOnUpdate AS LOGICAL INITIAL no 
     LABEL "Backup on &Update" 
     VIEW-AS TOGGLE-BOX
     SIZE-PIXELS 175 BY 17 TOOLTIP "save a copy of the record as xml on change" NO-UNDO.

DEFINE BUTTON btnAction  NO-FOCUS
     LABEL "<ACTION>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnDate  NO-FOCUS
     LABEL "<DATE>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnDay  NO-FOCUS
     LABEL "<DAY>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnDayName  NO-FOCUS
     LABEL "<DAYNAME>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnDb  NO-FOCUS
     LABEL "<DB>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnDumpName  NO-FOCUS
     LABEL "<DUMPNAME>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnExt  NO-FOCUS
     LABEL "<EXT>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnHH  NO-FOCUS
     LABEL "<HH>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnLastDir  NO-FOCUS
     LABEL "<LASTDIR>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnMM  NO-FOCUS
     LABEL "<MM>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnMonth  NO-FOCUS
     LABEL "<MONTH>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnProgDir  NO-FOCUS
     LABEL "<WORKDIR>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnSeq  NO-FOCUS
     LABEL "<#>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnSS  NO-FOCUS
     LABEL "<SS>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnTable  NO-FOCUS
     LABEL "<TABLE>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnTime  NO-FOCUS
     LABEL "<TIME>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnTimestamp  NO-FOCUS
     LABEL "<TIMESTAMP>" 
     SIZE-PIXELS 100 BY 19 TOOLTIP "show current date/time".

DEFINE BUTTON btnUserid  NO-FOCUS
     LABEL "<USERID>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnWeekday  NO-FOCUS
     LABEL "<WEEKDAY>" 
     SIZE-PIXELS 100 BY 19.

DEFINE BUTTON btnYear  NO-FOCUS
     LABEL "<YEAR>" 
     SIZE-PIXELS 100 BY 19.

DEFINE VARIABLE fiDirTemplate AS CHARACTER 
     VIEW-AS EDITOR NO-WORD-WRAP
     SIZE-PIXELS 520 BY 21 TOOLTIP "template for the backup directory" NO-UNDO.

DEFINE VARIABLE fiDumpDirTemplate AS CHARACTER 
     VIEW-AS EDITOR NO-WORD-WRAP
     SIZE-PIXELS 520 BY 21 TOOLTIP "template for the dump directory" NO-UNDO.

DEFINE VARIABLE fiDumpFileExample AS CHARACTER 
     VIEW-AS EDITOR NO-WORD-WRAP
     SIZE-PIXELS 520 BY 20 TOOLTIP "example of the dumpfile name" NO-UNDO.

DEFINE VARIABLE fiDumpFileTemplate AS CHARACTER 
     VIEW-AS EDITOR NO-WORD-WRAP
     SIZE-PIXELS 520 BY 21 TOOLTIP "template for the dump file" NO-UNDO.

DEFINE VARIABLE fiFileExample AS CHARACTER 
     VIEW-AS EDITOR NO-WORD-WRAP
     SIZE-PIXELS 520 BY 20 TOOLTIP "example of the backup filename" NO-UNDO.

DEFINE VARIABLE fiFileTemplate AS CHARACTER 
     VIEW-AS EDITOR NO-WORD-WRAP
     SIZE-PIXELS 520 BY 21 TOOLTIP "template for the backup file" NO-UNDO.

DEFINE RECTANGLE RECT-14
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE-PIXELS 560 BY 315.

DEFINE RECTANGLE RECT-15
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE-PIXELS 560 BY 208.

DEFINE RECTANGLE RECT-16
     EDGE-PIXELS 2 GRAPHIC-EDGE  NO-FILL   
     SIZE-PIXELS 560 BY 107.


/* ************************  Frame Definitions  *********************** */

DEFINE FRAME DEFAULT-FRAME
    WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT X 0 Y 0
         SIZE-PIXELS 586 BY 556 WIDGET-ID 100.

DEFINE FRAME FRAME-K
     tgBackupOnCreate AT Y 5 X 31 WIDGET-ID 126
     tgBackupOnUpdate AT Y 5 X 215 WIDGET-ID 130
     tgBackupOnDelete AT Y 5 X 395 WIDGET-ID 132
     RECT-17 AT Y 0 X 0 WIDGET-ID 134
    WITH 1 DOWN KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT X 5 Y 0
         SIZE-PIXELS 565 BY 60
         TITLE "3" WIDGET-ID 1300.

DEFINE FRAME FRAME-O
     btnSeq AT Y 298 X 450 WIDGET-ID 210
     btnAction AT Y 298 X 240 WIDGET-ID 196
     btnDb AT Y 232 X 345 WIDGET-ID 200
     btnDumpName AT Y 276 X 450 WIDGET-ID 204
     btnExt AT Y 298 X 345 WIDGET-ID 198
     fiDirTemplate AT Y 23 X 30 NO-LABEL WIDGET-ID 166
     btnLastDir AT Y 254 X 450 WIDGET-ID 208
     fiFileTemplate AT Y 48 X 30 NO-LABEL WIDGET-ID 176
     fiFileExample AT Y 74 X 30 NO-LABEL WIDGET-ID 212
     btnProgDir AT Y 232 X 450 WIDGET-ID 206
     fiDumpDirTemplate AT Y 127 X 30 NO-LABEL WIDGET-ID 178
     btnTable AT Y 254 X 345 WIDGET-ID 202
     fiDumpFileTemplate AT Y 152 X 30 NO-LABEL WIDGET-ID 182
     btnUserid AT Y 276 X 345 WIDGET-ID 194
     btnWeekday AT Y 298 X 30 WIDGET-ID 148
     fiDumpFileExample AT Y 176 X 30 NO-LABEL WIDGET-ID 214
     btnDate AT Y 254 X 30 WIDGET-ID 140
     btnDay AT Y 276 X 135 WIDGET-ID 156
     btnDayName AT Y 298 X 135 WIDGET-ID 150
     btnHH AT Y 232 X 240 WIDGET-ID 158
     btnMM AT Y 254 X 240 WIDGET-ID 160
     btnMonth AT Y 254 X 135 WIDGET-ID 154
     btnSS AT Y 276 X 240 WIDGET-ID 162
     btnTime AT Y 276 X 30 WIDGET-ID 142
     btnTimestamp AT Y 232 X 30 WIDGET-ID 138
     btnYear AT Y 232 X 135 WIDGET-ID 152
     "File:" VIEW-AS TEXT
          SIZE-PIXELS 23 BY 13 AT Y 158 X 5 WIDGET-ID 184
     "Dir:" VIEW-AS TEXT
          SIZE-PIXELS 23 BY 13 AT Y 131 X 5 WIDGET-ID 186
     "Dump template" VIEW-AS TEXT
          SIZE-PIXELS 100 BY 13 AT Y 109 X 10 WIDGET-ID 190
     "Dir:" VIEW-AS TEXT
          SIZE-PIXELS 23 BY 13 AT Y 28 X 7 WIDGET-ID 168
     "Backup template" VIEW-AS TEXT
          SIZE-PIXELS 111 BY 13 AT Y 2 X 14 WIDGET-ID 172
     "Use these fields for templates :" VIEW-AS TEXT
          SIZE-PIXELS 185 BY 13 AT Y 210 X 10 WIDGET-ID 146
     "File:" VIEW-AS TEXT
          SIZE-PIXELS 23 BY 13 AT Y 56 X 7 WIDGET-ID 174
     RECT-14 AT Y 11 X 0 WIDGET-ID 170
     RECT-15 AT Y 117 X 0 WIDGET-ID 188
     RECT-16 AT Y 218 X 0 WIDGET-ID 192
    WITH 1 DOWN KEEP-TAB-ORDER OVERLAY 
         SIDE-LABELS NO-UNDERLINE THREE-D 
         AT X 5 Y 59
         SIZE-PIXELS 565 BY 368
         TITLE "3" WIDGET-ID 1600.


/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Window
   Allow: Basic,Browse,DB-Fields,Window,Query
   Other Settings: COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
  CREATE WINDOW C-Win ASSIGN
         HIDDEN             = YES
         TITLE              = "<insert window title>"
         HEIGHT-P           = 618
         WIDTH-P            = 699
         MAX-HEIGHT-P       = 696
         MAX-WIDTH-P        = 963
         VIRTUAL-HEIGHT-P   = 696
         VIRTUAL-WIDTH-P    = 963
         RESIZE             = yes
         SCROLL-BARS        = no
         STATUS-AREA        = no
         BGCOLOR            = ?
         FGCOLOR            = ?
         KEEP-FRAME-Z-ORDER = yes
         THREE-D            = yes
         MESSAGE-AREA       = no
         SENSITIVE          = yes.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.
/* END WINDOW DEFINITION                                                */
&ANALYZE-RESUME



/* ***********  Runtime Attributes and AppBuilder Settings  *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW C-Win
  NOT-VISIBLE,,RUN-PERSISTENT                                           */
/* REPARENT FRAME */
ASSIGN FRAME FRAME-K:FRAME = FRAME DEFAULT-FRAME:HANDLE
       FRAME FRAME-O:FRAME = FRAME DEFAULT-FRAME:HANDLE.

/* SETTINGS FOR FRAME DEFAULT-FRAME
   FRAME-NAME                                                           */

DEFINE VARIABLE XXTABVALXX AS LOGICAL NO-UNDO.

ASSIGN XXTABVALXX = FRAME FRAME-K:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-O:HANDLE)
/* END-ASSIGN-TABS */.

ASSIGN 
       FRAME DEFAULT-FRAME:HIDDEN           = TRUE.

/* SETTINGS FOR FRAME FRAME-K
   NOT-VISIBLE                                                          */
ASSIGN 
       FRAME FRAME-K:HIDDEN           = TRUE.

ASSIGN 
       tgBackupOnCreate:PRIVATE-DATA IN FRAME FRAME-K     = 
                "DataDigger:backup,BackupOnCreate".

ASSIGN 
       tgBackupOnDelete:PRIVATE-DATA IN FRAME FRAME-K     = 
                "DataDigger:backup,BackupOnDelete".

ASSIGN 
       tgBackupOnUpdate:PRIVATE-DATA IN FRAME FRAME-K     = 
                "DataDigger:backup,BackupOnUpdate".

/* SETTINGS FOR FRAME FRAME-O
   NOT-VISIBLE                                                          */
ASSIGN 
       FRAME FRAME-O:HIDDEN           = TRUE.

/* SETTINGS FOR BUTTON btnAction IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnDate IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnDay IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnDayName IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnDb IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnDumpName IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnExt IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnHH IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnLastDir IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnMM IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnMonth IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnProgDir IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnSeq IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnSS IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnTable IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnTime IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnTimestamp IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnUserid IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnWeekday IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
/* SETTINGS FOR BUTTON btnYear IN FRAME FRAME-O
   NO-ENABLE 1                                                          */
ASSIGN 
       fiDirTemplate:PRIVATE-DATA IN FRAME FRAME-O     = 
                "DataDigger:Backup,BackupDir".

ASSIGN 
       fiDumpDirTemplate:PRIVATE-DATA IN FRAME FRAME-O     = 
                "DumpAndLoad,DumpDir".

ASSIGN 
       fiDumpFileExample:READ-ONLY IN FRAME FRAME-O        = TRUE.

ASSIGN 
       fiDumpFileTemplate:PRIVATE-DATA IN FRAME FRAME-O     = 
                "DumpAndLoad,DumpFileTemplate".

ASSIGN 
       fiFileExample:READ-ONLY IN FRAME FRAME-O        = TRUE.

ASSIGN 
       fiFileTemplate:PRIVATE-DATA IN FRAME FRAME-O     = 
                "DataDigger:Backup,BackupFileTemplate".

IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win)
THEN C-Win:HIDDEN = yes.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME

 



/* ************************  Control Triggers  ************************ */

&Scoped-define SELF-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win
ON END-ERROR OF C-Win /* <insert window title> */
OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO:
  /* This case occurs when the user presses the "Esc" key.
     In a persistently run window, just ignore this.  If we did not, the
     application would exit. */
  IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win
ON WINDOW-CLOSE OF C-Win /* <insert window title> */
DO:
  /* This event will close the window and terminate the procedure.  */
  APPLY "CLOSE":U TO THIS-PROCEDURE.
  RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define FRAME-NAME FRAME-O
&Scoped-define SELF-NAME btnTimestamp
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnTimestamp C-Win
ON CHOOSE OF btnTimestamp IN FRAME FRAME-O /* <TIMESTAMP> */
, btnAction, btnDb, btnDumpName, btnExt, btnLastDir
, btnProgDir, btnTable, btnWeekday, btnDate, btnUserid
, btnDay, btnDayName, btnHH, btnMM, btnMonth, btnSS
, btnTime, btnTimestamp, btnYear, btnSeq

DO:

  IF   FOCUS:NAME = 'fiDirTemplate'
    OR FOCUS:NAME = 'fiFileTemplate'
    OR FOCUS:NAME = 'fiDumpDirTemplate'
    OR FOCUS:NAME = 'fiDumpFileTemplate' THEN
  DO:

    IF FOCUS:SELECTION-TEXT <> '' THEN
      FOCUS:REPLACE-SELECTION-TEXT( SELF:label ).
    ELSE
      FOCUS:INSERT-STRING(SELF:label).

    APPLY "value-changed" TO FOCUS.
  END.

END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define SELF-NAME fiFileTemplate
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fiFileTemplate C-Win
ON ENTRY OF fiFileTemplate IN FRAME FRAME-O
, fiFileTemplate, fiDirTemplate
, fiDumpFileTemplate, fiDumpDirTemplate
DO:
  ENABLE {&list-1} WITH FRAME frame-o.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fiFileTemplate C-Win
ON LEAVE OF fiFileTemplate IN FRAME FRAME-O
, fiFileTemplate, fiDirTemplate
, fiDumpFileTemplate, fiDumpDirTemplate
DO:
  DISABLE {&list-1} WITH FRAME frame-o.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL fiFileTemplate C-Win
ON VALUE-CHANGED OF fiFileTemplate IN FRAME FRAME-O
, fiFileTemplate, fiDirTemplate
, fiDumpFileTemplate, fiDumpDirTemplate
DO:
  DEFINE VARIABLE cDummyName AS CHARACTER NO-UNDO.
  DEFINE VARIABLE cTemplate   AS CHARACTER NO-UNDO.

  IF   SELF:name = "fiDirTemplate"
    OR SELF:name = "fiFileTemplate" THEN
    cTemplate = fiDirTemplate:screen-value + fiFileTemplate:screen-value.
  ELSE
  IF   SELF:name = "fiDumpDirTemplate"
    OR SELF:name = "fiDumpFileTemplate" THEN
    cTemplate = fiDumpDirTemplate:screen-value + fiDumpFileTemplate:screen-value.

  RUN getDumpFileName
    ( INPUT "Update"
    , INPUT "sports"
    , INPUT "customer"
    , INPUT "d"
    , INPUT cTemplate
    , OUTPUT cDummyName
    ).

  IF   SELF:name = "fiDirTemplate"
    OR SELF:name = "fiFileTemplate" THEN fiFileExample:screen-value = cDummyName.

  ELSE
  IF   SELF:name = "fiDumpDirTemplate"
    OR SELF:name = "fiDumpFileTemplate" THEN fiDumpFileExample:screen-value = cDummyName.

END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define FRAME-NAME FRAME-K
&Scoped-define SELF-NAME tgBackupOnCreate
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tgBackupOnCreate C-Win
ON VALUE-CHANGED OF tgBackupOnCreate IN FRAME FRAME-K /* Backup on Create */
OR 'value-changed' OF tgBackupOnUpdate
OR 'value-changed' OF tgBackupOnDelete
DO:

  IF    NOT tgBackupOnCreate:checked
    AND NOT tgBackupOnUpdate:checked
    AND NOT tgBackupOnDelete:checked THEN
  DO WITH FRAME frame-q:
    fiDirTemplate:sensitive       IN FRAME FRAME-O = NO.
    fiFileTemplate:sensitive      IN FRAME FRAME-O = NO.
  END.
  ELSE
  DO:
    fiDirTemplate:sensitive   = YES.
    fiFileTemplate:sensitive  = YES.
  END.

END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&Scoped-define FRAME-NAME DEFAULT-FRAME
&UNDEFINE SELF-NAME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK C-Win 


/* ***************************  Main Block  *************************** */

/* The CLOSE event can be used from inside or outside the procedure to  */
/* terminate it.                                                        */
ON CLOSE OF THIS-PROCEDURE
   RUN disable_UI.

/* Best default for GUI applications is...                              */
PAUSE 0 BEFORE-HIDE.


/* Handle reparenting, startup etc */
{frameLib.i}


/* Now enable the interface and wait for the exit condition.            */
/* (NOTE: handle ERROR and END-KEY so cleanup code will always fire.    */
MAIN-BLOCK:
DO ON ERROR   UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK
   ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK:

  RUN initializeObject.

  IF NOT THIS-PROCEDURE:PERSISTENT THEN
    WAIT-FOR CLOSE OF THIS-PROCEDURE.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* **********************  Internal Procedures  *********************** */

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI C-Win  _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
  Purpose:     DISABLE the User Interface
  Parameters:  <none>
  Notes:       Here we clean-up the user-interface by deleting
               dynamic widgets we have created and/or hide 
               frames.  This procedure is usually called when
               we are ready to "clean-up" after running.
------------------------------------------------------------------------------*/
  /* Delete the WINDOW we created */
  IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win)
  THEN DELETE WIDGET C-Win.
  IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI C-Win  _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
  Purpose:     ENABLE the User Interface
  Parameters:  <none>
  Notes:       Here we display/view/enable the widgets in the
               user-interface.  In addition, OPEN all queries
               associated with each FRAME and BROWSE.
               These statements here are based on the "Other 
               Settings" section of the widget Property Sheets.
------------------------------------------------------------------------------*/
  VIEW FRAME DEFAULT-FRAME IN WINDOW C-Win.
  {&OPEN-BROWSERS-IN-QUERY-DEFAULT-FRAME}
  DISPLAY tgBackupOnCreate tgBackupOnUpdate tgBackupOnDelete 
      WITH FRAME FRAME-K IN WINDOW C-Win.
  ENABLE RECT-17 tgBackupOnCreate tgBackupOnUpdate tgBackupOnDelete 
      WITH FRAME FRAME-K IN WINDOW C-Win.
  {&OPEN-BROWSERS-IN-QUERY-FRAME-K}
  DISPLAY fiDirTemplate fiFileTemplate fiFileExample fiDumpDirTemplate 
          fiDumpFileTemplate fiDumpFileExample 
      WITH FRAME FRAME-O IN WINDOW C-Win.
  ENABLE RECT-14 RECT-15 RECT-16 fiDirTemplate fiFileTemplate fiFileExample 
         fiDumpDirTemplate fiDumpFileTemplate fiDumpFileExample 
      WITH FRAME FRAME-O IN WINDOW C-Win.
  {&OPEN-BROWSERS-IN-QUERY-FRAME-O}
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE initializeObject C-Win 
PROCEDURE initializeObject :
/*------------------------------------------------------------------------------
  Purpose:
  Parameters:  <none>
  Notes:
------------------------------------------------------------------------------*/

  DEFINE VARIABLE hWidget AS HANDLE NO-UNDO.
  DEFINE VARIABLE cTooltip AS CHARACTER NO-UNDO.

  /* Attach tooltips to the template buttons */
  hWidget = FRAME frame-o:handle:first-child:first-child.

  DO WHILE VALID-HANDLE(hWidget):
    IF hWidget:type = "BUTTON" THEN
    DO:
      RUN getDumpFileName
        ( INPUT "Update"
        , INPUT "sports"
        , INPUT "customer"
        , INPUT "d"
        , INPUT hWidget:label
        , OUTPUT cTooltip
        ).
      hWidget:tooltip = cTooltip.
    END.

    hWidget = hWidget:next-sibling.
  END.

  APPLY "VALUE-CHANGED" TO fiFileTemplate IN FRAME frame-o.
  APPLY "VALUE-CHANGED" TO fiDumpFileTemplate IN FRAME frame-o.
  APPLY "VALUE-CHANGED" TO tgBackupOnCreate IN FRAME frame-k.

END PROCEDURE. /* initializeObject */

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME