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

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

DATE/New Text Document.txt

@@ -0,0 +1,17 @@
+*** DIRECTORUL APLICATIEI, NUMELE APLICATIEI
+public pcDirApp,pcNumeApp,pcDateApp
+*!*	PUBLIC pinivel,pcan,pcnl
+*!*	STORE "" to pcan,pcnl && variabile publice pe care le initializez cu m.an si m.nl in init_optiuni.prg
+
+
+SET procedure to wwutils.prg addi
+pcdirapp=GetAppStartPath() && d:\contafin\acnnave\
+pcdirapp=STRTRAN(STRTRAN(UPPER(pcdirapp),"PROGRAME",""),"\\","\")
+pcNumeApp=ALLT(UPPE(JUSTSTEM(SYS(16,0)))) && "ACNSIT"
+pcDateApp=pcDirApp+"Date_"+pcNumeApp+"\" && D:\CONTAFIN\TRANS\DATE_TRANS && PT OPTIUNI , FISIERE SPECIFICE PROGRAMULUI SI CARE NU TREBUIE IN FIECARE FIRMA EX: ADRESE DE EMAIL, 
+
+*!*	wait wind pcdirapp
+CD &pcdirapp
+IF !DIRECTORY(pcDateApp)
+	MD (pcDateApp)
+ENDIF