*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ferestrebaza.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS atentie AS fatentie 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="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 100
		Name = "atentie"
		Width = 401
		WindowType = 0
		Shape1.Height = 92
		Shape1.Left = 4
		Shape1.Name = "Shape1"
		Shape1.Top = 4
		Shape1.Width = 392
		IMAGE1.Height = 32
		IMAGE1.Left = 31
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\grafice\exclam1.ico
		IMAGE1.Top = 11
		IMAGE1.Width = 32
		Label1.Alignment = 0
		Label1.AutoSize = .T.
		Label1.Left = 73
		Label1.Name = "Label1"
		Label1.Top = 18
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		AutoSize = .F., ;
		Caption = "\<OK", ;
		Height = 24, ;
		Left = 158, ;
		Name = "CMDTERMIN1", ;
		Top = 66, ;
		Width = 84
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Label2' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		Caption = "label2", ;
		FontSize = 11, ;
		Height = 19, ;
		Left = 137, ;
		Name = "Label2", ;
		Top = 18, ;
		Width = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "label3", ;
		FontSize = 11, ;
		Height = 19, ;
		Left = 27, ;
		Name = "Label3", ;
		Top = 45, ;
		Width = 348, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />
	
	PROCEDURE Deactivate
		thisform.release
	ENDPROC

	PROCEDURE LostFocus
		thisform.release
		
	ENDPROC

ENDDEFINE

DEFINE CLASS atentierosu AS stop OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		BorderStyle = 2
		Desktop = .F.
		DoCreate = .T.
		Height = 104
		Name = "atentierosu"
		Width = 400
		Shape1.Height = 92
		Shape1.Left = 10
		Shape1.Name = "Shape1"
		Shape1.Top = 6
		Shape1.Width = 380
		Image1.BackStyle = 0
		Image1.Height = 32
		Image1.Left = 16
		Image1.Name = "Image1"
		Image1.Picture = ..\grafice\pericol.ico
		Image1.Top = 14
		Image1.Width = 32
		Label1.Caption = "Atentie!"
		Label1.Left = 60
		Label1.Name = "Label1"
		Label1.Top = 116
		Line1.Name = "Line1"
		LABEL2.Alignment = 2
		LABEL2.AutoSize = .F.
		LABEL2.Height = 19
		LABEL2.Left = 48
		LABEL2.Name = "LABEL2"
		LABEL2.Top = 18
		LABEL2.Width = 336
		CMDTERMIN1.Left = 158
		CMDTERMIN1.Name = "CMDTERMIN1"
		LABEL3.Height = 19
		LABEL3.Left = 26
		LABEL3.Name = "LABEL3"
		LABEL3.Top = 43
		LABEL3.Width = 358
	*</PropValue>
	
	PROCEDURE Init
		_screen.visible=.t.
	ENDPROC

ENDDEFINE

DEFINE CLASS atr AS atentierosu OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		BorderStyle = 2
		Desktop = .T.
		DoCreate = .T.
		Height = 104
		Name = "atr"
		Width = 476
		SHAPE1.Height = 92
		SHAPE1.Left = 10
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 6
		SHAPE1.Width = 458
		IMAGE1.Height = 32
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Width = 32
		LABEL1.Name = "LABEL1"
		LINE1.Name = "LINE1"
		LABEL2.Height = 19
		LABEL2.Left = 48
		LABEL2.Name = "LABEL2"
		LABEL2.Top = 18
		LABEL2.Width = 408
		CMDTERMIN1.Left = 196
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 68
		LABEL3.Height = 19
		LABEL3.Left = 23
		LABEL3.Name = "LABEL3"
		LABEL3.Top = 43
		LABEL3.Width = 430
	*</PropValue>
	
	PROCEDURE CMDTERMIN1.Click
		_SCREEN.VISIBLE=.F.
		THISFORM.RELEASE
		
	ENDPROC

ENDDEFINE

DEFINE CLASS buttulb AS commandbutton 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: nrbar
	*</DefinedPropArrayMethod>

	*<PropValue>
		Caption = "Command1"
		FontBold = .T.
		ForeColor = 0,0,0
		Height = 27
		Name = "buttulb"
		nrbar = 0
		Width = 84
	*</PropValue>
	
	PROCEDURE Click
		*do exec_meniu with this.nrbar
	ENDPROC

	PROCEDURE RightClick
		this.visible=.f.
	ENDPROC

