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

procedure packing

select dep

pack

select pasp

pack

select kad

pack

select usou

pack

select uzrgd01

pack

select uzrgd02

pack

select uzrgd03

pack

select uzrgd04

pack

select uzrgd05

pack

select uzrgd06

pack

select uzrgd07

pack

select uzrgd08

pack

select uzrgd09

pack

select uzrgd10

pack

select uzrgd11

pack

select uzrgd12

pack

wait window "Помеченные объекты удалены!"

return

procedure pr_usou

m=Recno()

n=usou.vou

err=0

select usou

go top

Locate for usou.vou=n

if (found()) and (recno()=m)

  continue

endif

f=found()

go top

if m>1

skip m-1

endif

if f

  err=err+1

  wait window "Код не уникальный!"

endif

if err==0

  do move in dir+"\making.prg"

endif

if n<"000"

  wait window "Неверно введен код оплаты/удержания

endif 

return

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

procedure pr_kad

err=0

if val(left(kad.pdx,1))>1

  wait window "Неправильно введены налоговые вычеты!"

  err=err+1

endif

if (kad.otd="02") and (kad.tr<>0)

  wait window "У ИТР не должен быть указан тариф!"

  err=err+1

endif

if err==0

  do move in dir+"\move.prg"

endif

return

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

procedure pr_pasp

  do move in dir+"\move.prg"

return

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

procedure add_uzrgd

  if nMonth = "за январь"

    name="uzrgd01"

    i="01"

  endif

  if nMonth = "за февраль"

    name="uzrgd02"

    i="02"

  endif

  if nMonth = "за март"

    name="uzrgd03"

    i="03"

  endif

  if nMonth = "за апрель"

    name="uzrgd04"

    i="04"

  endif

  if nMonth = "за май"

    name="uzrgd05"

    i="05"

  endif

  if nMonth = "за июнь"

    name="uzrgd06"

    i="06"

  endif

  if nMonth = "за июль"

    name="uzrgd07"

    i="07"

  endif

  if nMonth = "за август"

    name="uzrgd08"

    i="08"

  endif

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

    name="uzrgd09"

    i="09"

  endif

  if nMonth = "за октябрь"

    name="uzrgd10"

    i="10"

  endif

  if nMonth = "за ноябрь"

    name="uzrgd11"

    i="11"

  endif

  if nMonth = "за декабрь"

    name="uzrgd12"

    i="12"

  endif

  select kad

  p1=kad.otd

  p2=kad.tn

  p4=kad.tr

  p5=kad.okl

  select usou

  p3=usou.vou

  p6=usou.spz

  select &name

  APPEND BLANK

  If flock()

    Replace uc  with p1

    Replace tn  with p2

    Replace vou with p3

    Replace zp  with summa

    Replace gd  with god

    Replace ms  with i

    Replace dn  with plan_days

    Replace dr  with fact_days

    Replace ch  with fact_hours

    Replace tr  with p4

    Replace ob  with p5

    Replace spz with p6

    unlock

return

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

procedure add_dep

  select kad

  p1=kad.otd

  p2=kad.tn

  if nChoise = "Перенос денег на депонент"

    p3="230"

    p6="760020001"

  endif

  if nChoise = "Выдача денег с депонента"

    p3="001"

    p6="700020001"

  endif

  select dep

  APPEND BLANK

  If flock()

    Replace uc  with p1

    Replace tn  with p2

    Replace vou with p3

    Replace zp  with summa

    Replace gd  with year

    Replace ms  with Month

    Replace spz with p6

    Replace dt  with date()

    unlock