Marius Mutu
b241a639b1
Binarele VFP raman pe SVN si sunt git-ignored; COMUN e gestionat separat. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01A5okKjUKMM5Xk1egq2w81P
295 lines
8.1 KiB
Plaintext
295 lines
8.1 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (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<69>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<61>", ;
|
||
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
|