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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: activeaza
		*m: dezactiveaza
		*m: do_actiune
		*p: alb
		*p: bleumarin
		*p: ccheie		&& Cheia corespunzatoare din crsdrepturi ( se completeaza la citirea drepturilor din bd ).
		*p: cmeniu		&& Numele meniului pe care il lanseaza.
		*p: coptiuni_active		&& Optiunile active
		*p: linactiv		&& .T. daca containerul este inactiv indiferent de drepturi.
		*p: nid_cw
		*p: ntip		&& 0 - introducere\vizualizare simpla\raport simplu ; 1 - raport + excel ; 2 -  registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
	*</DefinedPropArrayMethod>

	*<PropValue>
		alb = 16777215
		BackColor = 192,192,192
		BackStyle = 1
		bleumarin = 7274496
		BorderColor = 192,192,192
		BorderWidth = 0
		ccheie = 
		cmeniu = 
		coptiuni_active = 
		ForeColor = 0,64,128
		Height = 20
		linactiv = .F.
		Name = "cw"
		nid_cw = 0
		ntip = 0
		Width = 180
	*</PropValue>

	ADD OBJECT 'Label_item1' AS _lbbase WITH ;
		Caption = "Introducere", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 255,255,255, ;
		Left = 5, ;
		Name = "Label_item1", ;
		Top = 1
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
	
	PROCEDURE activeaza
		If This.linactiv
			This.dezactiveaza()
		Else
			This.Enabled=.T.
			This.laBEL_ITEM1.ForeColor=Rgb(255,255,255)
		Endif
	ENDPROC

	PROCEDURE Click
		If !This.Enabled
			Return
		Endif
		gcAcces=This.coptiuni_active
		This.do_actiune
		
	ENDPROC

	PROCEDURE dezactiveaza
		This.Enabled=.F.
		This.laBEL_ITEM1.ForeColor=Rgb(128,128,128)
	ENDPROC

	PROCEDURE do_actiune
	ENDPROC

	PROCEDURE Init
		COL_MENU=RGB(255,255,255)
		This.BackColor= COL_MENU
		This.BackStyle=0
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If This.Enabled
			This.BackStyle=1
		*!*	this.BackColor=THIS.BLEUMARIN&&8404992
		*!*	this.label_item1.ForeColor=THIS.ALB&&16777215
			This.BackColor=This.ALB&&8404992
			This.label_item1.ForeColor=This.BLEUMARIN&&16777215
		*this.CLICK
			This.label_item1.MousePointer = 15
			This.MousePointer = 15
		Endif
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If This.Enabled
		*!*	this.BackColor=THIS.Parent.BACKCOLOR
		*!*	*!*	this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
		*!*	this.label_item1.ForeColor=THIS.ALB
			This.BackColor=This.Parent.BackColor
		*!*	this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
			This.label_item1.ForeColor=This.ALB
			This.BackStyle= 0
			This.label_item1.MousePointer = 1
			This.MousePointer= 1
		Endif
	ENDPROC

	PROCEDURE Label_item1.Click
		this.Parent.click
	ENDPROC

ENDDEFINE

