*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="Imagine01" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: jurnal
	*</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
		HalfHeightCaption = .F.
		Height = 429
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "FORM1"
		Picture = ..\comun\drepturi utilizatori\roadef\
		ShowTips = .T.
		Width = 797
		WindowState = 2
	*</PropValue>

	ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
		ErasePage = .T., ;
		Height = 457, ;
		Left = -2, ;
		Name = "_pgfrmbase1", ;
		Top = 60, ;
		Page1.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
		Page1.CW1.Name = "CW1", ;
		Page1.Cw11.Label_item1.Name = "Label_item1", ;
		Page1.Cw11.Name = "Cw11", ;
		Page1.Cw12.Label_item1.Name = "Label_item1", ;
		Page1.Cw12.Name = "Cw12", ;
		Page1.Cw13.Label_item1.Name = "Label_item1", ;
		Page1.Cw13.Name = "Cw13", ;
		Page1.Cw5.Label_item1.Name = "Label_item1", ;
		Page1.Cw5.Name = "Cw5", ;
		Page1.Cw6.Label_item1.Name = "Label_item1", ;
		Page1.Cw6.Name = "Cw6", ;
		Page1.Cw8.Label_item1.Name = "Label_item1", ;
		Page1.Cw8.Name = "Cw8", ;
		Page1.Name = "Page1", ;
		Page1.PageOrder = 1, ;
		Page1.Pict_meniu1.Name = "Pict_meniu1", ;
		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.Cw7.Label_item1.Name = "Label_item1", ;
		Page2.Cw7.Name = "Cw7", ;
		Page2.Cw9.Label_item1.Name = "Label_item1", ;
		Page2.Cw9.Name = "Cw9", ;
		Page2.Name = "Page2", ;
		Page2.PageOrder = 3, ;
		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.Cw4.Label_item1.Name = "Label_item1", ;
		PAGE3.Cw4.Name = "Cw4", ;
		PAGE3.Cw9.Label_item1.Name = "Label_item1", ;
		PAGE3.Cw9.Name = "Cw9", ;
		PAGE3.Name = "PAGE3", ;
		PAGE3.PageOrder = 2, ;
		PAGE3.PICT_MENIU1.Name = "PICT_MENIU1", ;
		Page4.Cw1.Label_item1.Name = "Label_item1", ;
		Page4.Cw1.Name = "Cw1", ;
		Page4.Cw10.Label_item1.Name = "Label_item1", ;
		Page4.Cw10.Name = "Cw10", ;
		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.Cw5.Label_item1.Name = "Label_item1", ;
		Page4.Cw5.Name = "Cw5", ;
		Page4.Name = "Page4", ;
		Page4.PageOrder = 4, ;
		Page4.Pict_meniu1.Name = "Pict_meniu1"
		*< END OBJECT: ClassLib="..\clase\ofundal_sal.vcx" BaseClass="pageframe" />

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

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

	ADD OBJECT 'Imagine01' AS imagine WITH ;
		Height = 55, ;
		Left = 9, ;
		Name = "Imagine01", ;
		nid_img = 1, ;
		picturedown = entitati2.bmp, ;
		pictureup = entitati1.bmp, ;
		ToolTipText = "Entitati", ;
		Top = 1, ;
		Width = 45
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Imagine02' AS imagine WITH ;
		Height = 55, ;
		Left = 67, ;
		Name = "Imagine02", ;
		picturedown = plcont2.bmp, ;
		pictureup = plcont1.bmp, ;
		ToolTipText = "Plan conturi si politici contabile", ;
		Top = 1, ;
		Width = 45
		*< 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 = 498, ;
		Name = "lb_utilizator", ;
		Top = 9
		*< 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 = 552, ;
		Name = "lb_utilizator1", ;
		Top = 9, ;
		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
		*!*	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
		
		*!*	IF primadata
		*!*		
		*!*		DO start_firma IN ostartfirma.prg 
		*!*		primadata = .F.
		*!*		
		*!*		verifica_drepturi2('gofundal','_pgfrmbase1')
		*!*	*!*	*!*		OSETINSTRUM = createobject('SETINSTRUM')
		*!*	*!*		OSETVIZ = createobject('SETRAPID')
		*!*	*!*	OSETVIZ.tbrprim.buton1.ENABLED=.T.
		*!*	*!*	OSETVIZ.tbrprim.buton2.ENABLED=.T.
		*!*	*!*	OSETVIZ.tbrprim.buton3.ENABLED=.T.
		*!*	*!*	OSETVIZ.tbrprim.buton6.ENABLED=.T.
		*!*	*!*	OSETVIZ.tbrprim.command1.ENABLED=.T.
		*!*	*!*	OSETVIZ.tbrprim.command2.ENABLED=.T.
		*!*	*!*	OSETVIZ.tbrprim.command3.ENABLED=.T.
		*!*	*!*	OSETVIZ.tbrprim.command4.ENABLED=.T.	
		*!*	*!*	OSETVIZ.tbrprim.command5.ENABLED=.T.	
		
		*!*	*!*	osetviz.show
		*!*	*!*	*!*		this.meniu1.Visible = .t.
		*!*	ENDIF 
		
		*!*	DO lansare_toolbar IN oproceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE Init
		*!*	THISFORM.AUTOCENTER=.T.
		
		
	ENDPROC

	PROCEDURE jurnal
	ENDPROC

	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		if nkeycode==-1  &&F2
			DO IESIRE
		endif
		
		
		
	ENDPROC

	PROCEDURE RightClick
		*!*	set safety off
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
		*!*	ostart.show(1)
		*!*	do totv
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		DoDefault(nStyle)
		Do start_firma In ostartfirma.prg
		primadata = .F.
		verifica_drepturi('gofundal','_pgfrmbase1')
		*!*	verifica_drepturi('gofundal','_pgfrmbase1')
		Do lansare_toolbar In oproceduri_comune.prg
		DO lansare_help IN oproceduri_comune.prg
		
		gofundal.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
		gofundal.lb_utilizator1.Visible=.T.
		
		
	ENDPROC

	PROCEDURE Image1.RightClick
		thisform.rightclick
	ENDPROC

	PROCEDURE Imagine01.do_actiune
		DO viz_parteneri IN onomenclatoare.prg
	ENDPROC

	PROCEDURE Imagine02.do_actiune
		DO viz_plcont IN onomenclatoare.prg
	ENDPROC

	PROCEDURE _pgfrmbase1.Page1.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
	ENDPROC

	PROCEDURE _pgfrmbase1.Page2.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
	ENDPROC

	PROCEDURE _pgfrmbase1.PAGE3.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
	ENDPROC

	PROCEDURE _pgfrmbase1.Page4.RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('gofundal','_pgfrmbase1')
	ENDPROC

ENDDEFINE