*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />

	*<PropValue>
		DataSource = .NULL.
		Height = 200
		Left = 1
		Name = "Dataenvironment"
		Top = 220
		Width = 520
	*</PropValue>

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Imagine1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Imagine2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Imagine3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkExperimental" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: jurnal
		*m: nexperimental_assign
		*p: nexperimental		&& Mod experimental. se citeste optiunea din  optiuni_utilizator
		*p: nlb_activ
		*p: npagina
		*p: _memberdata		&& XML Metadata for customizable properties
	*</DefinedPropArrayMethod>

	*<PropValue>
		AlwaysOnBottom = .T.
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 0
		Caption = ""
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Enabled = .T.
		FillColor = 0,0,0
		FontCharSet = 238
		HalfHeightCaption = .F.
		Height = 429
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "FORM1"
		nexperimental = 0
		nlb_activ = 0
		npagina = 0
		Picture = ..\..\
		ShowTips = .T.
		Width = 797
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="nexperimental" display="nExperimental"/>
			<memberdata name="nexperimental_assign" display="nExperimental_Assign"/>
		</VFPData>
	*</PropValue>

	ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
		ErasePage = .T., ;
		Height = 457, ;
		Left = -2, ;
		Name = "_pgfrmbase1", ;
		Top = 60, ;
		Page1.Cw2.Label_item1.Name = "Label_item1", ;
		Page1.Cw2.Name = "Cw2", ;
		Page1.Cw3.Label_item1.Name = "Label_item1", ;
		Page1.Cw3.Name = "Cw3", ;
		Page1.Cw4.Label_item1.Name = "Label_item1", ;
		Page1.Cw4.Name = "Cw4", ;
		Page1.CW5.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page1.CW5.Name = "CW5", ;
		Page1.Name = "Page1", ;
		Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
		Page1.Pict_liniuta1.Picture = ..\grafice\f3.jpg, ;
		Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
		Page1.Pict_liniuta2.Picture = ..\grafice\f3.jpg, ;
		Page1.Pict_liniuta3.Name = "Pict_liniuta3", ;
		Page1.Pict_meniu1.Name = "Pict_meniu1", ;
		Page1.Pict_meniu1.Picture = ..\grafice\f2.jpg, ;
		Page2.Cw1.Label_item1.Name = "Label_item1", ;
		Page2.Cw1.Name = "Cw1", ;
		Page2.Cw2.Label_item1.Name = "Label_item1", ;
		Page2.Cw2.Name = "Cw2", ;
		Page2.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page2.CW3.Name = "CW3", ;
		Page2.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page2.CW4.Name = "CW4", ;
		Page2.Cw5.Label_item1.Name = "Label_item1", ;
		Page2.Cw5.Name = "Cw5", ;
		Page2.Cw6.Label_item1.Name = "Label_item1", ;
		Page2.Cw6.Name = "Cw6", ;
		Page2.Name = "Page2", ;
		Page2.Pict_liniuta1.Name = "Pict_liniuta1", ;
		Page2.Pict_liniuta2.Name = "Pict_liniuta2", ;
		Page2.Pict_liniuta3.Name = "Pict_liniuta3", ;
		Page2.Pict_liniuta4.Name = "Pict_liniuta4", ;
		Page2.Pict_meniu1.Name = "Pict_meniu1", ;
		Page3.Cw1.Label_item1.Name = "Label_item1", ;
		Page3.Cw1.Name = "Cw1", ;
		Page3.Cw2.Label_item1.Name = "Label_item1", ;
		Page3.Cw2.Name = "Cw2", ;
		Page3.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page3.CW3.Name = "CW3", ;
		Page3.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page3.CW4.Name = "CW4", ;
		Page3.Cw5.Label_item1.Name = "Label_item1", ;
		Page3.Cw5.Name = "Cw5", ;
		Page3.Name = "Page3", ;
		Page3.Pict_liniuta1.Name = "Pict_liniuta1", ;
		Page3.Pict_liniuta2.Name = "Pict_liniuta2", ;
		Page3.Pict_liniuta4.Name = "Pict_liniuta4", ;
		Page3.Pict_meniu1.Name = "Pict_meniu1", ;
		Page4.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page4.CW1.Name = "CW1", ;
		Page4.CW2.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page4.CW2.Name = "CW2", ;
		Page4.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page4.CW3.Name = "CW3", ;
		Page4.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page4.CW4.Name = "CW4", ;
		Page4.Name = "Page4", ;
		Page4.Pict_liniuta2.Name = "Pict_liniuta2", ;
		Page4.Pict_liniuta3.Name = "Pict_liniuta3", ;
		Page4.Pict_meniu1.Name = "Pict_meniu1"
		*< END OBJECT: ClassLib="..\clase\ofundal_imob.vcx" BaseClass="pageframe" />

	ADD OBJECT 'chkExperimental' AS _checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Experimental", ;
		ControlSource = "thisform.nExperimental", ;
		ForeColor = 255,255,255, ;
		Height = 18, ;
		Left = 204, ;
		Name = "chkExperimental", ;
		ReadOnly = .T., ;
		ToolTipText = "Un mod mai rapid de calcul amortizari (10.06.2020). Se foloseste la vizualizare amortizare si la rapoarte.", ;
		Top = 31, ;
		Value = 0, ;
		Visible = .F., ;
		Width = 95
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Image1' AS image WITH ;
		BackStyle = 0, ;
		Height = 220, ;
		Left = 228, ;
		Name = "Image1", ;
		Picture = ..\grafice\roaimob.bmp, ;
		Stretch = 0, ;
		Top = 180, ;
		Width = 556
		*< END OBJECT: BaseClass="image" />

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

	ADD OBJECT 'Imagine1' AS imagine WITH ;
		ccod = B01;C01;D01, ;
		Height = 48, ;
		Left = 7, ;
		Name = "Imagine1", ;
		nid_img = 1, ;
		Picture = ..\grafice\gene1.bmp, ;
		picturedown = d:\contafin_oracle\roaimob\grafice\gene2.bmp, ;
		pictureup = d:\contafin_oracle\roaimob\grafice\gene1.bmp, ;
		ToolTipText = "Introducere", ;
		Top = 7, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Imagine2' AS imagine WITH ;
		ccod = B02;C02;D02, ;
		Height = 48, ;
		Left = 76, ;
		Name = "Imagine2", ;
		Picture = ..\grafice\fact1.bmp, ;
		picturedown = d:\contafin_oracle\roaimob\grafice\fact2.bmp, ;
		pictureup = d:\contafin_oracle\roaimob\grafice\fact1.bmp, ;
		ToolTipText = "Preluare din contabilitate", ;
		Top = 7, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Imagine3' AS imagine WITH ;
		ccod = B03;B04;C03;C04;D03, ;
		Height = 48, ;
		Left = 141, ;
		Name = "Imagine3", ;
		Picture = ..\grafice\viz1.bmp, ;
		picturedown = d:\contafin_oracle\roaimob\grafice\viz2.bmp, ;
		pictureup = d:\contafin_oracle\roaimob\grafice\viz1.bmp, ;
		ToolTipText = "Vizualizare", ;
		Top = 7, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Operator:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 7, ;
		Name = "Label1", ;
		Top = 381, ;
		Width = 53
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nivel de acces:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 17, ;
		Left = 7, ;
		Name = "Label2", ;
		Top = 401, ;
		Width = 85
		*< END OBJECT: BaseClass="label" />

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

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

	ADD OBJECT 'Text1' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "utilizator", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 62, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		TabStop = .F., ;
		Top = 380, ;
		Width = 147
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ControlSource = "m.nivel", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Height = 23, ;
		Left = 93, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabStop = .F., ;
		Top = 400, ;
		Width = 28
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Activate
		*!* 10.06.2020
		*!* initializez variabila gnExperimental pentru calcul experimental
		
		*!*	THISFORM.AUTOCENTER=.T.
		
		LOCAL lnScrH,lnScrW 
		lnScrW = _screen.Width
		lnScrH = _screen.Height
		
		thisform.image1.Top  = lnScrH - thisform.image1.Height - 50
		thisform.image1.Left = lnScrW - thisform.image1.Width - 30
		thisform.image2.Width = lnScrW + 30
		thisform._pgfrmbase1.Width = lnScrW
		thisform._pgfrmbase1.Height = thisform.Height-thisform.image2.Height 
		thisform._pgfrmbase1.page1.Pict_meniu1.Height = thisform._pgfrmbase1.Height
		thisform._pgfrmbase1.page2.Pict_meniu1.Height = thisform._pgfrmbase1.Height
		thisform._pgfrmbase1.page3.Pict_meniu1.Height = thisform._pgfrmbase1.Height
		thisform._pgfrmbase1.page4.Pict_meniu1.Height = thisform._pgfrmbase1.Height
		
		
		* Experimental
		lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
		Thisform.nExperimental = INT(VAL(m.lcValoare))
		
		
	ENDPROC

	PROCEDURE Init
		*!*	THISFORM.AUTOCENTER=.T.
		*!* Locale
		IF TYPE('goLocale') = 'O'AND TYPE('glTraducere') = 'L'
			IF glTraducere
				golocale.SetLocale( thisform )
			EndIf 
		ENDIF 	
		*!* Locale ^
		
		Local lcValoare
		Thisform.chkExperimental.ToolTipText = '* 10.06.2020 un mod rapid de calcul situatie lunara amortizari. Se foloseste la vizualizare amortizari si rapoarte.'
		
		lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
		Thisform.nExperimental = Int(Val(m.lcValoare))
		* 25.11.2021
		Thisform.nExperimental = 1
	ENDPROC

	PROCEDURE jurnal
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode==-1	&&F2
			Quit
		Endif
		*!*	lnLbActiv=Thisform.nlb_activ
		*!*	Thisform.npagina=Thisform._pgfrmbase1.ActivePage
		*!*	lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
		*!*	Do Case
		*!*	Case nKeyCode==-1		&& F2
		*!*		Quit
		*!*	Case nKeyCode=5	And lnLbActiv>0			&& sageata sus
		*!*		Thisform.nlb_activ=Thisform.nlb_activ-1
		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
		*!*		lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
		*!*		&lcEventLeave
		*!*		&lcEventEnter
		*!*	Case nKeyCode=24 And lnLbActiv>0		&& sageata jos
		*!*		Thisform.nlb_activ=Thisform.nlb_activ+1
		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
		*!*		lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
		*!*		&lcEventLeave
		*!*		&lcEventEnter
		*!*	Case nKeyCode=24 And lnLbActiv=0		&& sageata jos
		*!*		Thisform.nlb_activ=1
		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
		*!*		&lcEventEnter
		*!*	Case nKeyCode=13 And lnLbActiv>0		&&	enter
		*!*		lcEventClick=lcLabel+Alltrim(Str(lnLbActiv))+".Click"
		*!*		&lcEventClick
		*!*		lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
		*!*		&lcEventLeave
		*!*		Thisform.nlb_activ=0
		*!*	Endcase
	ENDPROC

	PROCEDURE nexperimental_assign
		lparameters tnExperimental
		* 25.11.2021
		tnExperimental = 1
		
		This.nExperimental = tnExperimental
		
		IF tnExperimental = 1
			this.chkExperimental.Value = 1
			this.chkExperimental.BackStyle = 1  && OPAC
			this.chkExperimental.BackColor = RGB(255,0,0) && ROSU
		ELSE
			this.chkExperimental.Value = 0
			this.chkExperimental.BackStyle = 0 && TRANSPARENT
			this.chkExperimental.BackColor = RGB(240,240,240)
		ENDIF 
		
		
		goApp.nExperimental = m.tnExperimental
		
	ENDPROC

	PROCEDURE RightClick
		Do start_firma In ostartfirma.prg
		verifica_drepturi('gofundal','_pgfrmbase1')
		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		DODEFAULT(nStyle)
		*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
		*!* Trebuie adaugata o proprietate  OstatusBar la forma
		*!* si o metoda statusbarclik care sa contina comanda 
		*!* Thisform.oStatusBar.newtooltip()
		*!*
		If Not Pemstatus(_Screen,"StatusBar", 5) Then
		*!* 31.01.2008 TEST FARA STATUSBAR
		*!*	_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
			_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3)	
		*!* 31.01.2008 TEST FARA STATUSBAR ^
		EndIf
		
		DO start_firma IN ostartfirma.prg 	
		primadata = .F.
		verifica_drepturi('gofundal','_pgfrmbase1')
		Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
		Thisform.lb_utilizator1.Visible=.T.
		DO lansare_toolbar IN oproceduri_comune.prg
		DO lansare_help IN oproceduri_comune.prg
		
	ENDPROC

	PROCEDURE chkExperimental.Valid
		Local lcValoare
		lcValoare = Alltrim(Str(Thisform.nExperimental))
		lnSucces = scrie_optiune_utilizator('IMOB_EXPERIMENTAL', m.lcValoare, '1 = MOD EXPERIMENTAL IMOBILIZARI, 0 = STANDARD')
		IF m.lnSucces <= 0
			lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
			Thisform.nExperimental = Int(Val(m.lcValoare))
		ENDIF 
	ENDPROC

	PROCEDURE Image1.RightClick
		thisform.rightclick
	ENDPROC

	PROCEDURE Imagine1.do_actiune
		lnActivePg = thisform._pgfrmbase1.ActivePage
		DO CASE 
			CASE lnActivePg = 2 OR lnActivePg = 3
				DO introducere_imob WITH lnActivePg-1 IN oproceduri_imob.prg
			CASE lnActivePg = 4
				DO introducere_imob_in_curs
			OTHERWISE 
			*
		ENDCASE 
	ENDPROC

	PROCEDURE Imagine2.do_actiune
		lnActivePg = thisform._pgfrmbase1.ActivePage
		DO CASE 
			CASE lnActivePg = 2
				*DO preluare_corporale IN oproceduri_imob.prg
			CASE lnActivePg = 3
				*DO preluare_necorporale IN oproceduri_imob.prg
			CASE lnActivePg = 4
				*DO preluare_incurs
			OTHERWISE 
			*
		ENDCASE 
	ENDPROC

	PROCEDURE Imagine3.do_actiune
		lnActivePg = thisform._pgfrmbase1.ActivePage
		DO CASE 
			CASE lnActivePg = 2 OR lnActivePg = 3
				DO vizualizare_lista_imob WITH lnActivePg-1 IN oproceduri_imob.prg
			CASE lnActivePg = 4
				DO vizualizare_lista_imob_in_curs
			OTHERWISE 
			*
		ENDCASE 
	ENDPROC

	PROCEDURE lb_utilizator.RightClick
		Thisform.RightClick
	ENDPROC

	PROCEDURE lb_utilizator1.RightClick
		thisform.rightclick
	ENDPROC

	PROCEDURE _pgfrmbase1.Page1.Activate
		*!*	If Thisform.npagina!=0 And Thisform.nlb_activ!=0
		*!*		lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
		*!*		&lcEventLeave
		*!*	Endif
		*!*	Thisform.nlb_activ=0
	ENDPROC

	PROCEDURE _pgfrmbase1.Page1.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
	ENDPROC

	PROCEDURE _pgfrmbase1.Page2.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
	ENDPROC

	PROCEDURE _pgfrmbase1.Page3.Activate
		*!*	If Thisform.npagina!=0 And Thisform.nlb_activ!=0
		*!*		lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
		*!*		&lcEventLeave
		*!*	Endif
		*!*	Thisform.nlb_activ=0
	ENDPROC

	PROCEDURE _pgfrmbase1.Page3.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
		
	ENDPROC

	PROCEDURE _pgfrmbase1.Page4.Activate
		*!*	If Thisform.npagina!=0 And Thisform.nlb_activ!=0
		*!*		lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
		*!*		lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
		*!*		&lcEventLeave
		*!*	Endif
		*!*	Thisform.nlb_activ=0
	ENDPROC

	PROCEDURE _pgfrmbase1.Page4.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
		*!*	Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
		
	ENDPROC

ENDDEFINE