ENDDEFINE

DEFINE CLASS cmdlist AS commandbutton 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Caption = "\<LISTARE"
		DownPicture = 
		FontBold = .T.
		ForeColor = 60,255,250
		Height = 27
		Name = "cmdlist"
		Width = 98
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmdrenunt AS commandbutton 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Caption = "\<RENUNT"
		FontBold = .T.
		ForeColor = 255,0,0
		Height = 27
		Name = "cmdrenunt"
		Width = 84
	*</PropValue>
	
	PROCEDURE Click
		buton=2
		THISFORM.RELEASE
	ENDPROC

ENDDEFINE

DEFINE CLASS cmdtermin AS commandbutton 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Caption = "\<TERMINAT"
		FontBold = .T.
		FontOutline = .F.
		FontShadow = .F.
		ForeColor = 0,0,255
		Height = 27
		Name = "cmdtermin"
		Width = 84
	*</PropValue>
	
	PROCEDURE Click
				buton=1
				IF TYPE("THISFORM.Parent") = "O"
					THISFORMSET.Release
				ELSE
					THISFORM.Release
				ENDIF
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS danu AS sigur OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Name = "danu"
		Shape1.Name = "Shape1"
		Image1.Height = 32
		Image1.Left = 24
		Image1.Name = "Image1"
		Image1.Top = 12
		Image1.Width = 32
		Label1.Alignment = 2
		Label1.AutoSize = .F.
		Label1.FontBold = .F.
		Label1.FontSize = 9
		Label1.Height = 44
		Label1.Left = 60
		Label1.Name = "Label1"
		Label1.Top = 16
		Label1.Width = 300
		Label1.WordWrap = .T.
		Line1.Name = "Line1"
		Label2.Name = "Label2"
		CMDTERMIN1.Name = "CMDTERMIN1"
		Label3.Name = "Label3"
		CMDRENUNT1.Name = "CMDRENUNT1"
	*</PropValue>
	
	PROCEDURE CMDRENUNT1.Valid
		buton=2
	ENDPROC

	PROCEDURE CMDTERMIN1.Valid
		buton=1
	ENDPROC

ENDDEFINE

DEFINE CLASS danurenunt 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="Seip1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cele3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 225
		Name = "danurenunt"
		Width = 288
		LINE1.Name = "LINE1"
	*</PropValue>

	ADD OBJECT 'cele3' AS optiongroup WITH ;
		ButtonCount = 3, ;
		Height = 72, ;
		Left = 24, ;
		Name = "cele3", ;
		Top = 91, ;
		Value = 2, ;
		Width = 240, ;
		ZOrderSet = 3, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Se retin in totalitate", ;
		Option1.Height = 17, ;
		Option1.Left = 14, ;
		Option1.Name = "Option1", ;
		Option1.Top = 7, ;
		Option1.Value = 0, ;
		Option1.Width = 122, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Se retin numai cele diferite de zero", ;
		Option2.Height = 17, ;
		Option2.Left = 14, ;
		Option2.Name = "Option2", ;
		Option2.Top = 26, ;
		Option2.Value = 1, ;
		Option2.Width = 207, ;
		Option3.AutoSize = .T., ;
		Option3.Caption = "Nu se retine nici unul", ;
		Option3.Height = 17, ;
		Option3.Left = 14, ;
		Option3.Name = "Option3", ;
		Option3.Top = 45, ;
		Option3.Width = 134
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Left = 180, ;
		Name = "CMDTERMIN1", ;
		Top = 178
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Image1' AS image WITH ;
		BackStyle = 0, ;
		Height = 32, ;
		Left = 27, ;
		Name = "Image1", ;
		Picture = ..\..\sal2000\grafice\intreb.ico, ;
		Top = 40, ;
		Width = 32
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .F., ;
		Caption = "Care dintre salariile brute calculate in aceasta foaie de lucru se retin si se inregistreaza in state?", ;
		Height = 60, ;
		Left = 72, ;
		Name = "Label1", ;
		Top = 36, ;
		Width = 192, ;
		WordWrap = .T., ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Seip1' AS seip WITH ;
		Height = 204, ;
		Left = 12, ;
		Name = "Seip1", ;
		Top = 12, ;
		Width = 264, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\sal2000\clase\ferestrebaza.vcx" BaseClass="shape" />
	
	PROCEDURE CMDTERMIN1.Click
		buton=thisform.cele3.value
		thisform.release
	ENDPROC

