65 lines
2.1 KiB
Cheetah
65 lines
2.1 KiB
Cheetah
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
|