Заполнение базы данных «Депонированная зарплата с использованием справочников», страница 4

define bar 5 of bdeditlist prompt "Справочник расчета з/п"

***********************для подменю расчета з/п*****************************

define popup subbdeditlist margin relative shadow color scheme 1

define bar 1  of subbdeditlist prompt "за январь"

define bar 2  of subbdeditlist prompt "за февраль"

define bar 3  of subbdeditlist prompt "за март"

define bar 4  of subbdeditlist prompt "за апрель"

define bar 5  of subbdeditlist prompt "за май"

define bar 6  of subbdeditlist prompt "за июнь"

define bar 7  of subbdeditlist prompt "за июль"

define bar 8  of subbdeditlist prompt "за август"

define bar 9  of subbdeditlist prompt "за сентябрь"

define bar 10 of subbdeditlist prompt "за октябрь"

define bar 11 of subbdeditlist prompt "за ноябрь"

define bar 12 of subbdeditlist prompt "за декабрь"

***********************для "Расчеты"**********************************

define popup  count margin relative shadow color scheme 1

define bar 1 of count prompt "Добавление начислений/удержаний"

define bar 2 of count prompt "Операции с депонированной з/п"

***********************для "Администрирования"**************************

define popup file margin relative shadow color scheme 3

define bar 1 of file prompt "Установка текущего периода"

define bar 2 of file prompt "Реиндексация баз данных"

define bar 3 of file prompt "Установка активного каталога"

define bar 4 of file prompt "Контроль ссылочной целостности"

define bar 5 of file prompt "Удаление помеченных объектов"

define bar _MFI_SETUP of file prompt "Настройки принтера"

set skip of bar 2 of file regim==1

set skip of bar 4 of file regim==1

set skip of bar 5 of file regim==1

*г) для отчетов

define popup  reportslist margin relative shadow color  scheme 1

define bar 1 of reportslist prompt "Отчет о начислениях/удержаниях"

define bar 2 of reportslist prompt "Расходный кассовый ордер"

on pad fil     of _MSYSmenu activate popup fillist

on pad bd      of _MSYSmenu activate popup bdlist

on pad bdedit  of _MSYSmenu activate popup bdeditlist

on pad counts  of _MSYSmenu activate popup count

on pad reports of _MSYSmenu activate popup reportslist

on pad adm     of _MSYSmenu activate popup file

on bar 5 of bdlist activate popup subbdlist

on bar 5 of bdeditlist activate popup subbdeditlist

on selection popup fillist do quitProc in "C:\temp\kurs\kurs.prg"

on selection popup bdlist do dbf with bar() in "C:\temp\kurs\kurs.prg"

on selection popup bdeditlist do dbfedit with bar() in "c:\temp\kurs\kurs.prg"

on selection popup reportslist do reports with bar() in "c:\temp\kurs\kurs.prg"

on selection popup count do counts with bar() in "C:\temp\kurs\kurs.prg"

on selection popup file do admin with bar() in dir+"\kurs.prg"

on selection popup subbdlist do uzrgd with bar() in "C:\temp\kurs\kurs.prg"

on selection popup subbdeditlist do uzrgd with bar() in "C:\temp\kurs\kurs.prg"

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

procedure quitProc

  set sysmenu to default

  release window win

  close all

  release all

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

procedure dbf

param n

do case

  case n=1

    t=1

    select kad

    go top

    browse;   

    title "Справочник кадров предприятия (только просмотр, Ctrl/W-вых)";

    fields;

    tn    :H="Таб. №": V=(tn<>""): E="Поле должно состоять из 4 символов!": p='9999',;