DEFINE CLASS cw_2019 AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: activeaza
		*m: dezactiveaza
		*m: do_actiune
		*p: alb
		*p: bleumarin
		*p: ccheie		&& Cheia corespunzatoare din crsdrepturi ( se completeaza la citirea drepturilor din bd ).
		*p: cmeniu		&& Numele meniului pe care il lanseaza.
		*p: coptiuni_active		&& Optiunile active
		*p: linactiv		&& .T. daca containerul este inactiv indiferent de drepturi.
		*p: nid_cw
		*p: ntip		&& 0 - introducere\vizualizare simpla\raport simplu ; 1 - raport + excel ; 2 -  registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
	*</DefinedPropArrayMethod>

	*<PropValue>
		alb = 16777215
		BackColor = 192,192,192
		BackStyle = 1
		bleumarin = 7274496
		BorderColor = 192,192,192
		BorderWidth = 0
		ccheie = 
		cmeniu = 
		coptiuni_active = 
		ForeColor = 0,64,128
		Height = 20
		linactiv = .F.
		Name = "cw_2019"
		nid_cw = 0
		ntip = 0
		Width = 180
	*</PropValue>

	ADD OBJECT 'Label_item1' AS _lbbase WITH ;
		Caption = "Introducere", ;
		FontCharSet = 1, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 255,255,255, ;
		Left = 5, ;
		Name = "Label_item1", ;
		Top = 1
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
	
	PROCEDURE activeaza
		If This.linactiv
			This.dezactiveaza()
		Else
			This.Enabled=.T.
			This.laBEL_ITEM1.ForeColor=Rgb(255,255,255)
		Endif
	ENDPROC

	PROCEDURE Click
		If !This.Enabled
			Return
		Endif
		gcAcces=This.coptiuni_active
		This.do_actiune
		
	ENDPROC

	PROCEDURE dezactiveaza
		This.Enabled=.F.
		This.laBEL_ITEM1.ForeColor=Rgb(128,128,128)
	ENDPROC

	PROCEDURE do_actiune
	ENDPROC

	PROCEDURE Init
		COL_MENU=RGB(255,255,255)
		This.BackColor= COL_MENU
		This.BackStyle=0
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If This.Enabled
			This.BackStyle=1
		*!*	this.BackColor=THIS.BLEUMARIN&&8404992
		*!*	this.label_item1.ForeColor=THIS.ALB&&16777215
			This.BackColor=This.ALB&&8404992
			This.label_item1.ForeColor=This.BLEUMARIN&&16777215
		*this.CLICK
			This.label_item1.MousePointer = 15
			This.MousePointer = 15
		Endif
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If This.Enabled
		*!*	this.BackColor=THIS.Parent.BACKCOLOR
		*!*	*!*	this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
		*!*	this.label_item1.ForeColor=THIS.ALB
			This.BackColor=This.Parent.BackColor
		*!*	this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
			This.label_item1.ForeColor=This.ALB
			This.BackStyle= 0
			This.label_item1.MousePointer = 1
			This.MousePointer= 1
		Endif
	ENDPROC

	PROCEDURE Label_item1.Click
		this.Parent.click
	ENDPROC

ENDDEFINE

DEFINE CLASS cw_nou AS _commandbutton OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cw"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cw_original AS _container OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: activeaza
		*m: dezactiveaza
		*m: do_actiune
		*p: alb
		*p: bleumarin
		*p: ccheie		&& Cheia corespunzatoare din crsdrepturi ( se completeaza la citirea drepturilor din bd ).
		*p: cmeniu		&& Numele meniului pe care il lanseaza.
		*p: coptiuni_active		&& Optiunile active
		*p: linactiv		&& .T. daca containerul este inactiv indiferent de drepturi.
		*p: nid_cw
		*p: ntip		&& 0 - introducere\vizualizare simpla\raport simplu ; 1 - raport + excel ; 2 -  registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
	*</DefinedPropArrayMethod>

	*<PropValue>
		alb = 16777215
		BackColor = 192,192,192
		BackStyle = 1
		bleumarin = 7274496
		BorderColor = 192,192,192
		BorderWidth = 0
		ccheie = 
		cmeniu = 
		coptiuni_active = 
		ForeColor = 0,64,128
		Height = 20
		linactiv = .F.
		Name = "cw"
		nid_cw = 0
		ntip = 0
		Width = 117
	*</PropValue>

	ADD OBJECT 'Label_item1' AS _lbbase WITH ;
		Caption = "Introducere", ;
		FontCharSet = 238, ;
		FontSize = 8, ;
		ForeColor = 255,255,255, ;
		Left = 5, ;
		Name = "Label_item1", ;
		Top = 3
		*< END OBJECT: ClassLib="_lb_base.vcx" BaseClass="label" />
	
	PROCEDURE activeaza
		If This.linactiv
			This.dezactiveaza()
		Else
			This.Enabled=.T.
			This.laBEL_ITEM1.ForeColor=Rgb(255,255,255)
		Endif
	ENDPROC

	PROCEDURE Click
		If !This.Enabled
			Return
		Endif
		gcAcces=This.coptiuni_active
		This.do_actiune
		
	ENDPROC

	PROCEDURE dezactiveaza
		This.Enabled=.F.
		This.laBEL_ITEM1.ForeColor=Rgb(128,128,128)
	ENDPROC

	PROCEDURE do_actiune
	ENDPROC

	PROCEDURE Init
		COL_MENU=RGB(255,255,255)
		This.BackColor= COL_MENU
		This.BackStyle=0
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		If This.Enabled
			This.BackStyle=1
		*!*	this.BackColor=THIS.BLEUMARIN&&8404992
		*!*	this.label_item1.ForeColor=THIS.ALB&&16777215
			This.BackColor=This.ALB&&8404992
			This.label_item1.ForeColor=This.BLEUMARIN&&16777215
		*this.CLICK
			This.label_item1.MousePointer = 15
			This.MousePointer = 15
		Endif
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		If This.Enabled
		*!*	this.BackColor=THIS.Parent.BACKCOLOR
		*!*	*!*	this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
		*!*	this.label_item1.ForeColor=THIS.ALB
			This.BackColor=This.Parent.BackColor
		*!*	this.label_item1.ForeColor=THIS.BLEUMARIN&&RGB(0,64,128)
			This.label_item1.ForeColor=This.ALB
			This.BackStyle= 0
			This.label_item1.MousePointer = 1
			This.MousePointer= 1
		Endif
	ENDPROC

	PROCEDURE Label_item1.Click
		this.Parent.click
	ENDPROC

