*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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 = 1
		DoCreate = .T.
		Height = 100
		Name = "atentie"
		Width = 401
		WindowType = 0
		SEIP1.Height = 90
		SEIP1.Left = 6
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 5
		SEIP1.Width = 388
		SEIP1.ZOrderSet = 0
		IMAGE1.Height = 32
		IMAGE1.Left = 31
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\grafice\exclam2.ico
		IMAGE1.Top = 12
		IMAGE1.Width = 32
		IMAGE1.ZOrderSet = 1
		Line1.Name = "Line1"
		Line1.ZOrderSet = 2
		Label1.Alignment = 0
		Label1.AutoSize = .T.
		Label1.Left = 73
		Label1.Name = "Label1"
		Label1.Top = 14
		Label1.ZOrderSet = 3
	*</PropValue>

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Height = 24, ;
		Left = 350, ;
		Name = "CMDTERMIN1", ;
		Top = 62, ;
		Width = 31, ;
		ZOrderSet = 5, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

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

	ADD OBJECT 'Label3' AS label WITH ;
		Alignment = 2, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "label3", ;
		FontSize = 11, ;
		Height = 19, ;
		Left = 166, ;
		Name = "Label3", ;
		Top = 39, ;
		Width = 40, ;
		ZOrderSet = 6
		*< 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>
		DoCreate = .T.
		Height = 107
		Name = "atentierosu"
		Width = 400
		SEIP1.Height = 96
		SEIP1.Left = 6
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 5
		SEIP1.Width = 388
		Image1.BackStyle = 0
		Image1.Height = 32
		Image1.Left = 26
		Image1.Name = "Image1"
		Image1.Picture = ..\grafice\pericol.ico
		Image1.Top = 14
		Image1.Width = 32
		Line1.Name = "Line1"
		Label1.Caption = "Atentie!"
		Label1.Left = 64
		Label1.Name = "Label1"
		Label1.Top = 17
		LABEL2.Left = 131
		LABEL2.Name = "LABEL2"
		LABEL2.Top = 17
		CMDTERMIN1.Command1.Name = "Command1"
		CMDTERMIN1.Height = 24
		CMDTERMIN1.Imbuton1.Height = 29
		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
		CMDTERMIN1.Imbuton1.Width = 27
		CMDTERMIN1.Left = 353
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 60
		CMDTERMIN1.Width = 31
		LABEL3.Left = 180
		LABEL3.Name = "LABEL3"
		LABEL3.Top = 41
	*</PropValue>

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Terminat1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Nou1" UniqueID="" Timestamp="" />

	*<PropValue>
		BackColor = 255,255,255
		BackStyle = 1
		Height = 35
		Name = "barabut"
		Width = 197
	*</PropValue>

	ADD OBJECT 'Excel1' AS excel WITH ;
		Left = 101, ;
		Name = "Excel1", ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'List1' AS list WITH ;
		Left = 133, ;
		Name = "List1", ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Modifica1' AS modifica WITH ;
		Left = 37, ;
		Name = "Modifica1", ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Nou1' AS nou WITH ;
		Left = 5, ;
		Name = "Nou1", ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Sterge1' AS sterge WITH ;
		Left = 69, ;
		Name = "Sterge1", ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Terminat1' AS terminat WITH ;
		Left = 165, ;
		Name = "Terminat1", ;
		Top = 3, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

ENDDEFINE

DEFINE CLASS cmdlist AS list OF "..\..\comun\clase\baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cmdlist"
		Imbuton1.Height = 27
		Imbuton1.Name = "Imbuton1"
		Imbuton1.Width = 30
		Command1.Name = "Command1"
	*</PropValue>

ENDDEFINE

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

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

ENDDEFINE

DEFINE CLASS cmdrenunt AS renunt OF "..\..\comun\clase\baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cmdrenunt"
		Imbuton1.Height = 27
		Imbuton1.Name = "Imbuton1"
		Imbuton1.Width = 30
		Command1.Name = "Command1"
	*</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 terminat OF "..\..\comun\clase\baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cmdtermin"
		Imbuton1.Height = 27
		Imbuton1.Name = "Imbuton1"
		Imbuton1.Width = 30
		Command1.Name = "Command1"
	*</PropValue>

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
		THISFORM.RELEASE
	ENDPROC

