Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/programe/roa/roaapp.prg.tmpl

@@ -0,0 +1,64 @@
+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