*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />

	*<DefinedPropArrayMethod>
		*m: jurnal
		*m: statusbarclick
		*p: ostatusbar
	*</DefinedPropArrayMethod>

	*<PropValue>
		AutoCenter = .T.
		BackColor = 255,255,255
		BorderStyle = 2
		Caption = ""
		Closable = .F.
		ControlBox = .F.
		DoCreate = .T.
		Enabled = .T.
		FillColor = 0,0,0
		HalfHeightCaption = .F.
		Height = 429
		KeyPreview = .T.
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "Form1"
		ostatusbar = .F.
		Picture = ..\..\
		Width = 797
		WindowState = 2
	*</PropValue>
	
	PROCEDURE Activate
		oprinc.SHOW()
	ENDPROC

	PROCEDURE jurnal
	ENDPROC

	PROCEDURE KeyPress
		
		
		
	ENDPROC

	PROCEDURE RightClick
		*!*	modificare v 2.0.39
		*!*	DO start_firma IN ostartfirma.prg 
		*!*	verifica_drepturi('oprinc','pagefr1')
		*!*	actualizeaza_drepturi_roacontracte()
		DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
		*!*	modificare v 2.0.39	^
	ENDPROC

	PROCEDURE Show
		LPARAMETERS 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
		Thisform.oStatusBar = _Screen.StatusBar
		Thisform.oStatusBar.ctlIcon="roastartmic.ico"
		Thisform.oStatusBar.ctlMessage = _Screen.Caption
		BindEvent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
		*!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
		
		
		LOCAL c
		IF primadata
			primadata = .F.
		
		*!*	modificare v 2.0.39
		*!*		DO start_firma IN ostartfirma.prg
		*!*		**
		*!*		DO viz_contracte IN oproceduri_roacontracte.prg
		*!*		SELECT cContracte
		*!*		SCATTER NAME goContract BLANK
			DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
		*!*	modificare v 2.0.39	^
			oprinc=CREA('princ')
			verifica_drepturi('oprinc','pagefr1')
			actualizeaza_drepturi_roacontracte()
			oprinc.lb_utilizator1.CAPTION=ALLTRIM(gcUserNameApp)
			oprinc.lb_utilizator1.VISIBLE=.T.
		ENDIF
		
		
		primadata=.F.
		
		oprinc.SHOW()
		
		DO lansare_toolbar IN oproceduri_comune.prg
		DO lansare_help IN oproceduri_comune.prg
		
	ENDPROC

	PROCEDURE statusbarclick
		Thisform.oStatusBar.newtooltip()
	ENDPROC

ENDDEFINE