Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата

*HOWRAH = '62'

_screen.caption = 'Рахунок'

******** SetSet

_screen.windowstate = 2

_SCREEN.CLS clear wind all

CLOSE ALL set dele on set excl off set multi on set confirm on set point to ',' set separator to ['] set reprocess to 5

PUSH MENU _msysmenu hide menu _msysmenu set dele on

SET TALK OFF

SET SAFETY OFF

SET DATE GERMAN set escape off set century on

************* Означення глобальних змінних public gnpdv, znak, kurs, _YY_, _MM_, _yyarh_, _arh_,
ACTIWIND, activind2, archiv, findstr, _minprcnad, apname, findstr public basesrahs, beforemm, beforeyear, _srtable_,
_sttable_, _typeprn_ store ' ' to _sttable_, _srtable_, _tmpdt_, _tmpkt_,
_typeprn_

********* Визначення базової директорії ff = sys(16) if 'FXP' $ FF OR 'PRG' $ FF tt = rat('',ff) ff = left(ff,tt-1) tt = rat('',ff) ff = left(ff,tt-1) else tt = rat('',ff) 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 = alltrim(howrah)

if len(hh) =2

*** добавляємо 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

* use

* do form finddata to yy

* if empty(yy)

= messagebox("не знайдено файлу конфігурації") close all quit

* endif endif

select 0 use &_srtable_ serverpath = pathFIND

_typeprn_ = typeprn use gpath = gpath+serverpath

SET PATH TO &gpath

SET CLASSLIB TO RAHS, diagram ADDITIVE

lcOnShutdown="ShutDown()"

ON SHUTDOWN &lcOnShutdown

ON ERROR ErrorHandler(ERROR(),PROGRAM(),LINENO())

*ON ERROR

_shell="DO Cleanup IN startprg"

apname = space(30) findstr = space(20) actiwind2 = .f. public row_dos row_dos = 63

_minprcnad = 40 findstr = space(50) archiv = .f.

*SET PROC TO

SET PROCEDURE TO LIBRARY ADDITIVE

*ll = sysacces("0000003")

*if ll = -1

* close table all

Рекомендуем скачать другие рефераты по теме: темы рефератов по информатике, сочинение по русскому.





Предыдущая страница реферата | 14  15  16  17  18  19  20  21  22  23  24 | Следующая страница реферата