Initial commit — sursa ROAACNPRO
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
30
Programe/update_nomenclator.prg
Normal file
30
Programe/update_nomenclator.prg
Normal file
@@ -0,0 +1,30 @@
|
||||
**********************************************************
|
||||
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
|
||||
Reference in New Issue
Block a user