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

return

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

procedure move

DO CASE

CASE nMove = 1 && переход на первую запись

GO TOP

CASE nMove = 2 && переход на предыдущую запись

SKIP-1

IF BOF()

GO TOP

ENDIF

CASE nMove = 3 && переход на следующую запись

SKIP

IF EOF()

GO BOTTOM

ENDIF

CASE nMove = 4 && переход на последнюю запись

GO BOTTOM

ENDCASE

scatter to memvar

SHOW GETS && перевыводим экран

return

**************************************************************************************************8

procedure del_kad

m=Recno()

kod=kad.tn

do insure in dir+"\making.prg"

if question=1

for i=1 to 12 step 1

  if i=1

    name="uzrgd01"

  endif

  if i=2

    name="uzrgd02"

  endif

  if i=3

    name="uzrgd03"

  endif

  if i=4

    name="uzrgd04"

  endif

  if i=5

    name="uzrgd05"

  endif

  if i=6

    name="uzrgd06"

  endif

  if i=7

    name="uzrgd07"

  endif

  if i=8

    name="uzrgd08"

  endif

  if i=9

    name="uzrgd09"

  endif

  if i=10

    name="uzrgd10"

  endif

  if i=11

    name="uzrgd11"

  endif

  if i=12

    name="uzrgd12"

  endif

  select &name

  go top

  scan

    if tn=kod

     delete

    endif

   endscan

endfor

select pasp

go top

   scan

    if pasp.tn=kod

     delete

    endif

   endscan

select dep

go top

   scan

    if dep.tn=kod

     delete

    endif

   endscan

select kad

go top

scan for kad.tn=kod

  delete

endscan

go top

skip m-1

wait window "Запись помечена на удаление!"

endif

if question=0

  wait window "Запись не тронута!"

endif

return

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

procedure del_usou

m=Recno()

kod=usou.vou

do insure in dir+"\making.prg"

if question=1

for i=1 to 12 step 1

  if i=1

    name="uzrgd01"

  endif

  if i=2

    name="uzrgd02"

  endif

  if i=3

    name="uzrgd03"

  endif

  if i=4

    name="uzrgd04"

  endif

  if i=5

    name="uzrgd05"

  endif

  if i=6

    name="uzrgd06"

  endif

  if i=7

    name="uzrgd07"

  endif

  if i=8

    name="uzrgd08"

  endif

  if i=9

    name="uzrgd09"

  endif

  if i=10

    name="uzrgd10"

  endif

  if i=11

    name="uzrgd11"

  endif

  if i=12

    name="uzrgd12"

  endif

  select &name

  go top

  scan

    if vou=kod

     delete

    endif

   endscan

endfor

select dep

go top

   scan

    if dep.vou=kod

     delete

    endif

   endscan

select usou

go top

scan for usou.vou=kod

  delete

endscan

go top

if m>1

skip m-1

endif

wait window "Запись помечена на удаление!"

return

endif

if question=0

  wait window "Запись не тронута!"

endif

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

procedure del_pasp

kod=pasp.tn

do insure in dir+"\making.prg"

if question=1

  select pasp

  go top

  scan

    if pasp.tn=kod

      delete

    endif   

  endscan

wait window  "Запись помечена на удаление!"

endif

if question=0

  wait window "Запись не тронута!"

endif

return

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

procedure insure

  if nSure=1

    question=1

  endif

  if nSure=2

    question=0

  endif

return

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

procedure RegimChoise

do case

  case nRegim="Сетевой"

  regim=1

  case nRegim="Монопольный"

  regim=0

endcase

return