ENDDEFINE

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

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 111
		Name = "danu"
		Width = 341
		SEIP1.Height = 99
		SEIP1.Left = 5
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 6
		SEIP1.Width = 330
		IMAGE1.Height = 32
		IMAGE1.Left = 14
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Top = 13
		IMAGE1.Width = 32
		LINE1.Name = "LINE1"
		LABEL1.Alignment = 2
		LABEL1.AutoSize = .F.
		LABEL1.Caption = "Doriti sa continuati?"
		LABEL1.FontBold = .F.
		LABEL1.FontSize = 10
		LABEL1.Height = 52
		LABEL1.Left = 50
		LABEL1.Name = "LABEL1"
		LABEL1.Top = 15
		LABEL1.Width = 277
		LABEL1.WordWrap = .T.
		LABEL2.Caption = "label2"
		LABEL2.FontBold = .F.
		LABEL2.Height = 21
		LABEL2.Left = 336
		LABEL2.Name = "LABEL2"
		LABEL2.Top = 60
		LABEL2.Visible = .F.
		LABEL2.Width = 44
		CMDTERMIN1.Command1.Name = "Command1"
		CMDTERMIN1.Imbuton1.Height = 29
		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
		CMDTERMIN1.Imbuton1.Width = 27
		CMDTERMIN1.Left = 36
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 84
		LABEL3.Name = "LABEL3"
		Nu1.Command1.Name = "Command1"
		Nu1.Imbuton1.Height = 27
		Nu1.Imbuton1.Name = "Imbuton1"
		Nu1.Imbuton1.Width = 51
		Nu1.Left = 171
		Nu1.Name = "Nu1"
		Nu1.Top = 71
		Da1.Command1.Name = "Command1"
		Da1.Imbuton1.Height = 27
		Da1.Imbuton1.Name = "Imbuton1"
		Da1.Imbuton1.Width = 51
		Da1.Left = 119
		Da1.Name = "Da1"
		Da1.Top = 71
	*</PropValue>
	
	PROCEDURE CMDTERMIN1.Click
		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="Shape1" 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 = 1
		Caption = "Calendar"
		Closable = .T.
		ControlBox = .T.
		DoCreate = .T.
		Height = 263
		Icon = ..\grafice\mfix.ico
		Name = "diary"
		numel = mai
		Width = 462
		Line1.Name = "Line1"
		Line1.ZOrderSet = 1
	*</PropValue>

	ADD OBJECT 'CALEND' AS olecontrol WITH ;
		Height = 159, ;
		Left = 10, ;
		Name = "CALEND", ;
		Top = 93, ;
		Width = 441, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\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 = 368, ;
		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 = 19, ;
		Visible = .T., ;
		Width = 72, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="combobox" />

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

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

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

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

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

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

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

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

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

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		BorderStyle = 3, ;
		Height = 209, ;
		Left = 5, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 47, ;
		Width = 451, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

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

	ADD OBJECT 'Text2' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "THISFORM.AN", ;
		FontBold = .T., ;
		FontName = "Arial", ;
		FontSize = 15, ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 142, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		Top = 15, ;
		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.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="SEIP1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 1
		ControlBox = .F.
		DoCreate = .T.
		Height = 108
		Name = "fatentie"
		Width = 375
		Line1.Name = "Line1"
		Line1.ZOrderSet = 2
	*</PropValue>

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

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

	ADD OBJECT 'SEIP1' AS seip WITH ;
		BorderColor = 128,128,128, ;
		BorderWidth = 1, ;
		Height = 95, ;
		Left = 6, ;
		Name = "SEIP1", ;
		Top = 6, ;
		Width = 363, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

