**********************************************************
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