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

	*<DefinedPropArrayMethod>
		*m: arata_meniu_fluna
		*m: statusbarclick
		*p: ostatusbar
	*</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"
		ostatusbar = 
		Picture = ..\..\
		ShowTips = .T.
		Themes = .F.
		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.Cw10.Label_item1.Name = "Label_item1", ;
		Page1.Cw10.Name = "Cw10", ;
		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.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.Cw7.Label_item1.Name = "Label_item1", ;
		Page1.Cw7.Name = "Cw7", ;
		Page1.Cw8.Label_item1.Name = "Label_item1", ;
		Page1.Cw8.Name = "Cw8", ;
		Page1.Cw9.Label_item1.Name = "Label_item1", ;
		Page1.Cw9.Name = "Cw9", ;
		Page1.Name = "Page1", ;
		Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
		Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
		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.Cw8.Label_item1.Name = "Label_item1", ;
		Page2.Cw8.Name = "Cw8", ;
		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.Cw6.Label_item1.Name = "Label_item1", ;
		Page3.Cw6.Name = "Cw6", ;
		Page3.Cw7.Label_item1.Name = "Label_item1", ;
		Page3.Cw7.Name = "Cw7", ;
		Page3.Cw8.Label_item1.Name = "Label_item1", ;
		Page3.Cw8.Name = "Cw8", ;
		Page3.Cw9.Label_item1.Name = "Label_item1", ;
		Page3.Cw9.Name = "Cw9", ;
		Page3.Name = "Page3", ;
		Page3.Pict_liniuta1.Name = "Pict_liniuta1", ;
		Page3.Pict_liniuta2.Name = "Pict_liniuta2", ;
		Page3.Pict_liniuta3.Name = "Pict_liniuta3", ;
		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.Cw5.Label_item1.Name = "Label_item1", ;
		Page4.Cw5.Name = "Cw5", ;
		Page4.Cw6.Label_item1.Name = "Label_item1", ;
		Page4.Cw6.Name = "Cw6", ;
		Page4.Name = "Page4", ;
		Page4.Pict_liniuta1.Name = "Pict_liniuta1", ;
		Page4.Pict_meniu1.Name = "Pict_meniu1", ;
		Page5.Cw1.Label_item1.Name = "Label_item1", ;
		Page5.Cw1.Name = "Cw1", ;
		Page5.Cw2.Label_item1.Name = "Label_item1", ;
		Page5.Cw2.Name = "Cw2", ;
		Page5.Cw3.Label_item1.Name = "Label_item1", ;
		Page5.Cw3.Name = "Cw3", ;
		Page5.Name = "Page5", ;
		Page5.Pict_meniu1.Name = "Pict_meniu1"
		*< END OBJECT: ClassLib="..\clase\ofundal_dev.vcx" BaseClass="pageframe" />

	ADD OBJECT 'Image1' AS image WITH ;
		Height = 220, ;
		Left = 228, ;
		Name = "Image1", ;
		Picture = ..\grafice\roaauto.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 ;
		ccod = A01, ;
		Height = 48, ;
		Left = 13, ;
		Name = "Imagine01", ;
		nid_img = 1, ;
		ntip = 0, ;
		picturedown = clie2.bmp, ;
		pictureup = clie1.bmp, ;
		ToolTipText = "Clienti", ;
		Top = 7, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Imagine02' AS imagine WITH ;
		ccod = B01, ;
		Height = 48, ;
		Left = 74, ;
		Name = "Imagine02", ;
		nid_img = 2, ;
		ntip = 0, ;
		picturedown = gene2.bmp, ;
		pictureup = gene1.bmp, ;
		ToolTipText = "Generare (F5)", ;
		Top = 7, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Imagine03' AS imagine WITH ;
		ccod = B02, ;
		Height = 48, ;
		Left = 136, ;
		Name = "Imagine03", ;
		nid_img = 3, ;
		ntip = 0, ;
		picturedown = norm2.bmp, ;
		pictureup = norm1.bmp, ;
		ToolTipText = "Normare (F6)", ;
		Top = 7, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Imagine04' AS imagine WITH ;
		ccod = B03, ;
		Height = 48, ;
		Left = 198, ;
		Name = "Imagine04", ;
		nid_img = 4, ;
		ntip = 0, ;
		picturedown = valid2.bmp, ;
		pictureup = valid1.bmp, ;
		ToolTipText = "Validare (F7)", ;
		Top = 7, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Imagine05' AS imagine WITH ;
		ccod = C01, ;
		Height = 48, ;
		Left = 260, ;
		Name = "Imagine05", ;
		nid_img = 5, ;
		ntip = 0, ;
		picturedown = fact2.bmp, ;
		pictureup = fact1.bmp, ;
		ToolTipText = "Emitere facturi (F8)", ;
		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 = 4, ;
		Caption = "Operator:", ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Left = 142, ;
		Name = "lb_utilizator", ;
		Top = 379
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
		Anchor = 4, ;
		Caption = "nume_utilizator", ;
		FontBold = .T., ;
		FontItalic = .T., ;
		ForeColor = 0,0,128, ;
		Left = 196, ;
		Name = "lb_utilizator1", ;
		Top = 379, ;
		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
		Thisform._pgfrmbase1.page5.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
	ENDPROC

	PROCEDURE arata_meniu_fluna
		Do start_firma In ostartfirma.prg
		verifica_drepturi('gofundal','_pgfrmbase1')
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		Do Case
		Case nKeyCode==-1  &&F2
			Do IESIRE
		Case nKeyCode = -4	&&	F5
		&&	am apelat click pentru ca utilizatorul s-ar putea sa nu aiba drepturi pe optiunea respectiva,
		&& iar daca nu are, atunci nu poate sa faca click
			Thisform._pgfrmbase1.ActivePage = 2
			Thisform._pgfrmbase1.page2.cw1.Click()
		Case nKeyCode = -5	&&	F6
			Thisform._pgfrmbase1.ActivePage = 2
			Thisform._pgfrmbase1.page2.cw2.Click()
		Case nKeyCode = -6	&&	F7
			Thisform._pgfrmbase1.ActivePage = 2
			Thisform._pgfrmbase1.page2.cw3.Click()
		Case nKeyCode = -7	&&	F8
			Thisform._pgfrmbase1.ActivePage = 3
			Thisform._pgfrmbase1.page3.cw1.Click()
		Otherwise
			DoDefault(nKeyCode, nShiftAltCtrl)
		Endcase
		
		
	ENDPROC

	PROCEDURE RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		DoDefault(nStyle)
		This.AlwaysOnBottom = .T.
		
		*!*	modificare	v 2.0.5
		If Not Pemstatus(_Screen,"StatusBar", 5) Then
			_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 2)
		Endif
		Thisform.oStatusBar = _Screen.StatusBar
		Thisform.oStatusBar.ctlIcon="roaautomic.ico"
		Thisform.oStatusBar.ctlMessage = _Screen.Caption
		Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
		*!*	modificare	v 2.0.5	^
		
		Thisform.arata_meniu_fluna()
		primadata = .F.
		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 statusbarclick
		Thisform.oStatusBar.newtooltip()
	ENDPROC

	PROCEDURE Image1.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE Imagine01.do_actiune
		DO viz_clienti IN onom_devize.prg
	ENDPROC

	PROCEDURE Imagine02.do_actiune
		DO generare_com IN oproceduri_devize.prg
	ENDPROC

	PROCEDURE Imagine03.do_actiune
		DO normare_comanda IN oproceduri_devize.prg
	ENDPROC

	PROCEDURE Imagine04.do_actiune
		DO validare_comenzi IN oproceduri_vizualizare.prg
	ENDPROC

	PROCEDURE Imagine05.do_actiune
		DO emitere_facturi IN oproceduri_vizualizare.prg
	ENDPROC

	PROCEDURE lb_utilizator.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE lb_utilizator1.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE _pgfrmbase1.Page1.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE _pgfrmbase1.Page2.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE _pgfrmbase1.Page3.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE _pgfrmbase1.Page4.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

	PROCEDURE _pgfrmbase1.Page5.RightClick
		Thisform.arata_meniu_fluna()
	ENDPROC

ENDDEFINE
