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

  endif 

  if n=3

    name="uzrgd03" 

    str="за март"

  endif 

  if n=4

    name="uzrgd04" 

    str="за апрель"

  endif 

  if n=5

    name="uzrgd05" 

    str="за май"

  endif 

  if n=6

    name="uzrgd06" 

    str="за июнь"

  endif 

  if n=7

    name="uzrgd07" 

    str="за июль"

  endif 

  if n=8

    name="uzrgd08" 

    str="за август"

  endif 

  if n=9

    name="uzrgd09" 

    str="за сентябрь"

  endif 

  if n=10

    name="uzrgd10" 

    str="за октябрь"

  endif 

  if n=11

    name="uzrgd11" 

    str="за ноябрь"

  endif 

  if n=12

    name="uzrgd12" 

    str="за декабрь"

  endif 

  select &name

  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-совместитель",;

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

                    zp:H="сумма":W=(uc<>"1" or vou<>"001"),;

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

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

                    dn:h="дней по плану":p='99',;

                    dr:H="дней фактически":P='99',;

                    ch:H="кол-во часов",;

                    tr:H="Тариф":7:W=uc="1",;

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

                    sum=IIF((tr>0)and(uc="1")and(vou="001"),tr*ch,0):H="Начислено по тарифу";

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

   noappend

return

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

procedure dbfedit

param n

  do case

    case n=1

    do "c:\temp\kurs\kad.spr"

    case n=2

    do "c:\temp\kurs\usou.spr"

    case n=3

    do "c:\temp\kurs\pas.spr"

    case n=4

    do dbf with 4 in "C:\temp\kurs\kurs.prg" 

  endcase

return

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

procedure counts

param n

  do case

    case n=1

    do dir+"\add_uzr1.spr"

    do open in dir+"\main.prg"

    case n=2

    do dir+"\add_dep1.spr"

    do open in dir+"\main.prg"

  endcase

return

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

procedure reports

param n

  do case

    case n=1

    do dir+"\report1.spr"

    close all

    do open in dir+"\main.prg"

    case n=2

    do dir+"\report2.spr"

    do open in dir+"\main.prg"

  endcase

return

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

procedure admin

param n

  do case

    case n=1

    do dir+"\period.spr"

    god=par4

    mesyac=par3

    case n=2

    do reind in dir+"\main.prg"

    wait window "Реиндексация баз прошла успешно"

    do open in dir+"\main.prg"

    case n=3

    dir=getdir()

    do begin in "c:\temp\kurs\main.prg"

    case n=4

    do control in dir+"\main.prg"

    do open in dir+"\main.prg"

    case n=5

    do packing in dir+"\main.prg"

    do open in dir+"\main.prg"

  endcase

return


Main.prg


procedure begin

close all