Інформаційна система обліку і аналізу розрахунків з постачальниками і підрядниками, Детальна інформація

ff = left(ff,tt-1)

ENDIF

set defa to &ff



*-- Save and configure environment.

fpath = sys(5)+sys(2003)

g2 = fpath+'\sysapps;'

g3 = fpath+'\temp;'

g4 = fpath+'\datsets;'

g5 = fpath+'\reports;'

gpath = fpath+';'+ g2 +g3+g4+g5

set path to &gpath

if empty(howrah)

howrah = '60'

endif

_pathrah1 = alltrim(howrah)

hh \x203D\x6C61\x746C\x6972\x286D\x6F68\x7277\x6861\x0D29\x690D\x2066\x656C\x286E\x6868\x2029\x323D

*** добавляємо 00

_srtable_ = 'sr'+hh+'00'

else

_srtable_ = 'sr'+hh

endif

Додаток 22 (продовження)

_sttable_ ='set'+hh+'r'

g1 = fpath+'\R'+_pathrah1+';'

gpath = gpath+g1

SET PATH TO &gpath

if !file(_srtable_+'.dbf')

* create table &_srtable_ (pathfind m(4), archfind c(150), othefind c(150), basepath c(50))

* append blank