ENDDEFINE

DEFINE CLASS diary 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="Seip1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CALEND" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ComboAn" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ComboLuna" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: an
		*p: numel
	*</DefinedPropArrayMethod>

	*<PropValue>
		an = 2000
		BorderStyle = 3
		Caption = "Calendar"
		Closable = .T.
		ControlBox = .T.
		DoCreate = .T.
		Height = 270
		Icon = ..\grafice\cont11.ico
		Name = "diary"
		numel = Martie
		Width = 478
		Line1.Name = "Line1"
		Line1.ZOrderSet = 3
	*</PropValue>

	ADD OBJECT 'CALEND' AS olecontrol WITH ;
		Height = 156, ;
		Left = 15, ;
		Name = "CALEND", ;
		Top = 94, ;
		Width = 441, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscal.ocx" Value="[encoded data, 4096 characters]" />

	ADD OBJECT 'ComboAn' AS combobox WITH ;
		Alignment = 0, ;
		BackColor = 255,255,255, ;
		ControlSource = "m.AN", ;
		Height = 20, ;
		Left = 372, ;
		Name = "ComboAn", ;
		RowSource = "1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010", ;
		RowSourceType = 1, ;
		Style = 2, ;
		TabIndex = 4, ;
		TabStop = .F., ;
		Top = 20, ;
		Visible = .T., ;
		Width = 72, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'ComboLuna' AS combobox WITH ;
		BackColor = 255,255,255, ;
		ControlSource = "M.LUNA", ;
		Height = 20, ;
		Left = 252, ;
		Name = "ComboLuna", ;
		RowSource = "lunilean.numeluna", ;
		RowSourceType = 6, ;
		Style = 2, ;
		TabIndex = 3, ;
		TabStop = .F., ;
		Top = 20, ;
		Visible = .T., ;
		Width = 108, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Container1' AS container WITH ;
		Height = 25, ;
		Left = 25, ;
		Name = "Container1", ;
		SpecialEffect = 1, ;
		Top = 68, ;
		Width = 421, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="container" />

	ADD OBJECT 'Container1.Label1' AS label WITH ;
		AutoSize = .T., ;
		Caption = "L", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 12, ;
		ForeColor = 0,0,160, ;
		Height = 22, ;
		Left = 11, ;
		Name = "Label1", ;
		Top = 2, ;
		Width = 12, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label2' AS label WITH ;
		AutoSize = .T., ;
		Caption = "M", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 12, ;
		ForeColor = 0,0,160, ;
		Height = 22, ;
		Left = 70, ;
		Name = "Label2", ;
		Top = 2, ;
		Width = 15, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label3' AS label WITH ;
		AutoSize = .T., ;
		Caption = "M", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 12, ;
		ForeColor = 0,0,160, ;
		Height = 22, ;
		Left = 130, ;
		Name = "Label3", ;
		Top = 2, ;
		Width = 15, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label4' AS label WITH ;
		AutoSize = .T., ;
		Caption = "J", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 12, ;
		ForeColor = 0,0,160, ;
		Height = 22, ;
		Left = 190, ;
		Name = "Label4", ;
		Top = 2, ;
		Width = 11, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label5' AS label WITH ;
		AutoSize = .T., ;
		Caption = "V", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 12, ;
		ForeColor = 0,0,160, ;
		Height = 22, ;
		Left = 250, ;
		Name = "Label5", ;
		Top = 2, ;
		Width = 13, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label6' AS label WITH ;
		AutoSize = .T., ;
		Caption = "S", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 12, ;
		ForeColor = 0,0,160, ;
		Height = 22, ;
		Left = 310, ;
		Name = "Label6", ;
		Top = 2, ;
		Width = 13, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Label7' AS label WITH ;
		AutoSize = .T., ;
		Caption = "D", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 12, ;
		ForeColor = 0,0,160, ;
		Height = 22, ;
		Left = 371, ;
		Name = "Label7", ;
		Top = 2, ;
		Width = 14, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Seip1' AS seip WITH ;
		Height = 201, ;
		Left = 8, ;
		Name = "Seip1", ;
		Top = 55, ;
		Width = 456, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 0, ;
		BorderStyle = 0, ;
		ControlSource = "THISFORM.NUMEL", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 15, ;
		ForeColor = 0,0,128, ;
		Height = 32, ;
		Left = 24, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Top = 16, ;
		Width = 120, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		BorderStyle = 0, ;
		ControlSource = "THISFORM.AN", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 15, ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 147, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		Top = 16, ;
		Width = 58, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		
		THISFORM.CALEND.day=day(date())
		THISFORM.CALEND.month=month(date())
		THISFORM.CALEND.year=year(date())
		SELE LUNILEAN
		LOCA FOR val(NL)=THISFORM.CALEND.MONTH
		
		THISFORM.NUMEL=NUMELUNA
		THISFORM.TEXT1.REFRESH
		thisform.comboluna.value=NUMELUNA
		thisform.comboan.value=str(year(date()))
	ENDPROC

	PROCEDURE CALEND.AfterUpdate
		*** OLE Control Event ***
		SELE LUNILEAN
		LOCA FOR val(NL)=THISFORM.CALEND.MONTH
		THISFORM.NUMEL=NUMELUNA
		THISFORM.AN=THISFORM.CALEND.YEAR
		THISFORM.TEXT1.REFRESH
		THISFORM.TEXT2.REFRESH
	ENDPROC

	PROCEDURE ComboAn.Valid
		thisform.calend.year=m.an
		thisform.calend.refresh
		
		SELE LUNILEAN
		LOCA FOR val(NL)=THISFORM.CALEND.MONTH
		THISFORM.NUMEL=NUMELUNA
		THISFORM.AN=THISFORM.CALEND.YEAR
		THISFORM.TEXT1.REFRESH
		THISFORM.TEXT2.REFRESH
	ENDPROC

	PROCEDURE ComboLuna.AddItem
		LPARAMETERS cItem
		
	ENDPROC

	PROCEDURE ComboLuna.Valid
		local l
		sele lunilean
		*loca for allt(numeluna)=allt(this.value)
		l=val(nl)
		thisform.calend.month=l
		thisform.calend.refresh
		
		SELE LUNILEAN
		LOCA FOR val(NL)=THISFORM.CALEND.MONTH
		THISFORM.NUMEL=NUMELUNA
		THISFORM.AN=THISFORM.CALEND.YEAR
		THISFORM.TEXT1.REFRESH
		THISFORM.TEXT2.REFRESH
	ENDPROC

