Import initial din SVN ROAAUTO/Trunk @HEAD

Programe/update_nomenclator.prg

@@ -0,0 +1,40 @@
+**********************************************************
+PROCEDURE update_nomenclator
+
+	DO update_lunilean
+
+	*** tabele meniu deschise din proiect
+	LOCAL lcCaleDateMenu
+
+	lcCaleDateMenu=gcAppPath+[COMUN\DATEMENU\]
+*!*	modificare v 2.0.6
+*!*		IF !USED('XREQUEST')
+*!*			USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST
+*!*		ENDIF
+*!*		IF !USED('xitems')
+*!*			USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems
+*!*		ENDIF
+*!*		IF !USED('XSETS')
+*!*			USE &lcCaleDateMenu.XSETS IN 0 ALIAS XSETS ORDER TAG ID_SET
+*!*		ENDIF
+*!*		IF !USED('xACT')
+*!*			USE &lcCaleDateMenu.xACT IN 0 ALIAS xACT
+*!*		ENDIF
+*!*		IF !USED('xnote')
+*!*			USE &lcCaleDateMenu.xnote IN 0 ALIAS xnote
+*!*		ENDIF
+	lnSucces = xdate()
+*!*	modificare v 2.0.6	^
+	IF !USED('INFISIERE')
+		USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE
+	ENDIF
+
+	IF !USED('mila1')
+		USE &lcCaleDateMenu.mila1 IN 0 ALIAS mila1
+	ENDIF
+
+	*!*	modificare	v 2.0.5
+	CREATE CURSOR dual (dummy c(10))
+	INSERT INTO dual (dummy) VALUES ("x")
+	*!*	modificare	v 2.0.5	^
+ENDPROC && update_nomenclator