*!*	*_________________________________________________________
PROCEDURE caut_alfa_cursor
PARAMETERS NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM
LOCAL MC0,MC1,MC2, llVizibil
SET SAFETY OFF
llVizibil = .t.

MC0='SELE '+NUMEBAZA
MC1='VARMEM=M.'+NUMECIMP
MC2 = [INDEX ON ] +NUMECIMP+ [ TAG nume OF &loc\&nfscurt\tempo\xindex.idx COMPACT ASCENDING ] 


LOCAL lcNumeCol2
STORE '' TO lcNumeCol2

LcCol = ALLTRIM(NUMEBAZA) + '.cod_fiscal'
IF TYPE(LcCol) # 'U'
	lcNumeCol2 = 'cod_fiscal'
ENDIF 

LcCol = ALLTRIM(NUMEBAZA) + '.gest'
IF TYPE(LcCol) # 'U'
	lcNumeCol2 = 'gest'
ENDIF 

LcCol = ALLTRIM(NUMEBAZA) + '.id_sectie'
IF TYPE(LcCol) # 'U'
	lcNumeCol2 = 'id_sectie'
ENDIF 

IF EMPTY(lcNumeCol2)
	lcNumeCol2 = 'space(4)'
	llVizibil = .f.
ENDIF 	

LcCol = ALLTRIM(NUMEBAZA) + '.id'
IF TYPE(LcCol) # 'U'
	lcNumeCol3 = 'id'
ELSE 
	lcNumeCol3 = 'space(4)'
ENDIF 

SELECT DISTINCT &NUMECIMP, &lcNumeCol2, &lcNumeCol3 FROM (numebaza) INTO CURSOR tnomenclator READWRITE ORDER BY &NUMECIMP

OCA=CREATEOBJECT("CAUTALFa")
OCA.CAPTION=CAPTEXT
OCA.GRID1.RECORDSOURCE='tnomenclator'
OCA.GRID1.COLUMN1.CONTROLSOURCE = NUMECIMP
OCA.GRID1.COLUMN2.CONTROLSOURCE = lcNumeCol2 
OCA.GRID1.COLUMN2.visible = llVizibil
OCA.cmdrenunt1.visible=.t.
OCA.command1.visible=.f.
OCA.command2.visible=.f.
OCA.command3.visible=.f.
OCA.SHOW(1)

IF buton=2
	USE IN tnomenclator 
	RETURN
ENDIF 

lcFile = ADDBS(gcTempPath) + 'xindex.idx'
IF FILE(lcFile)
	SET INDEX TO 
	DELETE FILE &lcFile
ENDIF 
*!*	&MC1

SELECT tnomenclator
SCATTER MEMVAR 

&MC1


USE IN tnomenclator 
RETURN


*!*	*___________________________________________
PROCEDURE MESAJ
PARAMETERS m1,m2
ot=create('text')
ot.label2.caption=m1
ot.label3.caption=m2
ot.show(1)
RETURN


*!*	*___________________________________________
*!*	PROCEDURE mesajmare
*!*	PARAMETERS m1
*!*	ot=create('textmare')
*!*	ot.label2.caption=m1
*!*	ot.show(1)
*!*	RETURN

*!*	*___________________________________________
*!*	PROCEDURE mesajval
*!*	PARAMETERS m1,m2
*!*	ot=create('textval')
*!*	ot.label2.caption=m1
*!*	ot.valoare=m2
*!*	ot.show(1)
*!*	RETURN

*!*	*___________________________________________
PROCEDURE mesajatent
PARAMETERS m1,m2
ot=create('atentie')
ot.label2.caption=m1
ot.label3.caption=m2
ot.show(1)
RETURN

*!*	*___________________________________________
*!*	PROCEDURE mesajrosu
*!*	PARAMETERS m1,m2
*!*	ot=create('atentierosu')
*!*	ot.label2.caption=m1
*!*	ot.label3.caption=m2
*!*	ot.show(1)
*!*	RETURN


*!*	*_____________________________________-
*!*	PROCEDURE mesajm
*!*	PARAM txt,i

*!*	LOCAL t,p
*!*	p=iif(i<10,str(i,1),str(i,2))
*!*	T='orm.label'+p+'.caption="'+txt+'"'
*!*	&t
*!*	IF i<20
*!*		i=i+1
*!*	ENDIF
*!*	p=iif(i<10,str(i,1),str(i,2))
*!*	T='orm.IMAGE'+p+'.VISIBLE=.T.'
*!*	&t

*!*	RETURN




*!*	*___________________________________________
PROCEDURE danu
PARAMETERS m1
od=create('danu')
od.label1.caption=m1
od.show(1)
RETURN
*!*	*___________________________________________
*!*	*____________________________________
*!*	PROC PR
*!*	PARAM J
*!*	IF J>M
*!*		op.release
*!*		op=crea('progresbar')
*!*		J=0
*!*		op.show()
*!*	ENDIF
*!*	op.PRBAR.VALUE=J
*!*	op.p=ROUND(100*op.PRBAR.VALUE/op.PRBAR.MAX,2)
*!*	op.REFRESH
*!*	J=J+1
*!*	RETURN


*!*	*_________________________
*!*	PROC MESAJT
*!*	PARAM M.denumire
*!*	OTEXT.oleTreeview.NODES.add(,,,M.denumire,)
*!*	STARE=STARE+1
*!*	RETURN







*!*	*!*	***------------------------------------------------------------------------------------

*!*	*!*	Procedure lanseaza_excel_standard
*!*	*!*	Parameters tcalias

*!*	*!*	Private lcTabelSectii
*!*	*!*	lcTabelSectii = Alltrim(tcalias)

*!*	*!*	Select (lcTabelSectii)

*!*	*!*	lcexcel=Addbs(pccaletempo)+"Fisa de calcul a eficientei"+".XLS"
*!*	*!*	x=Newobject("XL_Sectie_standard","EXCELX") && alternatively you can drop this class on a VFP form
*!*	*!*	x.SaveAs=lcexcel && PART.XLS to be created in your TEMP folder

*!*	*!*	Select centre_profit
*!*	*!*	Set Filter To

*!*	*!*	Count For ((!virtual And contribuie) Or SOCIETATE) And ales To lnNrSectii
*!*	*!*	If !lnNrSectii>0
*!*	*!*		Return
*!*	*!*	Endif

*!*	*!*	Dimension x.oWorkSheet[lnNrSectii] && need four pages

*!*	*!*	I=0
*!*	*!*	Select centre_profit
*!*	*!*	Scan For ((!virtual And contribuie) Or SOCIETATE) And ales
*!*	*!*		lccentru = Alltrim(centru)
*!*	*!*		I=I+1
*!*	*!*		x.oWorkSheet[I] = lccentru
*!*	*!*	Endscan

*!*	*!*	x.Go() && remember this calls .populate_pages().
*!*	*!*	Release x

*!*	*!*	**************************8

*!*	*!*	OLEAPP = Getobject("","Excel.Application")
*!*	*!*	If Type('OLEAPP')!='O'
*!*	*!*		OLEAPP = Createobject("Excel.Application")
*!*	*!*	Endif
*!*	*!*	OLEAPP.WorkBooks.Open(lcexcel)
*!*	*!*	OLEAPP.Visible=1

*!*	*!*	Return
*!*	*!*	Endproc &&lanseaza_excel_standard
