Initial import of ROACONT (Visual FoxPro accounting app) into git

Migrated from the ROACONT SVN trunk working copy for hosting on gitea.romfast.ro.

Programe/update_nomenclator.prg

@@ -0,0 +1,85 @@
+*!* 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