public function integer f_dbretrieve (long parenthandle);

int ret= 1 
string query
boolean isProcedure
treeViewItem tvi
long level
any outparm[]
long l
boolean ChildrenFound
boolean AddItem
string lock
pointer oldpointer

if db_busy then return( 0 )
db_busy=true
if parenthandle> 0  then
	GetItem(parenthandle,tvi)
	level=tvi.level+ 1 
else
	deleteItem( 0 )
	level= 1 
end if
query=""
oldpointer=SetPointer(HourGlass!)
trigger event db_prepare(ParentHandle,level,query,isProcedure)
if query<>"" then
	if isProcedure then
		DECLARE TreeViewRetrieveP DYNAMIC PROCEDURE FOR SQLSA;
	else
		DECLARE TreeViewRetrieveC DYNAMIC CURSOR FOR SQLSA;
	end if
	
	PREPARE SQLSA FROM :query using SQLCA;
	DESCRIBE SQLSA INTO SQLDA;
	lock=SQLCA.lock
	SQLCA.lock="RU"
	 f_clearTreeViewItem(tvi)
	if isProcedure then
		EXECUTE DYNAMIC TreeViewRetrieveP USING DESCRIPTOR SQLDA;
		if SQLCA.sqlcode=- 1  then 
			message.of_message(sqlca.sqlerrtext)
			ret=- 1 
		end if
		FETCH TreeViewRetrieveP USING DESCRIPTOR SQLDA;
	else
		OPEN DYNAMIC TreeViewRetrieveC USING DESCRIPTOR SQLDA;
		if SQLCA.sqlcode=- 1  then 
			message.of_message(sqlca.sqlerrtext)
			ret=- 1 
		end if
		FETCH TreeViewRetrieveC USING DESCRIPTOR SQLDA;
	end if
	ChildrenFound=false
	DO WHILE SQLCA.sqlcode= 0 
		if SQLDA.NumOutputs< 1  then continue
		for l= 1  to SQLDA.NumOutputs
			CHOOSE CASE SQLDA.OutParmType[l]
				CASE TypeDate!
					outparm[l]=SQLDA.GetDynamicDate(l)
				CASE TypeDateTime!
					outparm[l]=SQLDA.GetDynamicDateTime(l)
				CASE TypeDecimal!,TypeDouble!,TypeReal!,TypeUInt!,TypeULong!,TypeBoolean!
					outparm[l]=SQLDA.GetDynamicNumber(l)
				CASE TypeLong!
					outparm[l]=long(SQLDA.GetDynamicNumber(l))
				CASE TypeInteger!
					outparm[l]=integer(SQLDA.GetDynamicNumber(l))
				CASE TypeString!
					outparm[l]=SQLDA.GetDynamicString(l)
				CASE TypeTime!
					outparm[l]=SQLDA.GetDynamicTime(l)
			END CHOOSE
		next
		AddItem=true
		trigger Event db_retrieve_row(parenthandle,level,outparm,tvi,AddItem)
		if AddItem then			
			trigger Event ue_dbitemadded(insertItemLast(ParentHandle,tvi))
			ChildrenFound=true
		end if
		if isProcedure then
			FETCH TreeViewRetrieveP USING DESCRIPTOR SQLDA;
		else
			FETCH TreeViewRetrieveC USING DESCRIPTOR SQLDA;
		end if
	LOOP
	if SQLCA.sqlcode=- 1  then 
		message.of_message(sqlca.sqlerrtext)
		ret=- 1 
	end if
	if not ChildrenFound then
		if GetItem(ParentHandle,tvi)> 0  then
			tvi.children=false
			SetItem(ParentHandle,tvi)
		end if
	end if
	if isProcedure then
		CLOSE TreeViewRetrieveP;
	else
		CLOSE TreeViewRetrieveC;
	end if
	SQLCA.lock=lock
end if
SetPointer(oldpointer)
db_busy=false
return(ret)

event ( long parentHandle,  integer newLevel,  ref string query,  ref boolean isProcedure )

treeviewitem ltvi
Choose case newlevel
	case  1 
		query = 'select distinct opa_famille.soc_id, opa_do.dor_code_fm from opa_famille, opa_do where opa_famille.soc_id = opa_do.soc_id' 
	case  2 
		GetItem(parenthandle,ltvi)
		query = 'select fam_id, fam_nom, fam_code from opa_famille where fam_id_pere is null and soc_id = ' + string(ltvi.Data)
	case else
		GetItem(parenthandle,ltvi)
		query = 'select fam_id, fam_nom, fam_code from opa_famille where fam_id_pere = ' + string(ltvi.Data)
end choose

event db_retrieve_row
newitem.PictureIndex = min(newlevel, 2 )
newitem.SelectedPictureIndex = newitem.PictureIndex
if newlevel =  1  then 
	newitem.Label = outparm[ 2 ]
else
	newitem.Label = string(outparm[ 3 ]) + " (" + string(outparm[ 2 ]) + ')'
end if
newitem.data = outparm[ 1 ]
newitem.children = true