Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

Programe/update_nomenclator.prg

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