*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_roapreturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS pagefr AS pg_meniu OF "..\comun\clase\ofundal.vcx" 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		ErasePage = .T.
		Height = 177
		Name = "pagefr"
		PageCount = 2
		Themes = .F.
		Width = 428
		Page1.Caption = "Configurare"
		Page1.Name = "Page1"
		Page2.Caption = ""
		Page2.Name = "Page2"
	*</PropValue>

ENDDEFINE

DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pagefr1.Page2.Cw3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />

	*<PropValue>
		AlwaysOnTop = .F.
		BackColor = 255,255,255
		BorderStyle = 0
		ControlBox = .F.
		DoCreate = .T.
		Left = 0
		Name = "princ"
		ShowTips = .T.
		Top = 0
		WindowState = 2
	*</PropValue>

	ADD OBJECT 'Image1' AS image WITH ;
		Anchor = 12, ;
		Height = 220, ;
		Left = 182, ;
		Name = "Image1", ;
		Picture = ..\grafice\roapreturi.bmp, ;
		Top = 195, ;
		Width = 556, ;
		ZOrderSet = 2
		*< END OBJECT: BaseClass="image" />

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

	ADD OBJECT 'Imagine01' AS imagine WITH ;
		ccod = A03, ;
		Height = 54, ;
		Left = 9, ;
		Name = "Imagine01", ;
		nid_img = 1, ;
		picturedown = lista2.bmp, ;
		pictureup = lista1.bmp, ;
		ToolTipText = "Drepturi de acces la listele de preturi", ;
		Top = 1, ;
		Width = 45
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
		Anchor = 9, ;
		Caption = "Operator:", ;
		FontItalic = .T., ;
		ForeColor = 255,255,255, ;
		Left = 457, ;
		Name = "lb_utilizator", ;
		Top = 9, ;
		ZOrderSet = 4
		*< 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 = 513, ;
		Name = "lb_utilizator1", ;
		Top = 9, ;
		Visible = .F., ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'Pagefr1' AS pagefr WITH ;
		ErasePage = .T., ;
		Height = 475, ;
		Left = -1, ;
		Name = "Pagefr1", ;
		Top = 59, ;
		Width = 804, ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Liste de prețuri", ;
		Page2.Name = "Page2"
		*< END OBJECT: ClassLib="ofundal_roapreturi.vcx" BaseClass="pageframe" />

	ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ;
		Left = 4, ;
		Name = "Cw1", ;
		nid_cw = 1, ;
		ntip = 1, ;
		TabIndex = 3, ;
		Top = 12, ;
		ZOrderSet = 4, ;
		LABEL_ITEM1.Caption = "Catalog de articole", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ;
		Height = 20, ;
		Left = 4, ;
		Name = "Cw2", ;
		nid_cw = 2, ;
		ntip = 1, ;
		TabIndex = 1, ;
		Top = 39, ;
		Width = 117, ;
		ZOrderSet = 2, ;
		LABEL_ITEM1.Caption = "Note de vânzări", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefr1.Page1.Cw3' AS cw WITH ;
		Height = 31, ;
		Left = 4, ;
		Name = "Cw3", ;
		nid_cw = 3, ;
		ntip = 1, ;
		TabIndex = 1, ;
		Top = 67, ;
		Width = 117, ;
		ZOrderSet = 2, ;
		Label_item1.Caption = "Drepturi de acces la listele de prețuri", ;
		Label_item1.Height = 30, ;
		Label_item1.Left = 5, ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.Top = 1, ;
		Label_item1.Width = 99, ;
		Label_item1.WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Pagefr1.Page1.shape1' AS pict_meniu WITH ;
		Anchor = 7, ;
		Height = 420, ;
		Left = 0, ;
		Name = "shape1", ;
		Picture = ..\comun\grafice\f2.jpg, ;
		Top = -4, ;
		Width = 133
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Pagefr1.Page2.Cw3' AS cw WITH ;
		Height = 20, ;
		Left = 12, ;
		Name = "Cw3", ;
		nid_cw = 1, ;
		ntip = 4, ;
		TabIndex = 4, ;
		Top = 45, ;
		Width = 117, ;
		ZOrderSet = 3, ;
		Label_item1.Caption = "Liste de preturi", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
	
	PROCEDURE RightClick
		Thisform.image1.RightClick()
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		*!*	verifica_drepturi('oprinc','pagefr1')
		
		* comentat 15.09.2006
		*!*	Local lnScrH,lnScrW
		
		*!*	_SCREEN.HEIGHT = THISFORM.HEIGHT
		*!*	_SCREEN.WIDTH = THISFORM.WIDTH
		
		*!*	_Screen.AutoCenter=.T.
		*!*	_Screen.Refresh
		*!*	Thisform.Left=0
		*!*	Thisform.Top=0
		
		
		*****
		Local w,h
		w=_Screen.Width
		h=_Screen.Height
		
		This.Width = w
		This.Height = h
		
		*!*	This.image1.Left=w-This.image1.Width
		*!*	This.image1.Top=h-This.image1.Height
		*!*	This.lb_utilizator.Top=h-This.lb_utilizator.Height
		*!*	This.lb_utilizator1.Top=h-This.lb_utilizator1.Height
		*!*	This.image2.Width = w + 180
		
		With This.pagefr1
			.Width = w
			.Height = h
			.page1.shape1.Height = h
		ENDWITH
		
		
		
	ENDPROC

	PROCEDURE Image1.RightClick
		Do start_firma In ostartfirma.prg
		
		** Initializez gnRon corespunzator lunii in care am intrat
		Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
		lcLunaRon = Substr(gcDataRon,1,2)
		lcAnulRon = Substr(gcDataRon,4,4)
		If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
			lnValue = 2
		Else
			lnValue = 1
		Endif
		
		lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
		
		lnSucces = goExecutor.oExecute(lcExec)
		If lnSucces < 0
			lcTextEroare = goExecutor.cEroare
			aMessagebox(lcTextEroare,48,"Eroare")
			Return
		Endif
		
		Do oinit_optiuni.prg
		**
		
		verifica_drepturi('oprinc','pagefr1')
		
		
		
	ENDPROC

	PROCEDURE Imagine01.do_actiune
		LOCAL llCRM 
		llCRM = .T.
		DO acces_liste IN omeniu_initializari.prg
	ENDPROC

	PROCEDURE Pagefr1.Page1.Cw1.do_actiune
		Do viz_catalog_articole In oproceduri_articole.prg
	ENDPROC

	PROCEDURE Pagefr1.Page1.Cw2.do_actiune
		* DO viz_note_vanzari IN onom_preturi.prg
		LOCAL llCRM 
		llCRM = .T.
		DO configurare_note WITH llCRM IN omeniu_initializari.prg
	ENDPROC

	PROCEDURE Pagefr1.Page1.Cw3.do_actiune
		* DO viz_note_vanzari IN onom_preturi.prg
		LOCAL llCRM 
		llCRM = .T.
		DO acces_liste IN omeniu_initializari.prg
	ENDPROC

	PROCEDURE Pagefr1.Page1.RightClick
		Do start_firma In ostartfirma.prg
		
		** Initializez gnRon corespunzator lunii in care am intrat
		Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
		lcLunaRon = Substr(gcDataRon,1,2)
		lcAnulRon = Substr(gcDataRon,4,4)
		If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
			lnValue = 2
		Else
			lnValue = 1
		Endif
		
		lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
		
		lnSucces = goExecutor.oExecute(lcExec)
		If lnSucces < 0
			lcTextEroare = goExecutor.cEroare
			aMessagebox(lcTextEroare,48,"Eroare")
			Return
		Endif
		
		Do oinit_optiuni.prg
		**
		
		verifica_drepturi('oprinc','pagefr1')
	ENDPROC

	PROCEDURE Pagefr1.Page2.Click
		Do viz_politici In onom_preturi.prg
		thisform.pagefr1.page1.SetFocus
		
	ENDPROC

	PROCEDURE Pagefr1.Page2.Cw3.do_actiune
		Do viz_politici In onom_preturi.prg
		*!*	thisform.pagefr1.page1.SetFocus
	ENDPROC

	PROCEDURE Pagefr1.RightClick
		Thisform.image1.RightClick()
	ENDPROC

ENDDEFINE