ENDDEFINE

DEFINE CLASS fatentie 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="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		BorderStyle = 2
		ControlBox = .F.
		DoCreate = .T.
		Height = 108
		Name = "fatentie"
		Width = 375
	*</PropValue>

	ADD OBJECT 'Image1' AS image WITH ;
		Height = 32, ;
		Left = 24, ;
		Name = "Image1", ;
		Picture = ..\grafice\exclam1.ico, ;
		Top = 12, ;
		Width = 32, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "Atentie!", ;
		FontBold = .T., ;
		FontSize = 12, ;
		Height = 24, ;
		Left = 64, ;
		Name = "Label1", ;
		Top = 21, ;
		Width = 60, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 90, ;
		Left = 3, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 9, ;
		Width = 367, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

ENDDEFINE

DEFINE CLASS ffergen AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_reface
		*m: do_renunt
		*m: do_termin
		*m: inainte_de_do_renunt
		*m: inainte_de_do_termin
	*</DefinedPropArrayMethod>

	*<PropValue>
		AlwaysOnTop = .T.
		AutoCenter = .T.
		BorderStyle = 3
		Caption = ""
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Height = 500
		Icon = ..\..\
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "ffergen"
		Picture = ..\..\
		ShowTips = .T.
		Width = 800
		WindowType = 1
	*</PropValue>

	ADD OBJECT 'Line1' AS line WITH ;
		Height = 0, ;
		Left = 0, ;
		Name = "Line1", ;
		Top = 475, ;
		Visible = .F., ;
		Width = 516
		*< END OBJECT: BaseClass="line" />

ENDDEFINE

DEFINE CLASS labelsmecher AS label 
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		AutoSize = .T.
		BackColor = 228,228,228
		BackStyle = 0
		Caption = "Label1"
		FontName = "Arial"
		FontSize = 8
		Height = 16
		MouseIcon = ..\grafice\point.cur
		MousePointer = 99
		Name = "labelsmecher"
		Width = 34
	*</PropValue>
	
	PROCEDURE MouseMove
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.parent.refresh
		
		*this.fontbold=.t.
		this.fontunderline=.t.
		this.forecolor=rgb(0,0,255)
		*this.backstyle=1
		
	ENDPROC

