*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_iniconfig.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_iniupdate AS formtermin 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="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmb_Default" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txt_NetworkPath" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txt_URL" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txt_utilizator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txt_parola" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		Desktop = .T.
		DoCreate = .T.
		Height = 191
		Name = "frm_iniupdate"
		Width = 614
		_shape1.Anchor = 11
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 615
		_shape2.Height = 29
		_shape2.Left = 553
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Anchor = 0
		Lb_titlu_alb_b121.Caption = "Configurare actualizări"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 584
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 9, ;
		Left = 554, ;
		Name = "But_renunt1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmb_Default' AS combobox WITH ;
		FontCharSet = 238, ;
		Height = 24, ;
		Left = 125, ;
		Name = "cmb_Default", ;
		Style = 2, ;
		TabIndex = 3, ;
		Top = 107, ;
		Width = 196
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 9, ;
		BackColor = 255,255,255, ;
		Caption = "...", ;
		Height = 20, ;
		Left = 589, ;
		Name = "Command1", ;
		Top = 48, ;
		Width = 24
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackColor = 255,255,255, ;
		Caption = "Rețea locală :", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 25, ;
		Name = "Label1", ;
		Top = 50, ;
		Width = 77
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		BackColor = 255,255,255, ;
		Caption = "Internet :", ;
		Height = 17, ;
		Left = 25, ;
		Name = "Label2", ;
		Top = 82, ;
		Width = 56
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Metoda implicită :", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 25, ;
		Name = "Label3", ;
		Top = 110, ;
		Width = 97
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		BackColor = 255,255,255, ;
		Caption = "Utilizator :", ;
		Height = 17, ;
		Left = 25, ;
		Name = "Label4", ;
		Top = 139, ;
		Width = 57
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		BackColor = 255,255,255, ;
		Caption = "Parolă :", ;
		FontCharSet = 238, ;
		Height = 17, ;
		Left = 25, ;
		Name = "Label5", ;
		Top = 167, ;
		Width = 45
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'txt_NetworkPath' AS textbox WITH ;
		Anchor = 10, ;
		Height = 23, ;
		Left = 125, ;
		Name = "txt_NetworkPath", ;
		TabIndex = 1, ;
		Top = 47, ;
		Width = 457
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txt_parola' AS textbox WITH ;
		Height = 23, ;
		Left = 125, ;
		Name = "txt_parola", ;
		TabIndex = 5, ;
		Top = 163, ;
		Width = 457
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txt_URL' AS textbox WITH ;
		Anchor = 10, ;
		Height = 23, ;
		Left = 125, ;
		Name = "txt_URL", ;
		TabIndex = 2, ;
		Top = 77, ;
		Width = 457
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txt_utilizator' AS textbox WITH ;
		Height = 23, ;
		Left = 125, ;
		Name = "txt_utilizator", ;
		TabIndex = 4, ;
		Top = 136, ;
		Width = 196
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		
		
	ENDPROC

	PROCEDURE do_termin
		inihandler = Createobject("iniaccess")
		inihandler.setNetworkPath(Alltrim(Thisform.txt_NetworkPath.Value))
		inihandler.setURL(Alltrim(Thisform.txt_URL.Value))
		inihandler.setUsername(ALLTRIM(Thisform.txt_utilizator.Value))
		inihandler.setPasswordDirect(ALLTRIM(Thisform.txt_parola.Value))
		
		If(Thisform.cmb_Default.ListIndex=1)
			inihandler.SetDefault("NetworkPath")
		Else
			inihandler.SetDefault("URL")
		Endif
		
		Release inihandler
		DoDefault()
		
	ENDPROC

	PROCEDURE Init
		DoDefault()
		This.cmb_Default.AddItem("Rețea locală",1)
		This.cmb_Default.AddItem("Internet",2)
		inihandler = Createobject("iniaccess")
		
		This.txt_NetworkPath.Value=inihandler.getNetworkPath()
		This.txt_URL.Value=inihandler.getURL()
		This.txt_utilizator.Value=inihandler.getUsername()
		This.txt_parola.Value=inihandler.getPasswordDirect()
		
		If(inihandler.getDefault()="NetworkPath")
			This.cmb_Default.ListIndex=1
		Else
			This.cmb_Default.ListIndex=2
		Endif
		Release inihandler
		
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		IF nKeyCode=13
		thisform.Do_termin()
		ENDIF
		
	ENDPROC

	PROCEDURE Command1.Click
		pathString=GETDIR(thisform.txt_NetworkPath.Value,"Introduceti calea din reteaua locala catre update-uri","Actualizari locale",64)
		IF pathString#"" 
		thisform.txt_NetworkPath.Value=LOWER(pathString)
		ENDIF
		
		
	ENDPROC

	PROCEDURE txt_NetworkPath.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
	ENDPROC

ENDDEFINE