Class: ctableform in ..\lib\vfxform.vcx
Baseclass: form

Properties Methods Dataenvironment Objects

Properties

Name	Initial value
Caption	"Client Settings"
DataSession	2
DoCreate	.T.
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
FontSize	8
creportname
cworkalias
lautosyncchildform	.F.
lcandelete	.T.
lcanedit	.T.
lcaninsert	.T.
lchildform	.F.
lcloseonesc	.T.
lmore	.F.
lmultiinstance	.T.
lputinlastfile	.T.
lputinwindowmenu	.T.
lsaveposition	.T.
lusechildform	.F.
lworkonview	.F.

Methods

frmVfxpath.valid
With thisform.cntPanel
    If empty(.txtClientName.value)
        Messagebox(MSG_ENTERCLIENTNAME, 64, thisform.caption)
        .txtClientName.setfocus()
        Return .f.
    Endif

    If empty(.txtDataPath.value)
        Messagebox(MSG_ENTERDATAPATH, 64, thisform.caption)
        .cmdGetDataPath.setfocus()
        Return .f.
    Endif

    If empty(.txtVFXPath.value)
        Messagebox(MSG_ENTERVFXPATH, 64, thisform.caption)
        .cmdGetVFXPath.setfocus()
        Return .f.
    Endif

    If empty(.txtUpdatePath.value)
        Messagebox(MSG_UPDATEPATH, 64, thisform.caption)
        .cmdGetUpdPath.setfocus()
        Return .f.
    Endif
Endwith
frmVfxpath.Init
lparameters tcArg

local lInitOk

lInitOk =dodefault(tcArg)

********************************************************
** Insert your extra initialization code here

with thisform.cntPanel
  .txtDataPath.lAutoSetup = .t.
  .txtVfxPath.lAutoSetup = .t.
  .txtReportPath.lAutoSetup = .t.
  .txtUpdatePath.lAutoSetup = .t.
endwith

*!*    if !empty(thisform.cWorkAlias)
*!*      if used(thisform.cWorkAlias)
*!*        set filter to recno() <> 1
*!*      endif
*!*    endif

return lInitOk
frmVfxpath.onedit
*{ _VFX_BUILDER_CODE
dodefault()
thisForm.cntSpeedBar.Refresh()
*} _VFX_BUILDER_CODE
frmVfxpath.onpostinsert
dodefault()

with thisform.cntPanel
  .cmdGetDataPath.enabled = .t.
  .cmdGetVfxPath.enabled = .t.
  .cmdGetReportPath.enabled = .t.
  .cmdGetUpdPath.enabled = .t.
endwith
frmVfxpath.langsetup
**__VFX_WIZARD_HEADER - 02.01.2001 00:39:19

#ifdef _lang_setup
thisForm.Caption = CAP_FRMCLIENTSETTINGS
thisform.cntpanel.lblclientname.Caption = CAP_LBLCLIENTNAME
thisform.cntpanel.lbldatapath.Caption = CAP_LBLDATAPATH
thisform.cntpanel.lblvfxpath.Caption = CAP_LBLVFXPATH
thisform.cntpanel.lblupdatepath.Caption = CAP_LBLUPDATEPATH
thisform.cntpanel.clabel1.Caption = CAP_LBLIMPORTPATH
thisform.cntpanel.clabel2.Caption = CAP_LBLEXPORTPATH
thisform.cntpanel.lblreportpath.Caption = CAP_LBLREPORTPATH

return .T.
#endif
**__VFX_WIZARD_FOOTER
***********************************************************

Dataenvironment

Class: dataenvironment
Baseclass: dataenvironment

Properties Methods Objects

Properties

Name	Initial value
InitialSelectedAlias	"vfxpath"

Methods

Dataenvironment.BeforeOpenTables
if glclientsupport .and. CheckIfChgDEDbc(thisform)
= ChangeDEDbc(thisform)
endif

dodefault()

Objects

Baseclass	Class	Object name
cursor	cursor	Dataenvironment.Cursor1

Dataenvironment.Cursor1

Class: cursor
Baseclass: cursor
Properties Methods Objects

Properties

Name	Initial value
Alias	"vfxpath"
CursorSource	..\vfxpath.dbf

Objects

Baseclass	Class	Object name
container	cspeedbar	frmVfxpath.CNTSPEEDBAR
zzz	zzz	frmVfxpath.CNTPANEL
		frmVfxpath.LBLMSGEMPTY