ENDDEFINE

DEFINE CLASS imagine AS _image OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: do_actiune
		*p: ccod		&& Codul container-ului din pageframe corespunzator imaginii.
		*p: coptiuni_active		&& Optiunile active din forma.
		*p: nid_img
		*p: ntip		&& 0 - introducere\vizualizare simpla ; 1 - raport; 2 -  registru; 3 - balanta\inreg. de parteneri; 4 - vizualizare ; 5 - personalizat
		*p: picturedown
		*p: pictureup
	*</DefinedPropArrayMethod>

	*<PropValue>
		ccod = 
		coptiuni_active = 
		Height = 59
		Name = "imagine"
		nid_img = 0
		ntip = 0
		picturedown = 
		pictureup = 
		Width = 71
	*</PropValue>
	
	PROCEDURE Click
		gcAcces=This.coptiuni_active
		This.do_actiune()
		
	ENDPROC

	PROCEDURE do_actiune
	ENDPROC

	PROCEDURE Init
		This.Picture=This.pictureup
	ENDPROC

	PROCEDURE MouseEnter
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.MousePointer= 15
		This.Picture=This.pictureDown
	ENDPROC

	PROCEDURE MouseLeave
		Lparameters nButton, nShift, nXCoord, nYCoord
		This.MousePointer= 1
		This.Picture=This.pictureUp
	ENDPROC

ENDDEFINE

DEFINE CLASS pg_meniu AS _pageframe OF "..\..\comun\clase\_baza.vcx" 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		ErasePage = .T.
		Height = 173
		Name = "pg_meniu"
		TabStyle = 1
		Page1.BackColor = 255,255,255
		Page1.Name = "Page1"
		Page2.BackColor = 255,255,255
		Page2.Name = "Page2"
	*</PropValue>

ENDDEFINE

DEFINE CLASS pg_meniu_princ AS pg_meniu OF "ofundal.vcx" 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: _memberdata		&& XML Metadata for customizable properties
	*</DefinedPropArrayMethod>

	*<PropValue>
		ErasePage = .T.
		Height = 422
		Name = "pg_meniu_princ"
		PageCount = 2
		Width = 401
		_memberdata = <VFPData>

		</VFPData>
		Page1.Caption = "Pagina 1"
		Page1.Name = "Page1"
		Page2.Caption = "-"
		Page2.Enabled = .F.
		Page2.Name = "Page2"
	*</PropValue>

	ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
		Height = 362, ;
		Left = 0, ;
		Name = "Pict_meniu1", ;
		Picture = ..\..\grafice\f2.jpg, ;
		Top = 0, ;
		Width = 158
		*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />

ENDDEFINE

DEFINE CLASS pict_liniuta AS _image OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Height = 10
		Name = "pict_liniuta"
		Picture = ..\grafice\f3.jpg
		Stretch = 2
		Width = 180
	*</PropValue>

ENDDEFINE

DEFINE CLASS pict_meniu AS _image OF "_baza.vcx" 
 	*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Height = 362
		Name = "pict_meniu"
		Picture = ..\grafice\f2.jpg
		Stretch = 2
		Width = 200
	*</PropValue>

ENDDEFINE
