*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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 = 595
		MaxButton = .F.
		MinButton = .F.
		Movable = .F.
		Name = "FORM1"
		ostatusbar = 
		Picture = ..\..\
		Width = 795
		WindowState = 2
	*</PropValue>
	
	PROCEDURE jurnal
	ENDPROC

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

	PROCEDURE RightClick
		DO start_firma IN ostartfirma.prg 	
		verifica_drepturi('oprinc','pagefr1')
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		Local c
		*!*	IF primadata
		This.AlwaysOnBottom = .T.
		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="roastartmic.ico"
		Thisform.oStatusBar.ctlMessage = _Screen.Caption
		Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
		
		Do start_firma In ostartfirma.prg
		primadata = .F.
		Do lansare_toolbar In oproceduri_comune.prg
		Do lansare_help In oproceduri_comune.prg
		oprinc=Crea('princ')
		verifica_drepturi('oprinc','pagefr1')
		*!*	ENDIF
		oprinc.Show()
	ENDPROC

	PROCEDURE statusbarclick
		Thisform.oStatusBar.newtooltip()
	ENDPROC

ENDDEFINE
