*!*	in programul principal :
*!*		public poLog && obiect pt logarea mesajelor sistemului
*!*		poLog = NEWOBJECT("Log_Mesaje","Log_Mesaje.prg")

*!*	pe parcursul programului:
*!*		lcLog = [1]
*!*		poLog.Log(lcLog,PROGRAM())




DEFINE CLASS log_mesaje as Relation

cLogFile = "c:\log.txt"
lLogging = .F.

&& ------------------------------INCEPUT: Init ------------------------------ 
*!* Procedura:  Init
*!* Parametri: 
*!* Data/Ora generarii: 20/02/2004 12:41:53
*!* Autor: MARIUS.MUTU
PROCEDURE  Init
LPARAMETERS tcLogFile, tlAdditive 
	

	

	lLog = IIF(FILE(ADDBS(JUSTPATH(SYS(16,0)))+"LOG.txt"),.T.,.F.) && daca exista fisierul log
	this.lLogging = lLog or this.lLogging && creez log daca exista in directorul aplicatiei fisierul <log.txt> sau daca proprietatea lLogging =  .T.

	IF !this.lLogging
		RETURN
	ENDIF 

	SET console off
	SET TALK OFF

	cLogFile = IIF(EMPTY(tcLogFile),ADDBS(JUSTPATH(SYS(16,0)))+"LOG_"+JUSTSTEM(SYS(16,0))+".txt","")
	this.cLogFile = cLogFile

	IF PARAMETERS() < 2
		llAdditive = IIF(FILE(cLogFile),.T.,.F.)
	ELSE 
		llAdditive = tlAdditive
	ENDIF 
	
		IF llAdditive
			SET TEXTMERGE ON TO (cLogFile) ADDITIVE 
		ELSE
			SET TEXTMERGE ON TO (cLogFile)
		ENDIF 

		\
		\\<<TIME()>>
		
		SET TEXTMERGE TO 
	
	
	
ENDPROC
&& ------------------------------SFARSIT: Init ------------------------------ 

&& ------------------------------INCEPUT: Log ------------------------------ 
*!* Procedura:  Log
*!* Parametri: tcText
*!* Data/Ora generarii: 20/02/2004 12:48:57
*!* Autor: MARIUS.MUTU
PROCEDURE  Log
LPARAMETERS tcText, tcProgram

IF !this.lLogging
	RETURN
ENDIF 

LOCAL lcText, lcLogFile 

SET console off
SET TALK OFF

lcText = IIF(EMPTY(tcText),"",ALLTRIM(tcText))
lcProgram = IIF(EMPTY(tcProgram),"",ALLTRIM(tcProgram))
lcSpatiu = SPACE(10)

lcLogFile = this.cLogFile 
lcAddText = TIME() + IIF(!EMPTY(lcProgram),lcSpatiu+lcProgram,"") + IIF(!EMPTY(lcText),lcSpatiu+lcText,"")

SET TEXTMERGE ON TO (lcLogFile) ADDITIVE 

\ <<lcAddText>>

SET TEXTMERGE TO 

ENDPROC
&& ------------------------------SFARSIT: Log ------------------------------ 

ENDDEFINE &&  log_mesaje