ENDDEFINE

DEFINE CLASS progresbar 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="Seip1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="PRBAR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="TITLU" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: p
		*p: v
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 2
		DoCreate = .T.
		Height = 55
		Name = "progresbar"
		p = 0
		v = 0
		Width = 391
		WindowType = 0
		Line1.Name = "Line1"
		Line1.ZOrderSet = 1
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "%", ;
		Height = 17, ;
		Left = 349, ;
		Name = "Label1", ;
		Top = 9, ;
		Width = 26, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'PRBAR' AS olecontrol WITH ;
		Height = 15, ;
		Left = 15, ;
		Name = "PRBAR", ;
		Top = 27, ;
		Width = 361, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\winnt\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGCQtOLklsMBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAACEAAAAAAAAABAAAAAIAAAD+/////v////7////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S6BMHCoUbEK/AQhAQKo2nIUM0EggAAABPJQAAjQEAAIR+4eYCAAUAHAAAAAAAAAAAAMhCAe/NqwAABQBoyhYATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAVwBlAHMAdAABAACADAAAAEJvcmRlclN0eWxlAAkAAABJCgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGR2AAgAAAAABwAAAP//////////AAAAAB/e7L0BAAUAAAAAAAwAAAAYAAAAkAEAAAAAAABgAAAAYAAAACAAIiGBACAAAAAAIQAAAABAAAEAGAAAAB0AAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYWwACAAAAADkAQAAcAEAAAEAAAAlAAAAEAAAAAAAAAAAAAAAkAEAAAAAAAABAgEiTQBTACAAUwBhAG4AcwAgAFMAZQByAGkAZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAE0AUwAgAFMAYQBuAHMAIABTAGUAcgBpAGYAAAAAAAAAAAAAAA==" />

	ADD OBJECT 'Seip1' AS seip WITH ;
		Height = 43, ;
		Left = 9, ;
		Name = "Seip1", ;
		Top = 5, ;
		Width = 372, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "THISFORM.P", ;
		Height = 23, ;
		Left = 314, ;
		Name = "Text1", ;
		Top = 7, ;
		Width = 36, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'TITLU' AS label WITH ;
		AutoSize = .T., ;
		Caption = " ", ;
		Height = 17, ;
		Left = 17, ;
		Name = "TITLU", ;
		Top = 9, ;
		Width = 5
		*< END OBJECT: BaseClass="label" />
	
	PROCEDURE Init
		IF M=0
			M=M+1
		ENDIF 
		THISFORM.PRBAR.MAX=M
		THISFORM.PRBAR.VALUE=0
	ENDPROC

	PROCEDURE Release
		THISFORM.PRBAR.VALUE=M
		THISFORM.REFRESH
	ENDPROC

ENDDEFINE

DEFINE CLASS seip AS shape 
 	*< CLASSDATA: Baseclass="shape" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		BackStyle = 0
		Height = 68
		Name = "seip"
		SpecialEffect = 0
		Width = 68
	*</PropValue>

ENDDEFINE

DEFINE CLASS set AS formset 
 	*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="tbrprim" UniqueID="" Timestamp="" />

	*<PropValue>
		Name = "set"
		Visible = .T.
		WindowType = 0
	*</PropValue>

	ADD OBJECT 'tbrprim' AS tbrprim WITH ;
		Height = 28, ;
		Left = 7, ;
		Name = "tbrprim", ;
		Top = 23, ;
		Width = 33, ;
		Buton1.Left = 5, ;
		Buton1.Name = "Buton1", ;
		Buton1.ToolTipText = "Adauga la bara de instrumente ultima operatiune de introducere efectuata", ;
		Buton1.Top = 3
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="toolbar" />
	
	PROCEDURE tbrprim.Buton1.Click
		local t0,c0,c1,c2,c3
		local totbut,numebut,nrbut
		totbut=this.parent.controlcount
		nrbut=totbut-1
		numebut='but'+alltrim(str(nrbut))
		c0=rand(-10)
		c0=rand(0)
		c1=int(255*rand())
		c2=int(255*rand())
		c3=int(255*rand())
		
		if bar()<1000
			DO MESAJatent WITH 'Efectuati operatia de introducere dorita','si apoi reveniti!'
		  else	
			do mesaj with 'Adauga operatiunea de introducere:',prompt()
		
		
			this.parent.addobject(numebut,'buttulb')
		
			t0='this.parent.'+numebut
		
			with &t0
			.caption=alltrim(str(nrbut))
			.tooltiptext=prompt()
			.height=this.parent.buton1.height
			.width=this.parent.buton1.width
			.forecolor=rgb(c1,c2,c3)
			.visible=.t.
			.nrbar=bar()
			endwith
		
		endif
	ENDPROC

