Procedure cctipuri_imob()

If Used('v_tipuri_imob')
	Use In v_tipuri_imob
Endif

lcSql = [select id_tip_imobilizare,TRIM(denumire) as denumire,]+;
		[inactiv from ] + gcS + [.imob_vtipuri_imobilizare]
lcCursor = [v_tipuri_imob]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
	aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
goExecutor.oReset()
Return lnSucces

Endproc
**********************************************************************
Procedure cctipuri_amort()

If Used('v_tipuri_amort')
	Use In v_tipuri_amort
Endif

lcSql = [select id_tip_amortizare,TRIM(denumire) as denumire,]+;
		[inactiv from ] + gcS + [.imob_vtipuri_amortizare]
lcCursor = [v_tipuri_amort]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
	aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
goExecutor.oReset()
Return lnSucces

Endproc
**********************************************************************
Procedure cctipuri_operatie()

If Used('v_tipuri_operatie')
	Use In v_tipuri_operatie
Endif

lcSql = [select id_tip_operatie,TRIM(denumire) as denumire,]+;
		[inactiv from ] + gcS + [.imob_vtipuri_operatie where inactiv = 0 order by Id_tip_operatie]
lcCursor = [v_tipuri_operatie]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
	aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
goExecutor.oReset()
Return lnSucces

Endproc
**********************************************************************
Procedure ccnorme()

If Used('v_norme')
	Use In v_norme
Endif

lcSql = [select * from ] + gcS + [.imob_vnorme]
lcCursor = [v_norme]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
	aMessagebox(goExecutor.cEroare,0+16,"Eroare")
Endif
goExecutor.oReset()
Return lnSucces

Endproc
**********************************************************************