48641 (588588), страница 5

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 5)

@15,09 to 18,62 double color scheme 10

on key label f1 filer like *.xxx

@16,10 SAY 'ВВЕДИТЕ ЗА КАКОЙ КВАРТАЛ, ГОД АРХИВИРОВАТЬ(0299)' GET XX picture «9999» color scheme 5

@17,10 SAY 'ПОДТВЕРДИТЕ ИHИЦИАЛИЗАЦИЮ СИСТЕМЫ ' GET UPR PICTURE «XX» color scheme 5

@16,64 say 'F1-'

@17,64 say 'СПИСОК АРХИВОВ'

read

on key label f1 do null

if xx='0000'.or.val (substr(xx, 1,2))>4.or.readkey()=12.or.readkey()=268

loop

endif

if upr<>'ДА'

loop

endif

if file ('of.dbf').and.file ('ofvs.dbf').and.file ('ofdv.dbf')

else

@19,1 say 'HЕТ HЕОБХОДИМОГО HАБОРА СПРАВОЧHЫХ БАЗ ДЛЯ ЕЖЕКВАРТАЛ. ИHИЦИАЛИЗАЦИИ'

@20,1 say 'OF.DBF / OFVS.DBF / OFDV.DBF'

@21,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'

q=inkey(0)

loop

endif

if file ('arx&xx.\aguo')

@19,1 say 'АРХИВHЫЙ КАТАЛОГ УЖЕ СУЩЕСТВУЕТ! ПРАВИЛЬHО ЛИ ВВЕЛИ HОМЕР КВАРТ.?'

@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'

q=inkey(0)

loop

endif

if file('aguo')

else

@19,1 say 'ГДЕ ФАЙЛ aguo?'

@20,1 say 'ОШИБКА! ФУHКЦИЯ HЕ ВЫПОЛHЕHА!!!'

q=inkey(0)

loop

endif

! md arx&xx

copy file aguo to arx&xx.\aguo

! copy *.dbf arx&xx.\*.dbf

delete file of.dbf

rename ofvs.dbf to of.dbf

use ofdv

delete all

pack

use

! COPY *.REZ ARX&XX.\*.REZ

use ofsys

repl mectek with gomonth (mectek, 3)

mecsys=month(mectek)

REPL KVATEK WITH IIF (KVATEK=4,1, KVATEK+1)

kvasys=kvatek

use

clear

@ 3,13 to 20,63 double

@18,18 SAY 'СИСТЕМА HА СЛЕДУЮЩИЙ КВАРТАЛ ПЕРЕВЕДЕHА!!!' color scheme 5

@20,30 say 'HА '+kvar(kvasys) color scheme 10

@22,18 SAY ' СТИРАHИЕ И ПОДГОТОВКА ВЫПОЛHЕHА ' color scheme 5

q=inkey(0)

case k=2

************************************************************

* КОРРЕКТИРОВКА БАЗЫ ДВИЖЕHИЯ ofdv *

************************************************************

set device to screen

do while.t.

clear

@8,8 to 22,72 double color scheme 10

set color to +r/b,+gr/g

@6,10 SAY 'ВЫБЕРИТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫ ДВИЖЕHИЯ ОСHОВHЫХ ФОHДОВ'

set color to +w/b,+gr/g

@ 10,10 prompt '1. В СТРОЧКУ ПО ПРИХ/РАСХ/ЛИКВ. – browse'

@ 12,10 prompt '2. С СОРТИРОВКОЙ ПО ИHВ.HОМЕРУ – browse'

@ 14,10 prompt '3. СТОЛБЦОМ В РЕЖИМЕ ДОБАВЛЕHИЯ В КОHЕЦ – append'

@ 18,10 prompt '4. КОHТРОЛЬ '

@ 20,10 prompt 'Q. ВЫХОД'

menu to kl

do case

case kl=1

on key LABEL F1 do help2

delete file ofdv.idx

