#REM VISUAL DATAFLEX UTILITIES
// Use VdfApp //

use DfAllent // Standard VDF all entry package

#REPLACE VDFAPP$AUTOPROMPT     1
#REPLACE VDFAPP$CALENDAR       1
#REPLACE VDFAPP$VDFQUERY       1
#REPLACE VDFAPP$VDFSORT        1
#REPLACE VDFAPP$VDFBROWSE      0
#REPLACE VDFAPP$ERROR_REPORTS  0
#REPLACE VDFAPP$MDI_EXTENSIONS 1
#REPLACE VDFAPP$DD_EXTENSIONS  1

Use objtree.pkg // popup_objecttree procedure
procedure CreateObjectTree
  send popup_objecttree
end_procedure
on_key key_ctrl+key_F2 send CreateObjectTree



#IF VDFAPP$AUTOPROMPT
 Use AutoPrmt.utl // Dynamic prompt lists for VDF
 on_key key_ctrl+key_f send Request_Popup_DefaultPromptList
#ENDIF

#IF VDFAPP$CALENDAR
 Use Dates.utl
 on_key key_ctrl+key_d send Request_Popup_Calendar
#ENDIF

#IF VDFAPP$VDFQUERY
 Use VpeQuery.utl // DFQUERY for Visual DataFlex
 on_key key_ctrl+key_p send Request_CreateNewQuery
#ENDIF

#IF VDFAPP$VDFSORT
  Use VdfSort.utl
#ENDIF

#IF VDFAPP$VDFBROWSE
 Use VdfBrowse  // BROWSE for Visual DataFlex
 on_key key_ctrl+key_e send Request_CreateNewBrowser
#ENDIF

#IF VDFAPP$ERROR_REPORTS
 Use ErrorRep.utl
 on_key key_alt+key_F8 send Activate_Analyze_ErrorRep_Vw
#ENDIF

#IF VDFAPP$MDI_EXTENSIONS
 Use MdiExt.utl // MDI Extensions
 on_key key_ctrl+key_o send Activate_LinkView
#ENDIF

Set_Date_Attribute sysdate4_State to (TRUE)
Set_Date_Attribute Date4_State    to (TRUE)
Set_Date_Attribute epoch_value    to 30

procedure DfApp.SysInfo
  string regname# serial# dir# path# filelist#
  send Confirm_List_Reset
  registration regname# serial#
  get_current_directory to dir#
  get_filelist filelist#
  send Confirm_List_Add ("Serial number.......: "+serial#)
  send Confirm_List_Add ("Registration name...: "+regname#)
  send Confirm_List_Add ("Current directory...: "+dir#)
  send Confirm_List_Add ("Filelist name.......: "+filelist#)
  send Confirm_List_Add ("Directory separator.: "+sysconf(SYSCONF_DIR_SEPARATOR))
  send Confirm_List_Add ("Path separator......: "+sysconf(SYSCONF_PATH_SEPARATOR))

  send Confirm_List_Go "System information" ""
end_procedure

procedure Chain_DbExplor
  chain wait "DbExplor noworkspace"
end_procedure


#IF VDFAPP$DD_EXTENSIONS

#ENDIF