*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />

	*<PropValue>
		DataSource = .NULL.
		Height = 0
		Left = 0
		Name = "Dataenvironment"
		Top = 0
		Width = 0
	*</PropValue>

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Pgf_optiuni1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page1.meniu" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page1.txt_mesaj" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page2.Cw_optiuni5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page3.Cw_optiuni1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page3.Cw_optiuni2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page3.Cw_optiuni3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page4.Cw_optiuni5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pgf_optiuni1.Page5.Cw_optiuni6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Img_stanga1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cw_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cw_meniu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cw_meniu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cw_meniu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cw_meniu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_numeutilizator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_utilnou" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_logoff" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_logoff" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_actualizari" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Actualizari" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblRTVAIActualizare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblServerActualizare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Config" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_Config" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cb_server_info" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="tmrProgressBar" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblProgressbar" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afiseaza_programe
		*m: dezactiveaza_optiuni
		*m: do_config_actualizari
		*m: do_deselecteaza
		*m: do_inchide
		*m: do_initializeaza_server_info
		*m: do_meniu_actualizare_server
		*m: do_schimba_parola
		*m: do_schimba_util
		*m: do_verifica_actualizari
		*m: do_verifica_stare_actualizare
		*m: minimizeaza
		*m: redimensioneaza_pagina
		*m: refreshstareactualizare
		*m: wndproc
		*p: nnrobiectevizibile		&& Numarul de obiecte vizibile din fiecare container.
		*p: oobjsystray
		*p: ostareactualizare
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		Caption = "Form"
		DoCreate = .T.
		Height = 394
		KeyPreview = .T.
		Name = "FRM_START"
		nnrobiectevizibile = 6
		oobjsystray = 
		ostareactualizare = NULL
		Themes = .F.
		Width = 793
	*</PropValue>

	ADD OBJECT 'Actualizari' AS label WITH ;
		Alignment = 0, ;
		Anchor = 6, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = "Verifica actualizari", ;
		ForeColor = 255,255,255, ;
		Height = 17, ;
		Left = 37, ;
		MousePointer = 15, ;
		Name = "Actualizari", ;
		Top = 341, ;
		Width = 114, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'cb_server_info' AS _combobox WITH ;
		Anchor = 6, ;
		ColumnWidths = "30", ;
		FontName = "Arial Narrow", ;
		Height = 24, ;
		Left = 9, ;
		Name = "cb_server_info", ;
		SelectedBackColor = 219,251,187, ;
		SelectedForeColor = 2,2,2, ;
		SpecialEffect = 1, ;
		Top = 280, ;
		Width = 139
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'Config' AS label WITH ;
		Alignment = 0, ;
		Anchor = 6, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		Caption = "Config actualizari", ;
		ForeColor = 255,255,255, ;
		Height = 17, ;
		HelpContextID = 0, ;
		Left = 37, ;
		MousePointer = 15, ;
		Name = "Config", ;
		Top = 319, ;
		Width = 114, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Cw_meniu1' AS cw_meniu WITH ;
		lapasat = .T., ;
		Left = 6, ;
		lvcomun = .T., ;
		Name = "Cw_meniu1", ;
		TabIndex = 2, ;
		Top = 10, ;
		ZOrderSet = 3, ;
		_shape1.Name = "_shape1", ;
		Lb_meniu1.Caption = "Start", ;
		Lb_meniu1.Name = "Lb_meniu1", ;
		_linie1.Name = "_linie1", ;
		_linie2.Name = "_linie2"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Cw_meniu2' AS cw_meniu WITH ;
		Left = 6, ;
		Name = "Cw_meniu2", ;
		TabIndex = 3, ;
		Top = 55, ;
		ZOrderSet = 4, ;
		_shape1.Name = "_shape1", ;
		Lb_meniu1.Caption = "Initializari", ;
		Lb_meniu1.Name = "Lb_meniu1", ;
		_linie1.Name = "_linie1", ;
		_linie2.Name = "_linie2"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Cw_meniu3' AS cw_meniu WITH ;
		Left = 6, ;
		Name = "Cw_meniu3", ;
		TabIndex = 4, ;
		Top = 100, ;
		ZOrderSet = 5, ;
		_shape1.Name = "_shape1", ;
		Lb_meniu1.Caption = "Grupuri", ;
		Lb_meniu1.Name = "Lb_meniu1", ;
		_linie1.Name = "_linie1", ;
		_linie2.Name = "_linie2"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Cw_meniu4' AS cw_meniu WITH ;
		Left = 6, ;
		lvcomun = .T., ;
		Name = "Cw_meniu4", ;
		TabIndex = 5, ;
		Top = 145, ;
		ZOrderSet = 6, ;
		_shape1.Name = "_shape1", ;
		Lb_meniu1.Caption = "Utilizatori", ;
		Lb_meniu1.Name = "Lb_meniu1", ;
		_linie1.Name = "_linie1", ;
		_linie2.Name = "_linie2"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Cw_meniu5' AS cw_meniu WITH ;
		Left = 6, ;
		Name = "Cw_meniu5", ;
		TabIndex = 6, ;
		Top = 190, ;
		Visible = .F., ;
		ZOrderSet = 7, ;
		_shape1.Name = "_shape1", ;
		Lb_meniu1.Caption = "Administrare", ;
		Lb_meniu1.Name = "Lb_meniu1", ;
		_linie1.Name = "_linie1", ;
		_linie2.Name = "_linie2"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'img_actualizari' AS image WITH ;
		Anchor = 6, ;
		BackStyle = 0, ;
		Height = 24, ;
		Left = 9, ;
		MousePointer = 15, ;
		Name = "img_actualizari", ;
		Picture = ..\grafice\update-yellow.png, ;
		Stretch = 1, ;
		Top = 336, ;
		Width = 24
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'img_Config' AS image WITH ;
		Anchor = 6, ;
		Height = 24, ;
		Left = 9, ;
		MousePointer = 15, ;
		Name = "img_Config", ;
		Picture = ..\grafice\2downarrow.gif, ;
		RotateFlip = 0, ;
		Stretch = 1, ;
		Top = 312, ;
		Width = 24
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'img_logoff' AS _image WITH ;
		Anchor = 6, ;
		Height = 24, ;
		Left = 9, ;
		MousePointer = 15, ;
		Name = "img_logoff", ;
		Picture = ..\grafice\logoff.png, ;
		Stretch = 2, ;
		Top = 359, ;
		Width = 24, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />

	ADD OBJECT 'Img_stanga1' AS img_stanga WITH ;
		Height = 396, ;
		Name = "Img_stanga1", ;
		Picture = ..\comun\grafice\f2.jpg, ;
		Top = 0, ;
		Width = 168, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="image" />

	ADD OBJECT 'img_utilnou' AS _image WITH ;
		Height = 24, ;
		Left = 760, ;
		MousePointer = 15, ;
		Name = "img_utilnou", ;
		Picture = ..\grafice\iesire.png, ;
		Stretch = 2, ;
		Top = 359, ;
		Width = 24, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" />

	ADD OBJECT 'Lb_logoff' AS lb_simplu WITH ;
		Anchor = 6, ;
		Caption = "Ieșire", ;
		FontItalic = .F., ;
		ForeColor = 255,255,255, ;
		Left = 37, ;
		MousePointer = 15, ;
		Name = "Lb_logoff", ;
		TabIndex = 9, ;
		Top = 363, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_numeutilizator' AS lb_simplu WITH ;
		AutoSize = .F., ;
		Caption = "nume_utilizator", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		FontUnderline = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 504, ;
		MousePointer = 15, ;
		Name = "Lb_numeutilizator", ;
		TabIndex = 8, ;
		Top = 364, ;
		Width = 255, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'lb_utilizator' AS _label WITH ;
		Anchor = 6, ;
		Caption = "Operator :", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Left = 443, ;
		Name = "lb_utilizator", ;
		Top = 364, ;
		Visible = .F.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT 'lblProgressbar' AS _label WITH ;
		Anchor = 6, ;
		Caption = "Creare firma noua...", ;
		ForeColor = 0,0,128, ;
		Left = 177, ;
		Name = "lblProgressbar", ;
		Top = 364, ;
		Visible = .F.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT 'lblRTVAIActualizare' AS label WITH ;
		Alignment = 0, ;
		Anchor = 6, ;
		AutoSize = .F., ;
		BackColor = 232,230,225, ;
		BackStyle = 1, ;
		BorderStyle = 0, ;
		Caption = "RTVAI actualizare", ;
		FontSize = 8, ;
		Height = 16, ;
		Left = 9, ;
		MousePointer = 15, ;
		Name = "lblRTVAIActualizare", ;
		Top = 263, ;
		Width = 137, ;
		WordWrap = .T., ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblServerActualizare' AS label WITH ;
		Alignment = 0, ;
		Anchor = 6, ;
		AutoSize = .F., ;
		BackColor = 232,230,225, ;
		BackStyle = 1, ;
		BorderStyle = 0, ;
		Caption = "Server actualizare", ;
		FontSize = 8, ;
		Height = 31, ;
		Left = 9, ;
		MousePointer = 15, ;
		Name = "lblServerActualizare", ;
		Top = 233, ;
		Width = 137, ;
		WordWrap = .T., ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Pgf_optiuni1' AS pgf_optiuni WITH ;
		ErasePage = .T., ;
		Height = 397, ;
		Left = 143, ;
		Name = "Pgf_optiuni1", ;
		PageCount = 5, ;
		TabIndex = 1, ;
		Top = -2, ;
		Width = 650, ;
		ZOrderSet = 0, ;
		Page1.Name = "Page1", ;
		Page2.Name = "Page2", ;
		Page3.Name = "Page3", ;
		Page4.BackColor = 255,255,255, ;
		Page4.Caption = "Page4", ;
		Page4.Name = "Page4", ;
		Page5.BackColor = 255,255,255, ;
		Page5.Caption = "Page5", ;
		Page5.Name = "Page5"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="pageframe" />

	ADD OBJECT 'Pgf_optiuni1.Page1.meniu' AS menulib WITH ;
		Anchor = 4, ;
		Left = 119, ;
		Name = "meniu", ;
		Top = 227
		*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page1.txt_mesaj' AS txt_mesaj WITH ;
		Left = 383, ;
		Name = "txt_mesaj", ;
		Top = 14
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="editbox" />

	ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni1' AS cw_optiuni WITH ;
		cprocedura = viz_programe, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni1", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\init\programe.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Programe", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Initializarea programelor", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni2' AS cw_optiuni WITH ;
		cprocedura = viz_firme, ;
		Height = 58, ;
		Left = 334, ;
		Name = "Cw_optiuni2", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\init\firme.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Firme", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Initializarea firmelor", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni3' AS cw_optiuni WITH ;
		cprocedura = viz_organigrama_programe, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni3", ;
		Top = 70, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\init\informatiip.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Informatii programe", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Detalii despre grupuri, firme și utilizatori", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni4' AS cw_optiuni WITH ;
		cprocedura = viz_organigrama_firme, ;
		Height = 58, ;
		Left = 334, ;
		Name = "Cw_optiuni4", ;
		Top = 70, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\init\informatiif.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Informatii firme", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Detalii despre grupuri și utilizatori", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page2.Cw_optiuni5' AS cw_optiuni WITH ;
		cprocedura = viz_grup_program, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni5", ;
		Top = 130, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\init\programegrup.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Grupuri de programe", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Initializarea grupurilor de programe", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page3.Cw_optiuni1' AS cw_optiuni WITH ;
		cprocedura = viz_grupuri, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni1", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\grup\configurareg.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Definire", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Definirea grupurilor", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page3.Cw_optiuni2' AS cw_optiuni WITH ;
		cprocedura = viz_grupprog, ;
		Height = 58, ;
		Left = 334, ;
		Name = "Cw_optiuni2", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\grup\drepturig.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Drepturi pe programe", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Definirea drepturilor de acces pe programe", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page3.Cw_optiuni3' AS cw_optiuni WITH ;
		cprocedura = viz_organigrama_grupuri, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni3", ;
		Top = 70, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\grup\informatiig.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Informatii grupuri", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Organigrama grupuri și utilizatori", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni1' AS cw_optiuni WITH ;
		cprocedura = viz_utilizatori, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni1", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\util\detaliiu.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Definire", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Definirea utilizatorilor", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni2' AS cw_optiuni WITH ;
		cprocedura = viz_utilgrupfirma, ;
		Height = 58, ;
		Left = 334, ;
		Name = "Cw_optiuni2", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\util\configurareu.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Definire roluri", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Introducerea utilizatorilor în grupuri", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni3' AS cw_optiuni WITH ;
		cprocedura = viz_organigrama_utilizatori, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni3", ;
		Top = 70, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\util\informatiiu.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Informatii utilizatori", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Grupuri pe utilizatori,firme pe utilizatori", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni4' AS cw_optiuni WITH ;
		cprocedura = Thisform.do_schimba_parola, ;
		Height = 58, ;
		Left = 334, ;
		lvcomun = .T., ;
		Name = "Cw_optiuni4", ;
		Top = 70, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\util\parola.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Modificare parola", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Modificarea parolei utilizatorului curent", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page4.Cw_optiuni5' AS cw_optiuni WITH ;
		cprocedura = mod_validari, ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni5", ;
		Top = 130, ;
		Visible = .T., ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\util\personalizare.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Modificare drepturi validari", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Personalizarea programului", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni1' AS cw_optiuni WITH ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni1", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\admin\import alfa contafin.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Import Alfa_Contafin_Oracle", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Import schema Alfa Contafin Oracle", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni2' AS cw_optiuni WITH ;
		Height = 58, ;
		Left = 334, ;
		Name = "Cw_optiuni2", ;
		Top = 10, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\admin\import alfa.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Import Alfa", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Import schema Alfa", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni3' AS cw_optiuni WITH ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni3", ;
		Top = 70, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\admin\contafin nou.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Contafin Oracle nou", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Initializare schema Contafin Oracle", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni4' AS cw_optiuni WITH ;
		Height = 58, ;
		Left = 334, ;
		Name = "Cw_optiuni4", ;
		Top = 70, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\admin\firma noua.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Firma noua", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Initializare firma noua", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni5' AS cw_optiuni WITH ;
		Height = 58, ;
		Left = 25, ;
		Name = "Cw_optiuni5", ;
		Top = 130, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\admin\verificare.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Check Differences", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "Comparatie intre doua scheme", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Pgf_optiuni1.Page5.Cw_optiuni6' AS cw_optiuni WITH ;
		Height = 58, ;
		Left = 334, ;
		Name = "Cw_optiuni6", ;
		Top = 130, ;
		Width = 300, ;
		lb_imagine.Left = 4, ;
		lb_imagine.Name = "lb_imagine", ;
		lb_imagine.Picture = ..\grafice\admin\main.png, ;
		lb_imagine.Top = 6, ;
		lb_program.Caption = "Main", ;
		lb_program.Name = "lb_program", ;
		lb_explicatie.Caption = "", ;
		lb_explicatie.Name = "lb_explicatie"
		*< END OBJECT: ClassLib="..\clase\ofundal_start.vcx" BaseClass="container" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Anchor = 6, ;
		BackStyle = 0, ;
		BorderColor = 255,255,255, ;
		Curvature = 10, ;
		Height = 160, ;
		Left = 6, ;
		Name = "Shape1", ;
		Top = 228, ;
		Width = 144, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'tmrProgressBar' AS _timer WITH ;
		Enabled = .F., ;
		Interval = 2000, ;
		Left = 175, ;
		Name = "tmrProgressBar", ;
		Top = 312
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="timer" />
	
	PROCEDURE afiseaza_programe
		Lparameters tnId_grup_prog
		lcNumeContainer="scrollcont"+Alltrim(Str(tnId_grup_prog))
		
		With This.pgf_optiuni1.page1
			For i=1 To .Objects.Count
				With .Objects(i)
					If Upper(Alltrim(.Class))=[_SCROLLCONTAINER]
						If Upper(Alltrim(.Name))=Upper(Alltrim(lcNumeContainer))
							.do_redimensioneaza()
							.Visible=.T.
							.ZOrder(0)
						Else
							.Visible=.F.
							.ZOrder(1)
						Endif
					Endif
				Endwith
			Endfor
		Endwith
		*!*	With This.pgf_optiuni1.page1._scrollcontainer1
		*!*		For i=1 To .Objects.Count
		*!*			If Upper(Alltrim(.Objects(i).Class))=[CW_PROGRAME]
		*!*				If .Objects(i).nid_grup_prog=tnId_grup_prog
		*!*					.Objects(i).Visible=.T.
		*!*				Else
		*!*					.Objects(i).Visible=.F.
		*!*				Endif
		*!*			Endif
		*!*		Endfor
		*!*	Endwith
		
	ENDPROC

	PROCEDURE dezactiveaza_optiuni
		Local i,lntop
		i=0
		lntop=10
		For Each oObiect In Thisform.Objects
			If Type('oObiect.lvcomun')!='U'
				oObiect.Visible=oObiect.lvcomun
				If oObiect.Visible
					i=i+1
					oObiect.Top=lntop
					lntop=lntop+45
				Endif
			Endif
		Endfor
		With This.pgf_optiuni1
			For l=2 To .PageCount
				i=0
				lntop=10
				lnLeft=25
				For Each oObiect In .Pages(l).Objects
					If Type('oObiect.lvcomun')!='U'
						oObiect.Visible=oObiect.lvcomun
						If oObiect.Visible
							i=i+1
							oObiect.Top=lntop
							oObiect.Left=lnLeft
							If i%2==1
								lnLeft=334
							Else
								lntop=lntop+60
								lnLeft=25
							Endif
						Endif
					Endif
				Endfor
			Endfor
		Endwith
		Thisform.Refresh()
	ENDPROC

	PROCEDURE do_config_actualizari
		DO FORM frm_iniconfig
	ENDPROC

	PROCEDURE do_deselecteaza
		For i=1 To Thisform.Objects.Count
			Try
				If Thisform.Objects(i).lapasat
					Thisform.Objects(i).do_apasa
					Exit
				Endif
			Catch
			Endtry
		Endfor
		
	ENDPROC

	PROCEDURE do_inchide
		*!*	modificare	v 2.1.7
		LPARAMETERS tlSilent
		goApp.onshutdown(tlSilent)
		*!*	If aMessagebox("Doriti sa parasiti aplicatia ROA START?",0+4+32,"Confirmare")==6
		*!*	*!*	modificare v 2.0.23
		*!*		Unbindevents(_Screen,[Resize],Thisform,[minimizeaza])
		*!*		Unbindevents(_vfp.HWnd,0xA123)
		*!*	*!*	modificare v 2.0.23	^
		*!*		Thisform.Release
		*!*		Clear Events
		*!*		Quit
		*!*	Endif
		*!*	modificare	v 2.1.7	^
	ENDPROC

	PROCEDURE do_initializeaza_server_info
		citeste_server_info()
		*!*	modificare	v 2.0.29
		If Used('crsserverinfo')
		*!*	modificare	v 2.0.29	^
			With Thisform.cb_server_info
				.RowSource = [crsserverinfo.value]
				.RowSourceType = 6
				.Value = Alltrim(crsserverinfo.Value)
				.Refresh()
			Endwith
			If Reccount('crsserverinfo') = 1
				Thisform.cb_server_info.Enabled = .F.
		*!*	modificare	v 2.0.29
		*!*		ENDIF
			Else
				If Reccount('crsserverinfo') = 0
					Thisform.cb_server_info.Enabled = .F.
					Thisform.img_actualizari.Enabled = .F.
					Thisform.img_actualizari.Picture = [update-disabled.png]
					Thisform.actualizari.Enabled = .F.
				Endif
			Endif
		Else
			Thisform.cb_server_info.Enabled = .F.
			Thisform.img_actualizari.Enabled = .F.
			Thisform.img_actualizari.Picture = [update-disabled.png]
			Thisform.actualizari.Enabled = .F.
		Endif
		*!*	modificare	v 2.0.29	^
		
		*!*	Thisform.shape1.Anchor = 0
		*!*	Thisform.shape1.Height = 88
		*!*	Thisform.shape1.Top = 300
		*!*	Thisform.shape1.Anchor = 6
		*!*	Thisform.shape1.Refresh()
		
	ENDPROC

	PROCEDURE do_meniu_actualizare_server
		Lparameters tcTip
		* tcTip: ROA/RTVAI
		
		Local lcSql, llSucces, lnOptiune, lnStare, loStare, lcTip
		Private pcSchemaList, pdUpdScripturiDataMin, pnUpdateApp, pnUpdateDatabase, pnUpdateScripturi, pnIdUtil
		
		lcTip = Upper(Transform(m.tcTip))
		lcTip = Iif(!Empty(m.lcTip), m.lcTip, 'ROA')
		
		Do Case
			Case m.lcTip = 'ROA'
				loStare = Thisform.oStareActualizare
				If Isnull(loStare)
					Return
				Endif
				lnStare = loStare.stare
				If !Inlist(m.lnStare, 0, 1, 2, 3, 4)
					Return
				Endif
				If lnStare = 4 && actualizare incheiata
					lnOptiune = xmenu("Start actualizare ROA;\Marcheaza actualizarea ROA terminata")
				Else
					lnOptiune = xmenu("\Start actualizare ROA;Marcheaza actualizarea ROA terminata")
				Endif
		
				If Empty(m.lnOptiune)
					Return
				Endif
				Do Case
					Case m.lnOptiune = 1
						pnUpdateApp = 1
						pnUpdateDatabase = 1
						pnUpdateScripturi = 1
						pdUpdScripturiDataMin = Cast(Null As T)
						pcSchemaList = ''
						pnIdUtil = gnIdUtil
		
						lcSql = [BEGIN pack_update.updateroajob(?pnupdateapp, ?pnupdatescripturi, ?pnupdatedatabase, ?pdupdscripturidatamin, ?pcschemalist, ?pnidutil); END;]
						llSucces = goExecutor.oExecuta(m.lcSql)
					Case m.lnOptiune = 2
						llSucces = goExecutor.oExecuta([begin pack_update.incheiereactualizare; end;])
				ENDCASE
				
			Case m.lcTip = 'RTVAI'
				lnOptiune = xmenu("Start actualizare RTVAI")
				If m.lnOptiune = 1
					lcSql = [BEGIN pack_roartvai.updatertvaijob; END;]
					llSucces = goExecutor.oExecuta(m.lcSql)
				Endif && m.lnOptiune = 1
		Endcase
		
		
		Thisform.refreshstareactualizare(m.lcTip)
		 
	ENDPROC

	PROCEDURE do_schimba_parola
		*!*	modificare	v 2.0.29
		gnButon=1
		ofrmparola=Createobject("frm_parola_nou")
		ofrmparola.Show(1)
		Release ofrmparola
		If gnButon=1
			aMessagebox("Parola a fost schimbată!",0+64,"Modificare parola")
		*!*	modificare	v 2.1.7	: le-am mutat in goApp.Restart
		*!*		Unbindevents(_Screen,[Resize],Thisform,[minimizeaza])
		*!*		Unbindevents(_vfp.HWnd,0xA123)
		*!* modificare	v 2.1.7	^
			goApp.Restart()
		Endif
		*!*	modificare	v 2.0.29	^
	ENDPROC

	PROCEDURE do_schimba_util
		If aMessagebox("Doriți să vă logați cu un alt utilizator?",0+4+32,"Confirmare")==6
		*!*	modificare	v 2.1.7	: le-am mutat in goApp.restart()
		*!*	*!*	modificare v 2.0.23
		*!*		Unbindevents(_Screen,[Resize],Thisform,[minimizeaza])
		*!*		Unbindevents(_vfp.HWnd,0xA123)
		*!*	*!*	modificare v 2.0.23	^
		*!*	modificare	v 2.1.7	^
		*!*	modificare	v 2.0.29
		*!*	Thisform.Release
		*!*	goApp.SetCaption("ROA Romfast Applications")
		*!*	Do Form frm_fundal
			goApp.Restart()
		*!*	modificare	v 2.0.29	^
		Endif
	ENDPROC

	PROCEDURE do_verifica_actualizari
		Do viz_prg_instalat In update_start.prg
		Select nume, explicatie,1 As ales,Alltrim(nume)+".png" As imagine, nume As versiune ;
			FROM v_programe_instalate ;
			INTO Cursor cProgrameUpdate Readwrite
		Insert Into cProgrameUpdate(nume,explicatie,ales,imagine) Values ("manual","Manualul Aplicatiei",1,"_Active_help.ico")
		*!*	INSERT INTO cprogrameupdate(nume,explicatie,ales,imagine) VALUES ("comun","Fisiere comune",1,"na.png")
		If UpdatePrograme()
			Do Form frm_update Name actualizari
		Endif
		Use In cProgrameUpdate
	ENDPROC

	PROCEDURE do_verifica_stare_actualizare
		*!* 27.04.2015
		*!* marius.mutu
		*!* verificare stare actualizare rtvai, stare job actualizare ROA, stare job actualizare RTVAI
		
		Lparameters tcTIP
		* tcTIP: ROA/RTVAI
		
		Local loStare
		Local lcSql, llSucces
		loStare = Createobject("empty")
		AddProperty(loStare, 'stare', '')
		AddProperty(loStare, 'descriere', '')
		AddProperty(loStare, 'dataora_start', {//::})
		AddProperty(loStare, 'dataora_end', {//::})
		AddProperty(loStare, 'utilizator', '')
		AddProperty(loStare, 'id_util', 0)
		
		AddProperty(loStare, 'ultimul_import_cu_succes', {//::})
		AddProperty(loStare, 'ultima_zi_verificare', {//::})
		AddProperty(loStare, 'ultima_zi_succes', 0)
		AddProperty(loStare, 'log_date', {//::})
		AddProperty(loStare, 'req_start_date', {//::})
		AddProperty(loStare, 'actual_start_date', {//::})
		AddProperty(loStare, 'status', '')
		AddProperty(loStare, 'additional_info', '')
		
		
		AddProperty(loStare, 'rtvai_ultimul_import_cu_succes', {//::})
		AddProperty(loStare, 'rtvai_ultima_zi_verificare', {//::})
		AddProperty(loStare, 'rtvai_ultima_zi_succes', 0)
		AddProperty(loStare, 'rtvai_log_date', {//::})
		AddProperty(loStare, 'rtvai_req_start_date', {//::})
		AddProperty(loStare, 'rtvai_actual_start_date', {//::})
		AddProperty(loStare, 'rtvai_status', '')
		AddProperty(loStare, 'rtvai_additional_info', '')
		
		If 'ROA'$Upper(Transform(tcTIP)) Or Empty(tcTIP)
		* Verifica starea ultimei actualizari a bazei de date si a programelor de pe server
			lcSql = [select * from vupd_stare_actualizare]
			lnSucces = goExecutor.oExecute(m.lcSql, 'cStareActualizare')
		
			If m.lnSucces > 0
				loStare.stare = cStareActualizare.stare
				loStare.descriere = cStareActualizare.descriere
				loStare.dataora_start = cStareActualizare.dataora_start
				loStare.dataora_end = cStareActualizare.dataora_end
				loStare.utilizator = cStareActualizare.utilizator
				loStare.id_util = cStareActualizare.id_util
		
		*!*	select log_date, req_start_date, actual_start_date, status, additional_info from vupd_stare_job
				lcSql = [select log_date, req_start_date, actual_start_date, status, additional_info from vupd_stare_job;]
				lnSucces = goExecutor.oExecute(m.lcSql, 'cUPDStareJob')
				If m.lnSucces > 0
					loStare.log_date = cUPDStareJob.log_date
					loStare.req_start_date = cUPDStareJob.req_start_date
					loStare.actual_start_date = cUPDStareJob.actual_start_date
					loStare.status = cUPDStareJob.Status
					loStare.additional_info = cUPDStareJob.additional_info
				ENDIF
				USE IN (SELECT('cUPDStareJob'))
			Else
		* Nu este configurata actualizarea automata
			Endif
			Use In (Select('StareActualizare'))
		Endif && ROA
		
		If 'RTVAI'$Upper(Transform(tcTIP)) Or Empty(tcTIP)
		* Verifica starea ultimei actualizari RTVAI
		*!*	select ultimul_import_cu_succes, ultima_zi_verificare, ultima_zi_succes from vrtvai_stare_actualizare
			lcSql = [select ultimul_import_cu_succes, ultima_zi_verificare, ultima_zi_succes from vrtvai_stare_actualizare;]
			llSucces = goExecutor.oExecuta(m.lcSql, 'cRTVAIStareActualizare')
			If llSucces
				loStare.rtvai_ultimul_import_cu_succes = cRTVAIStareActualizare.ultimul_import_cu_succes
				loStare.rtvai_ultima_zi_verificare = cRTVAIStareActualizare.ultima_zi_verificare
				loStare.rtvai_ultima_zi_succes = cRTVAIStareActualizare.ultima_zi_succes
		*!*	select log_date, req_start_date, actual_start_date, status, additional_info from vrtvai_stare_job
				lcSql = [select log_date, req_start_date, actual_start_date, status, additional_info from vrtvai_stare_job;]
				lnSucces = goExecutor.oExecute(m.lcSql, 'cRTVAIStareJob')
				If m.lnSucces > 0
					loStare.rtvai_log_date = cRTVAIStareJob.log_date
					loStare.rtvai_req_start_date = cRTVAIStareJob.req_start_date
					loStare.rtvai_actual_start_date = cRTVAIStareJob.actual_start_date
					loStare.rtvai_status = cRTVAIStareJob.Status
					loStare.rtvai_additional_info = cRTVAIStareJob.additional_info
				ENDIF
				USE IN (SELECT('cRTVAIStareJob'))
			ENDIF
			USE IN (SELECT('cRTVAIStareActualizare'))
		Endif && RTVAI
		
		
		Return loStare
		
	ENDPROC

	PROCEDURE Init
		*!* 21.06.2012
		*!* marius.mutu
		*!* glAdministrator - dezactivare definire programe, grupuri programe
		
		Local lofrmlogin,lnMaxFereastra, lnTopPrograme, lnTopGrup, lnBottomAltele
		gnButon=1
		lofrmlogin=Createobject('frm_login')
		lofrmlogin.Show(1)
		Release lofrmlogin
		If gnButon=2
			*!*	modificare	v 2.1.7
			*!*		Thisform.Release
			*!*		Do iesire
			Thisform.do_inchide(.T.)
			*!*	modificare	v 2.1.7		^
			*!*	modificare	v 2.0.29
			Return
			*!*	modificare	v 2.0.29	^
		Endif
		
		*!*	modificare v 2.0.23
		Bindevent(_Screen,[Resize],Thisform,[minimizeaza],1)
		Bindevent(_vfp.HWnd,0xA123,This,[wndproc],1)
		*!*	modificare v 2.0.23	^
		
		goApp.SetCaption("ROA Romfast Applications - Server : "+Alltrim(gcHost))
		*!*	*!*	modificare	v 2.0.31
		*!*	actualizeaza_etichete(This)
		*!*	*!*	modificare	v 2.0.31	^
		_Screen.TitleBar= 1
		_Screen.Visible=.T.
		*!*	modificare v 2.0.29
		If Type('_Screen.nHeight') <> 'N'
			AddProperty(_Screen,'nHeight',0)
			AddProperty(_Screen,'nWidth',0)
		Endif
		*!*	modificare v 2.0.29	^
		_Screen.Height=Thisform.Height
		_Screen.Width=Thisform.Width
		_Screen.AutoCenter=.T.
		_Screen.Refresh
		Thisform.Left=0
		Thisform.Top=0
		lnMaxFereastra=0
		lnMaxContainer=0
		lnTopPrograme=0
		lnTopGrup=0
		lnBottomGrup=lnTopGrup
		*!*	modificare v 2.0.23
		lnBottomAltele = Thisform.pgf_optiuni1.page1.txt_mesaj.Top + Thisform.pgf_optiuni1.page1.txt_mesaj.Height
		*!*	modificare v 2.0.23	^
		
		lnDif=Thisform.lb_numeutilizator.Left-Thisform.lb_utilizator.Left
		Thisform.lb_numeutilizator.Caption=Upper(Alltrim(gcUserNameApp))
		Thisform.lb_numeutilizator.AutoSize=.T.
		Thisform.lb_numeutilizator.Visible=Thisform.lb_numeutilizator.Visible
		Thisform.lb_numeutilizator.Left=Thisform.img_utilnou.Left-Thisform.lb_numeutilizator.Width-5
		Thisform.lb_utilizator.Left=Thisform.lb_numeutilizator.Left-lnDif
		*!*	modificare 2.0.6
		Thisform.do_initializeaza_server_info()
		*!*	modificare 2.0.6	^
		With Thisform.pgf_optiuni1.page1
			Do viz_prg_instalat In update_start.prg
			If Used('v_programe_instalate') And Reccount('v_programe_instalate') > 0
				*!*	grupuri
				If Used('crsgrupuriprog')
					Use In crsgrupuriprog
				Endif
				*!*	modificare v 2.0.23
				*!*			Select Count(*) As nr_prog,id_grup_prog,grup,ordine_grup From v_programe_instalate ;
				*!*				GROUP By id_grup_prog,grup,ordine_grup Order By ordine_grup Desc ;
				*!*				Into Cursor crsgrupuriprog Readwrite
				*!*			Select crsgrupuriprog
				*!*			Calculate Max(nr_prog) To lnMaxNrObiecte
				*!*			Append Blank
				*!*			Replace id_grup_prog With 0,grup With 'Favorite',ordine_grup With 0
				Select Count(*) As nr_prog,0 As id_grup_prog,'Favorite' As grup,0 As ordine_grup From v_programe_instalate Where favorit = 1 ;
					UNION All ;
					Select Count(*) As nr_prog,id_grup_prog,grup,ordine_grup From v_programe_instalate ;
					GROUP By id_grup_prog,grup,ordine_grup Order By 4 ;
					Into Cursor crsgrupuriprog Readwrite
				Select crsgrupuriprog
				Calculate Max(nr_prog) To lnMaxNrObiecte
				*!*	modificare v 2.0.23	^
				lnIdPrimulGrup=0
		
				lnLeftGrup=365
				*!*	modificare v 2.0.23
				*!*			lnTopGrup=Thisform.lb_utilizator.Top - 20
				lnTopGrup = lnBottomAltele
				*!*	modificare v 2.0.23	^
				lnBottomGrup=lnTopGrup
		
				lnLeftContainer = 25
				lnTopContainer = 15
				lnWidthContainer = lnLeftGrup - lnLeftContainer - 5
				lnVerticalOffset = 4
		
				Scan
					lnIdGrupProg=crsgrupuriprog.id_grup_prog
					lcmdNume="cw_grup"+Alltrim(Str(lnIdGrupProg))
					lcNumeContainer="scrollcont"+Alltrim(Str(lnIdGrupProg))
		
		
					*!*	adaugare container pentru grupul de programe
					*!*	initializare container:
					*!*	tnNrObiecteVizibile, tnTop, tnLeft, tnWidth, tnDistantaVObiecte, tnDistantaOObiecte
					If lnIdGrupProg>0
						*!*	modificare v 2.0.23 : Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte) in loc de Thisform.nNrObiecteVizibile
						.AddObject(lcNumeContainer,"_scrollcontainer",Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte),lnTopContainer,;
							lnLeftContainer,lnWidthContainer,lnVerticalOffset)
						.AddObject(lcmdNume,"cw_grupprog")
					Else
						*!*	modificare v 2.0.23 : Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte) in loc de Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte+1)
						.AddObject(lcNumeContainer,"_scrollcontainer",Min(Thisform.nNrObiecteVizibile,lnMaxNrObiecte),;
							lnTopContainer,lnLeftContainer,lnWidthContainer,lnVerticalOffset)
						.AddObject(lcmdNume,"cw_grupfav")
					Endif
					*!*				.&lcNumeContainer..Left=lnLeftContainer
					*!*				.&lcNumeContainer..Top=lnTopContainer
					*!*				.&lcNumeContainer..Width=lnLeftGrup-lnLeftContainer-5
					*!*				.&lcNumeContainer..do_redimensioneaza()
		
					*!*	adaugare grup de programe
					*!*	modificare v 2.0.23
					*!*				lnTopGrup=lnTopGrup-.&lcmdNume..Height
					*!*				.&lcmdNume..lb_grup.Caption=caps_first(Alltrim(grup))
					*!*				.&lcmdNume..Top=lnTopGrup
					.&lcmdNume..lb_grup.Caption=caps_first(Alltrim(grup))
					.&lcmdNume..Top=lnBottomGrup
					lnBottomGrup = lnBottomGrup + .&lcmdNume..Height
					*!*	modificare v 2.0.23	^
					.&lcmdNume..Visible=.T.
					.&lcmdNume..Left=lnLeftGrup
					.&lcmdNume..Anchor = 1
					.&lcmdNume..nid_grup_prog=lnIdGrupProg
					.&lcmdNume..do_redimensioneaza()
					*!*	modificare v 2.0.23
					*!*				.&lcmdNume..Anchor=0
					*!*	modificare v 2.0.23	^
				Endscan
				Use In crsgrupuriprog
		
				*!*	programe
				Select v_programe_instalate
				i=0
				Scan
					i=i+1
					lnIdProgram=v_programe_instalate.id_program
					lnIdProg=v_programe_instalate.id_prog
					lcIdProgram=Alltrim(Str(lnIdProgram))
					lcIdProg=Alltrim(Str(lnIdProg))
		
					If Type('v_programe_instalate.parametru_prog') <> 'U'
						lnParametru_prog = v_programe_instalate.parametru_prog && pt. programul de Contracte - clienti si furnizori
						lcParametru_prog = Alltrim(Str(Nvl(lnParametru_prog,0)))
					Else
						lcParametru_prog = '0'
					Endif
		
					lcDirector = Alltrim(Director)
					lcNumeProgram=caps_first(Alltrim(explicatie))
					lnFavorit=v_programe_instalate.favorit
					lcImagineFav=Upper(Alltrim(nume))+"_fav.png"
					lcImagine=Upper(Alltrim(nume))+".png"
					*!*				lcImagineDefault=Iif(lnFavorit=1,lcImagineFav,lcImagine)
					lcImagineDefault=Iif(lnFavorit=1,Iif(File(lcImagineFav),lcImagineFav,[na_fav.png]),Iif(File(lcImagine),lcImagine,[na.png]))
					lnIdGrupProg=v_programe_instalate.id_grup_prog
					lnIdGrupProgFav=0
					If Like([*.htm],Lower(Alltrim(nume))) Or Like([*.html],Lower(Alltrim(nume)))
						lcComandaProgram = gcDirMare + Iif(Empty(lcDirector),Alltrim(nume),Alltrim(lcDirector))+[\]+;
							Alltrim(nume)
					Else
						lcCaleProgram = gcDirMare+Iif(Empty(lcDirector),Juststem(nume),Alltrim(lcDirector))+[\]+;
							Juststem(Alltrim(nume))+[.exe]
						lcParametru = gcHost+";"+gcuserName+";"+gcPassword+";"+Alltrim(Str(gcutil))+";"+lcIdProgram+";"+lcParametru_prog
						lcComandaProgram=[run /n ] + lcCaleProgram +[ ]+lcParametru
					Endif
		
					lcmdNume="cw_"+lcIdProg
					lcNumeContainer="scrollcont"+Alltrim(Str(lnIdGrupProg))
					lcNumeContainerFav="scrollcont"+Alltrim(Str(lnIdGrupProgFav))
		
					With .&lcNumeContainer.
						.do_initializeazaobiect(lcmdNume,"cw_programe")
						&& tcNumeProgram,tcImagine,tcComanda,tnIdProgram,tnIdGrupProg,tnIdGrupProgTata
						.&lcmdNume..do_initializeaza(lcNumeProgram,lcDirector,lcImagineDefault,lcComandaProgram,lnIdProg,lnIdGrupProg)
						lnMaxContainer=Max(lnMaxContainer,.nmaxheight)
					Endwith
		
					*!*				If lnFavorit=1
					*!*					With .&lcNumeContainerFav.
					*!*						.do_initializeazaobiect(lcmdNume,"cw_programe")
					*!*						.&lcmdNume..do_initializeaza(lcNumeProgram,lcImagine,lcComandaProgram,lnIdProgram,lnIdGrupProgFav,lnIdGrupProg)
					*!*						lnMaxContainer=Max(lnMaxContainer,.nmaxheight)
					*!*					Endwith
					*!*				Endif
				Endscan
		
				*!*	programe favorite
				If Used('v_programe_favorite')
					Use In v_programe_favorite
				Endif
				Select * From v_programe_instalate Where favorit=1 Order By ordine_favorit Into Cursor v_programe_favorite
				Select v_programe_favorite
				Scan
					lnIdProgram=id_program
					lnIdProg=id_prog
					lcIdProgram=Alltrim(Str(lnIdProgram))
					lcIdProg=Alltrim(Str(lnIdProg))
					lcNumeProgram=caps_first(Alltrim(explicatie))
					lcDirector = Alltrim(Director)
		
					If Type('v_programe_favorite.parametru_prog') <> 'U'
						lnParametru_prog = v_programe_favorite.parametru_prog && pt. programul de Contracte - clienti si furnizori
						lcParametru_prog = Alltrim(Str(Nvl(lnParametru_prog,0)))
					Else
						lcParametru_prog = '0'
					Endif
		
					*!*				lcImagine=Upper(Alltrim(nume))+".png"
					lcImagine=Iif(File(Upper(Alltrim(nume))+".png"),Upper(Alltrim(nume))+".png",[na.png])
					lnIdGrupProg=id_grup_prog
					lnIdGrupProgFav=0
					If Like([*.htm],Lower(Alltrim(nume))) Or Like([*.html],Lower(Alltrim(nume)))
						lcComandaProgram = gcDirMare + Iif(Empty(lcDirector),Alltrim(nume),Alltrim(lcDirector))+[\]+;
							Alltrim(nume)
					Else
						lcCaleProgram = gcDirMare+Iif(Empty(lcDirector),Juststem(nume),Alltrim(lcDirector))+[\]+;
							Juststem(Alltrim(nume))+[.exe]
						lcParametru = gcHost+";"+gcuserName+";"+gcPassword+";"+Alltrim(Str(gcutil))+";"+lcIdProgram+";"+lcParametru_prog
						lcComandaProgram=[run /n ] + lcCaleProgram +[ ]+lcParametru
					Endif
		
					lcmdNume="cw_"+lcIdProg
					lcNumeContainerFav="scrollcont"+Alltrim(Str(lnIdGrupProgFav))
		
					With .&lcNumeContainerFav.
						.do_initializeazaobiect(lcmdNume,"cw_programe")
						.&lcmdNume..do_initializeaza(lcNumeProgram,lcDirector,lcImagine,lcComandaProgram,lnIdProg,lnIdGrupProgFav,lnIdGrupProg)
						lnMaxContainer=Max(lnMaxContainer,.nmaxheight)
					Endwith
				Endscan
		
				lcmdNume="cw_grup"+Alltrim(Str(lnIdPrimulGrup))
				.&lcmdNume..Click()
		
			Endif
		Endwith
		*!*	modificare	v 2.0.32
		*!*	If Used('v_programe_instalate')
		*!*		Use In v_programe_instalate
		*!*	Endif
		*!*	modificare	v 2.0.32	^
		
		If Used('v_programe_favorite')
			Use In v_programe_favorite
		Endif
		
		*!* Locale
		lcFisierIni = shortpath(GetIniPath())
		
		lcBuffer=Space(255)
		GetPrivateProfileString( "locale","lang","",@m.lcBuffer, Len(m.lcBuffer), m.lcFisierIni)
		
		lcBuffer = Strtran(m.lcBuffer,Chr(0),"")
		lcBuffer = Alltrim(m.lcBuffer)
		goLocale.Locale = m.lcBuffer
		
		goLocale.SetLocale( Thisform )
		
		*!* Locale ^
		*!*	modificare v 2.0.23
		*!*	lnMaxFereastra=Iif(lnBottomGrup>lnMaxContainer,Max(lnBottomGrup-lnTopGrup,lnMaxContainer)+25,lnMaxContainer)
		lnMaxFereastra=Max(lnBottomGrup,lnMaxContainer)
		*!*	modificare v 2.0.27
		*!*	lnMaxFereastra=Iif(!glSupervizor And lnMaxFereastra<60,MAX(40+Thisform.shape1.Height,lnBottomAltele),;
		*!*		Iif(glSupervizor And lnMaxFereastra<300,190+Thisform.shape1.Height,lnMaxFereastra))
		lnMaxFereastra=Iif(!(glSupervizor OR glAdministrator) And lnMaxFereastra<60,Max(40+Thisform.shape1.Height,lnBottomAltele),;
			Iif((glSupervizor OR glAdministrator) And lnMaxFereastra<300,300,lnMaxFereastra))
		*!*	modificare v 2.0.27	^
		*!*	modificare	v 2.0.23	^
		
		Do Case
			Case m.glSupervizor
				* NU DEZACTIVEZ NIMIC
			Case m.glAdministrator
				* DEZACTIVEZ DEFINIRE PROGRAME
				This.pgf_optiuni1.page2.cw_optiuni1.Visible = .F. && PROGRAME
				This.pgf_optiuni1.page2.cw_optiuni5.Visible = .F. && GRUPURI PROGRAME		
			Otherwise
				This.dezactiveaza_optiuni()
		Endcase
		Thisform.redimensioneaza_pagina(lnMaxFereastra+15)
		_Screen.AutoCenter=.T.
		_Screen.Refresh
		
		_Screen.AddProperty("oFundal", This)
		_Screen.AddProperty("cNewSchema", "")
		_Screen.AddProperty("nNewSchemaAn", 0)
		_Screen.AddProperty("nNewSchemaLuna", 0)
		_Screen.AddProperty("cTime", "")
		
		*!*	This.progressbar.ctlVisible = .F.
		
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		Do Case
		Case nKeyCode=-1  &&F2
			Thisform.do_inchide()
			Nodefault
		Case nKeyCode=1 And nShiftAltCtrl=2
			Thisform.do_config_actualizari()
			Nodefault
		Otherwise
			DoDefault(nKeyCode,nShiftAltCtrl)
		Endcase
	ENDPROC

	PROCEDURE minimizeaza
		If _Screen.WindowState=1
			Thisform.oobjsystray = Newobject('systray')
			*!*	modificare	v 2.0.29
			poLog.Log([minimizare 1:]+;
				ALLTRIM(Str(_Screen.Width))+"x"+Alltrim(Str(_Screen.Height)),Program())
			*!*	modificare	v 2.0.29	^
			poLog.Log('IconFile=' + gcComunPath + [ROASTART.ICO], program())
			With Thisform.oobjsystray
				.IconFile 	= gcComunPath + [ROASTART.ICO]
				.TipText 	= [ROASTART]
				.crightclickproc = [arata_meniu_tray]		&&	modificare	v 2.0.32
				.AddIconToSystray()
				.ShowBalloonTip("Faceti dublu-click pentru maximizare!"+CHR(13)+CHR(10)+"Faceti click dreapta pentru acces la lansarea rapida a programelor!", "ROASTART" , 1, 3)
			Endwith
			*!*		Read Events
			_Screen.Hide()
			*!*	modificare	v 2.0.29
			poLog.Log([minimizare 2:]+;
				ALLTRIM(Str(_Screen.Width))+"x"+Alltrim(Str(_Screen.Height)),Program())
			*!*	modificare	v 2.0.29	^
		Else
			If Type('Thisform.oobjsystray.IconFile') <> 'U'
				Thisform.oobjsystray = Null
				*!*			_Screen.Show()
			Endif
		Endif
	ENDPROC

	PROCEDURE redimensioneaza_pagina
		Lparameters tnTop
		&& redimensionare pagina
		&& cw_program.height = 58
		Thisform.img_logoff.Top=tnTop-4
		Thisform.img_utilnou.Top=tnTop-4
		Thisform.lb_logoff.Top=tnTop
		Thisform.lb_numeutilizator.Top=tnTop
		Thisform.lb_utilizator.Top=tnTop
		Thisform.pgf_optiuni1.Height=tnTop+34
		Thisform.img_stanga1.Height=tnTop+34
		
		Thisform.Height=tnTop+34
		_Screen.Height=tnTop+34
		
		*!*	modificare v 2.0.29
		_Screen.nHeight = Thisform.Height
		_Screen.nWidth = Thisform.Width
		*!*	modificare v 2.0.29	^
		*!*	modificare	v 2.0.6
		*!*	thisform.cb_server_info.Top = thisform.Height - 122
		*!*	Thisform.actualizari.Top = Thisform.Height - 60
		*!*	Thisform.Config.Top = Thisform.Height - 85
		*!*	Thisform.img_Actualizari.Top = Thisform.Height - 65
		*!*	Thisform.img_Config.Top = Thisform.Height - 90
		*!*	modificare	v 2.0.6	^
	ENDPROC

	PROCEDURE refreshstareactualizare
		*!* 28.04.2015
		*!* marius.mutu
		*!* stare job actualizare ROA, stare actualizare RTVAi
		
		Lparameters tcTip
		* tcTip: ROA/RTVAI
		
		Local lcCaption, lcDescriere, lcSetSeconds, lcToolTip, lnDurata, loStare, ltDataOraEnd
		Local ltDataOraStart, lnStare
		Local lcCaptionRTVAI, lcForeColor, lcForeColorRTVAI, lcToolTipRTVAI, lnDurataRTVAI, ltCurrentTime
		loStare = Thisform.do_verifica_stare_actualizare(tcTip)
		This.oStareActualizare = loStare
		
		* ROA
		ltDataOraStart = loStare.dataora_start
		ltDataOraEnd = Nvl(loStare.dataora_end, {//::})
		lcDescriere = loStare.descriere
		lnStare = loStare.stare
		ltCurrentTime = Get_Ora()
		lcCaption = ""
		lcToolTip = ""
		
		
		
		lcSetSeconds = Set("Seconds")
		SET SECONDS OFF && se lungeste prea mult data in caption
		
		* Actualizare ROA
		If 'ROA' $ Upper(Transform(m.tcTip)) Or Empty(m.tcTip)
			Do Case
				Case Empty(Nvl(ltDataOraStart, {//::}))
					lcCaption = 'Actualizarea nu este configurata'
					lcToolTip = 'Actualizarea nu este configurata sau nu s-a actualizat niciodata baza de date.'
					lcForeColor = Rgb(0, 0, 0) && actualizare neconfigurata - negru
				Otherwise
					lnDurata = Int((ltCurrentTime - m.ltDataOraStart) / 60)
					If lnStare <> 4 And lnDurata > 20 && durata actualizarii > 20 minute inseamna eroare
						lcCaption = Ttoc(m.ltDataOraStart) && + ' EROARE!'
						lcForeColor = Rgb(255, 0, 0) && actualizare cu eroare - rosu
						lcToolTip = Ttoc(m.ltDataOraStart) + ' - ' + Ttoc(m.ltDataOraEnd) + ' ' + m.lcDescriere + Chr(13) + Chr(10) + Chr(13) + Chr(10) + 'SUNATI LA SUPORTUL TEHNIC!'
					Else
						If !Empty(m.ltDataOraEnd)
							lcForeColor = Rgb(0, 64, 64) && actualizare terminata - verde inchis
						Else
							lcForeColor = Rgb(255, 128, 0) && in curs de actualizare - portocaliu
						Endif
						lcCaption = Ttoc(m.ltDataOraStart) &&  + ' ' + m.lcDescriere
						lcToolTip = Ttoc(m.ltDataOraStart) + ' - ' + Ttoc(m.ltDataOraEnd) + ' ' + m.lcDescriere
					Endif
			ENDCASE
			lcCaption = 'ROA: ' + m.lcCaption 
			TRY 
			lcToolTip = lcTooltip + CHR(13) + CHR(10) + ;
				'Ultimul task update ROA: ' + ALLTRIM(TRANSFORM(IIF(EMPTY(NVL(loStare.log_date, '')),'',loStare.log_date))) + ' ' + ALLTRIM(NVL(loStare.status, '')) + CHR(13) + CHR(10) + ;
				 LEFT(NVL(loStare.additional_info, ''), 200)
			ENDTRY 	 
		
			This.lblServerActualizare.Caption = m.lcCaption
			This.lblServerActualizare.ToolTipText = m.lcToolTip
			This.lblServerActualizare.ForeColor = m.lcForeColor
			This.lblServerActualizare.Refresh()
		Endif && ROA
		
		
		* Actualizare RTVAI
		If 'RTVAI' $ Upper(Transform(m.tcTip)) Or Empty(m.tcTip)
			lnDurataRTVAI = Int((ltCurrentTime - loStare.rtvai_ultimul_import_cu_succes) / (60 * 60 * 24)) && cate zile de la ultimul import cu succes
			lcCaptionRTVAI = 'RTVAI: ' + dtoc(TTOD(loStare.rtvai_ultimul_import_cu_succes)) + IIF(loStare.rtvai_ultima_zi_succes = 0, '!!!', '')
			lcForeColorRTVAI = IIF(m.lnDurataRTVAI <= 2, Rgb(0, 64, 64), IIF(m.lnDurataRTVAI <= 7, Rgb(255, 128, 0), Rgb(255, 0, 0))) && verde <=2 zile, portocaliu <= 7 zile, rosu > 5 zile de la ultima actualizare, verde inchis < 3 zile de la ultima actualizare
			TRY 
			lcToolTipRTVAI = 'Ultimul import RTVAI cu succes: ' + dtoc(TTOD(loStare.rtvai_ultimul_import_cu_succes)) + Chr(13) + Chr(10) + ;
				'Ultima verificare RTVAI: ' + dtoc(TTOD(loStare.rtvai_ultima_zi_verificare)) + IIF(loStare.rtvai_ultima_zi_succes = 1, ' SUCCES', ' EROARE! SUNATI LA SUPORTUL TEHNIC!') + Chr(13) + Chr(10) + Chr(13) + Chr(10) + ;
				'Ultimul task import RTVAI: ' + NVL(loStare.rtvai_log_date, '') + ' ' + ALLTRIM(NVL(loStare.rtvai_status, '')) + CHR(13) + CHR(10) + ;
				 LEFT(NVL(loStare.rtvai_additional_info, ''), 200)
			CATCH
				lcToolTipRTVAI = ''
			ENDTRY 
			This.lblRTVAIActualizare.Caption = m.lcCaptionRTVAI
			This.lblRTVAIActualizare.ToolTipText = m.lcToolTipRTVAI
			This.lblRTVAIActualizare.ForeColor = m.lcForeColorRTVAI
			This.lblRTVAIActualizare.Refresh()
		Endif && RTVAI
		
		Set Seconds &lcSetSeconds
		
		
	ENDPROC

	PROCEDURE Release
		LogStream=""
		LogStream=Thisform.pgf_optiuni1.page1.txt_mesaj.Value
		If LogStream<>""
			lnNrOfLines = Alines(LogLines,LogStream)
			LogStream=""
			For contor = 1 To lnNrOfLines
				LogStream=LogStream+Dtoc(Date())+" "+Time()+"   > "+ LogLines(contor) + Chr(13)+Chr(10)
			Endfor
		*!*		Strtofile(LogStream,gcDirMare+"updates.log",1)
			polog.Log(LogStream,Program())
		Endif
		Thisform.cb_server_info.RowSource = []
		If Used('crsserverinfo')
			Use In crsserverinfo
		ENDIF
		*!*	modificare	v 2.0.32
		If Used('v_programe_instalate')
			Use In v_programe_instalate
		Endif
		*!*	modificare	v 2.0.32	^
		*!*	modificare	v 2.0.29
		For i = 1 To This.Objects.Count
			This.RemoveObject(This.Objects(1).Name)
		Endfor
		DODEFAULT()
		*!*	modificare	v 2.0.29	^
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		
		Thisform.refreshstareactualizare()
	ENDPROC

	PROCEDURE wndproc
		Lparameters HWnd, Msg, wParam, Lparam
		If Msg = 0xA123 And Type('Thisform.oobjsystray.IconFile') <> 'U'
			Thisform.oobjsystray.icondblclickevent()
		Endif
	ENDPROC

	PROCEDURE Actualizari.Click
		Thisform.do_verifica_actualizari()
	ENDPROC

	PROCEDURE Actualizari.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .T.
		
	ENDPROC

	PROCEDURE Actualizari.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .F.
	ENDPROC

	PROCEDURE Config.Click
		thisform.do_config_actualizari()
	ENDPROC

	PROCEDURE Config.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .T.
		
	ENDPROC

	PROCEDURE Config.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .F.
	ENDPROC

	PROCEDURE Cw_meniu1.Click
		If !This.lapasat
			Thisform.do_deselecteaza
			This.do_apasa
			Thisform.pgf_optiuni1.ActivePage=1
		Endif
	ENDPROC

	PROCEDURE Cw_meniu2.Click
		If !This.lapasat
			Thisform.do_deselecteaza
			This.do_apasa
			Thisform.pgf_optiuni1.ActivePage=2
		Endif
		
	ENDPROC

	PROCEDURE Cw_meniu3.Click
		If !This.lapasat
			Thisform.do_deselecteaza
			This.do_apasa
			Thisform.pgf_optiuni1.ActivePage=3
		Endif
		
	ENDPROC

	PROCEDURE Cw_meniu4.Click
		If !This.lapasat
			Thisform.do_deselecteaza
			This.do_apasa
			Thisform.pgf_optiuni1.ActivePage=4
		Endif
		
	ENDPROC

	PROCEDURE Cw_meniu5.Click
		If !This.lapasat
			Thisform.do_deselecteaza
			This.do_apasa
			Thisform.pgf_optiuni1.ActivePage=5
		Endif
		
	ENDPROC

	PROCEDURE img_actualizari.Click
		Thisform.do_verifica_actualizari()
	ENDPROC

	PROCEDURE img_Config.Click
		thisform.do_config_actualizari()
	ENDPROC

	PROCEDURE img_logoff.Click
		Thisform.do_inchide()
	ENDPROC

	PROCEDURE img_utilnou.Click
		Thisform.do_schimba_util()
	ENDPROC

	PROCEDURE img_utilnou.RightClick
		*!*	_Screen.cNewSchema = 'SCHEMA_TEST'
		*!*	_Screen.nNewSchemaAn = 2014
		*!*	_Screen.nNewSchemaLuna = 10
		*!*	_Screen.cTime = Time()
		*!*	_Screen.oFundal.tmrProgressBar.timer()
		*!*	*_Screen.oFundal.tmrProgressBar.Enabled = !_Screen.oFundal.tmrProgressBar.Enabled
		
	ENDPROC

	PROCEDURE lblRTVAIActualizare.Click
		Thisform.refreshstareactualizare('RTVAI')
	ENDPROC

	PROCEDURE lblRTVAIActualizare.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .T.
		
		Thisform.refreshstareactualizare('RTVAI')
	ENDPROC

	PROCEDURE lblRTVAIActualizare.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .F.
	ENDPROC

	PROCEDURE lblRTVAIActualizare.RightClick
		Thisform.do_meniu_actualizare_server('RTVAI')
	ENDPROC

	PROCEDURE lblServerActualizare.Click
		Thisform.refreshstareactualizare('ROA')
	ENDPROC

	PROCEDURE lblServerActualizare.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .T.
		
		Thisform.refreshstareactualizare('ROA')
	ENDPROC

	PROCEDURE lblServerActualizare.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold= .F.
	ENDPROC

	PROCEDURE lblServerActualizare.RightClick
		* Nu afisez meniul de actualizare pentru utilizatorii care nu au dreptul la optiunea Initializare
		If !Thisform.cw_meniu2.Visible
			Return
		Endif
		
		Thisform.do_meniu_actualizare_server('ROA')
	ENDPROC

	PROCEDURE Lb_logoff.Click
		Thisform.do_inchide()
	ENDPROC

	PROCEDURE Lb_logoff.MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.FontBold=.T.
		
	ENDPROC

	PROCEDURE Lb_logoff.MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.FontBold=.F.
	ENDPROC

	PROCEDURE Lb_numeutilizator.Click
		Thisform.do_schimba_util()
	ENDPROC

	PROCEDURE Lb_numeutilizator.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.ForeColor=RGB(128,0,128)
	ENDPROC

	PROCEDURE Lb_numeutilizator.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.ForeColor=RGB(0,0,128)
	ENDPROC

	PROCEDURE Pgf_optiuni1.Page2.Activate
		 
	ENDPROC

	PROCEDURE tmrProgressBar.Timer
		*!* 21.10.2014
		*!* marius.mutu
		*!* am mutat SYN_NEWSCHEMAPOST in SYN_NEWSCHEMA si nu o mai apelez separat
		
		Local lcProgress, lcSchema, lcSql, lnSucces, lcEndTime
		Private pcSchema, pnLuna, pnAn
		pcSchema = Alltrim(_Screen.cNewSchema)
		pnAn = _screen.nNewSchemaAn
		pnLuna = _screen.nNewSchemaLuna
		lcStartTime = _screen.cTime
		lcEndTime = ""
		
		lcStare = "Creare firma " + m.pcSchema
		lcProgress = ""
		lcSql = [SYN_NEWSCHEMAPROGRESS(?pcSchema)]
		lnSucces = goExecutor.oFunction2Value(m.lcSql, @lcProgress)
		lcProgress = UPPER(Nvl(m.lcProgress, ''))
		llEnabled = (lnSucces > 0)
		IF m.lcProgress = 'FINALIZAT'
			lcEndTime = TIME()
		
			This.Enabled = .F.
		*!*		Thisform.ProgressBar.ctlPlay = .F.
		*!*		Thisform.ProgressBar.ctlVisible = .F.
			
			*** aduc aplicatia in fata
			If _Screen.WindowState=1
				IF TYPE('Thisform.oobjsystray') = 'O'
					Thisform.oobjsystray.icondblclickevent()
				ELSE
					_Screen.WindowState =  0
					_Screen.Show()
				ENDIF 
			ENDIF 		
			
		*!*		*** SCRIPTURI POST IMPORT (CALENDAR, SAL_CALENDAR, COTE_TVA, PLCONT)
		
		*!*		lcSql = [BEGIN SYN_NEWSCHEMAPOST(?pcSchema, ?pnLuna, ?pnAn); END;]
		*!*		lnSucces = goExecutor.oExecuta(m.lcSql)
			
			AMESSAGEBOX('S-a creat firma ' + m.pcSchema + CHR(13) + CHR(10) + ;
				'Puteți da drepturi utilizatorilor pe noua firmă!',0+64, 'Firma noua')
		ELSE 
			This.Enabled = m.llEnabled
		*!*		Thisform.ProgressBar.ctlPlay = m.llEnabled
		*!*		Thisform.ProgressBar.ctlMarquee = 1
		*!*		Thisform.ProgressBar.ctlVisible = m.llEnabled
		ENDIF 
		Thisform.lblProgressbar.Visible = m.llEnabled
		lcStare = m.lcStare + " * " + m.lcStartTime + '-' + IIF(!EMPTY(m.lcEndTime), m.lcEndTime, TIME()) + " * " + Nvl(m.lcProgress, '')
		Thisform.lblProgressbar.Caption = lcStare
		If !m.llEnabled
			AMESSAGEBOX(m.lcStare + Chr(13) + Chr(10) + goExecutor.cEroare,0+16,_Screen.Caption)
		ENDIF
		
	ENDPROC

ENDDEFINE