Import initial din SVN ROAAUTO/Trunk @HEAD

COMUN/programe/update_imob.prg

@@ -0,0 +1,71 @@
+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
+**********************************************************************