449 lines
11 KiB
Plaintext
449 lines
11 KiB
Plaintext
&& ------------------------------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 ------------------------------
|