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

    otd   :H="Тип работника":4:V=otd="1" or otd="2" or otd="3" or otd="4":E= 'Существует только 4 типа работников: 1, 2, 3 и 4':p="9",;

    dol   :H="Код должности":5: V=(dol>" "): E="Поле должно состоять из 3 символов!": p='999',;

    fio   :H="Фамилия Имя Отчество":40,;

    kld   :H="№ календаря":10: B=1,99,;

    dtp   :H="Дата поступления":P='##.##.####',;

    okl   :H="Оклад":10: W=tr=0:V=okl>=0,;

    tr    :H="Тариф":10: W=okl=0:V=tr>=0,;

    pdx   :H="Налоговые льготы": V=(pdx<="199"): E="Первая цифра - 0 или 1!": p="999",;

    dtu   :H="Дата увольнения": V=(dtu>dtp): E="Дата увольнения д.б. больше даты приема!",;

    prfs  :H="Принадлежность к профсоюзу":10:V=prfs="1" or prfs="0" :E='Можно ввести 1-"ДА" или 0 - "НЕТ"',;

    prvz = iif(prfs="0", 0, okl*0.01+tr) :H = "Профсоюзные взносы";

    noappend;

    nodelete;

    nomenu

    t=0

  return

  case n=2

    select usou

    go top

    browse;   

    title "Справочник видов оплат и удержаний (Команды: Ctrl/W-вых)";

    fields;

    vou:H="Код вида оплат/удержаний":P='999',;

                    nmo:H="Название данного вида":25,;

                    pd:H="ПУ в подох. налог":P='9':V=pd="1" or pd="0" :E=" 1-присутствие признака 0-отсутствие ",;

                    pf:H="ПУ в профсоюз":P='9':V=pf="1" or pf="0": E='Необходимо ввести 0 или 1.',;

                    pa:H="ПУ алиментов":P='9':V=pa="1" or pa="0": E='Необходимо ввести 0 или 1.',;

                    pe:H="ПУ в пенс. фонд":p='9':V=pe="1" or pe="0": E='Необходимо ввести 0 или 1.',;

                    spz:H="Шифр затрат":p="999999999";

    noappend;

    nodelete

    return

  case n=3

    select pasp

    go top

    browse;

                    fields;

                    tn:H="Таб. №":P='9999',;

                    ser:H="Серия":P='99 99',;

                    nompas:H="Номер паспорта":15:P='999999',;

                    datv:H="дата выдачи":14:P='99.99.9999',;                  

                    vdp:H="место выдачи":40,;

                    adr:H="адрес":30,;

                    fio:H="Фамилия Имя Отчество":40 ;

                    TITLE "Справочник паспортных данных Команды: Ctrl/W-Вых";

    noappend;

    nodelete

    return

  case n=4

    select dep

    go top

    browse;

                    fields;

                    tn:H="Таб. №":P='9999',;

                    uc:H="Тип работника":p='9':V=uc="1" or uc="2" or uc="3" or uc="4":E="1-рабочий, 2-ИТР, 3-временный, 4-совместитель",;

                    gd:H="год ":p='99',;

                    ms:H="месяц ":P='99',;

                    vou:H="код вида оплат/удержаний":p='999',;

                    zp:H="сумма",;

                    spz:H="шифр затрат ":p='999999999',;

                    dt:H="дата операции":p='99.99.9999';

                    TITLE "Справочник депонированной з/п  Команды: Ctrl/W-Вых";

   noappend

   return

endcase

return

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

procedure uzrgd

param n

  if n=1

    name="uzrgd01" 

    str="за январь"

  endif 

  if n=2

    name="uzrgd02" 

    str="за февраль"