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

	*<DefinedPropArrayMethod>
		*m: do_bind
		*m: do_keypressed
		*m: do_unbind
		*p: oobiect
	*</DefinedPropArrayMethod>

	*<PropValue>
		Height = 19
		Name = "_ct_controller_keypress"
		oobiect = 
		Width = 23
	*</PropValue>
	
	PROCEDURE do_bind
		Local loObiect
		llBound = .F.
		loObiect = This.Parent
		Do While !llBound
			loObiect = loObiect.Parent
			If Pemstatus(loObiect,"KeyPress",5)
				Bindevent(loObiect,"KeyPress",This,"do_keypressed",2)
				This.oobiect = loObiect
				llBound = .T.
			Endif
		Enddo
		
		*!*	If Pemstatus(This.Parent.Parent,"KeyPress",5)
		*!*		Bindevent(This.Parent.Parent,"KeyPress",This,"do_keypressed",2)
		*!*		This.oobiect=This.Parent.Parent
		*!*	Else
		*!*		If Pemstatus(This.Parent.Parent.Parent,"KeyPress",5)
		*!*			Bindevent(This.Parent.Parent.Parent,"KeyPress",This,"do_keypressed",2)
		*!*			This.oobiect=This.Parent.Parent.Parent
		*!*		Else
		*!*			If Pemstatus(This.Parent.Parent.Parent.Parent,"KeyPress",5)
		*!*				Bindevent(This.Parent.Parent.Parent.Parent,"KeyPress",This,"do_keypressed",2)
		*!*				This.oobiect=This.Parent.Parent.Parent.Parent
		*!*			Else
		*!*				If Pemstatus(This.Parent.Parent.Parent.Parent.Parent,"KeyPress",5)
		*!*					Bindevent(This.Parent.Parent.Parent.Parent.Parent,"KeyPress",This,"do_keypressed",2)
		*!*					This.oobiect=This.Parent.Parent.Parent.Parent.Parent
		*!*				Endif
		*!*			Endif
		*!*		Endif
		*!*	Endif
	ENDPROC

	PROCEDURE do_keypressed
		Lparameters nKeyCode, nShiftAltCtrl
		Do Case
		Case nKeyCode=14 And nShiftAltCtrl=2
			If Pemstatus(This.Parent,"do_adauga",5)
				This.Parent.do_adauga()
			Endif
		Case nKeyCode=13 And nShiftAltCtrl=2
			If Pemstatus(This.Parent,"inainte_de_do_modifica",5)
				This.Parent.inainte_de_do_modifica()
			Endif
		Case nKeyCode=4 And nShiftAltCtrl=2
			If Pemstatus(This.Parent,"inainte_de_do_sterge",5)
				This.Parent.inainte_de_do_sterge()
			Endif
		Case nKeyCode=16 And nShiftAltCtrl=2
			Nodefault
			If Pemstatus(This.Parent,"inainte_de_do_listare",5)
				This.Parent.inainte_de_do_listare()
			Endif
		Case nKeyCode=3 And nShiftAltCtrl=2
			If Pemstatus(This.Parent,"do_cauta",5)
				This.Parent.do_copiaza()
			Endif
		Otherwise
			This.oObiect.KeyPress(nKeyCode,nShiftAltCtrl)
		Endcase
		
	ENDPROC

	PROCEDURE do_unbind
		Unbindevents(This)
		*!*		Unbindevents(This.oobiect,"KeyPress",This,"do_keypressed")
	ENDPROC

ENDDEFINE

