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
*!*	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,[ROAFACTURARE])
	goRoa.lanseazaAplicatie()
Endif
Release goRoa

Define Class oApp As RoaApp

	Procedure initializeazaAlteCai
	Endproc

	Procedure initializeazaAlteClassLib
*!*	C
		Set Classlib To comun Additive
*!*	O
		Set Classlib To ofacturare Additive
		Set Classlib To ofacturare_rapoarte Additive
		Set Classlib To ointroduceri Additive
		Set Classlib To onom_curs Additive
		Set Classlib To onomenclatoare2 Additive
		Set Classlib To orapoarte Additive
*!*	S
		Set Classlib To serii_numere Additive
	Endproc

	Procedure initializeazaAlteProceduri
*!*	O
		Set Procedure To odocumente Additive
		Set Procedure To ofacturare.prg Additive
		Set Procedure To ofacturare_comun.prg Additive
		Set Procedure To ofacturare_stoc.prg Additive
		Set Procedure To oHeader.prg Additive
		Set Procedure To ointroduceri.prg Additive
		Set Procedure To onomenclatoare2.prg Additive
		Set Procedure To oproceduri_curs.prg Additive
		Set Procedure To oproceduri_facturare.prg Additive
		Set Procedure To oproceduri_util.prg Additive
		Set Procedure To oserii_numere.prg Additive
		Set Procedure To ovariabile_globale.prg Additive
*!*	P
		Set Procedure To pmenu.prg Additive
		Set Procedure To proceduri.prg Additive
		Set Procedure To proceduri_rapoarte.prg Additive
*!*	S
		Set Procedure To suma_in_vorbe.prg Additive
*!*	X
		Set Procedure To xdate.prg Additive
	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