frmVfxpath.CNTSPEEDBAR

Class: cspeedbar in ..\lib\vfxctrl.vcx
Baseclass: container
Properties Methods Objects

Properties

Name	Initial value
TabIndex	3

Objects

Baseclass	Class	Object name
zzz	zzz	frmVfxpath.CNTSPEEDBAR.CMDBOTTOM
		frmVfxpath.CNTSPEEDBAR.CMDDELETE
		frmVfxpath.CNTSPEEDBAR.CMDEDIT
		frmVfxpath.CNTSPEEDBAR.CMDEXIT
		frmVfxpath.CNTSPEEDBAR.CMDNEW
		frmVfxpath.CNTSPEEDBAR.CMDNEXT
		frmVfxpath.CNTSPEEDBAR.CMDPREV
		frmVfxpath.CNTSPEEDBAR.CMDPREVIEW
		frmVfxpath.CNTSPEEDBAR.CMDPRINT
		frmVfxpath.CNTSPEEDBAR.CMDSAVE
		frmVfxpath.CNTSPEEDBAR.CMDSEARCH
		frmVfxpath.CNTSPEEDBAR.CMDTOP
		frmVfxpath.CNTSPEEDBAR.CMDUNDO
		frmVfxpath.CNTSPEEDBAR.OBORDER
		frmVfxpath.CNTSPEEDBAR.cmdrecordcopy

frmVfxpath.CNTSPEEDBAR.CMDBOTTOM

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDDELETE

Class: zzz
Baseclass: zzz
Properties Methods Objects

Methods

frmVfxpath.CNTSPEEDBAR.CMDDELETE.Refresh
dodefault()

if this.enabled
this.enabled = (recno() <> 1)
endif

frmVfxpath.CNTSPEEDBAR.CMDEDIT

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDEXIT

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDNEW

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDNEXT

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDPREV

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDPREVIEW

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDPRINT

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDSAVE

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDSEARCH

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDTOP

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.CMDUNDO

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.OBORDER

Class: zzz
Baseclass: zzz
Properties Methods Objects

frmVfxpath.CNTSPEEDBAR.cmdrecordcopy

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
Visible	.F.

frmVfxpath.CNTPANEL

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
BorderWidth	0
Comment	""
TabIndex	2

Objects

Baseclass	Class	Object name
commandbutton	ccommandbutton	frmVfxpath.CNTPANEL.cmdGetDataPath
		frmVfxpath.CNTPANEL.cmdGetExportPath
		frmVfxpath.CNTPANEL.cmdGetImportPath
		frmVfxpath.CNTPANEL.cmdGetReportPath
		frmVfxpath.CNTPANEL.cmdGetUpdPath
		frmVfxpath.CNTPANEL.cmdGetVfxPath
label	clabel	frmVfxpath.CNTPANEL.Clabel1
		frmVfxpath.CNTPANEL.Clabel2
		frmVfxpath.CNTPANEL.lblClientname
		frmVfxpath.CNTPANEL.lblDatapath
		frmVfxpath.CNTPANEL.lblReportpath
		frmVfxpath.CNTPANEL.lblUpdatepath
		frmVfxpath.CNTPANEL.lblVfxpath
textbox	ctextbox	frmVfxpath.CNTPANEL.txtClientname
		frmVfxpath.CNTPANEL.txtDataPath
		frmVfxpath.CNTPANEL.txtExportPath
		frmVfxpath.CNTPANEL.txtImportPath
		frmVfxpath.CNTPANEL.txtReportPath
		frmVfxpath.CNTPANEL.txtUpdatePath
		frmVfxpath.CNTPANEL.txtVfxPath
zzz	zzz	frmVfxpath.CNTPANEL.GRDGRID

frmVfxpath.CNTPANEL.cmdGetDataPath

Class: ccommandbutton in ..\lib\vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"..."
DisabledForeColor	0,0,0
FontBold	.F.
FontName	"Arial"
FontSize	8
TabIndex	5

Methods

frmVfxpath.CNTPANEL.cmdGetDataPath.Click
local lcTmpPath

