30 lines
593 B
Plaintext
30 lines
593 B
Plaintext
**********************************************************
|
|
Procedure update_nomenclator
|
|
|
|
Do update_lunilean
|
|
|
|
*** tabele meniu deschise din proiect
|
|
Local lcCaleDateMenu
|
|
|
|
lcCaleDateMenu=gcAppPath+[\COMUN\DATEMENU\]
|
|
|
|
lnSucces = xdate()
|
|
|
|
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
|
|
|
|
Endproc && update_nomenclator |