ENDDEFINE

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

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

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 = 1
		DoCreate = .T.
		Height = 63
		Name = "progresbar"
		p = 0
		v = 0
		Width = 403
		WindowType = 0
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "%", ;
		Height = 17, ;
		Left = 370, ;
		Name = "Label1", ;
		Top = 14, ;
		Width = 19, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'PRBAR' AS olecontrol WITH ;
		Height = 15, ;
		Left = 22, ;
		Name = "PRBAR", ;
		Top = 31, ;
		Width = 361, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIDXc8R+aMMBAwAAAEABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAXAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAACEAAAAAAAAABAAAAAIAAAD+/////v////7////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////S6BMHCoUbEK/AQhAQKo2nIUM0EggAAABPJQAAjQEAAIR+4eYCAAUAHAAAAAAAAAAAAMhCAe/NqwAABQAAAAAATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAEJvcmRlclN0eWxlAAkAAABJCgAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABwAAAP//////////wPfBgh/e7L0BAAUAwPfBggAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAEAGAAAAB0AAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAYWwACAAAAADkAQAAcAEAAAEAAAAlAAAAEAAAAAAAAAAAAAAAkAEAAAAAAAABAgEiTQBTACAAUwBhAG4AcwAgAFMAZQByAGkAZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAE0AUwAgAFMAYQBuAHMAIABTAGUAcgBpAGYAAAAAAAAAAAAAAA==" />

	ADD OBJECT 'Seip1' AS seip WITH ;
		Height = 49, ;
		Left = 10, ;
		Name = "Seip1", ;
		Top = 7, ;
		Width = 386, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\..\contab\clase\ferestrebaza.vcx" BaseClass="shape" />

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

	ADD OBJECT 'TITLU' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "  ", ;
		Height = 17, ;
		Left = 24, ;
		Name = "TITLU", ;
		Top = 14, ;
		Width = 8
		*< END OBJECT: BaseClass="label" />
	
	PROCEDURE Init
		THISFORM.PRBAR.MAX=Maxs
		THISFORM.PRBAR.VALUE=0
	ENDPROC

ENDDEFINE

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

	*<PropValue>
		BackStyle = 0
		BorderColor = 7,118,177
		BorderWidth = 1
		Height = 68
		Name = "seip"
		SpecialEffect = 1
		Width = 68
	*</PropValue>

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="Nu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 107
		Name = "sigur"
		Width = 348
		WindowType = 1
		SEIP1.BorderWidth = 1
		SEIP1.Height = 97
		SEIP1.Left = 5
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 5
		SEIP1.Width = 338
		Image1.BackStyle = 0
		Image1.Height = 32
		Image1.Left = 17
		Image1.Name = "Image1"
		Image1.Picture = ..\grafice\intreb.ico
		Image1.Top = 15
		Image1.Visible = .T.
		Image1.Width = 32
		Line1.Name = "Line1"
		Label1.Caption = "Doriti sa iesiti din program ?"
		Label1.Left = 80
		Label1.Name = "Label1"
		Label1.Top = 22
		Label2.Caption = "Imobilizari ?"
		Label2.FontBold = .T.
		Label2.FontSize = 12
		Label2.Left = 0
		Label2.Name = "Label2"
		Label2.Top = 96
		Label2.Visible = .F.
		CMDTERMIN1.Command1.Name = "Command1"
		CMDTERMIN1.Imbuton1.Height = 29
		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
		CMDTERMIN1.Imbuton1.Width = 27
		CMDTERMIN1.Left = -12
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 96
		CMDTERMIN1.Visible = .F.
		Label3.Left = 336
		Label3.Name = "Label3"
		Label3.Top = 36
		Label3.Visible = .F.
	*</PropValue>

	ADD OBJECT 'Da1' AS da WITH ;
		Left = 123, ;
		Name = "Da1", ;
		Top = 67, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Nu1' AS nu WITH ;
		Left = 175, ;
		Name = "Nu1", ;
		Top = 67, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
	
	PROCEDURE CMDTERMIN1.Click
		
		do inchidprog
		thisform.release
		QUIT
	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
		SEIP1.Height = 91
		SEIP1.Left = 6
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 4
		SEIP1.Width = 366
		IMAGE1.Height = 22
		IMAGE1.Left = 41
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\..\contab\grafice\hand.bmp
		IMAGE1.Top = 14
		IMAGE1.Width = 24
		Line1.Name = "Line1"
		Label1.Caption = "Stop!"
		Label1.Left = 73
		Label1.Name = "Label1"
		Label1.Top = 17
		Label2.FontSize = 11
		Label2.Left = 121
		Label2.Name = "Label2"
		Label2.Top = 17
		Cmdtermin1.Command1.Name = "Command1"
		Cmdtermin1.Imbuton1.Height = 29
		Cmdtermin1.Imbuton1.Name = "Imbuton1"
		Cmdtermin1.Imbuton1.Width = 27
		Cmdtermin1.Left = 336
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.Top = 62
		Label3.FontSize = 11
		Label3.Left = 168
		Label3.Name = "Label3"
	*</PropValue>

