94 lines
3.2 KiB
Plaintext
94 lines
3.2 KiB
Plaintext
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
|