with this.parent
  lcTmpPath = getdir()

  if !empty(nvl(lcTmpPath,""))
    .txtDataPath.value = lcTmpPath
    .txtDataPath.InteractiveChange()
    .txtDataPath.refresh()

    if empty(.txtVfxPath.value)  .or.  isnull(.txtVfxPath.value)
      .txtVfxPath.value = .txtDataPath.value
      .txtVfxPath.InteractiveChange()
      .txtVfxPath.refresh()
    endif

    if empty(.txtUpdatePath.value)  .or.  isnull(.txtUpdatePath.value)
      .txtUpdatePath.value = alltrim(.txtDataPath.value) + iif(right(alltrim(.txtDataPath.value),1) = "\", "update\", "\update\")
      .txtUpdatePath.InteractiveChange()
      .txtUpdatePath.refresh()
    endif
  endif
endwith
frmVfxpath.CNTPANEL.cmdGetDataPath.Refresh
dodefault()

this.enabled = (recno() <> 1)

frmVfxpath.CNTPANEL.cmdGetExportPath

Class: ccommandbutton in ..\lib\vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"..."
DisabledForeColor	0,0,0
FontBold	.F.
FontName	"Arial"
FontSize	8
TabIndex	17

Methods

frmVfxpath.CNTPANEL.cmdGetExportPath.Refresh
dodefault()

this.enabled = (recno() <> 1)
frmVfxpath.CNTPANEL.cmdGetExportPath.Click
local lcTmpPath

with this.parent
  lcTmpPath = getdir()

  if !empty(nvl(lcTmpPath,""))
    .txtExportPath.Value = lcTmpPath
    .txtExportPath.InteractiveChange()
    .txtExportPath.refresh()
  endif
endwith

frmVfxpath.CNTPANEL.cmdGetImportPath

Class: ccommandbutton in ..\lib\vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"..."
DisabledForeColor	0,0,0
FontBold	.F.
FontName	"Arial"
FontSize	8
TabIndex	14

Methods

frmVfxpath.CNTPANEL.cmdGetImportPath.Refresh
dodefault()

this.enabled = (recno() <> 1)
frmVfxpath.CNTPANEL.cmdGetImportPath.Click
local lcTmpPath

with this.parent
  lcTmpPath = getdir()

  lcTmpPath = getdir()

  if !empty(nvl(lcTmpPath,""))
    .txtImportPath.Value = lcTmpPath
    .txtImportPath.InteractiveChange()
    .txtImportPath.refresh()

    if empty(.txtExportPath.value)  .or.  isnull(.txtExportPath.value)
      .txtExportPath.value = .txtImportPath.value
      .txtExportPath.InteractiveChange()
      .txtExportPath.refresh()
    endif
  endif
endwith

frmVfxpath.CNTPANEL.cmdGetReportPath

Class: ccommandbutton in ..\lib\vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"..."
DisabledForeColor	0,0,0
FontBold	.F.
FontName	"Arial"
FontSize	8
TabIndex	20

Methods

frmVfxpath.CNTPANEL.cmdGetReportPath.Refresh
dodefault()

this.enabled = (recno() <> 1)
frmVfxpath.CNTPANEL.cmdGetReportPath.Click
local lcTmpPath

with this.parent
  lcTmpPath = getdir()

  if !empty(nvl(lcTmpPath,""))
    .txtReportPath.Value = lcTmpPath
    .txtReportPath.InteractiveChange()
    .txtReportPath.refresh()
  endif
endwith

frmVfxpath.CNTPANEL.cmdGetUpdPath

Class: ccommandbutton in ..\lib\vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"..."
DisabledForeColor	0,0,0
FontBold	.F.
FontName	"Arial"
FontSize	8
TabIndex	11

Methods

frmVfxpath.CNTPANEL.cmdGetUpdPath.Click
local lcTmpPath

with this.parent
  lcTmpPath = getdir()

  if !empty(nvl(lcTmpPath,""))
    .txtUpdatePath.Value = lcTmpPath
    .txtUpdatePath.InteractiveChange()
    .txtUpdatePath.refresh()
  endif
endwith
frmVfxpath.CNTPANEL.cmdGetUpdPath.Refresh
dodefault()

this.enabled = (recno() <> 1)

frmVfxpath.CNTPANEL.cmdGetVfxPath

Class: ccommandbutton in ..\lib\vfxobj.vcx
Baseclass: commandbutton
Properties Methods Objects

Properties

Name	Initial value
Caption	"..."
DisabledForeColor	0,0,0
FontBold	.F.
FontName	"Arial"
FontSize	8
TabIndex	8

Methods

frmVfxpath.CNTPANEL.cmdGetVfxPath.Click
local lcTmpPath

with this.parent
  lcTmpPath = getdir()

  if !empty(nvl(lcTmpPath,""))
    .txtVfxPath.Value = lcTmpPath
    .txtVfxPath.InteractiveChange()
    .txtVfxPath.refresh()
  endif
endwith
frmVfxpath.CNTPANEL.cmdGetVfxPath.Refresh
dodefault()

this.enabled = (recno() <> 1)

frmVfxpath.CNTPANEL.Clabel1

Class: clabel in ..\lib\vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
AutoSize	.T.
BackStyle	0
Caption	"Import Path"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
TabIndex	12
Tag	"vfxpath.reportpath"
Visible	.T.

frmVfxpath.CNTPANEL.Clabel2

Class: clabel in ..\lib\vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
AutoSize	.T.
BackStyle	0
Caption	"Export Path"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
TabIndex	15
Tag	"vfxpath.updatepath"
Visible	.T.

frmVfxpath.CNTPANEL.lblClientname

Class: clabel in ..\lib\vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
AutoSize	.T.
BackStyle	0
Caption	"Client Name"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
TabIndex	1
Tag	"vfxpath.clientname"
Visible	.T.

frmVfxpath.CNTPANEL.lblDatapath

Class: clabel in ..\lib\vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
AutoSize	.T.
BackStyle	0
Caption	"Data Path"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
TabIndex	3
Tag	"vfxpath.datapath"
Visible	.T.

frmVfxpath.CNTPANEL.lblReportpath

Class: clabel in ..\lib\vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
AutoSize	.T.
BackStyle	0
Caption	"Report Path"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
TabIndex	18
Tag	"vfxpath.reportpath"
Visible	.T.

frmVfxpath.CNTPANEL.lblUpdatepath

Class: clabel in ..\lib\vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
AutoSize	.T.
BackStyle	0
Caption	"Update Path"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
TabIndex	9
Tag	"vfxpath.updatepath"
Visible	.T.

frmVfxpath.CNTPANEL.lblVfxpath

Class: clabel in ..\lib\vfxobj.vcx
Baseclass: label
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
AutoSize	.T.
BackStyle	0
Caption	"Vfx Path"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
TabIndex	6
Tag	"vfxpath.vfxpath"
Visible	.T.

frmVfxpath.CNTPANEL.txtClientname

Class: ctextbox in ..\lib\vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxpath.clientname"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"
InputMask	"XXXXXXXXXXXXXXXXXXXX"
ReadOnly	.F.
StatusBarText	""
TabIndex	2
TabStop	.T.
Visible	.T.

frmVfxpath.CNTPANEL.txtDataPath

Class: ctextbox in ..\lib\vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
ControlSource	"vfxpath.datapath"
DisabledBackColor	192,192,192
DisabledForeColor	0,0,0
Enabled	.F.
FontBold	.F.
FontName	"Arial"
Format	"K"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ReadOnly	.T.
StatusBarText	""
TabIndex	4

frmVfxpath.CNTPANEL.txtExportPath

Class: ctextbox in ..\lib\vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
ControlSource	"vfxpath.exportpath"
DisabledBackColor	192,192,192
DisabledForeColor	0,0,0
Enabled	.F.
FontBold	.F.
FontName	"Arial"
Format	"K"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ReadOnly	.T.
StatusBarText	""
TabIndex	16

frmVfxpath.CNTPANEL.txtImportPath

Class: ctextbox in ..\lib\vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
ControlSource	"vfxpath.importpath"
DisabledBackColor	192,192,192
DisabledForeColor	0,0,0
Enabled	.F.
FontBold	.F.
FontName	"Arial"
Format	"K"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ReadOnly	.T.
StatusBarText	""
TabIndex	13

frmVfxpath.CNTPANEL.txtReportPath

Class: ctextbox in ..\lib\vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
ControlSource	"vfxpath.reportpath"
DisabledBackColor	192,192,192
DisabledForeColor	0,0,0
Enabled	.F.
FontBold	.F.
FontName	"Arial"
Format	"K"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ReadOnly	.T.
StatusBarText	""
TabIndex	19

frmVfxpath.CNTPANEL.txtUpdatePath

Class: ctextbox in ..\lib\vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
ControlSource	"vfxpath.updatepath"
DisabledBackColor	192,192,192
DisabledForeColor	0,0,0
Enabled	.F.
FontBold	.F.
FontName	"Arial"
Format	"K"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ReadOnly	.T.
StatusBarText	""
TabIndex	10

frmVfxpath.CNTPANEL.txtVfxPath

Class: ctextbox in ..\lib\vfxobj.vcx
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
Alignment	0
ControlSource	"vfxpath.vfxpath"
DisabledBackColor	192,192,192
DisabledForeColor	0,0,0
Enabled	.F.
FontBold	.F.
FontName	"Arial"
Format	"K"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
ReadOnly	.T.
StatusBarText	""
TabIndex	7

frmVfxpath.CNTPANEL.GRDGRID

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ColumnCount	5
Comment	""
Panel	1
ReadOnly	.T.
RecordSource	"vfxpath"
TabIndex	21
Visible	.T.
csearchtext
ncolumn	0

Objects

Baseclass	Class	Object name
zzz	zzz	frmVfxpath.CNTPANEL.GRDGRID.Column1
		frmVfxpath.CNTPANEL.GRDGRID.Column2
		frmVfxpath.CNTPANEL.GRDGRID.Column3
		frmVfxpath.CNTPANEL.GRDGRID.Column4
		frmVfxpath.CNTPANEL.GRDGRID.Column5

frmVfxpath.CNTPANEL.GRDGRID.Column1

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxpath.clientname"
CurrentControl	"Text1"
FontBold	.F.
FontName	"Arial"
ReadOnly	.T.
Visible	.T.

Objects

Baseclass	Class	Object name
header	header	frmVfxpath.CNTPANEL.GRDGRID.Column1.Header1
textbox	textbox	frmVfxpath.CNTPANEL.GRDGRID.Column1.Text1

frmVfxpath.CNTPANEL.GRDGRID.Column1.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Client Name"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column1.Header1.DblClick
*{ _VFX_BUILDER_CODE
this.Parent.Parent.OnSetOrder(this.Parent)
*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column1.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
Comment	"vfxpath.clientname"
InputMask	"XXXXXXXXXXXXXXXXXXXX"
Margin	0
ReadOnly	.T.
Visible	.T.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column1.Text1.KeyPress
*{ _VFX_BUILDER_CODE
lparameters nKeyCode, nShiftAltCtrl

this.parent.parent.oControl = this

if this.parent.parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
nodefault
endif

this.parent.parent.oControl = .null.

*} _VFX_BUILDER_CODE
frmVfxpath.CNTPANEL.GRDGRID.Column1.Text1.DblClick
*{ _VFX_BUILDER_CODE
if !thisform.lEmpty
    if !(type("this.ControlSource") $ "MG")
        this.parent.parent.OnKeyEnter()
        nodefault
    endif
endif

*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column2

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxpath.datapath"
CurrentControl	"Text1"
FontBold	.F.
FontName	"Arial"
ReadOnly	.T.
Visible	.T.

Objects

Baseclass	Class	Object name
header	header	frmVfxpath.CNTPANEL.GRDGRID.Column2.Header1
textbox	textbox	frmVfxpath.CNTPANEL.GRDGRID.Column2.Text1

frmVfxpath.CNTPANEL.GRDGRID.Column2.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Data Path"
FontBold	.F.
FontItalic	.F.
FontName	"Arial"

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column2.Header1.DblClick
*{ _VFX_BUILDER_CODE
this.Parent.Parent.OnSetOrder(this.Parent)
*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column2.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
Comment	"vfxpath.datapath"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Margin	0
ReadOnly	.T.
Visible	.T.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column2.Text1.KeyPress
*{ _VFX_BUILDER_CODE
lparameters nKeyCode, nShiftAltCtrl

this.parent.parent.oControl = this

if this.parent.parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
nodefault
endif

this.parent.parent.oControl = .null.

*} _VFX_BUILDER_CODE
frmVfxpath.CNTPANEL.GRDGRID.Column2.Text1.DblClick
*{ _VFX_BUILDER_CODE
if !thisform.lEmpty
    if !(type("this.ControlSource") $ "MG")
        this.parent.parent.OnKeyEnter()
        nodefault
    endif
endif

*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column3

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxpath.updatepath"
CurrentControl	"Text1"
ReadOnly	.T.
Visible	.T.

Objects

Baseclass	Class	Object name
header	header	frmVfxpath.CNTPANEL.GRDGRID.Column3.Header1
textbox	textbox	frmVfxpath.CNTPANEL.GRDGRID.Column3.Text1

frmVfxpath.CNTPANEL.GRDGRID.Column3.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Update Path"
FontItalic	.F.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column3.Header1.DblClick
*{ _VFX_BUILDER_CODE
this.Parent.Parent.OnSetOrder(this.Parent)
*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column3.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
Comment	"vfxpath.updatepath"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Margin	0
ReadOnly	.T.
Visible	.T.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column3.Text1.KeyPress
*{ _VFX_BUILDER_CODE
lparameters nKeyCode, nShiftAltCtrl

this.parent.parent.oControl = this

if this.parent.parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
nodefault
endif

this.parent.parent.oControl = .null.

*} _VFX_BUILDER_CODE
frmVfxpath.CNTPANEL.GRDGRID.Column3.Text1.DblClick
*{ _VFX_BUILDER_CODE
if !thisform.lEmpty
    if !(type("this.ControlSource") $ "MG")
        this.parent.parent.OnKeyEnter()
        nodefault
    endif
endif

*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column4

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxpath.reportpath"
CurrentControl	"Text1"
ReadOnly	.T.
Visible	.T.

Objects

Baseclass	Class	Object name
header	header	frmVfxpath.CNTPANEL.GRDGRID.Column4.Header1
textbox	textbox	frmVfxpath.CNTPANEL.GRDGRID.Column4.Text1

frmVfxpath.CNTPANEL.GRDGRID.Column4.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Report Path"
FontItalic	.F.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column4.Header1.DblClick
*{ _VFX_BUILDER_CODE
this.Parent.Parent.OnSetOrder(this.Parent)
*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column4.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
Comment	"vfxpath.reportpath"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Margin	0
ReadOnly	.T.
Visible	.T.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column4.Text1.KeyPress
*{ _VFX_BUILDER_CODE
lparameters nKeyCode, nShiftAltCtrl

this.parent.parent.oControl = this

if this.parent.parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
nodefault
endif

this.parent.parent.oControl = .null.

*} _VFX_BUILDER_CODE
frmVfxpath.CNTPANEL.GRDGRID.Column4.Text1.DblClick
*{ _VFX_BUILDER_CODE
if !thisform.lEmpty
    if !(type("this.ControlSource") $ "MG")
        this.parent.parent.OnKeyEnter()
        nodefault
    endif
endif

*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column5

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
ControlSource	"vfxpath.vfxpath"
CurrentControl	"Text1"
ReadOnly	.T.
Visible	.T.

Objects

Baseclass	Class	Object name
header	header	frmVfxpath.CNTPANEL.GRDGRID.Column5.Header1
textbox	textbox	frmVfxpath.CNTPANEL.GRDGRID.Column5.Text1

frmVfxpath.CNTPANEL.GRDGRID.Column5.Header1

Class: header
Baseclass: header
Properties Methods Objects

Properties

Name	Initial value
Caption	"Vfx Path"
FontItalic	.F.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column5.Header1.DblClick
*{ _VFX_BUILDER_CODE
this.Parent.Parent.OnSetOrder(this.Parent)
*} _VFX_BUILDER_CODE

frmVfxpath.CNTPANEL.GRDGRID.Column5.Text1

Class: textbox
Baseclass: textbox
Properties Methods Objects

Properties

Name	Initial value
BorderStyle	0
Comment	"vfxpath.vfxpath"
InputMask	"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
Margin	0
ReadOnly	.T.
Visible	.T.

Methods

frmVfxpath.CNTPANEL.GRDGRID.Column5.Text1.KeyPress
*{ _VFX_BUILDER_CODE
lparameters nKeyCode, nShiftAltCtrl

this.parent.parent.oControl = this

if this.parent.parent.OnKeyPress( nKeyCode, nShiftAltCtrl)
nodefault
endif

this.parent.parent.oControl = .null.

*} _VFX_BUILDER_CODE
frmVfxpath.CNTPANEL.GRDGRID.Column5.Text1.DblClick
*{ _VFX_BUILDER_CODE
if !thisform.lEmpty
    if !(type("this.ControlSource") $ "MG")
        this.parent.parent.OnKeyEnter()
        nodefault
    endif
endif

*} _VFX_BUILDER_CODE

frmVfxpath.LBLMSGEMPTY

Class: zzz
Baseclass: zzz
Properties Methods Objects

Properties

Name	Initial value
TabIndex	1