ENDDEFINE

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

	*<PropValue>
		DoCreate = .T.
		Height = 102
		Name = "text"
		Width = 401
		SEIP1.Height = 91
		SEIP1.Left = 6
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 5
		SEIP1.Width = 388
		IMAGE1.Height = 32
		IMAGE1.Left = 24
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\..\comun\grafice\note.ico
		IMAGE1.Top = 20
		IMAGE1.Width = 32
		IMAGE1.ZOrderSet = 2
		Line1.Name = "Line1"
		Label1.Left = 12
		Label1.Name = "Label1"
		Label1.Top = 60
		Label1.Visible = .F.
		Label1.ZOrderSet = 0
		Label2.Alignment = 2
		Label2.FontSize = 10
		Label2.Left = 180
		Label2.Name = "Label2"
		Label2.ZOrderSet = 3
		Cmdtermin1.Command1.Name = "Command1"
		Cmdtermin1.Imbuton1.Height = 29
		Cmdtermin1.Imbuton1.Name = "Imbuton1"
		Cmdtermin1.Imbuton1.Width = 27
		Cmdtermin1.Left = 352
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.Top = 63
		Cmdtermin1.ZOrderSet = 4
		Label3.FontSize = 10
		Label3.Left = 180
		Label3.Name = "Label3"
		Label3.Top = 37
		Label3.Visible = .T.
		Label3.ZOrderSet = 5
	*</PropValue>

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="Nu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Da1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Name = "textr"
		Label1.Name = "Label1"
		Label1.ZOrderSet = 1
		SEIP1.Name = "SEIP1"
		SEIP1.ZOrderSet = 0
		Image1.Height = 32
		Image1.Name = "Image1"
		Image1.Width = 32
		Image1.ZOrderSet = 6
		Label2.Name = "Label2"
		Label2.ZOrderSet = 3
		Label3.Name = "Label3"
		Label3.ZOrderSet = 5
		Cmdtermin1.Command1.Name = "Command1"
		Cmdtermin1.Imbuton1.Height = 29
		Cmdtermin1.Imbuton1.Name = "Imbuton1"
		Cmdtermin1.Imbuton1.Width = 27
		Cmdtermin1.Left = 360
		Cmdtermin1.Name = "Cmdtermin1"
		Cmdtermin1.Top = 12
		Cmdtermin1.Visible = .F.
		Cmdtermin1.ZOrderSet = 4
	*</PropValue>

	ADD OBJECT 'Da1' AS da WITH ;
		Left = 143, ;
		Name = "Da1", ;
		Top = 60, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Nu1' AS nu WITH ;
		Left = 208, ;
		Name = "Nu1", ;
		Top = 60, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 51, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

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"
		SEIP1.Name = "SEIP1"
		Line1.Name = "Line1"
		Label2.Name = "Label2"
		Cmdtermin1.Command1.Name = "Command1"
		Cmdtermin1.Imbuton1.Height = 29
		Cmdtermin1.Imbuton1.Name = "Imbuton1"
		Cmdtermin1.Imbuton1.Width = 27
		Cmdtermin1.Name = "Cmdtermin1"
		Label3.Left = 72
		Label3.Name = "Label3"
		Label3.Top = 68
		Label3.Visible = .F.
		IMAGE1.BackStyle = 0
		IMAGE1.Height = 32
		IMAGE1.Left = 43
		IMAGE1.Name = "IMAGE1"
		IMAGE1.Picture = ..\..\contab\grafice\point04.ico
		IMAGE1.Stretch = 0
		IMAGE1.Top = 19
		IMAGE1.Width = 32
	*</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 = .F.
		BackColor = 255,255,255
		BackStyle = 0
		Caption = "TITLU FRUMOS"
		FontBold = .F.
		FontName = "Comic Sans MS"
		FontSize = 10
		ForeColor = 255,255,255
		Height = 37
		Name = "titlufrumos"
		Width = 364
		WordWrap = .T.
	*</PropValue>

ENDDEFINE

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

	*<PropValue>
		AutoSize = .T.
		BackStyle = 0
		Caption = "Label1"
		FontBold = .T.
		FontName = "Arial"
		Height = 17
		Name = "titlu"
		Width = 40
	*</PropValue>

ENDDEFINE

