*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ostart.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cus_odata_drepturi AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: gu
	*</DefinedPropArrayMethod>

	*<PropValue>
		gu = 
		Name = "cus_odata_drepturi"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId,tcGU,tcVar
		
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnID))
			IF !EMPTY(tcvar)
				lcval = ALLTRIM(STR(toRec.&lcvar))
			ENDIF 	
		*!*		lcidutil = ALLTRIM(STR(toRec.id_util))
			IF tcGU == "GRUP"		
				lci = "id_gd"
				lcidutil = ALLTRIM(STR(toRec.id_grup))
				lcgu = "id_grup"
			ELSE 
				lcidutil = ALLTRIM(STR(toRec.id_util))
				lci = "id_ud"
				lcgu = "id_util"
			ENDIF 		
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lnidgu = ALLTRIM(STR(tnID))
		*!*		IF tcGU == "GRUP"
		*!*			lcIdGU = ALLTRIM(STR(torec.id_grup))
		*!*		ELSE 
		*!*			lcIdGU = ALLTRIM(STR(torec.id_util))
		*!*		ENDIF 			
			lcIdProg = Alltrim(Str(torec.id_prog))
			lcIdNiv = ALLTRIM(STR(torec.id_nivel))
			lcIDFirma = ALLTRIM(STR(torec.id_firma))
			
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
				IF tcGU == "GRUP"					
					lcSql = [INSERT INTO GRUP_DREPT (id_grup,id_prog,id_firma,id_nivel) VALUES (] + lnIdGU + [,] + lcIdProg + [,] + lcIDFirma + [,] + lcIdNiv + [)]
				ELSE 	
					lcSql = [INSERT INTO UTIL_DREPT (id_util,id_prog,id_firma,id_nivel) VALUES (] + lnIdGU + [,] + lcIdProg + [,] + lcIDFirma + [,] + lcIdNiv + [)]
				ENDIF 
			Case lcActiune = "UPDATE"
		
					lcSql = [UPDATE ] + tcGU + [_DREPT SET id_prog = ] + lcIdProg + [,id_firma = ] + lcIDFirma + [,ID_NIVEL = ] + lcIdNiv +;
					[ where ] + lci + [ = ] + lcID
			
			Case lcActiune = "DELETE"
		
				IF !EMPTY(lcvar)
					lcSql = [delete from ] + tcGU  + [_DREPT where ] + lcgu + [=] + lcIdUtil + [ and ] + lcvar + [=] + lcval  &&id_prog sau id_firma
				ELSE 
					lcSql = [delete from ] + tcGU +  [_DREPT where ] + lci + [=] + lcId    && Sterge Linia curenta
				ENDIF 
				
		Endcase
		*!*	STRTOFILE(LCSQL,'C:\DELETE.SQL')
		This.csql = lcSql
		
	ENDPROC

	PROCEDURE salvare
		Lparameters toRec,tnID,tcGU,tcVar
		
		Private llSucces, lnSucces
		
		llSucces = .T.
		lnSucces = -1
		lcActiune = Upper(Alltrim(This.cactiune))
		lcMesaj = ''
		lcTitlu = ''
		Do Case
		Case lcActiune = "INSERT"
			lcMesaj = "Doriti sa adaugati inregistrarea?"
			lcTitlu = "Adaugare"
			lnOptiuni = 4 + 32
		Case lcActiune = "UPDATE"
			lcMesaj = "Doriti sa salvati modificarile?"
			lcTitlu = "Modificare"
			lnOptiuni = 4 + 32
		Case lcActiune = "DELETE"
			lcMesaj = "Doriti sa stergeti inregistrarea?"
			lcTitlu = "Stergere"
			lnOptiuni = 4 + 32 + 512
		Endcase
		
		
		If aMessagebox(lcMesaj,lnOptiuni,lcTitlu) = 6
		PNIESIRE=1
			If This.validare()
		
				This.make_sql(toRec,tnID,tcGU,tcVar)
		
				lcSql = Upper(Alltrim(This.csql))
		
				llConditie = 'INSERT'$lcSql Or 'UPDATE'$lcSql Or 'DELETE'$lcSql Or 'BEGIN'$lcSql
		
				If llConditie
					lnSucces = SQLEXEC(gnHandle,lcSql)
				Endif
		
				If lnSucces < 0
					RELEASE laEroare
					AERROR(laEroare)
					
					lcTextEroare = ''
					IF TYPE('laEroare')!= "U"
						lcTextEroare = laEroare(3)
					ENDIF 
					
					RELEASE laEroare 
					
					Do Case
					Case lcActiune = "INSERT"
						lcMesaj = "Inregistrarea nu a fost adaugata." + CHR(13) + CHR(10) + lcTextEroare
						lcTitlu = "Adaugare"
					Case lcActiune = "UPDATE"
						lcMesaj = "Inregistrarea nu a fost modificata." + CHR(13) + CHR(10) + lcTextEroare
						lcTitlu = "Modificare"
					Case lcActiune = "DELETE"
						lcMesaj = "Inregistrarea nu a fost stearsa." + CHR(13) + CHR(10) + lcTextEroare
						lcTitlu = "Stergere"
					ENDCASE
					
					aMessagebox(lcMesaj,0+48,lcTitlu)
					llSucces = .F.
				Endif
				If lnSucces >=1 AND lcActiune = "DELETE"
						lcMesaj = "Inregistrarea a fost stearsa."
						lcTitlu = "Stergere"
						aMessagebox(lcMesaj,0+64,lcTitlu)
				Endif
			ENDIF
		ELSE
		PNIESIRE=2	
		ENDIF
		
		
		Return llSucces
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_firma AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_firma"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
		
			lcfirma = Nvl(STRTRAN(Alltrim(Upper(toRec.firma)),['],['']),"")
			lcfscurt = Nvl(STRTRAN(Alltrim(Upper(toRec.fscurt)),['],['']),"")
			lcCodF = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"")
			lcregc = Nvl(STRTRAN(Alltrim(Upper(toRec.reg_comert)),['],['']),"")
			lcbanca1 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca1)),['],['']),"")
			lccontb1 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca1)),['],['']),"")
			lcbanca2 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca2)),['],['']),"")
			lccontb2 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca2)),['],['']),"")
			lcBanca3 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca3)),['],['']),"")
			lccontb3 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca3)),['],['']),"")
			lcadresa = Nvl(STRTRAN(Alltrim(Upper(toRec.adresa)),['],['']),"")
			lcCodFirma = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_firma)),['],['']),"")
			lnpersj = NVL(ALLTRIM(STR(toRec.persoana_juridica)),"0")
			lncodang = NVL(ALLTRIM(STR(toRec.codang)),"0")
			lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.nume)),['],['']),"")
			lcprenume = Nvl(STRTRAN(Alltrim(Upper(toRec.prenume)),['],['']),"")
			lctel = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon)),['],['']),"")
			lcfax = Nvl(STRTRAN(Alltrim(Upper(toRec.fax)),['],['']),"")
			lcemail = Nvl(STRTRAN(Alltrim(Upper(toRec.email)),['],['']),"")
			lcoasp = Nvl(STRTRAN(Alltrim(Upper(toRec.oasp)),['],['']),"")
			lncapsv =NVL(ALLTRIM(STR(toRec.capital_soc_var,16,2)),"0")
			lncapss =NVL(ALLTRIM(STR(toRec.capital_soc_sub,16,2)),"0")
			lcpctl = Nvl(STRTRAN(Alltrim(Upper(toRec.punct_luc)),['],['']),"")
			lccaen = Nvl(STRTRAN(Alltrim(Upper(toRec.caen)),['],['']),"")
			lcschema = Nvl(STRTRAN(Alltrim(Upper(toRec.schema)),['],['']),"")	
			lnidm = NVL(ALLTRIM(STR(toRec.id_mama)),"0")
			lnmama = NVL(ALLTRIM(STR(toRec.mama)),"0")
			lcsucursala = Nvl(STRTRAN(Alltrim(Upper(toRec.sucursala)),['],['']),"")	
			lnidl = NVL(ALLTRIM(STR(toRec.id_loc)),"0")
				
		Endif
		
		
		Do Case
		*!*		Case lcActiune = "INSERT"
		
		*!*			lcSql = [INSERT INTO programe (NUME,director,caption,instalat,ordine) VALUES ('] + lcnume + [','] + lcdirector +[','] + ;
		*!*					lcaption + [',] + lninstalat + [,] + lnordine + [)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE nom_firme SET firma = '] + lcfirma + [',fscurt = '] + lcfscurt + [',cod_fiscal = '] + ;
				lcCodF + [',reg_comert = '] + lcregc + [',banca1 = '] + lcbanca1 + [',cont_banca1 = '] + lccontb1 + ;
				[',banca2 = '] + lcbanca2 + [',cont_banca2 = '] + lccontb2 + [',banca3 = '] + lcbanca3 + ;
				[',cont_banca3 = '] + lccontb3 + [',adresa = '] + lcadresa + [',cod_firma = '] + lcCodFirma + ;
				[',persoana_juridica = ] + lnpersj + [,codang = ] + lncodang + [,nume = '] + lcnume + ;
				[',prenume = '] + lcprenume + [',telefon = '] + lctel + [',fax = '] + lcfax + ;
				[',email = '] + lcemail + [',oasp = '] + lcoasp + [',capital_soc_var = ] + lncapsv + ;
				[,capital_soc_sub = ] + lncapss + [,punct_luc = '] + lcpctl + [',caen = '] + lccaen + ;
				[',id_mama = ] + lnidm + [,mama = ] + lnmama + [,sucursala = '] + lcsucursala + [',id_loc = ] + lnidl +;	
				[ where id_firma = ] + lcId
		
		*!*		Case lcActiune = "DELETE"
		*!*		
		*!*			lcSql = [update programe set sters=1 where id_prog = ] + lcId
		Endcase
		*!*	STRTOFILE(LCSQL,'C:\DELETE.SQL')
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_login AS _frmnotitle OF "..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="cntEngleza" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cntRomana" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_operator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_parola" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_server" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_login1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_logoff1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_stare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Odbcreg1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ImageRomana" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ImageEngleza" UniqueID="" Timestamp="" />

	#INCLUDE "..\comun\include\security.h"
	*<DefinedPropArrayMethod>
		*m: getlastserver
		*m: populate_host
		*m: setlastserver
		*p: cnume
		*p: cparola
		*p: nnrincerc
		*p: _memberdata		&& XML Metadata for customizable properties
	*</DefinedPropArrayMethod>

	*<PropValue>
		cnume = 
		cparola = 
		DoCreate = .T.
		Name = "frm_login"
		nnrincerc = 0
		Picture = ..\grafice\roastart.bmp
		_memberdata = <VFPData>
			<memberdata name="getlastserver" display="getLastServer"/>
			<memberdata name="setlastserver" display="setLastServer"/>
		</VFPData>
	*</PropValue>

	ADD OBJECT 'Cb_server' AS cb_tx_simplu WITH ;
		BorderWidth = 0, ;
		Left = 42, ;
		Name = "Cb_server", ;
		TabIndex = 1, ;
		Top = 52, ;
		ZOrderSet = 4, ;
		_CBBASE1.Name = "_CBBASE1", ;
		_LBBASE1.Caption = "Server", ;
		_LBBASE1.FontBold = .T., ;
		_LBBASE1.Name = "_LBBASE1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_operator' AS clb_tx_simplu WITH ;
		BorderWidth = 0, ;
		Left = 42, ;
		Name = "Clb_operator", ;
		TabIndex = 2, ;
		Top = 144, ;
		ZOrderSet = 2, ;
		Text_simplu1.AutoComplete = 3, ;
		Text_simplu1.ControlSource = "thisform.cnume", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Operator", ;
		Lb_simplu1.FontBold = .T., ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_parola' AS clb_tx_simplu WITH ;
		BorderWidth = 0, ;
		Left = 42, ;
		Name = "Clb_parola", ;
		TabIndex = 3, ;
		Top = 177, ;
		ZOrderSet = 3, ;
		Text_simplu1.ControlSource = "thisform.cparola", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.PasswordChar = "*", ;
		Lb_simplu1.Caption = "Parolă", ;
		Lb_simplu1.FontBold = .T., ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cmd_login1' AS cmd_login WITH ;
		Caption = "\<Intră", ;
		Left = 180, ;
		Name = "Cmd_login1", ;
		TabIndex = 4, ;
		Top = 216, ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmd_logoff1' AS cmd_logoff WITH ;
		Caption = "\<Renunță", ;
		Left = 276, ;
		Name = "Cmd_logoff1", ;
		TabIndex = 5, ;
		Top = 216, ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cntEngleza' AS container WITH ;
		BorderColor = 0,64,128, ;
		BorderWidth = 2, ;
		Height = 20, ;
		Left = 41, ;
		Name = "cntEngleza", ;
		Top = 223, ;
		Visible = .F., ;
		Width = 32, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="container" />

	ADD OBJECT 'cntRomana' AS container WITH ;
		BorderColor = 0,64,128, ;
		BorderWidth = 2, ;
		Height = 20, ;
		Left = 7, ;
		Name = "cntRomana", ;
		Top = 223, ;
		Visible = .F., ;
		Width = 32, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="container" />

	ADD OBJECT 'ImageEngleza' AS image WITH ;
		Height = 16, ;
		Left = 43, ;
		MousePointer = 15, ;
		Name = "ImageEngleza", ;
		Picture = ..\comun\grafice\gb.gif, ;
		Stretch = 2, ;
		ToolTipText = "Limba engleza", ;
		Top = 225, ;
		Width = 28, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'ImageRomana' AS image WITH ;
		BorderStyle = 0, ;
		Height = 16, ;
		Left = 9, ;
		MousePointer = 15, ;
		Name = "ImageRomana", ;
		Picture = ..\comun\grafice\ro.gif, ;
		Stretch = 2, ;
		ToolTipText = "Limba romana", ;
		Top = 225, ;
		Width = 28, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'lb_stare' AS lb_titlu_albastru_b12 WITH ;
		Caption = "NECONECTAT", ;
		Left = 24, ;
		Name = "lb_stare", ;
		Top = 12, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'Odbcreg1' AS odbcreg WITH ;
		Left = 24, ;
		Name = "Odbcreg1", ;
		Top = 190
		*< END OBJECT: ClassLib="..\comun\clase\registry.vcx" BaseClass="custom" />
	
	PROCEDURE do_login
		*!* 21.06.2012
		*!* marius.mutu
		*!* tratare utilizatori ADMIN -1, SUPER -2
		
		lcHost = Upper(Alltrim(Thisform.cb_server._cbbase1.Value))
		lcSchema = ""
		lcPassword = ""
		lcIsCrypted = ""
		
		If !Empty(lcHost)
			If Used('crsHost')
				Select schema,pwd,IsEncrypted From crsHost Where Upper(Alltrim(Host)) = lcHost Into Cursor crsServer
				Select crsServer
				Go Top
				lcSchema = schema
				lcPassword = ALLTRIM(pwd)
				lcIsCrypted = IsEncrypted
			Endif
		Endif
		lcHost = Alltrim(lcHost)
		lcSchema = Alltrim(lcSchema)
		lcPasswordOriginal=lcPassword
		
		If lcIsCrypted="1"
			IF gnewcryptxml=.T.
				lcPasswordOriginal = "*!*"+STRCONV(lcPasswordOriginal,13)
				lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","blowfish")
				ELSE
				lcPasswordOriginal = "*!*" + lcPasswordOriginal
				lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","old")
			ENDIF
		Else
			lcPassword = Alltrim(lcPassword)
		Endif
		
		deconectare()
		lnHandle = conectare(lcHost, lcSchema, lcPassword) && IN proceduri_oracle.prg
		
		
		If lnHandle < 0
			Thisform.do_reset()
			Thisform.lb_stare.Visible = .T.
			Thisform.lb_stare.Caption = "NECONECTAT"
			Return .F.
		Endif
		Thisform.lb_stare.Visible = .T.
		Thisform.lb_stare.Caption = "CONECTAT"
		gcHost = lcHost
		gcUserName = lcSchema
		gcPassword = lcPasswordOriginal
		
		* se logheaza pe schema <contafin> cu <123>
		* apeleaza <update_utilizatori>
		* verifica daca utilizatorul este in <v_utilizatori> si initializeaza variabila globala <goUtilizator>
		
		*** vad daca utilizatorul trebuie sa se logheze cu un alt DSN (jcsserver) cu alt username (contabilitate) fata de standard (jcsserver,contabilitate)
		gcUserNameApp = Alltrim(Thisform.clb_operator.text_simplu1.Value)
		gcPasswordApp=Alltrim(Thisform.clb_parola.text_simplu1.Value)
		
		If Empty(Thisform.clb_operator.text_simplu1.Value)
			aMessagebox("Nu ati introdus numele utilizatorului!",0+48,"Atentie")
			Thisform.clb_operator.SetFocus()
			Return
		Endif
		
		gnIdUtil = 0
		llSucces = .F.
		lcUserNameApp = Strtran(Upper(Alltrim(gcUserNameApp)),['],[''])
		lcPasswordApp = Upper(Alltrim(gcPasswordApp))
		
		This.MousePointer= 11
		lnIdUtil = verifica_utilizator(lcUserNameApp,lcPasswordApp)
		This.MousePointer= 0
		
		If (m.lnIdUtil > -1) OR (m.lnIdUtil = -1 AND glAdministrator) OR (m.lnIdUtil = -2 AND glSupervizor)
			gnIdUtil = lnIdUtil
			llSucces = .T.
			gcnume = lcUserNameApp
			gcUtil = gnIdUtil
			glIntrat = .T.
		Endif
		
		If !llSucces
			Thisform.nnrincerc = Thisform.nnrincerc + 1
			aMessagebox("Autentificarea nu a reusit!" + Chr(13) + Chr(10)+ "Utilizator sau parola incorecte.",0+48,"Atentie")
			If Thisform.nnrincerc=3
				gnButon=2
				Thisform.Release
			Else
				Thisform.clb_operator.text_simplu1.SetFocus()
			Endif
			Return
		Endif
		
		
		Thisform.lb_stare.Caption="Conectat: "+Alltrim(Str(gnhandle))
		*!*	modificare	v 2.0.29
		This.setLastServer(lcHost)
		*!*	modificare	v 2.0.29	^
		gnButon=1
		Thisform.Release
	ENDPROC

	PROCEDURE do_logoff
		gnButon=2
		Thisform.Release
	ENDPROC

	PROCEDURE do_reset
		Thisform.cnume=""
		Thisform.clb_operator.text_simplu1.Refresh()
		Thisform.cparola = ""
		Thisform.clb_parola.Refresh()
	ENDPROC

	PROCEDURE getlastserver
		Local loIniHandler
		loIniHandler = Createobject("iniaccess")
		lcHost = loIniHandler.getLastServer()
		Release loIniHandler
		Return lcHost
	ENDPROC

	PROCEDURE Init
		DoDefault()
		
		_Screen.Height=This.Height
		_Screen.Width=This.Width
		_Screen.AutoCenter=.T.
		Thisform.Left=0
		Thisform.Top=0
		_Screen.Refresh()
		
		lnHosts = This.populate_host()
		If lnHosts > 0
			Thisform.cb_server._CBBASE1.RowSourceType = 2
			Thisform.cb_server._CBBASE1.RowSource = 'crsHost.Host'
			Select crsHost
			*!*	modificare	v 2.0.29
			*!*		GO top
			lcServer = This.getLastServer()
			If Empty(lcServer)
				Go Top
			Else
				Locate For Host = lcServer
				If !Found()
					Go Top
				Endif
			Endif
			*!*	modificare	v 2.0.29	^
			lcHost = Host
			Thisform.cb_server._CBBASE1.Requery()
			Thisform.cb_server._CBBASE1.Value=lcHost
		Else
			Quit
		Endif
		If goLocale.Locale = 'Romana'
			Thisform.cntRomana.Visible = .T.
			goLocale.SetLocale( Thisform )
		Else
			Thisform.cntEngleza.Visible = .T.
			goLocale.SetLocale( Thisform )
		Endif
	ENDPROC

	PROCEDURE populate_host
		Local lnValid
		lnValid = GetcrsSecurity(gcSecurityFile)
		Dimension laDrivere[30]
		Thisform.odbcreg1.getodbcdrvrs(@laDrivere,.T.)
		*!*	modificare	v 2.0.29
		If Used('crshost')
		*!*	modificare	v 2.0.29	^
			Select crshost
			Scan
				lcHost=Alltrim(Upper(Host))
				If Ascan(laDrivere,lcHost,1)=0
					Delete Next 1
				Endif
			Endscan
		*!*	modificare	v 2.0.29
		Endif
		*!*	modificare	v 2.0.29	^
		Return lnValid
	ENDPROC

	PROCEDURE setlastserver
		Lparameters tcHost
		Local loIniHandler
		loIniHandler = Createobject("iniaccess")
		loIniHandler.setLastServer(tcHost)
		Release loIniHandler
	ENDPROC

	PROCEDURE Cb_server._CBBASE1.Destroy
		IF USED('crsHost')
			USE IN crsHost
		ENDIF 
	ENDPROC

	PROCEDURE Cb_server._CBBASE1.DropDown
		Thisform.lb_stare.Visible = .F.
	ENDPROC

	PROCEDURE Cb_server._CBBASE1.LostFocus
		*!*	lcHost = Upper(Alltrim(This.Value))
		*!*	lcSchema = ""
		*!*	lcPassword = ""
		*!*	lcIsCrypted = ""
		
		*!*	If !Empty(lcHost)
		*!*		If Used('crsHost')
		*!*			Select schema,pwd,IsEncrypted From crsHost Where Upper(Alltrim(Host)) = lcHost Into Cursor crsServer
		*!*			Select crsServer
		*!*			Go Top
		*!*			lcSchema = schema
		*!*			lcPassword = ALLTRIM(pwd)
		*!*			lcIsCrypted = IsEncrypted
		*!*		Endif
		*!*	Endif
		*!*	lcHost = Alltrim(lcHost)
		*!*	lcSchema = Alltrim(lcSchema)
		*!*	lcPasswordOriginal=lcPassword
		
		*!*	If lcIsCrypted="1"
		*!*		IF gnewcryptxml=.T.
		*!*			lcPasswordOriginal = "*!*"+STRCONV(lcPasswordOriginal,13)
		*!*			lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","blowfish")
		*!*			ELSE
		*!*			lcPasswordOriginal = "*!*" + lcPasswordOriginal
		*!*			lcPassword = EncryptDecrypt(lcPassword, ENCRYPTKEY, "decrypt","old")
		*!*		ENDIF
		*!*		
		*!*	Else
		*!*		lcPassword = Alltrim(lcPassword)
		*!*	Endif
		
		*!*	deconectare()
		*!*	lnHandle = conectare(lcHost, lcSchema, lcPassword) && IN proceduri_oracle.prg
		*!*	If lnHandle < 0
		*!*		Thisform.do_reset()
		*!*		Thisform.lb_stare.Visible = .T.
		*!*		Thisform.lb_stare.Caption = "NECONECTAT"
		*!*		Return .F.
		*!*	Endif
		*!*	Thisform.lb_stare.Visible = .T.
		*!*	Thisform.lb_stare.Caption = "CONECTAT"
		*!*	gcHost = lcHost
		*!*	gcUserName = lcSchema
		*!*	gcPassword = lcPasswordOriginal
		*!*	Thisform.do_reset()
		
	ENDPROC

	PROCEDURE ImageEngleza.Click
		goLocale.Locale='English'
		IF TYPE('goLocale') = 'O' 
				golocale.SetLocale( thisform )
		ENDIF
		thisform.cntEngleza.Visible = .T. 
		thisform.cntRomana.Visible = .F.
		lcFisierIni = shortpath(GetIniPath())
		WritePrivateProfileString("locale", "lang", 'English' ,m.lcFisierIni)
	ENDPROC

	PROCEDURE ImageRomana.Click
		goLocale.Locale='Romana'
		IF TYPE('goLocale') = 'O' 
				golocale.SetLocale( thisform )
		ENDIF 	
		thisform.cntRomana.Visible = .T. 
		thisform.cntEngleza.Visible = .F.
		lcFisierIni = shortpath(GetIniPath())
		WritePrivateProfileString("locale", "lang", 'Romana' ,m.lcFisierIni)
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_mesaj AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="lbl_mesaj1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Nu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="imagine1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lbl_mesaj2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txt_numar" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: nnr
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		Desktop = .T.
		DoCreate = .T.
		Height = 192
		Name = "frm_mesaj"
		nnr = 0
		Width = 400
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 402
		_shape1.ZOrderSet = 3
		_SHAPE2.Height = 29
		_SHAPE2.Left = 367
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 34
		_SHAPE2.ZOrderSet = 6
		LB_TITLU_ALB_B121.Caption = "Titlu"
		LB_TITLU_ALB_B121.FontBold = .T.
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 5
		LB_TITLU_ALB_B121.ZOrderSet = 7
		BUT_TERMIN1.Left = 368
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 1
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 9
	*</PropValue>

	ADD OBJECT 'Da1' AS but_da WITH ;
		Height = 30, ;
		Left = 151, ;
		Name = "Da1", ;
		TabIndex = 2, ;
		Top = 156, ;
		Width = 55, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'imagine1' AS image WITH ;
		Height = 33, ;
		Left = 12, ;
		Name = "imagine1", ;
		Picture = ..\..\, ;
		Top = 48, ;
		Width = 32, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'lbl_mesaj1' AS _lbbase WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		Caption = "mesaj1", ;
		FontSize = 10, ;
		Height = 102, ;
		Left = 51, ;
		Name = "lbl_mesaj1", ;
		Style = 0, ;
		TabIndex = 4, ;
		Top = 42, ;
		Width = 339, ;
		WordWrap = .T., ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\comun\clase\_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'lbl_mesaj2' AS _lbbase WITH ;
		Alignment = 2, ;
		Caption = "mesaj2", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 178, ;
		Name = "lbl_mesaj2", ;
		TabIndex = 6, ;
		Top = 65, ;
		Width = 44, ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\..\comun\clase\_lb_base.vcx" BaseClass="label" />

	ADD OBJECT 'Nu1' AS but_nu WITH ;
		Height = 30, ;
		Left = 207, ;
		Name = "Nu1", ;
		TabIndex = 3, ;
		Top = 156, ;
		Width = 55, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'txt_numar' AS textbox WITH ;
		Alignment = 2, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "thisform.nnr", ;
		FontBold = .T., ;
		FontSize = 10, ;
		Height = 23, ;
		InputMask = (get_mask(12,gnPa)), ;
		Left = 264, ;
		Name = "txt_numar", ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 66, ;
		Width = 97, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE actualizeaza_drepturi
		*!*
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tctitlu,tcimagine,tctip,tcmesaj1,tmesaj2
		
		DODEFAULT()
		
		WITH this
			.lb_titlu_alb_b121.Caption = tctitlu
			.imagine1.Picture = IIF(EMPTY(tcimagine),[info_c.ico],tcimagine)
			.lbl_mesaj1.caption = IIF(EMPTY(tcmesaj1),[],tcmesaj1)
			IF TYPE('tmesaj2') = 'N'
				.lbl_mesaj2.visible = .f.
				.nnr = tmesaj2
				lnCul = IIF(.nnr<0,RGB(255,0,0),iif(.nnr>0,RGB(0,0,255),RGB(0,255,0)))
				.txt_numar.forecolor = lnCul
				.txt_numar.left = 151
			ELSE	
				.lbl_mesaj2.caption = IIF(EMPTY(tmesaj2),[],tmesaj2)
				.txt_numar.visible = .f.
			ENDIF	
			
			DO case
				CASE UPPER(ALLTRIM(tctip)) = [AVERTIZARE] OR UPPER(ALLTRIM(tctip)) = [INFORMARE] OR EMPTY(tctip)
					.da1.Visible = .f.
					.nu1.Visible = .f.
					._shape2.Visible = .t.
					.but_termin1.visible = .t.
				CASE UPPER(ALLTRIM(tctip)) = [INTREBARE]
					.da1.Visible = .t.
					.nu1.Visible = .t.
					._shape2.Visible = .f.
					.but_termin1.visible = .f.	
			ENDCASE
		ENDWITH
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		Do Case
		Case nKeyCode=27 And nShiftAltCtrl=0
			Nodefault
			This.do_renunt()
		Case nKeyCode=6 And nShiftAltCtrl=2
			NODEFAULT
			This.do_termin()
		Endcase
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		IF !FILE(THIS.Imagine1.PICTURE)
			THIS.IMagine1.Visible=.F.
		ENDIF 
	ENDPROC

ENDDEFINE

DEFINE CLASS keepalive AS timer 
 	*< CLASSDATA: Baseclass="timer" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Enabled = .F.
		Height = 23
		Name = "keepalive"
		Width = 23
	*</PropValue>
	
	PROCEDURE Timer
		*** instructiune KeepAlive
		TRY 
		lnSucces = goExecutor.oExecute([update SERVER_INFO set value = 'x' where 1=2])
		CATCH 
		ENDTRY 
		
	ENDPROC

ENDDEFINE

DEFINE CLASS mygridimagecontainer AS container 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: backstyle_access
		*m: backstyle_assign
	*</DefinedPropArrayMethod>

	*<PropValue>
		BackStyle = 0
		BorderWidth = 0
		Height = 25
		Name = "mygridimagecontainer"
		Width = 25
	*</PropValue>

	ADD OBJECT 'Image1' AS image WITH ;
		Anchor = 15, ;
		BackStyle = 0, ;
		Height = 24, ;
		Left = 0, ;
		Name = "Image1", ;
		Stretch = 1, ;
		Top = 0, ;
		Width = 24
		*< END OBJECT: BaseClass="image" />
	
	PROCEDURE backstyle_access
		*To do: Modify this routine for the Access method
		this.image1.Picture=EVALUATE(this.Parent.ControlSource)
		RETURN THIS.BackStyle
		
	ENDPROC

	PROCEDURE backstyle_assign
		LPARAMETERS vNewVal
		*To do: Modify this routine for the Assign method
		THIS.BackStyle = m.vNewVal
		
	ENDPROC

ENDDEFINE