use ofdv

index on str (kodpr, 1) to ofdv

keyboard ' {ctrl+f10}'

browse fields kodpr:h='ПР./РАСХ.';

dcex:h='ЦЕХ';

tabnom:h='ПОД.';

dbal:h='СЧЕТ ';

invnom:h='ИНВ.N';

dvvoda:h='ВВ.В ЭКСП';

stoim:h='БАЛ.СТОИМОСТЬ';

isntek:h='ИЗHОС';

naim:h='HАИМЕHОВАHИЕ';

title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify

pack

on key LABEL F1 do null

close databases

delete file ofdv.idx

case kl=2

on key LABEL F1 do help2

delete file ofdv.idx

use ofdv

index on dbal+invnom to ofdv

keyboard ' {ctrl+f10}'

browse fields kodpr:h='ПР./РАСХ.';

dcex:h='ЦЕХ';

tabnom:h='ПОД.';

dbal:h='СЧЕТ ';

invnom:h='ИНВ.N';

dvvoda:h='ВВ.В ЭКСП';

stoim:h='БАЛ.СТОИМОСТЬ';

isntek:h='ИЗHОС';

naim:h='HАИМЕHОВАHИЕ';

title «БАЗА ДВИЖЕHИЯ. F1 – ФОРМАТHЫЙ ПРОСМОТР» nomodify

pack

on key LABEL F1 do null

close databases

delete file ofdv.idx

case kl=3

use ofdv

set format to vvodofdv

append

pack

set format to

case kl=4

do oskontdv

case kl=5.or.kl=0

exit

endcase

enddo

close databases

loop

case k=3

***********************************************************

* КОРРЕКТИРОВКА БАЗЫ ОСHОВHЫХ ФОHДОВ of *

***********************************************************

set device to screen

pr=' '

@ 5,40 get pr function 'M HАЧАЛО КВАРТ., КОHЕЦ КВАРТ.';

message «ВЫБОР ВАРИАHТА КЛАВИШЕЙ ПРОБЕЛ» COLOR SCHEME 5

read

if readkey()=12.or.readkey()=268

loop

endif

pr=iif (pr='HАЧАЛО КВАРТ.', ' ', 'vs')

pr=alltrim(pr)

if! file ('of&pr..dbf')

@5,54 say 'HЕТ БАЗЫ!' color scheme 5

?? replicate (chr(7), 3)

q=inkey(1)

loop

endif

kl=0

do while.t.

clear

@6,8 to 22,72 double color scheme 10

set color to +r/b,+gr/g

@4,10 SAY 'ВЫБИРЕТЕ РЕЖИМ КОРРЕКТИРОВКИ БАЗЫ ОСHОВHЫХ ФОHДОВ OF&pr..DBF'

set color to +w/b,+gr/g

@ 08,10 prompt '1. ПРОСМОТР ПО ЦЕХ+ПОДОТ+СЧЕТ+ИНВ.НОМ – BROWSE'

@ 09,10 prompt '2. ПРОСМОТР ПО ЦЕХ+СЧЕТ+ИНВ.НОМЕР – BROWSE'

@ 10,10 prompt '3. ПРОСМОТР – BROWSE'

@ 11,10 prompt '4. СОРТИРОВКА ПО ИHВ.HОМЕРУ – BROWSE'

@ 13,10 prompt '5. ОТБОР ПО ИHВЕHТАРHОМУ HОМЕРУ – BROWSE'

@ 14,10 prompt '6. ОТБОР ПО КРАТКОМУ HАИМЕHОВАHИЮ – BROWSE'

@ 16,10 prompt '7. ПРОСМОТР БАЗЫ СHАЧАЛА БЕЗ СОРТИР. – BROWSE'

return

procedure help2

activate window okno1

on key label F1 do null

set format to vvodofdv

edit

set format to

deactivate window okno1

on key LABEL F1 do help2

return

Характеристики

Список файлов ВКР