ENDDEFINE

DEFINE CLASS setinstr AS set OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />

	*<PropValue>
		Name = "setinstr"
		tbrprim.BUTON1.Left = 5
		tbrprim.BUTON1.Name = "BUTON1"
		tbrprim.BUTON1.Top = 3
		tbrprim.Height = 28
		tbrprim.Left = 7
		tbrprim.Name = "tbrprim"
		tbrprim.Top = 23
		tbrprim.Width = 33
	*</PropValue>
	
	PROCEDURE tbrprim.BUTON1.Click
		**
	ENDPROC

ENDDEFINE

DEFINE CLASS setinstrum AS setinstr OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="formset" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="tbrprim.Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="tbrprim.Command2" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoRelease = .T.
		Name = "setinstrum"
		tbrprim.Buton1.Enabled = .T.
		tbrprim.Buton1.Height = 40
		tbrprim.Buton1.Left = 83
		tbrprim.Buton1.Name = "Buton1"
		tbrprim.Buton1.Picture = ..\grafice\calendar2.bmp
		tbrprim.Buton1.StatusBarText = "Calendar "
		tbrprim.Buton1.ToolTipText = "Calendar"
		tbrprim.Buton1.Top = 3
		tbrprim.Buton1.Visible = .T.
		tbrprim.Buton1.Width = 40
		tbrprim.Buton1.ZOrderSet = 2
		tbrprim.Caption = "Instrumente"
		tbrprim.ControlBox = .T.
		tbrprim.Height = 46
		tbrprim.Left = 122
		tbrprim.Name = "tbrprim"
		tbrprim.Top = 0
		tbrprim.Width = 128
	*</PropValue>

	ADD OBJECT 'tbrprim.Command1' AS commandbutton WITH ;
		Caption = "", ;
		Height = 40, ;
		Left = 5, ;
		Name = "Command1", ;
		Picture = ..\grafice\calculator2.bmp, ;
		StatusBarText = "Calculator", ;
		ToolTipText = "Calculator", ;
		Top = 3, ;
		Width = 40, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'tbrprim.Command2' AS commandbutton WITH ;
		Caption = "", ;
		Height = 40, ;
		Left = 44, ;
		Name = "Command2", ;
		Picture = ..\grafice\notepad1.bmp, ;
		StatusBarText = "Editor pentru notite", ;
		ToolTipText = "Notepad", ;
		Top = 3, ;
		Width = 40, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="commandbutton" />
	
	PROCEDURE tbrprim.Buton1.Click
		*!*	od=createo('diary')
		*!*	od.show(1)
	ENDPROC

	PROCEDURE tbrprim.Command1.Click
		do case
			case file('C:\WINDOWS\CALC.EXE')
				run /N C:\WINDOWS\CALC.EXE
			case file('C:\WINDOWS\SYSTEM32\CALC.EXE')
				run /N C:\WINDOWS\SYSTEM32\CALC.EXE
			case file('C:\WINnt\system32\CALC.EXE')
				run /N C:\WINnt\system32\CALC.EXE
			otherwise
				do mesajatent with 'Aplicatia "Calculator" nu este instalata','pe acest sistem!'
		endcase
			
	ENDPROC

	PROCEDURE tbrprim.Command2.Click
		do case
			case file('C:\WINDOWS\NOTEPAD.EXE')
				run /N C:\WINDOWS\NOTEPAD.EXE
			case file('C:\WINnt\system32\NOTEPAD.EXE')
				run /N C:\WINnt\system32\NOTEPAD.EXE
			otherwise
				do mesajatent with 'Aplicatia "NOTEPAD" nu este instalata','pe acest sistem!'
		endcase
				
	ENDPROC

	PROCEDURE tbrprim.Show
		LPARAMETERS nStyle
		*if _screen.width>800
		*this.dock(1,0,0)
		*else
		*this.dock(-1,0,0)
		*endif
		this.dock(0,0,0)
	ENDPROC

ENDDEFINE

