Формирование структуры заданных баз данных с помощью команд оболочки FoxPro. Разработка программных модулей, выполняющих заданные действия, страница 2

gd           c(2)                   Год( две последние цифры)

ms           c(2)                   номер месяца

dn           n(2)                   Число рабочих дней по плану(календарю)

dr           n(2)                   Число рабочих дней фактических(по

                                    табелю)

ch           n(3)                   Число отработанных часов

tr           n(7.2)                 тариф (для не ИТР)

ob           n(12.2)                оклад (для ИТР)

spz          c(9)                   шифр затрат

БД депонента (deponent.dbf).

Данная БД используется для выполнения операций с депонированной

зарплатой .

--------------------------------------------------------------

имя поля  | тип поля  и  длина  |  название

----------------------------------------------------------------

uc           c(2)                   Тип работника

gd           c(2)                   Год( две последние цифры)

ms           c(2)                   номер месяца

tn           c(4)                   табельный номер работника

vou          c(3)                   Код вида оплат/удержаний

zp           n(12.2)                Сумма

spz          c(9)                   шифр затрат

dt           d(8)                   дата операции


3.  Описание модулей.

Mykad.prg

if!(file('C:\temp\labs\1\mykad.dbf'))

create table mykad (tn c(4), otd c(2), dol c(3), fio c(40), kld n(2),dtp d(8),okl n(12.2), tr n(10.2), pdx c(3),dtu d(8), prfs c(1))

use mykad

append blank

Replace tn with "0001" , otd with "1" , dol with "01" , fio with "Виноградов Илья Николаевич" ,kld with 1 , dtp with CTOD("10.01.01") , okl with 10000 , tr with 300 , pdx with "400",dtu with CTOD("10.01.2010"), prfs with "0"

append blank

Replace tn with "0002" , otd with "1" , dol with "01" , fio with "Игнатьев Руслан Владимирович" ,kld with 2 , dtp with CTOD("11.12.02") , okl with 12000 , tr with 410 , pdx with "800",dtu with CTOD("11.12.2011"), prfs with "1"

append blank

Replace tn with "0003" , otd with "1" , dol with "020" , fio with "Печенкин Сергей Александрович" ,kld with 1 , dtp with CTOD("13.02.05") , okl with 10000 , tr with 300 , pdx with "400",dtu with CTOD("13.02.2015"), prfs with "0"

append blank

Replace tn with "0004" , otd with "1" , dol with "021" , fio with "Шнуров Игорь Борисович" ,kld with 2 , dtp with CTOD("14.11.01") , okl with 15000 , tr with 350 , pdx with "800",dtu with CTOD("14.11.2010"), prfs with "1"

append blank

Replace tn with "0005" , otd with "1" , dol with "021" , fio with "Фросин Вадим Петрович" ,kld with 1 , dtp with CTOD("10.12.01") , okl with 1500 , tr with 150 , pdx with "110",dtu with CTOD("12.12.2010"), prfs with "0"

append blank

Replace tn with "0006" , otd with "3" , dol with "030" , fio with "Федоров Николай Трофимович" ,kld with 1 , dtp with CTOD("11.12.03") , okl with 10000 , tr with 300 , pdx with "400",dtu with CTOD("05.03.2005"), prfs with "0"

append blank

Replace tn with "0007" , otd with "3" , dol with "030" , fio with "Тихомиров Алексей Николаевич" , kld with 2 , dtp with CTOD("01.05.04") , okl with 10000, tr with 300 , pdx with "400", dtu with CTOD ("01.05.05") , prfs with "0"

else

use C:\temp\labs\1\mykad

endif

browse

MyUsou.prg

if!(file('C:\temp\labs\1\myusou.dbf'))

create table myusou (vou c(3), nmo c(25), pd c(1), pf c(1), pa c(1), pe c(1), spz c(9))

use myusou

append Blank

Replace vou with "001", nmo with "Подоходный налог" , pd with "1" , pf with "0" , pa with "0" , pe with "1" , spz with ""

append Blank

Replace vou with "002", nmo with "Медицинское стр" , pd with "1" , pf with "0" , pa with "0" , pe with "0" , spz with ""

append Blank

Replace vou with "003", nmo with "Удержание алиментов" , pd with "0" , pf with "0" , pa with "1" , pe with "0" , spz with ""

append Blank

Replace vou with "004", nmo with "Профсоюзные взносы" , pd with "0" , pf with "1" , pa with "0" , pe with "0" , spz with ""

append Blank