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

	*<PropValue>
		caction = do_ataseaza
		cpicturedown = attach_jos.bmp
		cpictureup = attach_sus.bmp
		Name = "but_attach"
		Picture = ..\grafice\attach_sus.bmp
		ToolTipText = "Atasare"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_cautare AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_cauta
		cpicturedown = searchalb.bmp
		cpictureup = searchalb.bmp
		Height = 28
		Name = "but_cautare"
		Picture = ..\grafice\searchalb.bmp
		SpecialEffect = 0
		Width = 31
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_compara AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_compara
		cpicturedown = compara_jos.bmp
		cpictureup = compara_sus.bmp
		Name = "but_compara"
		Picture = ..\grafice\compara_sus.bmp
		ToolTipText = "Comparare"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_copiaza AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_copiaza
		cpicturedown = copy_jos.bmp
		cpictureup = copy_sus.bmp
		Name = "but_copiaza"
		Picture = ..\grafice\copy_sus.bmp
		ToolTipText = "Copiere (CTRL+K)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_da AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_termin
		cpicturedown = da_jos.bmp
		cpictureup = da_sus.bmp
		Height = 31
		Name = "but_da"
		Picture = ..\grafice\da_sus.bmp
		ToolTipText = "Renuntare (ESC)"
		Width = 54
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_excel AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = inainte_de_do_excel
		cpicturedown = excel_jos.bmp
		cpictureup = excel_sus.bmp
		Name = "but_excel"
		Picture = ..\grafice\excel_sus.bmp
		ToolTipText = "Fisier Excel (CTRL+E)"
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_factura AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_factura
		cpicturedown = factura2.bmp
		cpictureup = factura1.bmp
		Name = "but_factura"
		Picture = ..\grafice\factura1.bmp
		ToolTipText = "Factura"
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_grafic AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_grafic
		cpicturedown = grafic_jos.bmp
		cpictureup = grafic_sus.bmp
		Name = "but_grafic"
		Picture = ..\grafice\grafic_sus.bmp
		ToolTipText = "Grafic (CTRL+G)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_help AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_help
		cpicturedown = help_jos.bmp
		cpictureup = help_sus.bmp
		Name = "but_help"
		Picture = ..\..\comun\grafice\help_sus.bmp
		ToolTipText = "Help (CTRL+ H)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_jos AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_scrolldown
		cpicturedown = jos2.bmp
		cpictureup = jos1.bmp
		Height = 30
		Name = "but_jos"
		Picture = ..\grafice\jos1.bmp
		ToolTipText = "Jos"
		Width = 27
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_listare AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = inainte_de_do_listare
		cpicturedown = listare_jos.bmp
		cpictureup = listare_sus.bmp
		Name = "but_listare"
		Picture = ..\grafice\listare_sus.bmp
		ToolTipText = "Listare (CTRL+P)"
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_listfactura AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_listfact
		cpicturedown = listare_jos.bmp
		cpictureup = listare_sus.bmp
		Name = "but_listfactura"
		Picture = ..\grafice\listare_sus.bmp
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_modifica AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = inainte_de_do_modifica
		cpicturedown = modific_jos.bmp
		cpictureup = modific_sus.bmp
		MousePointer = 0
		Name = "but_modifica"
		Picture = ..\grafice\modific_sus.bmp
		ToolTipText = "Modificare (CTRL+M)"
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_modiparam AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_modiparam
		cpicturedown = modiparam_jos.bmp
		cpictureup = modiparam_sus.bmp
		Name = "but_modiparam"
		Picture = ..\grafice\modiparam_sus.bmp
		ToolTipText = "Modificare parametri"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_nou AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_adauga
		cpicturedown = nou_jos.bmp
		cpictureup = nou_sus.bmp
		DisabledPicture = ..\grafice\nou_sus_dis.bmp
		Name = "but_nou"
		Picture = ..\grafice\nou_sus.bmp
		ToolTipText = "Adaugare (CTRL+N)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_nou_gri AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_adauga
		cpicturedown = nou_jos_dis.bmp
		cpictureup = nou_sus_dis.bmp
		Name = "but_noup"
		Picture = ..\grafice\nou_sus_dis.bmp
		ToolTipText = "Adaugare (CTRL+N)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_nu AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_renunt
		cpicturedown = nu_jos.bmp
		cpictureup = nu_sus.bmp
		Height = 32
		Name = "but_nu"
		Picture = ..\grafice\nu_sus.bmp
		ToolTipText = "Renuntare (ESC)"
		Width = 56
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_precedent AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_precedent
		cpicturedown = precedent2.bmp
		cpictureup = precedent1.bmp
		Name = "but_precedent"
		Picture = ..\grafice\precedent1.bmp
		ToolTipText = "Verificare"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_reface AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = inainte_de_do_reface
		cpicturedown = refac_jos.bmp
		cpictureup = refac_sus.bmp
		Name = "but_reface"
		Picture = ..\grafice\refac_sus.bmp
		ToolTipText = "Refacere"
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_renunt AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_renunt
		cpicturedown = renunt_jos.bmp
		cpictureup = renunt_sus.bmp
		Name = "but_renunt"
		Picture = ..\grafice\renunt_sus.bmp
		ToolTipText = "Renuntare (ESC)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_reset AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

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

	*<PropValue>
		caction = do_reset
		Caption = ""
		cpicturedown = reset_jos.bmp
		cpictureup = reset_sus.bmp
		Name = "but_reset"
		Picture = ..\grafice\reset_sus.bmp
		ToolTipText = "Reseteaza"
		_memberdata = <VFPData>

		</VFPData>
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_retur AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_retur
		cpicturedown = retur2.bmp
		cpictureup = retur1.bmp
		MousePointer = 0
		Name = "but_retur"
		Picture = ..\grafice\retur1.bmp
		ToolTipText = "Retur"
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_salveaza AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_salvare
		cpicturedown = save_jos.bmp
		cpictureup = save_sus.bmp
		Name = "but_salveaza"
		Picture = ..\grafice\save_sus.bmp
		ToolTipText = "Salvare"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_sterge AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = inainte_de_do_sterge
		cpicturedown = sterg_jos.bmp
		cpictureup = sterg_sus.bmp
		DisabledPicture = ..\grafice\sterg2_sus_dis.bmp
		Name = "but_sterge"
		Picture = ..\grafice\sterg_sus.bmp
		ToolTipText = "Stergere (CTRL+D)"
		Visible = .F.
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_sus AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_scrollup
		cpicturedown = sus2.bmp
		cpictureup = sus1.bmp
		Height = 30
		Name = "but_sus"
		Picture = ..\grafice\sus1.bmp
		ToolTipText = "Sus"
		Width = 27
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_termin AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_termin
		cpicturedown = terminat_jos.bmp
		cpictureup = terminat_sus.bmp
		Name = "but_termin"
		Picture = ..\grafice\terminat_sus.bmp
		ToolTipText = "Terminare (CTRL+F)"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_urmator AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_urmator
		cpicturedown = urmator2.bmp
		cpictureup = urmator1.bmp
		Name = "but_urmator"
		Picture = ..\grafice\urmator1.bmp
		ToolTipText = "Verificare"
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_urmator_tot AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_urmator_tot
		cpicturedown = urmator2_tot.bmp
		cpictureup = urmator1_tot.bmp
		Name = "but_urmator_tot"
		Picture = ..\grafice\urmator1_tot.bmp
	*</PropValue>

