85 lines
2.1 KiB
Plaintext
85 lines
2.1 KiB
Plaintext
*!* 01.04.2009
|
|
*!* marius.mutu
|
|
*!* xsets, xitems... de pe server in loc din executabil
|
|
|
|
*!* 27.05.2011
|
|
*!* marius.mutu
|
|
*!* creare cursor cparteneriemail pentru addressbook la trimitere email din listare cu foxypreviewer
|
|
|
|
**********************************************************
|
|
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\]
|
|
|
|
IF !USED('MILA1')
|
|
USE &lcCaleDateMenu.MILA1 IN 0 ALIAS MILA1
|
|
ENDIF
|
|
|
|
*!* 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
|
|
|
|
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('nom_meniu')
|
|
USE &lcCaleDateMenu.nom_meniu IN 0 ALIAS nom_meniu
|
|
ENDIF
|
|
|
|
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
|
|
|
|
*!* 06.06.2007
|
|
*!* marius.mutu
|
|
CREATE CURSOR dual (dummy c(10))
|
|
INSERT INTO dual (dummy) VALUES ("")
|
|
|
|
lnSucces = xdate() && xdate.prg
|
|
IF m.lnSucces > 0
|
|
*!* 27.05.2011
|
|
lnSucces = update_parteneriemail() && updateserver.prg
|
|
*!* 27.05.2011 ^
|
|
ENDIF
|
|
|
|
IF m.lnSucces > 0
|
|
llSucces = update_saft_taxtable()
|
|
lnSucces = IIF(m.llSucces, 1, -1)
|
|
ENDIF
|
|
IF m.lnSucces > 0
|
|
llSucces = update_saft_mecanisme_plati()
|
|
lnSucces = IIF(m.llSucces, 1, -1)
|
|
ENDIF
|
|
RETURN lnSucces
|
|
ENDPROC && update_nomenclator |