*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="copy of ofundal_roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS pagefr AS pg_meniu OF "..\comun\clase\ofundal.vcx" 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Page2.Ct_registratura1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page3.Ct_date_generale1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page3.Ct_part_nr_data1" UniqueID="" Timestamp="" />

	*<PropValue>
		ActivePage = 2
		ErasePage = .T.
		Height = 578
		Name = "pagefr"
		PageCount = 3
		Width = 800
		Page1.Caption = "Definire"
		Page1.Name = "Page1"
		Page2.Caption = "Lista documentelor"
		Page2.Name = "Page2"
		Page3.BackColor = 255,255,255
		Page3.Caption = "Datele documentului"
		Page3.Name = "Page3"
	*</PropValue>

	ADD OBJECT 'Page2.Ct_registratura1' AS ct_registratura WITH ;
		Left = -2, ;
		Name = "Ct_registratura1", ;
		Top = 0, ;
		Gridsort1.Name = "Gridsort1", ;
		_ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
		grid_registratura.cData_ctr.Header1.Name = "Header1", ;
		grid_registratura.cData_ctr.Name = "cData_ctr", ;
		grid_registratura.cData_ctr.Text1.Name = "Text1", ;
		grid_registratura.cNr_ctr.Header1.Name = "Header1", ;
		grid_registratura.cNr_ctr.Name = "cNr_ctr", ;
		grid_registratura.cNr_ctr.Text1.Name = "Text1", ;
		grid_registratura.cNume.Header1.Name = "Header1", ;
		grid_registratura.cNume.Name = "cNume", ;
		grid_registratura.cNume.Text1.Name = "Text1", ;
		grid_registratura.Column12.Header1.Name = "Header1", ;
		grid_registratura.Column12.Name = "Column12", ;
		grid_registratura.Column12.Text1.Name = "Text1", ;
		grid_registratura.Column14.Header1.Name = "Header1", ;
		grid_registratura.Column14.Name = "Column14", ;
		grid_registratura.Column14.Text1.Name = "Text1", ;
		grid_registratura.Column15.Header1.Name = "Header1", ;
		grid_registratura.Column15.Name = "Column15", ;
		grid_registratura.Column15.Text1.Name = "Text1", ;
		grid_registratura.Name = "grid_registratura", ;
		But_nou1.Name = "But_nou1", ;
		But_sterge1.Name = "But_sterge1", ;
		Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ;
		Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
		Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
		But_listare1.Name = "But_listare1", ;
		But_excel1.Name = "But_excel1", ;
		Ck_data_ctr.Alignment = 0, ;
		Ck_data_ctr.Name = "Ck_data_ctr", ;
		Ck_nume.Alignment = 0, ;
		Ck_nume.Name = "Ck_nume", ;
		Ck_nr_ctr.Alignment = 0, ;
		Ck_nr_ctr.Name = "Ck_nr_ctr", ;
		Cmd_reset1.Name = "Cmd_reset1", ;
		Cmd_cauta1.Name = "Cmd_cauta1"
		*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />

	ADD OBJECT 'Page3.Ct_date_generale1' AS ct_date_generale WITH ;
		Anchor = 15, ;
		Left = 1, ;
		Name = "Ct_date_generale1", ;
		Top = 0, ;
		outlook2003bar1.Left = 1, ;
		outlook2003bar1.Name = "outlook2003bar1", ;
		outlook2003bar1.overflowpanel.MenuButton.imgPicture.Height = 16, ;
		outlook2003bar1.overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ;
		outlook2003bar1.overflowpanel.MenuButton.imgPicture.Width = 16, ;
		outlook2003bar1.overflowpanel.MenuButton.Name = "MenuButton", ;
		outlook2003bar1.overflowpanel.Name = "overflowpanel", ;
		outlook2003bar1.Panel.Name = "Panel", ;
		outlook2003bar1.Panes.ErasePage = .T., ;
		outlook2003bar1.Panes.Height = 328, ;
		outlook2003bar1.Panes.Name = "Panes", ;
		outlook2003bar1.Panes.Pane1.Name = "Pane1", ;
		outlook2003bar1.Panes.Pane1.Olecontrol1.Height = 328, ;
		outlook2003bar1.Panes.Pane1.Olecontrol1.Left = 0, ;
		outlook2003bar1.Panes.Pane1.Olecontrol1.Name = "Olecontrol1", ;
		outlook2003bar1.Panes.Pane1.Olecontrol1.Top = 0, ;
		outlook2003bar1.Panes.Pane1.Olecontrol1.Width = 198, ;
		outlook2003bar1.Panes.Pane1.Olecontrol2.Height = 150, ;
		outlook2003bar1.Panes.Pane1.Olecontrol2.Name = "Olecontrol2", ;
		outlook2003bar1.Panes.Pane1.Olecontrol2.Width = 200, ;
		outlook2003bar1.Panes.Pane2.Name = "Pane2", ;
		outlook2003bar1.Panes.Pane3.Name = "Pane3", ;
		outlook2003bar1.Panes.Pane4.Name = "Pane4", ;
		outlook2003bar1.Panes.Pane5.Name = "Pane5", ;
		outlook2003bar1.Panes.Pane6.Name = "Pane6", ;
		outlook2003bar1.Panes.Pane7.Name = "Pane7", ;
		outlook2003bar1.Panes.Top = 33, ;
		outlook2003bar1.SplitBar.imgSplitter.Height = 3, ;
		outlook2003bar1.SplitBar.imgSplitter.Name = "imgSplitter", ;
		outlook2003bar1.SplitBar.imgSplitter.Width = 35, ;
		outlook2003bar1.SplitBar.Name = "SplitBar", ;
		outlook2003bar1.Splitter.Name = "Splitter", ;
		outlook2003bar1.Title.lblCaption.Name = "lblCaption", ;
		outlook2003bar1.Title.linBorder.Name = "linBorder", ;
		outlook2003bar1.Title.Name = "Title", ;
		outlook2003bar1.Top = 1
		*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />

	ADD OBJECT 'Page3.Ct_part_nr_data1' AS ct_part_nr_data WITH ;
		Anchor = 11, ;
		Left = 201, ;
		Name = "Ct_part_nr_data1", ;
		Top = 0, ;
		Shape1.Name = "Shape1", ;
		CMDDENUMIRE.Name = "CMDDENUMIRE", ;
		Label3.Name = "Label3", ;
		txtClient.Name = "txtClient", ;
		Label4.Name = "Label4", ;
		txtNumar.Name = "txtNumar", ;
		Label9.Name = "Label9", ;
		txtData_ctr.Name = "txtData_ctr", ;
		Command2.Name = "Command2", ;
		Line1.Name = "Line1", ;
		lb_actAd.Name = "lb_actAd"
		*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />

