PARAMETERS cBDDIni

IF EMPTY(cBDDIni)
	cBDDIni = 'fss1'
ENDIF

SET PATH TO FORM,CLASS,PRG,MENU

SET CLASSLIB TO System, login, modulo9


PUBLIC oApp, oDMS

oApp  = CREATEOBJECT ('SYSTEM')
DO mon.prg
DO log.prg
oApp.setDataBase(cBDDIni,1)
DO seg.prg

DO mcl.prg

DO msg.prg
DO sri.prg
DO db.prg

oApp.cVersion = 'Visual FAC 9.0'
oApp.lVersion9 = .T.
oApp.lVfac9 = .T.
oApp.lMonitor = .F.



* Set paths
Local lcDefaultPath
If _vfp.StartMode = 0 And ;
      Type("_vfp.ActiveProject")=="O"
   lcDefaultPath = _vfp.ActiveProject.HomeDir
   Set Path To (Addbs(lcDefaultPath)+"VCX") Additive
Else
   lcDefaultPath = Sys(5)+Sys(2003)
Endif
Set Path To (Addbs(lcDefaultPath)+"Images") Additive
Set Default To (lcDefaultPath)

oApp.SetDefaults ()


DO prg\initdb.PRG WITH 'fss1', cBDDIni, "VOID", 1  