*** 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