DEFINE CLASS vizgol 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="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="LabelTitlu" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape5" 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.Header2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label102" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label103" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label101" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 540
		Name = "vizgol"
		Width = 800
	*</PropValue>

	ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
		Height = 27, ;
		Left = 695, ;
		Name = "Cmdtermin1", ;
		TabIndex = 3, ;
		Top = 487, ;
		Width = 98, ;
		ZOrderSet = 7, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		BackColor = 254,255,240, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		GridLineColor = 128,128,128, ;
		Height = 435, ;
		Left = 12, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RowHeight = 19, ;
		TabIndex = 1, ;
		Top = 24, ;
		View = 0, ;
		Width = 672, ;
		ZOrderSet = 6, ;
		Column1.Alignment = 0, ;
		Column1.BackColor = 254,255,240, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "nume_2", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.FontSize = 9, ;
		Column1.Format = "", ;
		Column1.InputMask = "", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 139, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 254,255,240, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.FontSize = 9, ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 53, ;
		Column3.Alignment = 1, ;
		Column3.BackColor = 254,255,240, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "incasari", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.FontSize = 9, ;
		Column3.Format = "r", ;
		Column3.InputMask = "999 999 999 999", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 94
		*< END OBJECT: BaseClass="grid" />

	ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column2.Header2' AS header WITH ;
		Alignment = 2, ;
		Caption = "Elem.", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header2"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column3.Header3' AS header WITH ;
		Alignment = 2, ;
		Caption = "Incasari", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Name = "Header3"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 254,255,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label101' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Total Incasari", ;
		Height = 17, ;
		Left = 269, ;
		Name = "Label101", ;
		TabIndex = 18, ;
		Top = 485, ;
		Width = 76, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label102' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Total Plati", ;
		Height = 17, ;
		Left = 417, ;
		Name = "Label102", ;
		TabIndex = 21, ;
		Top = 486, ;
		Width = 56, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label103' AS label WITH ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Sold", ;
		Height = 17, ;
		Left = 564, ;
		Name = "Label103", ;
		Top = 485, ;
		Width = 27
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "TOTAL SUME:", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 12, ;
		Height = 17, ;
		Left = 48, ;
		Name = "Label2", ;
		TabIndex = 8, ;
		Top = 464, ;
		Width = 114
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'LabelTitlu' AS label WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 1, ;
		Caption = "LabelTitlu", ;
		FontBold = .T., ;
		FontName = "BankGothic Md BT", ;
		FontShadow = .F., ;
		FontSize = 12, ;
		ForeColor = 255,255,255, ;
		Height = 22, ;
		Left = 11, ;
		Name = "LabelTitlu", ;
		TabIndex = 22, ;
		Top = 2, ;
		Width = 80, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		BorderColor = 7,118,177, ;
		BorderWidth = 2, ;
		Height = 65, ;
		Left = 9, ;
		Name = "Shape1", ;
		SpecialEffect = 0, ;
		Top = 470, ;
		Width = 677, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		BorderColor = 7,118,177, ;
		BorderWidth = 2, ;
		Height = 516, ;
		Left = 690, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 19, ;
		Width = 108, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		Height = 67, ;
		Left = 690, ;
		Name = "Shape3", ;
		SpecialEffect = 0, ;
		Top = 468, ;
		Width = 108, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape5' AS shape WITH ;
		BackStyle = 0, ;
		BorderColor = 7,118,177, ;
		BorderWidth = 2, ;
		Height = 41, ;
		Left = 216, ;
		Name = "Shape5", ;
		SpecialEffect = 0, ;
		Top = 494, ;
		Width = 437, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		ControlSource = "m.tincasari", ;
		FontName = "Arial Narrow", ;
		FontSize = 9, ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 248, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 5, ;
		Top = 504, ;
		Width = 110, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		ControlSource = "m.tplati", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 390, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 6, ;
		Top = 504, ;
		Width = 110, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Alignment = 1, ;
		BackStyle = 0, ;
		ControlSource = "sold", ;
		FontName = "Arial Narrow", ;
		Format = "r", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 525, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		SpecialEffect = 2, ;
		TabIndex = 7, ;
		Top = 504, ;
		Width = 110, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Text1.GotFocus
		sum incasari to m.tincasari
		this.refresh
		
	ENDPROC

	PROCEDURE Text1.Init
		sele bannume
		sum incasari to m.tincasari
		this.refresh
		
	ENDPROC

	PROCEDURE Text2.GotFocus
		sum plati to m.tplati
		this.refresh
	ENDPROC

	PROCEDURE Text3.GotFocus
		sold=tincasari-tplati
		this.refresh
		
	ENDPROC

ENDDEFINE