DEFINE CLASS sigur AS atentie 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="CMDRENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Name = "sigur"
		SHAPE1.Name = "SHAPE1"
		Image1.BackStyle = 0
		Image1.Height = 32
		Image1.Left = 51
		Image1.Name = "Image1"
		Image1.Picture = ..\grafice\intreb.ico
		Image1.Top = 22
		Image1.Width = 32
		Label1.Caption = "Doriti sa iesiti din program?"
		Label1.Left = 102
		Label1.Name = "Label1"
		Label1.Top = 26
		Line1.Name = "Line1"
		Label2.Left = 348
		Label2.Name = "Label2"
		Label2.Top = 12
		Label2.Visible = .F.
		CMDTERMIN1.Caption = "\<DA"
		CMDTERMIN1.Left = 114
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 60
		Label3.Left = 353
		Label3.Name = "Label3"
		Label3.Top = 37
		Label3.Visible = .F.
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Caption = "\<NU", ;
		Height = 24, ;
		Left = 204, ;
		Name = "CMDRENUNT1", ;
		Top = 60
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
	
	PROCEDURE CMDRENUNT1.Valid
		buton=2
	ENDPROC

	PROCEDURE CMDTERMIN1.Valid
		buton=1
	ENDPROC

ENDDEFINE

DEFINE CLASS stop AS atentie OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Height = 100
		Name = "stop"
		Width = 377
		Shape1.Height = 92
		Shape1.Left = 4
		Shape1.Name = "Shape1"
		Shape1.Top = 4
		Shape1.Width = 368
		IMAGE1.Height = 22
		IMAGE1.Left = 41
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\grafice\hand.bmp
		IMAGE1.Top = 14
		IMAGE1.Width = 24
		Label1.Caption = "Stop!"
		Label1.Left = 386
		Label1.Name = "Label1"
		Label1.Top = 12
		Label1.Visible = .F.
		Line1.Name = "Line1"
		Label2.FontSize = 11
		Label2.Left = 73
		Label2.Name = "Label2"
		Label2.Top = 17
		Cmdtermin1.Left = 146
		Cmdtermin1.Name = "Cmdtermin1"
		Label3.FontSize = 11
		Label3.Left = 14
		Label3.Name = "Label3"
	*</PropValue>

ENDDEFINE

DEFINE CLASS tbrprim AS toolbar 
 	*< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Buton1" UniqueID="" Timestamp="" />

	*<PropValue>
		Caption = "Introducere"
		Height = 31
		Left = 0
		Name = "tbrprim"
		Top = -1
		Width = 33
	*</PropValue>

	ADD OBJECT 'Buton1' AS commandbutton WITH ;
		Caption = "", ;
		Height = 22, ;
		Left = 5, ;
		Name = "Buton1", ;
		Picture = ..\grafice\edit1.bmp, ;
		Top = 5, ;
		Width = 23
		*< END OBJECT: BaseClass="commandbutton" />

ENDDEFINE

DEFINE CLASS text AS atentie OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Height = 102
		Name = "text"
		Width = 439
		Shape1.Height = 92
		Shape1.Left = 4
		Shape1.Name = "Shape1"
		Shape1.Top = 4
		Shape1.Width = 428
		Shape1.ZOrderSet = 1
		IMAGE1.Height = 32
		IMAGE1.Left = 12
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\grafice\net13.ico
		IMAGE1.Top = 23
		IMAGE1.Width = 32
		IMAGE1.ZOrderSet = 2
		Label1.Left = 12
		Label1.Name = "Label1"
		Label1.Top = 60
		Label1.Visible = .F.
		Label1.ZOrderSet = 0
		Line1.Name = "Line1"
		Label2.Alignment = 2
		Label2.AutoSize = .F.
		Label2.FontName = "Arial"
		Label2.FontSize = 10
		Label2.Height = 18
		Label2.Left = 50
		Label2.Name = "Label2"
		Label2.Top = 18
		Label2.Width = 376
		Label2.ZOrderSet = 3
		Cmdtermin1.Left = 177
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.Top = 61
		Cmdtermin1.ZOrderSet = 4
		Label3.FontName = "Arial"
		Label3.FontSize = 10
		Label3.Height = 19
		Label3.Left = 50
		Label3.Name = "Label3"
		Label3.Top = 36
		Label3.Visible = .T.
		Label3.Width = 376
		Label3.ZOrderSet = 5
	*</PropValue>

