*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000-3.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS danuinchid AS sigur OF "ferestrebaza.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Height = 168
		Name = "danuinchid"
		Width = 419
		SEIP1.Height = 158
		SEIP1.Left = 7
		SEIP1.Name = "SEIP1"
		SEIP1.Top = 5
		SEIP1.Width = 405
		Image1.Height = 32
		Image1.Left = 23
		Image1.Name = "Image1"
		Image1.Top = 21
		Image1.Width = 32
		Label1.Caption = "Doriti sa inchideti luna contabila curenta?"
		Label1.Left = 60
		Label1.Name = "Label1"
		Label1.Top = 97
		Label2.AutoSize = .F.
		Label2.Caption = "Daca inchideti aceasta luna, datele/documentele aferente vor putea fi vizualizate, dar nu si modificate.     De asemenea nu vor fi permise noi introduceri de date/documente in aceasta luna contabila."
		Label2.FontSize = 10
		Label2.Height = 67
		Label2.Left = 76
		Label2.Name = "Label2"
		Label2.Top = 14
		Label2.Visible = .T.
		Label2.Width = 324
		Label2.WordWrap = .T.
		CMDTERMIN1.Command1.Name = "Command1"
		CMDTERMIN1.Imbuton1.Height = 29
		CMDTERMIN1.Imbuton1.Name = "Imbuton1"
		CMDTERMIN1.Imbuton1.Width = 27
		CMDTERMIN1.Left = 373
		CMDTERMIN1.Name = "CMDTERMIN1"
		CMDTERMIN1.Top = 130
		Label3.Left = 328
		Label3.Name = "Label3"
		Label3.Top = 136
		Nu1.Command1.Name = "Command1"
		Nu1.Imbuton1.Height = 27
		Nu1.Imbuton1.Name = "Imbuton1"
		Nu1.Imbuton1.Width = 51
		Nu1.Left = 210
		Nu1.Name = "Nu1"
		Nu1.Top = 123
		Da1.Command1.Name = "Command1"
		Da1.Imbuton1.Height = 27
		Da1.Imbuton1.Name = "Imbuton1"
		Da1.Imbuton1.Width = 51
		Da1.Left = 158
		Da1.Name = "Da1"
		Da1.Top = 123
	*</PropValue>

ENDDEFINE

