*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="[encoded data, 4096 characters]" />

	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
