Parameters tParametri
*!*	obiecte globale
Private poLog, goLog, oTool, oHelp, goExecutor, goConn, goMyXMLHTTP, goCalendar, goExport, goUtilizator, goFundal, goFirma, goApp
Store "" To poLog, goLog, oTool, oHelp, goExecutor, goConn, goMyXMLHTTP, goCalendar, goExport, goUtilizator, goFundal, goFirma, goApp

Private gcLocalePath, goLocale, gcLocale
STORE "" TO gcLocalePath, goLocale, gcLocale

*!*	variabile globale
Public CRLF,CR,LF,Tab
Public gcNumeProgram, NUMEPROGRAM, MENIUPROGRAM, FUNDALPROGRAM
Public pcNl, pcAn, gcAcces, gcAppPath, gcAppName, gcUtilizatoriPath, gcDirMare, DIRGEN, gcTempPath, ;
	glParametri, gcHost, gcUsername, gcPassword, gcUserNameApp, gcPasswordApp, gnIdUtil, gnIdProgram, ;
	gnAn, gnLuna, gcS, gnIdFirma, gcGeneralIniFile, gcSecurityFile, gnHandle, gnButon, BUTON, gcFirma, gcBasePath, gcComunPath, ;
	gnTipGest, gcGestPermis, glFontCharSet, gcReportPreviewer, gcReportPreviewerPath, gcLocale, gcSettingsFile
Public gcCopyRight, pcTitlu
Public glUltimaLuna, glPrimaLuna, glLunaBuna, glLuna_neplatita, glLunaInchisa
Public glQuit, pl_verificat
Public gnewcryptfll, gnewcryptxml, gTransferTotal
Private gnId_Prg_Owner
*!*	altele
Declare nror[65000]
Declare RTVA[22,2]
Public luna_inchisa, luna_neplatita, PRIMADATA, m.ctva, m.ctvam, m.ctvai, antet, m.nivel
Public OStart,OSETVIZ,OSETTULBAR,OSETINSTRUM,orm,OTEXT,OJUR,osetgest,tlbr_INSTR,tlbr_VIZ,oprinc
Public pcapsocsub,pcapsocvar
Public a4

Set Default To (Addbs(Justpath(Sys(16,0))))
Set Procedure To roa.prg Additive
Private goRoa
goRoa = Createobject("oApp")
If goRoa.initializeaza(tParametri,[ROAAPP])
	goRoa.lanseazaAplicatie()
Endif

Define Class oApp As RoaApp

	Procedure initializeazaAlteCai
	Endproc

	Procedure initializeazaAlteClassLib
	Endproc

	Procedure initializeazaAlteProceduri
	Endproc

	Procedure initializeazaAlteVariabileGlobale
		STORE 0 TO gnTipGest
		STORE '' TO gcGestPermis
	Endproc

	Procedure initializeazaAlteObiecteGlobale
	Endproc

ENDDEFINE

*!*	Function Shutdown
*!*	If Type("goApp")=="O" And Not Isnull(goApp)
*!*		Return goApp.OnShutDown()
*!*	Endif
*!*	Cleanup()
*!*	Quit
*!*	Endfunc
