40 lines
1.0 KiB
Plaintext
40 lines
1.0 KiB
Plaintext
**********************************************************
|
|
PROCEDURE update_nomenclator
|
|
|
|
DO update_lunilean
|
|
|
|
*** tabele meniu deschise din proiect
|
|
LOCAL lcCaleDateMenu
|
|
|
|
lcCaleDateMenu=gcAppPath+[COMUN\DATEMENU\]
|
|
*!* modificare v 2.0.6
|
|
*!* 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.6 ^
|
|
IF !USED('INFISIERE')
|
|
USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE
|
|
ENDIF
|
|
|
|
IF !USED('mila1')
|
|
USE &lcCaleDateMenu.mila1 IN 0 ALIAS mila1
|
|
ENDIF
|
|
|
|
*!* modificare v 2.0.5
|
|
CREATE CURSOR dual (dummy c(10))
|
|
INSERT INTO dual (dummy) VALUES ("x")
|
|
*!* modificare v 2.0.5 ^
|
|
ENDPROC && update_nomenclator |