ENDDEFINE

DEFINE CLASS but_verifica AS buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_verifica
		cpicturedown = verificare2.bmp
		cpictureup = verificare1.bmp
		Name = "but_verifica"
		Picture = ..\grafice\verificare1.bmp
		ToolTipText = "Verificare"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_adauga AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_adauga
		Caption = "\<Adaugă"
		FontBold = .T.
		Name = "cmd_adauga"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_cauta AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_cauta
		Caption = "\<Caută"
		FontBold = .T.
		Name = "cmd_cauta"
		ToolTipText = "ALT+C"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_executa AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*p: lvizibil		&& .F. daca butonul nu este vizibil , .T. daca butonul este vizibil (in functie de drepturi). Proprietatea ptr. butoanele care au visible=.F. default.
	*</DefinedPropArrayMethod>

	*<PropValue>
		caction = do_executa
		Caption = "\<Execută"
		FontBold = .T.
		lvizibil = .T.
		Name = "cmd_executa"
		_memberdata = <VFPData>
			<memberdata name="lvizibil" display="lVizibil"/>
		</VFPData>
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_login AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_login
		Caption = "Log \<In"
		FontBold = .T.
		Name = "cmd_login"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_logoff AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_logoff
		Caption = "Log \<Off"
		FontBold = .T.
		Name = "cmd_logoff"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_modifica AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = inainte_de_do_modifica
		Caption = "\<Modifica"
		FontBold = .T.
		Name = "cmd_modifica"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_renunt AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_renunt
		Caption = "\<Renunț"
		FontBold = .T.
		Name = "cmd_renunt"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_reset AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_reset
		Caption = "\<Reset"
		FontBold = .T.
		Name = "cmd_reset"
		TabStop = .F.
		ToolTipText = "ALT+R"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_select AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: schimba_caption
	*</DefinedPropArrayMethod>

	*<PropValue>
		caction = do_select
		Caption = "\<Selectează tot"
		FontBold = .T.
		Name = "cmd_select"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_select_adv AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<DefinedPropArrayMethod>
		*m: do_bifeaza		&& Metoda delegat pentru click-ul pe coloana cu bifa.
		*m: do_reset
		*m: schimba_caption
		*m: setup
		*p: ccoloana		&& Numele coloanei din cursor pentru care se aplica bifa.
		*p: ccursor
		*p: cfiltrusuplimentar		&& Conditie SQL suplimentara (sintaxa FOR/WHERE), aplicata DOAR pe ramura de selectare (nu si la deselectare); goala = comportament neschimbat.
		*p: cgrid		&& Numele obiectului (de ex. : thisform.grid1 ).
		*p: ncheck		&& Index-ul obiectului de tip checkbox in array-ul Objects al coloanei din grid.
		*p: ncoloana		&& Index-ul coloanei in array-ul Objects al gridului.
		*p: nselectate		&& Numarul de randuri selectate
	*</DefinedPropArrayMethod>

	HIDDEN ncheck,ncoloana
	*<PropValue>
		Caption = "\<Selectează tot"
		ccoloana = 
		ccursor = 
		cFiltruSuplimentar = 
		cgrid = 
		FontBold = .T.
		Height = 27
		Name = "cmd_select_adv"
		ncheck = 0
		ncoloana = 0
		nselectate = 0
		Width = 111
		_memberdata = <VFPData>
			<memberdata name="ccoloana" type="Property" favorites="True"/>
			<memberdata name="cgrid" type="Property" favorites="True"/>
			<memberdata name="cFiltruSuplimentar" type="Property" favorites="True"/>
			<memberdata name="setup" display="Setup"/>
			<memberdata name="ccursor" display="cCursor"/>
		</VFPData>
	*</PropValue>
	
	PROCEDURE Click
		If !Empty(This.ccoloana) And !Empty(This.ccursor)
			lcCursor = This.ccursor
			lcColoana = This.ccoloana
			lcFiltru = Iif(Empty(Filter(lcCursor)),[2=2],Filter(lcCursor))
			Select (lcCursor)
			If Reccount(lcCursor) > 0
				lnRecno = Recno()
				Set Filter To
				If This.nselectate = 0
					lcFiltruSelect = lcFiltru
					If !Empty(This.cFiltruSuplimentar)
						lcFiltruSelect = "(" + lcFiltru + ") AND (" + This.cFiltruSuplimentar + ")"
					Endif
					Calculate Cnt() To lnNrInreg For &lcFiltruSelect
					Replace (lcColoana) With 1 For &lcFiltruSelect
					This.nselectate = lnNrInreg
				Else
					Replace (lcColoana) With 0 For &lcFiltru
					This.nselectate = 0
				Endif
				Set Filter To &lcFiltru
				Go Min(lnRecno,Reccount(lcCursor))
				If !Empty(Filter(lcCursor))
					lcGrid = This.cgrid
					poGrid = &lcGrid
					poGrid.Refresh()
				Endif
			Endif
		Endif
		This.schimba_caption
		
	ENDPROC

	PROCEDURE Destroy
		Local lcGrid, i, j, loGrid
		If !Empty(This.ccoloana) And !Empty(This.cgrid)
			lcGrid = This.cgrid
			TRY 
				loGrid = &lcGrid
				i = This.ncoloana
				j = This.ncheck
				If Type(lcGrid+'.Objects(i).Objects(j)')="O"
					Unbindevent(loGrid.Objects(i).Objects(j),"Click",This,"do_bifeaza")
				ENDIF
			CATCH 
			ENDTRY 	
		Endif 
	ENDPROC

	PROCEDURE do_bifeaza		&& Metoda delegat pentru click-ul pe coloana cu bifa.
		pcGrid = This.cgrid
		poGrid = &pcGrid
		This.nselectate = This.nselectate + Iif(poGrid.Objects(This.ncoloana).Objects(This.ncheck).Value=0,-1,1)
		This.schimba_caption()
		
	ENDPROC

	PROCEDURE do_reset
		This.nselectate = 0
		This.schimba_caption()
		
	ENDPROC

	PROCEDURE Init
		DoDefault()
		This.Setup()
	ENDPROC

	PROCEDURE schimba_caption
		If This.nselectate = 0
			This.Caption = "\<Selectează tot"
		Else
			This.Caption = "De\<selectează tot"
		Endif
	ENDPROC

	PROCEDURE setup
		Local lcColoana, lcGrid
		LOCAL i, j, loGrid
		If !Empty(This.ccoloana) And !Empty(This.cgrid)
			lcGrid = This.cgrid
			Try
				loGrid = &lcGrid
			Catch
			Endtry
			If Type('loGrid') = 'O'
				This.ccursor = loGrid.RecordSource
				lcColoana = Upper(This.ccursor+[.]+This.ccoloana)
				For i = 1 To loGrid.ColumnCount
					With loGrid.Objects(i)
						If Upper(.ControlSource) = lcColoana
							For j = 1 To .Objects.Count
								If Upper(.Objects(j).BaseClass) = [CHECKBOX]
									This.ncoloana = i
									This.ncheck	= j
									Bindevent(.Objects(j),"Click",This,"do_bifeaza",1)
									Exit
								Endif
							Endfor
							Exit
						Endif
					Endwith
				Endfor
			Endif
		Endif
		 
	ENDPROC

ENDDEFINE

DEFINE CLASS cmd_sterge AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = inainte_de_do_sterge
		Caption = "\<Șterge"
		FontBold = .T.
		Name = "cmd_sterge"
	*</PropValue>

ENDDEFINE

DEFINE CLASS cmd_termin AS cmd_buton OF "_cmd_base.vcx" 
 	*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		caction = do_termin
		Caption = "\<Termin"
		FontBold = .T.
		Name = "cmd_termin"
	*</PropValue>

ENDDEFINE