ENDDEFINE

DEFINE CLASS textmare AS text OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Height = 178
		Name = "textmare"
		Width = 379
		LABEL1.Name = "LABEL1"
		SHAPE1.Height = 164
		SHAPE1.Left = 5
		SHAPE1.Name = "SHAPE1"
		SHAPE1.Top = 7
		SHAPE1.Width = 368
		Image1.BackStyle = 0
		Image1.Height = 32
		Image1.Left = 20
		Image1.Name = "Image1"
		Image1.Picture = ..\grafice\exclam2.ico
		Image1.Top = 27
		Image1.Width = 32
		LABEL2.Alignment = 0
		LABEL2.Height = 102
		LABEL2.Left = 60
		LABEL2.Name = "LABEL2"
		LABEL2.Top = 24
		LABEL2.Width = 300
		LABEL2.WordWrap = .T.
		Cmdtermin1.Left = 277
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.Top = 137
		LABEL3.Left = 60
		LABEL3.Name = "LABEL3"
		LABEL3.Top = 180
		LABEL3.Visible = .F.
		Line1.Name = "Line1"
	*</PropValue>

ENDDEFINE

DEFINE CLASS textmarer AS textmare 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="CMDRENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Name = "textmarer"
		Label1.Name = "Label1"
		Shape1.Name = "Shape1"
		Image1.Height = 32
		Image1.Name = "Image1"
		Image1.Width = 32
		Label2.Name = "Label2"
		CMDTERMIN1.Caption = "\<CONTINUARE"
		CMDTERMIN1.Height = 27
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 135
		CMDTERMIN1.Width = 84
		Label3.Name = "Label3"
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Caption = "\<RENUNTARE", ;
		Height = 27, ;
		Left = 189, ;
		Name = "CMDRENUNT1", ;
		Top = 135, ;
		Width = 84
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />

ENDDEFINE

DEFINE CLASS textr AS text 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="CMDRENUNT1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 102
		Name = "textr"
		Width = 437
		Label1.Name = "Label1"
		SHAPE1.BackStyle = 0
		SHAPE1.Name = "SHAPE1"
		Image1.Height = 32
		Image1.Name = "Image1"
		Image1.Width = 32
		Label2.BackStyle = 0
		Label2.Name = "Label2"
		Cmdtermin1.Caption = "\<CONTINUA"
		Cmdtermin1.Left = 210
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.Top = 61
		Label3.Name = "Label3"
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Caption = "\<RENUNTA", ;
		Height = 24, ;
		Left = 120, ;
		Name = "CMDRENUNT1", ;
		Top = 61
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />
	
	PROCEDURE CMDRENUNT1.Valid
		BUTON=2
	ENDPROC

	PROCEDURE Cmdtermin1.Valid
		BUTON=1
	ENDPROC

ENDDEFINE

DEFINE CLASS textval AS text 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="Text1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: valoare
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Name = "textval"
		valoare = 0
		Label1.Name = "Label1"
		Shape1.Name = "Shape1"
		IMAGE1.BackStyle = 0
		IMAGE1.Height = 32
		IMAGE1.Left = 48
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\grafice\point04.ico
		IMAGE1.Stretch = 0
		IMAGE1.Top = 29
		IMAGE1.Width = 32
		Label2.Name = "Label2"
		Cmdtermin1.Name = "Cmdtermin1"
		Label3.Left = 84
		Label3.Name = "Label3"
		Label3.Top = 96
		Label3.Visible = .F.
		LINE1.Name = "LINE1"
	*</PropValue>

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 2, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "thisform.valoare", ;
		FontBold = .T., ;
		ForeColor = 0,0,160, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999 999", ;
		Left = 101, ;
		Name = "Text1", ;
		Top = 33, ;
		Width = 198
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Show
		LPARAMETERS nStyle
		if thisform.valoare<0
		thisform.text1.forecolor=rgb(255,0,0)
		endif
	ENDPROC

ENDDEFINE

DEFINE CLASS titlu AS label 
 	*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Alignment = 0
		AutoSize = .T.
		Caption = "TITLU"
		FontBold = .T.
		FontName = "BankGothic Md BT"
		FontShadow = .F.
		FontSize = 12
		ForeColor = 255,255,255
		Height = 22
		Name = "titlu"
		TabIndex = 21
		Width = 52
		ZOrderSet = 6
	*</PropValue>

ENDDEFINE
