Mini Kabibi Habibi
H� VERSION = 3.00
_framewk.h�m0��, !Arial, 0, 9, 5, 15, 12, 13, 3, 0
_topform
_framewk.h Pixels Class 1 _form _topform
_userlogin �Height = 454
Width = 631
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Top Form Frame window"
cmenuname = ("")
oapp = .NULL.
Name = "_topform"
form ..\ffc\_base.vcx
_framewk.h�m0��, Pixels Pixels _application
_framewk.h application object superclass Class 8
_framewk.h�m0��,
_framewk.h itriesallowed
7
_container timer GArial, 0, 9, 5, 15, 12, 13, 3, 0
Courier New, 1, 9, 7, 16, 12, 8, 4, 0
_application _application Pixels Class 5 _dialog
_userlogin _label2
tmrRefresh custom
_userlogin 1 4 label ..\ffc\_base.vcx :Top = 0
Left = 120
Interval = 500
Name = "tmrRefresh"
_label !Arial, 0, 9, 5, 15, 12, 32, 3, 0
_navtoolbar 1 _label1 Class 11 _modalawaretoolbar _navtoolbar _navtoolbar 3 cmdFilter �lrestoredenvironment
lsavedenvironment
saveenvironment
restoreenvironment
beforereadevents
resetformscollection
lgomenu_assign
Init
Destroy
4 5
_userlogin ..\ffc\_app.vcx 7 1
commandbutton _commandbutton label form Class ..\ffc\_base.vcx custom 14 _navtoolbar ?superclass for framework-supplied default dialog for user login ..\ffc\_base.vcx _label
_userlogin 18 form _traceawaretimer _application cusTableNav _separator2 separator _tablenav DTop = 3
Left = 205
Height = 29
Width = 58
Name = "_separator2"
..\ffc\_base.vcx ..\ffc\_table.vcx form txtPassword Pixels uPROCEDURE Click
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.ShowTableSetFilterDialog()
ENDIF
ENDPROC
_separator spnGo _application _navtoolbar cmdSortDown
_tablesort
commandbutton Class textbox ..\ffc\_base.vcx _textbox _newopen
_userlogin txtName textbox custom �Top = 3
Left = 205
Height = 24
Width = 24
Picture = graphics\filter.bmp
Caption = ""
SpecialEffect = 2
ZOrderSet = 8
Name = "cmdFilter"
_splash ..\ffc\_base.vcx _navtoolbar Class cusTableSort 1 _textbox Pixels _framewk.vcx !Arial, 0, 9, 5, 15, 12, 32, 3, 0
_standardtoolbar Class ..\ffc\_table.vcx ..\ffc\_base.vcx CTop = 0
Left = 96
Height = 19
Width = 23
Name = "cusTableNav"
_commandbutton shape �cmenuname Holds a unique menu name for association with this form so that it can be RELEASEd EXTENDED when the form is destroyed.
oapp
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Password:"
Height = 15
Left = 8
Top = 60
Width = 51
Name = "_label2"
commandbutton
_framewk.h _application cusWindowHandler Class cmdSortUp
commandbutton _newopen ..\ffc\_ui.vcx iPROCEDURE Click
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.DoSort(,,,.T.)
ENDIF
ENDPROC
..\ffc\_base.vcx DTop = 0
Left = 72
Height = 19
Width = 23
Name = "cusTableSort"
_framewk.h�m0��, _commandbutton _navtoolbar _windowhandler custom JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_documentpicker _framewk.vcx HTop = 0
Left = 48
Height = 19
Width = 23
Name = "cusWindowHandler"
FTop = 0
Left = 25
Height = 19
Width = 23
Name = "cusDataSession"
_application �Top = 3
Left = 174
Height = 24
Width = 24
Picture = graphics\sortdes.bmp
Caption = ""
SpecialEffect = 2
ZOrderSet = 7
Name = "cmdSortDown"
cusDataSession _datasession iPROCEDURE Click
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.DoSort(,,,.F.)
ENDIF
ENDPROC
spinner ..\ffc\_base.vcx custom �FontBold = .T.
FontName = "Courier New"
Height = 24
Left = 68
SelectOnEntry = .T.
Top = 19
Width = 294
Name = "txtName"
..\ffc\_app.vcx ?Top = 0
Left = 0
Height = 19
Width = 23
Name = "cusError"
_application cusError ..\ffc\_app.vcx form zPROCEDURE InteractiveChange
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.GoToRecord(THIS.Value)
ENDIF
ENDPROC
_error Pixels 1
_framewk.h�m0��, _Height = 24
Left = 97
SpecialEffect = 2
Top = 3
Width = 55
ZOrderSet = 5
Name = "spnGo"
_spinner _navtoolbar _form container shape
_framewk.h�m0��, form Pixels Pixels cmdBottom _navtoolbar
_framewk.h
commandbutton ..\ffc\_base.vcx _commandbutton cmdNext
commandbutton Pixels ..\ffc\_base.vcx _favoritepicker _documentpicker cmdRemove form Jsuperclass for framework-supplied default dialog to add or edit a document _favoritepicker _favoritepicker Pixels
commandbutton _commandbutton _navtoolbar cmdPrev ..\ffc\_base.vcx _commandbutton ePROCEDURE Click
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.GoBottom()
ENDIF
ENDPROC
5PROCEDURE Click
THISFORM.RemoveDocument()
ENDPROC
Class Class _errorlogviewer
_framewk.h cmdBrowse
commandbutton form Class _navtoolbar _dialog cmdTop �FontBold = .T.
FontName = "Courier New"
Height = 24
Left = 68
SelectOnEntry = .T.
Top = 55
Width = 294
PasswordChar = "*"
Name = "txtPassword"
commandbutton _errorlogviewer _errorlogviewer app_mediator JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 7, 16, 13, 14, 3, 0
custom spnNav _dialog _options ,Top = 36
Left = 48
Name = "app_mediator"
_framewk.vcx
_formmediator ..\ffc\_base.vcx {DoCreate = .T.
Name = "_newopen"
lstDocuments.Name = "lstDocuments"
cmdOK.Name = "cmdOK"
cmdCancel.Name = "cmdCancel"
form _errorlogviewer cmdBrowseErrorLog
commandbutton spinner _commandbutton ..\ffc\_base.vcx _favoritepicker ..\ffc\_base.vcx _commandbutton
_framewk.h�m0��, _commandbutton _errorlogviewer Class _documentpicker _spinner JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_framewk.h _documentpicker qArial, 0, 9, 5, 15, 12, 13, 3, 0
Courier New, 32, 9, 7, 15, 12, 8, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
..\ffc\_base.vcx _errorlogviewer _documentpicker txtErrStamp textbox ..\ffc\_base.vcx _textbox edtUserNotes cmdHelp
commandbutton _navtoolbar Qsuperclass for framework-supplied dialogs manipulating the metatable of documents cmdCancel
commandbutton cmdOK !_errorlogviewer.pgfErrorLog.Page2 �Top = 3
Left = 151
Height = 24
Width = 24
Picture = graphics\sortasc.bmp
Caption = ""
SpecialEffect = 2
ZOrderSet = 6
Name = "cmdSortUp"
_commandbutton !Arial, 0, 9, 5, 15, 12, 13, 3, 0
_form editbox ..\ffc\_base.vcx ..\ffc\_base.vcx _separator1 separator Class ..\ffc\_base.vcx _editbox !_errorlogviewer.pgfErrorLog.Page1 Pixels separator �Top = 3
Left = 74
Height = 24
Width = 24
Picture = graphics\bottom.bmp
Caption = ""
SpecialEffect = 2
ZOrderSet = 4
Name = "cmdBottom"
..\ffc\_base.vcx Pixels
edtListing editbox cmdOK _aboutbox ..\ffc\_base.vcx
_separator oapp
_editbox _errorlogviewer pgfErrorLog pageframe ..\ffc\_base.vcx _splash _splash
_pageframe
lblCredits �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Name:"
Height = 15
Left = 8
Top = 24
Width = 33
Name = "_label1"
�Height = 100
Width = 375
DoCreate = .T.
BufferMode = 1
Caption = "User Login"
KeyPreview = .T.
AlwaysOnTop = .T.
itries = 0
itriesallowed = 3
Name = "_userlogin"
�superclass for framework-supplied default dialog to add items to the Favorites menu (in New mode) or execute a document at startup ("quick start") _commandbutton _documentpicker custom
commandbutton _framewk.vcx cPROCEDURE Click
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.GoNext()
ENDIF
ENDPROC
toolbar _shape
_framewk.h�m0��, _changepassword
_framewk.h label _modalawaretoolbar _standardtoolbar cmdCopy _label _standardtoolbar
commandbutton �superclass for framework-supplied default navigation toolbar (application object makes a nav toolbar class available to any form designated as using a nav toolbar in the metatable) ..\ffc\_ui.vcx ..\ffc\_base.vcx _commandbutton image _dialog cmdCancel .PROCEDURE Click
THISFORM.Release()
ENDPROC
..\ffc\_base.vcx _commandbutton lstDocuments Xsuperclass for "frame" or "parent window", for MDI applications existing outside _screen ..\ffc\_base.vcx
_formmediator _label _documentpicker
_framewk.h ..\ffc\_base.vcx _shape _changepassword _changepassword label cmdCut _framewk.vcx tsuperclass for framework-supplied dialog to execute or modify (in New mode -- not yet implemented) a report document
_framewk.h
commandbutton _commandbutton rsuperclass for framework-supplied default startup toolbar (exists throughout the life of the application, if used) _standardtoolbar bsuperclass for framework-supplied default dialog to browse error log and add user notes to the log 0PROCEDURE Click
THISFORM.Release()
ENDPROC
7superclass for framework-supplied default splash screen ..\ffc\_base.vcx _splash lblApplicationName label _label NTop = 3
Left = 213
Height = 31
Width = 3
Style = 1
Name = "_separator4"
cmdPaste ..\ffc\_base.vcx _label _separator4 gPROCEDURE Click
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.GoPrevious()
ENDIF
ENDPROC
_reportpicker hPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DoHelp()
ENDIF
ENDPROC
_separator Pcalias
imargin
ctextdisplayfont
*donologmessage
*ctextdisplayfont_assign
textbox listbox form Pixels _changepassword
commandbutton ..\ffc\_base.vcx _splash imgApplication image ..\ffc\_base.vcx _standardtoolbar _separator1 ..\ffc\_base.vcx _textbox
commandbutton Bsuperclass for framework-supplied default password-changing dialog label ..\ffc\_base.vcx _commandbutton _commandbutton _standardtoolbar cmdPrint pArial, 0, 9, 5, 15, 12, 13, 3, 0
Courier New, 1, 9, 7, 16, 12, 8, 4, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
_changepassword lblConfirmPassword
commandbutton
_framewk.h�m0��, _custom ..\ffc\_base.vcx _changepassword label _dialog _options ..\ffc\_base.vcx shpGlobalItems _framewk.vcx custom zPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DoMenuItemInFrame("PASTE")
ENDIF
ENDPROC
_commandbutton
_framewk.h�m0��, JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Usuperclass for framework-supplied default dialog to edit, apply, or save user options _dialog
_framewk.h�m0��, imgApplication _options GPROCEDURE Click
THISFORM.SavePassword()
THISFORM.Release()
ENDPROC
txtConfirmPassword ..\ffc\_base.vcx _label ..\ffc\_base.vcx
lblCredits _aboutbox _aboutbox _changepassword lblPassword txtPassword form _standardtoolbar ..\ffc\_base.vcx _changepassword textbox ..\ffc\_base.vcx ..\ffc\_base.vcx _listbox _textbox form _framewk.vcx _framewk.vcx _options Pixels
commandbutton ..\ffc\_base.vcx _commandbutton _standardtoolbar _framewk.vcx separator Class ..\ffc\_base.vcx _image ..\ffc\_base.vcx Doapp
*savepassword Confirms and stores new password for the user.
cmdPickWav cmdSave
commandbutton
_separator ..\ffc\_base.vcx _commandbutton Class �FontBold = .T.
FontName = "Courier New"
FontSize = 9
Value = ("")
Height = 24
Left = 118
SelectOnEntry = .T.
TabIndex = 5
Top = 11
Width = 174
PasswordChar = "*"
Name = "txtPassword"
NTop = 3
Left = 136
Height = 24
Width = 3
Style = 1
Name = "_separator1"
_options txtBell textbox ..\ffc\_base.vcx label Class ..\ffc\_base.vcx _textbox
commandbutton }PROCEDURE InteractiveChange
THISFORM.cmdOK.Enabled = (ALLTRIM(THISFORM.txtPassword.Value) == ALLTRIM(THIS.Value))
ENDPROC
_dialog _options opgHours _options _dialog _standardtoolbar ..\ffc\_base.vcx _commandbutton _separator2 optiongroup _optiongroup Pixels ..\ffc\_base.vcx separator bPROCEDURE Click
IF NOT ISNULL(THIS.Parent.oApp)
THIS.Parent.oApp.GoTop()
ENDIF
ENDPROC
_framewk.vcx yPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DoMenuItemInFrame("COPY")
ENDIF
ENDPROC
_standardtoolbar JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0
_aboutbox �Top = 3
Left = 213
Height = 24
Width = 24
Picture = graphics\help.bmp
Caption = ""
ToolTipText = "Help"
SpecialEffect = 2
ZOrderSet = 12
Name = "cmdHelp"
..\ffc\_base.vcx
_separator _standardtoolbar SHeight = 80
Width = 390
DoCreate = .T.
oapp = .NULL.
Name = "_changepassword"
opgBell _label
_framewk.h�m0��, !Arial, 0, 9, 5, 15, 12, 13, 3, 0
_framewk.h optiongroup label _label ..\ffc\_base.vcx _options label
_framewk.h
_framewk.h�m0��,
_reportpicker cmdRevert
commandbutton ..\ffc\_base.vcx cmdOpen
_framewk.h _image _optiongroup lblHours cmdOK ..\ffc\_base.vcx _commandbutton _options NTop = 3
Left = 105
Height = 35
Width = 5
Style = 1
Name = "_separator2"
lblGlobalOptions �AutoSize = .F.
FontName = "MS Sans Serif"
Alignment = 2
Caption = "Credits"
Height = 84
Left = 14
Top = 180
Width = 274
Name = "lblCredits"
_standardtoolbar _label xPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DoMenuItemInFrame("CUT")
ENDIF
ENDPROC
commandbutton �PROCEDURE InteractiveChange
THISFORM.cmdOK.Enabled = (ALLTRIM(THISFORM.txtConfirmPassword.Value) == ALLTRIM(THIS.Value))
ENDPROC
..\ffc\_base.vcx _options lblDocumentOptions
commandbutton �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "New Password:"
Height = 15
Left = 12
Top = 15
Width = 76
TabIndex = 15
Name = "lblPassword"
label _label ..\ffc\_base.vcx ..\ffc\_base.vcx _commandbutton _standardtoolbar _options label Pixels _documentpicker lblBell ..\ffc\_base.vcx lPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DataRevert()
ENDIF
ENDPROC
3superclass for framework-supplied default about box _framewk.vcx _label label ..\ffc\_base.vcx �Top = 42
Left = 307
Height = 27
Width = 69
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "\<Cancel"
Name = "cmdCancel"
_options cboTextDisplayFont combobox ..\ffc\_base.vcx _commandbutton _standardtoolbar �FontBold = .T.
FontName = "Courier New"
FontSize = 9
Value = ("")
Height = 24
Left = 118
SelectOnEntry = .T.
TabIndex = 6
Top = 43
Width = 174
PasswordChar = "*"
Name = "txtConfirmPassword"
cmdNew _combobox _options _aboutbox lblApplicationName lblTextDisplay _label lPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DataUpdate()
ENDIF
ENDPROC
eStretch = 1
BackStyle = 0
Height = 120
Left = 80
Top = 12
Width = 144
Name = "imgApplication"
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Confirm Password:"
Height = 15
Left = 12
Top = 47
Width = 89
TabIndex = 16
Name = "lblConfirmPassword"
cStretch = 1
BackStyle = 0
Height = 72
Left = 14
Top = 12
Width = 90
Name = "imgApplication"
..\ffc\_base.vcx 1superclass for framework-supplied default dialogs ..\ffc\_base.vcx _mediatedsession ..\ffc\_base.vcx �AutoSize = .T.
Top = 147
Left = 303
FontName = "MS Sans Serif"
FontSize = 8
Caption = "..."
TabIndex = 12
Name = "cmdPickWav"
_options checkbox kPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DoNewOpen()
ENDIF
ENDPROC
�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 352
TabIndex = 3
TabStop = .F.
ToolTipText = ("Move to a different Error Log record")
Top = 36
Width = 16
Name = "spnNav"
_checkbox �Top = 3
Left = 182
Height = 24
Width = 24
Picture = graphics\paste.bmp
Caption = ""
ToolTipText = "Paste"
SpecialEffect = 2
ZOrderSet = 10
Name = "cmdPaste"
commandbutton ..\ffc\_base.vcx _commandbutton CTop = 3
Left = 5
Height = 30
Width = 103
Name = "_separator1"
_standardtoolbar
_formmediator *member object to framework-enable any form shpDocumentItems ..\ffc\_base.vcx chkShowTips ..\ffc\_base.vcx _options
chkConfirm checkbox nPROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DoNewOpen(.T.)
ENDIF
ENDPROC
separator �FontName = "MS Sans Serif"
FontSize = 8
Alignment = 1
Height = 22
Left = 154
ReadOnly = .T.
TabIndex = 11
Top = 148
Width = 144
Name = "txtBell"
_separator3 _checkbox _commandbutton .PROCEDURE Click
THISFORM.Release()
ENDPROC
..\ffc\_base.vcx _options cmdResetToDefault
commandbutton ..\ffc\_base.vcx _options _aboutbox _commandbutton
cmdSetDefault _options @Top = 3
Left = 5
Height = 0
Width = 0
Name = "_separator3"
..\ffc\_base.vcx
_separator �Top = 48
Left = 254
Height = 27
Width = 63
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Remove"
TabIndex = 3
Name = "cmdRemove"
commandbutton ..\ffc\_base.vcx ..\ffc\_base.vcx yTop = 106
Left = 6
Height = 74
Width = 332
BackStyle = 0
SpecialEffect = 0
ZOrderSet = 0
Name = "shpGlobalItems"
_mediatedsession _mediatedsession cmdApply ..\ffc\_base.vcx oapp
lprintonerecord
..\ffc\_base.vcx _commandbutton
commandbutton ..\ffc\_base.vcx _options �AutoSize = .F.
FontName = "MS Sans Serif"
Alignment = 2
Caption = "Application Name"
Height = 17
Left = 14
Top = 156
Width = 276
Name = "lblApplicationName"
�PROCEDURE InteractiveChange
IF THIS.Value = 3 AND EMPTY(THISFORM.txtBell.Value)
THISFORM.cmdPickWav.Click()
ENDIF
ENDPROC
toolbar ..\ffc\_ui.vcx JArial, 0, 9, 5, 15, 12, 13, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
�DataSession = 2
Height = 250
Width = 375
DoCreate = .T.
ShowTips = .T.
BorderStyle = 3
TabIndex = 1
WindowState = 0
calias = ("ErrorLog")
imargin = 0
lsingleton = .T.
Name = "_errorlogviewer"
=cauthor
cimage
ctrademark
ccopyright
ccompany
ccaption
�Height = 218
Width = 367
DoCreate = .T.
Caption = "About Application"
cauthor =
cimage =
ccopyright =
ctrademark =
ccompany =
ccaption =
cversion =
Name = "_aboutbox"
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Hours display:"
Left = 15
Top = 62
TabIndex = 4
ZOrderSet = 7
Name = "lblHours"
_commandbutton �AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Global options"
Left = 13
Top = 100
TabIndex = 6
ZOrderSet = 7
Name = "lblGlobalOptions"
�DataSession = 2
Height = 229
Width = 328
DoCreate = .T.
BorderStyle = 3
Caption = "Choose a document"
KeyPreview = .T.
oapp = .NULL.
lsorted = .T.
Name = "_documentpicker"
�FontName = "MS Sans Serif"
FontSize = 8
RowSourceType = 5
Value = 1
Height = 204
Left = 12
Top = 12
Width = 230
IntegralHeight = .T.
ItemTips = .T.
Name = "lstDocuments"
�DoCreate = .T.
Caption = "Choose a report to run"
Name = "_reportpicker"
lstDocuments.Name = "lstDocuments"
cmdOK.Name = "cmdOK"
cmdCancel.Name = "cmdCancel"
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
Caption = "Document options"
Left = 13
Top = 8
TabIndex = 1
ZOrderSet = 7
Name = "lblDocumentOptions"
�Top = 3
Left = 159
Height = 24
Width = 24
Picture = graphics\copy.bmp
Caption = ""
ToolTipText = "Copy"
SpecialEffect = 2
ZOrderSet = 9
Name = "cmdCopy"
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Warning sound:"
Left = 15
Top = 137
TabIndex = 9
ZOrderSet = 7
Name = "lblBell"
�Top = 3
Left = 51
Height = 24
Width = 24
Picture = graphics\next.bmp
Caption = ""
SpecialEffect = 2
ZOrderSet = 3
Name = "cmdNext"
=PROCEDURE Click
LOCAL lcFile
lcFile = UPPER(ALLTRIM(GETFILE("wav")))
IF EMPTY(lcFile) OR (NOT FILE(lcFile))
THISFORM.txtBell.Value = ""
IF THISFORM.opgBell.Value = 3
THISFORM.opgBell.Value = 2
ENDIF
ELSE
THISFORM.txtBell.Value = lcFile
THISFORM.opgBell.Value = 3
ENDIF
ENDPROC
�Top = 3
Left = 136
Height = 24
Width = 24
Picture = graphics\cut.bmp
Caption = ""
ToolTipText = "Cut"
SpecialEffect = 2
ZOrderSet = 8
Name = "cmdCut"
�AutoSize = .F.
FontName = "MS Sans Serif"
Alignment = 2
Caption = "Credits"
Height = 127
Left = 116
Top = 48
Width = 237
Name = "lblCredits"
�AutoSize = .F.
FontName = "MS Sans Serif"
FontSize = 8
Alignment = 2
Caption = "Application Name"
Height = 31
Left = 116
Top = 12
Width = 237
Name = "lblApplicationName"
�Top = 3
Left = 5
Height = 24
Width = 24
Picture = graphics\top.bmp
Caption = ""
SpecialEffect = 2
ZOrderSet = 1
Name = "cmdTop"
�PROCEDURE Click
IF VARTYPE(THIS.Parent.oApp) = "O"
THIS.Parent.oApp.DoTableOutPut(THIS.Parent.lPrintOneRecord)
ENDIF
ENDPROC
�Top = 10
Left = 307
Height = 27
Width = 69
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<OK"
Default = .T.
Name = "cmdOK"
�PROCEDURE Init
LOCAL ARRAY laFonts[1]
LOCAL lcFont
IF NOT EMPTY(AFONT(laFonts))
FOR EACH lcFont IN laFonts
THIS.AddItem(lcFont)
ENDFOR
ENDIF
ENDPROC
�ichangemode = 0
cappref = ("")
lusersessionsettings = .T.
coutputalias =
coutputcaption =
osession = .NULL.
datasession = 1
csessionclass =
csessionclasslib =
datasessionname =
Name = "_mediatedsession"
�FontName = "MS Sans Serif"
FontSize = 8
Value = ("")
Height = 21
Left = 101
Style = 2
TabIndex = 8
Top = 114
Width = 229
ZOrderSet = 8
Name = "cboTextDisplayFont"
|PROCEDURE Click
THISFORM.SetUserOptionsFromDisplay()
WAIT WINDOW NOWAIT LEFT(OPTIONS_APPLIED_LOC,254)
ENDPROC
�PROCEDURE Destroy
DODEFAULT()
THIS.oApp = .NULL.
IF NOT EMPTY(THIS.cMenuName)
RELEASE MENU (THIS.cMenuName) EXTENDED
ENDIF
ENDPROC
PROCEDURE QueryUnload
LOCAL loTemp, llReturn
IF VARTYPE(THIS.oApp) = "O"
llReturn = THIS.oApp.OnShutDown(.T.)
IF llReturn
loTemp = THIS.oApp
THIS.oApp = .NULL.
loTemp.oFrame = .NULL.
loTemp.Release()
ENDIF
ELSE
llReturn = .T.
ENDIF
IF NOT llReturn
NODEFAULT
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE Load
IF DODEFAULT()
THIS.cMenuName = "M"+SYS(2015)
ELSE
RETURN .F.
ENDIF
ENDPROC
ulnew Toggles the dialog between two states.
oapp
lsorted Determines whether items in list will be sorted by visible field when descendent classes' FillDocumentsArray method prepares contents
*filldocumentsarray Abstract, called on startup to dimension and fill the array that supplies the listbox with values and provides potential action parameters when the user chooses from the listbox.
*execdocument Abstract, called when the user presses OK or makes a selection from the document list.
^adocuments[1,7]
*setdialogsizeparameters Sets initial, minimum, and maximum dialog size based on number of items in the listbox.
�PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF INLIST(nKeyCode,13,32)
THIS.DblClick()
NODEFAULT
ENDIF
ENDPROC
PROCEDURE DblClick
THISFORM.cmdOK.Click()
ENDPROC
�AutoSize = .T.
FontName = "MS Sans Serif"
FontSize = 8
BackStyle = 0
Caption = "Text display font:"
Left = 15
Top = 117
TabIndex = 7
ZOrderSet = 7
Name = "lblTextDisplay"
�Top = 3
Left = 105
Height = 24
Width = 24
Picture = graphics\print.bmp
Caption = ""
ToolTipText = "Print"
SpecialEffect = 2
ZOrderSet = 6
Name = "cmdPrint"
�Top = 14
Left = 252
Height = 27
Width = 63
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<OK"
Default = .T.
Name = "cmdOK"
�PROCEDURE Click
* get values from current record
THISFORM.DisplayUserDefaultOptions()
WAIT WINDOW NOWAIT LEFT(OPTIONS_DEFAULTS_SHOWN_LOC,254)
ENDPROC
�PROCEDURE Click
IF NOT EMPTY(THISFORM.lstDocuments.Value)
THISFORM.ExecDocument()
ENDIF
THISFORM.Release()
ENDPROC
�Top = 47
Left = 252
Height = 27
Width = 63
FontName = "MS Sans Serif"
FontSize = 8
Cancel = .T.
Caption = "\<Cancel"
Name = "cmdCancel"
�PROCEDURE Click
LOCAL lcFile
lcFile = GETFILE()
IF EMPTY(lcFile)
RETURN
ENDIF
IF FILE(lcFile)
THISFORM.ExecDocument(lcFile)
ENDIF
IF NOT THISFORM.lNew
THISFORM.Release()
ENDIF
ENDPROC
�Top = 189
Left = 254
Height = 27
Width = 63
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Browse..."
TabIndex = 5
Name = "cmdBrowse"
zTop = 14
Left = 6
Height = 74
Width = 220
BackStyle = 0
SpecialEffect = 0
ZOrderSet = 1
Name = "shpDocumentItems"
cauthor
cimage
ccopyright
ctrademark
ccompany
ccaption
*applyattributestodialogelements Called in ApplyAppAttributes(), after this method has transferred app "credits" information to dialog property values, so you can apply these attributes to the visual elements of the dialog.
�itoolbarindex = 0
icontextmenuindex = 0
ctoolbarclass = ("")
ctoolbarclasslib = ("")
ccontextmenufile = ("")
ccontextmenupopup = ("")
ccontextmenupad = ("")
laddappicon = .T.
lsetdocumenttonewonappload = .T.
Name = "_formmediator"
�Top = 3
Left = 28
Height = 24
Width = 24
Picture = graphics\previous.bmp
Caption = ""
SpecialEffect = 2
ZOrderSet = 2
Name = "cmdPrev"
�FontName = "Courier New"
FontSize = 9
FontCondense = .T.
DefLeft =
Height = 180
Left = (THISFORM.iMargin)
ToolTipText = ("Technical details of the error for you to tell the programmer")
Top = 39
Width = 367
Name = "edtListing"
�Top = 41
Left = 16
Height = 15
Width = 123
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Show tool tips in forms"
TabIndex = 3
ZOrderSet = 6
Name = "chkShowTips"
�Top = 3
Left = 74
Height = 24
Width = 24
Picture = graphics\revert.bmp
Caption = ""
ToolTipText = "Revert"
SpecialEffect = 2
ZOrderSet = 4
Name = "cmdRevert"
�Height = 250
Width = 375
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 0
Caption = ("")
MaxButton = .F.
MinButton = .F.
Icon = ..\model\
Name = "_dialog"
%AutoSize = .T.
BackStyle = 0
BorderStyle = 0
Height = 25
Left = 96
Top = 57
Width = 74
TabIndex = 5
Name = "opgHours"
OPTION1.FontName = "MS Sans Serif"
OPTION1.FontSize = 8
OPTION1.BackStyle = 0
OPTION1.Caption = "12"
OPTION1.Left = 5
OPTION1.Top = 5
OPTION1.AutoSize = .T.
OPTION1.Name = "OPTION1"
OPTION2.FontName = "MS Sans Serif"
OPTION2.FontSize = 8
OPTION2.BackStyle = 0
OPTION2.Caption = "24"
OPTION2.Height = 15
OPTION2.Left = 39
OPTION2.Top = 5
OPTION2.Width = 30
OPTION2.AutoSize = .T.
OPTION2.Name = "OPTION2"
�Top = 24
Left = 16
FontName = "MS Sans Serif"
FontSize = 8
AutoSize = .T.
BackStyle = 0
Caption = "Confirm entry when leaving text fields"
TabIndex = 2
ZOrderSet = 5
Name = "chkConfirm"
�Top = 3
Left = 51
Height = 24
Width = 24
Picture = graphics\save.bmp
Caption = ""
ToolTipText = "Save"
SpecialEffect = 2
ZOrderSet = 3
Name = "cmdSave"
zCaption = "Navigate"
Height = 30
Left = 0
Top = 0
Width = 234
ControlBox = .F.
oapp = .NULL.
Name = "_navtoolbar"
�AutoSize = .F.
Top = 37
Left = 238
Height = 24
Width = 100
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Reset To Default"
Default = .F.
TabIndex = 14
ZOrderSet = 4
Name = "cmdResetToDefault"
�AutoSize = .F.
Top = 183
Left = 307
Height = 27
Width = 48
FontName = "MS Sans Serif"
Caption = "\<OK"
Default = .T.
Name = "cmdOK"
�PROCEDURE Click
* save values from this dialog to
* to current record -- not to current values
THISFORM.SaveUserOptionsFromDisplay()
WAIT WINDOW NOWAIT LEFT(OPTIONS_DEFAULTS_SAVED_LOC,254)
ENDPROC
�AutoSize = .F.
Top = 66
Left = 238
Height = 24
Width = 100
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Save As Default"
TabIndex = 15
ZOrderSet = 3
Name = "cmdSetDefault"
nitries Number of tries before the user login fails.
itriesallowed
oapp
laddinguser
lvalidpassword
lvaliduser
*incrementfailedattempts
*addusernow
*oktoadduser Abstract in the base, allows you to indicate what conditions are required to add a new user rather than simply validating existing users.
*storenewpasswordinfo
*checkpasswordinfo
*faillogin
�Top = 9
Left = 238
Height = 24
Width = 100
FontName = "MS Sans Serif"
FontSize = 8
Caption = "\<Apply Now"
TabIndex = 13
ZOrderSet = 2
Name = "cmdApply"
�lallowfilebrowsing Determines whether the user is allowed to pick files from disk for QuickStart or Favorites use.
*refreshfavoriteids Adds to the app cCurrentUserFavoriteIDs list when the user makes a new choice.
*refreshbuttons
*removedocument
bHeight = 285
Width = 305
Desktop = .T.
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
BorderStyle = 2
Caption = ("")
ControlBox = .F.
Closable = .F.
MaxButton = .F.
MinButton = .F.
KeyPreview = .T.
TitleBar = 0
AlwaysOnTop = .T.
cauthor =
cimage =
ctrademark =
ccopyright =
ccompany =
ccaption =
cversion =
Name = "_splash"
�FontName = "Courier New"
DefLeft =
Height = 180
Left = (THISFORM.iMargin)
ToolTipText = ("A place for you to write whatever might help the programmer fix the error")
Top = 39
Width = 367
Name = "edtUserNotes"
�FontName = "MS Sans Serif"
FontSize = 8
Height = 24
Left = 120
ReadOnly = .T.
TabIndex = 2
TabStop = .F.
ToolTipText = ("Date and Time of this error")
Top = 36
Width = 228
Name = "txtErrStamp"
�Mediator object to framework-enable a datasession. Drop on form to handle the datasession of the form/formset, or pass Init(tlCreateSession,tcSessionClass, tcSessionClassLib) to create and wrap a non-visual session.
�Height = 190
Width = 345
DoCreate = .T.
BufferMode = 2
Caption = "Options"
KeyPreview = .T.
oapp = .NULL.
Name = "_options"
�DoCreate = .T.
lallowfilebrowsing = .T.
Name = "_favoritepicker"
lstDocuments.TabIndex = 1
lstDocuments.Top = 12
lstDocuments.Name = "lstDocuments"
cmdOK.Top = 14
cmdOK.Left = 254
cmdOK.Width = 63
cmdOK.TabIndex = 2
cmdOK.Name = "cmdOK"
cmdCancel.Top = 82
cmdCancel.Left = 254
cmdCancel.Height = 27
cmdCancel.Width = 63
cmdCancel.TabIndex = 4
cmdCancel.Name = "cmdCancel"
�oapp
*displaycurrentuseroptions
*saveuseroptionsfromdisplay
*displayuserdefaultoptions
*setuseroptionsfromdisplay
*setfromdisplay
*displayoptions
�lsingleton Indicates that this dialog should re-show rather re-instantiate, if invoked when it already exists.
*applyappattributes Takes a reference to the application object and applies app session-specific attributes, caption, and icon to this dialog.
*adjustforsystemfontsize Handles large font use for any dialogs that are supplied with the framework. Since the framework visual elements default to MS San Serif, these dialogs switch to Arial if the user is in large font mode.
PROCEDURE savepassword
IF ALLTRIM(THIS.txtConfirmPassword.Value) == ALLTRIM(THIS.txtPassword.Value)
THIS.oApp.StorePassword(ALLTRIM(THIS.txtPassword.Value))
MESSAGEBOX(OPTIONS_PASSWORD_CONFIRMED_LOC,0,THIS.Caption)
STORE SPACE(30) TO THIS.txtConfirmPassword.Value, THIS.txtPassword.Value
ENDIF
ENDPROC
PROCEDURE applyappattributes
LPARAMETERS toApp
LOCAL llSuccess
llSuccess = DODEFAULT(toApp)
IF llSuccess
IF USED(toApp.cUserTableAlias)
THIS.Caption = toApp.cCaption + " " + CHANGEPASSWORD_LOC
THIS.oApp = toApp
ELSE
llSuccess = .F.
ENDIF
ENDIF
IF NOT (llSuccess AND THIS.oApp.IsErrorFree())
THIS.Release()
ENDIF
ENDPROC
PROCEDURE Destroy
DODEFAULT()
THIS.oApp = .NULL.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 27
THIS.Release()
ENDIF
ENDPROC
!PROCEDURE dosessionsets
LPARAMETERS toApp
LOCAL loApp
IF VARTYPE(toApp) = "O"
loApp = toApp
ELSE
loApp = THIS.GetAppRef()
ENDIF
IF VARTYPE(loApp) = "O"
DODEFAULT(loApp)
THISFORM.cTextDisplayFont = loApp.cTextDisplayFont
ENDIF
loApp = NULL
ENDPROC
�PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.Parent.iLastError = nError
DODEFAULT(nError, cMethod, nLine)
ENDPROC
PROCEDURE getmessageboxtitle
LOCAL lcTitle, lcCaption
lcCaption = THIS.Parent.cCaption
lcTitle = DODEFAULT()
IF NOT EMPTY(lcCaption)
lcTitle = ALLTR(lcCaption+" "+lcTitle)
ENDIF
RETURN lcTitle
ENDPROC
PROCEDURE setlog
LPARAMETERS tcTableName, tcAlias
DODEFAULT(THIS.Parent.cErrorLogTableName,tcAlias)
ENDPROC
�Top = 35
Left = 10
Height = 24
Width = 24
FontName = "MS Sans Serif"
FontSize = 8
Picture = graphics\browse.bmp
Caption = ("")
TabIndex = 4
ToolTipText = ("Browse the Error Log records")
Name = "cmdBrowseErrorLog"
�PROCEDURE Valid
LOCAL llSuccess
THISFORM.lValidPassword = .F.
IF EMPTY(THIS.Value)
THISFORM.lValidUser = .F.
RETURN
ENDIF
llSuccess = THISFORM.oApp.SeekCurrentUser(THIS.Value)
IF NOT llSuccess
* do they want a new user?
llSuccess = THISFORM.AddUserNow()
ENDIF
THISFORM.lValidUser = llSuccess
IF NOT llSuccess
IF SET("BELL") = "ON"
?? CHR(7)
ENDIF
WAIT WINDOW LEFT(LOGIN_USER_NOT_FOUND_LOC,254) TIMEOUT 2
THISFORM.IncrementFailedAttempts()
ENDIF
IF llSuccess AND (NOT THISFORM.lAddingUser) AND (NOT EMPTY(THISFORM.txtPassword.Value))
IF THISFORM.CheckPasswordInfo(ALLTR(THISFORM.txtPassword.Value))
THISFORM.Release()
ENDIF
ENDIF
RETURN llSuccess
ENDPROC
�ButtonCount = 3
BackStyle = 0
BorderStyle = 0
Height = 21
Left = 9
Top = 149
Width = 145
TabIndex = 10
Name = "opgBell"
OPTION1.FontName = "MS Sans Serif"
OPTION1.FontSize = 8
OPTION1.BackStyle = 0
OPTION1.Caption = "Off"
OPTION1.Left = 5
OPTION1.Top = 3
OPTION1.AutoSize = .T.
OPTION1.Name = "OPTION1"
OPTION2.FontName = "MS Sans Serif"
OPTION2.FontSize = 8
OPTION2.BackStyle = 0
OPTION2.Caption = "Default"
OPTION2.Left = 42
OPTION2.Top = 3
OPTION2.AutoSize = .T.
OPTION2.Name = "OPTION2"
Option3.FontName = "MS Sans Serif"
Option3.FontSize = 8
Option3.BackStyle = 0
Option3.Caption = "Play:"
Option3.Height = 15
Option3.Left = 99
Option3.Top = 3
Option3.Width = 41
Option3.AutoSize = .T.
Option3.Name = "Option3"
�PROCEDURE applyappattributes
LPARAMETERS toApp
IF VARTYPE(toApp) = "O"
IF EMPTY(THIS.Caption)
THIS.Caption = toApp.cCaption + " " + THIS.Caption
ENDIF
IF EMPTY(THIS.Icon)
THIS.Icon = toApp.cIcon
ENDIF
THIS.AdjustForSystemFontSize()
toApp.ApplyUserOptsForSession(THIS.DataSessionID)
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE adjustforsystemfontsize
LOCAL lcStandardFont, loControl
IF FONTMETRIC(1, 'MS Sans Serif', 8, '') # 13 OR ;
FONTMETRIC(4, 'MS Sans Serif', 8, '') # 2 OR ;
FONTMETRIC(6, 'MS Sans Serif', 8, '') # 5 OR ;
FONTMETRIC(7, 'MS Sans Serif', 8, '') # 11
lcStandardFont = UPPER(DIALOG_SMALLFONT_NAME)
FOR EACH loControl IN THIS.Controls
DO CASE
CASE PEMSTATUS(loControl,"FontName",5) AND ;
UPPER(loControl.FontName) == lcStandardFont
loControl.FontName = DIALOG_LARGEFONT_NAME
CASE TYPE("loControl.Buttons(1)") = "O"
loControl.SetAll("FontName",DIALOG_LARGEFONT_NAME)
OTHERWISE
* note: I am *not* going to do this recursively,
* although I would in other instances.
* none of the _framewk dialogs based on
* _dialog class use containers extensively,
* and if some were added it would be unwise
* for me to assume that these containers should
* be unilaterally altered by this code.
* The best thing to do would be to add a
* FontName property to such containers, with
* an assign method so that the change could
* be applied appropriately to the members of
* said container.
ENDCASE
ENDFOR
ENDIF
ENDPROC
PROCEDURE Load
DODEFAULT()
SET TALK OFF
IF THIS.lSingleton
LOCAL loForm, llFound
FOR EACH loForm IN _SCREEN.Forms
IF (loForm.ClassLibrary == THIS.ClassLibrary AND ;
loForm.Class == THIS.Class ) AND ;
loForm.Visible
llFound = .T.
loForm.Show()
loForm.Autocenter = loForm.AutoCenter
EXIT
ENDIF
ENDFOR
IF llFound
RETURN .F.
ENDIF
ENDIF
ENDPROC
RPROCEDURE Valid
ASSERT (NOT EOF(THISFORM.oApp.cUserTableAlias))
LOCAL llSuccess, lcPassword
lcPassword = ALLTRIM(THIS.Value)
IF THISFORM.lAddingUser && (AND NOT EMPTY(lcPassword))
THISFORM.StoreNewPasswordInfo(lcPassword)
THISFORM.lAddingUser = .F.
THISFORM.lValidUser = .T.
llSuccess = .T.
ENDIF
DO CASE
* CASE EMPTY(lcPassword)
* THISFORM.lValidPassword = .F.
CASE THISFORM.lValidUser
llSuccess = THISFORM.CheckPasswordInfo(lcPassword)
THISFORM.lValidPassword = llSuccess
OTHERWISE
THISFORM.lValidPassword = .F.
ENDCASE
IF llSuccess
THISFORM.Release()
ELSE
IF SET("BELL") = "ON"
?? CHR(7)
ENDIF
IF THISFORM.lValidUser
* WAIT WINDOW TIMEOUT 2 ;
* LEFT(IIF(EMPTY(lcPassword),;
* LOGIN_EMPTY_PASSWORD_LOC,;
* LOGIN_WRONG_PASSWORD_LOC ),254)
WAIT WINDOW TIMEOUT 2 ;
LEFT(LOGIN_WRONG_PASSWORD_LOC,254)
THISFORM.IncrementFailedAttempts()
IF EMPTY(lcPassword)
RETURN 0
ENDIF
ENDIF
ENDIF
ENDPROC
�PROCEDURE applyattributestodialogelements
IF PEMSTATUS(THIS,"imgApplication",5)
IF (NOT EMPTY(THIS.cImage)) AND ;
(FILE(THIS.cImage))
THIS.imgApplication.Visible = .T.
THIS.imgApplication.Picture = THIS.cImage
ELSE
THIS.imgApplication.Visible = .F.
ENDIF
ENDIF
IF PEMSTATUS(THIS,"lblApplicationName",5)
THIS.lblApplicationName.Caption = THIS.cCaption
ENDIF
IF PEMSTATUS(THIS,"lblCredits",5)
THIS.lblCredits.Caption = THIS.cAuthor
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
THIS.cCompany
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
THIS.cCopyright
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
THIS.cTrademark
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
THIS.cVersion
ENDIF
ENDPROC
PROCEDURE applyappattributes
LPARAMETERS toApp
IF DODEFAULT(toApp)
* parent dialog class is already setting Icon
THIS.Caption = ABOUT_LOC+" "+TRANS(toApp.cCaption)
THIS.cCaption = TRANS(toApp.cCaption)
THIS.cVersion = TRANS(toApp.cVersion)
THIS.cCopyright = TRANS(toApp.cCopyright)
THIS.cCompany = TRANS(toApp.cCompany)
THIS.cAuthor = TRANS(toApp.cAuthor)
THIS.cTrademark = TRANS(toApp.cTrademark)
THIS.cImage = TRANS(toApp.cImage)
ENDIF
THIS.ApplyAttributesToDialogElements()
ENDPROC
~PROCEDURE Click
LOCAL lcFrame, loApp, iSelect && jic
iSelect = SELECT()
SELECT (THISFORM.cAlias)
loApp = THISFORM.app_mediator.GetAppRef()
IF TYPE("loApp.oFrame.Name") = "C"
lcFrame = " IN WINDOW (loApp.oFrame.Name) "
ELSE
lcFrame = " IN SCREEN "
ENDIF
BROWSE FIELDS ;
errstamp :H= "Error Date and Time", ;
field2 = LEFT(Listing, 20) :H="Tech Listing", ;
field3 = LEFT(UserNotes,10) :H= "Your Notes Go Here" ;
WINDOW (THISFORM.Name) ;
FONT (THISFORM.cTextDisplayFont) ;
&lcFrame
THISFORM.Refresh()
THISFORM.spnNav.Value = RECNO()
SELECT (iSelect)
loApp = NULL
ENDPROC
�Top = 3
Left = 28
Height = 24
Width = 24
Picture = graphics\open.bmp
Caption = ""
ToolTipText = "Open"
SpecialEffect = 2
ZOrderSet = 2
Name = "cmdOpen"
�Top = 3
Left = 5
Height = 24
Width = 24
Picture = graphics\new.bmp
Caption = ""
ToolTipText = "New"
SpecialEffect = 2
ZOrderSet = 1
Name = "cmdNew"
Caption = "Standard"
Height = 30
Left = 0
Top = 0
Width = 242
ControlBox = .F.
oapp = .NULL.
Name = "_standardtoolbar"
rErasePage = .T.
PageCount = 2
ActivePage = 1
Top = 0
Left = 0
Width = 377
Height = 252
TabIndex = 1
Name = "pgfErrorLog"
Page1.FontName = "MS Sans Serif"
Page1.FontSize = 8
Page1.Caption = "\<Listing of Error Details"
Page1.Name = "Page1"
Page2.FontName = "MS Sans Serif"
Page2.FontSize = 8
Page2.Caption = "\<User Notes On Errors"
Page2.Name = "Page2"
iPROCEDURE loadapp
LPARAMETERS tcAppRef
IF DODEFAULT(tcAppRef)
LOCAL loApp
loApp = THIS.GetAppRef()
IF NOT (EMPTY(THIS.cContextMenuFile) OR ;
EMPTY(THIS.cContextMenuPad) OR ;
EMPTY(THIS.cContextMenuPopup))
THIS.iContextMenuIndex = ;
loApp.DoContextMenu(THIS.cContextMenuFile, THIS.cContextMenuPad, THIS.cContextMenuPopup)
ENDIF
IF NOT EMPTY(THIS.cToolbarClass)
THIS.iToolbarIndex = ;
loApp.DoToolbar(THIS.cToolbarClassLib, THIS.cToolbarClass)
ENDIF
IF THIS.lAddAppIcon AND ;
EMPTY(THISFORM.Icon) AND ;
NOT THISFORM.TitleBar = 0
THISFORM.Icon = loApp.cIcon
ENDIF
loApp = NULL
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Destroy
DODEFAULT()
LOCAL loApp
loApp = THIS.GetAppRef()
IF ISNULL(loApp)
RETURN
ENDIF
IF NOT EMPTY(THIS.iContextMenuIndex)
loApp.ReleaseContextMenu(THIS.iContextMenuIndex)
ENDIF
IF NOT EMPTY(THIS.iToolbarIndex)
loApp.ReleaseToolbar(THIS.iToolbarIndex)
ENDIF
loApp = .NULL.
ENDPROC
ePROCEDURE DownClick
IF THIS.Value = THIS.SpinnerLowValue
?? CHR(7)
ENDIF
THISFORM.cmdBrowseErrorLog.SetFocus()
ENDPROC
PROCEDURE UpClick
IF THIS.Value = THIS.SpinnerHighValue
?? CHR(7)
ENDIF
THISFORM.cmdBrowseErrorLog.SetFocus()
ENDPROC
PROCEDURE InteractiveChange
GO THIS.Value IN (THISFORM.cAlias)
THISFORM.Refresh()
ENDPROC
GPROCEDURE Init
LPARAMETERS tcCaption, tcVersion, tcAuthor, tcCompany, tcCopyright, tcTrademark, tcImage
LOCAL liPCount
liPCount = PCOUNT()
IF DODEFAULT()
IF liPCount > 0 AND VARTYPE(tcCaption) = "C"
THIS.cCaption = tcCaption
ENDIF
IF liPCount > 1 AND VARTYPE(tcVersion) = "C"
THIS.cVersion = tcVersion
ENDIF
IF liPCount > 2 AND VARTYPE(tcAuthor) = "C"
THIS.cAuthor = tcAuthor
ENDIF
IF liPCount > 3 AND VARTYPE(tcCompany) = "C"
THIS.cCompany = tcCompany
ENDIF
IF liPCount > 4 AND VARTYPE(tcCopyright) = "C"
THIS.cCopyright = tcCopyright
ENDIF
IF liPCount > 5 AND VARTYPE(tcTrademark) = "C"
THIS.cTrademark = tcTrademark
ENDIF
IF liPcount > 6 AND VARTYPE(tcImage) = "C"
THIS.cImage = tcImage
ENDIF
THIS.cImage = ALLTR(THIS.cImage)
IF AT(".",THIS.cImage) = 0
THIS.cImage = THIS.cImage+".bmp"
ENDIF
THIS.cImage = FULLPATH(THIS.cImage)
IF (FILE(THIS.cImage))
THIS.imgApplication.Visible = .T.
THIS.imgApplication.Picture = THIS.cImage
ELSE
THIS.imgApplication.Visible = .F.
ENDIF
IF NOT EMPTY(THIS.cCaption)
THIS.lblApplicationName.Caption = TRANS(THIS.cCaption)
ENDIF.
THIS.lblCredits.Caption = TRANS(THIS.cAuthor)
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
TRANS(THIS.cCompany)
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
TRANS(THIS.cCopyright)
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
TRANS(THIS.cTrademark)
THIS.lblCredits.Caption = THIS.lblCredits.Caption + ;
CHR(13)+ ;
TRANS(THIS.cVersion)
THIS.Titlebar = 0
ELSE
RETURN .F.
ENDIF
ENDPROC
pPROCEDURE Destroy
DODEFAULT()
THIS.oApp = .NULL.
ENDPROC
PROCEDURE Refresh
LOCAL llEnable
IF NOT THIS.lDisabledForModal
NODEFAULT
DO CASE
CASE TYPE("_SCREEN.ActiveForm.Parent") = "O"
SET DATASESSION TO _SCREEN.ActiveForm.Parent.DataSessionID
CASE TYPE("_SCREEN.ActiveForm") = "O"
SET DATASESSION TO _SCREEN.ActiveForm.DataSessionID
OTHERWISE
* we're wherever we should be...
ENDCASE
llEnable = (RECCOUNT() > 1)
IF llEnable
* everything has been enabled
WITH THIS.spnGo
STORE 1 TO .SpinnerLowValue, .KeyBoardLowValue
STORE RECCOUNT() TO ;
.SpinnerHighValue, .KeyBoardHighValue
.Value = RECNO()
.Value = MIN(.Value,.SpinnerHighValue) && EOF()
ENDWITH
ELSE
THIS.SetAll("Enabled", .F.)
ENDIF
ENDIF
RETURN llEnable
ENDPROC
PROCEDURE filldocumentsarray
LPARAMETERS tcMetaTableName
DIME THIS.aDocuments[1,4]
IF EMPTY(tcMetaTableName)
RETURN .F.
ENDIF
LOCAL lcConditions
IF THIS.lNew
lcConditions = " AND DOC_NEW "
ELSE
lcConditions = " AND DOC_OPEN "
ENDIF
lcConditions = lcConditions + " AND NOT DELETED() "
IF THIS.lSorted
lcConditions = lcConditions + " ORDER BY 1 "
ENDIF
SELECT DOC_DESCR, DOC_EXEC, ;
DOC_WRAP, ALT_EXEC ;
FROM (tcMetaTableName) ;
WHERE DOC_TYPE = PJX_META_DOC_REPORT_TYPE ;
&lcConditions ;
INTO ARRAY THIS.aDocuments
RETURN ( _TALLY # 0)
ENDPROC
PROCEDURE execdocument
LOCAL liRow
liRow = THISFORM.lstDocuments.Value
IF EMPTY(liRow)
RETURN
ENDIF
DO CASE
CASE NOT EMPTY(THIS.aDocuments[liRow,4]) && alt-exec
LOCAL lcStatement
lcStatement = ALLTR(THIS.aDocuments[liRow,4])
&lcStatement
CASE THIS.aDocuments[liRow,3] && wrapped
DO (ALLTRIM(THIS.aDocuments[liRow,2]))
OTHERWISE && report
THIS.oApp.DoReport(ALLTRIM(THIS.aDocuments[liRow,2]), ;
ALLTRIM(THIS.aDocuments[liRow,1]))
ENDCASE
ENDPROC
PROCEDURE Init
LPARAMETERS toApp, tlAdd
IF NOT DODEFAULT(toApp,tlAdd)
RETURN .F.
ENDIF
* note: the editing capability isn't implemented yet.
IF tlAdd
THIS.Caption = REPORTPICKER_CAPTION_MODIFY_LOC
ELSE
THIS.Caption = REPORTPICKER_CAPTION_RUN_LOC
ENDIF
ENDPROC
�PROCEDURE incrementfailedattempts
THIS.iTries = THIS.iTries + 1
IF THIS.iTries >= THIS.iTriesAllowed
MESSAGEBOX(LOGIN_TRIES_EXCEEDED_LOC,MB_ICONSTOP,THIS.Caption)
THIS.FailLogIn()
THIS.Release()
ENDIF
ENDPROC
PROCEDURE addusernow
LOCAL lcName
THIS.lAddingUser = .F.
IF THIS.OKToAdduser()
IF (MESSAGEBOX(LOGIN_ADD_USER_LOC , ;
MB_ICONEXCLAMATION+MB_YESNO, ;
LOGIN_USER_NOT_FOUND_LOC) = IDYES)
lcName = ALLTRIM(THIS.txtName.Value)
INSERT INTO (THIS.oApp.cUserTableAlias) ;
((THIS.oApp.cUserTableIDField)) ;
VALUES (lcName)
THIS.lAddingUser = .T.
MESSAGEBOX(LOGIN_NEW_USER_INFO_LOC,0,THIS.Caption)
ENDIF
ENDIF
RETURN THIS.lAddingUser
ENDPROC
PROCEDURE oktoadduser
* abstract in the base, would be done
* according to any conditions you like.
* certainly there has to be some way of adding
* new users at startup,
* if no currently-valid user exists.
RETURN .T.
ENDPROC
PROCEDURE storenewpasswordinfo
LPARAMETERS tcValueToStore
ASSERT VARTYPE(tcValueToStore) = "C"
THIS.oApp.StorePassword(tcValueToStore)
ENDPROC
PROCEDURE checkpasswordinfo
LPARAMETERS tcValueToCheck
RETURN (THIS.oApp.CheckPassword(tcValueToCheck))
ENDPROC
PROCEDURE faillogin
* this is the equivalent of a failed
* SEEK in the table
IF RECCOUNT(THIS.oApp.cUserTableAlias) > 0
GO BOTTOM IN (THIS.oApp.cUserTableAlias)
SKIP IN (THIS.oApp.cUserTableAlias)
ENDIF
ENDPROC
PROCEDURE QueryUnload
IF THIS.ReleaseType = 1 && box hit
IF THIS.lValidUser AND THIS.lValidPassword
IF THIS.lAddingUser
THIS.StoreNewPasswordInfo(ALLTR(THIS.txtPassword.Value))
ELSE
IF NOT THIS.CheckPasswordInfo(ALLTR(THIS.txtPassword.Value))
WAIT WINDOW LEFT(LOGIN_WRONG_PASSWORD_LOC,254) TIMEOUT 2
THIS.txtPassword.SetFocus()
NODEFAULT
ENDIF
ENDIF
ELSE
THIS.FailLogIn()
ENDIF
ENDIF
ENDPROC
PROCEDURE applyappattributes
LPARAMETERS toApp
LOCAL llSuccess
llSuccess = DODEFAULT(toApp)
IF llSuccess
IF VARTYPE(toApp.cUserTableAlias) # "C" OR NOT USED(toApp.cUserTableAlias)
llSuccess = .F.
ELSE
THIS.Caption = toApp.cCaption + " " + LOGIN_CAPTION_LOC
IF NOT EMPTY(toApp.cCurrentUser)
IF toApp.SeekCurrentUser()
THIS.txtName.Value = toApp.cCurrentUser
THIS.lValidUser = .T.
ELSE
THIS.lValidUser = .F.
ENDIF
ELSE
THIS.lValidUser = .F.
ENDIF
THIS.lValidPassword = .F.
THIS.oApp = toApp
ENDIF
ENDIF
IF NOT llSuccess
THIS.Release()
ENDIF
ENDPROC
PROCEDURE Destroy
THIS.oApp = .NULL.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 27
THIS.FailLogIn()
THIS.Release()
ENDIF
ENDPROC
YPROCEDURE Init
LPARAMETERS toApp, tlNew
IF NOT DODEFAULT(toApp,tlNew)
RETURN .F.
ENDIF
IF tlNew
THIS.Caption = NEWOPEN_CAPTION_NEW_LOC
ELSE
THIS.Caption = NEWOPEN_CAPTION_OPEN_LOC
ENDIF
ENDPROC
PROCEDURE execdocument
LOCAL liRow
liRow = THISFORM.lstDocuments.Value
IF EMPTY(liRow)
RETURN
ENDIF
DO CASE
CASE NOT EMPTY(THIS.aDocuments[liRow,9]) && alt-exec
LOCAL lcStatement
lcStatement = ALLTR(THIS.aDocuments[liRow,9])
&lcStatement
CASE THIS.aDocuments[liRow,8] && wrapped
DO (ALLTRIM(THIS.aDocuments[liRow,2]))
OTHERWISE && form or form class
THIS.oApp.DoForm(ALLTRIM(THIS.aDocuments[liRow,2]), ;
ALLTRIM(THIS.aDocuments[liRow,3]), ;
THIS.aDocuments[liRow,4], ;
THIS.aDocuments[liRow,5], ;
THIS.aDocuments[liRow,6], ;
THIS.aDocuments[liRow,7])
ENDCASE
ENDPROC
PROCEDURE filldocumentsarray
LPARAMETERS tcMetaTableName
DIME THIS.aDocuments[1,9]
* array has 9 columns to match meta data info
* First is visible description, plus 6 columns of DoForm params,
* and then "wrapped" column meaning "this is a program not a class"
* followed by "alt-exec" column, which gets macro-evaluated if used
* LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow, tlGoMenu, tlNavToolbar
* are the doform params...
IF EMPTY(tcMetaTableName)
RETURN .F.
ENDIF
LOCAL lcConditions
IF THIS.lNew
lcConditions = " AND DOC_NEW "
ELSE
lcConditions = " AND DOC_OPEN "
ENDIF
lcConditions = lcConditions + " AND NOT DELETED() "
IF THIS.lSorted
lcConditions = lcConditions + " ORDER BY 1 "
ENDIF
SELECT DOC_DESCR, DOC_EXEC, DOC_CLASS, ;
DOC_SINGLE, DOC_NOSHOW, ;
DOC_GO, DOC_NAV, ;
DOC_WRAP, ALT_EXEC ;
FROM (tcMetaTableName) ;
WHERE DOC_TYPE = PJX_META_DOC_FORM_TYPE ;
&lcConditions ;
INTO ARRAY THIS.aDocuments
RETURN ( _TALLY # 0)
ENDPROC
,PROCEDURE donologmessage
LPARAMETERS tcMessage
?? CHR(7)
MESSAGEBOX(tcMessage,MB_ICONINFORMATION,THIS.Caption)
RETURN
ENDPROC
PROCEDURE ctextdisplayfont_assign
LPARAMETERS tvNewVal
IF VARTYPE(tvNewVal) = "C"
THIS.cTextDisplayFont = tvNewVal
STORE tvNewVal TO THIS.pgfErrorLog.Page1.edtListing.FontName, ;
THIS.pgfErrorLog.Page2.edtUserNotes.FontName
ENDIF
ENDPROC
PROCEDURE Resize
WITH THIS.pgfErrorLog
.Height = THIS.Height
.Width = THIS.Width
THIS.txtErrStamp.Left = (THIS.Width - THIS.txtErrStamp.Width)/2
THIS.spnNav.Left = THIS.txtErrStamp.Left+THIS.txtErrStamp.Width
STORE .PageHeight - ;
(THIS.pgfErrorLog.Page1.edtListing.Top+ ;
THIS.iMargin) TO ;
THIS.pgfErrorLog.Page1.edtListing.Height, ;
THIS.pgfErrorLog.Page2.edtUserNotes.Height
STORE THIS.Width - (THIS.iMargin*2) TO ;
.Page1.edtListing.Width, ;
.Page2.edtUserNotes.Width
ENDWITH
ENDPROC
PROCEDURE Init
IF DODEFAULT()
THIS.MinHeight = THIS.Height
THIS.MinWidth = THIS.Width
THIS.iMargin = SYSMETRIC(12)
STORE THIS.iMargin TO ;
THIS.pgfErrorLog.Page1.edtListing.Left, ;
THIS.pgfErrorLog.Page2.edtUserNotes.Left
THIS.Resize()
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Activate
IF RECCOUNT(THIS.cAlias) < 2
THIS.spnNav.Enabled = .F.
ELSE
STORE RECCOUNT(THIS.cAlias) TO ;
THIS.spnNav.SpinnerHighValue, THIS.spnNav.KeyboardHighValue
STORE 1 TO THIS.spnNav.SpinnerLowValue, THIS.spnNav.KeyboardLowValue
STORE RECNO(THIS.cAlias) TO THIS.spnNav.Value
ENDIF
THIS.Refresh()
ENDPROC
PROCEDURE applyappattributes
LPARAMETERS toApp
LOCAL lcTable
IF DODEFAULT(toApp)
lcTable = toApp.cErrorLogTableName
IF EMPTY(lcTable) OR NOT FILE(lcTable)
THIS.DoNoLogMessage(ERRORVIEWER_UNAVAILABLE_LOC )
RETURN .F.
ENDIF
USE (lcTable) SHARED ALIAS (THIS.cAlias) IN 0
IF NOT USED(THIS.cAlias)
THIS.DoNoLogMessage(ERRORVIEWER_UNAVAILABLE_LOC )
RETURN .F.
ENDIF
IF EMPTY(RECCOUNT(THIS.cAlias))
THIS.DoNoLogMessage(ERRORVIEWER_EMPTY_LOC )
RETURN .F.
ENDIF
GO BOTTOM
THIS.txtErrStamp.ControlSource=THIS.cAlias+".ErrStamp"
THIS.pgfErrorLog.Page1.edtListing.ControlSource = THIS.cAlias+".Listing"
THIS.pgfErrorLog.Page2.edtUserNotes.ControlSource = THIS.cAlias+".UserNotes"
THIS.app_mediator.LoadApp(toApp.cReference)
* the error log viewer is different from other
* _dialog descendents in that it's not modal,
* so it deserves a mediator for later use.
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Destroy
IF (NOT EMPTY(THIS.cAlias)) AND USED(THIS.cAlias)
USE IN (THIS.cAlias)
ENDIF
ENDPROC
�PROCEDURE setdialogsizeparameters
LOCAL liMaxRows, lnListRowHeight, lnListMaxHeight, lnListMinHeight, lnMargin
liMaxRows = ALEN(THIS.aDocuments,1)
lnMargin = THIS.lstDocuments.Top
WITH THIS.lstDocuments
lnListRowHeight = FONTM(1,.FontName,.FontSize) + ;
FONTM(5,.FontName,.FontSize) + ;
FONTM(4,.FontName,.FontSize)
lnListMaxHeight = MIN(lnListRowHeight * liMaxRows, ;
(SYSMETRIC(2) - lnMargin * 2))
lnListMinHeight = lnListRowHeight * 2
IF NOT BETWEEN(.Height, lnListMinHeight, lnListMaxHeight)
.Height = MIN(lnListMaxHeight, .Height)
ENDIF
ENDWITH
THIS.MinWidth = THIS.Width
THIS.MinHeight = MAX(lnListMinHeight + (lnMargin * 2), ;
(THIS.cmdCancel.Top + THIS.cmdCancel.Height + lnMargin))
THIS.MaxHeight = MAX(THIS.MinHeight, lnListMaxHeight + (lnMargin * 2))
THIS.Height = MAX(THIS.MinHeight,THIS.lstDocuments.Height + (lnMargin * 2))
lnMargin = THIS.lstDocuments.Left
THIS.Width = THIS.lstDocuments.Width+THIS.cmdCancel.Width+ lnMargin * 3
ENDPROC
PROCEDURE Load
DODEFAULT()
SET DELETED ON
ENDPROC
PROCEDURE Init
LPARAMETERS toApp, tlNew
IF NOT DODEFAULT()
RETURN .F.
ENDIF
LOCAL laTemp[1], llReturn
ASSERT VARTYPE(tlNew) = "L"
ASSERT TYPE("toApp.cMetaTable") = "C" AND ;
ACLASS(laTemp,toApp) > 0 AND ;
ASCAN(laTemp,"_APPLICATION") > 0 ;
MESSAGE DOCUMENTPICKER_NO_APP_LOC
THIS.lNew = tlNew
THIS.oApp = toApp
DO CASE
CASE EMPTY(toApp.cMetaTable) OR ;
(NOT THIS.FillDocumentsArray(toApp.GetResourceFileName(toApp.cMetaTable,".dbf"))) OR ;
VARTYPE(THIS.aDocuments[1,1]) # "C"
MESSAGEBOX(DOCUMENTPICKER_NO_DOCUMENTS_LOC, ;
MB_ICONEXCLAMATION, ;
toApp.cCaption)
CASE ALEN(THIS.aDocuments,1) = 1
THIS.lstDocuments.RowSource = "THISFORM.aDocuments"
THIS.lstDocuments.Value = 1
THIS.ExecDocument()
OTHERWISE
llReturn = .T.
THIS.lstDocuments.RowSource = "THISFORM.aDocuments"
ENDCASE
IF NOT llReturn
THIS.oApp = .NULL.
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE Destroy
DODEFAULT()
THIS.oApp = .NULL.
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
CASE nKeyCode = 27
THIS.cmdCancel.Click()
NODEFAULT
CASE nKeyCode = 23
THIS.cmdOK.Click()
NODEFAULT
OTHERWISE
ENDCASE
ENDPROC
PROCEDURE Resize
LOCAL lnMargin
lnMargin = THIS.lstDocuments.Left
STORE THIS.Width - (THIS.cmdCancel.Width + lnMargin ) TO ;
THIS.cmdCancel.Left, ;
THIS.cmdOK.Left
STORE THIS.cmdCancel.Left - (lnMargin * 2) TO THIS.lstDocuments.Width
lnMargin = THIS.lstDocuments.Top
STORE THIS.Height - (lnMargin * 2) TO THIS.lstDocuments.Height
ENDPROC
PROCEDURE applyappattributes
LPARAMETERS toapp
IF DODEFAULT(toApp)
THIS.SetDialogSizeParameters()
THIS.Resize()
ENDIF
ENDPROC
�PROCEDURE displaycurrentuseroptions
* show values from user options array in the dialog
THIS.DisplayOptions("CURRENT")
ENDPROC
PROCEDURE saveuseroptionsfromdisplay
THIS.SetFromDisplay("SAVE")
ENDPROC
PROCEDURE displayuserdefaultoptions
* show values from default record in the dialog
THIS.DisplayOptions("SAVED")
ENDPROC
PROCEDURE setuseroptionsfromdisplay
THIS.SetFromDisplay("CURRENT")
ENDPROC
PROCEDURE setfromdisplay
LPARAMETERS tcWhichSet
IF VARTYPE(tcWhichSet) # "C" OR ;
(NOT INLIST(tcWhichSet,"CURRENT","SAVE"))
RETURN .F.
ENDIF
LOCAL llCurrent, lcArray, loForm, loMediator
llCurrent = (tcWhichSet = "CURRENT")
IF llCurrent
lcArray = "THIS.oApp.aCurrentUserOpts"
ELSE
LOCAL ARRAY laOptions[1,4]
lcArray = "laOptions"
ENDIF
DIME &lcArray.[6,4]
* change depending on how many options you have...
* and fill the array any way you want, just
* so long as your usage matches
* what you put in the array!
&lcArray.[1,1] = "SHOWTIPS"
&lcArray.[1,2] = THIS.chkShowTips.Value
&lcArray.[1,3] = .F. && form or form member property
&lcArray.[1,4] = .F. && private to datasessions/enabled forms, ;
&& and applied only on that level as requested
&& by form mediator object
&lcArray.[2,1] = "CONFIRM"
&lcArray.[2,2] = IIF(THIS.chkConfirm.Value,"ON","OFF")
&lcArray.[2,3] = .T. && SET, not form or form member property
&lcArray.[2,4] = .F.
&lcArray.[3,1] = "HOURS"
&lcArray.[3,2] = "TO "+THIS.opgHours.Buttons(THIS.opgHours.Value).Caption
&lcArray.[3,3] = .T. && SET, not form or form member property
&lcArray.[3,4] = .F.
&lcArray.[4,1] = "cTextDisplayFont"
&lcArray.[4,2] = IIF(EMPTY(THIS.cboTextDisplayFont.Value), ;
THIS.oApp.cTextDisplayFont, ;
THIS.cboTextDisplayFont.Value)
&lcArray.[4,3] = .F. && application or application member property
&lcArray.[4,4] = .T. && set on a global level, not form/session private
&lcArray.[5,1] = "BELL"
&lcArray.[5,2] = IIF(THIS.opgBell.Value = 1, "OFF","ON")
&lcArray.[5,3] = .T. && SET, not app or app member property
&lcArray.[5,4] = .T.
&lcArray.[6,1] = "BELL TO"
* I could have placed the word either in the first or
* second part of the 'SET phrase', as you
* can see from the SET HOURS entry, but in this case
* putting it in the first one allows me to identify the
* two SET BELL items uniquely later, when I use the
* application.GetUserOptionSetting() method to find them.
&lcArray.[6,2] = " "
IF THIS.opgBell.Value = 3 AND (NOT EMPTY(ALLTRIM(THIS.txtBell.Value)))
&lcArray.[6,2] = &lcArray.[6,2]+"["+ALLTR(THIS.txtBell.Value)+"],0"
ENDIF
&lcArray.[6,3] = .T.
&lcArray.[6,4] = .T.
IF llCurrent
THIS.oApp.ApplyGlobalUserOptions()
IF _SCREEN.FormCount > 0
* I am deliberately using
* _SCREEN rather than THIS.oApp.aForms
* here to account for collaborators or
* a modal dialog under this one --
* anything that has a mediator,
* not just anything in the aForms modeless
* collection, should have properties applied.
* It's faster, too, and I don't have to
* distinguish between forms and formsets in
* the _SCREEN collection
FOR EACH loForm IN _SCREEN.Forms
loMediator = THIS.oApp.GetFormMediatorRef(loForm)
IF VARTYPE(loMediator) = "O"
loMediator.DoSessionSets()
loForm.Refresh()
ENDIF
ENDFOR
ENDIF
ELSE
REPLACE (THIS.oApp.cUserTableAlias+".UserOpts") WITH "" && this may avoid some bloat
SAVE ALL LIKE laOptions TO MEMO (THIS.oApp.cUserTableAlias+".UserOpts")
THIS.cmdResetToDefault.Enabled = .T.
ENDIF
ENDPROC
PROCEDURE displayoptions
LPARAMETERS tcWhichSet
IF VARTYPE(tcWhichSet) # "C" OR ;
(NOT INLIST(tcWhichSet,"CURRENT","SAVED"))
RETURN .F.
ENDIF
LOCAL llCurrent, lvValue
llCurrent = (tcWhichSet = "CURRENT")
IF NOT llCurrent
RESTORE FROM MEMO (THIS.oApp.cUserTableAlias+".UserOpts") ADDITIVE
* local array laOptions now exists
ENDIF
IF llCurrent
lvValue = THIS.oApp.GetUserOptionSetting("BELL")
ELSE
lvValue = THIS.oApp.GetUserOptionSetting("BELL", @laOptions)
ENDIF
IF VARTYPE(lvValue) # "C"
lvValue = SET("BELL")
ENDIF
IF lvValue = "OFF"
THIS.opgBell.Value = 1
ELSE
THIS.opgBell.Value = 2
ENDIF
IF llCurrent
lvValue = THIS.oApp.GetUserOptionSetting("BELL TO")
ELSE
lvValue = THIS.oApp.GetUserOptionSetting("BELL TO", @laOptions)
ENDIF
IF VARTYPE(lvValue) = "C"
lvValue = STRTRAN(UPPER(lvValue),",0","")
lvValue = STRTRAN(lvValue,"[","")
lvValue = ALLTRIM(STRTRAN(lvValue,"]",""))
IF (NOT EMPTY(lvValue)) AND FILE(lvValue)
THIS.opgBell.Value = 3
THIS.txtBell.Value = lvValue
ELSE
THIS.txtBell.Value = SET("BELL",1)
ENDIF
ELSE
THIS.txtBell.Value = SET("BELL",1)
ENDIF
IF llCurrent
lvValue = THIS.oApp.GetUserOptionSetting("CONFIRM")
ELSE
lvValue = THIS.oApp.GetUserOptionSetting("CONFIRM", @laOptions)
ENDIF
IF VARTYPE(lvValue) # "C"
THIS.chkConfirm.Value = (SET("CONFIRM") = "ON")
ELSE
THIS.chkConfirm.Value = (lvValue = "ON")
ENDIF
IF llCurrent
lvValue = THIS.oApp.GetUserOptionSetting("SHOWTIPS")
ELSE
lvValue = THIS.oApp.GetUserOptionSetting("SHOWTIPS", @laOptions)
ENDIF
IF VARTYPE(lvValue) # "L"
THIS.chkShowTips.Value = THIS.ShowTips
ELSE
THIS.chkShowTips.Value = lvValue
ENDIF
IF llCurrent
lvValue = THIS.oApp.GetUserOptionSetting("cTextDisplayFont")
ELSE
lvValue = THIS.oApp.GetUserOptionSetting("cTextDisplayFont", @laOptions)
ENDIF
IF VARTYPE(lvValue) # "C"
THIS.cboTextDisplayFont.Value = THIS.oApp.cTextDisplayFont
ELSE
THIS.cboTextDisplayFont.Value = lvValue
ENDIF
IF llCurrent
lvValue = THIS.oApp.GetUserOptionSetting("HOURS")
ELSE
lvValue = THIS.oApp.GetUserOptionSetting("HOURS", @laOptions)
ENDIF
IF VARTYPE(lvValue) # "C"
lvValue = TRANSFORM(SET("HOURS"))
ENDIF
IF THIS.opgHours.Buttons(1).Caption $ lvValue
THIS.opgHours.Value = 1
ELSE
THIS.opgHours.Value = 2
ENDIF
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode = 27
THIS.Release()
ENDIF
ENDPROC
PROCEDURE Destroy
DODEFAULT()
THIS.oApp = .NULL.
ENDPROC
PROCEDURE applyappattributes
LPARAMETERS toApp
LOCAL llSuccess
llSuccess = DODEFAULT(toApp)
IF llSuccess
IF USED(toApp.cUserTableAlias)
THIS.Caption = toApp.cCaption + " " + OPTIONS_LOC
THIS.oApp = toApp
THIS.DisplayCurrentUserOptions()
IF EMPTY(EVAL(toApp.cUserTableAlias+".UserOpts"))
WAIT WINDOW NOWAIT LEFT(OPTIONS_NOT_STORED_LOC,254)
THIS.cmdResetToDefault.Enabled = .F.
ENDIF
ELSE
llSuccess = .F.
ENDIF
ENDIF
IF NOT (llSuccess AND THIS.oApp.IsErrorFree())
THIS.Release()
ENDIF
ENDPROC
�ichangemode Sent on to the app's cusDataSession object to detemine what constitutes data change. 0 - anything changed. 1 - ignore view fields not in Updatefields list. 2- ignore views not set to send updates.
cappref Holds the name of the reference variable for the running app so the mediator can evaluate it to an object reference when necessary. The mediator does not store any object references, for safety.
lusersessionsettings Specifies whether the mediator should load data-session-specific user settings using the application's defaults.
coutputalias Allows you to indicate the right alias to "focus on" when the app DoTableOutput method runs, without any additional work in PrepareOutputAlias() and CleanupOutputAlias().
coutputcaption Will be passed by the app's DoTableOutput() to the _outputdialog, if used.
osession If .T. is passed to the _mediator class when it's instanced, holds the session object for this mediator. Otherwise the mediator looks for its parent form's session.
datasession Wraps the Datasession property of the session object, if this mediator created one
datasessionid Wraps the DatasessionID property of the session object, if this mediator created one
lsessionsettings Specifies whether the mediator should load session settings using the application's defaults.
lsetdocumenttonewonappload If .T., specifies that mediator should invoke SetDocumentToNew() in LoadApp.
ladding Stores information about whether the framework invoked a session for "new" or "open" editing.
csessionclass The programmatic class definition to instance if .T. is passed to the class. By default, an instance of the session baseclass is created.
csessionclasslib The programmatic classlibrary holding the cSessionClass class definition you wish to instantiate. By default, an instance of the session baseclass is created.
datasessionname Wraps the Name property of the session object, if this mediator created one
*datasession_access
*datasessionid_access
*datasessionid_assign
*queryunload Invokes the app's QueryDataSessionUnload for this Session. If used with a form, should be called in the form's QueryUnload() to handle any data changes, updates, or reverts before the form is closed.
*datachanged Wraps application QueryDataChanged method, using iChangeMode specific to this object.
*pickrecordtoworkon Abstract, available to evaluate whether form has been invoked in "new" or "open" mode, and for you to add record browsing/navigation/APPEND BLANK/whatever based on this information.
*setdocumenttonew Stores the app's lAddingNewDocument flag at the time the app attributes are loaded, so the form can evaluate what record to work on.
*dosessionsets If lSessionSettings is .T., invokes app SetDataSessionEnvironment() method for this session If lUserSessionSettings is .T., invokes app ApplyUserOptsForSession() method for this session.
*loadapp Applies app attributes, including session settings. Sets new or open status if lSetDocumentToNewOnAppLoad is .T..
*getappref RETURNs an object reference to the app.
*coutputalias_assign
*prepareoutputalias Abstract, will be invoked by app's DoTableOutput() so you can SELECT a focus table, or put together a cursor, filter data, or otherwise prepare appropriate "focussed" table information when the user chooses to get quick output from any form.
*coutputcaption_access
*cleanupoutputalias Abstract, see PrepareOutputAlias(). If you have created a temporary cursor for the purposes of DoTableOutput(), here's your chance to destroy it.
*outputonerecord Wraps the app DoTableOutput() method with a scope of one record.
*output Wraps the app DoTableOutput() method.
*createsession Creates the session object if .T. passed to the class upon instantiation
*writesessionclassdefinition Not currently used; designed to provide a model for generation of a class definition file if desired. Would be called by the cSessionClassLib access method.
*csessionclasslib_access
*csessionclass_access
*datasessionname_access
*datasession_assign
*datasessionname_assign
itoolbarindex Provided to the mediator by the app when it invokes a context toolbar for the mediator's host document, passed back to the app by the mediator so the app can refresh its context toolbar collection when this host document destroys.
icontextmenuindex Provided to the mediator by the app when it invokes a context menu for the mediator's host document, passed back to the app by the mediator so the app can refresh its context menu collection when this host document destroys.
ctoolbarclass Holds the name of a context toolbar class you wish to attach to this mediator's host document.
ctoolbarclasslib Holds the name of a class library containing the context toolbar class you wish to attach to this mediator's host document.
ccontextmenufile Holds the name of a context menu you wish to attach to this mediator's host document.
ccontextmenupopup Holds the pad name of the context menu popup so it can be released when the host document destroys.
ccontextmenupad Holds the pad name of the context menu so it can be removed when the host document destroys.
lnavtoolbar Specifies whether or not the host document has been assigned a navigation toolbar by the application and its metatable entry.
lgomenu Specifies whether or not the host document has been assigned a navigation menu by the application and its metatable entry.
laddappicon Specifies that the mediator should apply the application's standard Icon to the form's Icon property, if this property has been left empty. Defaults to .T.; turn it off if you want a borderless form!
PROCEDURE datasession_access
IF ISNULL(THIS.oSession)
IF TYPE("THISFORMSET.BaseClass") = "C"
RETURN THISFORMSET.DataSession
ELSE
RETURN THISFORM.DataSession
ENDIF
ELSE
RETURN THIS.oSession.DataSession
ENDIF
ENDPROC
PROCEDURE datasessionid_access
IF ISNULL(THIS.oSession)
RETURN SET("DATASESSION")
ELSE
RETURN THIS.oSession.DataSessionID
ENDIF
ENDPROC
PROCEDURE datasessionid_assign
LPARAMETERS tvNewVal
* don't allow assignment
ENDPROC
PROCEDURE queryunload
LPARAMETERS tlDataChangeAlreadyConfirmed
LOCAL loApp, llReturn, loSession
loApp = THIS.GetAppRef()
IF ISNULL(loApp)
RETURN
ENDIF
IF ISNULL(THIS.oSession)
IF TYPE("THISFORM") # "O"
RETURN
ELSE
loSession = THISFORM
ENDIF
ELSE
loSession = THIS.oSession
ENDIF
llReturn = NOT ISNULL(loSession)
IF llReturn
llReturn = loApp.QueryDataSessionUnload(tlDataChangeAlreadyConfirmed,loSession)
ENDIF
STORE .NULL. TO loApp, loSession
RETURN llReturn
ENDPROC
PROCEDURE datachanged
LOCAL loApp, llReturn, loSession
loApp = THIS.GetAppRef()
IF ISNULL(loApp)
RETURN
ENDIF
IF ISNULL(THIS.oSession)
IF TYPE("THISFORM") # "O"
RETURN
ELSE
loSession = THISFORM
ENDIF
ELSE
loSession = THIS.oSession
ENDIF
llReturn = NOT ISNULL(loSession)
IF llReturn
llReturn = loApp.QueryDataChanged(loSession,THIS.iChangeMode)
ENDIF
STORE .NULL. TO loApp, loSession
RETURN llReturn
ENDPROC
PROCEDURE setdocumenttonew
LPARAMETERS toApp
LOCAL loApp
loApp = NULL
IF VARTYPE(toApp) = "O"
* called from LoadApp
* or something else that knows
* the app already
loApp = toApp
ELSE
loApp = THIS.GetAppRef()
ENDIF
IF ISNULL(loApp)
RETURN
ENDIF
THIS.lAdding = loApp.lAddingNewDocument
loApp = .NULL.
ENDPROC
PROCEDURE dosessionsets
LPARAMETERS toApp
LOCAL loApp
loApp = NULL
IF VARTYPE(toApp) = "O"
* called from LoadApp
* or something else that knows
* the app already
loApp = toApp
ELSE
loApp = THIS.GetAppRef()
ENDIF
IF ISNULL(loApp)
RETURN
ENDIF
IF THIS.lSessionSettings
DO CASE
CASE NOT ISNULL(THIS.oSession)
loApp.SetDataSessionEnvironment(THIS.oSession.DataSessionID)
CASE TYPE("THISFORMSET.DataSession") = "N" AND ;
THISFORMSET.DataSession # 1
loApp.SetDataSessionEnvironment(THISFORMSET.DataSessionID)
CASE THISFORM.DataSession # 1
loApp.SetDataSessionEnvironment(THISFORM.DataSessionID)
OTHERWISE
* a form or formset in the default session, don't touch
ENDCASE
ENDIF
IF THIS.lUserSessionSettings
IF NOT ISNULL(THIS.oSession)
loApp.ApplyUserOptsForSession(THIS.oSession)
ELSE
loApp.ApplyUserOptsForSession(THISFORM)
ENDIF
ENDIF
loApp = NULL
ENDPROC
PROCEDURE loadapp
LPARAMETERS tcAppRef
THIS.cAppRef = tcAppRef
LOCAL loApp
loApp = THIS.GetAppRef()
IF ISNULL(loApp)
RETURN .F.
ENDIF
THIS.DoSessionSets(loApp)
IF THIS.lSetDocumentToNewOnAppLoad
THIS.SetDocumentToNew(loApp)
ENDIF
loApp = .NULL.
ENDPROC
PROCEDURE getappref
IF EMPTY(THIS.cAppRef)
RETURN .NULL.
ENDIF
LOCAL ARRAY laCheck[1]
IF TYPE(THIS.cAppRef+".BaseClass") = "C" ;
AND ACLASS(laCheck,EVAL(THIS.cAppRef)) > 0 AND ;
ASCAN(laCheck,"_APPLICATION") > 0
RETURN EVAL(THIS.cAppRef)
ELSE
RETURN .NULL.
ENDIF
ENDPROC
PROCEDURE coutputalias_assign
LPARAMETERS tvNewVal
IF VARTYPE(tvNewVal) = "C" AND USED(tvNewVal)
THIS.cOutputAlias = tvNewVal
ENDIF
ENDPROC
PROCEDURE coutputcaption_access
IF EMPTY(THIS.cOutputCaption) AND (NOT EMPTY(THIS.cOutputAlias))
RETURN PROPER(THIS.cOutputAlias)
ELSE
RETURN THIS.cOutputCaption
ENDIF
ENDPROC
PROCEDURE outputonerecord
LOCAL loApp, llReturn
loApp = THIS.GetAppRef()
IF ISNULL(loApp)
RETURN
ENDIF
llReturn = loApp.DoTableOutput(.T.)
loApp = .NULL.
RETURN llReturn
ENDPROC
PROCEDURE output
LOCAL loApp, llReturn
loApp = THIS.GetAppRef()
IF ISNULL(loApp)
RETURN
ENDIF
llReturn = loApp.DoTableOutput()
loApp = .NULL.
RETURN llReturn
ENDPROC
PROCEDURE createsession
lcClass = THIS.cSessionClass
lcClassLib = THIS.cSessionClassLib
IF EMPTY(lcClassLib)
RETURN CREATEOBJECT("Session")
ELSE
RETURN NEWOBJECT(lcClass, lcClassLib)
ENDIF
ENDPROC
PROCEDURE writesessionclassdefinition
LPARAMETERS tcFileName
* not currently used,
* for generation purposes
LOCAL lcFileName, llSafety
IF EMPTY(tcFileName)
RETURN
ELSE
lcFileName = tcFileName
ENDIF
llSafety = (SET("SAFETY") == "ON")
IF llSafety
SET SAFETY OFF
ENDIF
lcFileName = FORCEEXT(lcFileName,"PRG")
STRTOFILE("DEFINE CLASS "+THIS.cSessionClass+" AS Session"+CHR(13)+CHR(10),lcFileName)
STRTOFILE("DataSession = 2"+CHR(13)+CHR(10),lcFileName,.T.)
STRTOFILE("ENDDEFINE"+CHR(13)+CHR(10),lcFileName,.T.)
COMPILE (lcFileName)
ERASE (lcFileName)
THIS.cSessionClassLib = FORCEEXT(lcFileName,"FXP")
IF llSafety
SET SAFETY ON
ENDIF
ENDPROC
PROCEDURE csessionclasslib_access
LOCAL lcVal
IF VARTYPE(THIS.cSessionClassLib) # "C" OR EMPTY(THIS.cSessionClassLib)
*!* * to generate:
*!* lcVal = ADDBS(GETENV("TEMP"))+"C"+SYS(2015)+".PRG"
lcVal = ""
ELSE
lcVal = FORCEEXT(THIS.cSessionClassLib,"FXP")
IF NOT FILE(lcVal) && either on disk or bound
*!* * to generate:
*!* IF NOT DIRECTORY(JUSTPATH(lcVal))
*!* lcVal = FORCEPATH(lcVal,ADDBS(GETENV("TEMP")))
*!* ENDIF
*!* lcVal = FORCEEXT(lcVal,"PRG")
*!* IF EMPTY(SYS(2000,lcVal))
*!* THIS.WriteSessionClassDefinition(lcVal)
*!* ENDIF
*!* lcVal = FORCEEXT(lcVal,"FXP")
lcVal = FORCEEXT(lcVal,"PRG")
IF EMPTY(SYS(2000,lcVal)) && on disk
lcVal = ""
ELSE
COMPILE (lcVal)
lcVal = FORCEEXT(lcVal,"FXP")
ENDIF
ENDIF
ENDIF
THIS.cSessionClassLib = lcVal
RETURN THIS.cSessionClassLib
ENDPROC
PROCEDURE csessionclass_access
IF VARTYPE(THIS.cSessionClass) # "C" ;
OR EMPTY(THIS.cSessionClass) ;
OR VARTYPE(THIS.cSessionClassLib) # "C" ;
OR EMPTY(THIS.cSessionClassLib)
* THIS.cSessionClass = "Session"+SYS(2015)
THIS.cSessionClass = "Session"
ENDIF
RETURN THIS.cSessionClass
ENDPROC
PROCEDURE datasessionname_access
IF ISNULL(THIS.oSession)
RETURN ""
ELSE
RETURN THIS.oSession.Name
ENDIF
ENDPROC
PROCEDURE datasession_assign
LPARAMETERS vNewVal
* don't allow assignment
ENDPROC
PROCEDURE datasessionname_assign
LPARAMETERS vNewVal
* readonly, don't allow assignment
ENDPROC
PROCEDURE Init
LPARAMETERS tlCreateSession, tcSessionClass, tcSessionClassLib
IF DODEFAULT()
IF tlCreateSession
IF NOT (EMPTY(tcSessionClass) OR EMPTY(tcSessionClassLib))
THIS.cSessionClass = tcSessionClass
THIS.cSessionClassLib = tcSessionClassLib
ENDIF
THIS.oSession = THIS.CreateSession()
IF VARTYPE(THIS.oSession) # "O"
RETURN .F.
ENDIF
ELSE
IF TYPE("THISFORM") # "O"
RETURN .F.
ENDIF
ENDIF
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Destroy
DODEFAULT()
THIS.oSession = NULL
ENDPROC
4$PROCEDURE refreshfavoriteids
LPARAMETERS tcFavoriteIDToAdd
ASSERT THIS.lNew
LOCAL lcCurrentIDs, lcID, liID
IF VARTYPE(tcFavoriteIDToAdd) = "C" AND ;
NOT EMPTY(tcFavoriteIDToAdd)
lcID = ALLTRIM(tcFavoriteIDToAdd)
lcCurrentIDs = ALLTRIM(THIS.oApp.cCurrentUserFavoriteIDs)
IF INLIST(RIGHT(lcCurrentIDs,1), ;
CHR(13), CHR(10))
THIS.oApp.cCurrentUserFavoriteIDs = ;
lcCurrentIDs + lcID
ELSE
THIS.oApp.cCurrentUserFavoriteIDs = ;
lcCurrentIDs +CHR(13)+lcID
ENDIF
ELSE
* removing or otherwise doing a general refresh
lcCurrentIDs = ""
FOR liID = 1 TO ALEN(THIS.aDocuments,1)
IF LEFT(THIS.aDocuments[liID,1],FAVORITEPICKER_PICKED_LEN) = FAVORITEPICKER_PICKED_LOC
lcCurrentIDs = lcCurrentIDs + CHR(13)
IF EMPTY(THIS.aDocuments[liID,11])
lcCurrentIDs = lcCurrentIDs + SUBSTR(THIS.aDocuments[liID,1],FAVORITEPICKER_PICKED_LEN+1)
ELSE
lcCurrentIDs = lcCurrentIDs + THIS.aDocuments[liID,11]
ENDIF
ENDIF
ENDFOR
THIS.oApp.cCurrentUserFavoriteIDs = lcCurrentIDs
ENDIF
ENDPROC
PROCEDURE refreshbuttons
IF THIS.lNew
IF THIS.lstDocuments.Value = 0 OR ;
EMPTY(THIS.aDocuments[THIS.lstDocuments.Value,1])
STORE .F. TO THIS.cmdOK.Enabled, THIS.cmdRemove.Enabled
ELSE
STORE (LEFT(THIS.aDocuments[THIS.lstDocuments.Value,1], ;
FAVORITEPICKER_PICKED_LEN ) # ;
FAVORITEPICKER_PICKED_LOC ) TO ;
THIS.cmdOK.Enabled
STORE ! THIS.cmdOK.Enabled TO ;
THIS.cmdRemove.Enabled
ENDIF
ENDIF
ENDPROC
PROCEDURE removedocument
ASSERT THIS.lNew
LOCAL liRow, liCount
liRow = THIS.lstDocuments.Value
liCount = ALEN(THIS.aDocuments,1)
IF (NOT BETWEEN(liRow,1,liCount)) OR ;
(LEFT(THIS.aDocuments[liRow,1], ;
FAVORITEPICKER_PICKED_LEN) # ;
FAVORITEPICKER_PICKED_LOC )
* shouldn't happen
RETURN
ENDIF
DO CASE
CASE EMPTY(THIS.aDocuments[liRow,1])
* empty first row, nothing to do
RETURN
CASE EMPTY(THIS.aDocuments[liRow,11])
* document on disk, remove from listbox
ADEL(THIS.aDocuments,liRow)
IF liCount > 1
liCount = liCount - 1
DIME THIS.aDocuments[liCount,11]
ELSE
THIS.aDocuments[1,1] = ""
ENDIF
OTHERWISE
* metatable entry, un-mark in listbox
THIS.aDocuments[liRow,1] = SUBSTR(THIS.aDocuments[liRow,1],;
FAVORITEPICKER_PICKED_LEN+1)
ENDCASE
THIS.lstDocuments.Requery()
IF liRow > liCount
THIS.lstDocuments.Value = liCount
ELSE
THIS.lstDocuments.Value = liRow
ENDIF
THIS.RefreshFavoriteIDs()
ENDPROC
PROCEDURE Resize
DODEFAULT()
LOCAL lnMargin
lnMargin = THIS.Height - (THIS.lstDocuments.Top+THIS.lstDocuments.Height)
THIS.cmdBrowse.Top = THIS.Height - (THIS.cmdBrowse.Height + lnMargin)
STORE THIS.cmdCancel.Left TO THIS.cmdBrowse.Left, THIS.cmdRemove.Left
ENDPROC
PROCEDURE filldocumentsarray
LPARAMETERS tcMetaTableName
DIME THIS.aDocuments[1,11]
LOCAL liTally, liDocument, lcConditions, laFavorites[1], ;
liFaves, lcDocument, llExactSet, lcTable, liDocs
llExactSet = (SET("EXACT") = "OFF")
IF llExactSet
SET EXACT ON
ENDIF
liTally = 0
liDocs = 0
IF NOT EMPTY(tcMetaTableName)
lcTable = THIS.oApp.GetResourceFileName(tcMetaTableName,".dbf")
IF NOT EMPTY(lcTable)
lcConditions = " DOC_OPEN AND NOT DELETED() "
SELECT DOC_DESCR, DOC_EXEC, DOC_CLASS, ;
DOC_SINGLE, DOC_NOSHOW, ;
DOC_GO, DOC_NAV, ;
DOC_WRAP, ALT_EXEC, DOC_TYPE, APP_META_FAVE_ID AS DOC_ID ;
FROM (lcTable) ;
WHERE &lcConditions ;
INTO ARRAY THIS.aDocuments
* this is for a startup form, and picking favorites, using
* all metatable's document items, both reports and forms,
* so array fits both types of documents' usage
* above is form's use of metatable fields + one (doc_type) + ID field or expression
* below is report's use of fields (favorites/startup has to use both)
* report's use of fields:
* SELECT DOC_DESCR, DOC_EXEC, ;
* DOC_WRAP, ALT_EXEC ;
* FROM (tcMetaTableName) ;
* WHERE DOC_TYPE = PJX_META_DOC_REPORT_TYPE ;
* &lcConditions ;
* AND NOT DELETED() ;
* INTO ARRAY THIS.aDocuments
STORE _TALLY TO liTally, liDocs
ENDIF
ENDIF
liFaves = ALINES(laFavorites,THIS.oApp.cCurrentUserFavoriteIDs,.T.)
IF (liTally # 0)
FOR liDocument = 1 TO liTally
THIS.aDocuments[liDocument,11] = ALLTR(THIS.aDocuments[liDocument,11])
IF ASCAN(laFavorites,;
THIS.aDocuments[liDocument,11]) > 0
IF THIS.lNew
THIS.aDocuments[liDocument,1] = ;
FAVORITEPICKER_PICKED_LOC + ;
THIS.aDocuments[liDocument,1]
liTally = liTally - 1
* show as disabled items already
* in the user table as favorites
ENDIF
ENDIF
ENDFOR
ENDIF
IF (liFaves # 0)
* if a favorite is a document on disk,
* rather than something from the metatable,
* add it to the list,
* disabled if we are in New,
* enabled otherwise
FOR EACH lcDocument IN laFavorites
IF NOT EMPTY(lcDocument) AND ;
ASCAN(THIS.aDocuments,lcDocument) = 0 AND ;
FILE(lcDocument)
liTally = liTally + 1
liDocs = liDocs + 1
DIME THIS.aDocuments[liDocs,11]
THIS.aDocuments[liDocs,1] = ALLTR(UPPER(lcDocument))
IF THIS.lNew
THIS.aDocuments[liDocs,1] = FAVORITEPICKER_PICKED_LOC + THIS.aDocuments[liDocs,1]
ENDIF
ENDIF
ENDFOR
ENDIF
If llExactSet
SET EXACT OFF
ENDIF
IF THIS.lSorted
ASORT(THIS.aDocuments)
ENDIF
IF liDocs = 0 AND (THIS.lNew AND THIS.lAllowFileBrowsing)
* make sure list doesn't look stupid
THIS.aDocuments[1,1]=""
ENDIF
RETURN (liTally # 0) OR ;
(THIS.lNew AND (THIS.lAllowFileBrowsing OR liDocs # 0))
ENDPROC
PROCEDURE execdocument
LPARAMETERS tcFile
* if a filename has been sent here,
* we're browsing/picking directly
* otherwise, we're working off the documents array
LOCAL liRow, lcExt, lcFile, lcStatement, ;
laFavorites[1], ;
llDocumentFromDisk, llExactSet
liRow = THIS.lstDocuments.Value
IF VARTYPE(tcFile) # "C" AND ;
(EMPTY(THIS.aDocuments[liRow,1]) OR ;
NOT BETWEEN(liRow,1,ALEN(THIS.aDocuments,1)))
RETURN
ENDIF
IF VARTYPE(tcFile) = "C"
lcFile = UPPER(ALLTRIM(tcFile))
lcExt = JUSTEXT(lcFile)
IF INLIST(lcExt,"SCT","LBT","FRT")
lcFile = LEFT(lcFile,LEN(lcFile)-1)+"X"
lcExt = LEFT(lcExt,LEN(lcExt)-1)+"X"
ENDIF
IF NOT FILE(lcFile)
THIS.oApp.FileNotFoundMsgBox(lcFile)
RETURN
ENDIF
llDocumentFromDisk = .T.
ELSE
IF LEFT(THIS.aDocuments[liRow,1],FAVORITEPICKER_PICKED_LEN ) = ;
FAVORITEPICKER_PICKED_LOC
* we're removing a document
* we've been called from
* doubleclick on list or something,
* so let's toggle:
THIS.RemoveDocument()
RETURN
ENDIF
IF THIS.lNew
lcFile = THIS.aDocuments[liRow,11]
THIS.aDocuments[liRow,1] = ;
FAVORITEPICKER_PICKED_LOC +THIS.aDocuments[liRow,1]
ELSE
* is this a document from disk instead
* of a metatable entry?
* documents from disk use only
* the first column of the array
IF EMPTY(THIS.aDocuments[liRow,11])
lcFile = THIS.aDocuments[liRow,1]
llDocumentFromDisk = .T.
lcExt = JUSTEXT(lcFile)
ENDIF
ENDIF
ENDIF
IF THIS.lNew
* we have a document to add to the
* list. Is it from the metatable or disk?
* and is it already there?
IF (NOT EMPTY(lcFile))
ALINES(laFavorites,THIS.oApp.cCurrentUserFavoriteIDs,.T.)
llExactSet = (SET("EXACT") = "OFF")
IF llExactSet
SET EXACT ON
ENDIF
IF (ASCAN(laFavorites,lcFile) = 0)
IF llDocumentFromDisk
liRow = ALEN(THIS.aDocuments,1)
IF VARTYPE(THIS.aDocuments[liRow,1]) = "C" AND ;
(NOT EMPTY(THIS.aDocuments[liRow,1]))
liRow = liRow + 1
DIME THIS.aDocuments[liRow,11]
ENDIF
THIS.aDocuments[liRow,1] = FAVORITEPICKER_PICKED_LOC +lcFile
ENDIF
THIS.lstDocuments.Requery()
THIS.lstDocuments.Value = liRow
THIS.RefreshFavoriteIDs(lcFile)
ELSE
MESSAGEBOX(lcFile+;
CHR(13)+CHR(13)+ ;
FAVORITEPICKER_DOC_ALREADY_LOC, ;
48,THISFORM.oApp.cCaption)
ENDIF
IF llExactSet
SET EXACT OFF
ENDIF
ENDIF
ELSE
IF llDocumentFromDisk
THIS.oApp.DoFile(lcFile)
ELSE
DO CASE
CASE NOT EMPTY(THIS.aDocuments[liRow,9]) && alt-exec
lcStatement = ALLTR(THIS.aDocuments[liRow,9])
&lcStatement
CASE THIS.aDocuments[liRow,8] && wrapped
DO (ALLTRIM(THIS.aDocuments[liRow,2]))
OTHERWISE && report or form??
IF ALLTR(THIS.aDocuments[liRow,10]) = PJX_META_DOC_REPORT_TYPE
THIS.oApp.DoReport(ALLTRIM(THIS.aDocuments[liRow,2]), ;
ALLTRIM(THIS.aDocuments[liRow,1]))
ELSE
THIS.oApp.DoForm(ALLTRIM(THIS.aDocuments[liRow,2]), ;
ALLTRIM(THIS.aDocuments[liRow,3]), ;
THIS.aDocuments[liRow,4], ;
THIS.aDocuments[liRow,5], ;
THIS.aDocuments[liRow,6], ;
THIS.aDocuments[liRow,7])
ENDIF
ENDCASE
ENDIF
ENDIF
ENDPROC
PROCEDURE Init
LPARAMETERS toApp, tlAdd
LOCAL laTemp[1], llReturn
THIS.lNew = tlAdd
THIS.oApp = toApp
ASSERT TYPE("toApp.cMetaTable") = "C" AND ;
ACLASS(laTemp,toApp) > 0 AND ;
ASCAN(laTemp,"_APPLICATION") > 0 ;
MESSAGE DOCUMENTPICKER_NO_APP_LOC
* override of some document picker stuff...
* favorites can work without a
* registered document table or a list at all...
DO CASE
CASE NOT THIS.FillDocumentsArray(toApp.cMetaTable)
IF THIS.lAllowFileBrowsing
LOCAL lcFile, lcWaitMessage
THIS.lNew = tlAdd
IF tlAdd
lcWaitMessage = FAVORITEPICKER_CAPTION_ADD_LOC
ELSE
lcWaitMessage = FAVORITEPICKER_CAPTION_START_LOC
ENDIF
WAIT WINDOW NOWAIT ;
LEFT(lcWaitMessage, 250)+"..."
lcFile = GETFILE()
WAIT CLEAR
IF (NOT EMPTY(lcFile)) AND FILE(lcFile)
THIS.ExecDocument(lcFile)
ENDIF
ELSE
MESSAGEBOX(DOCUMENTPICKER_NO_DOCUMENTS_LOC, ;
MB_ICONEXCLAMATION, ;
toApp.cCaption)
ENDIF
THIS.oApp = .NULL.
RETURN .F.
CASE ALEN(THIS.aDocuments,1) = 1 AND ;
NOT (tlAdd OR THIS.lAllowFileBrowsing)
THIS.lstDocuments.RowSource = "THISFORM.aDocuments"
THIS.lstDocuments.Value = 1
THIS.ExecDocument()
THIS.oApp = .NULL.
RETURN .F.
OTHERWISE
THIS.lstDocuments.RowSource = "THISFORM.aDocuments"
THIS.lstDocuments.Value = 1
IF tlAdd
THIS.Caption = FAVORITEPICKER_CAPTION_ADD_LOC
THIS.cmdOK.Caption = FAVORITEPICKER_ADDBUTTON_LOC
THIS.cmdCancel.Caption = FAVORITEPICKER_CLOSEBUTTON_LOC
THIS.cmdOK.Default = .F.
ELSE
THIS.Caption = FAVORITEPICKER_CAPTION_START_LOC
THIS.cmdCancel.Top = THIS.cmdRemove.Top
STORE .F. TO THIS.cmdRemove.Visible, ;
THIS.cmdRemove.Enabled
ENDIF
IF NOT THIS.lAllowFileBrowsing
STORE .F. TO THIS.cmdBrowse.Visible, ;
THIS.cmdBrowse.Enabled
ENDIF
ENDCASE
ENDPROC
PROCEDURE setdialogsizeparameters
DODEFAULT()
THIS.MinHeight = MAX(THIS.MinHeight, ;
THIS.cmdCancel.Top + THIS.cmdCancel.Height + ;
THIS.cmdBrowse.Height + ;
THIS.lstDocuments.Top * 2)
THIS.Height = MAX(THIS.Height, THIS.MinHeight)
THIS.MaxHeight = MAX(THIS.Height, THIS.MaxHeight)
ENDPROC
PROCEDURE lstDocuments.When
THIS.InteractiveChange()
ENDPROC
PROCEDURE lstDocuments.InteractiveChange
THISFORM.RefreshButtons()
ENDPROC
PROCEDURE lstDocuments.ProgrammaticChange
THIS.InteractiveChange()
ENDPROC
PROCEDURE lstDocuments.DblClick
THISFORM.ExecDocument()
IF NOT THISFORM.lNew
THISFORM.Release()
ENDIF
ENDPROC
PROCEDURE cmdOK.Click
IF THISFORM.lNew
THISFORM.ExecDocument()
ELSE
DODEFAULT()
ENDIF
ENDPROC
5PROCEDURE Timer
IF THIS.Parent.lNoInterrupt
* shouldn't happen
RETURN
ENDIF
DODEFAULT()
THIS.Parent.RefreshToolbars()
LOCAL loMediator, loForm, llBusy
IF TYPE("_SCREEN.ActiveForm") = "O"
loForm = _SCREEN.ActiveForm
ELSE
STORE .F. TO THIS.Parent.lGoMenu, THIS.Parent.lNavToolbar
RETURN
ENDIF
IF TYPE("loForm.Parent") = "O" AND ;
INLIST(loForm.Parent.WindowType,WINDOWTYPE_MODAL, WINDOWTYPE_READMODAL)
RETURN
ENDIF
IF loForm.WindowType = WINDOWTYPE_MODAL
RETURN
ENDIF
loMediator = THIS.Parent.GetFormMediatorRef(_SCREEN.ActiveForm)
IF VARTYPE(loMediator) = "O"
THIS.Parent.lGoMenu = loMediator.lGoMenu
THIS.Parent.lNavToolbar = loMediator.lNavToolbar
ELSE
STORE .F. TO THIS.Parent.lGoMenu, THIS.Parent.lNavToolbar
ENDIF
ENDPROC
�PROCEDURE Destroy
DODEFAULT()
THIS.oApp = .NULL.
ENDPROC
PROCEDURE Refresh
LOCAL llActiveEditingControl
IF THIS.lDisabledForModal
RETURN
ENDIF
* .T. TO THIS.cmdNew.Enabled, ;
* THIS.cmdOpen.Enabled, ;
* THIS.cmdHelp.Enabled is already handled
* automatically, now for specific button behavior:
LOCAL ARRAY laTempx[1]
LOCAL liSession
IF TYPE("_SCREEN.ActiveForm") = "O"
WITH _SCREEN.ActiveForm
llActiveEditingControl = (TYPE(".ActiveControl.SelText") = "C")
STORE llActiveEditingControl AND ;
(NOT EMPTY(.ActiveControl.SelLength)) TO ;
THIS.cmdCut.Enabled, THIS.cmdCopy.Enabled
STORE llActiveEditingControl AND ;
(NOT EMPTY(_CLIPTEXT)) TO ;
THIS.cmdPaste.Enabled
ENDWITH
IF VARTYPE(THIS.oApp) # "O"
STORE .F. TO THIS.cmdSave.Enabled, ;
THIS.cmdRevert.Enabled, ;
THIS.cmdPrint.Enabled, ;
THIS.cmdHelp.Enabled
ELSE
liSession = IIF(UPPER(TYPE("_SCREEN.ActiveForm.Parent.BaseClass")) == ;
"FORMSET", _SCREEN.ActiveForm.Parent.DataSessionID, ;
_SCREEN.ActiveForm.DataSessionID)
IF EMPTY(AUSED(laTempx, liSession))
STORE .F. TO THIS.cmdSave.Enabled, ;
THIS.cmdRevert.Enabled, ;
THIS.cmdPrint.Enabled
ENDIF
IF EMPTY(THIS.oApp.cHelpFile)
STORE .F. TO THIS.cmdHelp.Enabled
ENDIF
ENDIF
ELSE
* no active form but may be system window ready for editing
* etc...
STORE .F. TO THIS.cmdSave.Enabled, ;
THIS.cmdRevert.Enabled, ;
THIS.cmdPrint.Enabled
IF VARTYPE(THIS.oApp) # "O" OR EMPTY(THIS.oApp.cHelpFile)
STORE .F. TO THIS.cmdHelp.Enabled
ENDIF
IF NOT EMPTY(WONTOP())
STORE .T. TO THIS.cmdCut.Enabled, ;
THIS.cmdCopy.Enabled
STORE (NOT EMPTY(_CLIPTEXT)) TO ;
THIS.cmdPaste.Enabled
ELSE
STORE .F. TO THIS.cmdCut.Enabled, ;
THIS.cmdCopy.Enabled, ;
THIS.cmdPaste.Enabled
ENDIF
ENDIF
ENDPROC
_�cstartupformclass Form (SCX) which is executed when the application object is shown.
cstartupmenu Menu (MPR) which is executed when the application object is shown.
ccaption Friendly name of the application object.
cicon Icon of the application object.
nformcount Forms collection count for application object.
npixeloffset Number of pixels which offset multiple instances of the same form. Not used in this version, but can provide a useful value for default "margins" for form and object placement.
lcascadeforms Specifies whether multiple forms of the same type are cascaded when a new form is instanced.
lreadevents Enable READ EVENTS within ReadEvents method.
cappfolder Location of application, usually top level file, but sometimes the location of the module that owns the VCX of this application object. Indicates default location of generated system files such as error and user tables.
cdatafolder Not used internally, allows you to maintain a current location for your data or for user-generated files.
cstartuptoolbarclass Standard toolbar instantiated by ShowStartupElements().
cstartuptoolbarclasslib Class library for standard toolbar instantiated by ShowStartupElements(). If empty defaults to same class library as application object.
ilasterror Stores error number of last number, or NULL when cleared.
clastpath Stores SET("PATH") when a readevents-type application starts up, for later restoration.
clastonshutdown Stores ON SHUTDOWN when a readevents-type application starts up, for later restoration.
clastonerror Stores ON ERROR when a readevents-type application starts up, for later restoration.
clastdirectory Stores default directory when a readevents-type application starts up, for later restoration.
creference The var name that the app should declare as its PUBLIC reference and release when it ends.
lrestoredenvironment
cerrorlogtablename Default table name for error log.
cnewopenclass Dialog class instantiated by DoNewOpen().
cnewopenclasslib Class library for dialog class instantiated by DoNewOpen(). If empty defaults to same class library as application object.
laddingnewdocument Application flag a form can check to see whether it should start a new document rather than edit an existing one.
cappfilename Top level filename
lgomenu Specifies whether a navigation menu is currently required.
oframe Reference to MDI frame window in top form applications.
cgomenufile Name of menu to be used when a form entry in the meta table indicates that it should have a navigation menu.
cframeclass Dialog class instantiated by CreateFrame().
cframeclasslib Class library for dialog class instantiated by CreateFrame(). If empty defaults to same class library as application object.
caboutboxclass Name of dialog class instantiated by DoAboutBox()
caboutboxclasslib Class library for dialog class instantiated by DoAboutBox(). If empty defaults to same class library as application object.
chelpfile Name of help file for this application.
coptionsdialogclass Dialog class instantiated by DoOptionsDialog().
coptionsdialogclasslib Class library for dialog class instantiated by DoOptionsDialog(). If empty defaults to same class library as application object.
creportdialogclass Dialog class instantiated by DoReportDialog().
creportdialogclasslib Class library for dialog class instantiated by DoReportDialog(). If empty defaults to same class library as application object.
cauthor "Credits" information.
cimage Image to be used in logos, on the splash screen, etc.
ccompany "Credits" information.
luse_getexpr Determines whether the application -- or the current user -- should use _GETEXPR or the simpler _FilterDialog to enter expressions.
cmetatable Stores the name of the application's metatable.
cerrorviewerclass Dialog class instantiated by DisplayErrorLog().
cerrorviewerclasslib Class library for dialog class instantiated by DisplayErrorLog(). If empty defaults to same class library as application object.
lfindonmultipletables Specifies whether the ShowTableFindDialog will allow the user to switch to different tables in use in the data session.
cformmediatorname Member name the app object looks for when contacting a mediator object on framework-enabled forms.
cstartupmenupopup For non-ReadEvents/Append style app menus, allows the application to release this popup when the app ends.
cstartupmenupad For non-ReadEvents/Append style app menus, allows the application to remove this menu pad when the app ends.
ctrademark "Credits" information.
lnoscreenduringapp Specifies whether screen should not be made visible during the app.
cnavtoolbarclass Toolbar class when a metatable entry calls for a navigation toolbar.
cnavtoolbarclasslib Class library for toolbar class when a metatable entry calls for a navigation toolbar. If empty defaults to same class library as application object.
onavtoolbar Reference to navigation toolbar shared by various forms as indicated in their metatable entries.
lnavtoolbar Specifies whether a navigation toolbar is currently required.
cusertablename Name of user table.
cusertablealias Alias for user table.
luserpreferences Determines whether the user logon and options system is in place, or whether one set of options is set up for the full application.
lfavorites Specifies whether Favorites should be used/shown on a menu in this application.
cstartupformclasslib Class library for dialog class instantiated by DoStartupForm(). If empty defaults to same class library as application object.
ccurrentuser Name of current user as logged on.
cuserloginclass Dialog class instantiated by DoUserLogin().
cuserloginclasslib Class library for dialog class instantiated by DoUserLogin(). If empty defaults to same class library as application object.
iinitialtoolbarposition Indicates how a toolbar should be Docked() when instantiated.
ccopyright "Credits" information.
laboutbox Indicates whether app should display an about box.
lstartupform Specifies whether the app should begin with a "quick start" form.
lstartuptoolbar Specifies whether the app should invoke a toolbar at startup.
icurrentuserlevel Current user's level.
cusertablelevelfield Name of i-type field storing user level.
cusertableidfield Name of c-type field storing user name.
cclasscontainerfilename APP,EXE, or DLL containing the VCX from which this app object was instantiated.
lskiperrorhandling Flag to allow an error number to be stored with no further error handling, for certain brief activities within the app.
cfavoritepopupname Name of popup displaying favorites. Required so the app object can refresh this popup between users or when a user selects new Favorites.
ctextdisplayfont A sample "global user pref", allows users to store a font for display of text such as editboxes. To see it used, see the error log dialog.ApplyAppAttributes. The app gives this value to _outputdialog, applying it to the dialog's cDisplayFontName.
ccurrentuserfavoriteids A delimited string containing IDs of metatable entries that should be included in Favorites list as well as filenames picked by user for inclusions in Favorites list.
clastmackey Stores SET MACKEY when a readevents-type application starts up, for later restoration.
cmackey Supplies the SET MACKEY for the application. Only used in ReadEvents apps.
cmacropopupname Name of popup handling macro sets. Required so the app object can refresh this popup between users, when the user stores a macro set, etc.
cmacrosavefile Stores the (generated) name of an FKY file created on startup of a ReadEvents app, for later restoration.
lusernameiscasesensitive Determines how the user table is searched for a match when a user logs in.
cchangepasswordclass Dialog class instantiated by DoChangePassword().
cchangepasswordclasslib Class library for dialog class instantiated by DoChangePassword(). If empty defaults to same class library as application object.
lusercanchangepassword Determines whether DoChangePassword() will allow the user to change his or her password. A placeholder -- you affect this behavior by using the attached access and assign methods however you decide, for example by user level.
cprojectname Name of a project that should be hidden on startup, for display at the end of the application. For convenience (so you don't inadvertently try to work on an app component while it's running, especially in non-ReadEvents or top form apps).
lsavedenvironment
lreleaseunusedmenuitems Indicates whether some menu items specific to application state should be released rather than disabled, when the MPR executes, if they are inappropriate. Used by framework's template menus.
lenableformsatruntime Indicates whether DoForm() will dynamically adds base mediator objects to forms at runtime if they don't already have them.
cmediatorclass Class used for dynamic form enabling at runtime (see lEnableFormsAtRuntime.) Should always contain a class descended from _formmediator in _FRAMEWK.VCX.
cmediatorclasslib Classlibrary used for dynamic form enabling at runtime (see lEnableFormsAtRuntime). Should always be the name of the library containing the class specified in _application.cMediatorClass.
cmediatedsessionclass Name of class used to instance a framework-enabled datasession object, defaults to "_MediatedSession"
cmediatedsessionclasslib Classlib containing cMediatedSession class, defaults to "_FRAMEWK.VCX"
csessionclass Default class definition name to pass to any _MediatedSession collaborator. If empty will be filled by member's cSessionClass property after successful instantiation.
csessionclasslib Default programmatic class definition filename to pass to any _MediatedSession collaborator. If empty will be filled by member's cSessionClassLib property after successful instantiation.
iqueryunloadresultfornonvisualsessions Used by ReleaseSessions method -- if 0, reverts, if 1, updates, otherwise asks user for confirm just like forms. Defaults to 0.
lnointerrupt Flag to alert application object that current activity, such as data-session-changing or modal dialogs, should not be interrupted by toolbar-refreshing or other timer-related activity.
*show Sets up visible aspects of the application and, if successful, Activate()s the application, at startup.
*doform Executes an SCX form or instantiates a VCX-based form/formset class.
*doreport Executes an FRX or LBX report form.
*dolabel Executes an LBX label
*domenu Executes an MPR/MPX menu.
*clearevents Clears any pending read events.
*readevents Starts read events mode.
*doprogram Executes a PRG, APP, FXP, or EXE program.
*saveenvironment Saves environment settings.
*restoreenvironment Restores environment settings.
^aforms[1,0]
*filenotfoundmsgbox Displays a File Not Found messagebox.
*beforereadevents Method executed before READ EVENTS is executed when ReadEvents is called.
*onshutdown Occurs when the user attempts to exit Visual FoxPro by pressing _SCREEN close button or the close button on a framework top form MDI frame.
*releaseforms Release all application forms from memory and the forms collection.
*releaseform Release specific or active form and manages forms collection.
^aformnames[1,0] Collection of strings (for SCXs, file names, for VCXs, file and class names), enabling the application object to uniquely identify form and formset classes currently instantiated and referenced in its aForms() collection.
*resetformscollection Reset arrays and counters of forms collection.
*refreshformscollection Refresh forms collection arrays and counters.
*refreshtoolbars Called by member timer and at any other time you need to synch toolbars to current environment. Iterates through toolbar collection calling Refresh methods so that it doesn't assume any tbr class.
*dotoolbar Parallel to DoForm. Maintains toolbars collection. Pass a toolbar class library & class name. Uses THIS.iInitialToolbarPosition to set position.
*releasetoolbar Parallel to ReleaseForm. Maintains toolbars collection.
*releasetoolbars Parallel to ReleaseForms. Iterates through toolbar collection
*releasecollaborators Manages release of collaborative objects
*createcollaborators A startup hook to allow you to call the AddCollaborators() method during initialization procedures
*instantiate RETURNs object reference -- pass classname, classlib, APP/EXE if library is external, string of delimited parameters to be macro-executed. If being added as a member, also pass container ref plus membername if it's not OK to use unique/generated name.
^acollaborators[1,0] Collection of object references for members that cannot be contained by custom application object, such as forms
*getcurrenttopformref Wraps cusWindowHandler's GetCurrentTopFormRef() method.
*iserrorfree RETURNs ISNULL(THIS.iLastError) -- See THIS.ClearLastError().
*clearlasterror Sets _application.iLastError to NULL, called before operations which may require an error to be tested on conclusion. Abstracted for easy overriding in subclasses.
*getresourcefilename Pass: tcSource, tcExtList, tlSuppressMsg, looks for file with any of extensions in list, in order, to RETURN the appropriate pathed name ("" if none, with File Not Found msg unless tlSuppressMsg). Ignores tcExtlList if explicit ext passed in tcSource.
*setenvironment Sets up certain global attributes, such as screen or frame characteristics, ON SHUTDOWN, ON ERROR, and macros for use during the life of the app. Does *nothing* if not a ReadEvents app.
*donewopen Invokes cNewOpenClass
*displayerrorlog Instantiates cErrorViewerClass dialog
*beforedoform Hook in DoForm method, allowing last-minute manipulation of environment before the form class or object is instantiated.
*querydatasessionunload Wraps cusDataSession member's Queryunload() method.
*setappfilenames Get top-level filename, and also get the name of the module (app or exe) that owns this particular object, for SET CLASSLIB ... IN... default usage, which may be different, especially in modular and non-ReadEvents apps.
^atoolbars[1,2] Parallel to aForms[]
*querydatachanged Wraps cusDataSession member's DataChanged() method.
*dataupdate Wraps cusDataSession's Update() method.
*datarevert Wraps cusDataSession's Revert() method.
*ccaption_access
*ccaption_assign
*cicon_assign
*ilasterror_access
*cdatafolder_assign
*creference_assign
*cappfolder_access Determines the application folder, usually the folder containing the running APP or EXE. However where a temporary wrapper program or ON... command has been used to instantiate the application, this value may be the location of the VCX
*lgomenu_assign
*doreportdialog Invokes cReportDialogClass
*doaboutbox Invokes cAboutBoxClass dialog class
*dooptionsdialog Invokes cOptionsDialogClass
*docontextmenu Manages context menus and context menu collection
*releasecontextmenu Manages release of a single context menu and the context menu collection.
*dohelp Executes help of types .hlp, .dbf, .htm, or .chm
*domodaldialogclass Instantiates a modal dialog, applying application attributes as appropriate. RETURNs a form reference, if NOSHOW.
*cascadeform For backwards compatibility, not used
*cascadeall Wraps cusWindowHandler's CascadeFormInstances() method, passing no argument.
*dosort Wraps cusTableSort's DoSort() method.
*gotop Wraps cusTableNav member's GoTop() method.
*gobottom Wraps cusTableNav member's GoBottom() method.
*gonext Wraps cusTableNav member's GoNext() method.
*goprevious Wraps cusTableNav member's GoPrevious() method.
*showtablegotodialog Instantiates _GoToDialog class.
*showtablefinddialog Instantiates _FindDialog class, in advanced or standard mode, depending on THIS.lFindOnMultipleTables value. (Advanced mode allows the user to choose between all open aliases in a data session.)
*showtablesetfilterdialog Instantiates _FilterExpr class, in advanced or standard depending on THIS.lUseGetExpr value. (Standard mode uses _FilterDialog as a subsidiary dialog, Advanced uses _GETEXPR.)
*releasecontextmenus Releases all context menus.
*setdatasessionenvironment Sets a specified data session to a default set of SETs, which you place in the SetDataSessionSets for use by any form or session you want.
*setdatasessionsets Contains a default list of data-session-related SETs so you can easily invoke this list within any form or datasesion.
*cimage_assign Verifies the availability of an image file for use as the application logo
*cerrorlogtablename_access adds cAppFolder information to the error log table name, so the default error DBF is always in one place.
*addcollaborator Instantiate objects that can't be part of application container and add a reference to collaborators collection for maintenance. See SetScreenAttributes() for examples.
*getformmediatorref Returns a reference to a form's mediator object, or NULL if the form is not framework-enabled with a mediator object.
*formisframeworkenabled Reports the existance of a mediator object on a form. Uses THIS.cFormMediatorName to determine the naming convention for this object on the form.
*createframe Creates the MDI frame for top form applications.
*releaseframe Releases top form/MDI frame.
*setscreenattributes Sets up screen attributes, including visibility, caption and icon, and system toolbars, for a read events app that does not take place in its own topform MDI frame.
*setframeattributes Applies application cCaption and cIcon to the MDI frame, as well as the appropriate backcolor for an MDI frame window.
*showstartupelements Sets up top form MDI frame, startup menu, startup toolbar, screen attributes, and startup form.
*activatesystemwindow Activates a system window whose name has been passed, in _SCREEN, even if _SCREEN wasn't previously visible (for debugging, does nothing in runtime)
*domenuiteminframe Not currently used, wraps cusWindowHandler method
*lnavtoolbar_assign
*gotorecord Wraps cusTableNav member's GoToRecord() method.
*getcurrentalias Wraps the cusTableNav member's GetCurrentAlias() method.
*dotableoutput Looks at the current form/alias and invokes the _outputdialog class appropriately for a table. Scope 1 or all. Hooks mediator's PrepareOutputAlias() and CleanupOutputAlias(), for framework-enabled forms, and app.SetHTMLClass/SetHTMLStyleID for GENHTML.
*cusertablename_access
*cusertablealias_assign
*setcurrentuser Finds the current user and sets up the app to deal with the current user (permissions, options, favorites, and macros may all change per user).
*dostartupform Instantiates cStartupFormClass dialog
*iinitialtoolbarposition_assign
*caboutboxclass_access Synchronizes classname value with lAboutBox value
*cstartupformclass_access Synchronizes classname value with lStartupForm value
*cstartuptoolbarclass_access Synchronizes classname value with lStartupToolbar value
*dodocumentpickerdialog Invokes all the dialogs descending from the _documentpicker dialog superclass
^acontextmenus[1,4] Manages context menus invoked by the application object.
*setuserpermissions Abstract in the base. Called when a new user logs on. Designed to use iCurrentUserLevel property, derived from user table, to maintain groups. Menu items would be added/substracted/enabled/disabled based on group level at this time.
*seekcurrentuser This method finds the current user using an exact match (case sensitivity depends on THIS.lUserNameIsCaseSensitive).
*createusertable Creates and indexs user table when it does not exist. Abstracted for easy editing. The app expects this table to have 1 c-type field, with its name in the cUserTableIDField property, and 1 i-type field, its name in cUserTableLevelField.
*douserlogin Invokes cUserLoginClass dialog. Returns (NOT EOF(THIS.cUserTableAlias)) to indicate success at locating a user.
*filluseroptionsarray Moves the user table's UserOpts contents to aCurrentUserOpts. Array has 4 columns: property name, value, toggle property or SET, datasession or global attribute
*applyuseroptsforsession Applies datasession-specific options a form object and its session environment.
^acurrentuseropts[1,4] Holds user preferences for use globally (by the app object and global SETs) or in a data session (by a form or formset object and data-session-specific SETs).
*seekdefaultuser This method finds a record with a blank user name where default options and favorites are stores, for use when defining a new user or when user logins and separate user profiles are not required.
*applyglobaluseroptions Applies global (non-datasession-specific) options to the _application object and environment. Where user login and preferences are not used, applies a single set at startup -- with user login and preferences, applies to each user login.
*getuseroptionsetting Takes option name and array (usually aCurrentUserOpts) and returns current value for that option, NULL if not found.
*purgeerrorlog Zaps current error log with appropriate confirmation and checks.
*exporterrorlog Invokes _outputdialog class to allow output of error log information.
*refreshfavoritepopup DEFINEs BARs for Favorites menu popup using THIS.cCurrentUserFavoriteIDs.
*ctextdisplayfont_assign
*seekmetatablefavoriteid Finds a record in the meta table using an identification specified in #DEFINE APP_META_FAVE_ID in _FRAMEWK.H. Override this method if you decide to use a more sophisticated method of identifying records in the metatable!
*setmacros Saves and restores a set of macros using the user table. Synchronizes enabling of bars on the macro-handling popup, using THIS.cMacroPopupName, depending on current set of user macros.
*setcurrentuserfavoriteids Saves and restores THIS.cCurrentUserFavoriteIDs information to UserFave memo field in user table. This memo field also contains date information, so user can opt to clear favorites list if metatable has changed since user has identified favorites.
*dofile Executes files, channelling known FoxPro-type files to appropriate application Do... methods, and files of unknown types through Windows API
*clearfavorites Called by Favorites menu item, to confirm "zap" of user favorites and invoke SetCurrentUserFavoriteIDs mechanism.
*storepassword Stores the encrypted value of a new password to the current record in the user table.
*createstoredpassword Creates an encrypted value of a password. Separated from StorePassword() for easy replacement of its simple algorithm. Algorithms in CreateStoredPassword and CheckValueAgainstStoredPassword should match.
*checkpassword Sends a passed value and a stored value from the current user information to CheckValueAgainstStoredPassword for verification.
*checkvalueagainststoredpassword Compares a current password entry against an encrypted stored entry. Separated from CheckPassword so its simple algorithm can be replaced as necessary. Algorithms in CreateStoredPassword and CheckValueAgainstStoredPassword should match.
*lusercanchangepassword_access
*lusercanchangepassword_assign
*dochangepassword Invokes cChangePasswordClass dialog class
*handleprojectwindow Hides a project with the name stored in THIS.cProjectName on startup, if it is showing, and restores it when the app object Destroys.
*doformnoshow Executes an SCX form or instantiates a VCX-based form/formset class, without Showing it, and returning a reference to the form or formset instantiated.
*sethtmlstyleid Abstract. Takes parameters tcSource (report form or alias/table), tlTable, so you can decide what HTMLClass is appropriate. Passed to GENHTML via _outputdialog attributes.
*sethtmlclass Abstract. Takes parameters tcSource (report form or alias/table), tlTable, so you can decide what HTMLClass is appropriate. Passed to GENHTML via _outputdialog attributes.
*activate Makes the application active
*activateforminframe Takes a form or toolbar reference and fixes it to appear in top form "frame" even if its ShowWindow property was 0
*createformmediator Adds a app mediator object to a form
*validatemetatable Ensures that a table contains a valid and available table for documents registry. Validates THIS.cMetatable, if used, on startup.
*addmediatedsession Creates a data session with a mediator object attached, referenced in the aCollaborators collection, returns a reference to this framework-enabled session.
*releasesessions Releases all mediated datasession collaborator objects
*lnointerrupt_assign
|Width = 154
Height = 28
BorderWidth = 0
Visible = .F.
cstartupformclass =
cstartupmenu =
ccaption =
cicon =
nformcount = 0
npixeloffset = 22
lreadevents = .T.
cappfolder =
cdatafolder =
cstartuptoolbarclass =
cstartuptoolbarclasslib =
ilasterror = .NULL.
clastpath =
clastonshutdown =
clastonerror =
clastdirectory =
creference =
cerrorlogtablename = ("AppError")
cnewopenclass =
cnewopenclasslib =
cappfilename =
oframe = .NULL.
cgomenufile = ("GO_APP")
cframeclass =
cframeclasslib =
caboutboxclass =
caboutboxclasslib =
chelpfile =
coptionsdialogclass =
coptionsdialogclasslib =
creportdialogclass =
creportdialogclasslib =
cauthor =
cimage =
ccompany =
cmetatable =
cerrorviewerclass =
cerrorviewerclasslib =
cformmediatorname = ("app_mediator")
cstartupmenupopup =
cstartupmenupad =
ctrademark =
cnavtoolbarclass =
cnavtoolbarclasslib =
onavtoolbar = .NULL.
cusertablename = ("AppUser")
cusertablealias =
lfavorites = .T.
cstartupformclasslib =
ccurrentuser =
cuserloginclass =
cuserloginclasslib =
iinitialtoolbarposition = 0
ccopyright =
laboutbox = .T.
lstartupform = .T.
lstartuptoolbar = .T.
icurrentuserlevel = 0
cusertablelevelfield = ("UserLevel")
cusertableidfield = ("UserName")
cclasscontainerfilename = ("")
cfavoritepopupname =
ctextdisplayfont = ("Courier New")
ccurrentuserfavoriteids = .NULL.
clastmackey =
cmackey = ("ALT-F10")
cmacropopupname =
cmacrosavefile =
cchangepasswordclass =
cchangepasswordclasslib =
lusercanchangepassword = .T.
cprojectname =
lenableformsatruntime = .T.
cmediatorclass = ("_FormMediator")
cmediatorclasslib = ("_FRAMEWK.VCX")
cmediatedsessionclass = ("_MediatedSession")
cmediatedsessionclasslib = ("_FRAMEWK.VCX")
csessionclass =
csessionclasslib =
iqueryunloadresultfornonvisualsessions = 0
cversion =
Name = "_application"
��PROCEDURE show
LOCAL llSuccess
llSuccess = THIS.SaveEnvironment()
IF llSuccess
llSuccess = THIS.ValidateMetaTable()
ENDIF
IF llSuccess
llSuccess = THIS.CreateFrame()
ENDIF
IF llSuccess AND NOT EMPTY(APP_LOADING_LOC)
IF VARTYPE(THIS.oFrame) = "O"
THIS.oFrame.Show()
ENDIF
WAIT WINDOW NOWAIT ;
LEFT(APP_LOADING_LOC,254)
ENDIF
IF llSuccess
llSuccess = THIS.ResetFormsCollection()
ENDIF
IF llSuccess
llSuccess = THIS.CreateCollaborators()
ENDIF
IF llSuccess
llSuccess = THIS.HandleProjectWindow()
ENDIF
IF llSuccess
llSuccess = THIS.SetEnvironment()
ENDIF
IF llSuccess
THIS.cUserTableAlias = JUSTSTEM(THIS.cUserTableName)
llSuccess = NOT EMPTY(THIS.cUserTableAlias)
ENDIF
IF llSuccess
llSuccess = THIS.SetCurrentUser()
ENDIF
IF llSuccess
llSuccess = THIS.ShowStartupElements()
ENDIF
WAIT CLEAR
IF llSuccess
llSuccess = THIS.Activate()
ENDIF
THIS.RestoreEnvironment()
RETURN llSuccess
ENDPROC
PROCEDURE doform
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow, tlGoMenu, tlNavToolbar
ASSERT EMPTY(tcFileName) OR VARTYPE(tcFileName) = "C"
ASSERT EMPTY(tcClass) OR VARTYPE(tcClass) = "C"
LOCAL lcFileName,lcClass,lnCount, lcFormName,lnFormCount, loMediator, ;
loForm, loFormMember, lNeedReActivateFormset, ;
llFormSet,llEnabledFormFound
*&* VFP 5 framework cascade code also used:
*&* LOCAL lnTop,lnLeft,loForm2,lcName
THIS.ClearLastError()
lcFileName=ALLTRIM(tcFileName)
lcClass=IIF(VARTYPE(tcClass)="C",LOWER(ALLTRIM(tcClass)),"")
IF EMPTY(lcClass)
lcFileName = THIS.GetResourceFileName(lcFileName,".scx")
ELSE
lcFileName = THIS.GetResourceFileName(lcFileName,".vcx")
ENDIF
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
IF tlNoMultipleInstances
FOR lnCount = 1 TO THIS.nFormCount
IF THIS.aFormNames[lnCount]==lcFormName AND ;
VARTYPE(THIS.aForms[lnCount])="O"
IF UPPER(THIS.aForms[lnCount].BaseClass)== "FORM" AND ;
THIS.aForms[lnCount].WindowState = 1 && minimized
THIS.aForms[lnCount].WindowState = 0
ENDIF
IF VARTYPE(THIS.oFrame) = "O"
THIS.oFrame.Show()
ENDIF
THIS.aForms[lnCount].Show
RETURN .F.
ENDIF
ENDFOR
ENDIF
* this is a hook, nothing in it
IF NOT THIS.BeforeDoForm(tcFileName,tcClass,tlNoMultipleInstances,tlNoShow, tlGoMenu, tlNavToolbar)
RETURN .F
ENDIF
THIS.RefreshFormsCollection
THIS.nFormCount=THIS.nFormCount+1
DIMENSION THIS.aForms[THIS.nFormCount],THIS.aFormNames[THIS.nFormCount]
THIS.aFormNames[THIS.nFormCount]=lcFormName
IF VARTYPE(THIS.oFrame) = "O"
THIS.oFrame.Show()
ENDIF
IF NOT EMPTY(lcClass)
THIS.aForms[THIS.nFormCount] = ;
THIS.Instantiate(lcClass, lcFileName)
ELSE
DO FORM (lcFileName) NAME THIS.aForms[THIS.nFormCount] LINKED NOSHOW
ENDIF
lnFormCount=THIS.nFormCount
THIS.RefreshFormsCollection
IF THIS.nFormCount>=lnFormCount
* success so far,
* let's enable and position the new object(s)
* and then show it/them if we're supposed to:
loForm = THIS.aForms[THIS.nFormCount]
llFormSet = (UPPER(loForm.BaseClass) == "FORMSET")
IF llFormSet
FOR EACH loFormMember IN loForm.Forms
IF UPPER(loFormMember.BaseClass) == "FORM"
* skip toolbars
loMediator = THIS.GetFormMediatorRef(loFormMember)
* don't force until we know about all forms
* in set; see note below
IF VARTYPE(loMediator) = "O"
loMediator.LoadApp(THIS.cReference)
loMediator.lGoMenu = tlGoMenu
loMediator.lNavToolbar = tlNavToolbar
llEnabledFormFound = .T.
ENDIF
ENDIF
ENDFOR
ELSE
loMediator = THIS.GetFormMediatorRef(THIS.aForms[THIS.nFormCount], ;
THIS.lEnableFormsAtRunTime)
* second param will force creation
* if lEnableFormsAtRuntime is on
IF VARTYPE(loMediator) = "O"
loMediator.LoadApp(THIS.cReference)
loMediator.lGoMenu = tlGoMenu
loMediator.lNavToolbar = tlNavToolbar
ENDIF
ENDIF
* if any forms in the formset are enabled,
* some may have been left un-enabled by
* intent, so that they don't get icon or whatever.
* So if even one form in the formset is enabled
* we won't dynamically enable the rest. That's
* why the below FOR/ENDFOR has to be done separately
* from the above attempt to load mediators in a formset:
IF llFormSet AND ;
(NOT llEnabledFormFound) AND ;
THIS.lEnableFormsAtRunTime
THIS.ClearLastError()
FOR EACH loFormMember IN loForm.Forms
IF UPPER(loFormMember.BaseClass) == "FORM"
loMediator = THIS.CreateFormMediator(loFormMember)
IF VARTYPE(loMediator) = "O"
loMediator.LoadApp(THIS.cReference)
loMediator.lGoMenu = tlGoMenu
loMediator.lNavToolbar = tlNavToolbar
ENDIF
ENDIF
ENDFOR
ENDIF
IF NOT tlNoShow
IF VARTYPE(THIS.oFrame) # "O"
IF llFormSet
* there is something screwy about
* formsets when some forms may be showwindow 0
* and others 1, even in _SCREEN, so it's
* best to show each form separately:
FOR EACH loFormMember IN loForm.Forms
loFormMember.Show()
ENDFOR
ELSE
loForm.Show()
ENDIF
ELSE
* seems as though if even one form in
* the formset is ShowWindow = 0,
* then all forms must be brought into the top form
IF llFormSet
FOR EACH loFormMember IN loForm.Forms
IF loFormMember.ShowWindow = 0
lNeedReActivateFormset = .T.
EXIT
ENDIF
ENDFOR
FOR EACH loFormMember IN loForm.Forms
IF lNeedReActivateFormset
THIS.ActivateFormInFrame(loFormMember)
ELSE
loFormMember.Show()
ENDIF
ENDFOR
ELSE
IF loForm.ShowWindow = 0
THIS.ActivateFormInFrame(loForm)
ELSE
loForm.Show()
ENDIF
ENDIF
ENDIF
ENDIF
IF THIS.lCascadeForms AND NOT llFormSet
THIS.CascadeAll(loForm.Name)
*&* this is where VFP framework used THIS.nPixelOffset,
*&* all that code removed but the property might still
*&* be useful somewhere
ENDIF
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE doreport
LPARAMETERS tcFileName, tcDescription, tlModify
ASSERT EMPTY(tcFileName) OR VARTYPE(tcFileName) = "C"
ASSERT EMPTY(tcDescription) OR VARTYPE(tcDescription) = "C"
LOCAL lcFileName
THIS.ClearLastError()
IF (EMPTY(tcFileName) AND NOT tlModify)
RETURN .F.
ENDIF
lcFileName=ALLTRIM(tcFileName)
lcFileName= THIS.GetResourceFileName(lcFileName,".frx .lbx", tlModify)
IF tlModify
* if EMPTY(lcFileName)
* confirm creation, use template?
* else MODIFY
* not yet implemented
MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC, ;
MB_ICONINFORMATION,THIS.cCaption)
ELSE
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
* we can provide output *without* going through the
* user's choices in the dialog at all, simply
* by instantiating an _output object and setting
* its properties rather than going through this dialog
* This is not implemented here, because it
* would definitely require that you set properties,
* as below. Would make sense for a subclass app object
* to have a lWantOutputDialog property which defaults .T.
* If the dialog is not desired, augment the
* standard behavior by looking for developer's
* information -- whether in the metatable or elsewhere
* about destination and options settings.
LOCAL loDialog
loDialog = THIS.DoModalDialogClass("_outputdialog","_reports", .T.)
* note: could add a metatable check here to fill out loDialog.cAlias
* or loDialog.cFieldList, or loDialog.cAddedParams...
* could prefill the destination...
* also note that this dialog doesn't, strictly speaking, have to
* be modal, but we're calling it from a modal dialog (the picker) so
* it seems reasonable to keep it modal here. We could subclass it
* to know how to be a singleton, like the error dialog, instead...
* and automatically know about app attributes, rather than
* using the generic gallery version and adjusting it.
IF VARTYPE(loDialog) = "O"
LOCAL laRecNos[1], laWorkAreas[1], ;
liUsed, liRow, lcAlias
liUsed = AUSED(laWorkAreas)
* Unlike DoTableOutput(), we really
* have no clue in this method what
* workareas might be affected by
* the named report or label form, so
* should take care of all current
* record pointers,
* assuming that any workareas at all
* are affected in the current data
* session.
* Because it has a custom property
* allowing a new alias to be selected
* before output is generated, the
* _output object saves and
* restore current workarea,
* after output is generated -- so
* that (at least) is not an issue here.
* Note also that the report either has its
* own datasession, which has been
* disposed of separately,
* or it takes place in this
* datasession, so no save/restore
* of data sessions should be necessary.
* We will stipulate that any custom
* datasession objects that a report
* might open, and even create a public
* reference to, should not affect the
* environment of the application
* at the time this method was called.
* Any additional aliases open in
* this datasession by the running
* report which are not closed by
* the report will not be affected
* by this code.
* However, see remarks about VUE
* file below.
IF liUsed > 0
DIMENSION laRecNos[liUsed]
FOR liRow = 1 TO liUsed
lcAlias = laWorkAreas[liRow,1]
IF EOF(lcAlias)
laRecNos[liRow] = 0
ELSE
laRecNos[liRow] = RECNO(lcAlias)
ENDIF
ENDFOR
ENDIF
* We must allow for the fact that
* reports can cause errors -- either
* because being invoked in this generic
* way they don't have access to the data
* they need or a UDF causes an error.
THIS.lSkipErrorHandling = .T.
loDialog.Icon = THIS.cIcon
IF EMPTY(tcDescription)
loDialog.Caption = loDialog.Caption+" "+ ;
PROPER(JUSTFNAME(lcFileName))
ELSE
loDialog.Caption = loDialog.Caption + " "+tcDescription
ENDIF
loDialog.cHTMLClass = THIS.SetHTMLClass(tcFileName)
loDialog.cHTMLStyleID = THIS.SetHTMLStyleID(tcFileName)
loDialog.lAddSourceNameToDropDown = .F.
loDialog.cReport = lcFileName
loDialog.lPreventSourceChanges = .T.
loDialog.Show(1)
loDialog = .NULL.
* This "restore" code does *not*
* handle any dropped or changed
* relations that might occur in the the
* FRX or LBX data environment.
* Neither does it handle the possibility
* that a UDF attached to the report
* or label might actually close a table,
* except in the most basic way, and
* there could be many other
* unforeseen changes
* to the current data session that could
* take place in a UDF.
* If complete save and restore behavior
* is desirable, a VUE file
* should be CREATEd earlier to a
* generated tempfile name, SET here
* and then ERASEd, followed by
* record-pointer-restoring code similar
* to the following.
IF liUsed > 0
FOR liRow = 1 TO liUsed
lcAlias = laWorkAreas[liRow,1]
IF NOT USED(lcAlias)
LOOP
ENDIF
IF laRecNos[liRow] = 0
GO BOTTOM IN (lcAlias)
SKIP IN (lcAlias)
ELSE
GO (laRecNos[liRow]) IN (lcAlias)
ENDIF
ENDFOR
ENDIF
IF (NOT THIS.IsErrorFree())
MESSAGEBOX(REPORT_RUN_ERROR_LOC,MB_ICONSTOP,THIS.cCaption)
ENDIF
THIS.lSkipErrorHandling = .F.
ELSE
RETURN .F.
ENDIF
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE dolabel
LPARAMETERS tcFileName, tcDescription
ASSERT EMPTY(tcFileName) OR VARTYPE(tcFileName) = "C"
ASSERT EMPTY(tcDescription) OR VARTYPE(tcDescription) = "C"
LOCAL lcFileName, lcDescription
THIS.ClearLastError()
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName= THIS.GetResourceFileName(lcFileName,".lbx")
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
IF EMPTY(tcDescription)
lcDescription = PROPER(JUSTSTEM(lcFileName))
ELSE
lcDescription = tcDescription
ENDIF
THIS.DoReport(lcFileName, lcDescription)
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE domenu
LPARAMETERS tcFileName, tlUniquePopupNames
ASSERT EMPTY(tcFileName) OR VARTYPE(tcFileName) = "C"
LOCAL lcFileName
THIS.ClearLastError()
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName= THIS.GetResourceFileName(lcFileName,".mpx .mpr")
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
IF VARTYPE(THIS.oFrame) # "O"
DO (lcFileName)
ELSE
DO (lcFileName) WITH THIS.oFrame, THIS.oFrame.cMenuName, tlUniquePopupNames
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE clearevents
THIS.ClearLastError()
IF THIS.lReadEvents
CLEAR EVENTS
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE readevents
THIS.ClearLastError()
IF THIS.lReadEvents
READ EVENTS
ENDIF
ENDPROC
PROCEDURE doprogram
LPARAMETERS tcFileName
ASSERT EMPTY(tcFileName) OR VARTYPE(tcFileName) = "C"
LOCAL lcFileName
THIS.ClearLastError()
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
* the following uses the order of precedence
* to determine the appropriate extension:
* .EXE (executable version)
* .APP (an application)
* .FXP (compiled version)
* .PRG (program)
* this program will run an SPR/SPX or QPR/QPX
* as well as the explicit list that
* VFP will run if you don't supply an extension,
* if you pass the name with an extension.
* This is consistent with the native behavior.
lcFileName= THIS.GetResourceFileName(lcFileName,".exe .app .fxp .prg")
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
IF VERSION(2) = 0 AND ;
UPPER(JUSTEXT(lcFileName)) == "PRG"
IF NOT EMPTY(SYS(2000,lcFileName))
* FXP was not found and PRG is on disk,
* not built in to a file
COMPILE (lcFileName)
lcFileName = FORCEEXT(lcFileName,"FXP")
ELSE
RETURN .F.
ENDIF
ENDIF
DO (lcFileName)
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE saveenvironment
IF THIS.lReadEvents
THIS.cLastOnShutDown = ON("SHUTDOWN")
THIS.cLastPath = SET("PATH")
THIS.cLastOnError = ON("ERROR")
THIS.cLastDirectory = SET("DIRECTORY")
THIS.cLastMacKey = SET("MACKEY")
THIS.cMacroSaveFile = THIS.cAppFolder+"M"+SYS(2015)+".FKY"
THIS.lSkipErrorHandling = .T.
SAVE MACROS TO (THIS.cMacroSaveFile)
THIS.lSkipErrorHandling = .F.
IF EMPTY(THIS.cFrameClass) AND ;
(NOT EMPTY(THIS.cStartupMenu))
PUSH MENU _MSYSMENU
ENDIF
ENDIF
THIS.lSavedEnvironment = .T.
ENDPROC
PROCEDURE restoreenvironment
IF THIS.lRestoredEnvironment OR ;
(NOT THIS.lSavedEnvironment)
RETURN .T.
ENDIF
THIS.ClearLastError()
LOCAL lcTemp
IF THIS.lReadEvents
lcTemp = THIS.cLastOnShutDown
ON SHUTDOWN &lcTemp
lcTemp = THIS.cLastOnError
ON ERROR &lcTemp
lcTemp = THIS.cLastMacKey
SET MACKEY TO &lcTemp
SET PATH TO (THIS.cLastPath)
CD (THIS.cLastDirectory)
IF FILE(THIS.cMacroSaveFile)
CLEAR MACROS && restore macros is additive
RESTORE MACROS FROM (THIS.cMacroSaveFile)
ERASE (THIS.cMacroSaveFile) NORECYCLE
ENDIF
IF EMPTY(THIS.cFrameClass) AND (NOT EMPTY(THIS.cStartUpMenu))
RELEASE MENU _MSYSMENU EXTENDED
POP MENU _MSYSMENU
ENDIF
ENDIF
THIS.lRestoredEnvironment = .T.
RETURN THIS.IsErrorFree()
ENDPROC
PROCEDURE filenotfoundmsgbox
LPARAMETERS tcFileName
IF INLIST(_VFP.Startmode, 0, 4)
MESSAGEBOX(APP_FILE_NOT_FOUND_LOC+":"+;
CHR(13) + CHR(13)+ ;
tcFileName,MB_ICONEXCLAMATION,THIS.cCaption)
ELSE
THIS.cusError.RecordServerError(;
THIS.cCaption+ ": "+APP_FILE_NOT_FOUND_LOC)
ENDIF
ENDPROC
PROCEDURE onshutdown
LPARAMETERS tlCalledFromTopForm
LOCAL llReturn, llInterrupted
DO CASE
CASE INLIST(_VFP.StartMode,1,2,3,5)
* we really shouldn't be here at all
llReturn = .T.
CASE TYPE("_SCREEN.ActiveForm.Parent") = "O" AND ;
_SCREEN.ActiveForm.Parent.WindowType = 1 && modal
* formset overrides form on this one
?? CHR(7)
CASE TYPE("_SCREEN.ActiveForm") = "O" AND ;
_SCREEN.ActiveForm.WindowType = 1
?? CHR(7)
OTHERWISE
llReturn = .T.
ENDCASE
IF llReturn
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
llReturn = (INLIST(_VFP.StartMode,1,2,3,5) OR ;
(MESSAGEBOX(APP_READY_TO_SHUTDOWN_LOC, ;
MB_YESNO+MB_ICONQUESTION, ;
THIS.cCaption)= IDYES))
IF llReturn
llReturn = THIS.ReleaseForms()
ENDIF
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
ENDIF
IF llReturn
IF NOT tlCalledFromTopForm
THIS.Release()
QUIT
ENDIF
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE releaseforms
LPARAMETERS tlForce
LOCAL lnFormCount
THIS.RefreshFormsCollection
IF THIS.nFormCount = 0
RETURN
ENDIF
LOCAL loForm, loMemberForm, liResult, llInterrupted
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
FOR EACH loForm IN THIS.aForms
IF VARTYPE(loForm) # "O" OR ;
NOT INLIST("#"+UPPER(loForm.BaseClass)+"#","#FORMSET#","#FORM#")
LOOP
ENDIF
IF tlForce
THIS.DataRevert(.T.,.F.,loForm,.T.)
ELSE
IF NOT THIS.QueryDataSessionUnload(.F.,loForm)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN .F.
ENDIF
ENDIF
ENDFOR
* only once they have confirmed all possible dataupdating/cancelling
* out of the process can we begin to actually close forms.
DO WHILE THIS.nFormCount>0
lnFormCount=THIS.nFormCount
THIS.ReleaseForm(THIS.aForms[lnFormCount])
IF THIS.nFormCount=lnFormCount
IF NOT tlForce
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN .F.
ENDIF
ENDIF
ENDDO
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
ENDPROC
PROCEDURE releaseform
LPARAMETERS toForm
THIS.ClearLastError()
IF PCOUNT()=0
IF TYPE("_SCREEN.ActiveForm")= "O"
_SCREEN.ActiveForm.Release()
ENDIF
ELSE
IF VARTYPE(toForm)="O"
toForm.Release()
ENDIF
ENDIF
THIS.RefreshFormsCollection
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE resetformscollection
THIS.nFormCount=0
DIMENSION THIS.aForms[1],THIS.aFormNames[1]
THIS.aForms=.NULL.
THIS.aFormNames=""
ENDPROC
PROCEDURE refreshformscollection
LOCAL lnCount,lnCount2
THIS.ClearLastError()
lnCount=1
DO WHILE lnCount<=THIS.nFormCount
IF VARTYPE(THIS.aForms[lnCount])="O"
lnCount=lnCount+1
LOOP
ENDIF
FOR lnCount2 = lnCount TO (THIS.nFormCount-1)
THIS.aForms[lnCount2]=THIS.aForms[lnCount2+1]
THIS.aForms[lnCount2+1]=.NULL.
THIS.aFormNames[lnCount2]=THIS.aFormNames[lnCount2+1]
THIS.aFormNames[lnCount2+1]=""
ENDFOR
THIS.nFormCount=THIS.nFormCount-1
IF THIS.nFormCount=0
EXIT
ENDIF
DIMENSION THIS.aForms[THIS.nFormCount],THIS.aFormNames[THIS.nFormCount]
ENDDO
IF THIS.nFormCount=0
THIS.ResetFormsCollection
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE refreshtoolbars
IF THIS.lNoInterrupt
* shouldn't happen
RETURN
ENDIF
LOCAL loToolbar
FOR EACH loToolbar IN THIS.aToolbars
IF VARTYPE(loToolbar) = "O"
loToolbar.Refresh
ENDIF
ENDFOR
ENDPROC
PROCEDURE dotoolbar
LPARAMETERS tcClassLib, tcClass
ASSERT EMPTY(tcClassLib) OR VARTYPE(tcClassLib) = "C"
ASSERT EMPTY(tcClass) OR VARTYPE(tcClass) = "C"
LOCAL lcClass, loToolbar, lcClassLib, ;
liElement, liIndex, liToolbars, lcToolbarName
IF EMPTY(tcClass)
RETURN 0
ENDIF
IF NOT EMPTY(tcClassLib)
lcClassLib = tcClassLib
ENDIF
lcClass = UPPER(ALLTRIM(tcClass))
liElement = 0
liToolbars = ALEN(THIS.aToolbars,1)
FOR liIndex = 1 TO liToolbars
loToolbar = THIS.aToolbars[liIndex,1]
* do we have a free element to fill?
IF VARTYPE(loToolbar) # "O" OR ;
VARTYPE(THIS.aToolbars[liIndex,2]) # "N" ;
OR THIS.aToolbars[liIndex,2] = 0
liElement = liIndex
LOOP
ENDIF
* is this toolbar already instantiated?
IF UPPER(loToolbar.Class) == lcClass
* increment its counter
THIS.aToolbars[liIndex,2] = THIS.aToolbars[liIndex,2]+1
loToolbar.Show && position or dock here?
RETURN liIndex
ENDIF
ENDFOR
IF liElement = 0
IF VARTYPE(THIS.aToolbars[1,1]) = "O"
liElement = liToolbars+1
ELSE
liElement = 1
ENDIF
DIMENSION THIS.aToolbars[liElement,2]
ENDIF
THIS.aToolbars[liElement,2] = 0
IF VARTYPE(THIS.oFrame) = "O" AND (NOT WONTOP(THIS.oFrame.Name))
THIS.oFrame.Show()
ENDIF
THIS.aToolbars[liElement,1]=THIS.Instantiate(lcClass,lcClassLib)
IF VARTYPE(THIS.aToolbars[liElement,1]) = "O"
IF PEMSTATUS(THIS.aToolbars[liElement,1], "oApp",5)
THIS.aToolbars[liElement,1].oApp = THIS
ENDIF
THIS.aToolbars[liElement,2] = 1
THIS.aToolbars(liElement,1).Dock(THIS.iInitialToolbarPosition)
* THIS.aToolbars[liElement,1].Show() replaced by:
THIS.ActivateFormInFrame(THIS.aToolbars[liElement,1])
ENDIF
RETURN liElement
ENDPROC
PROCEDURE releasetoolbar
LPARAMETERS tiToolbarIndex, tlForce
ASSERT VARTYPE(tiToolbarIndex) = "N" AND ;
BETWEEN(tiToolbarIndex,1,ALEN(THIS.aToolbars,1))
ASSERT VARTYPE(tlForce) = "L"
* this function expects an index from the toolbar array.
* The second parameter normally comes from the
* application releasing all toolbars by ReleaseToolbars()
* or from some other manager releasing all forms of some
* particular type, which represent all the "clients" of
* this toolbar. In either case they would normally
* use the tlForce parameter.
* OTOH you pass can pass the index of the toolbar from
* a single client of the toolbar, such as a form,
* which would have kept a record of this reference when it
* issued an app.dotoolbar() on its load. (DoToolbar returns
* this index). WHen the form releases it wants
* to notify the application that it doesn't need the toolbar
* any more. The client form has no way of knowing
* how many other clients may be using this toolbar, so tlForce
* is not used.
THIS.ClearLastError()
IF PCOUNT()=0 OR EMPTY(tiToolbarIndex)
RETURN .F.
ENDIF
LOCAL liCurrentToolbarRefCount
IF VARTYPE(THIS.aToolbars[tiToolbarIndex,2]) # "N"
liCurrentToobarRefCount = 0
ELSE
liCurrentToolbarRefCount = THIS.aToolbars[tiToolbarIndex,2]
ENDIF
* toolbars don't have a RELEASE method by default,
* and I don't want to assume any particular baseclass,
* which is why I'm using the toolbar collection index
* instead
* release if this is the last reference to this
* toolbar or if we are releasing all toolbars
IF tlForce OR liCurrentToolbarRefCount <= 1
IF VARTYPE(THIS.aToolbars[tiToolbarIndex,1]) = "O"
THIS.aToolbars[tiToolbarIndex,1].Release()
ENDIF
THIS.aToolbars[tiToolbarIndex,1] = .NULL.
THIS.aToolbars[tiToolbarIndex,2] = 0
ELSE
THIS.aToolbars[tiToolbarIndex,2] = liCurrentToolbarRefCount - 1
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE releasetoolbars
LPARAMETERS tlForce
LOCAL liToolbar, liToolbarCount, llInterrupted
THIS.ClearLastError()
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
liToolbarCount = ALEN(THIS.aToolbars,1)
FOR liToolbar = 1 TO liToolbarCount
IF VARTYPE(THIS.aToolbars[liToolbar,1]) = "O" AND ;
NOT THIS.ReleaseToolbar(liToolbar, .T.)
IF NOT tlForce
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN .F.
ENDIF
ENDIF
ENDFOR
THIS.oNavToolbar = .NULL. && can't hurt
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE releasecollaborators
THIS.ClearLastError()
LOCAL liMemberIndex, loMember
FOR liMemberIndex = 1 TO ALEN(THIS.aCollaborators)
loMember = THIS.aCollaborators[liMemberIndex]
IF VARTYPE(loMember) = "O"
IF TYPE("loMember.Parent") = "O"
loMember.Parent.RemoveObject(loMember.Name)
ELSE
* otherwise it was just done with a CREATEOBJECT,
IF PEMSTATUS(loMember,"Release",5)
loMember.Release()
ENDIF
ENDIF
ENDIF
* the following should get rid of the object, if any:
loMember = NULL
THIS.aCollaborators[liMemberIndex] = NULL
ENDFOR
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE createcollaborators
*&* The collaborators mechanism allows for things that can't be
*&* a member of the app container to disappear on cue,
*&* like a background image on screen.
*&* This abstract method gives you a hook to create collaborators
*&* at startup (during the .Show() method), using AddCollaborator(),
*&* but you can scope objects to the application
*&* at any time during the life of the app.
*&* AddCollaborator()'s params match Instantiate()'s.
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE instantiate
LPARAMETERS tcClass, tcClassLib, tcClassContainerFileName, ;
tcParamString, toParent, tcMemberName
*&* new third param for IN support
*&* will default to "" for ReadEvents, THIS.cClassContainerFileName
*&* for non-ReadEvents...
LOCAL loReturn, lcMemberName, lcClass, lcClassLib, lcContainer
ASSERT VARTYPE(tcClass) = "C" AND (NOT EMPTY(tcClass))
ASSERT EMPTY(tcClassLib) OR VARTYPE(tcClassLib) = "C"
ASSERT EMPTY(tcClassContainerFileName) OR ;
(VARTYPE(tcClassContainerFileName) = "C" AND ;
NOT EMPTY(SYS(2000,FULLPATH(tcClassContainerFileName))))
ASSERT EMPTY(tcParamString) OR VARTYPE(tcParamString) = "C"
ASSERT VARTYPE(toParent) = "O" OR EMPTY(toParent)
ASSERT EMPTY(tcMemberName) OR VARTYPE(tcMemberName) = "C"
lcClass = ALLTRIM(tcClass)
DO CASE
CASE VARTYPE(tcClassLib) # "C"
* default library is the app object's
lcClassLib = THIS.ClassLibrary
lcContainer = THIS.cClassContainerFileName
CASE EMPTY(tcClassLib)
* somebody has already SET CLASSLIB
* and passed a null string to indicate this
lcClassLib = ""
lcContainer = ""
OTHERWISE
lcClassLib = ALLTRIM(tcClassLib)
IF VARTYPE(tcClassContainerFileName) = "C"
lcContainer = ALLTRIM(tcClassContainerFileName)
ELSE
IF EMPTY(SYS(2000,lcClassLib)) AND ;
EMPTY(SYS(2000,lcClassLib+".VCX"))
* not on disk, gotta find it somewhere...
* like the product, we are assuming
* that if the extension isn't used
* it's a VCX, not a PRG/FXP
lcContainer = THIS.cClassContainerFileName
ELSE
* found it!
lcContainer = ""
ENDIF
ENDIF
ENDCASE
loReturn = .NULL.
lcClassLib = THIS.GetResourceFileName(lcClassLib,".vcx .fxp .prg")
IF NOT EMPTY(lcContainer)
lcContainer = THIS.GetResourceFileName(lcContainer,".app .exe")
ENDIF
IF (EMPTY(lcClassLib) AND NOT EMPTY(tcClassLib)) OR ;
(EMPTY(lcContainer) AND NOT EMPTY(tcClassContainerFileName))
RETURN .F.
ENDIF
IF VERSION(2) = 0 AND ;
UPPER(JUSTEXT(lcClassLib)) == "PRG"
IF NOT EMPTY(SYS(2000,lcClassLib))
* file is on disk for sure, and
* we can't use it if it is built into
* another file like this...
lcContainer = ""
COMPILE (lcClassLib)
lcClassLib = FORCEEXT(lcClassLib,"FXP")
ELSE
RETURN .F.
ENDIF
ENDIF
IF VARTYPE(toParent) = "O"
IF VARTYPE(tcMemberName)= "C"
lcMemberName = tcMemberName
ELSE
lcMemberName = "C"+SYS(2015)
ENDIF
ASSERT TYPE("toParent."+lcMemberName) # "O" ;
MESSAGE toParent.&lcMemberName..Name + " "+APP_ALREADY_EXISTS_LOC+"."
THIS.ClearLastError()
IF EMPTY(tcParamString)
toParent.NewObject(lcMemberName,lcClass,lcClassLib,lcContainer)
ELSE
toParent.NewObject(lcMemberName,lcClass,lcClassLib,lcContainer,&tcParamString.)
ENDIF
IF THIS.IsErrorFree()
loReturn = EVAL("toParent."+lcMemberName)
ENDIF
ELSE
IF EMPTY(tcParamString)
loReturn = NEWOBJECT(lcClass,lcClassLib,lcContainer)
ELSE
loReturn = NEWOBJECT(lcClass,lcClassLib, lcContainer,&tcParamString.)
ENDIF
ENDIF
RETURN loReturn
ENDPROC
PROCEDURE getcurrenttopformref
RETURN THIS.cusWindowHandler.GetCurrentTopFormRef()
ENDPROC
PROCEDURE iserrorfree
RETURN (ISNULL(THIS.iLastError))
ENDPROC
PROCEDURE clearlasterror
THIS.iLastError = .NULL.
ENDPROC
PROCEDURE getresourcefilename
LPARAMETERS tcSourceFileName, tcExtensionList, tlSuppressMessage
ASSERT VARTYPE(tcSourceFileName) = "C" AND NOT EMPTY(tcSourceFileName)
ASSERT EMPTY(tcExtensionList) OR VARTYPE(tcExtensionList) = "C"
* Try out any one of a number of extensions in a delimited
* list if the filename-as-delivered is not found.
* The "." characer is considered the delimiter for this
* list, as it forms an integral part of the definition of a
* file extension.
* If *no* "." characters are found in the list but the list
* is passed with a string containing spaces, then the
* list will be assumed to be a list of space-delimited
* extensions.
* Filenames passed in a list will be tried in the order passed;
* see THIS.DoProgram() for a potential list by precedence.
* It's up to the calling program to figure out
* what extensions are appropriate.
LOCAL lcSourceFileName, lcTargetFileName, lcExtList, ;
lcExt, liExts, liTryExt, liThisExtStarts,liNextExtStarts
IF VARTYPE(tcSourceFileName) # "C" OR EMPTY(tcSourceFileName)
RETURN ""
ENDIF
lcSourceFileName = ALLTR(tcSourceFileName)
IF EMPTY(tcExtensionList) OR ("." $ tcSourceFileName)
lcTargetFileName = LOWER(FULLPATH(lcSourceFileName))
IF NOT FILE(lcTargetFileName)
lcTargetFileName = ""
ENDIF
ELSE
lcExtList = ALLTRIM(tcExtensionList)
liExts = OCCURS(".",lcExtList)
IF liExts = 0
lcExtList = STRTRAN(tcExtensionList," ",".")
ELSE
lcExtList = STRTRAN(tcExtensionList," ","")
ENDIF
IF LEFT(lcExtList,1) # "."
lcExtList = "."+lcExtList
ENDIF
liExts = OCCURS(".",lcExtList)
FOR liTryExt = 1 TO liExts
liThisExtStarts = AT(".",lcExtList,liTryExt)
IF liTryExt # liExts
liNextExtStarts = AT(".",lcExtList,liTryExt + 1)
lcExt = SUBSTR(lcExtList,liThisExtStarts,liNextExtStarts-liThisExtStarts)
ELSE
lcExt = SUBSTR(lcExtList,liThisExtStarts)
ENDIF
lcTargetFileName = LOWER(FULLPATH(lcSourceFileName+lcExt))
IF FILE(lcTargetFileName)
EXIT
ELSE
lcTargetFileName = ""
ENDIF
ENDFOR
ENDIF
IF EMPTY(lcTargetFileName) AND NOT tlSuppressMessage
THIS.FileNotFoundMsgBox(tcSourceFileName)
ENDIF
RETURN lcTargetFileName
ENDPROC
PROCEDURE setenvironment
THIS.ClearLastError()
IF THIS.lReadEvents
lcTemp = THIS.cReference+".OnShutdown()"
ON SHUTDOWN &lcTemp
lcTemp = THIS.cReference+".Error(ERROR(),PROGRAM(),LINENO())"
ON ERROR &lcTemp
IF VARTYPE(THIS.cMacKey) = "C"
lcTemp = THIS.cMacKey
SET MACKEY TO &lcTemp
ELSE
SET MACKEY TO
ENDIF
CLEAR MACROS
ENDIF
IF THIS.lNoScreenDuringApp
THIS.SetScreenAttributes(.F.)
* you always have the option to turn off _SCREEN,
* in any type of app, although you should use
* this ability sparingly if you are non-ReadEvents!
* This ability is placed outside the CASE statement
* below because the various permutations --
* readevents top form in a development environment,
* ActiveDoc from which environment, even a special
* type of server that you instantiate and "takes over"
* temporary -- can't really be predicted.
* Since original state will be restored at cleanup,
* this isn't a risk, but the option is still .F. by
* default because you should think before implementing
* it <g>.
ENDIF
DO CASE
CASE VARTYPE(THIS.oFrame) = "O"
THIS.SetFrameAttributes()
CASE THIS.lReadEvents AND (NOT THIS.lNoScreenDuringApp)
THIS.SetScreenAttributes(.T.)
OTHERWISE
* hands off!
ENDCASE
RETURN THIS.IsErrorFree()
ENDPROC
PROCEDURE donewopen
LPARAMETERS tlNew
LOCAL llReturn
THIS.lAddingNewDocument = tlNew
llReturn = THIS.DoDocumentPickerDialog(THIS.cNewOpenClass,;
THIS.cNewOpenClassLib, ;
tlNew)
THIS.ResetToDefault("lAddingNewDocument")
RETURN llReturn
ENDPROC
PROCEDURE displayerrorlog
LOCAL loTemp, liIndex, llOK
IF NOT EMPTY(THIS.cErrorViewerClass)
loTemp = THIS.AddCollaborator(THIS.cErrorViewerClass,;
THIS.cErrorViewerClassLib)
IF VARTYPE(loTemp) = "O"
llOK = loTemp.ApplyAppAttributes(THIS)
IF llOK
* maybe no error records, or even no table
THIS.ActivateFormInFrame(loTemp) && modeless
ELSE
loTemp.Release()
ENDIF
ENDIF
RETURN llOK
ELSE
THIS.cusError.DisplayErrorLog()
ENDIF
ENDPROC
PROCEDURE beforedoform
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow, tlGoMenu, tlNavToolbar
* abstract hook from DoForm
ENDPROC
PROCEDURE querydatasessionunload
LPARAMETERS tlDataChangeAlreadyConfirmed, toSession
ASSERT VARTYPE(tlDataChangeAlreadyConfirmed) = "L"
ASSERT TYPE("toSession.DataSessionID") = "N" OR ;
TYPE("_SCREEN.ActiveForm") = "O"
LOCAL llDataHandled, loSession, llInterrupted
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
IF TYPE("toSession.DataSessionID") = "N"
loSession = toSession
ELSE
loSession = _SCREEN.ActiveForm
ENDIF
IF tlDataChangeAlreadyConfirmed OR ;
THIS.cusDataSession.DataChanged(loSession)
llDataHandled = ;
THIS.cusDataSession.QueryUnload(.t., loSession)
ELSE
llDataHandled = .T.
ENDIF
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN llDataHandled
ENDPROC
PROCEDURE setappfilenames
LOCAL lcSys16, liLevel
lcSys16 = UPPER(SYS(16,0))
* get top-level filename, and also
* get the name of the module (app or exe) that
* owns this particular object, for SET CLASSLIB ... IN...
* default usage, which may be different.
* The latter is important to non-READ EVENTS apps.
IF EMPTY(lcSys16)
THIS.cAppFileName = ""
ELSE
THIS.cAppFileName = lcSys16
IF "PROCEDURE" $ THIS.cAppFileName
THIS.cAppFileName = SUBSTR(THIS.cAppFileName,11)
THIS.cAppFileName = SUBSTR(THIS.cAppFileName,1,AT(" ",THIS.cAppFileName)-1)
ENDIF
IF NOT FILE(THIS.cAppFileName)
* this can happen if an "ON..." was involved...
THIS.cAppFileName = ""
ENDIF
IF INLIST(RIGHT(THIS.cAppFileName,3),"VCT","DCT")
* createobject from the command window,
* or a stored procedure --
* a top-level SCX/FRX/LBX/MPR/QPR/SPR actually has a
* chance at being used properly later,
* but I don't think these two do!
THIS.cAppFileName = ""
ENDIF
ENDIF
* FOR liLevel = 256 TO 1 STEP -1 && 256 = twice the nested programs currently allowed!
FOR liLevel = PROGRAM(-1) TO 1 STEP -1
lcSys16 = UPPER(SYS(16,liLevel))
IF INLIST(RIGHT(lcSys16,3),"APP","EXE","DLL")
THIS.cClassContainerFileName = lcSys16
EXIT
ENDIF
ENDFOR
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE querydatachanged
LPARAMETERS toSession, tiChangeMode
LOCAL llReturn, llInterrupted
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
llReturn = THIS.cusDataSession.DataChanged(toSession,tiChangeMode)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE dataupdate
LPARAMETERS tlUserChoiceAlreadyConfirmed, tlDataChangeAlreadyConfirmed, toSession, tlNoShow
LOCAL llReturn, llInterrupted
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
llReturn = THIS.cusDataSession.Update(tlUserChoiceAlreadyConfirmed, tlDataChangeAlreadyConfirmed, toSession, tlNoShow)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE datarevert
LPARAMETERS tlUserChoiceAlreadyConfirmed, tlDataChangeAlreadyConfirmed, toSession, tlNoShow
LOCAL llInterrupted, llReturn
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
llReturn = THIS.cusDataSession.Revert(tlUserChoiceAlreadyConfirmed, tlDataChangeAlreadyConfirmed, toSession, tlNoShow)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE ccaption_access
IF VARTYPE(THIS.cCaption) # "C"
RETURN ""
ELSE
RETURN THIS.cCaption
ENDIF
ENDPROC
PROCEDURE ccaption_assign
LPARAMETERS tvNewVal
IF VARTYPE(tvNewVal) # "C"
THIS.cCaption = ""
ELSE
THIS.cCaption = tvNewVal
ENDIF
ENDPROC
PROCEDURE cicon_assign
LPARAMETERS m.vNewVal
IF NOT EMPTY(m.vNewVal)
THIS.cIcon = THIS.GetResourceFileName(m.vNewVal,".ico")
ELSE
THIS.cIcon = ""
ENDIF
ENDPROC
PROCEDURE ilasterror_access
RETURN THIS.ilasterror
ENDPROC
PROCEDURE cdatafolder_assign
LPARAMETERS tcDataFolder
LOCAL lcDataFolder
lcDataFolder = IIF(VARTYPE(tcDataFolder) = "C" AND ;
DIRECTORY(tcDataFolder), ;
tcDataFolder,"")
THIS.cDataFolder = lcDataFolder
ENDPROC
PROCEDURE creference_assign
LPARAMETERS tcReference
IF VARTYPE(tcReference) = "C"
IF (TYPE(THIS.cReference+".Name") = "C" AND ;
EVAL(THIS.cReference) = THIS)
RELEASE (THIS.cReference)
ENDIF
THIS.cReference = tcReference
ENDIF
IF (NOT EMPTY(THIS.cReference)) AND ;
(TYPE(THIS.cReference+".Name") # "C" OR ;
EVAL(THIS.cReference) # THIS)
RELEASE (THIS.cReference)
PUBLIC (THIS.cReference)
STORE THIS TO (THIS.cReference)
ENDIF
ENDPROC
PROCEDURE cappfolder_access
* note: this is an access method because
* conceivably directories could get renamed
* while an app is running!
IF EMPTY(THIS.cAppFolder) OR (NOT DIRECTORY(THIS.cAppFolder))
LOCAL lcAppFolder
IF (NOT EMPTY(THIS.cClassContainerFileName))
lcAppFolder = ;
LEFT(THIS.cClassContainerFileName,RAT("\",THIS.cClassContainerFileName))
ENDIF
* The cClassContainerFileName could be empty... it's possible
* that this CREATEOBJECT was not done in an APP or EXE...
* (see comments in SetAppFileNames() for how these properties are
* used and what they represent)
IF ( EMPTY(lcAppFolder) OR (NOT DIRECTORY(lcAppFolder)) ) ;
AND ;
(NOT EMPTY(THIS.cAppFileName))
lcAppFolder = LEFT(THIS.cAppFileName,RAT("\",THIS.cAppFileName))
* this will be a wrapper program -- may or may not
* be the same for every user or every login,
* especially if temp programs are involved,
* so it is not as good as cClassContainerFileName
ENDIF
* finally, both the properties may be empty, especially if
* an ON... was involved in the initial call,
* We still need an appfolder **on disk** to give us
* a default location for some system files
IF ( EMPTY(lcAppFolder) OR (NOT DIRECTORY(lcAppFolder)) )
lcAppFolder = SET("DIRECTORY")
ENDIF
THIS.cAppFolder = lcAppFolder
ENDIF
IF RIGHT(THIS.cAppFolder,1) # "\" && for example, SET("DIRE") doesn't provide a final backslash!
THIS.cAppFolder = THIS.cAppFolder + "\"
ENDIF
RETURN THIS.cAppFolder
ENDPROC
PROCEDURE lgomenu_assign
LPARAMETERS tlGoMenuNeeded
IF EMPTY(THIS.cGoMenuFile)
RETURN .F.
ENDIF
DO CASE
CASE tlGoMenuNeeded = THIS.lGoMenu
* nothing to worry about
CASE tlGoMenuNeeded
THIS.lGoMenu = .T.
IF TYPE([CNTBAR("_mGo")]) = "U"
DO CASE
CASE VARTYPE(THIS.oFrame) # "O"
THIS.DoMenu(THIS.cGoMenuFile)
CASE NOT EMPTY(THIS.oFrame.cMenuName)
THIS.DoMenu(THIS.cGoMenuFile, .F.)
OTHERWISE
ENDCASE
ELSE
* already defined, just show the pad
DO CASE
CASE VARTYPE(THIS.oFrame) # "O"
DEFINE PAD _msm_Go OF _MSYSMENU ;
PROMPT APP_GO_PAD_LOC COLOR SCHEME 3 ;
BEFORE _msm_windo ;
KEY APP_GO_PAD_HOTKEY_LOC, [APP_GO_PAD_HOTKEY_LOC] ;
MESSAGE APP_GO_MESSAGE_LOC
ON PAD _msm_Go OF _MSYSMENU ACTIVATE POPUP _mgo
CASE NOT EMPTY(THIS.oFrame.cMenuName)
DEFINE PAD _msm_Go OF (THIS.oFrame.cMenuName);
PROMPT APP_GO_PAD_LOC COLOR SCHEME 3 ;
BEFORE _msm_windo ;
KEY APP_GO_PAD_HOTKEY_LOC, [APP_GO_PAD_HOTKEY_LOC]
ON PAD _msm_Go OF (THIS.oFrame.cMenuName) ACTIVATE POPUP _mgo
OTHERWISE
ENDCASE
ENDIF
OTHERWISE
THIS.lGoMenu = .F.
* for now, I am not putting menu shortcut keys on the
* popup and I am just leaving it DEFINEd and inaccessible
* for speed reasons -- so am not releasing it once defined
DO CASE
CASE VARTYPE(THIS.oFrame) # "O"
RELEASE PAD _msm_Go OF _MSYSMENU
* RELEASE POPUP _mGo EXTENDED
CASE NOT EMPTY(THIS.oFrame.cMenuName)
RELEASE PAD _msm_Go OF (THIS.oFrame.cMenuName)
* RELEASE POPUP _mGo EXTENDED
OTHERWISE
ENDCASE
ENDCASE
RETURN
ENDPROC
PROCEDURE doreportdialog
LPARAMETERS tlModify
LOCAL llReturn
llReturn = THIS.DoDocumentPickerDialog(THIS.cReportDialogClass,;
THIS.cReportDialogClassLib, ;
tlModify)
RETURN llReturn
ENDPROC
PROCEDURE doaboutbox
LOCAL llReturn
llReturn = THIS.DoModalDialogClass(THIS.cAboutBoxClass, THIS.cAboutBoxClassLib)
RETURN llReturn
ENDPROC
PROCEDURE dooptionsdialog
LOCAL llOpenedTable, llReturn
IF NOT USED(THIS.cUserTableAlias)
USE (THIS.cUserTableName) IN 0 AGAIN SHARED ALIAS (THIS.cUserTableAlias)
llOpenedTable = .T.
ENDIF
IF THIS.lUserPreferences
THIS.SeekCurrentUser()
ELSE
THIS.SeekDefaultUser()
ENDIF
llReturn = THIS.DoModalDialogClass(THIS.cOptionsDialogClass, THIS.cOptionsDialogClassLib)
IF llOpenedTable
USE IN (THIS.cUserTableAlias)
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE docontextmenu
LPARAMETERS tcMenuFileName, tcPadName, tcPopupName
LOCAL lcMenuFileName, ;
liElement, liIndex, liMenus, lcMenu
IF EMPTY(tcMenuFileName) OR EMPTY(tcPadName) OR EMPTY(tcPopupName)
RETURN 0
ENDIF
ASSERT VARTYPE(tcPadName) = "C"
ASSERT VARTYPE(tcPopupName) = "C"
ASSERT VARTYPE(tcMenuFileName) = "C"
lcMenuFileName = THIS.GetResourceFileName(tcMenuFileName,".mpx .mpr")
IF EMPTY(lcMenuFileName)
RETURN 0
ENDIF
liElement = 0
liMenus = ALEN(THIS.aContextMenus,1)
FOR liIndex = 1 TO liMenus
lcMenu = THIS.aContextMenus[liIndex,1]
IF VARTYPE(lcMenu) # "C" OR ;
VARTYPE(THIS.aContextMenus[liIndex,2]) # "N" ;
OR THIS.aContextMenus[liIndex,2] = 0
liElement = liIndex
LOOP
ENDIF
* is this menu already up?
IF lcMenu == lcMenuFileName
* increment its counter
THIS.aContextMenus[liIndex,2] = THIS.aContextMenus[liIndex,2]+1
RETURN liIndex
ENDIF
ENDFOR
IF liElement = 0
IF VARTYPE(THIS.aContextMenus[1,1]) = "C"
liElement = liMenus+1
ELSE
liElement = 1
ENDIF
DIMENSION THIS.aContextMenus[liElement,4]
ENDIF
THIS.aContextMenus[liElement,1]=lcMenuFileName
THIS.aContextMenus[liElement,2] = 1
THIS.aContextMenus[liElement,3] = ALLTRIM(tcPadName)
THIS.aContextMenus[liElement,4] = ALLTRIM(tcPopupName)
THIS.DoMenu(lcMenuFileName) && we don't want unique popup names for a context menu
RETURN liElement
ENDPROC
PROCEDURE releasecontextmenu
LPARAMETERS tiMenuIndex, tlForce
ASSERT VARTYPE(tiMenuIndex) = "N" AND ;
BETWEEN(tiMenuIndex,1,ALEN(THIS.aContextMenus,1))
ASSERT VARTYPE(tlForce) = "L"
* this function expects an index from the context menu array.
* see comments in the ReleaseToolbar method.
THIS.ClearLastError()
IF PCOUNT()=0 OR EMPTY(tiMenuIndex)
RETURN .F.
ENDIF
LOCAL liCurrentMenuRefCount
IF VARTYPE(THIS.aContextMenus[tiMenuIndex,2]) # "N"
liCurrentMenuRefCount = 0
ELSE
liCurrentMenuRefCount = THIS.aContextMenus[tiMenuIndex,2]
ENDIF
IF tlForce OR liCurrentMenuRefCount <= 1
IF VARTYPE(THIS.oFrame) # "O"
RELEASE PAD (THIS.aContextMenus[tiMenuIndex,3]) OF _MSYSMENU
ELSE
RELEASE PAD (THIS.aContextMenus[tiMenuIndex,3]) OF (THIS.oFrame.cMenuName)
ENDIF
RELEASE POPUP (THIS.aContextMenus[tiMenuIndex,4]) EXTENDED
STORE .F. TO THIS.aContextMenus[tiMenuIndex,1], ;
THIS.aContextMenus[tiMenuIndex,2], ;
THIS.aContextMenus[tiMenuIndex,3], ;
THIS.aContextMenus[tiMenuIndex,4]
ELSE
THIS.aContextMenus[tiMenuIndex,2] = liCurrentMenuRefCount - 1
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE dohelp
LPARAMETERS tcFile
LOCAL lcFileName, lcExt, llReturn
llReturn = .T.
THIS.ClearLastError()
IF VARTYPE(tcFile) = "C" AND FILE(ALLTRIM(tcFile))
lcFileName = ALLTRIM(tcFile)
ELSE
lcFileName=ALLTRIM(THIS.cHelpFile)
ENDIF
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName= THIS.GetResourceFileName(lcFileName,".hlp .dbf .htm .chm")
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcExt = UPPER(JUSTEXT(lcFileName))
DO CASE
CASE lcExt = "DBF"
IF UPPER(lcFileName) # UPPER(SET("HELP",1))
LOCAL lcOldHelpFile, lcOldHelp
lcOldHelp = SET("HELP")
lcOldHelpFile = SET("HELP",1)
SET HELP TO (lcFileName)
SET HELP ON
HELP
IF NOT EMPTY(lcOldHelpFile) AND FILE(lcOldHelpFile)
SET HELP TO (lcOldHelpFile)
ENDIF
SET HELP &lcOldHelp
ELSE
HELP
ENDIF
CASE INLIST(lcExt,"HLP","HTM","CHM")
llReturn = THIS.DoFile(lcFilename)
OTHERWISE
* ??
ENDCASE
RETURN llReturn AND (THIS.IsErrorFree())
ENDPROC
PROCEDURE domodaldialogclass
LPARAMETERS tcWhichDialogClass, tcWhichDialogClassLib, tlNoShow
LOCAL loFormRef, lcWhichDialogClassLib
IF EMPTY(tcWhichDialogClass)
RETURN .F.
ENDIF
IF NOT EMPTY(tcWhichDialogClassLib)
lcWhichDialogClassLib = tcWhichDialogClassLib
ENDIF
IF VARTYPE(THIS.oFrame) = "O" and THIS.oFrame.ShowWindow < 2
THIS.oFrame.Show()
ENDIF
loFormRef = THIS.Instantiate(tcWhichDialogClass,lcWhichDialogClassLib)
IF VARTYPE(loFormRef) # "O"
RETURN .F.
ENDIF
IF PEMSTATUS(loFormRef,"ApplyAppAttributes",5)
loFormRef.ApplyAppAttributes(THIS)
ELSE
IF EMPTY(loFormRef.Icon)
loFormRef.Icon = THIS.cIcon
ENDIF
ENDIF
IF tlNoShow
RETURN loFormRef
ELSE
loFormRef.WindowType = 1
THIS.ActivateFormInFrame(loFormRef)
RETURN .T.
ENDIF
ENDPROC
PROCEDURE cascadeform
LPARAMETERS tcFormName
LOCAL lcFormName
DO CASE
CASE (NOT EMPTY(tcFormName)) AND WEXIST(tcFormName)
lcFormName = tcFormName
CASE TYPE("_SCREEN.ActiveForm")= "O"
lcFormName = _SCREEN.ActiveForm.Name
OTHERWISE
RETURN .F.
ENDCASE
ENDPROC
PROCEDURE cascadeall
LPARAMETERS tcForm
THIS.cusWindowHandler.CascadeFormInstances(tcForm)
ENDPROC
PROCEDURE dosort
LPARAMETERS tcField, tcAlias, tcTag, tlDescending
THIS.cusTableSort.DoSort(tcField,tcAlias,tcTag,tlDescending)
ENDPROC
PROCEDURE gotop
THIS.lNoInterrupt = .T.
THIS.cusTableNav.GoTop()
THIS.lNoInterrupt = .F.
ENDPROC
PROCEDURE gobottom
THIS.lNoInterrupt = .T.
THIS.cusTableNav.GoBottom()
THIS.lNoInterrupt = .F.
ENDPROC
PROCEDURE gonext
THIS.lNoInterrupt = .T.
THIS.cusTableNav.GoNext()
THIS.lNoInterrupt = .F.
ENDPROC
PROCEDURE goprevious
THIS.lNoInterrupt = .T.
THIS.cusTableNav.GoPrevious()
THIS.lNoInterrupt = .F.
ENDPROC
PROCEDURE showtablegotodialog
LOCAL llReturn
llReturn = THIS.DoModalDialogClass("_GoTodialog", "_table.vcx")
RETURN llReturn
ENDPROC
PROCEDURE showtablefinddialog
LOCAL loForm, llInterrupted
loForm = THIS.DoModalDialogClass("_FindDialog", "_table.vcx", .T.)
IF VARTYPE(loForm) = "O"
loForm.lAdvanced = THIS.lFindOnMultipleTables
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
loForm.Show(1)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE showtablesetfilterdialog
LOCAL loForm
THIS.cusTableNav.SetToActiveSession()
loForm = THIS.DoModalDialogClass("_FilterExpr", "_table.vcx", .T.)
IF VARTYPE(loForm) = "O"
loForm.lAdvanced = THIS.lUse_GETEXPR
loForm.Show(1)
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE releasecontextmenus
LPARAMETERS tlForce
LOCAL liMenu, liMenuCount
THIS.ClearLastError()
liMenuCount = ALEN(THIS.aContextMenus,1)
FOR liMenu = 1 TO liMenuCount
IF VARTYPE(THIS.aContextMenus[liMenu,1]) = "C" AND ;
NOT THIS.ReleaseContextMenu(liMenu, .T.)
IF NOT tlForce
RETURN .F.
ENDIF
ENDIF
ENDFOR
RELEASE POPUP _mGo EXTENDED
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE setdatasessionenvironment
LPARAMETERS tiSessionID
LOCAL liSessionID
liThisSessionID = SET("DATASESSION")
IF VARTYPE(tiSessionID) = "N"
SET DATASESSION TO (tiSessionID)
ENDIF
THIS.SetDataSessionSets()
SET DATASESSION TO (liThisSessionID)
ENDPROC
PROCEDURE setdatasessionsets
SET MULTILOCKS ON
SET TALK OFF
* ....
ENDPROC
PROCEDURE cimage_assign
LPARAMETERS m.vNewVal
*To do: Modify this routine for the Assign method
IF NOT EMPTY(m.vNewVal)
THIS.cimage = THIS.GetResourceFileName(m.vNewVal,".bmp .ico .gif")
ELSE
THIS.cImage = ""
ENDIF
ENDPROC
PROCEDURE cerrorlogtablename_access
LOCAL lcTable
lcTable = THIS.cErrorLogTableName
IF AT("\",lcTable) = 0
lcTable = THIS.cAppFolder+lcTable
ENDIF
IF AT(".",lcTable) = 0
lcTable = lcTable+".DBF"
ENDIF
RETURN lcTable
ENDPROC
PROCEDURE addcollaborator
LPARAMETERS tcClass, tcClassLib,tcClassContainer, tcParamString, toParent, tcMemberName
* should match Instantiate
* Instantiate params:
* LPARAMETERS tcClass, tcClassLib, tcClassContainer, tcParamString, toParent, tcMemberName
* wrap Instantiate and puts the reference in the aCollaborators collection
* so it can be properly managed
* it's not really necessary to look out for usable empty array elements
* in the middle of the array here -- objects may be released
* during the life of the application, but the empty array elements will
* not do any harm, so we
* just re-DIME as necessary if the last element is in use...
LOCAL liElement, lcClassLib
liElement = ALEN(THIS.aCollaborators)
IF VARTYPE(THIS.aCollaborators[liElement]) = "O"
liElement = liElement + 1
DIME THIS.aCollaborators[liElement]
ENDIF
IF NOT EMPTY(tcClassLib)
lcClassLib = tcClassLib
* want to avoid passing a null string
ENDIF
THIS.aCollaborators[liElement] = ;
THIS.Instantiate(tcClass, lcClassLib,tcClassContainer,tcParamString, toParent, tcMemberName)
* Instantiate() will know to do a NEWOBJECT() or <parent>.NewObject() as required
RETURN THIS.aCollaborators[liElement]
ENDPROC
PROCEDURE getformmediatorref
LPARAMETERS toForm, tlForce
IF VARTYPE(toForm) # "O" OR ;
NOT (UPPER(toForm.BaseClass) == "FORM")
RETURN NULL
ENDIF
LOCAL loMember, laCheck[1], loMediator, llExactSet
loMediator = NULL
llExactSet =(SET("EXACT") = "OFF")
IF llExactSet
SET EXACT ON
ENDIF
IF TYPE("toForm."+THIS.cFormMediatorName+".Name") = "C"
loMediator = EVAL("toForm."+THIS.cFormMediatorName)
IF ACLASS(laCheck,loMediator) = 0 OR ;
ASCAN(laCheck,UPPER(APP_MEDIATOR_SUPERCLASS)) = 0
loMediator = NULL
ENDIF
ENDIF
IF ISNULL(loMediator) AND toForm.ControlCount > 0
* try to find a member of the appropriate
* class; slower than the above but still worthwhile
* for generic dialogs that might not use the
* appropriate mediator name for this app.
FOR EACH loMember in toForm.Controls
IF VARTYPE(loMember) = "O" ;
AND ACLASS(laCheck,loMember) > 0 AND ;
ASCAN(laCheck,UPPER(APP_MEDIATOR_SUPERCLASS)) > 0
loMediator = loMember
EXIT
ENDIF
ENDFOR
ENDIF
IF ISNULL(loMediator) AND tlForce
* create one
loMediator = THIS.CreateFormMediator(toForm)
ENDIF
IF llExactSet
SET EXACT OFF
ENDIF
RETURN loMediator
ENDPROC
PROCEDURE formisframeworkenabled
LPARAMETERS toForm
RETURN (NOT ISNULL(THIS.GetFormMediatorRef(toForm)))
ENDPROC
PROCEDURE createframe
LOCAL lcClassLib
THIS.ClearLastError()
IF NOT EMPTY(THIS.cFrameClassLib)
lcClassLib = THIS.cFrameClassLib
ENDIF
IF NOT EMPTY(THIS.cFrameClass)
THIS.oFrame = THIS.Instantiate(THIS.cFrameClass,lcClassLib)
IF VARTYPE(THIS.oFrame) = "O"
THIS.oFrame.oApp = THIS
ENDIF
ELSE
THIS.oFrame = .NULL.
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE releaseframe
IF VARTYPE(THIS.oFrame) = "O"
THIS.oFrame.oApp = .NULL.
THIS.oFrame.Release()
THIS.oFrame = .NULL.
ENDIF
ENDPROC
PROCEDURE setscreenattributes
LPARAMETERS tlOn
LOCAL loTemp
loTemp = THIS.AddCollaborator("_SysToolbars","_app",,".T.")
loTemp = THIS.AddCollaborator("_ObjectState","_app",,"_SCREEN")
IF VARTYPE(loTemp) = "O"
IF tlOn
IF NOT EMPTY(THIS.cCaption)
loTemp.Set("Caption", THIS.cCaption, .T.)
ENDIF
loTemp.Set("Icon",THIS.cIcon, .T.)
ENDIF
loTemp.Set("Visible",tlOn,.T.)
ELSE
* this should never happen, but JIC, we'd
* have a hard time debugging if we didn't do this!
IF tlOn AND NOT _SCREEN.Visible
_SCREEN.Visible = .T.
ENDIF
* notice I don't bother turning it off in the ! tlOn case.
ENDIF
ENDPROC
PROCEDURE setframeattributes
IF VARTYPE(THIS.oFrame) # "O"
** shouldn't happen
RETURN
ENDIF
THIS.oFrame.BackColor = THIS.cusWindowHandler.iMDIWorkSpaceColor
THIS.oFrame.Icon = THIS.cIcon
THIS.oFrame.Caption = THIS.cCaption
ENDPROC
PROCEDURE showstartupelements
LOCAL llSuccess
THIS.lNoInterrupt = .T.
IF VARTYPE(THIS.oFrame) = "O"
THIS.oFrame.Show()
ENDIF
llSuccess = ;
(EMPTY(THIS.cStartupToolbarClass) OR ;
(NOT EMPTY(THIS.DoToolbar( THIS.cStartupToolbarClassLib,THIS.cStartupToolbarClass))) )
IF llSuccess AND (NOT EMPTY(THIS.cStartupMenu))
DO CASE
CASE VARTYPE(THIS.oFrame) = "O"
llSuccess = THIS.DoMenu(THIS.cStartupMenu, .T.)
CASE THIS.lReadEvents
llSuccess = THIS.DoMenu(THIS.cStartupMenu)
OTHERWISE
* append type
IF EMPTY(THIS.cStartupMenuPad)
llSuccess = THIS.DoMenu(THIS.cStartupMenu)
* it's hard to believe that anybody is going to take over the
* menu for a non-read-events app, but it could happen
ELSE
llSuccess = (NOT EMPTY(THIS.DoContextMenu(THIS.cStartupMenu, ;
THIS.cStartupMenuPad, ;
THIS.cStartupMenuPopup)))
* this one returns a # so we can't do the exact same llSuccess check
ENDIF
ENDCASE
ENDIF
IF llSuccess
IF (VARTYPE(THIS.oFrame) = "O")
* if we closed screen during a topform-in-development-version
* app, the frame is likely behind another Windows app at this point...
THIS.oFrame.Show()
ELSE
SET MESSAGE TO && for neatness' sake
ENDIF
THIS.lNoInterrupt = .F.
IF THIS.lStartupForm
THIS.DoStartupForm()
ENDIF
ENDIF
RETURN llSuccess
ENDPROC
PROCEDURE activatesystemwindow
LPARAMETERs tcWindow
IF EMPTY(tcWindow) OR _VFP.StartMode > 0
RETURN
ENDIF
LOCAL llAutoCenter
llAutoCenter = _Screen.AutoCenter
_SCREEN.AutoCenter = .T.
_SCREEN.AutoCenter = llAutoCenter
IF ! _SCREEN.Visible
_SCREEN.Show()
ENDIF
IF WMIN("")
ZOOM WINDOW SCREEN NORM
ENDIF
ACTIVATE WINDOW (tcWindow) IN SCREEN
ENDPROC
PROCEDURE domenuiteminframe
LPARAMETERS tcToken
IF EMPTY(tcToken)
RETURN
ENDIF
THIS.cusWindowHandler.InvokeMenuItemInFrame(tcToken)
ENDPROC
PROCEDURE lnavtoolbar_assign
LPARAMETERS tlNavToolbarNeeded
IF EMPTY(THIS.cNavToolbarClass)
RETURN .F.
ENDIF
DO CASE
CASE tlNavToolbarNeeded = THIS.lNavToolbar
THIS.lNavToolbar = tlNavToolbarNeeded
* nothing to worry about
CASE tlNavToolbarNeeded
THIS.lNavToolbar = .T.
IF VARTYPE(THIS.oNavToolbar) # "O"
LOCAL liIndex
liIndex = THIS.DoToolbar(THIS.cNavToolbarClassLib,THIS.cNavToolbarClass)
THIS.oNavToolbar = THIS.aToolbars[liIndex,1]
ELSE
IF NOT THIS.oNavToolBar.Visible
THIS.oNavToolbar.Show()
ENDIF
ENDIF
OTHERWISE
THIS.lNavToolbar = .F.
IF (VARTYPE(THIS.oNavToolbar)= "O") AND THIS.oNavToolbar.Visible
THIS.oNavToolbar.Hide()
ENDIF
ENDCASE
RETURN
ENDPROC
PROCEDURE gotorecord
LPARAMETERS tiRecord
THIS.lNoInterrupt = .T.
THIS.cusTableNav.GoToRecord(tiRecord)
THIS.lNoInterrupt = .F.
ENDPROC
PROCEDURE getcurrentalias
RETURN THIS.cusTableNav.GetCurrentAlias()
ENDPROC
PROCEDURE dotableoutput
* this option looks at the current
* form/alias for any form
* if the form is enabled for
* framework use, it can derive the
* alias information with help of the
* app mediator object
LPARAMETERS tlOutputOneRecord
LOCAL loDialog, loMediator, loActiveForm, liSession, lcAlias, ;
lcCaption, lcScope, liRecno, llReturn, llInterrupted
IF TYPE("_SCREEN.ActiveForm") = "O"
loActiveForm = _SCREEN.ActiveForm
loMediator = THIS.GetFormMediatorRef(loActiveForm)
ENDIF
liSession = SET("DATASESSION")
DO CASE
CASE TYPE("loActiveForm.Parent") = "O"
SET DATASESSION TO (loActiveForm.Parent.DataSessionID)
CASE VARTYPE(loActiveForm) = "O"
SET DATASESSION TO (loActiveForm.DataSessionID)
ENDCASE
IF VARTYPE(loMediator) = "O"
loMediator.PrepareOutputAlias()
lcAlias = loMediator.cOutputAlias
lcCaption = loMediator.cOutputCaption
ENDIF
IF EMPTY(lcAlias)
lcAlias = ALIAS()
ENDIF
IF EMPTY(lcCaption)
lcCaption = PROPER(lcAlias)
ENDIF
IF NOT ( EMPTY(lcAlias) OR EMPTY(RECCOUNT(lcAlias)) )
IF (NOT tlOutputOneRecord)
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
* we only have to worry about
* this if we are
* going to be using the
* navigation features, which
* may bring up a messagebox()
ENDIF
IF THIS.cusTableNav.CurrentTableAllowsNavigation(lcAlias)
lcScope = ""
ELSE
lcScope = NULL
ENDIF
ELSE
lcScope = "NEXT 1"
ENDIF
IF NOT ISNULL(lcScope)
IF EOF(lcAlias)
liRecno = 0
ELSE
liRecno = RECNO(lcAlias)
ENDIF
ENDIF
ENDIF
IF (NOT ISNULL(lcScope)) AND ;
VARTYPE(liRecno) = "N" AND ;
(EMPTY(lcScope) OR liRecno # 0)
IF NOT EMPTY(lcScope)
lcCaption = lcCaption+"("+APP_OUTPUT_ONE_REC_LOC+")"
ENDIF
loDialog = THIS.DoModalDialogClass("_outputdialog","_reports", .T.)
IF VARTYPE(loDialog) = "O"
loDialog.cScope = lcScope
loDialog.cAlias = lcAlias
loDialog.Caption = loDialog.Caption + " " + lcCaption
loDialog.lAddSourceNameToDropDown = .F.
loDialog.cHTMLClass = THIS.SetHTMLClass(lcAlias,.T.)
loDialog.cHTMLStyleID = THIS.SetHTMLStyleID(lcAlias, .T.)
loDialog.Icon = THIS.cIcon
loDialog.lPreventSourceChanges = .T.
loDialog.cDisplayFontName = THIS.cTextDisplayFont
loDialog.Show(1)
loDialog = .NULL.
llReturn = .T.
ENDIF
IF liRecno = 0
GO BOTTOM IN (lcAlias)
SKIP IN (lcAlias)
ELSE
GO liRecno IN (lcAlias)
ENDIF
ENDIF
IF VARTYPE(loMediator) = "O"
loMediator.CleanupOutputAlias()
ENDIF
SET DATASESSION TO (liSession)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE cusertablename_access
LOCAL lcTable
lcTable = UPPER(THIS.cUserTableName)
IF AT("\",lcTable) = 0
lcTable = THIS.cAppFolder+lcTable
ENDIF
IF AT(".",lcTable) = 0
lcTable = lcTable+".DBF"
ENDIF
IF EMPTY(SYS(2000,lcTable)) OR ;
EMPTY(SYS(2000,STRTRAN(lcTable,".DBF",".FPT")))
THIS.CreateUserTable(lcTable)
ENDIF
RETURN lcTable
ENDPROC
PROCEDURE cusertablealias_assign
LPARAMETERS tcNewVal
IF VARTYPE(tcNewVal) # "C" OR ;
(USED(tcNewVal) AND ;
(NOT DBF(tcNewVal) == THIS.cUserTableName) )
THIS.cUserTableAlias = "U"+SYS(2015)
ELSE
THIS.cUserTableAlias = tcNewVal
ENDIF
ENDPROC
PROCEDURE setcurrentuser
LPARAMETERS tlChangeUser
ASSERT VARTYPE(tlChangeUser) = "L"
LOCAL llOpenedTable, llSuccess
THIS.ClearLastError()
IF NOT USED(THIS.cUserTableAlias)
USE (THIS.cUserTableName) IN 0 AGAIN SHARED ALIAS (THIS.cUserTableAlias)
IF NOT (THIS.IsErrorFree())
RETURN .F.
ENDIF
llOpenedTable = .T.
ENDIF
IF THIS.lUserPreferences
IF EMPTY(THIS.cCurrentUser) OR tlChangeUser
llSuccess = THIS.DoUserLogIn()
ELSE
llSuccess = THIS.SeekCurrentUser()
ENDIF
ELSE
* we are using a global set of preferences
* to cover all users
THIS.SeekDefaultUser()
llSuccess = .T.
ENDIF
IF llSuccess
THIS.cCurrentUser = ;
EVAL(THIS.cUserTableAlias+"."+THIS.cUserTableIDField)
THIS.iCurrentUserLevel = ;
EVAL(THIS.cUserTableAlias+"."+THIS.cUserTableLevelField)
THIS.SetUserPermissions() && abstract in the base
THIS.FillUserOptionsArray()
THIS.ApplyGlobalUserOptions()
THIS.SetCurrentUserFavoriteIDs(.NULL.)
IF THIS.lReadEvents
THIS.SetMacros()
ENDIF
ENDIF
IF llOpenedTable
USE IN (THIS.cUserTableAlias)
ENDIF
RETURN llSuccess
ENDPROC
PROCEDURE dostartupform
LPARAMETERS tlAdd
LOCAL llReturn, lcFavoriteIDs
lcFavoriteIDs = THIS.cCurrentUserFavoriteIDs
llReturn = THIS.DoDocumentPickerDialog(THIS.cStartupFormClass,;
THIS.cStartupFormClassLib, ;
tlAdd)
IF tlAdd AND NOT (lcFavoriteIDs == THIS.cCurrentUserFavoriteIDs)
* re-refresh the popup and save to disk
* note:
* modal form doesn't seem to be able to
* affect the popup permanently -- the new bars "leave"
* when the modal dialog's Destroy() fires!
* That's why we don't do this earlier...
THIS.SetCurrentUserFavoriteIDs(THIS.cCurrentUserFavoriteIDs)
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE iinitialtoolbarposition_assign
LPARAMETERS tiNewVal
IF VARTYPE(tiNewVal) # "N" OR NOT INLIST(tiNewVal,-1,0,1,2,3)
THIS.iInitialToolbarPosition = 0
ELSE
THIS.iInitialToolbarPosition = tiNewVal
ENDIF
ENDPROC
PROCEDURE caboutboxclass_access
IF NOT THIS.lAboutBox
RETURN ""
ELSE
RETURN THIS.cAboutBoxClass
ENDIF
ENDPROC
PROCEDURE cstartupformclass_access
RETURN THIS.cStartupFormClass
ENDPROC
PROCEDURE cstartuptoolbarclass_access
IF NOT THIS.lStartupToolbar
RETURN ""
ELSE
RETURN THIS.cStartupToolbarClass
ENDIF
ENDPROC
PROCEDURE dodocumentpickerdialog
LPARAMETERS tcClass,tcClassLib,tlAlternateMode
IF EMPTY(tcClass)
RETURN .F.
ENDIF
LOCAL loTemp, lcClassLib
IF NOT EMPTY(tcClassLib)
lcClassLib = tcClassLib
ENDIF
IF VARTYPE(THIS.oFrame) = "O"
THIS.oFrame.Show()
ENDIF
loTemp = THIS.Instantiate(tcClass,;
lcClassLib, ,;
"THIS,"+IIF(tlAlternateMode,".T.",".F."))
IF VARTYPE(loTemp) = "O"
IF PEMSTATUS(loTemp,"ApplyAppAttributes",5)
loTemp.ApplyAppAttributes(THIS)
ELSE
IF EMPTY(loTemp.Icon)
loTemp.Icon = THIS.cIcon
ENDIF
ENDIF
loTemp.Show(1)
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE setuserpermissions
* This method is abstract in the base,
* meant to utilize iCurrentUserLevel property to maintain groups
ENDPROC
PROCEDURE seekcurrentuser
LPARAMETERS tcName
* This method is separated out so you can use different
* user-location strategies (move the record pointer
* differently) if you like. You will want to
* change CreateUserTable() to match any changes you make here.
* The application object expects that whatever table
* you use, you will have created one c-type field and placed
* its name in THIS.cUserTableIDField, and one i-type field and
* placed its name in THIS.iUserTableLevelField.
LOCAL llOpenedTable, llSuccess, lcName, llDeletedOff
IF VARTYPE(tcName) = "C"
lcName = tcName
ELSE
lcName = THIS.cCurrentUser
ENDIF
IF NOT USED(THIS.cUserTableAlias)
* Note that ordinarily this method will be called with the
* user table already opened but it might some time
* be useful just to validate the current user
USE (THIS.cUserTableName) IN 0 AGAIN SHARED ALIAS (THIS.cUserTableAlias)
IF NOT (THIS.IsErrorFree())
RETURN .F.
ENDIF
llOpenedTable = .T.
ENDIF
* this is an exact but case-insensitive match
IF SET("DELETED") = "OFF"
llDeletedOff = .F.
SET DELETED ON
ENDIF
IF THIS.lUserNameIsCaseSensitive
llSuccess = SEEK(PADR(ALLTR((lcName)), ;
LEN(EVAL(THIS.cUserTableAlias+"."+THIS.cUserTableIDField))), ;
THIS.cUserTableAlias,"ID")
ELSE
llSuccess = SEEK(PADR(UPPER(ALLTR((lcName))), ;
LEN(EVAL(THIS.cUserTableAlias+"."+THIS.cUserTableIDField))), ;
THIS.cUserTableAlias,"ID_Upper")
ENDIF
IF llDeletedOff
SET DELETED OFF
ENDIF
IF llOpenedTable
USE IN (THIS.cUserTableAlias)
ENDIF
RETURN llSuccess
ENDPROC
PROCEDURE createusertable
LPARAMETERS tcTable
* is passed exact table name and location
* is separated out so that you can
* use different table structures more easily
* The application object expects that whatever table
* you use, you will have created one c-type field and placed
* its name in THIS.cUserTableIDField, and one i-type field and
* placed its name in THIS.cUserTableLevelField.
THIS.ClearLastError()
LOCAL liSelect, lcIDField, lcLevelField
lcIDField = THIS.cUserTableIDField
lcLevelField = THIS.cUserTableLevelField
liSelect = SELECT()
SELECT 0
CREATE TABLE (tcTable) ;
((lcIDField) C(60), ;
(lcLevelField) I, ;
UserPass M NOCPTRANS, ;
UserOpts M NOCPTRANS, ;
UserFave M NOCPTRANS, ;
UserMacro M NOCPTRANS, ;
UserNotes M )
INDEX ON PADR(ALLTR(&lcIDField.),60) TAG ID
* create a case-sensitive, exact word match
INDEX ON PADR(UPPER(ALLTR(&lcIDField.)),60) TAG ID_Upper
* create a case-insensitive, exact word match
INDEX ON DELETED() TAG IfDeleted
USE
SELECT (liSelect)
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE douserlogin
ASSERT USED(THIS.cUserTableAlias)
* we're supposed to be setting a record pointer
* in an open table here...
IF (NOT THIS.lUserPreferences)
RETURN .F.
ENDIF
LOCAL loForm
loForm = THIS.DoModalDialogClass(THIS.cUserLogInClass, THIS.cUserLogInClassLib, .T.)
IF VARTYPE(loForm) = "O"
loForm.Show(1)
RETURN (NOT EOF(THIS.cUserTableAlias))
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE filluseroptionsarray
ASSERT USED(THIS.cUserTableAlias)
IF TYPE(THIS.cUserTableAlias+".UserOpts") = "M" AND ;
NOT EMPTY(EVAL(THIS.cUserTableAlias+".UserOpts"))
RESTORE FROM MEMO (THIS.cUserTableAlias+".UserOpts") ADDITIVE
* adds a local array, laOptions
DIME THIS.aCurrentUserOpts[ALEN(laOptions,1),4]
* array columns: property name, value, property or SET, datasession or global
ACOPY(laOptions,THIS.aCurrentUserOpts)
ENDIF
ENDPROC
PROCEDURE applyuseroptsforsession
LPARAMETERS toSession
IF VARTYPE(toSession) # "O"
RETURN
ENDIF
LOCAL liSession, liRow, lcItem, lvValue, liPos, llInterrupted
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
liSession = SET("DATASESSION")
SET DATASESSION TO (toSession.DataSessionID)
FOR liRow = 1 TO ALEN(THIS.aCurrentUserOpts,1)
IF THIS.aCurrentUserOpts[liRow,4] && global preference, not private to session
LOOP
ENDIF
lcItem = THIS.aCurrentUserOpts[liRow,1]
lvValue = THIS.aCurrentUserOpts[liRow,2]
IF VARTYPE(lcItem) # "C"
LOOP
ENDIF
IF NOT THIS.aCurrentUserOpts[liRow,3] && property of form or form member
liPos = AT(".",lcItem)
IF (liPos = 0 AND PEMSTATUS(toSession,lcItem,5)) OR ;
(liPos > 1 AND PEMSTATUS(EVAL("toSession."+SUBSTR(lcItem,1,liPos-1)),SUBSTR(lcItem,liPos+1),5))
toSession.&lcItem. = lvValue
ENDIF
ELSE && SET value
IF VARTYPE(lvValue) # "C"
LOOP
ENDIF
SET &lcItem &lvValue
ENDIF
ENDFOR
SET DATASESSION TO (liSession)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN
ENDPROC
PROCEDURE seekdefaultuser
* this is broken out in case
* you want a different way of
* assigning a "default user record"
* than this one (blank user id field)
LOCAL llOpenedTable
IF NOT USED(THIS.cUserTableAlias)
* see notes in SeekCurrentUser()
USE (THIS.cUserTableName) IN 0 AGAIN SHARED ALIAS (THIS.cUserTableAlias)
IF NOT (THIS.IsErrorFree())
RETURN .F.
ENDIF
llOpenedTable = .T.
ENDIF
IF RECCOUNT(THIS.cUserTableAlias) > 0
IF NOT THIS.SeekCurrentUser("")
GO TOP IN (THIS.cUserTableAlias)
ENDIF
ELSE
APPEND BLANK IN (THIS.cUserTableAlias)
ENDIF
IF llOpenedTable
USE IN (THIS.cUserTableAlias)
ENDIF
ENDPROC
PROCEDURE applyglobaluseroptions
LOCAL liRow, lcItem, lvValue, liPos
FOR liRow = 1 TO ALEN(THIS.aCurrentUserOpts,1)
IF NOT THIS.aCurrentUserOpts[liRow,4] && datasession preference, not global
LOOP
ENDIF
lcItem = THIS.aCurrentUserOpts[liRow,1]
lvValue = THIS.aCurrentUserOpts[liRow,2]
IF VARTYPE(lcItem) # "C"
LOOP
ENDIF
IF NOT THIS.aCurrentUserOpts[liRow,3] && property of app or app member
liPos = AT(".",lcItem)
IF (liPos = 0 AND PEMSTATUS(THIS,lcItem,5)) OR ;
(liPos > 1 AND PEMSTATUS(EVAL("THIS."+SUBSTR(lcItem,1,liPos-1)),SUBSTR(lcItem,liPos+1),5))
THIS.&lcItem. = lvValue
ENDIF
ELSE && SET value
IF VARTYPE(lvValue) # "C"
LOOP
ENDIF
SET &lcItem &lvValue
ENDIF
ENDFOR
RETURN
ENDPROC
PROCEDURE getuseroptionsetting
LPARAMETERS tcOption,taOptionArray
IF VARTYPE(tcOption) # "C"
RETURN .NULL.
ENDIF
IF PCOUNT() = 2 AND TYPE("taOptionArray[1,1]") # "C"
RETURN .NULL.
ENDIF
LOCAL liElement, liRow, llExactSet
LOCAL ARRAY laTemp[1]
IF PCOUNT() = 2
ACOPY(taOptionArray,laTemp)
ELSE
ACOPY(THIS.aCurrentUserOpts,laTemp)
ENDIF
llExactSet = (SET("EXACT") = "OFF")
IF llExactSet
SET EXACT ON
ENDIF
liELEMENT = ASCAN(laTemp,tcOption)
IF llExactSet
SET EXACT OFF
ENDIF
IF NOT EMPTY(liElement)
liRow = ASUBSCRIPT(laTemp,liElement,1)
RETURN laTemp[liRow,2]
ELSE
RETURN .NULL.
ENDIF
ENDPROC
PROCEDURE purgeerrorlog
LOCAL lcTable, liSelect, lcAlias, llSafety
lcTable = THIS.cErrorLogTableName
IF EMPTY(lcTable) OR NOT FILE(lcTable)
MESSAGEBOX(ERRORVIEWER_UNAVAILABLE_LOC,MB_ICONINFORMATION,THIS.cCaption)
RETURN
ENDIF
THIS.ClearLastError()
THIS.lSkipErrorHandling = .T.
liSelect = SELECT()
lcAlias = "E"+SYS(2015)
USE (lcTable) ALIAS (lcAlias) EXCLUSIVE IN 0
THIS.lSkipErrorHandling = .F.
IF (NOT THIS.IsErrorFree()) OR (NOT USED(lcAlias))
THIS.ClearLastError()
MESSAGEBOX(ERRORVIEWER_IN_USE_LOC,MB_ICONSTOP,THIS.cCaption)
IF USED(lcAlias)
USE IN (lcAlias)
ENDIF
RETURN
ENDIF
IF NOT (RECCOUNT(lcAlias) = 0)
llSafety = SET("SAFETY") = "OFF"
IF llSafety
SET SAFETY ON
ENDIF
SELECT (lcAlias)
ZAP
SELECT (liSelect)
IF llSafety
SET SAFETY OFF
ENDIF
ENDIF
IF (RECCOUNT(lcAlias) = 0)
MESSAGEBOX(ERRORVIEWER_EMPTY_LOC,MB_ICONINFORMATION,THIS.cCaption)
ENDIF
USE IN (lcAlias)
RETURN
ENDPROC
PROCEDURE exporterrorlog
LOCAL lcTable, liSelect, lcAlias, loDialog, lcTableAlias, llReturn
lcTable = THIS.cErrorLogTableName
IF EMPTY(lcTable) OR NOT FILE(lcTable)
MESSAGEBOX(ERRORVIEWER_UNAVAILABLE_LOC,MB_ICONINFORMATION,THIS.cCaption)
RETURN
ENDIF
THIS.ClearLastError()
liSelect = SELECT()
lcAlias = "ExportErrors"
IF USED(lcAlias)
lcAlias = "E"+SYS(2015)
ENDIF
SELE 0
USE (lcTable) AGAIN SHARED
lcTableAlias = ALIAS()
IF (NOT THIS.IsErrorFree())
THIS.ClearLastError()
SELECT (liSelect)
RETURN
ENDIF
SELECT errstamp, ;
MLINE (listing,1)+" "+MLINE(listing,3) AS listing, ;
MLINE(usernotes,1) AS usernotes ;
FROM (lcTable) ;
INTO CURSOR (lcAlias)
SELECT (lcAlias)
USE IN (lcTableAlias)
IF _TALLY > 0
loDialog = THIS.DoModalDialogClass("_outputdialog","_reports", .T.)
IF VARTYPE(loDialog) = "O"
loDialog.Icon = THIS.cIcon
loDialog.cAlias = lcAlias
loDialog.lPreventSourceChanges = .T.
loDialog.cDisplayFontName = THIS.cTextDisplayFont
loDialog.cHTMLClass = THIS.SetHTMLClass(lcAlias,.T.)
loDialog.cHTMLStyleID = THIS.SetHTMLStyleID(lcAlias,.T.)
loDialog.Show(1)
loDialog = .NULL.
llReturn = .T.
ENDIF
ELSE
MESSAGEBOX(ERRORVIEWER_EMPTY_LOC,MB_ICONINFORMATION,THIS.cCaption)
ENDIF
IF USED(lcAlias)
USE IN (lcAlias)
ENDIF
SELECT (liSelect)
RETURN llReturn
ENDPROC
PROCEDURE refreshfavoritepopup
IF (NOT THIS.lFavorites) OR ;
TYPE("CNTBAR(THIS.cFavoritePopupName)") # "N"
RETURN .F.
ENDIF
LOCAL lcThisRef, lcStatement, lcFavoriteID, ;
liBarNo, lcAlias, liSelect, laFavorites[1]
lcThisRef = THIS.cReference
* release all but top bars:
FOR liBarNo = 4 TO CNTBAR(THIS.cFavoritePopupName)
RELEASE BAR liBarNo OF (THIS.cFavoritePopupName)
ENDFOR
liBarNo = 3
* open metatable
THIS.ClearLastError()
IF NOT EMPTY(THIS.cMetaTable)
lcAlias = "M"+SYS(2015)
USE (THIS.cMetaTable) ALIAS (lcAlias) AGAIN SHARED IN 0
ENDIF
IF NOT (THIS.IsErrorFree())
SET SKIP OF BAR 1 OF (THIS.cFavoritePopupName) .T.
SET SKIP OF BAR 2 OF (THIS.cFavoritePopupName) .T.
RETURN
ENDIF
liSelect = SELECT()
IF NOT EMPTY(lcAlias)
SELECT (lcAlias)
ENDIF
* now add rest of bars:
IF NOT EMPTY(THIS.cCurrentUserFavoriteIDs)
ALINES(laFavorites,THIS.cCurrentUserFavoriteIDs,.T.)
STORE "" TO lcFavoriteID, lcStatement
FOR EACH lcFavoriteID IN laFavorites
IF NOT EMPTY(lcFavoriteID)
lcFavoriteID = UPPER(ALLTR(lcFavoriteID))
lcStatement = ""
IF FILE(lcFavoriteID)
liBarNo = liBarNo + 1
DEFINE BAR liBarNo OF (THIS.cFavoritePopupName) ;
PROMPT lcFavoriteID
lcStatement = lcThisRef+"."
lcStatement = lcStatement+"DoFile"
lcStatement = lcStatement + "(["+lcFavoriteID+"])"
ELSE
IF NOT EMPTY(lcAlias) AND ;
THIS.SeekMetaTableFavoriteID(lcFavoriteID,lcAlias)
liBarNo = liBarNo + 1
DEFINE BAR liBarNo OF (THIS.cFavoritePopupName) ;
PROMPT ALLTR(Doc_Descr)
DO CASE
CASE NOT EMPTY(Alt_Exec)
lcStatement = ALLTRIM(Alt_Exec)
CASE Doc_Wrap
lcStatement = "DO (["+ ALLTRIM(Doc_Exec)+"])"
CASE Doc_Type = PJX_META_DOC_REPORT_TYPE
lcStatement = lcThisRef+".DoReport(["+;
ALLTRIM(Doc_Exec)+"],["+ ;
ALLTRIM(Doc_Descr)+"])"
CASE Doc_Type = PJX_META_DOC_FORM_TYPE
lcStatement = lcThisRef+".DoForm(["+ ;
ALLTRIM(Doc_Exec)+"],["+ ;
ALLTRIM(Doc_Class)+"],"+;
IIF(Doc_Single,".T.,",".F.,")+;
IIF(Doc_NoShow,".T.,",".F.,")+;
IIF(Doc_Go,".T.,",".F.,")+;
IIF(Doc_Nav,".T.",".F.")+")"
OTHERWISE
* ... ?
ENDCASE
ENDIF
ENDIF
IF NOT EMPTY(lcStatement)
ON SELECTION BAR liBarNo OF ;
(THIS.cFavoritePopupName) &lcStatement
ENDIF
ENDIF
ENDFOR
ENDIF
* no possible docs? got all possible docs as favorites? didn't get any favorites?
* the first two possibilities are no longer possible <g>, since
* we allow GETFILE() picking of favorites...
* however it's still possible not to be able to clear any favorites
* because there are none saved
SET SKIP OF BAR 2 OF (THIS.cFavoritePopupName) (liBarNo = 3)
IF NOT EMPTY(lcAlias)
USE IN (lcAlias)
ENDIF
SELECT (liSelect)
ENDPROC
PROCEDURE ctextdisplayfont_assign
LPARAMETERS tcNewVal
IF VARTYPE(tcNewVal) # "C" OR EMPTY(tcNewVal)
RETURN
ENDIF
LOCAL laTemp[1], lcVal, lcFont
lcVal = ALLTR(tcNewVal)
IF NOT EMPTY(AFONT(laTemp))
FOR EACH lcFont IN laTemp
IF UPPER(lcVal) == UPPER(lcFont)
THIS.cTextDisplayFont = lcVal
EXIT
ENDIF
ENDFOR
ENDIF
ENDPROC
PROCEDURE seekmetatablefavoriteid
LPARAMETERS tcFavoriteID,tcAlias
ASSERT USED(tcAlias)
ASSERT TYPE("VAL(tcFavoriteID)") = "N"
LOCAL liRecID
* this is meant to be overridden if you have a better idea!
* see the #DEFINE APP_META_FAVE_ID for what I'm using
* here...
liRecID = VAL(tcFavoriteID)
IF liRecID > 0 AND liRecID <= RECCOUNT(tcAlias)
GO liRecID IN (tcAlias)
RETURN (NOT DELETED(tcAlias))
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE setmacros
LPARAMETERS tlSave
IF VARTYPE(tlSave) # "L" OR (NOT THIS.lReadEvents)
RETURN
ENDIF
LOCAL llOpenedTable, liBar, llSuccess
THIS.ClearLastError()
IF NOT USED(THIS.cUserTableAlias)
USE (THIS.cUserTableName) ALIAS (THIS.cUserTableAlias) SHARED AGAIN IN 0
llOpenedTable = .T.
ENDIF
IF THIS.lUserPreferences
THIS.SeekCurrentUser()
ELSE
THIS.SeekDefaultUser()
ENDIF
IF THIS.IsErrorFree()
IF TYPE(THIS.cUserTableAlias+".UserMacro") = "M"
DO CASE
CASE tlSave
SAVE MACROS TO MEMO (THIS.cUserTableAlias+".UserMacro")
llSuccess = .T.
CASE NOT EMPTY(EVAL(THIS.cUserTableAlias+".UserMacro"))
llSuccess = .T.
CLEAR MACROS
RESTORE MACROS FROM MEMO (THIS.cUserTableAlias+".UserMacro")
OTHERWISE
CLEAR MACROS
* can't restore from empty field
ENDCASE
ENDIF
ENDIF
IF llOpenedTable
USE IN (THIS.cUserTableAlias)
ENDIF
IF TYPE("CNTBAR(THIS.cMacroPopupName)") = "N"
FOR liBar = 1 TO CNTBAR(THIS.cMacroPopupName)
IF UPPER(APP_MACRO_RESTORE_LOC) $ UPPER(BARPROMPT(liBar,THIS.cMacroPopupName))
SET SKIP OF BAR liBar OF (THIS.cMacroPopupName) (NOT llSuccess)
EXIT
ENDIF
ENDFOR
ENDIF
ENDPROC
PROCEDURE setcurrentuserfavoriteids
LPARAMETERS tcNewVal
LOCAL llOpenedTable, lcMetaTableLastUpdated, lcNewVal, ;
laFavorites[1], liVal
lcNewVal = ""
THIS.ClearLastError()
IF NOT USED(THIS.cUserTableAlias)
USE (THIS.cUserTableName) ALIAS (THIS.cUserTableAlias) SHARED AGAIN IN 0
llOpenedTable = .T.
ENDIF
IF THIS.IsErrorFree()
IF THIS.lUserPreferences
THIS.SeekCurrentUser()
ELSE
THIS.SeekDefaultUser()
ENDIF
ENDIF
IF THIS.IsErrorFree()
IF VARTYPE(tcNewVal) # "C"
* assignment to NULL while setting up a new user,
* or for some other reason improperly initialized, so
* refresh from the current or default record,
* checking lupdate and lastrefresh first
* set to "" if no good, with message
IF TYPE(THIS.cUserTableAlias+".UserFave") = "M" AND ;
NOT EMPTY(EVAL(THIS.cUserTableAlias+".UserFave"))
IF (ALINES(laFavorites,EVAL(THIS.cUserTableAlias+".UserFave"),.T.) > 1) AND ;
(TYPE(laFavorites[1])= "N")
IF DTOS(LUPDATE(THIS.cUserTableAlias)) # laFavorites[1]
* the meta table has been edited
IF (MESSAGEBOX(APP_META_TABLE_CHANGED_LOC, ;
MB_YESNO+MB_ICONEXCLAMATION, ;
THIS.cCaption) = IDYES)
REPLACE (THIS.cUserTableAlias+".UserFave") WITH "" ;
IN (THIS.cUserTableAlias)
ELSE
* change the datestamp so they don't get asked again
lcNewVal = EVAL(THIS.cUserTableAlias+".UserFave")
lcNewVal = DTOS(LUPDATE(THIS.cUserTableAlias))+ ;
SUBSTR(lcNewVal,AT(CHR(13),lcNewVal))
REPLACE (THIS.cUserTableAlias+".UserFave") WITH lcNewVal ;
IN (THIS.cUserTableAlias)
lcNewVal = ""
ENDIF
ENDIF
IF NOT EMPTY(EVAL(THIS.cUserTableAlias+".UserFave"))
FOR liVal = 2 TO ALEN(laFavorites)
IF NOT EMPTY(laFavorites[liVal])
lcNewVal = lcNewVal + CHR(13)+laFavorites[liVal]
ENDIF
ENDFOR
ENDIF
ELSE
MESSAGEBOX(APP_USER_FAVES_CORRUPT_LOC, ;
MB_ICONSTOP, ;
THIS.cCaption)
REPLACE (THIS.cUserTableAlias+".UserFave") ;
WITH "" IN (THIS.cUserTableAlias)
ENDIF
ENDIF
ELSE
* store the new string and the meta table lupdate,
* back to the current user in the table, or clear the entry
IF THIS.IsErrorFree()
IF NOT EMPTY(tcNewVal)
REPLACE (THIS.cUserTableAlias+".UserFave") ;
WITH DTOS(LUPDATE(THIS.cUserTableAlias))+ ;
tcNewVal ;
IN (THIS.cUserTableAlias)
lcNewVal = tcNewVal
ELSE
REPLACE (THIS.cUserTableAlias+".UserFave") ;
WITH "" IN (THIS.cUserTableAlias)
ENDIF
ENDIF
ENDIF
ENDIF
THIS.cCurrentUserFavoriteIDs = lcNewVal
IF llOpenedTable
USE IN (THIS.cUserTableAlias)
ENDIF
THIS.RefreshFavoritePopup()
ENDPROC
PROCEDURE dofile
LPARAMETERS tcFile
LOCAL lcFileName, liReturnValue, lcExt, lcStem, llReturn, llDevProduct
THIS.ClearLastError()
IF VARTYPE(tcFile) = "C" AND FILE(ALLTRIM(tcFile))
lcFileName = ALLTRIM(tcFile)
ENDIF
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName= THIS.GetResourceFileName(lcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcExt = " "+UPPER(JUSTEXT(lcFileName))+" "
IF NOT EMPTY(lcExt) AND LEN(lcExt) = 5
lcStem = FORCEEXT(lcFileName,"")
ENDIF
llReturn = NULL
llDevProduct = (VERS(2) # 0)
DO CASE
CASE EMPTY(lcStem)
* we didn't get anything we can use,
* don't bother checking the CASEs
CASE INLIST(lcExt," SCX ", " SCT ")
llReturn = THIS.DoForm(lcStem)
CASE INLIST(lcExt," LBX ", " LBT ")
llReturn = THIS.DoLabel(lcStem)
CASE INLIST(lcExt, " FRX ", " FRT ")
llReturn = THIS.DoReport(lcStem)
CASE lcExt == " MPX "
llReturn = THIS.DoMenu(lcFileName)
CASE INLIST(lcExt," MPR ", " MNX ", " MNT ") AND ;
( (llDevProduct AND FILE(FORCEEXT(lcFileName,"MPR"))) OR ;
FILE(FORCEEXT(lcFileName,"MPX")) )
llReturn = THIS.DoMenu(lcStem)
CASE INLIST(lcExt, " APP ", " FXP ")
llReturn = THIS.DoProgram(lcFileName)
CASE lcExt == " PRG " AND ;
( llDevProduct OR ;
FILE(FORCEEXT(lcFileName,"FXP")) )
llReturn = THIS.DoProgram(lcStem)
CASE INLIST(lcExt, " QPX ", " SPX ")
* must use full filename for queries and sprs,
* maintaining exact same behavior as the base product
llReturn = THIS.DoProgram(lcFileName)
CASE lcExt == " QPR " AND ;
( llDevProduct OR ;
FILE(FORCEEXT(lcFileName,"QPX")) )
llReturn = THIS.DoProgram(FORCEEXT(lcFileName, "QPX"))
CASE lcExt == " SPR " AND ;
( llDevProduct OR ;
FILE(FORCEEXT(lcFileName,"SPX")) )
llReturn = THIS.DoProgram(FORCEEXT(lcFileName, "SPX"))
OTHERWISE
* fall through to below, unknown type file
ENDCASE
IF ISNULL(llReturn)
DECLARE long ShellExecuteA IN SHELL32 ;
long, string, string, string, string, long
liReturnValue = ShellExecuteA( 0, "open", ;
lcFilename, "","", 1 )
llReturn = (liReturnValue >= 32)
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE clearfavorites
* this is meant for interactive confirmation/menu use
IF (MESSAGEBOX(APP_USER_FAVES_CLEAR_LOC, ;
MB_ICONQUESTION + MB_YESNO, ;
THIS.cCaption)) ;
= IDYES
THIS.SetCurrentUserFavoriteIDs("")
ENDIF
ENDPROC
PROCEDURE storepassword
LPARAMETERS tcValueToStore
IF (NOT THIS.lUserPreferences) OR ;
NOT USED(THIS.cUserTableAlias) OR ;
VARTYPE(tcValueToStore) # "C"
RETURN .F.
ENDIF
REPLACE UserPass WITH ;
(THIS.CreateStoredPassword(tcValueToStore)) IN ;
(THIS.cUserTableAlias)
ENDPROC
PROCEDURE createstoredpassword
* separated out for easier editing,
* created for Q&D checksum method of storing information,
* but this is not really encryption...
LPARAMETERS tcValueToStore
ASSERT VARTYPE(tcValueToStore) = "C"
RETURN SYS(2007,ALLTRIM(tcValueToStore))
ENDPROC
PROCEDURE checkpassword
LPARAMETERS tcValueToCheck
ASSERT VARTYPE(tcValueToCheck) = "C" AND USED(THIS.cUserTableAlias)
LOCAL lcValueToCheck, lcStoredPassword, llSuccess
IF (NOT THIS.lUserPreferences) OR ;
VARTYPE(tcValueToCheck) # "C"
RETURN .F.
ENDIF
lcValueToCheck = ALLTRIM(tcValueToCheck)
lcStoredPassword = EVAL("ALLTRIM("+THIS.cUserTableAlias+".UserPass)")
llSuccess = THIS.CheckValueAgainstStoredPassword(lcValueToCheck, lcStoredPassword)
RETURN llSuccess
ENDPROC
PROCEDURE checkvalueagainststoredpassword
LPARAMETERS tcValueToCheck, tcStoredValue
IF VARTYPE(tcValueToCheck) # "C"
RETURN .F.
ENDIF
* see notes in _application.CreateStoredPassword()...
* this method is separated out to make the method
* of encryption more easily edited...
RETURN (tcStoredValue == SYS(2007,tcValueToCheck))
ENDPROC
PROCEDURE lusercanchangepassword_access
*To do: Modify this routine for the Access method
RETURN THIS.lusercanchangepassword
ENDPROC
PROCEDURE lusercanchangepassword_assign
LPARAMETERS m.vNewVal
*To do: Modify this routine for the Assign method
THIS.lusercanchangepassword = m.vNewVal
ENDPROC
PROCEDURE dochangepassword
IF (NOT THIS.lUserPreferences)
* shouldn't even be in here
RETURN .F.
ENDIF
IF NOT THIS.lUserCanChangePassword
* this item may be on the menu
* but not applicable to this user,
* for various reasons
MESSAGEBOX(USER_PERMISSION_DENIED_LOC,MB_ICONEXCLAMATION,THIS.cCaption)
RETURN .F.
ENDIF
LOCAL llOpenedTable, llReturn
IF NOT USED(THIS.cUserTableAlias)
USE (THIS.cUserTableName) IN 0 AGAIN SHARED ALIAS (THIS.cUserTableAlias)
llOpenedTable = .T.
ENDIF
THIS.SeekCurrentUser()
llReturn = THIS.DoModalDialogClass(THIS.cChangePasswordClass, THIS.cChangePasswordClassLib)
IF llOpenedTable
USE IN (THIS.cUserTableAlias)
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE handleprojectwindow
LPARAMETERS tlShow
IF VARTYPE(THIS.cProjectName) = "C" AND ;
NOT EMPTY(THIS.cProjectName) AND ;
WEXIST( APP_PM_WIN_TITLE_LOC +THIS.cProjectName)
DO CASE
CASE tlShow AND (NOT WVISIBLE( APP_PM_WIN_TITLE_LOC +THIS.cProjectName))
SHOW WINDOW ( APP_PM_WIN_TITLE_LOC +THIS.cProjectName)
CASE tlShow
* no problem
OTHERWISE
HIDE WINDOW ( APP_PM_WIN_TITLE_LOC +THIS.cProjectName)
ENDCASE
ELSE
THIS.cProjectName = ""
* prevent SHOWing it later
* if we aren't responsible for HIDEing it
* at this point, even if it does exist
ENDIF
ENDPROC
PROCEDURE doformnoshow
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlGoMenu, tlNavToolbar
LOCAL loForm, liCount
THIS.RefreshFormsCollection()
liCount = THIS.nFormCount
loForm = .NULL.
THIS.DoForm(tcFileName,tcClass,tlNoMultipleInstances,.T.,tlGoMenu, tlNavToolbar)
IF THIS.nFormCount > liCount
loForm = THIS.aForms(THIS.nFormCount)
ENDIF
RETURN loForm
ENDPROC
PROCEDURE sethtmlstyleid
LPARAMETERS tcSource, tlTable
ENDPROC
PROCEDURE sethtmlclass
LPARAMETERS tcSource, tlTable
ENDPROC
PROCEDURE activate
THIS.ClearLastError()
THIS.BeforeReadEvents()
THIS.ReadEvents()
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE activateforminframe
LPARAMETERS toFormRef
LOCAL lcFormID, llToolbar
IF UPPER(toFormRef.BaseClass) == "TOOLBAR"
llToolbar = .T.
ENDIF
IF VARTYPE(THIS.oFrame) = "O" AND ;
toFormRef.ShowWindow = 0
IF llToolBar
lcFormID = toFormRef.Caption
toFormRef.Caption = "."
ELSE
lcFormID = toFormRef.Name
toFormRef.Name = "W"+SYS(2015)
ENDIF
ENDIF
IF EMPTY(lcFormID)
* ShowWindow is appropriate, no problem
IF (NOT llToolBar) AND ;
(toFormRef.WindowType = WINDOWTYPE_MODAL)
toFormRef.Show(1)
ELSE
toFormRef.Show()
ENDIF
ELSE
* fix the problem:
IF llToolbar
ACTIVATE WINDOW (toFormRef.Caption) ;
IN WINDOW (THIS.oFrame.Name)
toFormRef.Caption = lcFormID
ELSE
ACTIVATE WINDOW (toFormRef.Name) ;
IN WINDOW (THIS.oFrame.Name)
toFormRef.Name = lcFormID
IF toFormRef.WindowType = WINDOWTYPE_MODAL
toFormRef.Show(1)
ENDIF
ENDIF
ENDIF
ENDPROC
PROCEDURE createformmediator
LPARAMETERS toForm
IF VARTYPE(toForm) # "O" OR ;
NOT (UPPER(toForm.BaseClass) == "FORM")
RETURN NULL
ENDIF
LOCAL lcMediatorName, loMediator
IF TYPE("toForm."+THIS.cFormMediatorName+".Name") # "C"
lcMediatorName = THIS.cFormMediatorName
ELSE
lcMediatorName = "Mediator_"+SYS(2015)
* a mediator with a generated name
* is less useful and will cause slower
* behavior but it will do in a pinch
ENDIF
THIS.ClearLastError()
loMediator = THIS.Instantiate(THIS.cMediatorClass,THIS.cMediatorClassLib,,,;
toForm,lcMediatorName)
IF (NOT THIS.IsErrorFree()) OR (NOT THIS.FormIsFrameworkEnabled(toForm))
THIS.ClearLastError()
* required default classes
THIS.cMediatorClass = "_FormMediator"
THIS.cMediatorClassLib = "_FRAMEWK.VCX"
loMediator = THIS.Instantiate(THIS.cMediatorClass,THIS.cMediatorClassLib,,,;
toForm,lcMediatorName)
ENDIF
IF THIS.IsErrorFree()
loMediator.cAppRef = THIS.cReference
RETURN loMediator
ELSE
RETURN NULL
ENDIF
ENDPROC
PROCEDURE validatemetatable
LPARAMETERS tcTable, tlOmitFeedback
IF EMPTY(tcTable) AND EMPTY(THIS.cMetaTable)
RETURN .T.
ENDIF
LOCAL lcTable, lcMessage, lcAlias, liSelect, ;
llReturn, liTagCount ,laRequired[1], laKeys[1], ;
liFound, llExactOff
lcAlias = "M"+SYS(2015)
THIS.ClearLastError()
IF EMPTY(tcTable)
USE (THIS.cMetaTable) ALIAS (lcAlias) EXCLU IN 0
lcTable = THIS.cMetaTable
ELSE
USE (tcTable) ALIAS (lcAlias) EXCLU IN 0
lcTable = tcTable
ENDIF
llReturn = THIS.IsErrorFree() AND USED(lcAlias)
IF NOT llReturn
lcMessage = APP_META_UNAVAILABLE_LOC+;
CHR(13) + CHR(13)+ ;
lcTable
ENDIF
IF llReturn
llReturn = ;
TYPE(lcAlias+".DOC_TYPE") = "C" AND ;
TYPE(lcAlias+".DOC_DESCR") = "C" AND ;
TYPE(lcAlias+".DOC_EXEC") = "M" AND ;
TYPE(lcAlias+".DOC_CLASS") = "M" AND ;
TYPE(lcAlias+".DOC_NEW") = "L" AND ;
TYPE(lcAlias+".DOC_OPEN") = "L" AND ;
TYPE(lcAlias+".DOC_SINGLE") = "L" AND ;
TYPE(lcAlias+".DOC_NOSHOW") = "L" AND ;
TYPE(lcAlias+".DOC_WRAP") = "L" AND ;
TYPE(lcAlias+".DOC_GO") = "L" AND ;
TYPE(lcAlias+".DOC_NAV") = "L" AND ;
TYPE(lcAlias+".ALT_EXEC") = "M"
* the last two fields in the delivered metatable
* are non-required fields
IF NOT llReturn
lcMessage = APP_META_WRONGFORMAT_LOC + ;
CHR(13)+CHR(13)+ ;
lcTable
ENDIF
ENDIF
IF llReturn
IF (SET("EXACT") = "OFF")
SET EXACT ON
llExactOff = .T.
ENDIF
liSelect = SELECT()
SELECT (lcAlias)
* check for required tags...
DIME laRequired[5]
laRequired[1] = "DOC_OPEN"
laRequired[2] = "DOC_NEW"
laRequired[3] = "DOC_DESCR"
laRequired[4] = "DOC_TYPE"
laRequired[5] = "DELETED()"
DIME laKeys[TAGCOUNT()]
FOR liTagCount = 1 TO TAGCOUNT()
laKeys[liTagCount] = UPPER(KEY(liTagCount))
ENDFOR
FOR liTagCount = 1 TO ALEN(laRequired)
liFound = ASCAN(laKeys,UPPER(laRequired[liTagCount]))
IF liFound = 0
llReturn = .F.
EXIT
ENDIF
ENDFOR
IF NOT llReturn
lcMessage = APP_META_MISSINGINDEX_LOC + CHR(13) + ;
laRequired[1]+ CHR(13)+ ;
laRequired[2]+ CHR(13)+ ;
laRequired[3]+ CHR(13) + ;
laRequired[4]+ CHR(13) + ;
laRequired[5]
ENDIF
IF llExactOff
SET EXACT OFF
ENDIF
SELECT (liSelect)
ENDIF
IF NOT (llReturn OR tlOmitFeedback)
IF INLIST(_VFP.Startmode, 0, 4)
MESSAGEBOX(lcMessage,MB_ICONSTOP,THIS.cCaption)
ELSE
THIS.cusError.RecordServerError(;
THIS.cCaption+": "+lcMessage)
ENDIF
ENDIF
IF USED(lcAlias)
USE IN (lcAlias)
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE addmediatedsession
* Creates a data session with a mediator object attached,
* referenced in the aCollaborators collection,
* returns a reference to this framework-enabled session.
LOCAL loSession, lcPass
THIS.cSessionClassLib = THIS.GetResourceFileName(THIS.cSessionClassLib,".fxp .prg")
IF EMPTY(THIS.cSessionClass) OR EMPTY(THIS.cSessionClassLib)
lcPass = ".T."
ELSE
lcPass = ".T.,["+THIS.cSessionClass+"],["+THIS.cSessionClassLib+"]"
ENDIF
loSession = THIS.AddCollaborator(THIS.cMediatedSessionClass, THIS.cMediatedSessionClassLib,,lcPass)
IF NOT ISNULL(loSession)
loSession.LoadApp(THIS.cReference)
* save class def information, which
* may in some instances be generated,
* for other members, so it doesn't need to be
* re-generated each time
IF EMPTY(THIS.cSessionClass) AND NOT EMPTY(loSession.cSessionClass)
THIS.cSessionClass = loSession.cSessionClass
ENDIF
IF EMPTY(THIS.cSessionClassLib) AND NOT EMPTY(loSession.cSessionClassLib)
THIS.cSessionClassLib = loSession.cSessionClassLib
ENDIF
ENDIF
RETURN loSession
ENDPROC
PROCEDURE releasesessions
LPARAMETERS tlForce
LOCAL loCollaborator, liMemberIndex, llInterrupted
llInterrupted = (NOT THIS.lNoInterrupt)
IF llInterrupted
THIS.lNoInterrupt = .T.
ENDIF
FOR EACH loCollaborator IN THIS.aCollaborators
IF VARTYPE(loCollaborator) # "O" ;
OR NOT PEMSTATUS(loCollaborator,"DataSessionID",5)
LOOP
ENDIF
IF tlForce
THIS.DataRevert(.T.,.F.,loCollaborator)
ELSE
DO CASE
CASE THIS.iQueryUnloadResultForNonVisualSessions = 0
THIS.DataRevert(.T.,.F.,loCollaborator)
CASE THIS.iQueryUnloadResultForNonVisualSessions = 1
THIS.DataUpdate(.T.,.F.,loCollaborator)
OTHERWISE
IF NOT THIS.QueryDataSessionUnload(.F.,loCollaborator)
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN .F.
ENDIF
ENDCASE
ENDIF
ENDFOR
* only once they have confirmed all possible dataupdating/cancelling
* out of the process do we begin to actually close sessions, just as with forms
FOR liMemberIndex = 1 TO ALEN(THIS.aCollaborators)
loCollaborator = THIS.aCollaborators[liMemberIndex]
IF VARTYPE(loCollaborator) # "O" ;
OR NOT PEMSTATUS(loCollaborator,"DataSessionID",5)
LOOP
ENDIF
IF TYPE("loCollaborator.Parent") = "O"
loCollaborator.Parent.RemoveObject(loCollaborator.Name)
ELSE
IF PEMSTATUS(loCollaborator,"Release",5)
loCollaborator.Release()
ENDIF
ENDIF
loCollaborator = NULL
THIS.aCollaborators[liMemberIndex] = NULL
ENDFOR
IF llInterrupted
THIS.lNoInterrupt = .F.
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE lnointerrupt_assign
LPARAMETERS tvNewVal
IF VARTYPE(tvNewVal) = "L" AND ;
tvNewVal # THIS.lNoInterrupt
WITH THIS.tmrRefresh
IF tvNewVal
.Interval = 0
ELSE
.Interval = .iRegularInterval
ENDIF
ENDWITH
THIS.lNoInterrupt = tvNewVal
ENDIF
ENDPROC
PROCEDURE Init
IF NOT DODEFAULT()
RETURN .F.
ENDIF
THIS.cIcon = THIS.GetResourceFileName(THIS.cIcon, ".ico", .T.)
THIS.cImage = THIS.GetResourceFileName(THIS.cImage, ".bmp .ico .gif", .T.)
IF VARTYPE(THIS.cReference) = "C" AND (NOT EMPTY(THIS.cReference))
THIS.cReference = THIS.cReference
ENDIF
IF NOT THIS.SetAppFileNames()
RETURN .F.
ENDIF
IF VERSION(2) = 0 AND _VFP.StartMode = 4 AND ;
UPPER(THIS.cClassContainerFileName) == UPPER(THIS.cAppFileName)
* if the running EXE is this file, and this file
* is not set up to be Read Events, make it Read Events anyway.
THIS.lReadEvents = .T.
ENDIF
RETURN (THIS.IsErrorFree())
ENDPROC
PROCEDURE Destroy
DODEFAULT()
THIS.lNoInterrupt = .T.
* one last disable the timer so we can avoid it
* interfering while we're closing up shop.
IF EMPTY(THIS.cFrameClass) AND (NOT EMPTY(THIS.cGoMenuFile))
RELEASE PAD _msm_Go OF _MSYSMENU
RELEASE POPUP _mGo EXTENDED
ENDIF
* some of this is double-handling but
* will not hurt -- it's possible
* that a CLEAR ALL or other mechanism
* has ended the app without a Release()
* method having been issued -- such
* as a failed Show method:
THIS.ReleaseContextMenus(.T.)
THIS.ReleaseSessions(.T.)
THIS.ReleaseForms(.T.)
THIS.ReleaseToolbars(.T.)
THIS.ReleaseCollaborators()
THIS.ReleaseFrame()
THIS.ClearEvents()
IF USED(THIS.cUserTableAlias)
USE IN (THIS.cUserTableAlias)
ENDIF
IF NOT THIS.lRestoredEnvironment
* must restore environment
* at all times, because
* failure may have occurred
* during Show, but
* have to make sure *not*
* to restore environment
* if it's already been done
* because there are things
* in here than cannot or
* should not be done twice:
THIS.RestoreEnvironment()
ENDIF
IF NOT EMPTY(THIS.cReference)
RELEASE (THIS.cReference)
ENDIF
THIS.HandleProjectWindow(.T.)
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
THIS.iLastError = nError
IF THIS.lSkipErrorHandling
* special cases -- right
* now this is done when
* trying to USE the error log EXCLUSIVEly
* for purging
RETURN
ENDIF
THIS.cusError.Handle(nError,cMethod,nLine)
LOCAL llFatal, llUserCancelled, lcCaller, lcProg, ;
llNoCodeExecuting, liLevel, lcTemp
llFatal = THIS.cusError.IsFatal()
llUserCancelled = THIS.cusError.UserCancelled()
IF NOT (llFatal OR llUserCancelled)
liLevel = 0
lcCaller = ""
lcProg = PROGRAM(0)
DO WHILE .T.
lcCaller = PROGRAM(liLevel)
liLevel = liLevel + 1
lcProg = PROGRAM(liLevel)
IF EMPTY(lcProg) OR (UPPER(lcProg) == UPPER(THIS.Name+".ERROR"))
EXIT
ENDIF
ENDDO
llNoCodeExecuting = (UPPER(lcCaller) == UPPER(THIS.Name+".READEVENTS"))
ENDIF
DO CASE
CASE THIS.iLastError # nError
* an error in the error handler!
* this will have been taken care of
* and we don't want to get
* into a recursive situation
CASE llFatal OR llUserCancelled
IF THIS.lReadEvents
lcTemp = THIS.cLastOnError
ON ERROR &lcTemp
* remove reference to App Object
* in error handler *now* before
* it can start messing about with
* destroying itself
ENDIF
THIS.Release()
CASE llNoCodeExecuting
RETRY
OTHERWISE
RETURN
ENDCASE
ENDPROC
PROCEDURE release
LPARAMETERS tlForce
IF NOT THIS.ReleaseSessions(tlForce)
RETURN .F.
ENDIF
IF NOT THIS.ReleaseForms(tlForce)
RETURN .F.
ENDIF
THIS.lNoInterrupt = .T.
THIS.ReleaseContextMenus(tlForce)
THIS.ReleaseToolbars(tlForce)
THIS.ReleaseCollaborators()
THIS.ReleaseFrame()
THIS.ClearEvents()
RELEASE THIS
ENDPROC
�� � � Ym % � A � U @ ��C�� T� � �� %�C� � �
��9 � < ��� � �� � U THIS OAPP CMENUNAME� �� � � %�C� � ��� O��� � T� �Ca� � � ��
%�� ��~ � T� �� � �� T� � �� T� � ��
��C� � �� � �� � T� �a�� � %��
��� � �� � B�� �� U LOTEMP LLRETURN THIS OAPP
ONSHUTDOWN OFRAME RELEASE;
%�C��% � T� � �� MC��]�� �4 � B�-�� � U THIS CMENUNAME Destroy, �� QueryUnload� �� Load� ��1 � � 1� A 6 � �R� � � � B � � B � B B � 3 � �� q A 3 � � ) D � - ) � �� � � �� % � W ! � U �$ %�C� � imgApplication��h��� �! %�C� � �
�
C� � 0 ��l � T� � � �a�� T� � � �� � �� �� � T� � � �-�� � �( %�C� � lblApplicationName��h��� � T� � � �� � �� � %�C� �
lblCredits��h���� T� � � �� � ��& T� � � �� � � C�
� �
��& T� � � �� � � C�
� � ��& T� � � �� � � C�
� � ��& T� � � �� � � C�
� �
�� � U THIS CIMAGE IMGAPPLICATION VISIBLE PICTURE LBLAPPLICATIONNAME CAPTION CCAPTION
LBLCREDITS CAUTHOR CCOMPANY
CCOPYRIGHT
CTRADEMARK CVERSION� �� � %�C � ��� �# T� � �� About� C� � _�� T� � �C� � _�� T� � �C� � _�� T� � �C� � _�� T� � �C� � _�� T� � �C� � _�� T� � �C� � _�� T� � �C� � _�� �
��C� �
�� U TOAPP THIS CAPTION CCAPTION CVERSION
CCOPYRIGHT CCOMPANY CAUTHOR
CTRADEMARK CIMAGE APPLYATTRIBUTESTODIALOGELEMENTS applyattributestodialogelements, �� applyappattributesl ��1 Aa� A A �aA bddddB 4 q 3QQQQQQQC � 3 + S | y ( ) � �� � � � % S h b � U
��C� � �� U THISFORM RELEASE Click, ��1 � 1 # ) �
H�� /
/
0�
% � V T � � U � T� � �� � ��� %�� � � � ��} �5 ��C� Attempts to log in exceed limit!�� � �x��
��C� � ��
��C� � �� � U THIS ITRIES
ITRIESALLOWED CAPTION FAILLOGIN RELEASEM �� � T� � �-�� %�C� � ��:�L %�C�! Would you like to add a new user?�4� User not listed.�x���6� T� �C� � � ���' r��� � � ��� � � ���� �� T� � �a��z ��C�' Store a new password for this user now.C�
C�
�. This new user will receive basic-level access.� � � �x�� � � B�� � �� U
LCNAME THIS LADDINGUSER OKTOADDUSER TXTNAME VALUE OAPP CUSERTABLEALIAS CUSERTABLEIDFIELD CAPTION
B�a�� U / �� � ��C� ��� C�� ��C � � � � �� U TCVALUETOSTORE THIS OAPP
STOREPASSWORD �� � B�C � � � � �� U TCVALUETOCHECK THIS OAPP
CHECKPASSWORDC %�C� � � N� ��< � #�� � � �6� H�� � � �� � U THIS OAPP CUSERTABLEALIAS� %�� � ���� � %�� � � � � ��� � %�� � ��V � ��CC� � � �� � �� �� � %�CC� � � �� �
��� �6 R,����C�! Incorrect password for this user.��=�� ��C� � � �� �� � � �� �
��C� �
�� � � U THIS RELEASETYPE
LVALIDUSER LVALIDPASSWORD LADDINGUSER STORENEWPASSWORDINFO TXTPASSWORD VALUE CHECKPASSWORDINFO SETFOCUS FAILLOGINN �� � �� � T� �C � ��
%�� ��(�% %�C� � ��� C�
C� � �
��\ � T� �-�� �$�& T� � �� � � �
User Login�� %�C� � �
��� � %�C� � ��� � T� � � �� � �� T� �
�a�� �� � T� �
�-�� � �� T� �
�-�� � T� � �-�� T� � �� �� � � %��
��G�
��C� �
�� � U TOAPP LLSUCCESS CUSERTABLEALIAS THIS CAPTION CCAPTION CCURRENTUSER SEEKCURRENTUSER TXTNAME VALUE
LVALIDUSER LVALIDPASSWORD OAPP RELEASE T� � �� U THIS OAPP= �� � � %�� ���6 �
��C� � ��
��C� � �� � U NKEYCODE
NSHIFTALTCTRL THIS FAILLOGIN RELEASE incrementfailedattempts, ��
addusernow� �� oktoadduser� �� storenewpasswordinfo� �� checkpasswordinfo �� faillogind �� QueryUnload� �� applyappattributesG �� Destroy/ �� KeyPressP ��1 qqQ� � A 2 r � �Qs� �B A � 6 v 2 q B4 q R3 �!A 4 A��� �aA A A � � A A 2 q q � Q� � a1a� � � A � � A � A A � � A 2 � 2 � � � A 2 # � � $ F # : � + � ! 3 A 9 " + C 2 @ �
T L �
�
o N � r ) /
�� � � �� % @ � O � U ` �� � T� � �-�� %�C� � ���9 � T� � �-�� B� � T� �C� � � � � �� %��
��v � T� �C� � �� � T� � �� �� %��
��� � %�C� BELLv� ON��� � ��C� �� �% R,����C� User not listed.��=��
��C� � �� �* %�� � � �
� C� � � �
��P� %�CC� � � �� � ��L�
��C� �
�� � � B�� �� U LLSUCCESS THISFORM LVALIDPASSWORD THIS VALUE
LVALIDUSER OAPP SEEKCURRENTUSER
ADDUSERNOW INCREMENTFAILEDATTEMPTS LADDINGUSER TXTPASSWORD CHECKPASSWORDINFO RELEASE Valid, ��1 q � !� A A �� B � �� A Q� A ��� A A � 1 � ) � 9�� � % � � � � U � ��C� � � +
�� �� � � T� �C� � ��� %�� � ��x � ��C � � � �� T� � �-�� T� � �a�� T� �a�� �
H�� �� � �� � ��� � T� �C � � �
�� T� � �� �� 2�� � T� � �-�� �
%�� ��� �
��C� � �� ��� %�C� BELLv� ON��!� ��C� �� � %�� � ����6 R,����C�! Incorrect password for this user.��=��
��C� �
�� %�C� ����� B�� �� � � � U THISFORM OAPP CUSERTABLEALIAS LLSUCCESS
LCPASSWORD THIS VALUE LADDINGUSER STORENEWPASSWORDINFO
LVALIDUSER CHECKPASSWORDINFO LVALIDPASSWORD RELEASE INCREMENTFAILEDATTEMPTS Valid, ��1 1� "� � � A � Q� � A � � � �� A f� � � A A A 4 G ) q�� X X K� % � 2 � � U s �� � � � � � � � �� �
T� �C�t��
%�C��]� %�� � � C� ��� C ��p � T� � �� �� � %�� �� C� ��� C ��� � T� �
�� �� � %�� �� C� ��� C ��� � T� � �� �� � %�� �� C� ��� C �� � T� � �� �� � %�� �� C� ��� C ��@� T� �
�� �� � %�� �� C� ��� C ��t� T� � �� �� � %�� �� C� ��� C ���� T� � �� �� � T� � �C� � ��� %�C� .� � � ���� T� � �� � � .bmp�� � T� � �C� � ��� %�C� � 0��I� T� � � �a�� T� � � �� � �� �b� T� � � �-�� � %�C� � �
���� T� � � �C� � _�� � T� � � �C� � _��( T� � � �� � � C�
C� � _��( T� � � �� � � C�
C� �
_��( T� � � �� � � C�
C� � _��( T� � � �� � � C�
C� �
_�� T� � �� �� �l� B�-�� � U TCCAPTION TCVERSION TCAUTHOR TCCOMPANY TCCOPYRIGHT TCTRADEMARK TCIMAGE LIPCOUNT THIS CCAPTION CVERSION CAUTHOR CCOMPANY
CCOPYRIGHT
CTRADEMARK CIMAGE IMGAPPLICATION VISIBLE PICTURE LBLAPPLICATIONNAME CAPTION
LBLCREDITS TITLEBAR Init, ��1 �r � � A A A A A A A R��A Q2a� A 2�A ������ r B 2 < ) X X�� ? ? H % / � . z � U � �� � %�C� ��� O��� � %�C� � ���M � T� � �� � � � � �� � %�C� � ���v � T� � �� � �� �
��C� � �� ��C� � � � �� �� � B�-�� � U TOAPP THIS CAPTION CCAPTION ICON CICON ADJUSTFORSYSTEMFONTSIZE APPLYUSEROPTSFORSESSION
DATASESSIONID~ �� � �� %�C��
MS Sans Serif�� �$�
�! C��
MS Sans Serif�� �$� �! C��
MS Sans Serif�� �$� �! C��
MS Sans Serif�� �$� ��w� T� �C�
MS Sans Seriff�� �� � � �s�
H�� �o�. �C� � FontName��h�
C� � f� �� � T� � �� Arial��( �C� loControl.Buttons(1)b� O��g� ��C� FontName� Arial� � �� 2�o� � �� � U LCSTANDARDFONT LOCONTROL THIS CONTROLS FONTNAME SETALL� ��C�� G2 � %�� � ��� � �� � � �� �9� �� �3 %�� � � � � � � � � � � � ��� � T� �a��
��C� � �� T� � �� � �� !� � ��
%�� ��� � B�-�� � � U
THIS
LSINGLETON LOFORM LLFOUND FORMS CLASSLIBRARY CLASS VISIBLE SHOW
AUTOCENTER applyappattributes, �� adjustforsystemfontsizeN �� Load
��1 q R!�A !1A � 1� q A 4 � e �#� �R�� O B B 4 � a � 3� � 1A A A � q A A 3 i � � � � A ) ? �� � � k� % � P � U � ! %�C� � � �C� � � ���� � ��CC� � � �� � � ��: ��C�% Your new password has been accepted. � � � �x�� J�C� X�(� � � � � � � � U THIS TXTCONFIRMPASSWORD VALUE TXTPASSWORD OAPP
STOREPASSWORD CAPTION� �� � �� � T� �C � ��
%�� ��� � %�C� � ���y �+ T� � �� � � � Change Password�� T� � �� �� �� � T� �-�� � � %�� � C� � �
��� �
��C� � �� � U TOAPP LLSUCCESS CUSERTABLEALIAS THIS CAPTION CCAPTION OAPP ISERRORFREE RELEASE ��C�� T� � �� U THIS OAPP0 �� � � %�� ���) �
��C� � �� � U NKEYCODE
NSHIFTALTCTRL THIS RELEASE savepassword, �� applyappattributes �� Destroy9 �� KeyPressc ��1 ���A 4 q q � !�� � A A �� A 3 � � 2 � � A 3 7 ` �
� � t ) � �� � � s{ % � � � � U ( % T� � � �C� � � �C� � ��� U THISFORM CMDOK ENABLED TXTCONFIRMPASSWORD VALUE THIS InteractiveChange, ��1 Q1 y ) � �� � � r� % � � � � U ( % T� � � �C� � � �C� � ��� U THISFORM CMDOK ENABLED TXTPASSWORD VALUE THIS InteractiveChange, ��1 Q1 r ) � �� � � 94 % n � } � U
��C� � ��
��C� � �� U THISFORM SAVEPASSWORD RELEASE Click, ��1 � � 1 < ) � �� � � � % S h b � U
��C� � �� U THISFORM RELEASE Click, ��1 � 2 % ) � ��� m m s� % j - � � U � �� � � %�C � � �
��( � B�-�� �
%�� ��d �+ T� � �� Choose a document to create�� �� �) T� � �� Choose a document to open�� � U TOAPP TLNEW THIS CAPTION0 �� � T� �� � � �� %�C� ���- � B� �
H�> �)� �CC � � � � �
��� � �� � T� �CC � � � � ��� &lcStatement
�C � �� � ��� � �CC � �� � ��� 2�)�h ��CCC � �� � �CC � �� � �C � �� � C � �� � C � �� � C � �� � � � � �� � U LIROW THISFORM LSTDOCUMENTS VALUE THIS
ADOCUMENTS LCSTATEMENT OAPP DOFORM� �� � � � ����� �� %�C� ���3 � B�-�� � �� � %�� � ��h � T� ��
AND DOC_NEW �� �� � T� �� AND DOC_OPEN �� �$ T� �� � AND NOT DELETED() �� %�� � ��� � T� �� � ORDER BY 1 �� �� SELECT DOC_DESCR, DOC_EXEC, DOC_CLASS, DOC_SINGLE, DOC_NOSHOW, DOC_GO, DOC_NAV, DOC_WRAP, ALT_EXEC FROM (tcMetaTableName) WHERE DOC_TYPE = "F" &lcConditions INTO ARRAY THIS.aDocuments
B�� � �� U TCMETATABLENAME THIS
ADOCUMENTS LCCONDITIONS LNEW LSORTED Init, �� execdocument� �� filldocumentsarrayp ��1 � bq A � �� �A 4 q 2� A A � �q ��q� �A 5 q b� r B r �� �A B�A * � 5 � � � � N 1 ) m �� � � q� % � � - 9 � U � �� � � � ������� %�C� ���3 � B�-�� � �� � %�� � ��h � T� ��
AND DOC_NEW �� �� � T� �� AND DOC_OPEN �� �$ T� �� � AND NOT DELETED() �� %�� � ��� � T� �� � ORDER BY 1 �� �� SELECT DOC_DESCR, DOC_EXEC, DOC_WRAP, ALT_EXEC FROM (tcMetaTableName) WHERE DOC_TYPE = "R" &lcConditions INTO ARRAY THIS.aDocuments
B�� � �� U TCMETATABLENAME THIS
ADOCUMENTS LCCONDITIONS LNEW LSORTED� �� � T� �� � � �� %�C� ���- � B� �
H�> �� � �CC � �� � �
��� � �� � T� �CC � �� � ��� &lcStatement
�C � �� � ��� � �CC � �� � ��� 2�� �0 ��CCC � �� � �CC � �� � �� � � �� � U LIROW THISFORM LSTDOCUMENTS VALUE THIS
ADOCUMENTS LCSTATEMENT OAPP DOREPORT� �� � � %�C � � �
��( � B�-�� �
%�� ��b �) T� � �� Choose a report to modify�� �� �& T� � �� Choose a report to run�� � U TOAPP TLADD THIS CAPTION filldocumentsarray, �� execdocument� �� InitA ��1 q b� r B s �� �A B�A �� 6 q 2� A A � �q ��q� B 5 � bq A � �� aA 3 � � � ) # G ) � �� � �
S % � J | � U � �� � � � � � T� �C� � ��� T� �� � � �� ��� � ��� �6 T� �C�� �
�$C�� �
�$C�� �
�$��" T� �C� � C��%� �F�� T� �� ��� %�C� � � �
��� � T� �C� � F�� � �� T� � �� �
��3 T� � �C� � �� � � � � � � D��! T� � �C� � � � �D��' T� � �C� � � � � � �D�� T� �� � � ��( T� �
�� � �
� � �
� ��� U LIMAXROWS LNLISTROWHEIGHT LNLISTMAXHEIGHT LNLISTMINHEIGHT LNMARGIN THIS
ADOCUMENTS LSTDOCUMENTS TOP FONTNAME FONTSIZE HEIGHT MINWIDTH WIDTH MINHEIGHT CMDCANCEL MAXHEIGHT LEFT ��C�� G � U S �� � � %�C�
�� � B�-�� � �� ���� � ��C� ��� L��� ��C� toApp.cMetaTableb� C� C�� � �a� � C� � _APPLICATION�� � ��> Must pass a reference to an object descended from _APPLICATION�� T� � �� �� T� � �� ��
H��#�L �C� � �� CC� � � .dbf� � � �
� CC��� �
��� C ����7 ��C�" No registered documents available.�0� � �x�� �C� �
������& T� � �
�� THISFORM.aDocuments�� T� � � ����
��C� � �� 2�#� T� �a��& T� � �
�� THISFORM.aDocuments�� � %��
��C� T� � �� � B�� �� U TOAPP TLNEW LATEMP LLRETURN THIS LNEW OAPP
CMETATABLE FILLDOCUMENTSARRAY GETRESOURCEFILENAME
ADOCUMENTS CCAPTION LSTDOCUMENTS ROWSOURCE VALUE EXECDOCUMENT ��C�� T� � �� U THIS OAPPq �� � �
H� �j � �� ���= � ��C� � � �� �� �� ���b � ��C� � � �� �� 2�j � � U NKEYCODE
NSHIFTALTCTRL THIS CMDCANCEL CLICK CMDOK� �� � T� �� � � ��/ J�� � � � � � �(� � � � � � �" J�� � � � ��(� � � � T� �� � � �� J�� � � ��(� � � � U LNMARGIN THIS LSTDOCUMENTS LEFT WIDTH CMDCANCEL CMDOK TOP HEIGHT9 �� � %�C � ��2 �
��C� � ��
��C� � �� � U TOAPP THIS SETDIALOGSIZEPARAMETERS RESIZE setdialogsizeparameters, �� Load� �� Init� �� Destroy� �� KeyPress� �� Resize� �� applyappattributes� ��1 qR2c#rAA B 42r2�4 � a 2 � � q A T � �t�a1� � � aA � � A � 3 � � 2 � � A A � A 3 q 2�"2�4 q � � A 4 # � � � & � � * / � � X 2 � \ = � N i D w � z ) � h�� O O j
% � � � � U 8 �� � � %�C� �
� ���1 �
��C� � �� �� � U NKEYCODE
NSHIFTALTCTRL THIS DBLCLICK ��C� � � �� U THISFORM CMDOK CLICK KeyPress, �� DblClick� ��1 � Q� A A 2 1 } � � ) O �� �] % � � � � U 7 %�C� � � �
��# �
��C� � �� �
��C� � �� U THISFORM LSTDOCUMENTS VALUE EXECDOCUMENT RELEASE Click, ��1 a� A � 3 x ) �� � � � % S h b � U
��C� � �� U THISFORM RELEASE Click, ��1 � 1 # ) � _�� F F [
% � = � U � �� � ��� � �� �� � � � %�C� ��� C� C� �
��� � T� �C� ��� T� �C� � � ��� %�CC� �RC�
C�
���� � T� � � �� � �� �� � T� � � �� C�
� �� � ���
T� �� �� �� ���(�C� � �����' %�CC � �� � C� * >=� * ���� T� �� C�
�� %�CC � � � � ���t�) T� �� CC � �� � C� * >�\�� ��� T� �� C � � � � �� � � �� T� � � �� �� � U TCFAVORITEIDTOADD THIS LNEW LCCURRENTIDS LCID LIID OAPP CCURRENTUSERFAVORITEIDS
ADOCUMENTS� %�� � ��� �0 %�� � � � � CC� � � �� � � ��[ � J�-�(� � � � � � � �� �3 J�CC� � � �� � C� * >=� * �(� � � � J�� � �
�(� � � � � � U THIS LNEW LSTDOCUMENTS VALUE
ADOCUMENTS CMDOK ENABLED CMDREMOVE� ��� � �� �� � � T� �� � � �� T� �C� � ���9 %�C� �� �
� CC � �� � C� * >=� * ��| � B� �
H�� �s� �CC � �� � ���� � B� �CC � � � � ���7� ��C� � � ��� %�� ���� T� �� ��� � � �� ��� �� �3� T� � �������� �� � 2�s�4 T� � �� �����CC � �� � C� * >�\�� � ��C� � � �� %�� � ���� T� � � �� �� ��� T� � � �� �� �
��C� � �� U THIS LNEW LIROW LICOUNT LSTDOCUMENTS VALUE
ADOCUMENTS REQUERY REFRESHFAVORITEIDS� ��C�� �� �% T� �� � � � � � � � ��% T� � � �� � � � � � ��# J�� � � �(� � � � � � � U LNMARGIN THIS HEIGHT LSTDOCUMENTS TOP CMDBROWSE CMDCANCEL LEFT CMDREMOVEw �� � � � ����� ��- �� � � � ���� � � �
� � T� �C� EXACTv� OFF��
%�� ��y � G � �
T� �� ��
T� �� �� %�C� �
���� T�
�C � � .dbf� � �
�� %�C�
�
����) T� �� DOC_OPEN AND NOT DELETED() ��� SELECT DOC_DESCR, DOC_EXEC, DOC_CLASS, DOC_SINGLE, DOC_NOSHOW, DOC_GO, DOC_NAV, DOC_WRAP, ALT_EXEC, DOC_TYPE, STR(RECNO()) AS DOC_ID FROM (lcTable) WHERE &lcConditions INTO ARRAY THIS.aDocuments
J�� �(� � � � � T� �C�� � � � a��� %�� � ���� �� ���(�� ����) T� � �� ��� ��CC � � � � ���# %�C� C � � � � �� ���� %�� � ����- T� � �� ������ * C � �� � �� T� �� ��� � � �� � %�� � ���� �� � ���- %�C� �
� C� � � �� � C� 0 ���� T� �� ��� T� �� ��� � � �� ��� �� T� � �� �����CC� f��� %�� � ����- T� � �� ������ * C � �� � �� � � �� �
%�� ���� G � � %�� � ���� ��C� � ��� �& %�� � � � � � � � ��A� T� � �������� �� �/ B�� � � � � � � � � � � �� U TCMETATABLENAME THIS
ADOCUMENTS LITALLY
LIDOCUMENT LCCONDITIONS LAFAVORITES LIFAVES
LCDOCUMENT
LLEXACTSET LCTABLE LIDOCS OAPP GETRESOURCEFILENAME CCURRENTUSERFAVORITEIDS LNEW LSORTED LALLOWFILEBROWSING� �� �% �� � � � � ���� � � T� �� � �
��B %�C� ��� C�* CC � �� � �� C� �C� � �ͫ
��� � B� � %�C� ��� C��U� T� �CC� �f�� T� �C� ���! %�C� � SCT� LBT� FRT���� T� �C� C� >�=� X�� T� �C� C� >�=� X�� � %�C� 0
��F� ��C � � � �
�� B� � T� �a�� �K�' %�CC � �� � C� * >=� * ����
��C� � �� B� � %�� � ���� T� �C � � � � ��- T� � �� ������ * C � �� � �� �G� %�CC � � � � ���C� T� �C � �� � �� T� �a�� T� �C� ��� � � � %�� � ��&� %�C� �
��"� ��C�� � � � a��� T� �C� EXACTv� OFF��
%�� ���� G � � %�C� � �� ����
%�� ��y� T� �C� � ���6 %�CC � �� � ��� C� CC � �� � �
��S� T� �� ��� � � �� ��� �� �" T� � �� ������ * � �� � ��C� � � �� T� � �
�� �� ��C � � � �� ��N ��C� C�
C�
�& has already been picked for Favorites.�0� � � �x�� �
%�� �� � G � � � ���
%�� ��O� ��C � � � � �� ���
H�d��� �CC � � � � �
���� T� �CC � � � � ��� &lcStatement
�C � �� � ���� �CC � �� � ��� 2��� %�CC � �
� � �� R��/�0 ��CCC � �� � �CC � �� � �� � � �� ���h ��CCC � �� � �CC � �� � �C � �� � C � �� � C � �� � C � �� � � � � �� � � � � U TCFILE LIROW LCEXT LCFILE LCSTATEMENT LAFAVORITES LLDOCUMENTFROMDISK
LLEXACTSET THIS LSTDOCUMENTS VALUE
ADOCUMENTS OAPP FILENOTFOUNDMSGBOX REMOVEDOCUMENT LNEW CCURRENTUSERFAVORITEIDS REQUERY REFRESHFAVORITEIDS THISFORM CCAPTION DOFILE DOREPORT DOFORM
�� � � �� ���� � T� � �� �� T� � �� ��� ��C� toApp.cMetaTableb� C� C�� � �a� � C� � _APPLICATION�� � ��> Must pass a reference to an object descended from _APPLICATION��
H�� �� �C� � � �
��/� %�� � ���� ��
� � T� � �� ��
%�� ��\�. T� ��! Documents available for Favorites�� �|� T� �� Quick Start�� � R,:�C� ��=� ...�� T�
�C��� R � %�C�
�
� C�
0 ���� ��C �
� � �� � ��7 ��C�" No registered documents available.�0� �
�x�� � T� � �� B�-��, �C� � ��� � � � �
����& T� � � �� THISFORM.aDocuments�� T� � � ����
��C� � �� T� � �� B�-�� 2��& T� � � �� THISFORM.aDocuments�� T� � � ����
%�� ��x�1 T� � ��! Documents available for Favorites�� T� � � �� \<Add�� T� � � �� \<Close�� T� � � �-�� ��� T� � �� Quick Start�� T� � � �� � � �� J�-�(� � � � � � � � %�� �
���� J�-�(� � � � � � � � � U TOAPP TLADD LATEMP LLRETURN THIS LNEW OAPP FILLDOCUMENTSARRAY
CMETATABLE LALLOWFILEBROWSING LCFILE
LCWAITMESSAGE EXECDOCUMENT CCAPTION
ADOCUMENTS LSTDOCUMENTS ROWSOURCE VALUE CAPTION CMDOK CMDCANCEL DEFAULT TOP CMDREMOVE VISIBLE ENABLED CMDBROWSE� ��C��@ T� � �C� � � � � � � � � � � � � � �D�� T� � �C� � � � D�� T� � �C� � � � D�� U THIS MINHEIGHT CMDCANCEL TOP HEIGHT CMDBROWSE LSTDOCUMENTS MAXHEIGHT
��C� � �� U THIS INTERACTIVECHANGE
��C� � �� U THISFORM REFRESHBUTTONS
��C� � �� U THIS INTERACTIVECHANGE2
��C� � �� %�� �
��+ �
��C� � �� � U THISFORM EXECDOCUMENT LNEW RELEASE5 %�� � �� �
��C� � �� �. � ��C�� � U THISFORM LNEW EXECDOCUMENT refreshfavoriteids, �� refreshbuttonsR �� removedocumentY �� Resize� �� filldocumentsarrayg �� execdocument� �� Init� �� setdialogsizeparameters� �� lstDocuments.Whenz �� lstDocuments.InteractiveChange� �� lstDocuments.ProgrammaticChange� �� lstDocuments.DblClick �� cmdOK.Click_ ��1 q � � �� R�s� �A � � �q1��� �A A A 2B 3 �� 5�A B 2 � � 1Q�B A � �B �"a� �A � CA 1� 1A � 4 � q QQ17 q b��� a A � � ��� A B �"r�2�C A A B "� �a�A A B B � a A � A b�A �4 q X2$B A R��A AA A � � s� A A ��� ��� A B B ��� a A �� QbaA !B 1� �B � a A C � � B� � ���r� �� �A B A B 4 � U � �� � �� �A r� Q �A � sB � q �b1� � q � b1� ��� ���B �A B 5 � ��5 � 3 � 3 � 2 � � A 4 � � � B 3 � � � . $ D A . 2 r G [ ~ } & �( � � �( �0 � � �0 A2 � i2 �2 � �2 �2 � 3 !3 �
M3 �3 � �3 4 � ) F ]�� D D k� % � �
� � U s �� � T� �C��� %�C� ���& � B� � %�C� 0��J � ��C � � � �� � %�� �
��l �
��C� � �� � U LCFILE THISFORM EXECDOCUMENT LNEW RELEASE Click, ��1 q � � A A � A � A 1 � ) D �� � � �� % Z o i � U
��C� � �� U THISFORM REMOVEDOCUMENT Click, ��1 � 1 * ) � ��� � � j % t � � p � U ��C� CURRENT� � �� U THIS DISPLAYOPTIONS ��C� SAVE� � �� U THIS SETFROMDISPLAY ��C� SAVED� � �� U THIS DISPLAYOPTIONS ��C� CURRENT� � �� U THIS SETFROMDISPLAY� �� �1 %�C� ��� C� C� � CURRENT� SAVE�
��? � B�-�� � �� � � � � T� �� � CURRENT��
%�� ��� �' T� �� THIS.oApp.aCurrentUserOpts�� �� � �� ������� T� �� laOptions�� � DIME &lcArray.[6,4]
&lcArray.[1,1] = "SHOWTIPS"
+ &lcArray.[1,2] = THIS.chkShowTips.Value
&lcArray.[1,3] = .F.
&lcArray.[1,4] = .F.
&lcArray.[2,1] = "CONFIRM"
: &lcArray.[2,2] = IIF(THIS.chkConfirm.Value,"ON","OFF")
&lcArray.[2,3] = .T.
&lcArray.[2,4] = .F.
&lcArray.[3,1] = "HOURS"
M &lcArray.[3,2] = "TO "+THIS.opgHours.Buttons(THIS.opgHours.Value).Caption
&lcArray.[3,3] = .T.
&lcArray.[3,4] = .F.
' &lcArray.[4,1] = "cTextDisplayFont"
| &lcArray.[4,2] = IIF(EMPTY(THIS.cboTextDisplayFont.Value), THIS.oApp.cTextDisplayFont, THIS.cboTextDisplayFont.Value)
&lcArray.[4,3] = .F.
&lcArray.[4,4] = .T.
&lcArray.[5,1] = "BELL"
< &lcArray.[5,2] = IIF(THIS.opgBell.Value = 1, "OFF","ON")
&lcArray.[5,3] = .T.
&lcArray.[5,4] = .T.
&lcArray.[6,1] = "BELL TO"
&lcArray.[6,2] = " "
* %�� � � �� CC� � � ��
����G &lcArray.[6,2] = &lcArray.[6,2]+"["+ALLTR(THIS.txtBell.Value)+"],0"
� &lcArray.[6,3] = .T.
&lcArray.[6,4] = .T.
%�� ��b� ��C� �
� �� %��9� � ��^� �� �9�
�Z� T� �C � � �
� �� %�C� ��� O��V�
��C� � ��
��C� � �� � �� � ���# >�� �
� � .UserOpts��� ��- D(�� �
� � .UserOpts�� laOptions� T� � � �a�� � U
TCWHICHSET LLCURRENT LCARRAY LOFORM
LOMEDIATOR LAOPTIONS THIS OPGBELL VALUE TXTBELL OAPP APPLYGLOBALUSEROPTIONS FORMCOUNT FORMS GETFORMMEDIATORREF
DOSESSIONSETS REFRESH CUSERTABLEALIAS CMDRESETTODEFAULT ENABLED� �� �2 %�C� ��� C� C� � CURRENT� SAVED�
��@ � B�-�� � �� � � T� �� � CURRENT�� %��
��� � @�� � � � .UserOpts�� �
%�� ��� � T� �C� BELL� � � �� �� � T� �C� BELL� � � � �� � %�C� ��� C��� T� �C� BELLv�� � %�� � OFF��@� T� � � ���� �[� T� � � ���� �
%�� ���� T� �C� BELL TO� � � �� ���" T� �C� BELL TO� � � � �� � %�C� ��� C��|� T� �CC� f� ,0� ��� T� �C� � [� ��� T� �CC� � ]� ���� %�C� �
� C� 0 ��T� T� � � ���� T� �
� �� �� �x� T� �
� �C� BELL�v�� � ��� T� �
� �C� BELL�v�� �
%�� ���� T� �C� CONFIRM� � � �� ���" T� �C� CONFIRM� � � � �� � %�C� ��� C��5�# T� � � �C� CONFIRMv� ON�� �W� T� � � �� � ON�� �
%�� ���� T� �C� SHOWTIPS� � � �� ���# T� �C� SHOWTIPS� � � � �� � %�C� ��� L���� T� � � �� �
�� ��� T� � � �� �� �
%�� ��4�' T� �C� cTextDisplayFont� � � �� �g�+ T� �C� cTextDisplayFont� � � � �� � %�C� ��� C���� T� � � �� � � �� ��� T� � � �� �� �
%�� ���� T� �C� HOURS� � � �� � � T� �C� HOURS� � � � �� � %�C� ��� C��8� T� �CC� HOURSv_�� � %�C�� � � � � ��m� T� � � ���� ��� T� � � ���� � U
TCWHICHSET LLCURRENT LVVALUE THIS OAPP CUSERTABLEALIAS GETUSEROPTIONSETTING LAOPTIONS OPGBELL VALUE TXTBELL
CHKCONFIRM CHKSHOWTIPS SHOWTIPS CBOTEXTDISPLAYFONT CTEXTDISPLAYFONT OPGHOURS BUTTONS CAPTION0 �� � � %�� ���) �
��C� � �� � U NKEYCODE
NSHIFTALTCTRL THIS RELEASE ��C�� T� � �� U THIS OAPP8 �� � �� � T� �C � ��
%�� ��� %�C� � ���� �( T� � �� � � � User Options�� T� � �� ��
��C� � ��! %�CC� � � .UserOpts��� �3 R,:�C�# User option defaults not yet saved!��=�� T� � � �-�� � �� � T� �-�� � � %�� � C� � �
��1�
��C� � �� � U TOAPP LLSUCCESS CUSERTABLEALIAS THIS CAPTION CCAPTION OAPP DISPLAYCURRENTUSEROPTIONS CMDRESETTODEFAULT ENABLED ISERRORFREE RELEASE displaycurrentuseroptions, �� saveuseroptionsfromdisplay` �� displayuserdefaultoptions� �� setuseroptionsfromdisplay� �� setfromdisplay� �� displayoptions� �� KeyPress# �� Destroy �� applyappattributes� ��1 r4 A5 R4 q3 q q A 2�� q� 1aA �������������s����������qA ��� 1 �Q� � A A A � 2�B 5 q #q A � �� B � �� �A Q1A A1� 1A � �� !A Q�a��11� �A � �A � �� !A Q1� �A � �� 1A Qa� 1A � q� �A Q�� 1A � �� A QaA �1� 1A 3 � � A 2 � � 2 q q � !�� 1A � � A B �� A 2 % | � � � O
� � � B � � } � � � � % D � � m � � ) �
�� � � \� % � � � � U ?
��C� � ��/ R,:�C� User options have been applied.��=�� U THISFORM SETUSEROPTIONSFROMDISPLAY Click, ��1 � �6 q ) � �� � � % � � � � U E
��C� � ��5 R,:�C�% User option defaults have been saved.��=�� U THISFORM SAVEUSEROPTIONSFROMDISPLAY Click, ��1 � R4 � ) � �� � � � % � � � � U E
��C� � ��5 R,:�C�% User option saved defaults are shown.��=�� U THISFORM DISPLAYUSERDEFAULTOPTIONS Click, ��1 � Q2 � ) � &��
� % � � � � U T
�� ���� �� � %�CC�� �(�
��M � �� � �I � ��C � � � �� �� � U LAFONTS LCFONT THIS ADDITEM Init, ��1 � q R� A A 2 � )
$�� r� % � � � � U : # %�� � �� C� � � � ��3 � ��C� � � �� � U THIS VALUE THISFORM TXTBELL
CMDPICKWAV CLICK InteractiveChange, ��1 1A 1 z ) ��� z z R+ % 1
� U � �� � T� �CCC� wav��f�� %�C� �� C� 0
��x � T� � � �� �� %�� � � ���t � T� � � ���� � �� � T� � � �� �� T� � � ���� � U LCFILE THISFORM TXTBELL VALUE OPGBELL Click, ��1 q a�1q1A � 11A 1 2 ) z �� � � � % / � ! Q � U �� � %�C � ��
� �� � T� �C� � ��, %�C� � �� C� � � � C� � �
��� �& T� � �C� � � � � � � � �� � %�C� � �
��� � T� �
�C� � � � � � �� �+ %�� �
� C� � � � � � �
��� � T� � �� � �� � T� �� �� B�-�� � U TCAPPREF LOAPP THIS GETAPPREF CCONTEXTMENUFILE CCONTEXTMENUPAD CCONTEXTMENUPOPUP ICONTEXTMENUINDEX
DOCONTEXTMENU
CTOOLBARCLASS
ITOOLBARINDEX DOTOOLBAR CTOOLBARCLASSLIB LADDAPPICON THISFORM ICON TITLEBAR CICON� ��C�� �� � T� �C� � �� %�C� ��4 � B� � %�C� � �
��^ � ��C� � � � �� � %�C� � �
��� � ��C� � � � �� � T� �� U LOAPP THIS GETAPPREF ICONTEXTMENUINDEX RELEASECONTEXTMENU
ITOOLBARINDEX RELEASETOOLBAR loadapp, �� Destroy3 ��1 q q �cB 2B �1A � � q B 3 � r � A A 32B 22B � 4 � ^ $ ) � ��� { { % � � F F � U 1 �� � ��C� �� ��C� �@� � �x�� B� U TCMESSAGE THIS CAPTION\ �� � %�C� ��� C��U � T� � �� ��) J�� �(� � � � � � � � � � � � U TVNEWVAL THIS CTEXTDISPLAYFONT PGFERRORLOG PAGE1
EDTLISTING FONTNAME PAGE2 EDTUSERNOTES� ��� � ��� � T� �� � �� T� �� � ��% T� � � �� � � � � � ��# T� � � �� � � � � � ��B J�� � � � � �
� � �(� � � � � � � � �
� �. J�� � � � ��(�� � � �� �
� � �� U THIS PGFERRORLOG HEIGHT WIDTH TXTERRSTAMP LEFT SPNNAV
PAGEHEIGHT PAGE1
EDTLISTING TOP IMARGIN PAGE2 EDTUSERNOTES�
%�C�� � T� � �� � �� T� � �� � �� T� � �C� �%��, J�� � �(� � � � � � � �
� � �
��C� � �� �� � B�-�� � U
THIS MINHEIGHT HEIGHT MINWIDTH WIDTH IMARGIN PGFERRORLOG PAGE1
EDTLISTING LEFT PAGE2 EDTUSERNOTES RESIZE� %�C� � N�
��' � T� � � �-�� �� �" J�C� � N�(� � � � � � � J���(� � � � � � � J�C� � O�(� � � � �
��C� � �� U
THIS CALIAS SPNNAV ENABLED SPINNERHIGHVALUE KEYBOARDHIGHVALUE SPINNERLOWVALUE KEYBOARDLOWVALUE VALUE REFRESH� �� � �� � %�C � ���� T� �� � �� %�C� �� C� 0
��~ �/ ��C� The error log is not available.� � �� B�-�� � Q� �� ��� � �� %�C� � �
��� �/ ��C� The error log is not available.� � �� B�-�� � %�CC� � N���1�- ��C� The error log has no records.� � �� B�-�� � #6�# T� � � �� � � .ErrStamp��( T� � � �
� �� � � .Listing��* T� � � � � �� � �
.UserNotes�� ��C� � � �
� �� ��� B�-�� � U TOAPP LCTABLE CERRORLOGTABLENAME THIS DONOLOGMESSAGE CALIAS TXTERRSTAMP
CONTROLSOURCE PGFERRORLOG PAGE1
EDTLISTING PAGE2 EDTUSERNOTES APP_MEDIATOR LOADAPP
CREFERENCE5 %�C� � �
� C� � � ��. � Q�� � �� � U THIS CALIAS donologmessage, �� ctextdisplayfont_assign{ �� Resize< �� Init� �� Activate� �� applyappattributes� �� Destroyi ��1 q � QA 2 q Q�A 3 Q1&�B 5 � 111�� � q A 3 a� "��A � 3 q r ��q A �2�q A B�q A R 1��a� r B 6 � A 4 y � � � � 2 ' Q � 5 ( � �
A B �
! m ) { f�� M M � % � � � � U < %�� � � � ��% � ��C� �� � ��C� � � �� U THIS VALUE SPINNERLOWVALUE THISFORM CMDBROWSEERRORLOG SETFOCUS< %�� � � � ��% � ��C� �� � ��C� � � �� U THIS VALUE SPINNERHIGHVALUE THISFORM CMDBROWSEERRORLOG SETFOCUS& #�� � ��� � ��
��C� � �� U THIS VALUE THISFORM CALIAS REFRESH DownClick, �� UpClick� �� InteractiveChange7 ��1 q� A 2 q� A 2 a� 1 y � � $ Z
) M �� � � (� % S � b � U � �� � � � T� �CW��
F�� � �� T� �C� � � ��% %�C� loApp.oFrame.Nameb� C��� �, T� �� IN WINDOW (loApp.oFrame.Name) �� �� � T� �� IN SCREEN �� �� BROWSE FIELDS errstamp :H= "Error Date and Time", field2 = LEFT(Listing, 20) :H="Tech Listing", field3 = LEFT(UserNotes,10) :H= "Your Notes Go Here" WINDOW (THISFORM.Name) FONT (THISFORM.cTextDisplayFont) &lcFrame
��C� � �� T� � � �CO��
F�� �� T� �� U
LCFRAME LOAPP ISELECT THISFORM CALIAS APP_MEDIATOR GETAPPREF REFRESH SPNNAV VALUE Click, ��1 � � � AQ�� �A �
� !� � 1 s ) � ��� { { �8 % � 2 � U � �� � �� � %�C� ��� O��0 �
T� �� �� �I � T� �C� � �� � %�C� ��� O��� �
��C � �� T� � �� � �� � T� �� U TOAPP LOAPP THIS GETAPPREF THISFORM CTEXTDISPLAYFONT
dosessionsets, ��1 q r R� � A R� 1A � 3 ) { �� � � � % ( � > � U } %�C� � ��_ �) %�C� THISFORMSET.BaseClassb� C��G � B�� � �� �[ � B�� � �� � �v � B�� � � �� � U THIS OSESSION THISFORMSET DATASESSION THISFORMF %�C� � ��( � B�C� DATASESSIONv�� �? � B�� � � �� � U THIS OSESSION
DATASESSIONID
�� � U TVNEWVAL� �� � �� � � � T� �C� � �� %�C� ��: � B� � %�C� � ��� � %�C� THISFORMb� O��p � B� �� �
T� �� �� � �� � T� �� � �� � T� �C� �
��
%�� ��� � T� �C � � � � �� � J��(� � � B�� �� U TLDATACHANGEALREADYCONFIRMED LOAPP LLRETURN LOSESSION THIS GETAPPREF OSESSION THISFORM QUERYDATASESSIONUNLOAD� �� � � � T� �C� � �� %�C� ��3 � B� � %�C� � ��� � %�C� THISFORMb� O��i � B� �~ �
T� �� �� � �� � T� �� � �� � T� �C� �
��
%�� ��� � T� �C � � � � � �� � J��(� � � B�� �� U LOAPP LLRETURN LOSESSION THIS GETAPPREF OSESSION THISFORM QUERYDATACHANGED ICHANGEMODE� �� � �� � T� �� %�C� ��� O��; �
T� �� �� �T � T� �C� � �� � %�C� ��k � B� � T� � �� � �� T� �� U TOAPP LOAPP THIS GETAPPREF LADDING LADDINGNEWDOCUMENT� �� � �� � T� �� %�C� ��� O��; �
T� �� �� �T � T� �C� � �� � %�C� ��k � B� � %�� � ��4�
H�� �0� �C� � �
��� � ��C� � � � � ��9 �C� THISFORMSET.DataSessionb� N� � � � ��� ��C� � � � �� ��
� ���(� ��C�
� � � �� 2�0� � � %�� � ���� %�C� � �
��n� ��C� � � � �� ��� ��C �
� � �� � � T� �� U
TOAPP LOAPP THIS GETAPPREF LSESSIONSETTINGS OSESSION SETDATASESSIONENVIRONMENT
DATASESSIONID THISFORMSET DATASESSION THISFORM LUSERSESSIONSETTINGS APPLYUSEROPTSFORSESSION� �� � T� � �� �� �� � T� �C� � �� %�C� ��E � B�-�� � ��C � � � �� %�� � ��{ � ��C � � � �� � T� �� U TCAPPREF THIS CAPPREF LOAPP GETAPPREF
DOSESSIONSETS LSETDOCUMENTTONEWONAPPLOAD SETDOCUMENTTONEW� %�C� � ��� � B�� �
�� ����[ %�C� � �
.BaseClassb� C� C�� C� � ��a� � C� � _APPLICATION�� ��� � B�C� � �� �� � B�� � U THIS CAPPREF LACHECK< �� � %�C� ��� C� C� � ��5 � T� � �� �� � U TVNEWVAL THIS COUTPUTALIASI %�C� � �� C� � �
��. � B�C� � ��� �B � B�� � �� � U THIS COUTPUTCAPTION COUTPUTALIAS\ �� � � T� �C� � �� %�C� ��/ � B� � T� �Ca� � �� T� �� B�� �� U LOAPP LLRETURN THIS GETAPPREF
DOTABLEOUTPUT[ �� � � T� �C� � �� %�C� ��/ � B� � T� �C� � �� T� �� B�� �� U LOAPP LLRETURN THIS GETAPPREF
DOTABLEOUTPUT` T� �� � �� T� �� � �� %�C� ���B � B�C� Session�N�� �Y � B�C� � ��� � U LCCLASS THIS
CSESSIONCLASS
LCCLASSLIB CSESSIONCLASSLIB\ �� � �� � � %�C� ���% � B� �: �
T� �� �� � T� �C� SAFETYv� ON��
%�� ��m � G. � � T� �C� � PRG���> ��C�
DEFINE CLASS � � � AS SessionC�
C�
� ���+ ��C� DataSession = 2C�
C�
� a���% ��C� ENDDEFINEC�
C�
� a���
��� ��
�� �� T� � �C� � FXP���
%�� ��U� G. � � U
TCFILENAME
LCFILENAME LLSAFETY THIS
CSESSIONCLASS CSESSIONCLASSLIB� �� �$ %�C� � ��� C� C� � � ��8 �
T� �� �� �� � T� �C� � � FXP��� %�C� 0
��� � T� �C� � PRG��� %�CC��� ]���� �
T� �� �� �� �
��� �� T� �C� � FXP��� � � � T� � �� �� B�� � �� U LCVAL THIS CSESSIONCLASSLIBl B %�C� � ��� C� C� � � � C� � ��� C � C� � � ��Y � T� � �� Session�� � B�� � �� U THIS
CSESSIONCLASS CSESSIONCLASSLIB9 %�C� � �� � B�� �� �2 � B�� � � �� � U THIS OSESSION NAME
�� � U VNEWVAL
�� � U VNEWVAL� �� � � �
%�C��� �
%�� ��� � %�C� �� C� �
��c � T� � �� �� T� � �� �� � T� � �C� � �� %�C� � ��� O��� � B�-�� � �� � %�C� THISFORMb� O��� � B�-�� � � �� � B�-�� � U TLCREATESESSION TCSESSIONCLASS TCSESSIONCLASSLIB THIS
CSESSIONCLASS CSESSIONCLASSLIB OSESSION
CREATESESSION ��C�� T� � �� U THIS OSESSION datasession_access, �� datasessionid_access� �� datasessionid_assignJ �� queryunloadb �� datachanged� �� setdocumenttonew0 ��
dosessionsets �� loadappY �� getapprefR �� coutputalias_assign �� coutputcaption_accessu �� outputonerecord� �� outputw
��
createsession �� writesessionclassdefinition� �� csessionclasslib_accessP
�� csessionclass_accessg �� datasessionname_access� �� datasession_assignQ �� datasessionname_assignh �� Init �� Destroy� ��1 !�� � � A � � A 3 !a� � A 3 q 4 q � � A A "�A � � A � A � �A � � 3 � � A A "�A � � A � A � �A � � 3 q q � Q� � A � A A 2� 3 q r � R� � A � A A � 2b�2B2� D B 21� A B � 4 q r � q A A � 5 !q A � �� � q A 5 q �A 3 � � � A 4 � � A A "� � 4 � � A A � � 3 � 1� � A 3 q � � A � � A �� a A a��Q� � �� a A 4 q B� � �oQ� � � aA A A � 3 $rA � 3 !� � � A 5 q 3 q 3 � � � �A A�q A � �q A A � q A 2 � � 2 � ! �
� � ) 0 � : > [ X L � n k � � � x � � � + � � � � Y � � ) � � F � � � � � � y � � $ , � O c S � � � ^ � B h � o � l � � � p � � � ) � "�� �! % V � x � U ��C�� T� � �� U THIS OAPPX �� � %�� �
��H� ��
H�) �� �- �C� _SCREEN.ActiveForm.Parentb� O��i � G�(��9� � � ��& �C� _SCREEN.ActiveFormb� O��� � G�(��9� � �� 2�� � � T� �CN���
%�� ��$� ��� � �� � J���(� � � J�CN�(� �
�
T� �CO�� T� �C� � F�� �� �D� ��C� Enabled-� � �� � � B�� �� U
LLENABLE THIS LDISABLEDFORMODAL
ACTIVEFORM PARENT
DATASESSIONID SPNGO SPINNERLOWVALUE KEYBOARDLOWVALUE SPINNERHIGHVALUE KEYBOARDHIGHVALUE VALUE SETALL Destroy, �� RefreshV ��1 � � 2 q A � �1a� B � 1"� QA � �A A � 2 2 P e ) ��� � � �) % { � � � U 0 %�C� � � �
��) � ��C� � � � �� � U THIS PARENT OAPP GOTOP Click, ��1 a1A 1 W ) � ��� � � � % � � � � U 0 %�C� � � �
��) � ��C� � � � �� � U THIS PARENT OAPP
GOPREVIOUS Click, ��1 a1A 1 \ ) � ��� � � h % | � � � U 0 %�C� � � �
��) � ��C� � � � �� � U THIS PARENT OAPP GONEXT Click, ��1 a1A 1 X ) � ��� � � Q� % ~ � � � U 0 %�C� � � �
��) � ��C� � � � �� � U THIS PARENT OAPP GOBOTTOM Click, ��1 a1A 1 Z ) � �� � � % � � � � U 6 %�C� � � �
��/ � ��C� � � � � � �� � U THIS PARENT OAPP
GOTORECORD VALUE InteractiveChange, ��1 a�A 1 o ) � ��� � � � % � � � � U 4 %�C� � � �
��- � ��C���-� � � � �� � U THIS PARENT OAPP DOSORT Click, ��1 aqA 1 ^ ) � ��� � � � % � � � � U 4 %�C� � � �
��- � ��C���a� � � � �� � U THIS PARENT OAPP DOSORT Click, ��1 aqA 1 ^ ) � �� � � � % � � � � U 0 %�C� � � �
��) � ��C� � � � �� � U THIS PARENT OAPP SHOWTABLESETFILTERDIALOG Click, ��1 a1A 1 j ) � �� � � 6� % � ( 2 � U ��C�� T� � �� U THIS OAPP� �� � %�� � �� � B� �
�� ���� �� �& %�C� _SCREEN.ActiveFormb� O���� ���9� ��� �+ T� �C� .ActiveControl.SelTextb� C��, J�� � C�� � �
�(� � � � �
� � J�� � C� �
�(� � � � �� %�C� � ��� O��'�/ J�-�(� �
� � � � � � � � � � � ���Z T� �CCC�# _SCREEN.ActiveForm.Parent.BaseClassbf� FORMSET� �9� � � � �9� � 6�� %�CC�� � �y�����% J�-�(� �
� � � � � � � � � %�C� � � ����� J�-�(� � � � � � ���% J�-�(� �
� � � � � � � �' %�C� � ��� O� C� � � � ��\� J�-�(� � � � � %�CC��
���� J�a�(� � � � �
� � J�C� �
�(� � � � ���% J�-�(� � � � �
� � � � � � � U LLACTIVEEDITINGCONTROL THIS LDISABLEDFORMODAL LATEMPX LISESSION
ACTIVEFORM
ACTIVECONTROL SELLENGTH CMDCUT ENABLED CMDCOPY CMDPASTE OAPP CMDSAVE CMDREVERT CMDPRINT CMDHELP PARENT
DATASESSIONID CHELPFILE Destroy, �� RefreshV ��1 � � 2 q A A � r b� ���B ��� �qSA RA A � UrA � �b� SA B 2 2 P � ) � �� � � �� % � � � � U 6 %�C� � � ��� O��/ � ��Ca� � � � �� � U THIS PARENT OAPP DONEWOPEN Click, ��1 �AA 2 c ) � ��� � � #� % � � � � U 5 %�C� � � ��� O��. � ��C� � � � �� � U THIS PARENT OAPP DONEWOPEN Click, ��1 �1A 2 ` ) � �� � � �� % � � � � U 5 %�C� � � ��� O��. � ��C� � � � �� � U THIS PARENT OAPP
DATAUPDATE Click, ��1 �1A 2 a ) � �� � � �� % � � � � U 5 %�C� � � ��� O��. � ��C� � � � �� � U THIS PARENT OAPP
DATAREVERT Click, ��1 �1A 2 a ) � �� / % � � � � U > %�C� � � ��� O��7 � ��C� � � � � � � �� � U THIS PARENT OAPP
DOTABLEOUTPUT LPRINTONERECORD Click, ��1 ��A 2 )
�� � � \� % � � � � U ; %�C� � � ��� O��4 � ��C� CUT� � � � �� � U THIS PARENT OAPP DOMENUITEMINFRAME Click, ��1 ��A 2 m ) � �� � � �� % � � � � U < %�C� � � ��� O��5 � ��C� COPY� � � � �� � U THIS PARENT OAPP DOMENUITEMINFRAME Click, ��1 ��A 2 n ) � �� � � r� % � � � � U = %�C� � � ��� O��6 � ��C� PASTE� � � � �� � U THIS PARENT OAPP DOMENUITEMINFRAME Click, ��1 ��A 2 o ) � ��� � � � % � � � � U 5 %�C� � � ��� O��. � ��C� � � � �� � U THIS PARENT OAPP DOHELP Click, ��1 �1A 2 ] ) � �(�� � � �(� % �� �� � L� � U
�� � T� �C� � ��
%�� ��6 � T� �C� � �� �
%�� ��X � T� �C� � �� �! %�� � C�
Loading...�
��� � %�C� � ��� O��� � ��C� � � �� � R,:�C�
Loading...��=�� �
%�� ��� � T� �C� � �� �
%�� ��� T� �C� � �� �
%�� ��)� T� �C� � �� �
%�� ��K� T� �C� �
�� �
%�� ���� T� � �C� � ��� T� �C� � �
�� �
%�� ���� T� �C� �
�� �
%�� ���� T� �C� � �� � R �
%�� ���� T� �C� � �� �
��C� � �� B�� �� U LLSUCCESS THIS SAVEENVIRONMENT VALIDATEMETATABLE CREATEFRAME OFRAME SHOW RESETFORMSCOLLECTION CREATECOLLABORATORS HANDLEPROJECTWINDOW SETENVIRONMENT CUSERTABLEALIAS CUSERTABLENAME SETCURRENTUSER SHOWSTARTUPELEMENTS ACTIVATE RESTOREENVIRONMENTg �� � � � � � � ��C� �� C� ��� C �� ��C� �� C� ��� C ��/ �� � � � �
� � �
� � � �
��C� � �� T� �C� ���' T� �CC� ��� C�
CC� �@� � 6�� %�C� ���� � T� �C � � .scx� � �� �� T� �C � � .vcx� � �� � %�C� ���*� B�-�� �& T� �CC� �� � � � � ,� 6��
%�� ��N� �� ���(�� � ��J�0 %�C � � � � � CC � � � ��� O ��F�8 %�CC � � � � f� FORM� C � � � � � ���� T� � �� �� �� �� � %�C� � ��� O��(� ��C� � � �� � �� � �� �� � B�-�� � �� �* %�C � � � � � � � �
����
B�� �� �
�� � � T� � �� � ���# � � �� � �� � �� � �� T� � �� � ��� �� %�C� � ��� O��� ��C� � � �� � %�C� �
��H�% T� � �� � ��C � � � � �� �m� �� �J� � �� � ��� � T�
�� � ��
�� � � %�� � �
��R� T� �C� � � � �� T� �C� � f� FORMSET��
%�� ���� ��
� � �}� %�C�
� f� FORM��y� T� �C �
� � �� %�C� ��� O��u� ��C� �" � �! �� T� �# �� �� T� �$ �� �� T� �a�� � � �� ���$ T� �CC� � � � � �% � � �� %�C� ��� O���� ��C� �" � �! �� T� �# �� �� T� �$ �� �� � � %�� � �
� � �% ����
��C� � �� ��
� � ��� %�C�
� f� FORM���� T� �C �
� �& �� %�C� ��� O���� ��C� �" � �! �� T� �# �� �� T� �$ �� �� � � �� � %��
�� � %�C� � ��� O��2�
%�� ��� ��
� � ��
��C�
� �� �� �.�
��C� � �� � ��
%�� ���� ��
� � ��� %��
�' � ��|� T� �a�� !� � �� ��
� � ���
%�� ���� ��C �
� �( �� ���
��C�
� �� � �� �� %�� �' � ���� ��C � � �( �� ��
��C� � �� � � � � %�� �) � �
��N� ��C� �+ � �* �� � � B�C� �, �� U-
TCFILENAME TCCLASS TLNOMULTIPLEINSTANCES TLNOSHOW TLGOMENU TLNAVTOOLBAR
LCFILENAME LCCLASS LNCOUNT
LCFORMNAME LNFORMCOUNT
LOMEDIATOR LOFORM LOFORMMEMBER LNEEDREACTIVATEFORMSET LLFORMSET LLENABLEDFORMFOUND THIS CLEARLASTERROR GETRESOURCEFILENAME
NFORMCOUNT
AFORMNAMES AFORMS BASECLASS WINDOWSTATE OFRAME SHOW BEFOREDOFORM F REFRESHFORMSCOLLECTION INSTANTIATE FORMS GETFORMMEDIATORREF LOADAPP
CREFERENCE LGOMENU LNAVTOOLBAR LENABLEFORMSATRUNTIME CREATEFORMMEDIATOR
SHOWWINDOW ACTIVATEFORMINFRAME
LCASCADEFORMS
CASCADEALL NAME ISERRORFREE� �� � � � ��C� �� C� ��� C �� ��C� �� C� ��� C �� �� �
��C� � �� %�C� �� �
��v � B�-�� � T� �C� ���% T� �C � � .frx .lbx � � � ��
%�� ��� �+ ��C� Feature not available.�@� � �x�� ��� %�C� ���� B�-�� � �� �- T� �C�
_outputdialog� _reportsa� � �� %�C� ��� O����# ��
���� ���� �
� � T� �C�� �y�� %�� � ���
�
�� �� ��
���(�� ��� T� �C �
�� �� %�C� +���� T�
��
��� �� �� T�
��
��C� O�� � �� � T� � �a�� T� � �� � �� %�C� ���l�! T� � �� � � CC� �Լ�� ��� T� � �� � � � �� � T� � �C � � � �� T� � �C � � � �� T� � �-�� T� � �� �� T� � �a�� ��C�� � �� T� �� %�� � ���� ��
���(�� ���� T� �C �
�� �� %�C� �
��\� .� � %�C �
�
� ���� #�� �6� H�� �� ��� #�� ��C �
�
�� � �� � %�C� �
����� ��C٤ The report you chose cannot run properly in the current environment or has created a problem for the current environment. You may need to re-start this application.�� � �x�� � T� � �-�� ��� B�-�� � � B�C� � �� U
TCFILENAME
TCDESCRIPTION TLMODIFY
LCFILENAME THIS CLEARLASTERROR GETRESOURCEFILENAME CCAPTION LODIALOG DOMODALDIALOGCLASS LARECNOS LAWORKAREAS LIUSED LIROW LCALIAS LSKIPERRORHANDLING ICON CICON CAPTION
CHTMLCLASS SETHTMLCLASS CHTMLSTYLEID SETHTMLSTYLEID LADDSOURCENAMETODROPDOWN CREPORT LPREVENTSOURCECHANGES SHOW ISERRORFREE �� � � ��C� �� C� ��� C �� ��C� �� C� ��� C �� �� � �
��C� � �� T� �C� ��� %�C� ���| � B�-�� � T� �C � � .lbx� � �� %�C� ���� � B�-�� � %�C� ���� � T� �CC� �ּ�� �� �
T� �� �� � ��C � � � � �� B�C� � �� U
TCFILENAME
TCDESCRIPTION
LCFILENAME
LCDESCRIPTION THIS CLEARLASTERROR GETRESOURCEFILENAME DOREPORT ISERRORFREE� �� � � ��C� �� C� ��� C �� �� �
��C� � �� T� �C� ��� %�C� ���^ � B�-�� �! T� �C � � .mpx .mpr� � �� %�C� ���� � B�-�� � %�C� � ��� O��� �
�� �� �� � �� ��� � � � � � � � B�C� � �� U
TCFILENAME TLUNIQUEPOPUPNAMES
LCFILENAME THIS CLEARLASTERROR GETRESOURCEFILENAME OFRAME CMENUNAME ISERRORFREE7
��C� � �� %�� � ��" � � � B�C� � �� U THIS CLEARLASTERROR LREADEVENTS ISERRORFREE)
��C� � �� %�� � ��" � 9� � U THIS CLEARLASTERROR LREADEVENTS1 �� � ��C� �� C� ��� C �� �� �
��C� � �� T� �C� ��� %�C� ���Z � B�-�� �+ T� �C � � .exe .app .fxp .prg� � �� %�C� ���� � B�-�� �& %�C�h� � CC� ��f� PRG ��� %�CC��� ]�
��� �
��� �� T� �C� � FXP��� �� B�-�� � �
�� �� B�C� � �� U
TCFILENAME
LCFILENAME THIS CLEARLASTERROR GETRESOURCEFILENAME ISERRORFREE %�� � �� � T� � �C� SHUTDOWN��� T� � �C� PATHv�� T� � �C� ERROR��� T� � �C� DIRECTORYv�� T� � �C� MACKEYv��' T� � �� � � MC��]� .FKY�� T� � �a�� D(�� � �� T� � �-�� %�C� �
�� C� � �
��� � �� � � T� � �a�� U
THIS LREADEVENTS CLASTONSHUTDOWN CLASTPATH CLASTONERROR CLASTDIRECTORY CLASTMACKEY CMACROSAVEFILE
CAPPFOLDER LSKIPERRORHANDLING CFRAMECLASS CSTARTUPMENU LSAVEDENVIRONMENTj %�� � � � �
��# � B�a�� �
��C� � �� �� � %�� � ��H� T� �� � �� ON SHUTDOWN &lcTemp
T� �� � �� ON ERROR &lcTemp
T� �� � �� SET MACKEY TO &lcTemp
G)(�� � ��
��� �
�� %�C� � 0��� � @�� � ��
�� � �� � %�C� � �� C� �
�
��D� < ��� � �� � � T� � �a��
B�C� � �� U THIS LRESTOREDENVIRONMENT LSAVEDENVIRONMENT CLEARLASTERROR LCTEMP LREADEVENTS CLASTONSHUTDOWN CLASTONERROR CLASTMACKEY CLASTPATH CLASTDIRECTORY CMACROSAVEFILE CFRAMECLASS CSTARTUPMENU ISERRORFREE� �� � %�C�C� � ����� �d ��C� File not found, or unavailable.C�
� It may be in use.� :C�
C�
� �0� � �x�� �� �[ ��C� � � : � File not found, or unavailable.C�
� It may be in use.� � � �� � U
TCFILENAME STARTMODE THIS CCAPTION CUSERROR RECORDSERVERERROR �� � �� � �
H� �� � �C�C� �������G � T� �a��@ �C� _SCREEN.ActiveForm.Parentb� O� �9� � � � ��� � ��C� ��6 �C� _SCREEN.ActiveFormb� O�
�9� � � ��� � ��C� �� 2�� � T� �a�� �
%�� ���� T� �� �
��
%�� ��*� T� � �a�� �T T� �C�C� ������3 C� Are you sure you want to quit?�$� � �x� ��
%�� ���� T� �C� �
�� �
%�� ���� T� � �-�� � �
%�� ���� %��
����
��C� � �� 8� � � B�� �� U TLCALLEDFROMTOPFORM LLRETURN
LLINTERRUPTED STARTMODE
ACTIVEFORM PARENT
WINDOWTYPE THIS LNOINTERRUPT CCAPTION RELEASEFORMS RELEASE� �� � �� �
�� � � %�� � � ��0 � B� � �� � � � � T� �� �
��
%�� ��t � T� � �a�� � �� � �
�C�C %�C� ��� O�+ C� #C� � f� #� #FORMSET#� #FORM#�
��� � .� �
%�� ��� � ��Ca- � a� � �� �?� %�C- � � �
��;�
%�� ��0� T� � �-�� � B�-�� � � �� +�� � � ���� T� �� � �� ��CC � � �
� � �� %�� � � ���� %��
����
%�� ���� T� � �-�� � B�-�� � � �
%�� ���� T� � �-�� � U TLFORCE LNFORMCOUNT THIS REFRESHFORMSCOLLECTION
NFORMCOUNT LOFORM LOMEMBERFORM LIRESULT
LLINTERRUPTED LNOINTERRUPT AFORMS BASECLASS
DATAREVERT QUERYDATASESSIONUNLOAD RELEASEFORM� �� �
��C� � �� %�C�t� ��^ �& %�C� _SCREEN.ActiveFormb� O��Z � ��C�9� � �� � �� � %�C� ��� O��� �
��C� � �� � �
�� � � B�C� � �� U TOFORM THIS CLEARLASTERROR
ACTIVEFORM RELEASE REFRESHFORMSCOLLECTION ISERRORFREEN T� � �� �� � � ���� � ���� T� � �� T� � �� �� U THIS
NFORMCOUNT AFORMS
AFORMNAMES� �� � �
��C� � ��
T� ���� +�� � � ��]� %�CC � � � ��� O��l � T� �� ��� .� � �� �� �(�� � ����! T� � �� ��C� �� � �� T� � �� ����! T� � �� ��C� �� � �� T� � �� ���� �� �� T� � �� � ��� %�� � � ��6� !� �# � � �� � �� � �� � �� � %�� � � ���
�� � � � B�C� � �� U LNCOUNT LNCOUNT2 THIS CLEARLASTERROR
NFORMCOUNT AFORMS
AFORMNAMES RESETFORMSCOLLECTION ISERRORFREE[ %�� � �� � B� � �� � �� � � �T � %�C� ��� O��P �
�� � � � �� U THIS LNOINTERRUPT LOTOOLBAR ATOOLBARS REFRESHy �� � � ��C� �� C� ��� C �� ��C� �� C� ��� C �� �� � � � � � � � %�C� ���v � B�� �� � %�C� �
��� �
T� �� �� � T� �CC� �f��
T� �� �� T� �C� �
��� �� ���(�� ���� T� �C � �� �
��E %�C� ��� O� CC � �� �
��� N � C � �� �
� ��S�
T� �� �� .� � %�C� � f� ����+ T� �
�� �����C � �� �
���
�� � � B�� �� � �� %�� � ��#� %�CC��� �
��� O���� T� �� ��� � �
T� ���� � � �
�� ����� � T� �
�� ������ ��) %�C� �
��� O� C� �
� �
��|� ��C� �
� �� �( T� �
�� �����C � � � � �� %�CC � �� �
��� O��i�% %�CC � �� �
� oApp��h�� � T� �
�� ����� �� �� � T� �
�� ��������" �� �
�� ����� �� � �� ��CC � �� �
� � �� � B�� �� U
TCCLASSLIB TCCLASS LCCLASS LOTOOLBAR
LCCLASSLIB LIELEMENT LIINDEX
LITOOLBARS
LCTOOLBARNAME THIS ATOOLBARS CLASS SHOW OFRAME NAME INSTANTIATE OAPP DOCK IINITIALTOOLBARPOSITION ACTIVATEFORMINFRAME� �� � �( ��C� ��� N� C� �C� � �ͫ �� ��C� ��� L��
��C� � �� %�C�t� � C� � ��r � B�-�� � �� � %�CC � �� � ��� N��� �
T� �� �� �� � T� �C � �� � �� � %�� � � � ��X� %�CC � �� � ��� O�� � ��CC � �� � � �� � T� � �� ������ T� � �� ������ �� ��� T� � �� ������ ��� � B�C� � �� U TITOOLBARINDEX TLFORCE THIS ATOOLBARS CLEARLASTERROR LICURRENTTOOLBARREFCOUNT LICURRENTTOOBARREFCOUNT RELEASE ISERRORFREE/ �� � �� � � �
��C� � �� T� �� �
��
%�� ��P � T� � �a�� � T� �C� � ��� �� ���(�� ��� �1 %�CC � �� � ��� O� C � a� �
��� � %��
��� �
%�� ��� � T� � �-�� � B�-�� � � �� T� � ��
%�� ��� T� � �-�� � B�C� �
�� U TLFORCE LITOOLBAR LITOOLBARCOUNT
LLINTERRUPTED THIS CLEARLASTERROR LNOINTERRUPT ATOOLBARS RELEASETOOLBAR ONAVTOOLBAR ISERRORFREE
��C� � �� �� � � �� ���(�C� � ��� � T� �C � � � �� %�C� ��� O��� �# %�C� loMember.Parentb� O��� � ��C� � � � � �� �� � %�C� � Release��h��� �
��C� � �� � � � T� �� T� � �� ��� �� B�C� � �� U
THIS CLEARLASTERROR
LIMEMBERINDEX LOMEMBER ACOLLABORATORS PARENT REMOVEOBJECT NAME RELEASE ISERRORFREE B�C� � �� U THIS ISERRORFREE? �� � � � � � � �� � � � �
� ��C� ��� C� C� �
�� ��C� �� C� ��� C ��- ��C� �� C� ��� C� CC��C� �]�
�� ��C� �� C� ��� C �� ��C� ��� O� C� � �� ��C� �� C� ��� C �� T� �C� ���
H�� ��� �C� ��� C��4� T� �� � �� T�
�� �
�� �C� ���]�
T� �� ��
T�
�� �� 2��� T� �C� ��� %�C� ��� C���� T�
�C� ��� ���, %�CC��� ]�� CC��� � .VCX]� ���� T�
�� �
�� ���
T�
�� �� � � � T� ��& T� �C � � .vcx .fxp .prg� � �� %�C�
�
��_�! T�
�C �
� .app .exe� � �� �. %�C� �� C� �
� C�
�� C� �
���� B�-�� �& %�C�h� � CC� ��f� PRG ��� %�CC��� ]�
���
T�
�� ��
��� �� T� �C� � FXP��� �� B�-�� � � %�C� ��� O���� %�C� ��� C��S�
T� �� �� �p� T� �� CC��]�� �p ASSERT TYPE("toParent."+lcMemberName) # "O" MESSAGE toParent.&lcMemberName..Name + " "+"already exists"+"."
��C� � �� %�C� ��� � ��C � � � �
� � �� �x�S toParent.NewObject(lcMemberName,lcClass,lcClassLib,lcContainer,&tcParamString.)
� %�C� � ���� T� �C� toParent.� �� � �/� %�C� ����� T� �C� � �
��� �+�I loReturn = NEWOBJECT(lcClass,lcClassLib, lcContainer,&tcParamString.)
� � B�� �� U TCCLASS
TCCLASSLIB TCCLASSCONTAINERFILENAME
TCPARAMSTRING TOPARENT TCMEMBERNAME LORETURN LCMEMBERNAME LCCLASS
LCCLASSLIB LCCONTAINER THIS CLASSLIBRARY CCLASSCONTAINERFILENAME GETRESOURCEFILENAME CLEARLASTERROR NEWOBJECT ISERRORFREE B�C� � � �� U THIS CUSWINDOWHANDLER GETCURRENTTOPFORMREF B�C� � ��� U THIS
ILASTERROR T� � �� U THIS
ILASTERROR� �� � � � ��C� ��� C� C� �
�� ��C� �� C� ��� C ��# �� � � � � � � �
� %�C� ��� C� C� � ��� � B�� �� � T� �C� ��� %�C� ��
� .� ��� � T� �CC� �@�� %�C� 0
��� �
T� �� �� � �w� T� �C� ��� T� �C� .� ��� %�� � ��A� T� �C� � � .��� �_� T� �C� � � ��� � %�C� �=� .���� T� �� .� �� � T� �C� .� ��� �� ���(�� ��s� T� �C� .� � �� %�� � ��� T�
�C� .� � � �� T� �C� � �
� \�� �.� T� �C� � \�� � T� �CC� � �@�� %�C� 0��Z� !� �o�
T� �� �� � �� � %�C� �� �
���� ��C � � � �� � B�� �� U
TCSOURCEFILENAME TCEXTENSIONLIST TLSUPPRESSMESSAGE LCSOURCEFILENAME LCTARGETFILENAME LCEXTLIST LCEXT LIEXTS LITRYEXT LITHISEXTSTARTS LINEXTEXTSTARTS THIS FILENOTFOUNDMSGBOX�
��C� � �� %�� � ��� �! T� �� � �
.OnShutdown()�� ON SHUTDOWN &lcTemp
6 T� �� � �" .Error(ERROR(),PROGRAM(),LINENO())�� ON ERROR &lcTemp
%�C� � ��� C��� � T� �� � �� SET MACKEY TO &lcTemp
�� � G\(� � � � %�� � ��� ��C-� � �� �
H�*��� �C� � ��� O��O�
��C� �
�� �� � � � �
��y� ��Ca� � �� 2��� �
B�C� � �� U THIS CLEARLASTERROR LREADEVENTS LCTEMP
CREFERENCE CMACKEY TO LNOSCREENDURINGAPP SETSCREENATTRIBUTES OFRAME SETFRAMEATTRIBUTES ISERRORFREEm �� � �� � T� � �� ��! T� �C� � � � � � � ��" ��C� lAddingNewDocument� � �� B�� �� U TLNEW LLRETURN THIS LADDINGNEWDOCUMENT DODOCUMENTPICKERDIALOG
CNEWOPENCLASS CNEWOPENCLASSLIB RESETTODEFAULT� �� � � � %�C� � �
��� � T� �C� � � � � � �� %�C� ��� O��� � T� �C � � � ��
%�� ��� � ��C � � � �� �� �
��C� � �� � � B�� �� �� � ��C� �
� �� � U LOTEMP LIINDEX LLOK THIS CERRORVIEWERCLASS ADDCOLLABORATOR CERRORVIEWERCLASSLIB APPLYAPPATTRIBUTES ACTIVATEFORMINFRAME RELEASE CUSERROR DISPLAYERRORLOG �� � � � � � � U
TCFILENAME TCCLASS TLNOMULTIPLEINSTANCES TLNOSHOW TLGOMENU TLNAVTOOLBARp �� � � ��C� ��� L��G ��C� toSession.DataSessionIDb� N� C� _SCREEN.ActiveFormb� O �� �� � � � T� �� �
��
%�� ��� � T� � �a�� �+ %�C� toSession.DataSessionIDb� N��� �
T� �� �� �� � T� ��9� �� � %�� � C � � � � ��.� T� �Ca � � � �
�� �A� T� �a�� �
%�� ��`� T� � �-�� � B�� �� U TLDATACHANGEALREADYCONFIRMED TOSESSION
LLDATAHANDLED LOSESSION
LLINTERRUPTED THIS LNOINTERRUPT
ACTIVEFORM CUSDATASESSION DATACHANGED QUERYUNLOAD� �� � � T� �CC�� ]f�� %�C� ���> � T� � �� �� �� T� � �� �� %�� PROCEDURE� � ��� � T� � �C� � � \��( T� � �C� � �C� � � �\�� � %�C� � 0
��� � T� � �� �� �# %�CC� � �R� VCT� DCT���� T� � �� �� � �! �� �C���t�(����������� T� �CC�� ]f��& %�CC� �R� APP� EXE� DLL����� T� � �� �� !� � �� B�C� � �� U LCSYS16 LILEVEL THIS CAPPFILENAME CCLASSCONTAINERFILENAME ISERRORFREE� �� � � �� � � T� �� �
��
%�� ��C � T� � �a�� � T� �C � � � � � ��
%�� ��~ � T� � �-�� � B�� �� U TOSESSION TICHANGEMODE LLRETURN
LLINTERRUPTED THIS LNOINTERRUPT CUSDATASESSION DATACHANGED� �� � � � � �� � � T� �� �
��
%�� ��K � T� � �a�� �$ T� �C � � � � � � � ��
%�� ��� � T� � �-�� � B�� �� U
TLUSERCHOICEALREADYCONFIRMED TLDATACHANGEALREADYCONFIRMED TOSESSION TLNOSHOW LLRETURN
LLINTERRUPTED THIS LNOINTERRUPT CUSDATASESSION UPDATE� �� � � � � �� � � T� �� �
��
%�� ��K � T� � �a�� �$ T� �C � � � � � � � ��
%�� ��� � T� � �-�� � B�� �� U
TLUSERCHOICEALREADYCONFIRMED TLDATACHANGEALREADYCONFIRMED TOSESSION TLNOSHOW
LLINTERRUPTED LLRETURN THIS LNOINTERRUPT CUSDATASESSION REVERT< %�C� � ��� C��! � B�� �� �5 � B�� � �� � U THIS CCAPTIONK �� � %�C� ��� C��, � T� � �� �� �D � T� � �� �� � U TVNEWVAL THIS CCAPTION[ ��
� � %�C�
� �
��< �! T� � �C �
� � .ico� � �� �T � T� � �� �� � U VNEWVAL THIS CICON GETRESOURCEFILENAME B�� � �� U THIS
ILASTERRORN �� � �� �- T� �CC� ��� C� C� �� � � � � 6�� T� � �� �� U TCDATAFOLDER LCDATAFOLDER THIS CDATAFOLDER� �� � %�C� ��� C��n �1 %�C� � � .Nameb� C�
C� � � ��Z �
<�� � �� � T� � �� �� �? %�C� � �
�( C� � � .Nameb� C�
C� � � ��� �
<�� � ��
7�� � �� J�� �(�� � �� � U TCREFERENCE THIS
CREFERENCE;! %�C� � �� C� � ��
��� � �� � %�C� � �
��Z � T� �C� � C� \� � �=�� �* %�C� �� C� ��
� C� � �
��� � T� �C� � C� \� � �=�� � %�C� �� C� ��
��� � T� �C� DIRECTORYv�� � T� � �� �� � %�C� � �R� \��(� T� � �� � � \�� � B�� � �� U THIS
CAPPFOLDER LCAPPFOLDER CCLASSCONTAINERFILENAME CAPPFILENAME� �� � %�C� � ��� � B�-�� �
H�1 ��� �� � � ��E �
�� ��2� T� � �a��" %�C� CNTBAR("_mGo")b� U��� �
H�� �� � �C� � ��� O��� � ��C� � � � �� �C� � � �
��� � ��C� � -� � �� 2�� � � �.�
H��*� �C� � ��� O����| s�� ��"�� \<Go��� ��7 Navigates the currently selected table, cursor, or view�
N���� ALT+G�� ALT+G �� 1�� ���� � �C� � � �
��"�I s�� �� � � �"�� \<Go���
N���� ALT+G�� ALT+G �� 1�� �� � � ��� � 2�*� � � 2��� T� � �-��
H�U��� �C� � ��� O��x� <�� ��� �C� � � �
���� <�� �� � � �� 2��� � � B� U TLGOMENUNEEDED THIS CGOMENUFILE LGOMENU OFRAME DOMENU CMENUNAME _MSM_GO _MGO; �� � �� �! T� �C� � � � � � � �� B�� �� U TLMODIFY LLRETURN THIS DODOCUMENTPICKERDIALOG CREPORTDIALOGCLASS CREPORTDIALOGCLASSLIB0 �� � T� �C� � � � � � �� B�� �� U LLRETURN THIS DOMODALDIALOGCLASS CABOUTBOXCLASS CABOUTBOXCLASSLIB� �� � � %�C� � �
��G � Q� �� � ���� � �� T� �a�� � %�� � ��h �
��C� � �� �} �
��C� � �� � T� �C� � � �
� � ��
%�� ��� � Q�� � �� � B�� �� U
LLOPENEDTABLE LLRETURN THIS CUSERTABLEALIAS CUSERTABLENAME LUSERPREFERENCES SEEKCURRENTUSER SEEKDEFAULTUSER DOMODALDIALOGCLASS COPTIONSDIALOGCLASS COPTIONSDIALOGCLASSLIB� �� � � � �� � � � � �! %�C� �� C� � � C� � ��P � B�� �� � ��C� ��� C�� ��C� ��� C�� ��C� ��� C��! T� �C � � .mpx .mpr� � �� %�C� ���� � B�� �� �
T� �� �� T� �C� �
��� �� ���(�� ���� T� �C � �� �
��E %�C� ��� C� CC � �� �
��� N � C � �� �
� ��k�
T� �� �� .� � %�� � ����+ T� �
�� �����C � �� �
��� B�� �� � �� %�� � ��,� %�CC��� �
��� C���� T� �� ��� ��
T� ���� � � �
�� ����� � T� �
�� ������ �� T� �
�� �������� T� �
�� �����C� ��� T� �
�� �����C� ��� ��C � � � �� B�� �� U TCMENUFILENAME TCPADNAME TCPOPUPNAME LCMENUFILENAME LIELEMENT LIINDEX LIMENUS LCMENU THIS GETRESOURCEFILENAME
ACONTEXTMENUS DOMENU� �� � �( ��C� ��� N� C� �C� � �ͫ �� ��C� ��� L��
��C� � �� %�C�t� � C� � ��r � B�-�� � �� � %�CC � �� � ��� N��� �
T� �� �� �� � T� �C � �� � �� � %�� � � � ���� %�C� � ��� O��� <��C � �� � ���� �B�# <��C � �� � ��� � � �� � <��C � �� � ��S J�-�(� � �� ����� � �� ����� � �� ����� � �� ����� ��� T� � �� ������ ��� � B�C� � �� U TIMENUINDEX TLFORCE THIS
ACONTEXTMENUS CLEARLASTERROR LICURRENTMENUREFCOUNT OFRAME CMENUNAME ISERRORFREE% �� � �� � � � T� �a��
��C� � �� %�C� ��� C� CC� �0 ��] � T� �C� ��� �w � T� �C� � ��� � %�C� ���� � B�-�� �+ T� �C � � .hlp .dbf .htm .chm� � �� %�C� ���� � B�-�� � T� �CC� ��f��
H�� � � �� � DBF���� %�C� fCC� HELP�vf���� �� � � T� �C� HELPv�� T� �C� HELP�v�� G (�� �� G � $� � %�C� �
� C� 0 ���� G (�� �� � SET HELP &lcOldHelp
��� $� � �! �C� � HLP� HTM� CHM���� T� �C � � �
�� 2� � � B�� � C� � �� U TCFILE
LCFILENAME LCEXT LLRETURN THIS CLEARLASTERROR CHELPFILE GETRESOURCEFILENAME
LCOLDHELPFILE LCOLDHELP DOFILE ISERRORFREE� �� � � � �� � � %�C� ���0 � B�-�� � %�C� �
��Q �
T� �� �� �) %�C� � ��� O� � � � �
��� � ��C� � � �� � T� �C � � � � �� %�C� ��� O��� � B�-�� �( %�C� � ApplyAppAttributes��h��� ��C � � �
�� �5� %�C� � ���1� T� � �� � �� � �
%�� ��O� B�� �� �� T� �
���� ��C � � � �� B�a�� � U TCWHICHDIALOGCLASS TCWHICHDIALOGCLASSLIB TLNOSHOW LOFORMREF LCWHICHDIALOGCLASSLIB THIS OFRAME
SHOWWINDOW SHOW INSTANTIATE APPLYAPPATTRIBUTES ICON CICON
WINDOWTYPE ACTIVATEFORMINFRAME� �� � �� �
H� �� � �C� �
� C� � ��B �
T� �� ��& �C� _SCREEN.ActiveFormb� O��z � T� ��9� � �� 2�� � B�-�� � U
TCFORMNAME
LCFORMNAME
ACTIVEFORM NAME �� � ��C � � � � �� U TCFORM THIS CUSWINDOWHANDLER CASCADEFORMINSTANCES6 �� � � � � ��C � � � � � � � �� U TCFIELD TCALIAS TCTAG TLDESCENDING THIS CUSTABLESORT DOSORT/ T� � �a�� ��C� � � �� T� � �-�� U THIS LNOINTERRUPT CUSTABLENAV GOTOP/ T� � �a�� ��C� � � �� T� � �-�� U THIS LNOINTERRUPT CUSTABLENAV GOBOTTOM/ T� � �a�� ��C� � � �� T� � �-�� U THIS LNOINTERRUPT CUSTABLENAV GONEXT/ T� � �a�� ��C� � � �� T� � �-�� U THIS LNOINTERRUPT CUSTABLENAV
GOPREVIOUS? �� �, T� �C� _GoTodialog�
_table.vcx� � �� B�� �� U LLRETURN THIS DOMODALDIALOGCLASS� �� � �- T� �C� _FindDialog�
_table.vcxa� � �� %�C� ��� O��� � T� � �� � �� T� �� �
��
%�� ��� � T� � �a�� � ��C�� � ��
%�� ��� � T� � �-�� � �� � B�-�� � U LOFORM
LLINTERRUPTED THIS DOMODALDIALOGCLASS LADVANCED LFINDONMULTIPLETABLES LNOINTERRUPT SHOW� �� � ��C� � � ��- T� �C� _FilterExpr�
_table.vcxa� � �� %�C� ��� O��| � T� � �� � �� ��C�� � �� �� � B�-�� � U LOFORM THIS CUSTABLENAV SETTOACTIVESESSION DOMODALDIALOGCLASS LADVANCED LUSE_GETEXPR SHOW� �� � �� � �
��C� � �� T� �C� � ��� �� ���(�� ��� �1 %�CC � �� � ��� C� C � a� �
��� � %��
��� � B�-�� � � �� <�� � B�C� � �� U TLFORCE LIMENU LIMENUCOUNT THIS CLEARLASTERROR
ACONTEXTMENUS RELEASECONTEXTMENU _MGO ISERRORFREEi �� � �� � T� �C� DATASESSIONv�� %�C� ��� N��I � G�(�� �� �
��C� � �� G�(�� �� U TISESSIONID LISESSIONID LITHISSESSIONID THIS SETDATASESSIONSETS G_ � G2 � U e ��
� � %�C�
� �
��F �+ T� � �C �
� � .bmp .ico .gif� � �� �^ � T� � �� �� � U VNEWVAL THIS CIMAGE GETRESOURCEFILENAME� �� � T� �� � �� %�C� \� � ��B � T� �� � � �� � %�C� .� � ��r � T� �� � .DBF�� � B�� �� U LCTABLE THIS CERRORLOGTABLENAME
CAPPFOLDER� �� � � � � � � �� � � T� �C� � �� %�CC � � � ��� O��v � T� �� ��� � � �� �� � %�C� �
��� �
T� �� �� �2 T� � �� ��C � � � � � � � �
�� B�C � � � �� U TCCLASS
TCCLASSLIB TCCLASSCONTAINER
TCPARAMSTRING TOPARENT TCMEMBERNAME LIELEMENT
LCCLASSLIB THIS ACOLLABORATORS INSTANTIATE �� � �+ %�C� ��� O� C� � f� FORM
��= � B�� � �� � ���� � � T� �� T� �C� EXACTv� OFF��
%�� ��� � G � �+ %�C� toForm.� � � .Nameb� C��)� T� �C� toForm.� � ��: %�C�� � �a� � C� C�
_formmediatorf�� ��%� T� �� � � %�C� �� � � � ���� �� � �
���I %�C� ��� O� C�� � �a� � C� C�
_formmediatorf�� ����
T� �� �� !� � �� � %�C� �� � ���� T� �C � � � �� �
%�� ��� G � � B�� �� U TOFORM TLFORCE BASECLASS LOMEMBER LACHECK
LOMEDIATOR
LLEXACTSET THIS CFORMMEDIATORNAME CONTROLCOUNT CONTROLS CREATEFORMMEDIATOR �� � B�CC � � � �
�� U TOFORM THIS GETFORMMEDIATORREF� �� �
��C� � �� %�C� � �
��7 � T� �� � �� � %�C� � �
��� � T� � �C� � � � � �� %�C� � ��� O��� � T� � � �� �� � �� � T� � �� � B�C� � �� U
LCCLASSLIB THIS CLEARLASTERROR CFRAMECLASSLIB CFRAMECLASS OFRAME INSTANTIATE OAPP ISERRORFREEN %�C� � ��� O��G � T� � � �� ��C� � � �� T� � �� � U THIS OFRAME OAPP RELEASE7 �� � �� �. T� �C� _SysToolbars� _app�� .T.� � ��2 T� �C� _ObjectState� _app�� _SCREEN� � �� %�C� ��� O�� �
%�� ��� � %�C� � �
��� � ��C� Caption� � a� � �� � ��C� Icon� � a� � �� � ��C� Visible � a� � �� �0� %�� � �9�
��,�
T�9� �a�� � � U TLON LOTEMP THIS ADDCOLLABORATOR CCAPTION SET CICON VISIBLEh %�C� � ��� O�� � B� � T� � � �� � � �� T� � � �� � �� T� � � �� � �� U THIS OFRAME BACKCOLOR CUSWINDOWHANDLER IMDIWORKSPACECOLOR ICON CICON CAPTION CCAPTION� �� � T� � �a�� %�C� � ��� O��= � ��C� � � �� �. T� �C� � �� CC� � � � � � �
�� %�� � C� � �
��V�
H�� �R� �C� � ��� O��� � T� �C� � a� � �� �� �
��� � T� �C� � � � �� 2�R� %�C� � ��� � T� �C� � � � �� �N�' T� �CC� � � � � �
� � �
�� � � �
%�� ���� %�C� � ��� O���� ��C� � � �� ��� G&(� � T� � �-�� %�� � ����
��C� � �� � � B�� �� U LLSUCCESS THIS LNOINTERRUPT OFRAME SHOW CSTARTUPTOOLBARCLASS DOTOOLBAR CSTARTUPTOOLBARCLASSLIB CSTARTUPMENU DOMENU LREADEVENTS CSTARTUPMENUPAD
DOCONTEXTMENU CSTARTUPMENUPOPUP LSTARTUPFORM
DOSTARTUPFORM� �� � %�C� ��
�C� � ��' � B� � �� � T� ��9� ��
T�9� �a�� T�9� �� �� %��9�
��y � ��C�9� �� � %�C� � ��� � �,� � � t,� �� �� U TCWINDOW STARTMODE LLAUTOCENTER
AUTOCENTER VISIBLE SHOW SCREEN5 �� � %�C� ��� � B� � ��C � � � � �� U TCTOKEN THIS CUSWINDOWHANDLER INVOKEMENUITEMINFRAMEV �� � %�C� � ��� � B�-�� �
H�1 �K� �� � � ��U � T� � �� ��
�� ��� � T� � �a�� %�C� � ��� O��� � �� � T� �C� � � � � � �� T� � �C � �� � �� �� � %�� � �
��� � ��C� � �
�� � � 2�K� T� � �-��& %�C� � ��� O�
� � � ��G� ��C� � � �� � � B� U TLNAVTOOLBARNEEDED THIS CNAVTOOLBARCLASS LNAVTOOLBAR ONAVTOOLBAR LIINDEX DOTOOLBAR CNAVTOOLBARCLASSLIB ATOOLBARS VISIBLE SHOW HIDE: �� � T� � �a�� ��C � � � � �� T� � �-�� U TIRECORD THIS LNOINTERRUPT CUSTABLENAV
GOTORECORD B�C� � � �� U THIS CUSTABLENAV GETCURRENTALIAS� �� �+ �� � � � � � � � � �
�& %�C� _SCREEN.ActiveFormb� O��| � T� ��9� �� T� �C � � �
�� � T� �C� DATASESSIONv��
H�� ��' �C� loActiveForm.Parentb� O��� � G�(�� � � �� �C� ��� O��� G�(�� � �� � %�C� ��� O��J�
��C� � �� T� �� � �� T� �� � �� � %�C� ���i� T� �C�� � %�C� ����� T� �C� ��� � %�C� �� CC� N�
���� %��
��'� T�
�� �
��
%��
���� T� � �a�� � %�C � � � � ���
T� �� �� �#� T� �� � �B� T� �� NEXT 1�� � %�C� �
���� %�C� +��r�
T� �� �� ��� T� �C� O�� � � �5 %�C� �
� C� ��� N � C� �� � � ��g� %�C� �
���) T� �� � (� Current Record� )�� �- T� �C�
_outputdialog� _reportsa� � �� %�C� ��� O�� � T� � �� �� T� � �� �� T� � �� � � � �� T� � �-�� T� � �C � a� � �� T� � �C � a� � �� T� � �� � �� T� �! �a�� T� �" �� �# �� ��C�� �$ �� T� �� T� �a�� � %�� � ��K� #�� �6� H�� �� �c� #�� ��� �� � � %�C� ��� O����
��C� �% �� � G�(�� ��
%��
���� T� � �-�� � B�� �� U& TLOUTPUTONERECORD LODIALOG
LOMEDIATOR LOACTIVEFORM LISESSION LCALIAS LCCAPTION LCSCOPE LIRECNO LLRETURN
LLINTERRUPTED
ACTIVEFORM THIS GETFORMMEDIATORREF PARENT
DATASESSIONID PREPAREOUTPUTALIAS COUTPUTALIAS COUTPUTCAPTION LNOINTERRUPT CUSTABLENAV CURRENTTABLEALLOWSNAVIGATION DOMODALDIALOGCLASS CSCOPE CALIAS CAPTION LADDSOURCENAMETODROPDOWN
CHTMLCLASS SETHTMLCLASS CHTMLSTYLEID SETHTMLSTYLEID ICON CICON LPREVENTSOURCECHANGES CDISPLAYFONTNAME CTEXTDISPLAYFONT SHOW CLEANUPOUTPUTALIAS� �� � T� �C� � f�� %�C� \� � ��D � T� �� � � �� � %�C� .� � ��t � T� �� � .DBF�� �4 %�CC��� ]�� CC��C� � .DBF� .FPT�]� ��� � ��C � � � �� � B�� �� U LCTABLE THIS CUSERTABLENAME
CAPPFOLDER CREATEUSERTABLEo �� �1 %�C� ��� C� C� �� C� &� �
��P � T� � �� UC��]�� �h � T� � �� �� � U TCNEWVAL THIS CUSERTABLENAME CUSERTABLEALIAS� �� � ��C� ��� L�� �� � �
��C� � �� %�C� � �
��� � Q� �� � ���� � �� %�C� �
��{ � B�-�� � T� �a�� � %�� � ��� � %�C� � �� � ��� � T� �C� �
�� �� � T� �C� � �� � ��
��C� � �� T� �a�� �
%�� ����! T� � �C� � � .� �
��! T� � �C� � � .� � ��
��C� � ��
��C� � ��
��C� � �� ��C�� � �� %�� � ����
��C� � �� � �
%�� ���� Q�� � �� � B�� �� U TLCHANGEUSER
LLOPENEDTABLE LLSUCCESS THIS CLEARLASTERROR CUSERTABLEALIAS CUSERTABLENAME ISERRORFREE LUSERPREFERENCES CCURRENTUSER DOUSERLOGIN SEEKCURRENTUSER SEEKDEFAULTUSER CUSERTABLEIDFIELD ICURRENTUSERLEVEL CUSERTABLELEVELFIELD SETUSERPERMISSIONS FILLUSEROPTIONSARRAY APPLYGLOBALUSEROPTIONS SETCURRENTUSERFAVORITEIDS LREADEVENTS SETMACROS� �� � �� � � T� �� � ��! T� �C� � � � � � � �� %�� �
� � �
��s � ��C� � � � �� � B�� �� U TLADD LLRETURN
LCFAVORITEIDS THIS CCURRENTUSERFAVORITEIDS DODOCUMENTPICKERDIALOG CSTARTUPFORMCLASS CSTARTUPFORMCLASSLIB SETCURRENTUSERFAVORITEIDSe �� �/ %�C� ��� N� C� ���� ����
��F � T� � �� �� �^ � T� � �� �� � U TINEWVAL THIS IINITIALTOOLBARPOSITION5 %�� �
�� � B�� �� �. � B�� � �� � U THIS LABOUTBOX CABOUTBOXCLASS B�� � �� U THIS CSTARTUPFORMCLASS5 %�� �
�� � B�� �� �. � B�� � �� � U THIS LSTARTUPTOOLBAR CSTARTUPTOOLBARCLASSd �� � � � %�C� ���% � B�-�� � �� � � %�C� �
��Q �
T� �� �� � %�C� � ��� O��} � ��C� � � �� �: T� �C � � �� THIS,C� � � .T.� � .F.6� � �� %�C� ��� O��N�( %�C� � ApplyAppAttributes��h�� � ��C � � � �� �:� %�C� �
���6� T� �
�� � �� � � ��C�� � �� �]� B�-�� � U TCCLASS
TCCLASSLIB TLALTERNATEMODE LOTEMP
LCCLASSLIB THIS OFRAME SHOW INSTANTIATE APPLYAPPATTRIBUTES ICON CICON U � �� � �� � � � � %�C� ��� C��< �
T� �� �� �T � T� �� � �� � %�C� � �
��� � Q� �� � ���� � �� %�C� �
��� � B�-�� � T� �a�� � %�C� DELETEDv� OFF��� � T� �-�� G � � %�� �
��-�5 T� �CCC� �CC� � � .� � �>�� � � ID��� �r�= T� �CCCC� �fCC� � � .� � �>�� � � ID_Upper��� �
%�� ���� G � �
%�� ���� Q�� � �� � B�� �� U TCNAME
LLOPENEDTABLE LLSUCCESS LCNAME LLDELETEDOFF THIS CCURRENTUSER CUSERTABLEALIAS CUSERTABLENAME ISERRORFREE LUSERNAMEISCASESENSITIVE CUSERTABLEIDFIELDC �� �
��C� � �� �� � � � T� �� � �� T� �� � �� T� �CW�� F� �U h1�� ��� �� C��<��� �� I� � M�� � M��
� M�� � M�� � M�/ INDEX ON PADR(ALLTR(&lcIDField.),60) TAG ID
< INDEX ON PADR(UPPER(ALLTR(&lcIDField.)),60) TAG ID_Upper
& �C'��
� Q�
F�� �� B�C� � �� U TCTABLE THIS CLEARLASTERROR LISELECT LCIDFIELD LCLEVELFIELD CUSERTABLEIDFIELD CUSERTABLELEVELFIELD USERPASS USEROPTS USERFAVE USERMACRO USERNOTES IFDELETED ISERRORFREE� ��C� � ��� %�� �
��' � B�-�� � �� � T� �C� � � � a� � �� %�C� ��� O��� � ��C�� � �� B�C� � +
�� �� � B�-�� � U THIS CUSERTABLEALIAS LUSERPREFERENCES LOFORM DOMODALDIALOGCLASS CUSERLOGINCLASS CUSERLOGINCLASSLIB SHOW� ��C� � ���@ %�C� � � .UserOptsb� M� CC� � � .UserOptsΡ
��� � @�� � � .UserOpts�� � � �C� ������ ��C� � � �
�� � U THIS CUSERTABLEALIAS ACURRENTUSEROPTS LAOPTIONSO �� � %�C� ��� O�� � B� � �� � � � � � � T� �� �
��
%�� ��l � T� � �a�� � T� �C� DATASESSIONv�� G�(�� � �� �� ���(�C� �
���� %�C � �� �
��� � .� � T� �C � �� �
�� T� �C � �� �
�� %�C� ��� C��!� .� � %�C � �� �
���� T� �C� .� ��c %�� � �
C� � ��h �> � ��2 CC�
toSession.C� �� �\�C� � �\��h ���� toSession.&lcItem. = lvValue
� �� %�C� ��� C���� .� � SET &lcItem &lvValue
� �� G�(�� ��
%�� ��D� T� � �-�� � B� U TOSESSION LISESSION LIROW LCITEM LVVALUE LIPOS
LLINTERRUPTED THIS LNOINTERRUPT
DATASESSIONID ACURRENTUSEROPTS� �� � %�C� � �
��a � Q� �� � ���� � �� %�C� �
��R � B�-�� � T� �a�� � %�C� � N� ��� � %�C� � �
��� � #�� � �)� � �� � �� � �� �
%�� ��� � Q�� � �� � U
LLOPENEDTABLE THIS CUSERTABLEALIAS CUSERTABLENAME ISERRORFREE SEEKCURRENTUSER� �� � � � � �� ���(�C� � ����� %�C � �� �
��O � .� � T� �C � �� � �� T� �C � �� � �� %�C� ��� C��� � .� � %�C � �� �
��I� T� �C� .� ��^ %�� � �
C� � ��h �9 � ��- CC� THIS.C� �� �\�C� � �\��h ��E� THIS.&lcItem. = lvValue
� ��� %�C� ��� C��j� .� � SET &lcItem &lvValue
� �� B� U LIROW LCITEM LVVALUE LIPOS THIS ACURRENTUSEROPTSr �� � � %�C� ��� C��' � B�� �1 %�C�t�� C� taOptionArray[1,1]b� C ��c � B�� � �� � � �
�� ���� %�C�t���� � ��C� �� �
�� �� � ��C� � �� �
�� � T� �C� EXACTv� OFF��
%�� ��� � G � � T� �C� � ���
%�� �� � G � � %�C� �
��\� T� �C� � ���� B�C � �� �� �k� B�� � U TCOPTION
TAOPTIONARRAY LIELEMENT LIROW
LLEXACTSET LATEMP THIS ACURRENTUSEROPTSN �� � � � � T� �� � �� %�C� �� C� 0
��t �4 ��C� The error log is not available.�@� � �x�� B� �
��C� � �� T� � �a�� T� �CW�� T� �� EC��]�� Q� ��� ��� �� T� � �-�� %�C� �
� C� �
��s�
��C� � ��M ��C�8 The error log is in use, please close before continuing.�� � �x�� %�C� ���k� Q�� �� � B� � %�C� N�
���� T� �C� SAFETYv� OFF��
%�� ���� G. � �
F�� �� S�
F�� ��
%�� ���� G. � � � %�C� N� ��8�2 ��C� The error log has no records.�@� � �x�� � Q�� �� B� U
LCTABLE LISELECT LCALIAS LLSAFETY THIS CERRORLOGTABLENAME CCAPTION CLEARLASTERROR LSKIPERRORHANDLING ISERRORFREE� �� � � � � � � T� �� � �� %�C� �� C� 0
��| �4 ��C� The error log is not available.�@� � �x�� B� �
��C� � �� T� �CW�� T� �� ExportErrors�� %�C� ���� � T� �� EC��]�� � F� � Q�� ��� T� �C�� %�C� �
��(�
��C� � ��
F�� �� B� �D o�� ��� ��C� ��� C� ���Q� �C�
���Q�
���� ��
F�� �� Q�� �� %�� � ��w�- T� �C�
_outputdialog� _reportsa� � �� %�C� ��� O��s� T� � �� � �� T� � �� �� T� � �a�� T� � �� � �� T� � �C � a� � �� T� � �C � a� � �� ��C�� � �� T� �� T� �a�� � ���2 ��C� The error log has no records.�@� � �x�� � %�C� ����� Q�� �� �
F�� �� B�� �� U LCTABLE LISELECT LCALIAS LODIALOG LCTABLEALIAS LLRETURN THIS CERRORLOGTABLENAME CCAPTION CLEARLASTERROR ISERRORFREE ERRSTAMP LISTING USERNOTES DOMODALDIALOGCLASS ICON CICON CALIAS LPREVENTSOURCECHANGES CDISPLAYFONTNAME CTEXTDISPLAYFONT
CHTMLCLASS SETHTMLCLASS CHTMLSTYLEID SETHTMLSTYLEID SHOW�? %�� �
�* C� CNTBAR(THIS.cFavoritePopupName)b� N ��F � B�-�� �% �� � � � � � � ���� T� �� � �� �� ���(�C� �
���� � <�� ��� �
�� ��
T� ����
��C� � �� %�C� � �
��� T� �� MC��]�� Q� �� � ���� �� � %�C� �
��^� GN������ �
��a�� GN������ �
��a�� B� � T� �CW�� %�C� �
����
F�� �� � %�C� � �
���� ��C�� � � a��� J�� �(� � � �� � ��� %�C� �
���� T� �CC� �f��
T� �� �� %�C� 0���� T� �� ��� s�� ��� �
�"�� �� T� �� � .�� T� �� � DoFile�� T� �� � ([� � ])�� �8�# %�C� �
� C � � � � ��4� T� �� ��� s�� ��� �
�"�C� ���
H���0� �C� �
��� T� �C� ���
�� ��1� T� �� DO ([C� �� ])�� �� � R��x�5 T� �� � .DoReport([C� �� ],[C� �� ])�� �� � F��(�� T� �� � .DoForm([C� �� ],[C� �� ],C� �
� .T.,� � .F.,6C� �
� .T.,� � .F.,6C� �
� .T.,� � .F.,6C� � � .T.� � .F.6� )�� 2�0� � � � %�C� �
����G ON SELECTION BAR liBarNo OF (THIS.cFavoritePopupName) &lcStatement
� � �� � GN������ �
��� ��� %�C� �
���� Q�� �� �
F�� �� U THIS
LFAVORITES LCTHISREF LCSTATEMENT LCFAVORITEID LIBARNO LCALIAS LISELECT LAFAVORITES
CREFERENCE CFAVORITEPOPUPNAME CLEARLASTERROR
CMETATABLE ISERRORFREE CCURRENTUSERFAVORITEIDS SEEKMETATABLEFAVORITEID DOC_DESCR ALT_EXEC DOC_WRAP DOC_EXEC DOC_TYPE DOC_CLASS
DOC_SINGLE
DOC_NOSHOW DOC_GO DOC_NAV� �� � %�C� ��� C� C� � ��) � B� � �� ���� � � T� �C� ��� %�CC�� �(�
��� � �� � �� � %�C� fC� f��� � T� � �� �� !� � �� � U TCNEWVAL LATEMP LCVAL LCFONT THIS CTEXTDISPLAYFONT� �� � � ��C� ���! ��C� VAL(tcFavoriteID)b� N�� �� � T� �C� g�� %�� � �
� C� N ��� � #�� ��� ��
B�C� '
�� �� � B�-�� � U TCFAVORITEID TCALIAS LIRECIDf �� �! %�C� ��� L� � �
��, � B� � �� � � �
��C� � �� %�C� � �
��� � Q� �� � ���� � �� T� �a�� � %�� � ��� �
��C� �
�� �� �
��C� � �� � %�C� � ����% %�C� � �
.UserMacrob� M����
H����
�� ��;� D(�� � �
.UserMacro�� T� �a��# �CC� � �
.UserMacroΡ
���� T� �a�� � @�� � �
.UserMacro�� 2��� � � � �
%�� ���� Q�� � �� �0 %�C� CNTBAR(THIS.cMacroPopupName)b� N��_� �� ���(�C� �
���[�% %�C� RestorefCC� � �
�Of��W� GN��� ��� �
���
�� !� � �� � U TLSAVE THIS LREADEVENTS
LLOPENEDTABLE LIBAR LLSUCCESS CLEARLASTERROR CUSERTABLEALIAS CUSERTABLENAME LUSERPREFERENCES SEEKCURRENTUSER SEEKDEFAULTUSER ISERRORFREE CMACROPOPUPNAME� �� � �� � � � ���� �
T� �� ��
��C� � �� %�C� � �
��z � Q� �� � ���� � �� T� �a�� � %�C� �
��� � %�� � ��� �
��C� � �� �� �
��C� �
�� � � %�C� �
���� %�C� ��� C���@ %�C� � � .UserFaveb� M� CC� � � .UserFaveΡ
���@ %�C�� C� � � .UserFave�a��� CC�� b� N ��{� %�CC� � B�C�� ����� %�C� Document table for � � � has been changed. C�
�- Some of your Favorites may not run properly. C�
C�
�- Do you want to clear your Favorites list now?�4� � �x���x�* >�� � ��� � � .UserFave��� �� ��� T� �C� � � .UserFave��$ T� �CC� � B�C� CC�
� \��* >�� � ��� � � .UserFave��� ��
T� �� �� � �" %�CC� � � .UserFaveΡ
��w� �� ���(�C� ��s� %�CC � � �
��o� T� �� C�
C � � �� � �� � ���P ��C�; Your Favorites entries appear corrupt, and will be cleared.�� � �x��* >�� � ��� � � .UserFave��� �� � � ��� %�C� �
���� %�C� �
��p�5 >�� � ��� � � .UserFave��CC� � B�� ��
T� �� �� ���* >�� � ��� � � .UserFave��� �� � � � � T� � �� ��
%�� ���� Q�� � �� �
��C� � �� U TCNEWVAL
LLOPENEDTABLE LCMETATABLELASTUPDATED LCNEWVAL LAFAVORITES LIVAL THIS CLEARLASTERROR CUSERTABLEALIAS CUSERTABLENAME ISERRORFREE LUSERPREFERENCES SEEKCURRENTUSER SEEKDEFAULTUSER CCAPTION IN CCURRENTUSERFAVORITEIDS REFRESHFAVORITEPOPUP: �� � �� � � � � � �
��C� � �� %�C� ��� C� CC� �0 ��^ � T� �C� ��� � %�C� ���x � B�-�� � T� �C � � � �� %�C� ���� � B�-�� � T� �� CC� ��f� �� %�C� �
�
C� >� ��� � T� �C� � ��� � T� �� T� �C�h� ��
H�'��� �C� ���6� �C� � SCX � SCT ���j� T� �C � � �
�� �C� � LBX � LBT ����� T� �C � � � �� �C� � FRX � FRT ����� T� �C � � � �� �� � MPX ���� T� �C � � �
��T �C� � MPR � MNX � MNT ��* � � CC� � MPR��0 � CC� � MPX��0 ��f� T� �C � � �
�� �C� � APP � FXP ����� T� �C � � � ��0 �� � PRG � � � CC� � FXP��0 ���� T� �C � � � �� �C� � QPX � SPX ���� T� �C � � � ��0 �� � QPR � � � CC� � QPX��0 ��`� T� �CC� � QPX��� � ��0 �� � SPR � � � CC� � SPX��0 ���� T� �CC� � SPX��� � �� 2��� � %�C� ��*�+ |�
ShellExecuteA� SHELL32������% T� �C� � open � � � �� �� T� �� � �� � B�� �� U TCFILE
LCFILENAME
LIRETURNVALUE LCEXT LCSTEM LLRETURN LLDEVPRODUCT THIS CLEARLASTERROR GETRESOURCEFILENAME DOFORM DOLABEL DOREPORT DOMENU DOPROGRAM
SHELLEXECUTEA SHELL32b K %�C�- Do you want to clear your Favorites list now?�$� � �x���[ � ��C� � � �� � U THIS CCAPTION SETCURRENTUSERFAVORITEIDSc �� �. %�� �
�
C� � �
� C� ��� C ��< � B�-�� � >�� � �� �C � � � �� U TCVALUETOSTORE THIS LUSERPREFERENCES CUSERTABLEALIAS USERPASS CREATESTOREDPASSWORD IN, �� � ��C� ��� C�� B�C��C� �]�� U TCVALUETOSTORE� �� � ��C� ��� C� C� � � �� �� � � �! %�� �
� C� ��� C ��[ � B�-�� � T� �C� ���, T� �C� ALLTRIM(� � �
.UserPass)�� T� �C � � � � �� B�� �� U TCVALUETOCHECK THIS CUSERTABLEALIAS LCVALUETOCHECK LCSTOREDPASSWORD LLSUCCESS LUSERPREFERENCES CHECKVALUEAGAINSTSTOREDPASSWORDB �� � � %�C� ��� C��' � B�-�� � B�� C��� ]�� U TCVALUETOCHECK
TCSTOREDVALUE B�� � �� U THIS LUSERCANCHANGEPASSWORD ��
� � T� � ��
� �� U VNEWVAL THIS LUSERCANCHANGEPASSWORD% %�� �
�� � B�-�� � %�� �
��� �L ��C�7 Your user-level does not allow access to this function.�0� � �x�� B�-�� � �� � � %�C� � �
��� � Q� �� � ���� � �� T� �a�� �
��C� � �� T� �C� �
� � � � ��
%�� ��� Q�� � �� � B�� �� U THIS LUSERPREFERENCES LUSERCANCHANGEPASSWORD CCAPTION
LLOPENEDTABLE LLRETURN CUSERTABLEALIAS CUSERTABLENAME SEEKCURRENTUSER DOMODALDIALOGCLASS CCHANGEPASSWORDCLASS CCHANGEPASSWORDCLASSLIB �� �G %�C� � ��� C�
C� � �
� C� Project Manager - � � � ��� �
H�[ �� �1 �� �! C� Project Manager - � � �
��� �$ �,�� Project Manager - � � ��
�� ��� � 2�� �$ �,�� Project Manager - � � �� � �� T� � �� �� � U TLSHOW THIS CPROJECTNAME� �� � � � � � �� � �
��C� � �� T� �� � �� T� ��" ��C � � � a � � � �
�� %�� � � ��� � T� �C� � � � �� � B�� �� U
TCFILENAME TCCLASS TLNOMULTIPLEINSTANCES TLGOMENU TLNAVTOOLBAR LOFORM LICOUNT THIS REFRESHFORMSCOLLECTION
NFORMCOUNT DOFORM AFORMS �� � � U TCSOURCE TLTABLE �� � � U TCSOURCE TLTABLE8
��C� � ��
��C� � ��
��C� � �� B�C� � �� U THIS CLEARLASTERROR BEFOREREADEVENTS
READEVENTS ISERRORFREE� �� � �� � � %�C� � f� TOOLBAR��: � T� �a�� �& %�C� � ��� O� � � � ��� �
%�� ��� � T� �� � �� T� � �� .�� �� � T� �� � �� T� � �� WC��]�� � � %�C� ��� � %��
� � � � ��� ��C�� �
�� � �
��C� �
�� � ���
%�� ��`� t,�� � � ��� � �� T� � �� �� ��� t,�� � � ��� � �� T� � �� �� %�� � ����� ��C�� �
�� � � � U TOFORMREF LCFORMID LLTOOLBAR BASECLASS THIS OFRAME
SHOWWINDOW CAPTION NAME
WINDOWTYPE SHOW� �� �+ %�C� ��� O� C� � f� FORM
��9 � B�� � �� � �+ %�C� toForm.� � � .Nameb� C��� � T� �� � �� �� � T� �� Mediator_C��]�� �
��C� � ��' T� �C� � � � �� � � � � ��$ %�C� �
� C � � �
��q�
��C� � �� T� � ��
_FormMediator�� T� � �� _FRAMEWK.VCX��' T� �C� � � � �� � � � � �� � %�C� �
���� T� � �� �
�� B�� �� ��� B�� � U TOFORM BASECLASS LCMEDIATORNAME
LOMEDIATOR THIS CFORMMEDIATORNAME CLEARLASTERROR INSTANTIATE CMEDIATORCLASS CMEDIATORCLASSLIB ISERRORFREE FORMISFRAMEWORKENABLED CAPPREF
CREFERENCE� �� � � %�C� �� C� � � ��- � B�a�� �7 �� � � � � � �
���� ���� �
� T� �� MC��]��
��C� � �� %�C� ���� � Q� ��� � ��� �� T� �� � �� �� � Q� ��� ��� ��
T� �� �� � T� �C� � � C� � �� %��
��X�= T� �� Metatable in use or unavailable:C�
C�
� �� �
%�� ���LT� �C� � .DOC_TYPEb� C� C� �
.DOC_DESCRb� C � C� � .DOC_EXECb� M � C� �
.DOC_CLASSb� M � C� � .DOC_NEWb� L � C� � .DOC_OPENb� L � C� � .DOC_SINGLEb� L � C� � .DOC_NOSHOWb� L � C� � .DOC_WRAPb� L � C� � .DOC_GOb� L � C� � .DOC_NAVb� L � C� � .ALT_EXECb� M �� %��
���? T� ��" Metatable has incorrect structure:C�
C�
� �� � �
%�� ��]� %�C� EXACTv� OFF��D� G � T�
�a�� � T� �CW��
F�� ��
�
���� T�
����� DOC_OPEN�� T�
����� DOC_NEW�� T�
����� DOC_DESCR�� T�
����� DOC_TYPE�� T�
����� DELETED()��
� �C�V�� �� ���(�C�V��.� T� �� ��CC� mf�� �� �� ���(�C�
���� T� �C� CC � �
f��� %�� � ���� T� �-�� !� � �� %��
��8�� T� �� One or more of required indexesC�
� is missing from your metatable:C�
C��
C�
C��
C�
C��
C�
C��
C�
C��
�� �
%��
��O� G � �
F�� �� � %�� � �
���� %�C�C� � ������ ��C� �� � �x�� ���! ��C� � � : � � � � �� � � %�C� ����� Q�� �� � B�� �� U TCTABLE TLOMITFEEDBACK THIS
CMETATABLE LCTABLE LCMESSAGE LCALIAS LISELECT LLRETURN
LITAGCOUNT
LAREQUIRED LAKEYS LIFOUND
LLEXACTOFF CLEARLASTERROR ISERRORFREE STARTMODE CCAPTION CUSERROR RECORDSERVERERRORX �� � �& T� � �C� � � .fxp .prg� � �� %�C� � �� C� � � ��_ � T� �� .T.�� �� �, T� �� .T.,[� � � ],[� � � ]�� �" T� �C� � � � � � � � �� %�C� �
��H� ��C� �
� � �� %�C� � ��
C� � �
��� T� � �� � �� � %�C� � ��
C� � �
��D� T� � �� � �� � � B�� �� U LOSESSION LCPASS THIS CSESSIONCLASSLIB GETRESOURCEFILENAME
CSESSIONCLASS ADDCOLLABORATOR CMEDIATEDSESSIONCLASS CMEDIATEDSESSIONCLASSLIB LOADAPP
CREFERENCE� �� � �� � � � T� �� �
��
%�� ��C � T� � �a�� � �� � � �h�3 %�C� ��� O� C� �
DataSessionID��h
��� � .� �
%�� ��� � ��Ca- � � � �� �d�
H�� �`� �� � � ��� � ��Ca- � � � �� �� � ���� ��Ca- � � � �� 2�`� %�C- � � �
��\�
%�� ��Q� T� � �-�� � B�-�� � � � �� �� ���(�C� � ��p� T� �C � � � ��3 %�C� ��� O� C� �
DataSessionID��h
���� .� �) %�C� loCollaborator.Parentb� O��� ��C� �
� � � �� �M� %�C� � Release��h��I�
��C� � �� � � T� �� T� � �� ��� ��
%�� ���� T� � �-�� � B�C� � �� U TLFORCE LOCOLLABORATOR
LIMEMBERINDEX
LLINTERRUPTED THIS LNOINTERRUPT ACOLLABORATORS
DATAREVERT& IQUERYUNLOADRESULTFORNONVISUALSESSIONS
DATAUPDATE QUERYDATASESSIONUNLOAD PARENT REMOVEOBJECT NAME RELEASE ISERRORFREE� �� �# %�C� ��� L� � � � ��� � ��� � ��p �
%�� ��U � T� �� �� �l � T� �� �� � �� T� � �� �� � U TVNEWVAL THIS LNOINTERRUPT
TMRREFRESH INTERVAL IREGULARINTERVAL %�C�
�� � B�-�� �" T� � �C� � � .icoa� � ��, T� � �C� � � .bmp .ico .gifa� � ��& %�C� � ��� C� C� � �
��� � T� � �� � �� � %�C� �
��� � B�-�� �5 %�C�h� �
�C� � � C� � fC� � f ��� T� � �a�� � B�C� �
�� U THIS CICON GETRESOURCEFILENAME CIMAGE
CREFERENCE SETAPPFILENAMES STARTMODE CCLASSCONTAINERFILENAME CAPPFILENAME LREADEVENTS ISERRORFREE) ��C�� T� � �a�� %�C� � �� C� � �
��K � <�� ��� <�� � � ��Ca� � �� ��Ca� � �� ��Ca� � �� ��Ca� � ��
��C� �
��
��C� � ��
��C� � �� %�C� �
���� � Q�� �
�� � %�� �
��� �
��C� � �� � %�C� � �
���
<�� � �� � ��Ca� � �� U THIS LNOINTERRUPT CFRAMECLASS CGOMENUFILE _MSM_GO _MGO RELEASECONTEXTMENUS RELEASESESSIONS RELEASEFORMS RELEASETOOLBARS RELEASECOLLABORATORS RELEASEFRAME CLEAREVENTS CUSERTABLEALIAS LRESTOREDENVIRONMENT RESTOREENVIRONMENT
CREFERENCE HANDLEPROJECTWINDOW �� � � � T� � �� �� %�� � ��3 � B� � ��C � � � � � � �� �� � �
� � �
� � T� �C� � � �� T� �C� � � �� %�� � �
��t�
T�
�� ��
T�
�� �� T� �C� t�� +�a��H� T�
�C�
t�� T�
��
��� T� �C�
t��, %�C� �� C� fC� � � .ERRORf ��D� !� � �( T� �C�
fC� � � .READEVENTSf�� �
H���� �� � � ���� �� � � ���� %�� � ���� T� �� � �� ON ERROR &lcTemp
�
��C� � ��
�� ��� X� 2�� B� � U NERROR CMETHOD NLINE THIS
ILASTERROR LSKIPERRORHANDLING CUSERROR HANDLE LLFATAL LLUSERCANCELLED LCCALLER LCPROG LLNOCODEEXECUTING LILEVEL LCTEMP ISFATAL
USERCANCELLED NAME LREADEVENTS CLASTONERROR RELEASE� �� � %�C � � �
��$ � B�-�� � %�C � � �
��E � B�-�� � T� � �a�� ��C � � � �� ��C � � � ��
��C� � ��
��C� � ��
��C� � �� <� � U
TLFORCE THIS RELEASESESSIONS RELEASEFORMS LNOINTERRUPT RELEASECONTEXTMENUS RELEASETOOLBARS RELEASECOLLABORATORS RELEASEFRAME CLEAREVENTS show, �� doformA �� doreport� �� dolabel �� domenu� �� clearevents ��
readevents� �� doprogram� �� saveenvironment\ �� restoreenvironment6 �� filenotfoundmsgboxw ��
onshutdown� �� releaseformsD �� releaseform# �� resetformscollection
$ �� refreshformscollection�$ �� refreshtoolbars�& �� dotoolbar' �� releasetoolbarl+ �� releasetoolbars�- �� releasecollaboratorsG/ �� createcollaborators�0 �� instantiate�0 �� getcurrenttopformref*7 �� iserrorfreeo7 �� clearlasterror�7 �� getresourcefilename�7 �� setenvironment/; �� donewopen^= �� displayerrorlogC> �� beforedoform�? �� querydatasessionunload'@ �� setappfilenames7B �� querydatachanged(D ��
dataupdate E ��
datarevertUF �� ccaption_access�G �� ccaption_assign�G �� cicon_assignFH �� ilasterror_access�H �� cdatafolder_assign�H �� creference_assignvI �� cappfolder_access~J �� lgomenu_assignL �� doreportdialogO ��
doaboutbox�O �� dooptionsdialog.P ��
docontextmenu�Q �� releasecontextmenuU �� dohelpgW �� domodaldialogclassZ �� cascadeformj\ ��
cascadeall(] �� dosort�] �� gotop�] �� gobottomX^ �� gonext�^ ��
goprevious_ �� showtablegotodialogr_ �� showtablefinddialog�_ �� showtablesetfilterdialoga �� releasecontextmenusb �� setdatasessionenvironment7c �� setdatasessionsets�c ��
cimage_assign�c �� cerrorlogtablename_access�d �� addcollaboratorFe �� getformmediatorref�f �� formisframeworkenabledWi �� createframe�i �� releaseframe�j �� setscreenattributes<k �� setframeattributes�l �� showstartupelements�m �� activatesystemwindowEp �� domenuiteminframe;q �� lnavtoolbar_assign�q ��
gotorecord�s �� getcurrentalias
t ��
dotableoutputEt �� cusertablename_access{ �� cusertablealias_assign(| �� setcurrentuser�| ��
dostartupform� �� iinitialtoolbarposition_assign;� �� caboutboxclass_accesś �� cstartupformclass_access'� �� cstartuptoolbarclass_accessS� �� dodocumentpickerdialog�� �� setuserpermissions�� �� seekcurrentuser�� �� createusertable� �� douserlogin� �� filluseroptionsarray� �� applyuseroptsforsession� �� seekdefaultuser�� �� applyglobaluseroptions� �� getuseroptionsetting�� ��
purgeerrorlog�� �� exporterrorlog[� �� refreshfavoritepopup�� �� ctextdisplayfont_assign�� �� seekmetatablefavoriteid�� �� setmacrosi� �� setcurrentuserfavoriteids�� �� dofile�� �� clearfavorites�� ��
storepassword� �� createstoredpasswordٰ ��
checkpassword� �� checkvalueagainststoredpasswordc� �� lusercanchangepassword_accessȲ �� lusercanchangepassword_assign�� �� dochangepasswordB� �� handleprojectwindow3� �� doformnoshow_� �� sethtmlstyleid�� �� sethtmlclass�� �� activate� �� activateforminframe`� �� createformmediator�� �� validatemetatable� �� addmediatedsession�� �� releasesessions�� �� lnointerrupt_assign� �� InitT� �� Destroy� �� Error@� �� release?� ��1 q � B � B �A �B � B � B � B � B � b1B � B � B R � B � � 3 ����� � r� �� �A � q A b� ���A �A 1q A A A �� A � q1��A R� �A � Bu�� "�RS1� A B A � CS1A A � "�QQ1A A A B � �� %� A � � A � � !A� A A A !� � � A A � A� � A A A A �1D B � 4 � ��r � �q A � R� �� � q A �]3"�� qQ� 1� QA A A � 2� � �A ��� � � `qQA A a� � � aA A A 2� A � � q A A � 3 � ��� � � � q A �� q A � !� � A R� 4 � �r � � � q A � q A �� � �A � 4 � Q A � 6 � Q A 7 q �r � � � q A �� q A ca� a� q A A � � 4 �a���q� � � r B B � 4 �q A � r qA�� � "Q � � A � q A B � � 3 q rC� �B 3 q � � �� � b� � � A � "� � A E� A � � A B � � � A A A � 3 q r � BA A 2"� � A "3A A � A� q� � A q A A B V�A� � � A q A A B � � A 2 q � a� A � Q� A A � � 4 �� 3 � � � Q�A A ���A qAA A 1A A� A � 3 B A r !Q� A A 3 � ���� � A � A � Qq�T� A A b�� � A A �� � A aA ��A �Q�A �!�A � 4 � �@� �q A r � � �A ��A ��� A � 4 q � � "� � A Rr� � � A q A A A � � � A � 4 � � �QQ1a� �� A A A � AA � 3 � 3 �v������� � R� � � � � Q� � �� � A A B � bA �q A ca� � a� q A A RQ� � QA � � �� 1A �A � � a� �A A � 4 4 � 3 � 3 � ��01�� A � �� A � � 1q� aA q!A 1qa��� !A Q� A � � A A B rA � 3 � qaA��� a A R B � � A � �� �� � D � 4 q q !� 3 � 2�RR� � � B B � � A 4 �5 � r� "� � A �� � � A ��� � B � � A � 3 � A� � ���A 1A 1A A AaA A A � 4 � � "� � A �� � A � 4 1� "� � A B� � A � 3 1� "� � A B� � A � 3 �� � � A 4 q Q� A 4 � !� A 3 � 3 q r �4 q R� A B �� � 1B 3 r B�A ��E ��A B ��A � 3 q "q A � A� � !� �1aA� A � � ��c��� B A � � � �� bQ� A B A 3 q r � 6 q �� 2 � 2�� A � � � A �� � A � 9 � s� A � � A � Qq�S� A A �� A A �� � A aA ����� 3 � �� �q A r � � �A ���� 1A q4� A � 4 q � � � � � !A � q A �� q A "� A�� 1a� a q �� A q� q A R� C S5 � � � q A � A �A �Rq A �� !1A A � � � r B 4 q q � �� a!� q A 4 q B4 12 � � 4 � � 4 � � 4 � � 4 q �� 4 � �Q1"� � A � � A � q A 3 q �Q1� q A 4 q � � Rr� q A A A � � 3 q q �Q� A � � 4 a a 5 � "�� A 5 q qAA qQA � 3 �� "�A � B #2 � �q A �� �� a A ���� A A �%�� A A A A bRB � a A � 4 q Q5 q � 2A 2��1A � � A � 2 �� A 2 q r �"R� 2�B �B �� t� A D 7 �B A �aa4 q � �A ��� ��r� #q� sB B B � �� b B � � A B � 3 q �A A r � � � � A � A � 6 q � A A A4 q "q A � A� � �q ��� AA A � � aA A A 3 q � A� 4 2 x �b� QA �� q!Q� A R� A � � A � � A �� "� � F �� � � A � 1A � � � � A B B T�A �R�� ��1� 1� � B � � � A B R� A � � � A � 2 q !qAA qQA BA � 3 q �� B 3 q � � 2�1q A � A �� A � � � A � � � � � � A A � � A � 3 q � �7A � 3 q �� A 5 � � � B 3 � 3 � � � B 3 � � q A � � A �A �R�� !1A A � q A 6 4 q ;R� � A 2�1q A � A �� a A S� �A � a A � � A � 3 q � � � � X��� A � � 3 � $q A q �Q� q A 2 � ��2A 2 q QA A �!� � A �� ��A A ��QA A �22A � QA A �A B � � � A B 3 v 2�1q A � A bQ� A � � A � � A 4 1��A A ��QA A �1��A � QA A �A B B 3 � Rq A q A � � !� AA �� a A B� a A q� q A 3 1�AA A � � � Qq� �� �� � A A A R�� a A � A � � a A B B!A � B 3 ��AA A � � �� QA � � � 2� � A A F� � �R1� 1��� � A � "B � � A � � 3 �q A S�AA � � 2Q�A 2��A A � � A 3R� � � �!q�� 2�� � � �!S!� � B A A rA A A A � A � 5 q �A A R� R� QA A A B 3 � � r � �� � q A 5 q A A � � 2�� A � � � A R� � �� 1� Q �� Q B A B � � A �Q�A A A A 3 q �� � 1�� A � � � A A Q�4 �� �B�� A A !�Q�A A A � �A B � T� � �A A A B � � A � 4 q �� � A � q A R� q A ��1A � A� � �Q�Q�QbQDQ�QQ�T��� B � �S"B � 4 �A 2 q �r B 3 u 4 q �� r B � ��� 3 � Qq A E2 � 3 � "3 !r A �q A � 2�� A � �� � A � 9 q t� B� � BB � E 3 q� � � !AqA � 2 � 3 � 3 � � � � 3 q � �� A d� � �A B � �� � A � � �� �BA B B 6 q �q A � �� �D � sB� ��rA 1� � q A 3 � �q A tR� � �� q� A �� �A � �� �A A � �a � A � � � ������ rqA ��� A A A � � A � a A � B bqQ� A A � � A � 4 � b�� �A "1�1A �1A B � 4 q � "� � A "3A A � 1� � A1A1� q� � A q A A A B �R3A A �a� �� A A � AB � � A � 3 q 3� � � � A A B 4 � q A "�b1A "q A S� A � 4 � � � � A � � � � � � � "� A � A 2� A � 3 � E A ��BAb� � � � � � �A A A �A � AEqE � � A � A A 4 q cq A bq A � � � � s 3 L , i � U � � �3 � 4 n6 � �6 �8 � �8 9
<9 �9 ! �9 �= # 8 > A@ T H j@ �C n c �C E � j 0E MI � � pI N � � =N YO � �O �O + � P �R 2 � �R �S M � �S �Z [ �Z �b � 4 �b Xe � L �e �g ^ h j ` "j �v * � w :w � � \w ~w � � �w �w � � �w �� � � � �� � � �� � * � � n� 5
�� � X 4� =� ^ & c� �� � @ ړ � � L ;� � � X � �� � d ؘ 2� � j X� ϙ � q � �� � x �� �� z � ˛ � ѝ � �� 4� / � Y� u� ` � �� �� � � �� $� � � J� � � � <� � �
� ι � � 7 G A� p� r e �� �� � p �� �� � s � �� � v �� �� � z � ]� � ~ z� �� � � �� =� � � g� �� � � �� �� � � �� �� � � �� s� � �� �� � �� �� ) � � �� 0 � � �� < � �� �� H � �� �� j � �� 3� � � U� �� � �� i� � �� Q� � & z� e� � - �� �� � N �� e� ? ^ �� � Z d +� � c ~ -� �� � � �� �� � � � � � � �� �
� � ��
� #� �� &
� � Z
� t p
� � {
% , K �
' } � �
- � �
F ~ �
G � e
�
f �
� u � % � � 7 � � J B � p � s � + @ � � k �" � � # �& � "' �,
J �, J: M � x: �; � � < �= � � �= �B � � C pP
�P dY z
< �Y �Z �
@ �Z �[ �
F �[ �\ �
J ] �^ �
U *_ R` [ �` �` ] a a # ` �a |d ) s �d 9g O � \g �h p � �h i } � %i Di � � ci �i � � �i �m � � 'n �r � � �r D~ � m~ �� l % � �� � U �� ؊ � a � �� � q �� ~� � �� *� 8 � H� �� t ) � l�� S S hf % � � � � U : �� � � � T� � � �� �� ��C � � � �� U NERROR CMETHOD NLINE THIS PARENT
ILASTERRORc �� � � T� �� � � ��
T� �C�� %�C� �
��S � T� �C� � � ��� � B�� �� U LCTITLE LCCAPTION THIS PARENT CCAPTION$ �� � � ��C� � � � �� U TCTABLENAME TCALIAS THIS PARENT CERRORLOGTABLENAME Error, �� getmessageboxtitle� �� setlog/ ��1 � 1Q4 � 1� �A � 4 � b4 { � U
r � ) S �� � � �� % < � K � U � %�� � � �� � B� � ��C�� ��C� � � �� �� � � �& %�C� _SCREEN.ActiveFormb� O��x � T� ��9� �� �� � J�-�(� � � � � � � B� �6 %�C�
loForm.Parentb� O� C� � �
��� ��� � B� � %�� �
���� � B� � T� �C�9� � � � �� %�C� ��� O��W� T� � � �� � �� T� � � �� � �� �z� J�-�(� � � � � � � � U THIS PARENT LNOINTERRUPT REFRESHTOOLBARS
LOMEDIATOR LOFORM LLBUSY
ACTIVEFORM LGOMENU LNAVTOOLBAR
WINDOWTYPE GETFORMMEDIATORREF Timer, ��1 1B A � � a� � �A A bA A AA A �Qaa� �A 6 * ) �