51 lines
1.2 KiB
Plaintext
51 lines
1.2 KiB
Plaintext
**********************************************************
|
|
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 |