18 lines
702 B
Plaintext
18 lines
702 B
Plaintext
*** 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
|