DEFINE CLASS _ctfrmbase AS container 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

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

	*<DefinedPropArrayMethod>
		*m: actualizeaza_cursoare
		*m: actualizeaza_drepturi
		*m: actualizeaza_grid1
		*m: actualizeaza_grid2
		*m: creeaza_cursoare
		*m: do_activeaza_container
		*m: do_adauga
		*m: do_cauta
		*m: do_copiaza
		*m: do_dezactiveaza_container
		*m: do_excel
		*m: do_executa
		*m: do_listare
		*m: do_modifica
		*m: do_precedent
		*m: do_reface
		*m: do_reset
		*m: do_selectall
		*m: do_sterge
		*m: do_urmator
		*m: grid_sort
		*m: grid_sort_bind
		*m: inainte_de_do_excel
		*m: inainte_de_do_listare
		*m: inainte_de_do_modifica
		*m: inainte_de_do_reface
		*m: inainte_de_do_sterge
		*p: cbuton1
		*p: cbuton2
		*p: cbuton3
		*p: cbuton4
		*p: cbuton5
		*p: cbuton6
		*p: cbuton7
		*p: cgridsortlist
		*p: cschema		&& Numele schemei pentru care au fost create cursoarele
		*p: ctraducere		&& Traducerea filtrului de cautare.
		*p: filtru_pretty
		*p: filtru_pretty_ro
		*p: filtru_pretty_ro_full
		*p: lactiv1
		*p: lactiv2
		*p: lactiv3
		*p: lactiv4
		*p: lactiv5
		*p: lactiv6
		*p: lactiv7
		*p: lshowrezultate		&& Afiseaza 'Nu exista rezultate' la do_cauta()
		*p: nselectate
		*p: _memberdata		&& XML Metadata for customizable properties
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderWidth = 0
		cbuton1 = but_excel1
		cbuton2 = but_listare1
		cbuton3 = but_modifica1
		cbuton4 = but_sterge1;but_reface1
		cbuton5 = 
		cbuton6 = 
		cbuton7 = 
		cgridsortlist = 
		cschema = 
		ctraducere = 
		filtru_pretty = .F.
		filtru_pretty_ro = .F.
		filtru_pretty_ro_full = .F.
		Height = 200
		lactiv1 = .F.
		lactiv2 = .F.
		lactiv3 = .F.
		lactiv4 = .F.
		lactiv5 = .F.
		lactiv6 = .F.
		lactiv7 = .F.
		lshowrezultate = .T.
		Name = "_ctfrmbase"
		nselectate = 0
		Width = 200
		_memberdata = <VFPData>
			<memberdata name="actualizeaza_drepturi" type="Method" favorites="True"/>
			<memberdata name="actualizeaza_grid1" type="Method" favorites="True"/>
			<memberdata name="actualizeaza_grid2" type="Method" favorites="True"/>
			<memberdata name="cbuton1" type="Property" favorites="True"/>
			<memberdata name="cbuton2" type="Property" favorites="True"/>
			<memberdata name="cbuton3" type="Property" favorites="True"/>
			<memberdata name="cbuton4" type="Property" favorites="True"/>
			<memberdata name="cbuton5" type="Property" favorites="True"/>
			<memberdata name="cbuton6" type="Property" favorites="True"/>
			<memberdata name="cbuton7" type="Property" favorites="True"/>
			<memberdata name="do_adauga" type="Method" favorites="True"/>
			<memberdata name="do_cauta" type="Method" favorites="True"/>
			<memberdata name="do_excel" type="Method" favorites="True"/>
			<memberdata name="do_executa" type="Method" favorites="True"/>
			<memberdata name="do_listare" type="Method" favorites="True"/>
			<memberdata name="do_modifica" type="Method" favorites="True"/>
			<memberdata name="do_reface" type="Method" favorites="True"/>
			<memberdata name="do_reset" type="Method" favorites="True"/>
			<memberdata name="do_sterge" type="Method" favorites="True"/>
			<memberdata name="grid_sort" type="Method" favorites="True"/>
			<memberdata name="grid_sort_bind" type="Method" favorites="True"/>
			<memberdata name="lactiv1" type="Property" favorites="True"/>
			<memberdata name="lactiv2" type="Property" favorites="True"/>
			<memberdata name="lactiv3" type="Property" favorites="True"/>
			<memberdata name="lactiv4" type="Property" favorites="True"/>
			<memberdata name="lactiv5" type="Property" favorites="True"/>
			<memberdata name="lactiv6" type="Property" favorites="True"/>
			<memberdata name="lactiv7" type="Property" favorites="True"/>
			<memberdata name="cgridsortlist" type="Property" favorites="True"/>
			<memberdata name="nselectate" type="Property" favorites="True"/>
			<memberdata name="do_selectall" type="Method" favorites="True"/>
			<memberdata name="creeaza_cursoare" type="Method" favorites="True"/>
			<memberdata name="lshowrezultate" display="lShowRezultate"/>
		</VFPData>
	*</PropValue>

	ADD OBJECT '_ct_controller_keypress1' AS _ct_controller_keypress WITH ;
		Left = 134, ;
		Name = "_ct_controller_keypress1", ;
		Top = 126
		*< END OBJECT: ClassLib="_ct_base.vcx" BaseClass="custom" />

	ADD OBJECT 'Gridsort1' AS gridsort WITH ;
		Left = 24, ;
		Name = "Gridsort1", ;
		Top = 3
		*< END OBJECT: ClassLib="gridsort.vcx" BaseClass="custom" />
	
	PROCEDURE actualizeaza_cursoare
	ENDPROC

	PROCEDURE actualizeaza_drepturi
		If !Empty(gcAcces)
		&&	format gcAcces = [optiune1];[optiune2];...;[optiuneN]; &&
			Local lcAcces,lnPozitieS,lnPozitieF,N
			lnPozitieS=1
			For i=1 To Occurs([;],gcAcces)
				lnPozitieF=At([;],gcAcces,i)
				lcAcces=Substr(gcAcces,lnPozitieS,lnPozitieF-lnPozitieS)
				lcProp='this.lactiv'+Alltrim(lcAcces)
				If Type(lcProp)<>'U'
					&lcProp=.T.
					lcProp='this.cbuton'+Alltrim(lcAcces)
					If Type(lcProp)<>'U' And !Empty(&lcProp)
		&&	format lcButoane = [nume_buton1];[nume_buton2];...;[nume_butonN]; &&
						lcButoane=&lcProp
						lnPS=1
						lcButoane=Iif(Substr(lcButoane,Len(lcButoane)-1)=[;],lcButoane,lcButoane+[;])
						For j=1 To Occurs([;],lcButoane)
							lnPF=At([;],lcButoane,j)
							lcButon=Substr(lcButoane,lnPS,lnPF-lnPS)
							lcProp='this.'+Alltrim(lcButon)+'.visible'
							lcProp1='!this.'+ALLTRIM(lcButon)+'.lvizibil'
							If Type(lcProp)<>'U'
								&lcProp=IIF(TYPE(lcProp1)<>'U' and &lcProp1,.F.,.T.)
							Endif
							lnPS=lnPF+1
						Endfor
					Endif
				Endif
				lnPozitieS=lnPozitieF+1
			Endfor
		Endif
		
	ENDPROC

	PROCEDURE actualizeaza_grid1
	ENDPROC

	PROCEDURE actualizeaza_grid2
	ENDPROC

	PROCEDURE creeaza_cursoare
	ENDPROC

	PROCEDURE do_activeaza_container
		This._ct_controller_keypress1.do_bind()
		This.actualizeaza_cursoare()
	ENDPROC

	PROCEDURE do_adauga
	ENDPROC

	PROCEDURE do_cauta
	ENDPROC

	PROCEDURE do_copiaza
	ENDPROC

	PROCEDURE do_dezactiveaza_container
		This._ct_controller_keypress1.do_unbind()
		
	ENDPROC

	PROCEDURE do_excel
	ENDPROC

	PROCEDURE do_executa
	ENDPROC

	PROCEDURE do_listare
	ENDPROC

	PROCEDURE do_modifica
	ENDPROC

	PROCEDURE do_precedent
	ENDPROC

	PROCEDURE do_reface
	ENDPROC

	PROCEDURE do_reset
	ENDPROC

	PROCEDURE do_selectall
	ENDPROC

	PROCEDURE do_sterge
	ENDPROC

	PROCEDURE do_urmator
	ENDPROC

	PROCEDURE grid_sort
		Aevents( laEvents, 0 )
		loHeader = laEvents[ 1 ]
		If Vartype( loHeader ) = 'O'
			If Type('this.gridsort1') = 'O'
				This.gridsort1.oColumnReference = loHeader.Parent
				This.gridsort1.gridsort(loHeader.Parent)
			Endif
		Endif
	ENDPROC

	PROCEDURE grid_sort_bind
		Local lcListaGrid, lnGridCount, loGrid, lcGrid, i, j, loHeader
		
		lcListaGrid = Alltrim(This.cGridSortList)
		lcListaGrid = Strtran(lcListaGrid, ',', ';')
		
		lnGridCount = Getwordcount(lcListaGrid, ';')
		
		For i = 1 To lnGridCount
			lcGrid = Getwordnum(lcListaGrid, i, ';')
			lcGrid = 'this.' + lcGrid
			loGrid = &lcGrid
			If !Pemstatus(loGrid,'name',5)
				Loop
			Endif
		
			For j = 1 To loGrid.ColumnCount
				loHeader = loGrid.Columns(j).Header1
				Bindevent(loHeader, "DblClick", This, "grid_sort")
			Endfor
		Endfor
	ENDPROC

	PROCEDURE inainte_de_do_excel
		If This.lactiv1
			This.do_excel()
		Endif
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		If This.lactiv2
			This.do_listare
		Endif
	ENDPROC

	PROCEDURE inainte_de_do_modifica
		If This.lactiv3
			This.do_modifica()
		Endif
		
	ENDPROC

	PROCEDURE inainte_de_do_reface
		If This.lactiv4
			This.do_reface
		Endif
	ENDPROC

	PROCEDURE inainte_de_do_sterge
		If This.lactiv4
			This.do_sterge()
		Endif
		
	ENDPROC

	PROCEDURE Init
		This.actualizeaza_drepturi
		This.grid_sort_bind()
	ENDPROC

ENDDEFINE