DEFINE CLASS optiuni 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="TITLU1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.SEIP1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.V" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.Seip2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.A" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.Seip3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.C" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.Seip4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.D" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P1.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Seip2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.SEIP1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.B" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.o378" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.o411" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Text12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.P2.Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.PR.SEIP1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.PR.r1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.PR.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.PR.Seip2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.PR.r2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.PR.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.p3.Seip2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.p3.Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.p3.FBON" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.p3.Seip3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.p3.Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="P.p3.FNIR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDLIST1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: a
		*p: a378
		*p: a411
		*p: b
		*p: c
		*p: cuanalitice
		*p: d
		*p: fb
		*p: fn
		*p: r1
		*p: r2
		*p: v
	*</DefinedPropArrayMethod>

	*<PropValue>
		a = 1
		a378 = 1
		a411 = 1
		b = 1
		c = 1
		d = 2
		DoCreate = .T.
		fb = 2
		fn = 2
		Height = 391
		Name = "optiuni"
		r1 = 1
		r2 = 1
		v = 1
		Width = 494
		Line1.Name = "Line1"
	*</PropValue>

	ADD OBJECT 'CMDLIST1' AS cmdlist WITH ;
		Caption = "\<FISIER", ;
		Left = 288, ;
		Name = "CMDLIST1", ;
		Top = 355
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'P' AS pageframe WITH ;
		ErasePage = .T., ;
		Height = 315, ;
		Left = 14, ;
		Name = "P", ;
		PageCount = 4, ;
		TabStyle = 1, ;
		Top = 33, ;
		Width = 468, ;
		Page1.Caption = "Gestiuni", ;
		Page1.Name = "P1", ;
		Page1.PageOrder = 2, ;
		Page2.Caption = "Contabilizare", ;
		Page2.Enabled = .T., ;
		Page2.Name = "P2", ;
		Page2.PageOrder = 3, ;
		Page3.Caption = "Retea", ;
		Page3.Name = "PR", ;
		Page3.PageOrder = 1, ;
		Page4.Caption = "Formulare", ;
		Page4.Name = "p3", ;
		Page4.PageOrder = 4
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'P.P1.A' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.A", ;
		Height = 48, ;
		Left = 353, ;
		Name = "A", ;
		Top = 76, ;
		Value = 1, ;
		Width = 48, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Da", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 34, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Nu", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Width = 34
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.P1.C' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.C", ;
		Height = 48, ;
		Left = 353, ;
		Name = "C", ;
		Top = 136, ;
		Value = 1, ;
		Width = 91, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Denumire", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 73, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Cod material", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Width = 89
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.P1.D' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "thisform.d", ;
		Height = 48, ;
		Left = 353, ;
		Name = "D", ;
		Top = 210, ;
		Value = 2, ;
		Width = 91, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Da", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 0, ;
		Option1.Width = 34, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Nu", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Value = 1, ;
		Option2.Width = 34
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.P1.Label1' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Se foloseste evidentierea in valuta a preturilor de achizitie si de vanzare?", ;
		Height = 36, ;
		Left = 32, ;
		Name = "Label1", ;
		Top = 22, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P1.Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Se folosesc coeficienti variabili de adaos comercial?", ;
		Height = 36, ;
		Left = 32, ;
		Name = "Label2", ;
		Top = 81, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P1.Label3' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "In listele nomenclatoare este utila cautarea cu prioritate dupa denumire sau codul de material?", ;
		Height = 36, ;
		Left = 32, ;
		Name = "Label3", ;
		Top = 141, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P1.Label4' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "La achizitia de marfa, cu discount de la furnizor, este necesar ca discount-ul sa se distribuie pe unitatea de produs (intrarea in gestiune sa fie la pretul de achizitie diminuat) ?", ;
		Height = 61, ;
		Left = 32, ;
		Name = "Label4", ;
		Top = 202, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P1.SEIP1' AS seip WITH ;
		Height = 53, ;
		Left = 15, ;
		Name = "SEIP1", ;
		Top = 15, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.P1.Seip2' AS seip WITH ;
		Height = 53, ;
		Left = 15, ;
		Name = "Seip2", ;
		Top = 74, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.P1.Seip3' AS seip WITH ;
		Height = 53, ;
		Left = 15, ;
		Name = "Seip3", ;
		Top = 134, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.P1.Seip4' AS seip WITH ;
		Height = 80, ;
		Left = 15, ;
		Name = "Seip4", ;
		Top = 195, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.P1.V' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.V", ;
		Height = 48, ;
		Left = 353, ;
		Name = "V", ;
		Top = 17, ;
		Value = 1, ;
		Width = 48, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Da", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 34, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Nu", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Width = 34
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.P2.B' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.B", ;
		Height = 48, ;
		Left = 354, ;
		Name = "B", ;
		Top = 28, ;
		Value = 1, ;
		Width = 48, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Da", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 34, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Nu", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Width = 34
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.P2.Label1' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Este necesar ca operatorul sa vada verificarea inregistrarilor contabile, pe masura ce acestea se efectueaza?", ;
		Height = 50, ;
		Left = 33, ;
		Name = "Label1", ;
		Top = 35, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label10' AS label WITH ;
		Caption = "378", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 239, ;
		Name = "Label10", ;
		Top = 124, ;
		Width = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label11' AS label WITH ;
		Caption = "411", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 300, ;
		Name = "Label11", ;
		Top = 125, ;
		Width = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Se lucreaza cu conturi analitice de gestiune:", ;
		Height = 24, ;
		Left = 33, ;
		Name = "Label2", ;
		Top = 94, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label3' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Marfa en-gros", ;
		Height = 24, ;
		Left = 30, ;
		Name = "Label3", ;
		Top = 149, ;
		Width = 288, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label4' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Marfa cu amanuntul", ;
		Height = 24, ;
		Left = 30, ;
		Name = "Label4", ;
		Top = 171, ;
		Width = 288, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label5' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Marfa in custodie", ;
		Height = 24, ;
		Left = 30, ;
		Name = "Label5", ;
		Top = 193, ;
		Width = 288, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label6' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Marfa in gestiune valorica", ;
		Height = 24, ;
		Left = 30, ;
		Name = "Label6", ;
		Top = 212, ;
		Width = 288, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label7' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Se folosesc analiticele corespondente pt. 378:", ;
		Height = 24, ;
		Left = 21, ;
		Name = "Label7", ;
		Top = 295, ;
		Visible = .F., ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label8' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Se folosesc analiticele corespondente pt. 411:", ;
		Height = 24, ;
		Left = 21, ;
		Name = "Label8", ;
		Top = 316, ;
		Visible = .F., ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.Label9' AS label WITH ;
		Caption = "371", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 185, ;
		Name = "Label9", ;
		Top = 124, ;
		Width = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.P2.o378' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.a378", ;
		Height = 24, ;
		Left = 295, ;
		Name = "o378", ;
		Top = 288, ;
		Value = 1, ;
		Visible = .F., ;
		Width = 96, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Da", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 34, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Nu", ;
		Option2.Height = 17, ;
		Option2.Left = 48, ;
		Option2.Name = "Option2", ;
		Option2.Top = 6, ;
		Option2.Width = 34
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.P2.o411' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.a411", ;
		Height = 24, ;
		Left = 295, ;
		Name = "o411", ;
		Top = 309, ;
		Value = 1, ;
		Visible = .F., ;
		Width = 96, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Da", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 34, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Nu", ;
		Option2.Height = 17, ;
		Option2.Left = 48, ;
		Option2.Name = "Option2", ;
		Option2.Top = 6, ;
		Option2.Width = 34
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.P2.SEIP1' AS seip WITH ;
		Height = 57, ;
		Left = 16, ;
		Name = "SEIP1", ;
		Top = 26, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.P2.Seip2' AS seip WITH ;
		Height = 168, ;
		Left = 16, ;
		Name = "Seip2", ;
		Top = 89, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.P2.Text1' AS textbox WITH ;
		ControlSource = "c371engros", ;
		Height = 22, ;
		Left = 180, ;
		Name = "Text1", ;
		Top = 145, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text10' AS textbox WITH ;
		ControlSource = "c411endetail", ;
		Height = 22, ;
		Left = 297, ;
		Name = "Text10", ;
		Top = 166, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text11' AS textbox WITH ;
		ControlSource = "c411custodie", ;
		Height = 22, ;
		Left = 297, ;
		Name = "Text11", ;
		Top = 187, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text12' AS textbox WITH ;
		ControlSource = "c411gestvalorica", ;
		Height = 22, ;
		Left = 297, ;
		Name = "Text12", ;
		Top = 208, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text2' AS textbox WITH ;
		ControlSource = "c371endetail", ;
		Height = 22, ;
		Left = 180, ;
		Name = "Text2", ;
		Top = 166, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text3' AS textbox WITH ;
		ControlSource = "c371custodie", ;
		Height = 22, ;
		Left = 180, ;
		Name = "Text3", ;
		Top = 187, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text4' AS textbox WITH ;
		ControlSource = "c371gestvalorica", ;
		Height = 22, ;
		Left = 180, ;
		Name = "Text4", ;
		Top = 208, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text5' AS textbox WITH ;
		ControlSource = "c378engros", ;
		Height = 22, ;
		Left = 237, ;
		Name = "Text5", ;
		Top = 145, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text6' AS textbox WITH ;
		ControlSource = "c378endetail", ;
		Height = 22, ;
		Left = 237, ;
		Name = "Text6", ;
		Top = 166, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text7' AS textbox WITH ;
		ControlSource = "c378custodie", ;
		Height = 22, ;
		Left = 237, ;
		Name = "Text7", ;
		Top = 187, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text8' AS textbox WITH ;
		ControlSource = "c378gestvalorica", ;
		Height = 22, ;
		Left = 237, ;
		Name = "Text8", ;
		Top = 208, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.P2.Text9' AS textbox WITH ;
		ControlSource = "c411engros", ;
		Height = 22, ;
		Left = 297, ;
		Name = "Text9", ;
		Top = 145, ;
		Width = 50
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'P.p3.FBON' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.FB", ;
		Height = 48, ;
		Left = 352, ;
		Name = "FBON", ;
		Top = 21, ;
		Value = 2, ;
		Width = 87, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "De Achizitie", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 0, ;
		Option1.Width = 81, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "De Vanzare", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Value = 1, ;
		Option2.Width = 81
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.p3.FNIR' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.FN", ;
		Height = 48, ;
		Left = 352, ;
		Name = "FNIR", ;
		Top = 88, ;
		Value = 2, ;
		Width = 48, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Da", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 0, ;
		Option1.Width = 34, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Nu", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Value = 1, ;
		Option2.Width = 34
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.p3.Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Pe formularul de bon de consum se vor inscrie preturile de vanzare sau achizitie a marfii? ", ;
		Height = 50, ;
		Left = 31, ;
		Name = "Label2", ;
		Top = 25, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.p3.Label3' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Formular de NIR standard:", ;
		Height = 38, ;
		Left = 31, ;
		Name = "Label3", ;
		Top = 91, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.p3.Seip2' AS seip WITH ;
		Height = 57, ;
		Left = 14, ;
		Name = "Seip2", ;
		Top = 16, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.p3.Seip3' AS seip WITH ;
		Height = 57, ;
		Left = 14, ;
		Name = "Seip3", ;
		Top = 83, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.PR.Label1' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Programul este instalat si functioneaza in retea sau pe o singura statie?", ;
		Height = 36, ;
		Left = 34, ;
		Name = "Label1", ;
		Top = 33, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.PR.Label2' AS label WITH ;
		AutoSize = .F., ;
		BackStyle = 0, ;
		Caption = "Cate persoane utilizeaza programul?", ;
		Height = 36, ;
		Left = 34, ;
		Name = "Label2", ;
		Top = 97, ;
		Width = 276, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'P.PR.r1' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.r1", ;
		Height = 48, ;
		Left = 310, ;
		Name = "r1", ;
		Top = 27, ;
		Value = 1, ;
		Width = 75, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "In \<Retea", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 64, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "\<Local", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Width = 48
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.PR.r2' AS optiongroup WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "THISFORM.r2", ;
		Height = 48, ;
		Left = 310, ;
		Name = "r2", ;
		Top = 91, ;
		Value = 1, ;
		Width = 126, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "\<Mai multi operatori", ;
		Option1.Height = 17, ;
		Option1.Left = 2, ;
		Option1.Name = "Option1", ;
		Option1.Top = 6, ;
		Option1.Value = 1, ;
		Option1.Width = 119, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "\<Un singur operator", ;
		Option2.Height = 17, ;
		Option2.Left = 2, ;
		Option2.Name = "Option2", ;
		Option2.Top = 30, ;
		Option2.Width = 121
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'P.PR.SEIP1' AS seip WITH ;
		Height = 53, ;
		Left = 17, ;
		Name = "SEIP1", ;
		Top = 26, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'P.PR.Seip2' AS seip WITH ;
		Height = 53, ;
		Left = 17, ;
		Name = "Seip2", ;
		Top = 90, ;
		Width = 432
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'TITLU1' AS titlu WITH ;
		Caption = "OPTIUNI", ;
		Left = 13, ;
		Name = "TITLU1", ;
		Top = 7
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
	
	PROCEDURE Init
		thisform.p.pr.pageorder=1
		thisform.p.p1.pageorder=2
		thisform.p.p2.pageorder=3
		thisform.p.p3.pageorder=4
		
		
		sele optiuni
		loca for optiune='VALUTA'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'VALUTA'
		*RETRY
		ENDIF
		THISFORM.V=IIF(DA,1,2)
		
		sele optiuni
		loca for optiune='ADAOS PROCENTUAL'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'ADAOS PROCENTUAL'
		*RETRY
		ENDIF
		THISFORM.A=IIF(DA,1,2)
		
		sele optiuni
		loca for optiune='CAUTCOD'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'CAUTCOD'
		*RETRY
		ENDIF
		THISFORM.C=VALOARE
		
		sele optiuni
		loca for optiune='DISC. DISTRIB'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'DISC. DISTRIB'
		*RETRY
		ENDIF
		THISFORM.D=VALOARE
		
		sele optiuni
		loca for optiune='AFIS CONTAB'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'AFIS CONTAB'
		REPL DA WITH .T.
		*RETRY
		ENDIF
		THISFORM.B=IIF(DA,1,2)
		
		sele optiuni
		loca for optiune='RETEA'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'RETEA'
		REPL DA WITH .T.
		*RETRY
		ENDIF
		THISFORM.R1=IIF(DA,1,2)
		
		sele optiuni
		loca for optiune='MULTI OP'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'MULTI OP'
		REPL DA WITH .T.
		*RETRY
		ENDIF
		THISFORM.R2=IIF(DA,1,2)
		
		sele optiuni
		loca for optiune='BON ACHI'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'BON ACHI'
		REPL DA WITH .F.
		*RETRY
		ENDIF
		THISFORM.FB=IIF(DA,1,2)
		
		sele optiuni
		loca for optiune='NIR STANDARD'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'NIR STANDARD'
		REPL DA WITH .F.
		*RETRY
		ENDIF
		THISFORM.FN=IIF(DA,1,2)
		
		
		sele optiuni
		loca for optiune='A378'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'A378'
		*RETRY
		ENDIF
		THISFORM.A378=IIF(DA,1,2)
		
		sele optiuni
		loca for optiune='A411'
		IF !FOUND()
		APPE BLAN
		REPL OPTIUNE WITH 'A411'
		*RETRY
		ENDIF
		THISFORM.A411=IIF(DA,1,2)
		
		
		DO CITESTE_ANALITICE IN PROCEDURI.PRG
	ENDPROC

	PROCEDURE CMDLIST1.Click
		SELE OPTIUNI 
		BROW
	ENDPROC

	PROCEDURE CMDTERMIN1.Click
		sele optiuni
		loca for optiune='VALUTA'
		REPL DA WITH IIF(THISFORM.V=1,.T.,.F.)
		
		
		sele optiuni
		loca for optiune='ADAOS PROCENTUAL'
		REPL DA WITH IIF(THISFORM.A=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='CAUTCOD'
		REPL VALOARE WITH THISFORM.C
		
		sele optiuni
		loca for optiune='DISC. DISTRIB'
		REPL VALOARE WITH THISFORM.D
		
		sele optiuni
		loca for optiune='AFIS CONTAB'
		REPL DA WITH IIF(THISFORM.B=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='RETEA'
		REPL DA WITH IIF(THISFORM.R1=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='MULTI OP'
		REPL DA WITH IIF(THISFORM.R2=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='BON ACHI'
		REPL DA WITH IIF(THISFORM.FB=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='NIR STANDARD'
		REPL DA WITH IIF(THISFORM.FN=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='A378'
		REPL DA WITH IIF(THISFORM.A378=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='A411'
		REPL DA WITH IIF(THISFORM.A411=1,.T.,.F.)
		
		sele optiuni
		loca for optiune='371ENGROS'
		REPL EXPLICATIA WITH C371ENGROS
		sele optiuni
		loca for optiune='371ENDETAIL'
		REPL EXPLICATIA WITH C371ENDETAIL
		sele optiuni
		loca for optiune='371CUSTODIE'
		REPL EXPLICATIA WITH C371CUSTODIE
		sele optiuni
		loca for optiune='371GESTVALORICA'
		REPL EXPLICATIA WITH C371GESTVALORICA
		
		sele optiuni
		loca for optiune='378ENGROS'
		REPL EXPLICATIA WITH C378ENGROS
		sele optiuni
		loca for optiune='378ENDETAIL'
		REPL EXPLICATIA WITH C378ENDETAIL
		sele optiuni
		loca for optiune='378CUSTODIE'
		REPL EXPLICATIA WITH C378CUSTODIE
		sele optiuni
		loca for optiune='378GESTVALORICA'
		REPL EXPLICATIA WITH C378GESTVALORICA
		
		sele optiuni
		loca for optiune='411ENGROS'
		REPL EXPLICATIA WITH C411ENGROS
		sele optiuni
		loca for optiune='411ENDETAIL'
		REPL EXPLICATIA WITH C411ENDETAIL
		sele optiuni
		loca for optiune='411CUSTODIE'
		REPL EXPLICATIA WITH C411CUSTODIE
		sele optiuni
		loca for optiune='411GESTVALORICA'
		REPL EXPLICATIA WITH C411GESTVALORICA
		
		
		THISFORM.RELEASE
	ENDPROC

	PROCEDURE P.P1.Activate
		THIS.v.REFRESH
		THIS.a.REFRESH
		THIS.c.REFRESH
		THIS.D.REFRESH
	ENDPROC

	PROCEDURE P.P2.Activate
		THIS.B.REFRESH
		THIS.o378.REFRESH
		THIS.o411.REFRESH
		THIS.TEXT1.REFRESH
		THIS.TEXT2.REFRESH
		THIS.TEXT3.REFRESH
		THIS.TEXT4.REFRESH
		THIS.TEXT5.REFRESH
		THIS.TEXT6.REFRESH
		THIS.TEXT7.REFRESH
		THIS.TEXT8.REFRESH
		THIS.TEXT9.REFRESH
		THIS.TEXT10.REFRESH
		THIS.TEXT11.REFRESH
		THIS.TEXT12.REFRESH
		
		
		
		
		
	ENDPROC

	PROCEDURE P.p3.Activate
		THIS.FNIR.REFRESH
		THIS.FBON.REFRESH
	ENDPROC

	PROCEDURE P.PR.Activate
		THIS.R1.REFRESH
		THIS.R2.REFRESH
	ENDPROC

ENDDEFINE

DEFINE CLASS seleluna AS ffergen OF "..\..\sal2000\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="Seip1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Combo2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: aa
		*p: ll
	*</DefinedPropArrayMethod>

	*<PropValue>
		aa =  
		DoCreate = .T.
		Height = 135
		ll =  
		Name = "seleluna"
		Width = 242
		Line1.Name = "Line1"
		Line1.ZOrderSet = 1
	*</PropValue>

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

	ADD OBJECT 'Combo1' AS combobox WITH ;
		BoundColumn = 2, ;
		BoundTo = .T., ;
		ColumnCount = 2, ;
		ControlSource = "", ;
		Height = 24, ;
		Left = 24, ;
		Name = "Combo1", ;
		RowSource = "nl,an", ;
		RowSourceType = 6, ;
		Style = 2, ;
		Top = 48, ;
		Width = 72, ;
		ZOrderSet = 3
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Combo2' AS combobox WITH ;
		ControlSource = "luna", ;
		Height = 24, ;
		Left = 264, ;
		Name = "Combo2", ;
		RowSource = "calendar.nl", ;
		RowSourceType = 6, ;
		Style = 2, ;
		Top = 72, ;
		Visible = .F., ;
		Width = 60, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Label1' AS label WITH ;
		Caption = "Selectati anul si luna de inceput:", ;
		Height = 13, ;
		Left = 24, ;
		Name = "Label1", ;
		Top = 24, ;
		Width = 192, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 136, ;
		Name = "Label2", ;
		Top = 52, ;
		Width = 27
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 171, ;
		Name = "Label3", ;
		Top = 52, ;
		Width = 40
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Seip1' AS seip WITH ;
		Height = 108, ;
		Left = 12, ;
		Name = "Seip1", ;
		Top = 12, ;
		Width = 216, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />
	
	PROCEDURE Init
		thisform.ll=m.nl
		thisform.aa=m.an
	ENDPROC

	PROCEDURE CMDTERMIN1.Valid
		m.an=thisform.aa
		m.nl=thisform.ll
	ENDPROC

	PROCEDURE Combo1.Valid
		sele calendar
		anul=an
		luna=nl
		thisform.label2.caption=luna
		thisform.label3.caption=anul
		
	ENDPROC

ENDDEFINE

DEFINE CLASS seriaper 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="Seip2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SEIP1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="TITLU1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMDRENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERP1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERP2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERP3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlu7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERP4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlu5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERA4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERA2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="SERA3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Titlu6" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: a1
		*p: a2
		*p: a3
		*p: a4
		*p: p1
		*p: p2
		*p: p3
		*p: p4
	*</DefinedPropArrayMethod>

	*<PropValue>
		a1 = 
		a2 = 
		a3 = 
		a4 = 
		DoCreate = .T.
		Height = 229
		Name = "seriaper"
		p1 = 
		p2 = 
		p3 = 
		p4 = 
		Width = 618
	*</PropValue>

	ADD OBJECT 'CMDRENUNT1' AS cmdrenunt WITH ;
		Left = 540, ;
		Name = "CMDRENUNT1", ;
		TabIndex = 23, ;
		Top = 192, ;
		ZOrderSet = 9, ;
		IMBUTON1.Height = 26, ;
		IMBUTON1.Name = "IMBUTON1", ;
		IMBUTON1.Width = 26, ;
		COMMAND1.Name = "COMMAND1"
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="container" />

	ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
		Left = 575, ;
		Name = "CMDTERMIN1", ;
		TabIndex = 22, ;
		Top = 192, ;
		ZOrderSet = 8, ;
		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 = "Seria precedenta:", ;
		Height = 17, ;
		Left = 36, ;
		Name = "Label1", ;
		TabIndex = 8, ;
		Top = 57, ;
		Width = 99, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Va rugam solicitati seria periodica:", ;
		Height = 17, ;
		Left = 36, ;
		Name = "Label2", ;
		TabIndex = 9, ;
		Top = 105, ;
		Width = 191, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Va multumim.", ;
		Height = 17, ;
		Left = 36, ;
		Name = "Label3", ;
		TabIndex = 10, ;
		Top = 139, ;
		Width = 78, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Tel./Fax: 0241-541000, Tel.: 0241-606557", ;
		Height = 17, ;
		Left = 36, ;
		Name = "Label4", ;
		TabIndex = 11, ;
		Top = 178, ;
		Width = 230, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = " Pentru informatii sunati la firma ROMFAST S.R.L. CONSTANTA", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 33, ;
		Name = "Label6", ;
		TabIndex = 13, ;
		Top = 157, ;
		Width = 375, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'SEIP1' AS seip WITH ;
		BackStyle = 0, ;
		Height = 36, ;
		Left = 24, ;
		Name = "SEIP1", ;
		Top = 45, ;
		Width = 576, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'Seip2' AS seip WITH ;
		BackStyle = 0, ;
		Height = 36, ;
		Left = 24, ;
		Name = "Seip2", ;
		Top = 93, ;
		Width = 576, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="shape" />

	ADD OBJECT 'SERA1' AS textbox WITH ;
		ControlSource = "THISFORM.A1", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 277, ;
		Name = "SERA1", ;
		TabIndex = 18, ;
		Top = 101, ;
		Width = 63, ;
		ZOrderSet = 20
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'SERA2' AS textbox WITH ;
		ControlSource = "THISFORM.A2", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 363, ;
		Name = "SERA2", ;
		TabIndex = 19, ;
		Top = 101, ;
		Width = 51, ;
		ZOrderSet = 22
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'SERA3' AS textbox WITH ;
		ControlSource = "THISFORM.A3", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 438, ;
		Name = "SERA3", ;
		TabIndex = 20, ;
		Top = 101, ;
		Width = 51, ;
		ZOrderSet = 24
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'SERA4' AS textbox WITH ;
		ControlSource = "THISFORM.A4", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 511, ;
		Name = "SERA4", ;
		TabIndex = 21, ;
		Top = 101, ;
		Width = 51, ;
		ZOrderSet = 26
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'SERP1' AS textbox WITH ;
		ControlSource = "THISFORM.P1", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 277, ;
		Name = "SERP1", ;
		ReadOnly = .T., ;
		TabIndex = 14, ;
		TabStop = .F., ;
		Top = 53, ;
		Width = 63, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'SERP2' AS textbox WITH ;
		ControlSource = "THISFORM.P2", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 363, ;
		Name = "SERP2", ;
		ReadOnly = .T., ;
		TabIndex = 15, ;
		TabStop = .F., ;
		Top = 53, ;
		Width = 51, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'SERP3' AS textbox WITH ;
		ControlSource = "THISFORM.P3", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 438, ;
		Name = "SERP3", ;
		ReadOnly = .T., ;
		TabIndex = 16, ;
		TabStop = .F., ;
		Top = 53, ;
		Width = 51, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'SERP4' AS textbox WITH ;
		ControlSource = "THISFORM.P4", ;
		FontName = "Courier New", ;
		FontSize = 12, ;
		Format = "!", ;
		Height = 23, ;
		Left = 511, ;
		Name = "SERP4", ;
		ReadOnly = .T., ;
		TabIndex = 17, ;
		TabStop = .F., ;
		Top = 53, ;
		Width = 51, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'TITLU1' AS titlu WITH ;
		Caption = "SERIA PERIODICA", ;
		ForeColor = 0,64,128, ;
		Left = 36, ;
		Name = "TITLU1", ;
		TabIndex = 1, ;
		Top = 14, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />

	ADD OBJECT 'Titlu2' AS titlu WITH ;
		Caption = "_", ;
		Left = 345, ;
		Name = "Titlu2", ;
		TabIndex = 6, ;
		Top = 48, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />

	ADD OBJECT 'Titlu3' AS titlu WITH ;
		Caption = "_", ;
		Left = 420, ;
		Name = "Titlu3", ;
		TabIndex = 2, ;
		Top = 48, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />

	ADD OBJECT 'Titlu4' AS titlu WITH ;
		Caption = "_", ;
		Left = 495, ;
		Name = "Titlu4", ;
		TabIndex = 4, ;
		Top = 48, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />

	ADD OBJECT 'Titlu5' AS titlu WITH ;
		Caption = "_", ;
		Left = 345, ;
		Name = "Titlu5", ;
		TabIndex = 3, ;
		Top = 96, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />

	ADD OBJECT 'Titlu6' AS titlu WITH ;
		Caption = "_", ;
		Left = 420, ;
		Name = "Titlu6", ;
		TabIndex = 5, ;
		Top = 96, ;
		ZOrderSet = 23
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />

	ADD OBJECT 'Titlu7' AS titlu WITH ;
		Caption = "_", ;
		Left = 495, ;
		Name = "Titlu7", ;
		TabIndex = 7, ;
		Top = 96, ;
		ZOrderSet = 25
		*< END OBJECT: ClassLib="ferestrebaza.vcx" BaseClass="label" />
	
	PROCEDURE Init
		SELE cul
		GO TOP
		
		IF red='ABCDE'
			DO seriadebaza IN proceduri_comune.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
		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

	PROCEDURE CMDTERMIN1.COMMAND1.Click
		local t
		t=thisform
		serianou=allt(t.a1)+allt(t.a2)+allt(t.a3)+allt(t.a4)
		
		SELE CUL
		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
