&& ------------------------------INCEPUT: Citeste_Cheie ------------------------------
*!* Functie:  Citeste_Cheie
*!* Parametri: tcKey, tcBranch, tcLeafe
*!* Data/Ora generarii: 16/02/2004 14:26:22
*!* Autor: MARIUS.MUTU
FUNCTION  Citeste_Cheie
	LPARAMETERS tcKey, tnBranch, tcLeafe

	LOCAL lcRet,loApi, lcKey, lnBranch, lcLeafe

	lcKey = ALLTRIM(tcKey)
	lnBranch = tnBranch
	lcLeafe = ALLTRIM(tcLeafe)
	lcRet = []

	loApi = CREATE("registry")

	IF loApi.iskey(lcKey, lnBranch)

		loApi.openkey(lcKey, lnBranch,.F.)
		lcRet = loApi.getkeyvalue(lcLeafe,)
	ENDIF

	RELEASE loApi
	RETURN lcRet

ENDFUNC
&& ------------------------------SFARSIT: Citeste_Cheie ------------------------------

&& ------------------------------INCEPUT: Exista_Branch ------------------------------
*!* Functie:  Exista_Branch
*!* Parametri: tcKey
*!* Data/Ora generarii: 18/02/2004 14:01:29
*!* Autor: MARIUS.MUTU
FUNCTION  Exista_Branch
	LPARAMETERS tcKey, tnBranch,tcCale


	LOCAL lcRet,loApi, lcKey, lnBranch

	lccale="serverdate_"+STRTRAN(tcCale,"\","")

	IF EMPTY(tcKey)
		lcKey = [contafin\] + lccale + [\util]
	ELSE
		lcKey = ALLTRIM(tcKey)
	ENDIF

	IF EMPTY(tnBranch)
		lnBranch = -2147483647
	ELSE
		lnBranch = tnBranch
	ENDIF


	llRet = .F.
	loApi = CREATE("registry")
	IF loApi.iskey(lcKey, lnBranch)
		llRet = .T.
	ENDIF

	RELEASE loApi

	RETURN llRet

ENDFUNC
&& ------------------------------SFARSIT: Exista_Branch ------------------------------

&& ------------------------------INCEPUT: Verific_Start ------------------------------
*!* Functia:  Verific_Start
*!* Parametri: tcParam
*!* Data/Ora generarii: 16/02/2004 13:32:11
*!* Autor: MARIUS.MUTU
*!* returneza TRUE daca parametrul trimis codat in binar este egal cu variabila <session> citita din registri
FUNCTION Verific_Start
	LPARAMETERS tcSesiune,tcCale,tcAppName

	LOCAL llRet,loApi, lcKey, lnBranch, lcSesiune

	lccale="serverdate_"+STRTRAN(tcCale,"\","")
	IF EMPTY(tcAppName)
		lcAppName = JUSTSTEM(SYS(16,0))
	ELSE
		lcAppName = ALLTRIM(tcAppName)
	ENDIF
	lcAppName = LOWER(lcAppName)
	
*!*		lcLog = '1 ' + tcSesiune + ', ' + tcCale +', ' + tcAppName
*!*		poLog.Log(lcLog,PROGRAM())

	llRet = .T.
	lcKey = [contafin\]+lccale+[\util]
	lnBranch = -2147483647
	lcLeafe = [session]
	lcSesiune = []

	IF EMPTY(tcSesiune)
		llRet = .F.

	ELSE
		lcSesiune = tcSesiune

		lcSesiune2 = VAL(Citeste_Cheie(lcKey, lnBranch, lcLeafe))
		
				

		lcSesiune3 = BINTOC(lcSesiune2,4)
		
		lcsesiune1=SUBSTR(lcSesiune3,1,1)+SUBSTR(lcSesiune3,3,2)

		lcsesiune1 = STUFF(lcsesiune1,2,0,lcAppName)

		lcSesiune = ALLTRIM(UPPER(lcSesiune))
		lcSesiune1 = ALLTRIM(UPPER(lcSesiune1))
		
		lnLen1 = LEN(lcSesiune)
		lnLen2 = LEN(lcSesiune1)

		lcCar1 = ''
		lcCar2 = ''
		FOR i = 1 TO lnLen1
			lcCar = SUBSTR(lcSesiune,i,1)
			lcCar1 = lcCar1 + TRANSFORM(ASC(lcCar)) + "_"
		ENDFOR 
		FOR i = 1 TO lnLen2
			lcCar = SUBSTR(lcSesiune1,i,1)
			lcCar2 = lcCar2 + TRANSFORM(ASC(lcCar)) + "_"
		ENDFOR 

*!*			lcLog = '1 ' + lcCar1
*!*			poLog.Log(lcLog,PROGRAM())
*!*			lcLog = '2 ' + lcCar2
*!*			poLog.Log(lcLog,PROGRAM())		
		
		IF LEN(lcSesiune1)>LEN(lcSesiune)
			lcSesiune1 = LEFT(lcSesiune1,LEN(lcSesiune))
		ENDIF 

		lnLen1 = LEN(lcSesiune)
		lnLen2 = LEN(lcSesiune1)

		lcCar1 = ''
		lcCar2 = ''
		FOR i = 1 TO lnLen1
			lcCar = SUBSTR(lcSesiune,i,1)
			lcCar1 = lcCar1 + TRANSFORM(ASC(lcCar)) + "_"
		ENDFOR 
		FOR i = 1 TO lnLen2
			lcCar = SUBSTR(lcSesiune1,i,1)
			lcCar2 = lcCar2 + TRANSFORM(ASC(lcCar)) + "_"
		ENDFOR 

*!*			lcLog = '3 ' + lcCar1
*!*			poLog.Log(lcLog,PROGRAM())
*!*			lcLog = '4 ' + lcCar2
*!*			poLog.Log(lcLog,PROGRAM())			
		
		IF SYS(2007,lcSesiune) # SYS(2007,lcSesiune1)
			llRet = .F.

		ENDIF
	ENDIF

*!*		lcLog = '4 llret ' + TRANSFORM(llRet)
*!*		poLog.Log(lcLog,PROGRAM())		


	RETURN llRet

ENDFUNC
&& ------------------------------SFARSIT: Verific_Start ------------------------------

&& ------------------------------INCEPUT: Init_Cale_Temp------------------------------
*!* Functia:  Init_Cale_Temp
*!* Parametri:
*!* Data/Ora generarii: 16/02/2004 13:32:11
*!* Autor: MARIUS.MUTU
*!* citeste directorul temporar din registrii si il creeaza
FUNCTION Init_Cale_Temp
	PARAMETERS tcCale
*	lccale="serverdate_"+STRTRAN(tccale,"\","")

	LOCAL lcTempPath,loApi, lcKey, lnBranch, lcSesiune
	llRet = .T.
	lcKey = [contafin\temporare]
*	lcKey = [contafin\]+lccale+[\temporare]
	lnBranch = -2147483647
	lcLeafe = [temp]


	lcTempPath=Citeste_Cheie(lcKey, lnBranch, lcLeafe)

	RETURN lcTempPath

ENDFUNC
&& ------------------------------SFARSIT: Init_Cale_Temp------------------------------

&& ------------------------------INCEPUT: Init_Cale_Server_Date ------------------------------
*!* Functia:  Init_Cale_Server_Date
*!* Parametri:
*!* Data/Ora generarii: 16/02/2004 13:32:11
*!* Autor: MARIUS.MUTU
*!* citeste calea serverului de date din registri
FUNCTION Init_Cale_Server_Date
	PARAMETERS tcCale
	lccale="serverdate_"+STRTRAN(tcCale,"\","")
	LOCAL lcCaleServerDate, loApi, lcKey, lnBranch, lcSesiune
	lcCaleServerDate= []
	lcKey = [contafin\]+lccale
	lnBranch = -2147483647
	lcLeafe = [cale]


	lcCaleServerDate=Citeste_Cheie(lcKey, lnBranch, lcLeafe)


	RETURN lcCaleServerDate

ENDFUNC
&& ------------------------------SFARSIT: Init_Cale_Server_Date ------------------------------

&& ------------------------------INCEPUT: Init_Nume_Utilizator ------------------------------
*!* Functia:  Init_Nume_Utilizator
*!* Parametri:
*!* Data/Ora generarii: 16/02/2004 13:32:11
*!* Autor: MARIUS.MUTU
*!* citeste numele utilizatorului logat la START din registri
FUNCTION Init_Nume_Utilizator
	PARAMETERS tcCale

	LOCAL lcNumeUtilizator, loApi, lcKey, lnBranch, lcSesiune

	lccale="serverdate_"+STRTRAN(tcCale,"\","")
	lcNumeUtilizator = []
	lcKey = [contafin\]+lccale+[\util]
	lnBranch = -2147483647
	lcLeafe = [nume]


	lcNumeUtilizator=Citeste_Cheie(lcKey, lnBranch, lcLeafe)


	RETURN lcNumeUtilizator

ENDFUNC
&& ------------------------------SFARSIT: Init_Nume_Utilizator------------------------------
&& ------------------------------INCEPUT: Init_Id_Utilizator ------------------------------
*!* Functia:  Init_Id_Utilizator 
*!* Parametri:
*!* Data/Ora generarii: 16/02/2004 13:32:11
*!* Autor: MARIUS.MUTU
*!* citeste numele utilizatorului logat la START din registri
FUNCTION Init_Id_Utilizator 
	PARAMETERS tcCale

	LOCAL lnId_Utilizator, loApi, lcKey, lnBranch, lcSesiune

	lccale="serverdate_"+STRTRAN(tcCale,"\","")
	lcNumeUtilizator = []
	lcKey = [contafin\]+lccale+[\util]
	lnBranch = -2147483647
	lcLeafe = [id_util]


	lnId_Utilizator=Citeste_Cheie(lcKey, lnBranch, lcLeafe)


	RETURN lnId_Utilizator

ENDFUNC
&& ------------------------------SFARSIT: Init_Id_Utilizator ------------------------------
&& ------------------------------INCEPUT: Init_Nivel_Utilizator ------------------------------
*!* Functia:  Init_Nivel_Utilizator
*!* Parametri:
*!* Data/Ora generarii: 16/02/2004 13:32:11
*!* Autor: MARIUS.MUTU
*!* citeste nivelul utilizatorului logat la START din registri
FUNCTION Init_Nivel_Utilizator
	PARAMETERS tcCale
	lccale="serverdate_"+STRTRAN(tcCale,"\","")
	LOCAL lcNivelUtilizator, loApi, lcKey, lnBranch, lcSesiune
	lcNumeUtilizator = []
	lcKey = [contafin\]+lccale+[\prog\]+gcAppName
	lnBranch = -2147483647
	lcLeafe = [nivel]


	lcNivelUtilizator=Citeste_Cheie(lcKey, lnBranch, lcLeafe)


	RETURN lcNivelUtilizator

ENDFUNC
&& ------------------------------SFARSIT: Init_Nume_Utilizator------------------------------

&& ------------------------------INCEPUT: Init_Nume_Statie------------------------------
*!* Functia:  Init_Nume_Statie
*!* Parametri:
*!* Data/Ora generarii: 16/02/2004 13:32:11
*!* Autor: MARIUS.MUTU
*!* citeste numele statiei
FUNCTION Init_Nume_Statie
	PARAMETERS tcCale
	lccale="serverdate_"+STRTRAN(tcCale,"\","")
	LOCAL lcNumeStatie, loApi, lcKey, lnBranch
	lcNumeStatie= []
	lcKey = [contafin\]+lccale
	lnBranch = -2147483647
	lcLeafe = [numestatie]


	lcNumeStatie=Citeste_Cheie(lcKey, lnBranch, lcLeafe)


	RETURN lcNumeStatie

ENDFUNC
&& ------------------------------SFARSIT: Init_Nume_Statie

&& ------------------------------INCEPUT: Init_NumeAlternativ------------------------------
*!* Functia:  Init_NumeAlternativ
*!* Parametri:
*!* Data/Ora generarii: 18/02/2004 16:29:11
*!* Autor: MARIUS.MUTU
*!* citeste nume2 ex: (CONT2003) CASA
FUNCTION Init_NumeAlternativ
	PARAMETERS tcCale,tcAppName
	LOCAL lcNumeAlternativ, loApi, lcKey, lnBranch
	lccale="serverdate_"+STRTRAN(tcCale,"\","")
	IF EMPTY(tcAppName)
		lcAppName = JUSTSTEM(SYS(16,0))
	ELSE
		lcAppName = ALLTRIM(tcAppName)
	ENDIF

	lcNumeAlternativ= []
*	lcKey = [contafin\prog\]+gcAppName
	lcKey = [contafin\]+lccale+[\prog\]+lcAppName
	lnBranch = -2147483647
	lcLeafe = [nume2]


	lcNumeAlternativ = Citeste_Cheie(lcKey, lnBranch, lcLeafe)


	RETURN lcNumeAlternativ

ENDFUNC
&& ------------------------------SFARSIT: Init_NumeAlternativ

&& ------------------------------INCEPUT: Start_Istoric ------------------------------
*!* Functie:  Start_Istoric
*!* Parametri: tcNumeUtilizator, tcNumeProgram,  tcNumeStatie
*!* Data/Ora generarii: 08/03/2004 15:31:58
*!* Autor: MARIUS.MUTU
FUNCTION  Start_Istoric
	LPARAMETERS tcNumeUtilizator, tcNumeProgram,  tcNumeStatie, tcCaleIstoric, tcNumeIstoric, tcNumeIds

	lcNumeUtilizator = ALLTRIM(tcNumeUtilizator)
	lcNumeProgram = ALLTRIM(tcNumeProgram)
	lcNumeStatie = ALLTRIM(tcNumeStatie)
	lcCaleIstoric = ADDBS(tcCaleIstoric)
	lcNumeIstoric = ALLTRIM(tcNumeIstoric)
	lcNumeIds = ALLTRIM(tcNumeIds)
	
	lcNume = ALLTRIM(lcNumeIstoric)
	lcFile = ADDBS(lcCaleIstoric) + lcNumeIstoric + ".dbf"

	IF !FILE(lcFile)
		RETURN
	ENDIF

	llUsed = .T.
	IF !USED('Istoric')
		USE (lcFile) IN 0 SHARED AGAIN ALIAS Istoric
		llUsed = .F.
	ENDIF

	lcFile = ADDBS(lcCaleIstoric) + lcNumeIDS + ".dbf"
	IF !FILE(lcFile)
		RETURN
	ENDIF
		
	llUsed2 = .T.
	IF !USED('ids')
		USE (lcFile) IN 0 SHARED AGAIN ALIAS Ids
		llUsed2 = .F.		
	ENDIF 
	
	lnNewId = new_id("istoric","id",.T.)
	SELECT Istoric
	IF FLOCK()
		APPEND BLANK
		REPLACE ID WITH lnNewId, statie WITH lcNUMESTATIE, PROGRAM WITH lcNumeProgram, utilizator WITH lcNumeUtilizator, dataoraint WITH DATETIME()
		UNLOCK
	ENDIF

	IF !llUsed
		USE IN Istoric
	ENDIF
	
	IF !llUsed2
		USE IN ids
	ENDIF 

	RETURN lnNewId

ENDFUNC
&& ------------------------------SFARSIT: Start_Istoric ------------------------------

&& ------------------------------INCEPUT: End_Istoric ------------------------------
*!* Functie:  End_Istoric
*!* Parametri: tnIdIstoric
*!* Data/Ora generarii: 08/03/2004 15:51:32
*!* Autor: MARIUS.MUTU
FUNCTION End_Istoric
	LPARAMETERS tnIdIstoric, tcCaleIstoric, tcNumeIstoric

	lcCaleIstoric = ADDBS(tcCaleIstoric)
	lcNumeIstoric = ALLTRIM(tcNumeIstoric)
	
	lcNume = ALLTRIM(lcNumeIstoric)
	lcFile = ADDBS(lcCaleIstoric) + lcNume + ".dbf"
	IF !FILE(lcFile)
		RETURN
	ENDIF

	llUsed = .T.
	IF !USED('Istoric')
		USE (lcFile) IN 0 SHARED AGAIN ALIAS Istoric
		llUsed = .F.
	ENDIF

	SELECT Istoric
	LOCATE FOR ID = tnIdIstoric
	IF FOUND()
		IF FLOCK()
			REPLACE dataoraies WITH DATETIME()
			UNLOCK
		ENDIF
	ENDIF
	
	IF !llUsed
		USE IN Istoric
	ENDIF
	
ENDFUNC
&& ------------------------------SFARSIT: End_Istoric ------------------------------