*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_update.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _frmbase1 AS _frmbase 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="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Mygridimagecontainer1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdActualizeaza" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_progressbar1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: lshow
	*</DefinedPropArrayMethod>

	*<PropValue>
		Desktop = .T.
		DoCreate = .T.
		Height = 393
		lshow = .F.
		Name = "_frmbase1"
		Width = 458
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 492
		_shape2.Height = 29
		_shape2.Left = 427
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 34
		Lb_titlu_alb_b121.Caption = "Lista cu actualizările disponibile"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 429
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 0
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_progressbar1' AS _progressbar WITH ;
		Left = 60, ;
		Name = "_progressbar1", ;
		Top = 325, ;
		Shape5.Name = "Shape5", ;
		shpThermBar.Name = "shpThermBar", ;
		lblPercentage.Name = "lblPercentage", ;
		lblPercentage2.Name = "lblPercentage2", ;
		Shape1.Name = "Shape1", ;
		shape2.Name = "shape2", ;
		Shape3.Name = "Shape3", ;
		Shape4.Name = "Shape4"
		*< END OBJECT: ClassLib="..\comun\clase\_therm.vcx" BaseClass="container" />

	ADD OBJECT 'cmdActualizeaza' AS commandbutton WITH ;
		BackColor = 255,255,255, ;
		Caption = "Actualizează", ;
		FontCharSet = 238, ;
		Height = 27, ;
		Left = 348, ;
		Name = "cmdActualizeaza", ;
		Top = 360, ;
		Width = 84
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Edit1' AS editbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		FontSize = 9, ;
		Height = 36, ;
		Left = 12, ;
		Name = "Edit1", ;
		ScrollBars = 0, ;
		Top = 349, ;
		Visible = .T., ;
		Width = 264
		*< END OBJECT: BaseClass="editbox" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		AllowAutoColumnFit = 2, ;
		AllowCellSelection = .T., ;
		AllowHeaderSizing = .F., ;
		AllowRowSizing = .F., ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Enabled = .T., ;
		GridLines = 0, ;
		HeaderHeight = 0, ;
		Height = 264, ;
		Highlight = .F., ;
		HighlightForeColor = 168,177,202, ;
		HighlightRow = .F., ;
		HighlightRowLineWidth = 0, ;
		HighlightStyle = 0, ;
		Left = 12, ;
		MousePointer = 15, ;
		Name = "Grid1", ;
		Panel = 1, ;
		RecordMark = .F., ;
		RecordSource = "cProgrameUpdate", ;
		RowHeight = 28, ;
		ScrollBars = 2, ;
		ToolTipText = "", ;
		Top = 48, ;
		Width = 432, ;
		Column1.ControlSource = "ales", ;
		Column1.Enabled = .T., ;
		Column1.Name = "Column1", ;
		Column1.Sparse = .F., ;
		Column1.Width = 25, ;
		Column2.ControlSource = "imagine", ;
		Column2.Enabled = .T., ;
		Column2.Name = "Column2", ;
		Column2.Sparse = .F., ;
		Column2.Width = 29, ;
		Column3.Alignment = 0, ;
		Column3.ControlSource = "proper(explicatie)", ;
		Column3.DynamicBackColor = "255,255,255", ;
		Column3.DynamicFontSize = "9", ;
		Column3.Enabled = .T., ;
		Column3.Name = "Column3", ;
		Column3.Sparse = .F., ;
		Column3.Width = 316, ;
		Column4.ControlSource = "versiune", ;
		Column4.Enabled = .T., ;
		Column4.ForeColor = 97,87,219, ;
		Column4.Name = "Column4", ;
		Column4.Sparse = .F., ;
		Column4.Width = 45
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.Column1.Check1' AS checkbox WITH ;
		Alignment = 2, ;
		BackStyle = 0, ;
		Caption = "", ;
		Centered = .T., ;
		ControlSource = "ales", ;
		Enabled = .T., ;
		Height = 17, ;
		Left = 35, ;
		Name = "Check1", ;
		SpecialEffect = 1, ;
		Top = 29, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Mygridimagecontainer1' AS mygridimagecontainer WITH ;
		Enabled = .T., ;
		Left = 43, ;
		Name = "Mygridimagecontainer1", ;
		Top = 29, ;
		Image1.Name = "Image1"
		*< END OBJECT: ClassLib="..\clase\ostart.vcx" BaseClass="container" />

	ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		DisabledForeColor = 0,0,0, ;
		Enabled = .F., ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		DisabledForeColor = 97,87,219, ;
		Enabled = .F., ;
		ForeColor = 97,87,219, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		thisform.grid1.DoScroll(2)
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		
	ENDPROC

	PROCEDURE cmdActualizeaza.Click
		#Define crlf Chr(13)+Chr(10)
		Thisform.cmdActualizeaza.Enabled=.F.
		iniHandler=Createobject("iniaccess")
		LOCAL loUpdates
		loUpdates=createobject("oUpdate",IIF(Reccount('crsserverinfo') = 0,[],Alltrim(crsserverinfo.Value)),Thisform.edit1)
		IF TYPE('loUpdates') = 'O'
		*!*	modificare v 2.0.6
		*!*	If used("SERVER_INFO")
		*!*	Use in SERVER_INFO
		*!*	EndIf
		*!*	modificare v 2.0.6	^
		Thisform.grid1.Enabled=.F.
		Select cProgrameUpdate
		Calculate Cnt() For ales=1 To lntotal
		lcOldAllowConfirm=iniHandler.getAllowConfirm()
		iniHandler.setAllowConfirm("False")
		i=0
		Scan
			i=i+1
			If(ales=1)
				loUpdates.updatecheck(Alltrim(cProgrameUpdate.nume),.F.,0)
			Endif
			Thisform._progressbar1.Update(i*100/lntotal)
			Delete
			Thisform.grid1.Refresh
		
		ENDSCAN
		RELEASE loUpdates
		ENDIF
		Thisform._progressbar1.Complete()
		Wait " " Timeout 1
		If lcOldAllowConfirm
			iniHandler.setAllowConfirm("True")
		Else
			iniHandler.setAllowConfirm("False")
		Endif
		Release iniHandler
		*write to Log
		LogStream=""
		LogStream=Thisform.edit1.Value
		If LogStream<>""
			lnNrOfLines = Alines(LogLines,LogStream)
			LogStream=""
			For contor = 1 To lnNrOfLines
				LogStream=LogStream+Dtoc(Date())+" "+Time()+"   > "+ LogLines(contor) + crlf
			Endfor
		*!*		Strtofile(LogStream,gcDirMare+"updates.log",1)
			polog.Log(LogStream, Program())
		ENDIF 
		Thisform.Release
		
	ENDPROC

	PROCEDURE Grid1.MouseDown
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		
		
	ENDPROC

ENDDEFINE

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