Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
This commit is contained in:
20
Programe/update_nomenclator.prg
Normal file
20
Programe/update_nomenclator.prg
Normal file
@@ -0,0 +1,20 @@
|
||||
**********************************************************
|
||||
PROCEDURE update_nomenclator
|
||||
|
||||
*** tabele meniu deschise din proiect
|
||||
LOCAL lcCaleDateMenu
|
||||
|
||||
lcCaleDateMenu=gcAppPath+[DATEMENU\]
|
||||
|
||||
|
||||
IF !USED('INFISIERE')
|
||||
USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE
|
||||
ENDIF
|
||||
|
||||
IF !USED('refaceri')
|
||||
USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri
|
||||
ENDIF
|
||||
|
||||
CREATE CURSOR dual (dummy c(10))
|
||||
INSERT INTO dual (dummy) VALUES ("")
|
||||
ENDPROC && update_nomenclator
|
||||
Reference in New Issue
Block a user