ENDDEFINE

DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_nivel" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_nivel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cgridsortlist
	*</DefinedPropArrayMethod>

	*<PropValue>
		AlwaysOnTop = .F.
		BackColor = 255,255,255
		BorderStyle = 0
		Caption = ""
		cgridsortlist = grid_registratura
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Height = 584
		Left = 0
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "princ"
		ShowTips = .T.
		Top = 0
		Width = 793
		WindowState = 2
	*</PropValue>

	ADD OBJECT 'Image1' AS image WITH ;
		Anchor = 12, ;
		Height = 220, ;
		Left = 226, ;
		Name = "Image1", ;
		Picture = ..\grafice\roaclienti.bmp, ;
		Top = 235, ;
		Width = 556, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Image2' AS image WITH ;
		BackStyle = 1, ;
		Height = 63, ;
		Left = 0, ;
		Name = "Image2", ;
		Picture = ..\grafice\f1.jpg, ;
		Stretch = 2, ;
		Top = 0, ;
		Width = 804, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="image" />

	ADD OBJECT 'Imagine01' AS imagine WITH ;
		ccod = A01, ;
		Height = 55, ;
		Left = 6, ;
		Name = "Imagine01", ;
		nid_img = 1, ;
		ntip = 4, ;
		picturedown = clie2.bmp, ;
		pictureup = clie1.bmp, ;
		ToolTipText = "Vizualizare parteneri", ;
		Top = 0, ;
		Width = 42
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'lb_nivel' AS label WITH ;
		Anchor = 6, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nivel de acces:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 216, ;
		Name = "lb_nivel", ;
		Top = 443, ;
		Visible = .F., ;
		Width = 85
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lb_nivel1' AS textbox WITH ;
		Anchor = 6, ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.nivel", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 307, ;
		Name = "lb_nivel1", ;
		ReadOnly = .T., ;
		TabStop = .F., ;
		Top = 442, ;
		Visible = .F., ;
		Width = 28
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
		Anchor = 8, ;
		Caption = "Operator:", ;
		FontItalic = .T., ;
		ForeColor = 255,255,255, ;
		Left = 580, ;
		Name = "lb_utilizator", ;
		Top = 8, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
		Anchor = 8, ;
		Caption = "nume_utilizator", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 255,255,255, ;
		Left = 634, ;
		Name = "lb_utilizator1", ;
		Top = 8, ;
		Visible = .F., ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'Pagefr1' AS pagefr WITH ;
		ErasePage = .T., ;
		Height = 475, ;
		Left = -1, ;
		Name = "Pagefr1", ;
		Top = 59, ;
		Width = 804, ;
		Page1.Name = "Page1", ;
		Page2.Ct_registratura1.But_excel1.Name = "But_excel1", ;
		Page2.Ct_registratura1.But_listare1.Name = "But_listare1", ;
		Page2.Ct_registratura1.But_nou1.Name = "But_nou1", ;
		Page2.Ct_registratura1.But_sterge1.Name = "But_sterge1", ;
		Page2.Ct_registratura1.Ck_data_ctr.Alignment = 0, ;
		Page2.Ct_registratura1.Ck_data_ctr.Name = "Ck_data_ctr", ;
		Page2.Ct_registratura1.Ck_nr_ctr.Alignment = 0, ;
		Page2.Ct_registratura1.Ck_nr_ctr.Name = "Ck_nr_ctr", ;
		Page2.Ct_registratura1.Ck_nume.Alignment = 0, ;
		Page2.Ct_registratura1.Ck_nume.Name = "Ck_nume", ;
		Page2.Ct_registratura1.Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ;
		Page2.Ct_registratura1.Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
		Page2.Ct_registratura1.Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
		Page2.Ct_registratura1.Cmd_cauta1.Name = "Cmd_cauta1", ;
		Page2.Ct_registratura1.Cmd_reset1.Name = "Cmd_reset1", ;
		Page2.Ct_registratura1.Gridsort1.Name = "Gridsort1", ;
		Page2.Ct_registratura1.grid_registratura.cData_ctr.Header1.Name = "Header1", ;
		Page2.Ct_registratura1.grid_registratura.cData_ctr.Name = "cData_ctr", ;
		Page2.Ct_registratura1.grid_registratura.cData_ctr.Text1.Name = "Text1", ;
		Page2.Ct_registratura1.grid_registratura.cNr_ctr.Header1.Name = "Header1", ;
		Page2.Ct_registratura1.grid_registratura.cNr_ctr.Name = "cNr_ctr", ;
		Page2.Ct_registratura1.grid_registratura.cNr_ctr.Text1.Name = "Text1", ;
		Page2.Ct_registratura1.grid_registratura.cNume.Header1.Name = "Header1", ;
		Page2.Ct_registratura1.grid_registratura.cNume.Name = "cNume", ;
		Page2.Ct_registratura1.grid_registratura.cNume.Text1.Name = "Text1", ;
		Page2.Ct_registratura1.grid_registratura.Column12.Header1.Name = "Header1", ;
		Page2.Ct_registratura1.grid_registratura.Column12.Name = "Column12", ;
		Page2.Ct_registratura1.grid_registratura.Column12.Text1.Name = "Text1", ;
		Page2.Ct_registratura1.grid_registratura.Column14.Header1.Name = "Header1", ;
		Page2.Ct_registratura1.grid_registratura.Column14.Name = "Column14", ;
		Page2.Ct_registratura1.grid_registratura.Column14.Text1.Name = "Text1", ;
		Page2.Ct_registratura1.grid_registratura.Column15.Header1.Name = "Header1", ;
		Page2.Ct_registratura1.grid_registratura.Column15.Name = "Column15", ;
		Page2.Ct_registratura1.grid_registratura.Column15.Text1.Name = "Text1", ;
		Page2.Ct_registratura1.grid_registratura.Name = "grid_registratura", ;
		Page2.Ct_registratura1.Name = "Ct_registratura1", ;
		Page2.Ct_registratura1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
		Page2.Name = "Page2", ;
		Page3.Ct_date_generale1.Left = 1, ;
		Page3.Ct_date_generale1.Name = "Ct_date_generale1", ;
		Page3.Ct_date_generale1.outlook2003bar1.Name = "outlook2003bar1", ;
		Page3.Ct_date_generale1.outlook2003bar1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Height = 16, ;
		Page3.Ct_date_generale1.outlook2003bar1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Name = "IMGPICTURE", ;
		Page3.Ct_date_generale1.outlook2003bar1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Width = 16, ;
		Page3.Ct_date_generale1.outlook2003bar1.OVERFLOWPANEL.MENUBUTTON.Name = "MENUBUTTON", ;
		Page3.Ct_date_generale1.outlook2003bar1.OVERFLOWPANEL.Name = "OVERFLOWPANEL", ;
		Page3.Ct_date_generale1.outlook2003bar1.Panel.Name = "Panel", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.ErasePage = .T., ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.Height = 328, ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.Name = "PANES", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Name = "PANE1", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol1.Height = 328, ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol1.Left = 0, ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol1.Name = "Olecontrol1", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol1.Top = 0, ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol1.Width = 198, ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol2.Height = 150, ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol2.Name = "Olecontrol2", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE1.Olecontrol2.Width = 200, ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE2.Name = "PANE2", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE3.Name = "PANE3", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE4.Name = "PANE4", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE5.Name = "PANE5", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE6.Name = "PANE6", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE7.Name = "PANE7", ;
		Page3.Ct_date_generale1.outlook2003bar1.PANES.Top = 33, ;
		Page3.Ct_date_generale1.outlook2003bar1.SplitBar.IMGSPLITTER.Height = 3, ;
		Page3.Ct_date_generale1.outlook2003bar1.SplitBar.IMGSPLITTER.Name = "IMGSPLITTER", ;
		Page3.Ct_date_generale1.outlook2003bar1.SplitBar.IMGSPLITTER.Width = 35, ;
		Page3.Ct_date_generale1.outlook2003bar1.SplitBar.Name = "SplitBar", ;
		Page3.Ct_date_generale1.outlook2003bar1.SPLITTER.Name = "SPLITTER", ;
		Page3.Ct_date_generale1.outlook2003bar1.TITLE.LBLCAPTION.Name = "LBLCAPTION", ;
		Page3.Ct_date_generale1.outlook2003bar1.TITLE.LINBORDER.Name = "LINBORDER", ;
		Page3.Ct_date_generale1.outlook2003bar1.TITLE.Name = "TITLE", ;
		Page3.Ct_date_generale1.Top = 7, ;
		Page3.Ct_date_generale1.Width = 800, ;
		Page3.Ct_part_nr_data1.CMDDENUMIRE.Name = "CMDDENUMIRE", ;
		Page3.Ct_part_nr_data1.Command2.Name = "Command2", ;
		Page3.Ct_part_nr_data1.Label3.Name = "Label3", ;
		Page3.Ct_part_nr_data1.Label4.Name = "Label4", ;
		Page3.Ct_part_nr_data1.Label9.Name = "Label9", ;
		Page3.Ct_part_nr_data1.lb_actAd.Name = "lb_actAd", ;
		Page3.Ct_part_nr_data1.Left = 201, ;
		Page3.Ct_part_nr_data1.Line1.Name = "Line1", ;
		Page3.Ct_part_nr_data1.Name = "Ct_part_nr_data1", ;
		Page3.Ct_part_nr_data1.Shape1.Name = "Shape1", ;
		Page3.Ct_part_nr_data1.Top = 7, ;
		Page3.Ct_part_nr_data1.txtClient.Name = "txtClient", ;
		Page3.Ct_part_nr_data1.txtData_ctr.Name = "txtData_ctr", ;
		Page3.Ct_part_nr_data1.txtNumar.Name = "txtNumar", ;
		Page3.Enabled = .F., ;
		Page3.Name = "Page3"
		*< END OBJECT: ClassLib="ofundal_roaclienti.vcx" BaseClass="pageframe" />

	ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ;
		Height = 20, ;
		Left = 4, ;
		Name = "Cw1", ;
		nid_cw = 1, ;
		ntip = 4, ;
		Top = 21, ;
		Width = 142, ;
		LABEL_ITEM1.Caption = "Parteneri", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 4, ;
		Name = "Cw2", ;
		nid_cw = 5, ;
		ntip = 4, ;
		Top = 70, ;
		Width = 142, ;
		LABEL_ITEM1.Caption = "Optiuni", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefr1.Page1.Cw4' AS cw WITH ;
		Left = 4, ;
		Name = "Cw4", ;
		nid_cw = 2, ;
		ntip = 2, ;
		TabIndex = 2, ;
		Top = 45, ;
		Width = 142, ;
		Label_item1.Caption = "Modele de COVER PAGE", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefr1.Page1.shape1' AS pict_meniu WITH ;
		Height = 362, ;
		Left = 0, ;
		Name = "shape1", ;
		Picture = ..\grafice\f2.jpg, ;
		Top = 7, ;
		Width = 160
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
	
	PROCEDURE Init
		thisform.imagine01.Init()
		
		
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		LOCAL lnPornire 
		
		verifica_drepturi('oprinc','pagefr1')
		
		Local w,h
		w=_Screen.Width
		h=_Screen.Height
		
		This.Width=w
		This.Height=h
		
		This.image1.Left=w-This.image1.Width-25
		This.image1.Top=h-This.image1.Height-25
		*!*	This.lb_utilizator.Top=h-This.lb_utilizator.Height
		*!*	This.lb_utilizator1.Top=h-This.lb_utilizator1.Height
		This.image2.Width = w + 180
		
		With This.pagefr1
			.Width=w
			.Height=h
			.page1.shape1.Height=h
		ENDWITH
		
		SELECT cRegistratura
		GO TOP 
		
		this.pagefr1.page2.ct_registratura1.grid_registratura.SetFocus()
		
		
		
	ENDPROC

	PROCEDURE Image1.RightClick
		Do start_firma In ostartfirma.prg
		
		** Initializez gnRon corespunzator lunii in care am intrat
		Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
		lcLunaRon = Substr(gcDataRon,1,2)
		lcAnulRon = Substr(gcDataRon,4,4)
		If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
			lnValue = 2
		Else
			lnValue = 1
		Endif
		
		lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
		
		lnSucces = goExecutor.oExecute(lcExec)
		If lnSucces < 0
			lcTextEroare = goExecutor.cEroare
			Messagebox(lcTextEroare,48,"Eroare")
			Return
		Endif
		
		Do oinit_optiuni.prg
		**
		
		verifica_drepturi('oprinc','pagefr1')
		
		
		
	ENDPROC

	PROCEDURE Imagine01.do_actiune
		thisform.pagefr1.pAGE1.cw1.do_actiune
		
		
		
		
	ENDPROC

	PROCEDURE lb_utilizator.RightClick
		thisform.rightclick
	ENDPROC

	PROCEDURE lb_utilizator1.RightClick
		thisform.rightclick
	ENDPROC

	PROCEDURE Pagefr1.Page1.Click
		IF TYPE('podg_dg.but_termin1') <> 'U'
			podg_dg.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_ob.but_termin1') <> 'U'
			podg_ob.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_tf.but_termin1') <> 'U'
			podg_tf.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_tl.but_termin1') <> 'U'
			podg_tl.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_obs.but_termin1') <> 'U'
			podg_obs.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_link.but_termin1') <> 'U'
			podg_link.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_fact.but_termin1') <> 'U'
			podg_fact.but_termin1.CLICK()
		ENDIF
	ENDPROC

	PROCEDURE Pagefr1.Page1.Cw1.do_actiune
		* DO viz_clienti IN onom_clienti.prg
		DO viz_parteneri IN onomenclatoare.prg
	ENDPROC

	PROCEDURE Pagefr1.Page1.Cw1.LABEL_ITEM1.Init
		this.Caption = iif(gnParametru_prog=1,'Clienti',iif(gnParametru_prog=2,'Furnizori','Parteneri'))
	ENDPROC

	PROCEDURE Pagefr1.Page1.Cw2.do_actiune
		* 
	ENDPROC

	PROCEDURE Pagefr1.Page1.Cw4.do_actiune
		Do vizualizare_agenti In onomenclatoare.prg
	ENDPROC

	PROCEDURE Pagefr1.Page2.Activate
		thisform.image1.Visible = .F.
		
		
		
		
		
		
	ENDPROC

	PROCEDURE Pagefr1.Page2.Click
		IF TYPE('podg_dg.but_termin1') <> 'U'
			podg_dg.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_ob.but_termin1') <> 'U'
			podg_ob.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_tf.but_termin1') <> 'U'
			podg_tf.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_tl.but_termin1') <> 'U'
			podg_tl.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_obs.but_termin1') <> 'U'
			podg_obs.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_link.but_termin1') <> 'U'
			podg_link.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_fact.but_termin1') <> 'U'
			podg_fact.but_termin1.CLICK()
		ENDIF
		IF TYPE('podg_garantii.but_termin1') <> 'U'
			podg_garantii.but_termin1.CLICK()
		ENDIF
		
		this.ct_contracte1.do_cauta()
		
		
		
		
		
	ENDPROC

	PROCEDURE Pagefr1.Page2.Deactivate
		thisform.image1.Visible = .T.
		*!*	thisform.lb_nivel.Visible = .T.
		*!*	thisform.lb_nivel1.Visible = .T.
		*!*	thisform.lb_utilizator.Visible = .T.
		*!*	thisform.lb_utilizator1.Visible = .T.
		
		IF EMPTY(goContract.id_ctr)
			AMESSAGEBOX('Nu este selectat nici un contract!',0+48,_SCREEN.CAPTION)
			this.Parent.paGE3.Enabled = .F.
			_screen.LockScreen= .T.
		ELSE 	
			this.Parent.paGE3.Enabled = .T.
		ENDIF
		
		
	ENDPROC

	PROCEDURE Pagefr1.Page3.Activate
		IF EMPTY(goContract.id_ctr)
			this.Parent.ActivePage=2
		ENDIF 
		
		IF ALLTRIM(gocontract.tip_istoric) = 'A'
			this.ct_part_nr_data1.lb_actAd.Visible = .T.
			this.ct_part_nr_data1.lb_actAd.Caption = ALLTRIM(gocontract.numar_aa)
		ELSE 	
			this.ct_part_nr_data1.lb_actAd.Visible = .F.
		ENDIF 
		
		
		
		thisform.image1.Visible = .F.
		*!*	thisform.lb_nivel.Visible = .F.
		*!*	thisform.lb_nivel1.Visible = .F.
		*!*	thisform.lb_utilizator.Visible = .F.
		*!*	thisform.lb_utilizator1.Visible = .F.
	ENDPROC

	PROCEDURE Pagefr1.Page3.Click
		DO make_cursoare_ctr IN oproceduri_roacontracte.prg && imi creeaza cursoarele
		this.ct_part_nr_data1.Refresh 
		
		this.ct_date_generale1.outlook2003bar1.panel.button1.Click
		
		
	ENDPROC

	PROCEDURE Pagefr1.Page3.Deactivate
		THISFORM.image1.VISIBLE = .T.
		*!*	THISFORM.lb_nivel.VISIBLE = .T.
		*!*	THISFORM.lb_nivel1.VISIBLE = .T.
		*!*	THISFORM.lb_utilizator.VISIBLE = .T.
		*!*	THISFORM.lb_utilizator1.VISIBLE = .T.
		
		LOCAL lnRaspuns 
		
		IF !THIS.ct_part_nr_data1.llock
			THIS.ct_part_nr_data1.llock = .T.
		
			lnRaspuns = AMESSAGEBOX('Doriti sa salvati modificari facute?',4+32,'Atentie')
			THIS.ct_part_nr_data1.REFRESH()
			IF lnRaspuns = 7
				RETURN
			ELSE
				DO modifica_ctr_dg WITH goContract IN oproceduri_roacontracte.prg
			ENDIF
		ENDIF
		
		IF USED('cCtrScadentar')
			USE IN cCtrScadentar
		ENDIF 
		IF USED('cCtrLink')
			USE IN cCtrLink
		ENDIF 
		IF USED('cCtrArt')
			USE IN cCtrArt
		ENDIF 
			If Used('cCtrFactGarant')
				Use In cCtrFactGarant
			Endif
	ENDPROC

ENDDEFINE