69 lines
1.7 KiB
Plaintext
69 lines
1.7 KiB
Plaintext
**********************************************************
|
|
PROCEDURE update_nomenclator
|
|
|
|
*!* DO update_coresp_tip_part
|
|
*!* DO update_coresp_tip_cont
|
|
DO update_lunilean
|
|
|
|
*** tabele meniu deschise din proiect
|
|
LOCAL lcCaleDateMenu
|
|
|
|
lcCaleDateMenu=gcAppPath+[\COMUN\DATEMENU\]
|
|
|
|
*!* modificare v 2.0.120
|
|
lnSucces = xdate()
|
|
*!* IF !USED('XREQUEST')
|
|
*!* USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST
|
|
*!* ENDIF
|
|
*!* IF !USED('xitems')
|
|
*!* USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems
|
|
*!* ENDIF
|
|
*!* *!* IF !USED('YACT')
|
|
*!* *!* USE &lcCaleDateMenu.YACT IN 0 ALIAS YACT
|
|
*!* *!* 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
|
|
*!* modificare v 2.0.120 ^
|
|
|
|
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
|
|
|
|
IF !USED('nom_meniu')
|
|
USE &lcCaleDateMenu.nom_meniu IN 0 ALIAS nom_meniu
|
|
ENDIF
|
|
|
|
*!* modificare v 2.2.3
|
|
If !Used('mila1')
|
|
Use &lcCaleDateMenu.mila1 In 0 Alias mila1
|
|
endif
|
|
*!* modificare v 2.2.3 ^
|
|
|
|
*!* IF !USED('refaceri')
|
|
*!* USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri
|
|
*!* ENDIF
|
|
|
|
*!* IF !USED('tabela_fisa_cont')
|
|
*!* USE &lcCaleDateMenu.tabela_fisa_cont IN 0 ALIAS tabela_fisa_cont
|
|
*!* ENDIF
|
|
|
|
*!* 03.09.2007
|
|
*!* marius.mutu
|
|
CREATE CURSOR dual (dummy c(10))
|
|
INSERT INTO dual (dummy) VALUES ("x")
|
|
ENDPROC && update_nomenclator |