**********************************************************
Procedure update_nomenclator

Do update_lunilean

*** tabele meniu deschise din proiect
Local lcCaleDateMenu

lcCaleDateMenu=gcAppPath+[\COMUN\DATEMENU\]

*!*	modificare v 2.0.71
*!*	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.71	^

If !Used('menu1')
	Use &lcCaleDateMenu.menu1 In 0 Alias menu1 Excl
Endif

If !Used('INFISIERE')
	Use &lcCaleDateMenu.INFISIERE In 0 Alias INFISIERE
Endif

If !Used('selectii')
	Use &lcCaleDateMenu.gest_selectii In 0 Alias selectii
Endif

*!*	modificare	v 2.1.1
If !Used('mila1')
	Use &lcCaleDateMenu.mila1 In 0 Alias mila1
endif
*!*	modificare	v 2.1.1	^
*!*	If !Used('nom_meniu')
*!*		Use &lcCaleDateMenu.nom_meniu In 0 Alias nom_meniu
*!*	Endif

Endproc && update_nomenclator