1359 lines
41 KiB
Plaintext
1359 lines
41 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000-2.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS afgest AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Barabut1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="GRID1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 377
|
|
Name = "afgest"
|
|
Width = 336
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
|
Height = 35, ;
|
|
Left = 0, ;
|
|
Name = "Banda21", ;
|
|
Top = 0, ;
|
|
Width = 454
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Barabut1' AS barabut WITH ;
|
|
Height = 35, ;
|
|
Left = 238, ;
|
|
Name = "Barabut1", ;
|
|
Top = 0, ;
|
|
Width = 105, ;
|
|
Terminat1.Command1.Name = "Command1", ;
|
|
Terminat1.Imbuton1.Height = 27, ;
|
|
Terminat1.Imbuton1.Name = "Imbuton1", ;
|
|
Terminat1.Imbuton1.Width = 30, ;
|
|
Terminat1.Left = 65, ;
|
|
Terminat1.Name = "Terminat1", ;
|
|
Terminat1.Top = 3, ;
|
|
List1.Command1.Name = "Command1", ;
|
|
List1.Imbuton1.Height = 27, ;
|
|
List1.Imbuton1.Name = "Imbuton1", ;
|
|
List1.Imbuton1.Width = 30, ;
|
|
List1.Left = 143, ;
|
|
List1.Name = "List1", ;
|
|
List1.Top = -3, ;
|
|
Excel1.Command1.Name = "Command1", ;
|
|
Excel1.Imbuton1.Height = 27, ;
|
|
Excel1.Imbuton1.Name = "Imbuton1", ;
|
|
Excel1.Imbuton1.Width = 30, ;
|
|
Excel1.Left = 142, ;
|
|
Excel1.Name = "Excel1", ;
|
|
Excel1.Top = 3, ;
|
|
Modifica1.Command1.Name = "Command1", ;
|
|
Modifica1.Imbuton1.Height = 27, ;
|
|
Modifica1.Imbuton1.Name = "Imbuton1", ;
|
|
Modifica1.Imbuton1.Width = 30, ;
|
|
Modifica1.Left = 156, ;
|
|
Modifica1.Name = "Modifica1", ;
|
|
Modifica1.Top = 0, ;
|
|
Sterge1.Command1.Name = "Command1", ;
|
|
Sterge1.Imbuton1.Height = 27, ;
|
|
Sterge1.Imbuton1.Name = "Imbuton1", ;
|
|
Sterge1.Imbuton1.Width = 30, ;
|
|
Sterge1.Left = 34, ;
|
|
Sterge1.Name = "Sterge1", ;
|
|
Sterge1.Top = 3, ;
|
|
Nou1.Command1.Name = "Command1", ;
|
|
Nou1.Imbuton1.Height = 27, ;
|
|
Nou1.Imbuton1.Name = "Imbuton1", ;
|
|
Nou1.Imbuton1.Width = 30, ;
|
|
Nou1.Left = 3, ;
|
|
Nou1.Name = "Nou1", ;
|
|
Nou1.Top = 3
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
|
Left = 396, ;
|
|
Name = "CMDTERMIN1", ;
|
|
Top = 312, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 3, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Command1' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Enabled = .T., ;
|
|
Height = 27, ;
|
|
Left = 396, ;
|
|
Name = "Command1", ;
|
|
Picture = ..\..\contab\grafice\delete.bmp, ;
|
|
ToolTipText = "Eliminati o gestiune ", ;
|
|
Top = 276, ;
|
|
Visible = .F., ;
|
|
Width = 84
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Command2' AS commandbutton WITH ;
|
|
Caption = "", ;
|
|
Height = 27, ;
|
|
Left = 396, ;
|
|
Name = "Command2", ;
|
|
Picture = ..\..\contab\grafice\new.bmp, ;
|
|
ToolTipText = "Introduceti o noua gestiune", ;
|
|
Top = 240, ;
|
|
Visible = .F., ;
|
|
Width = 84
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'GRID1' AS gridb WITH ;
|
|
BackColor = 249,252,255, ;
|
|
ColumnCount = 2, ;
|
|
Height = 300, ;
|
|
Left = 10, ;
|
|
listaord = 1,2, ;
|
|
Name = "GRID1", ;
|
|
ordine = 1, ;
|
|
Panel = 1, ;
|
|
ReadOnly = .F., ;
|
|
RecordSource = "NUMEGEST", ;
|
|
Top = 57, ;
|
|
Width = 312, ;
|
|
Column1.BackColor = 249,252,255, ;
|
|
Column1.ControlSource = "NUMEGEST", ;
|
|
Column1.FontName = "Arial Narrow", ;
|
|
Column1.Header1.Alignment = 2, ;
|
|
Column1.Header1.Caption = "Denumirea gestiunii", ;
|
|
Column1.Header1.FontName = "Arial Narrow", ;
|
|
Column1.Header1.Name = "Header1", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .F., ;
|
|
Column1.Text1.BackColor = 249,252,255, ;
|
|
Column1.Text1.FontName = "Arial Narrow", ;
|
|
Column1.Text1.Name = "Text1", ;
|
|
Column1.Text1.ReadOnly = .F., ;
|
|
Column1.Width = 205, ;
|
|
Column2.Alignment = 2, ;
|
|
Column2.BackColor = 249,252,255, ;
|
|
Column2.ControlSource = "GEST", ;
|
|
Column2.FontName = "Arial Narrow", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .F.
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="grid" />
|
|
|
|
ADD OBJECT 'GRID1.Column2.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Indicativ", ;
|
|
FontName = "Arial Narrow", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'GRID1.Column2.Text1' AS textbox WITH ;
|
|
Alignment = 2, ;
|
|
BackColor = 249,252,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial Narrow", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
|
Caption = "GESTIUNI", ;
|
|
Height = 37, ;
|
|
Left = 11, ;
|
|
Name = "Titlufrumos1", ;
|
|
Top = 8, ;
|
|
Width = 178
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE Init
|
|
*!* sele numegest
|
|
*!* set order to tag numegest
|
|
*!* go top
|
|
ENDPROC
|
|
|
|
PROCEDURE Barabut1.Nou1.Command1.Click
|
|
THISFORM.COMMand2.Click
|
|
ENDPROC
|
|
|
|
PROCEDURE Barabut1.Sterge1.Command1.Click
|
|
THISFORM.COMMand1.Click
|
|
ENDPROC
|
|
|
|
PROCEDURE Command1.Click
|
|
sele numegest
|
|
scatter memvar
|
|
|
|
sele MF
|
|
loca for gest=m.gest
|
|
if found()
|
|
do mesajrosu with 'In gestiunea '+alltrim(m.numegest),'exista inregistrari! Nu se poate elimina!'
|
|
else
|
|
sele numegest
|
|
dele
|
|
go top
|
|
thisform.grid1.refresh
|
|
endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Command2.Click
|
|
LOCAL maxi
|
|
maxi=0
|
|
|
|
SELE numegest
|
|
SCAN
|
|
IF gest>maxi
|
|
maxi=gest
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
IF maxi<999
|
|
APPE BLANK
|
|
REPL gest WITH maxi+1
|
|
REPL numegest WITH " Gestiune Noua"
|
|
ENDIF
|
|
|
|
THISFORM.grid1.REFRESH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE GRID1.Column1.Header1.Click
|
|
sele numegest
|
|
set order to tag numegest
|
|
go top
|
|
this.Parent.Parent.column2.header1.FontUnderline=.f.
|
|
this.FontUnderline=.t.
|
|
thisform.Refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE GRID1.Column2.Header1.Click
|
|
this.Parent.Parent.headerclick(this.Parent.ColumnOrder)
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS help_leg AS help_tree OF "cont2000-2.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Urmator1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Precedent1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 477
|
|
Name = "help_leg"
|
|
Width = 304
|
|
Shape2.BackStyle = 0
|
|
Shape2.Height = 415
|
|
Shape2.Left = 311
|
|
Shape2.Name = "Shape2"
|
|
Shape2.Top = 52
|
|
Shape2.Width = 445
|
|
Shape2.ZOrderSet = 1
|
|
Shape1.BackStyle = 0
|
|
Shape1.Height = 415
|
|
Shape1.Left = 9
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 52
|
|
Shape1.Width = 291
|
|
Shape1.ZOrderSet = 2
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 3
|
|
Label10.Caption = "Ajutor legislativ"
|
|
Label10.Left = 456
|
|
Label10.Name = "Label10"
|
|
Label10.Top = 0
|
|
Label10.Visible = .F.
|
|
Label10.ZOrderSet = 0
|
|
oleImagesList.Height = 45
|
|
oleImagesList.Left = 588
|
|
oleImagesList.Name = "oleImagesList"
|
|
oleImagesList.Top = 23
|
|
oleImagesList.Width = 65
|
|
oleImagesList.ZOrderSet = 4
|
|
oleTreeview.Height = 345
|
|
oleTreeview.Left = 24
|
|
oleTreeview.Name = "oleTreeview"
|
|
oleTreeview.Top = 80
|
|
oleTreeview.Width = 261
|
|
oleTreeview.ZOrderSet = 5
|
|
CMDTERMIN1.Command1.Name = "Command1"
|
|
CMDTERMIN1.Height = 32
|
|
CMDTERMIN1.Imbuton1.Height = 29
|
|
CMDTERMIN1.Imbuton1.Name = "Imbuton1"
|
|
CMDTERMIN1.Imbuton1.Width = 27
|
|
CMDTERMIN1.Left = 25
|
|
CMDTERMIN1.Name = "CMDTERMIN1"
|
|
CMDTERMIN1.Top = 431
|
|
CMDTERMIN1.Width = 33
|
|
CMDTERMIN1.ZOrderSet = 15
|
|
Edit1.BackColor = 240,248,255
|
|
Edit1.ControlSource = "helpleg.expli"
|
|
Edit1.DisabledBackColor = 244,252,255
|
|
Edit1.Height = 357
|
|
Edit1.Left = 328
|
|
Edit1.Name = "Edit1"
|
|
Edit1.SpecialEffect = 2
|
|
Edit1.Top = 70
|
|
Edit1.Width = 416
|
|
Edit1.ZOrderSet = 6
|
|
Label2.BackColor = 255,255,255
|
|
Label2.FontName = "Comic Sans MS"
|
|
Label2.ForeColor = 0,54,108
|
|
Label2.Left = 24
|
|
Label2.Name = "Label2"
|
|
Label2.Top = 45
|
|
Label2.ZOrderSet = 7
|
|
Label1.BackColor = 255,255,255
|
|
Label1.FontName = "Comic Sans MS"
|
|
Label1.ForeColor = 0,54,108
|
|
Label1.Left = 330
|
|
Label1.Name = "Label1"
|
|
Label1.Top = 45
|
|
Label1.ZOrderSet = 8
|
|
Image1.Left = 108
|
|
Image1.Name = "Image1"
|
|
Image1.Top = 432
|
|
Image1.Visible = .F.
|
|
Image1.ZOrderSet = 9
|
|
Image2.Left = 144
|
|
Image2.Name = "Image2"
|
|
Image2.Top = 430
|
|
Image2.Visible = .F.
|
|
Image2.ZOrderSet = 10
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
|
Height = 31, ;
|
|
Left = 0, ;
|
|
Name = "Banda21", ;
|
|
Top = 0, ;
|
|
Width = 804, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Precedent1' AS precedent WITH ;
|
|
Left = 329, ;
|
|
Name = "Precedent1", ;
|
|
Top = 431, ;
|
|
ZOrderSet = 14, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
|
Caption = "AJUTOR LEGISLATIV", ;
|
|
FontSize = 11, ;
|
|
Left = 15, ;
|
|
Name = "Titlufrumos1", ;
|
|
Top = 4, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Urmator1' AS urmator WITH ;
|
|
Left = 252, ;
|
|
Name = "Urmator1", ;
|
|
Top = 431, ;
|
|
ZOrderSet = 13, ;
|
|
Imbuton1.Height = 27, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 30, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE Activate
|
|
SELE HELPleg
|
|
set order to tag nrnod
|
|
THISFORM.FILLTREE
|
|
ENDPROC
|
|
|
|
PROCEDURE filltree
|
|
LOCAL O
|
|
|
|
SELECT HELPleg
|
|
O=THISFORM.OLETREEVIEW.NODES
|
|
|
|
SCAN FOR !DELETED()
|
|
IF NRTATA=0
|
|
O.ADD(,,,ALLT(TITLU),TATAFIU)
|
|
ELSE
|
|
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image1.Click
|
|
thisform.width=768
|
|
thisform.autocenter=.t.
|
|
*thisform.image2.visible=.t.
|
|
thisform.refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image2.Click
|
|
thisform.width=310
|
|
thisform.autocenter=.t.
|
|
thisform.refresh
|
|
this.visible=.f.
|
|
ENDPROC
|
|
|
|
PROCEDURE oleTreeview.NodeClick
|
|
*** OLE Control Event ***
|
|
LPARAMETERS node
|
|
LOCAL TX
|
|
TX=THIS.SelectedItem.INDEX
|
|
SELE HELPleg
|
|
LOCA FOR NRNOD=TX
|
|
THISFORM.EDIT1.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Precedent1.Command1.Click
|
|
THISFORM.IMAGE2.Click
|
|
ENDPROC
|
|
|
|
PROCEDURE Urmator1.Command1.Click
|
|
THISFORM.IMAGE1.Click
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS help_plcont AS ffergen OF "..\..\mfix2000\clase\ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="LabelNume" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
Caption = ""
|
|
Closable = .T.
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Height = 475
|
|
Name = "help_plcont"
|
|
Width = 662
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 3
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Left = 548, ;
|
|
Name = "Cmdtermin1", ;
|
|
Top = 443, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Edit1' AS editbox WITH ;
|
|
BackColor = 248,247,224, ;
|
|
ControlSource = "helpcont.expli", ;
|
|
DisabledBackColor = 248,247,224, ;
|
|
DisabledForeColor = 0,0,0, ;
|
|
Height = 349, ;
|
|
Left = 322, ;
|
|
Name = "Edit1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 77, ;
|
|
Width = 309, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
BackColor = 248,247,224, ;
|
|
ColumnCount = 2, ;
|
|
DeleteMark = .F., ;
|
|
FontName = "Arial", ;
|
|
GridLines = 0, ;
|
|
Height = 328, ;
|
|
Left = 28, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "helpcont", ;
|
|
Top = 85, ;
|
|
Width = 240, ;
|
|
ZOrderSet = 6, ;
|
|
Column1.BackColor = 248,247,224, ;
|
|
Column1.ControlSource = "cont", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.Name = "Column1", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 36, ;
|
|
Column2.BackColor = 248,247,224, ;
|
|
Column2.ControlSource = "denumire", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.Name = "Column2", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 174
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
|
|
BackColor = 248,247,224, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
|
|
BackColor = 248,247,224, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "EXPLICATII", ;
|
|
Height = 17, ;
|
|
Left = 325, ;
|
|
Name = "Label1", ;
|
|
Top = 54, ;
|
|
Width = 64
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'LabelNume' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "PLANUL GENERAL DE CONTURI", ;
|
|
FontBold = .T., ;
|
|
FontName = "BankGothic Md BT", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 12, ;
|
|
Name = "LabelNume", ;
|
|
TabIndex = 4, ;
|
|
Top = 11, ;
|
|
Width = 275, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
|
|
ErasePage = .T., ;
|
|
Height = 375, ;
|
|
Left = 16, ;
|
|
Name = "Pageframe1", ;
|
|
PageCount = 9, ;
|
|
TabStyle = 1, ;
|
|
Top = 50, ;
|
|
Width = 264, ;
|
|
ZOrderSet = 2, ;
|
|
Page1.Caption = "1", ;
|
|
Page1.Name = "Page1", ;
|
|
Page2.Caption = "2", ;
|
|
Page2.Name = "Page2", ;
|
|
Page3.Caption = "3", ;
|
|
Page3.Name = "Page3", ;
|
|
Page4.Caption = "4", ;
|
|
Page4.Name = "Page4", ;
|
|
Page5.Caption = "5", ;
|
|
Page5.Name = "Page5", ;
|
|
Page6.Caption = "6", ;
|
|
Page6.Name = "Page6", ;
|
|
Page7.Caption = "7", ;
|
|
Page7.Name = "Page7", ;
|
|
Page8.Caption = "8", ;
|
|
Page8.Name = "Page8", ;
|
|
Page9.Caption = " ", ;
|
|
Page9.Name = "Page9"
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 395, ;
|
|
Left = 3, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 41, ;
|
|
Width = 291, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Height = 395, ;
|
|
Left = 305, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 41, ;
|
|
Width = 343, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
PROCEDURE Init
|
|
|
|
sele helpcont
|
|
ENDPROC
|
|
|
|
PROCEDURE Release
|
|
sele helpcont
|
|
use
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.AfterRowColChange
|
|
LPARAMETERS nColIndex
|
|
thisform.edit1.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Init
|
|
public s
|
|
s=' '
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page1.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page2.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page3.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page4.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page5.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page6.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page7.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page8.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Page9.Click
|
|
S=THIS.CAPTION
|
|
THISFORM.REFRESH
|
|
ENDPROC
|
|
|
|
PROCEDURE Pageframe1.Refresh
|
|
IF S==" " THEN
|
|
SET FILTER TO
|
|
ELSE
|
|
set filter to left(cont,1)==S
|
|
ENDIF
|
|
GO TOP
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS help_pltree AS ffergen OF "ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: filltree
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 412
|
|
Name = "help_pltree"
|
|
Width = 664
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 2
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Left = 569, ;
|
|
Name = "Cmdtermin1", ;
|
|
Top = 377, ;
|
|
ZOrderSet = 6
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Edit1' AS editbox WITH ;
|
|
BackColor = 248,247,224, ;
|
|
ControlSource = "helpcont.expli", ;
|
|
DisabledBackColor = 248,247,224, ;
|
|
DisabledForeColor = 0,0,0, ;
|
|
Height = 300, ;
|
|
Left = 328, ;
|
|
Name = "Edit1", ;
|
|
ReadOnly = .T., ;
|
|
Top = 60, ;
|
|
Width = 309, ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: BaseClass="editbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "EXPLICATII", ;
|
|
Height = 17, ;
|
|
Left = 330, ;
|
|
Name = "Label1", ;
|
|
Top = 43, ;
|
|
Width = 64, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label10' AS label WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
Caption = "PLANUL GENERAL DE CONTURI", ;
|
|
FontBold = .T., ;
|
|
FontName = "", ;
|
|
FontShadow = .F., ;
|
|
FontSize = 12, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 22, ;
|
|
Left = 12, ;
|
|
Name = "Label10", ;
|
|
TabIndex = 21, ;
|
|
Top = 6, ;
|
|
Width = 275, ;
|
|
ZOrderSet = 3
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
Caption = "TITLURI", ;
|
|
Height = 17, ;
|
|
Left = 24, ;
|
|
Name = "Label2", ;
|
|
Top = 42, ;
|
|
Width = 47, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
|
|
Height = 45, ;
|
|
Left = 588, ;
|
|
Name = "oleImagesList", ;
|
|
Top = 0, ;
|
|
Width = 65, ;
|
|
ZOrderSet = 4
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDTAJAWk78BAwAAAEADAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAASgIAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQAiAAAAEAAQAMDAwAD/////Ae/NqwAABQCAxZSCcgT///////8FAACAAAAAAAIAAAAAAAIAAAABAAAAbHQAAPYAAABCTfYAAAAAAAAAdgAAACgAAAAQAAAAEAAAAAEABAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////8A////////AIUP/////wCH91D///8Ah/+HdQ//8If/iAh3UP/1j4gAUId1D/WIAFVVCHdQ9QBVVVVQh3UFhVVbNVUIcA9YVVV7tVCA//WFUzW7VQD//1hVu7NVUP//9YVVVVUA////WFVVAP/////1hQD///////9Q////8CAAAAbHQAAN4AAABCTd4AAAAAAAAAdgAAACgAAAANAAAADQAAAAEABAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////////8ADwAAAAAA/wAPD/////D/AA8P////8P8ADw/0RE/w/wAPD/////D/AA8P9ERP8P8ADw/////w/wAPD/RE8AD/AA8P///wgP8ADw////AP/wAPAAAAAP//AA////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAEltYWdlSGVpZ2h0AAkAAABJCgAAABAAAAALAAAASW1hZ2VXaWR0aAAJAAAASQoAAAAQAAAAAAAA//////////9mbu7u7u7/////////////Zu7u7u7//////////////2bu7u7///////////////9m7u7/////////////////bu7//////////////////27/////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
|
|
|
|
ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
|
|
Height = 300, ;
|
|
Left = 24, ;
|
|
Name = "oleTreeview", ;
|
|
Top = 60, ;
|
|
Width = 261, ;
|
|
ZOrderSet = 5
|
|
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDTAJAWk78BAwAAAMABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAFQAAAAAAAAAAwAAAAIAAAD+////BQAAAAYAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAD6GgAAAh8AAI5+4eYCAAUAQAAAAMT+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABUPoIABgCCAAAAAAAFAACA5nArIA0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAAAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAYAAPS2lIIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU3R5bGUACQAAAEkKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
Height = 343, ;
|
|
Left = 9, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 29, ;
|
|
Width = 291, ;
|
|
ZOrderSet = 1
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
Height = 343, ;
|
|
Left = 311, ;
|
|
Name = "Shape2", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 29, ;
|
|
Width = 343, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
PROCEDURE Activate
|
|
|
|
thisform.filltree
|
|
ENDPROC
|
|
|
|
PROCEDURE filltree
|
|
LOCAL I
|
|
|
|
o=thisform.oletreeview.nodes
|
|
|
|
o.add(,,,'CLASA 1',1)
|
|
o.add(,,,'CLASA 2',1)
|
|
o.add(,,,'CLASA 3',1)
|
|
o.add(,,,'CLASA 4',1)
|
|
o.add(,,,'CLASA 5',1)
|
|
o.add(,,,'CLASA 6',1)
|
|
o.add(,,,'CLASA 7',1)
|
|
|
|
SELE HELPCONT
|
|
FOR I=1 TO 8
|
|
SCAN FOR LEFT(CONT,1)=STR(I,1)
|
|
o.add(I,4,,CONT+' '+DENUMIRE,2)
|
|
ENDSCAN
|
|
NEXT
|
|
ENDPROC
|
|
|
|
PROCEDURE oleTreeview.NodeClick
|
|
*** OLE Control Event ***
|
|
LPARAMETERS node
|
|
LOCAL TX
|
|
TX=LEFT(THIS.SelectedItem.TEXT,4)
|
|
SELE HELPCONT
|
|
LOCA FOR LEFT(CONT,4)=TX
|
|
THISFORM.EDIT1.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS help_tree AS help_pltree OF "cont2000-2.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
|
|
|
*<PropValue>
|
|
AutoCenter = .T.
|
|
DoCreate = .T.
|
|
Height = 415
|
|
Name = "help_tree"
|
|
Width = 310
|
|
Shape2.Name = "Shape2"
|
|
Shape1.Name = "Shape1"
|
|
Line1.Name = "Line1"
|
|
Label10.Caption = "Instructiuni de utilizare a programului"
|
|
Label10.FontSize = 12
|
|
Label10.Left = 6
|
|
Label10.Name = "Label10"
|
|
Label10.Top = 6
|
|
oleImagesList.Height = 45
|
|
oleImagesList.Left = 588
|
|
oleImagesList.Name = "oleImagesList"
|
|
oleImagesList.Top = 0
|
|
oleImagesList.Width = 65
|
|
oleTreeview.Height = 300
|
|
oleTreeview.Left = 24
|
|
oleTreeview.Name = "oleTreeview"
|
|
oleTreeview.Top = 60
|
|
oleTreeview.Width = 261
|
|
Cmdtermin1.Height = 32
|
|
Cmdtermin1.Left = 9
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 377
|
|
Edit1.ControlSource = "helpMENU.expli"
|
|
Edit1.Name = "Edit1"
|
|
Label2.Caption = "TITLURI"
|
|
Label2.Name = "Label2"
|
|
Label1.Name = "Label1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
Height = 32, ;
|
|
Left = 100, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\arw01rt.ico, ;
|
|
Stretch = 2, ;
|
|
Top = 377, ;
|
|
Width = 32
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Image2' AS image WITH ;
|
|
Height = 32, ;
|
|
Left = 311, ;
|
|
Name = "Image2", ;
|
|
Picture = ..\grafice\arw01lt.ico, ;
|
|
Stretch = 2, ;
|
|
Top = 377, ;
|
|
Width = 32
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
PROCEDURE Activate
|
|
SELE HELPMENU
|
|
set order to tag nrnod
|
|
THISFORM.FILLTREE
|
|
ENDPROC
|
|
|
|
PROCEDURE filltree
|
|
LOCAL O
|
|
|
|
SELECT HELPMENU
|
|
O=THISFORM.OLETREEVIEW.NODES
|
|
|
|
SCAN FOR !DELETED()
|
|
IF NRTATA=0
|
|
O.ADD(,,,ALLT(TITLU),TATAFIU)
|
|
ELSE
|
|
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
|
|
ENDIF
|
|
ENDSCAN
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image1.Click
|
|
thisform.width=667
|
|
thisform.autocenter=.t.
|
|
thisform.refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Image2.Click
|
|
thisform.width=310
|
|
thisform.autocenter=.t.
|
|
thisform.refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE oleTreeview.NodeClick
|
|
*** OLE Control Event ***
|
|
LPARAMETERS node
|
|
LOCAL TX
|
|
TX=THIS.SelectedItem.INDEX
|
|
SELE HELPMENU
|
|
LOCA FOR NRNOD=TX
|
|
THISFORM.EDIT1.REFRESH
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS parola AS ffergen OF "..\..\sal2003\clase\ferestrebaza.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtparola" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Banda21" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Titlufrumos1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: corect
|
|
*p: nrincerc
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 119
|
|
Name = "parola"
|
|
nrincerc = 1
|
|
Width = 273
|
|
Line1.Name = "Line1"
|
|
Line1.ZOrderSet = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Banda21' AS banda2 WITH ;
|
|
Height = 30, ;
|
|
Left = 0, ;
|
|
Name = "Banda21", ;
|
|
Top = 0, ;
|
|
Width = 241
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
|
Left = 243, ;
|
|
Name = "Cmdtermin1", ;
|
|
TabIndex = 2, ;
|
|
Top = 1, ;
|
|
Imbuton1.Height = 29, ;
|
|
Imbuton1.Name = "Imbuton1", ;
|
|
Imbuton1.Width = 27, ;
|
|
Command1.Name = "Command1"
|
|
*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Introduceti parola:", ;
|
|
Height = 17, ;
|
|
Left = 30, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 4, ;
|
|
Top = 63, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 69, ;
|
|
Left = 10, ;
|
|
Name = "Shape1", ;
|
|
SpecialEffect = 0, ;
|
|
Top = 39, ;
|
|
Width = 252, ;
|
|
ZOrderSet = 0
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Titlufrumos1' AS titlufrumos WITH ;
|
|
Caption = "PAROLA", ;
|
|
Height = 37, ;
|
|
Left = 5, ;
|
|
Name = "Titlufrumos1", ;
|
|
Top = 4, ;
|
|
Width = 189
|
|
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'txtparola' AS textbox WITH ;
|
|
ControlSource = "PAROLA", ;
|
|
Format = "k", ;
|
|
Height = 23, ;
|
|
Left = 141, ;
|
|
Name = "txtparola", ;
|
|
PasswordChar = "*", ;
|
|
TabIndex = 1, ;
|
|
Top = 58, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Init
|
|
buton=0
|
|
parola=''
|
|
|
|
SELECT PAR
|
|
parolaactiva = par
|
|
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdtermin1.Command1.Valid
|
|
if thisform.corect
|
|
buton=3
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE txtparola.Valid
|
|
IF THISFORM.nrincerc=3
|
|
THISFORM.RELEASE
|
|
ENDIF
|
|
|
|
IF UPPER(parola)#UPPER(parolaactiva)
|
|
DO mesajrosu WITH 'Parola nu este corecta!','Aveti dreptul la 3 incercari.'
|
|
THISFORM.nrincerc=THISFORM.nrincerc+1
|
|
RETURN 0
|
|
ENDIF
|
|
|
|
THISFORM.corect=.T.
|
|
corect=.T.
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS schimbparola AS parola OF "cont2000-2.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtparolanou" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtparolaver" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: parolanou
|
|
*p: parolaver
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 1
|
|
DoCreate = .T.
|
|
Height = 200
|
|
Name = "schimbparola"
|
|
parolanou =
|
|
parolaver =
|
|
Width = 316
|
|
Shape1.Height = 152
|
|
Shape1.Left = 10
|
|
Shape1.Name = "Shape1"
|
|
Shape1.Top = 37
|
|
Shape1.Width = 290
|
|
Line1.Name = "Line1"
|
|
Cmdtermin1.Command1.Name = "Command1"
|
|
Cmdtermin1.Imbuton1.Height = 29
|
|
Cmdtermin1.Imbuton1.Name = "Imbuton1"
|
|
Cmdtermin1.Imbuton1.Width = 27
|
|
Cmdtermin1.Left = 284
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.TabIndex = 4
|
|
Cmdtermin1.Top = 1
|
|
Label1.Caption = "Introduceti parola veche:"
|
|
Label1.Left = 28
|
|
Label1.Name = "Label1"
|
|
Label1.TabIndex = 6
|
|
Label1.Top = 82
|
|
txtparola.Left = 168
|
|
txtparola.Name = "txtparola"
|
|
txtparola.TabIndex = 1
|
|
txtparola.Top = 79
|
|
Banda21.Height = 30
|
|
Banda21.Left = 0
|
|
Banda21.Name = "Banda21"
|
|
Banda21.Top = 0
|
|
Banda21.Width = 282
|
|
Titlufrumos1.Name = "Titlufrumos1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 36, ;
|
|
Left = 19, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\secur05.ico, ;
|
|
Stretch = 1, ;
|
|
Top = 38, ;
|
|
Width = 36
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Introduceti parola noua:", ;
|
|
Height = 17, ;
|
|
Left = 28, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 7, ;
|
|
Top = 117, ;
|
|
Width = 131
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Verificati parola noua:", ;
|
|
Height = 17, ;
|
|
Left = 28, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 8, ;
|
|
Top = 151, ;
|
|
Width = 120
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'txtparolanou' AS textbox WITH ;
|
|
ControlSource = "thisform.parolanou", ;
|
|
DisabledBackColor = 223,223,223, ;
|
|
Format = "k", ;
|
|
Height = 23, ;
|
|
Left = 168, ;
|
|
Name = "txtparolanou", ;
|
|
PasswordChar = "*", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 2, ;
|
|
Top = 115, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtparolaver' AS textbox WITH ;
|
|
ControlSource = "thisform.parolaver", ;
|
|
DisabledBackColor = 223,223,223, ;
|
|
Format = "k", ;
|
|
Height = 23, ;
|
|
Left = 168, ;
|
|
Name = "txtparolaver", ;
|
|
PasswordChar = "*", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 3, ;
|
|
Top = 151, ;
|
|
Width = 100
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE txtparola.Valid
|
|
if thisform.nrincerc=3
|
|
thisform.release
|
|
endif
|
|
|
|
if upper(parola)#upper(parolaactiva)
|
|
do mesajrosu with 'Parola nu este corecta!','Aveti dreptul la 3 incercari.'
|
|
thisform.nrincerc=thisform.nrincerc+1
|
|
return 0
|
|
endif
|
|
|
|
thisform.corect=.t.
|
|
thisform.txtparolanou.readonly=.F.
|
|
thisform.txtparolaver.readonly=.F.
|
|
ENDPROC
|
|
|
|
PROCEDURE txtparolaver.Valid
|
|
if thisform.nrincerc=4
|
|
thisform.release
|
|
endif
|
|
|
|
if upper(thisform.parolanou)=upper(thisform.parolaver)
|
|
sele 0
|
|
use &dirgen\_alfa\datean\par.dbf alias par
|
|
repl par with thisform.parolanou
|
|
sele par
|
|
use
|
|
else
|
|
do mesajatent with 'Incorect!','Repetati parola noua!'
|
|
thisform.nrincerc=thisform.nrincerc+1
|
|
return 0
|
|
endif
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS ser AS seriaper OF "..\..\contab\clase\cont2000-3.vcx"
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Name = "ser"
|
|
Seip2.BackStyle = 0
|
|
Seip2.Name = "Seip2"
|
|
SEIP1.BackStyle = 0
|
|
SEIP1.Name = "SEIP1"
|
|
Line1.Name = "Line1"
|
|
TITLU1.ForeColor = 0,64,128
|
|
TITLU1.Name = "TITLU1"
|
|
Label1.BackStyle = 0
|
|
Label1.Name = "Label1"
|
|
Label2.BackStyle = 0
|
|
Label2.Name = "Label2"
|
|
Label3.BackStyle = 0
|
|
Label3.Name = "Label3"
|
|
Label4.BackStyle = 0
|
|
Label4.Caption = "Tel./Fax: 0241-541000, Tel: 0241-606557, Tel.: 0241-606577"
|
|
Label4.Name = "Label4"
|
|
Cmdtermin1.Height = 27
|
|
Cmdtermin1.Left = 576
|
|
Cmdtermin1.Name = "Cmdtermin1"
|
|
Cmdtermin1.Top = 12
|
|
Cmdtermin1.Width = 36
|
|
CMDRENUNT1.Height = 27
|
|
CMDRENUNT1.Left = 528
|
|
CMDRENUNT1.Name = "CMDRENUNT1"
|
|
CMDRENUNT1.Top = 12
|
|
CMDRENUNT1.Width = 39
|
|
Label6.BackStyle = 0
|
|
Label6.Name = "Label6"
|
|
SERP1.Name = "SERP1"
|
|
Titlu2.Name = "Titlu2"
|
|
SERP2.Name = "SERP2"
|
|
Titlu3.Name = "Titlu3"
|
|
SERP3.Name = "SERP3"
|
|
Titlu4.Name = "Titlu4"
|
|
SERP4.Name = "SERP4"
|
|
SERA1.Name = "SERA1"
|
|
Titlu5.Name = "Titlu5"
|
|
SERA2.Name = "SERA2"
|
|
Titlu6.Name = "Titlu6"
|
|
Titlu7.Name = "Titlu7"
|
|
SERA4.Name = "SERA4"
|
|
SERA3.Name = "SERA3"
|
|
*</PropValue>
|
|
|
|
PROCEDURE Init
|
|
sele cul
|
|
go top
|
|
|
|
IF red='ABCDE'
|
|
DO seriadebaza IN proceduri.prg
|
|
endif
|
|
|
|
seriainst=red
|
|
seriaprec=green
|
|
|
|
thisform.p1=substr(seriaprec,1,5)
|
|
thisform.p2=substr(seriaprec,6,4)
|
|
thisform.p3=substr(seriaprec,10,4)
|
|
thisform.p4=substr(seriaprec,14,4)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Cmdtermin1.Click
|
|
local t
|
|
t=thisform
|
|
serianou=allt(t.a1)+allt(t.a2)+allt(t.a3)+allt(t.a4)
|
|
|
|
SELE CUL
|
|
brow
|
|
IF FLOCK()
|
|
REPL BLUE WITH GREEN
|
|
REPL GREEN WITH SERIANOU
|
|
IF SERIA_LUNARA_E_CORECTA()
|
|
luna_neplatita=.f.
|
|
THISFORM.RELEASE
|
|
ELSE
|
|
DO MESAJ WITH 'Seria introdusa este incorecta!',''
|
|
luna_neplatita=.t.
|
|
repl green with blue
|
|
repl blue with space(17)
|
|
ENDIF
|
|
ENDIF
|
|
unlock
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|