Автоматизація розрахунку нарахувань заробітної плати в будівельному управлінні N 151

Державний комітет Російської Федерації з вищої освіти

ДЕРЖАВНА АКАДЕМІЯ УПРАВЛІННЯ імені СЕРГО ОРДЖОНІКІДЗЕ

Інститут управління та підприємництва в будівництві

Кафедра виробничого менеджменту в будівництві

КУРСОВИЙ ПРОЕКТ

за курсом "Автоматизація і моделювання процесів управління"

Тема проекту: "Автоматизація розрахунку нарахувань заробітної плати в будівельному управлінні N 151" < p> Виконав: Ростовцев А.І., ПМ-строй III-2
Перевірив: Сороко Г.Я.

Москва-1997.

Зміст.

1. Введення;
2. Економіко-організаційна сутність завдання;
3. Вхідна і вихідна інформація, структура файлів;
4. Блок-схема алгоритму розв'язання задачі;
5. Короткі відомості з технічного і загальносистемного програмногозабезпечення;
6. Тексти програм (у додатку);
7. Інструкція користувача;
8. Результати рішення задачі на ПЕОМ.

Економіко-організаційна сутність завдання.

За завданням на курсове проектування проводиться автоматизаціярозрахунку нарахування заробітної плати в будівельному управлінні N 152. Даназавдання реалізується економістом-бухгалтером відділу бухгалтерського обліку тазвітності будівельного управління.

При автоматизації завдання мають бути враховані наступні основнівимоги:
-оптимальне для користувача подання вихідної та кінцевої інформації.
-простота і зручність в експлуатації програми автоматизації;

Вхідна і вихідна інформація, в програмі представлена окремимифайлами (по кожній ділянці будівельного управління за певний місяць)у вигляді таблиць.

У програмі передбачено розрахунок доплати з колективного фонду оплатипраці до зарплати працівника за тарифом і його індивідуальним виплат,що розподіляється відповідно до коефіцієнта трудової участі
(КТУ). Величина цього колективного фонду визначається як різниця міжфондом заробітної плати на поточний місяць, який визначає керівництво вЗалежно від виконання виробничої програми, і сумою зарплати потарифом та індивідуальних виплат по всіх ділянках ( "ДОПОМОГИ" і "ЛІКАРНЯНИЙ"при розрахунку виплат з колективного фонду виключаються, так яквиплачуються зі спеціальних фондів).

При розрахунку додаткової заробітної плати для кожного працівникавизначається величина набраних ним у поточному місяці балів, якарозраховується як добуток зарплати по тарифу (з урахуванням вихідних іпонаднормових) працівника і отриманого ним КТУ.

Далі визначаються нормативні коефіцієнти доплати з колективногофонду для робітників і службовців. Величина нормативного коефіцієнта дляробітників дорівнює відношенню частини колективного фонду на робочих до суми балівпо робочих. Величина нормативного коефіцієнта для ІТП дорівнює відношеннючастини колективного фонду на ІТП до суми балів за ІТП.

При розподілі колективного фонду між робітниками та ІТПпередбачається рівність загальної зарплати робітника 5-го розряду (тобтосума зарплати за тарифом і доплати розподіленої по КТУ без урахуванняіндивідуальних нарахувань) загальною зарплати майстра (при окладі майстра -
250000).

Доплата з колективного фонду кожному працівнику розраховується яктвір кількості балів даного працівника і відповідногонормативного коефіцієнта.

Також у програмі розраховуються нарахування по кожному працівникупідсумкової суми заробітної плати, що включає зарплату по тарифу (у тому числіоплату за вихідні та понаднормові), доплату з колективного фонду таіндивідуальні виплати, при цьому "ЛІКАРНЯНИЙ" і "ПОСІБНИКИ" складаютьсятільки для визначення загальної суми нарахувань.

Вхідна і вихідна інформація, структура файлів.

Короткі відомості по технічному і загальносистемного програмного забезпечення.

Мінімальна конфігурація комп'ютера:

- Оболонка або операційна система: Windows 3.1, Windows 95, Windows NTабо OS/2, MAC (підтримка 16-bit-ного коду та символьної кодування Windows
3.1)
- 2 MB RAM
- VGA Card
- Hard Drive 15 Mb
- Floppy drive 1.44 MB

Коротко про програму:

Програма "Автоматизація розрахунку нарахувань заробітної плати вбудівельному управлінні N 151 "була написана Delphi 1.0 for Windows 3.1 іскомпільована в 16-ти бітному коді. Передбачено зручний інтерфейскористувача, можливість запуску програми паралельно з іншимипрограмами, що прискорює роботу користувача і робить програму більшпрактичною. У програми є один великий недолік і в той же часгідність: програма працює в кодуванні символів Windows, що робитьможливим робити зручну ландшафтну друк з Windows, використовуватиотриману інформацію в інших додатках Windows. Для спрощення програмия не передбачив у ній вбудованого конвектора для перекладу файлів у формат
DOS, тому для використання результатів в додатках DOS слідперевести вихідні файли в потрібний формат. Це можна зробити за допомогоюстандартного редактора WordPad або Write.

Загальний розмір програми складає 252 246 байт. Програма не міститьархівів, файлів, що робить можливість її швидкогозапуску прямо з незахищеною дискети. Але краще робити запуск ізжорсткого диска, тому що швидкість звернення до нього і швидкість запису на ньоговище, ніж у дискети, так само це підвищить надійність збереження інформації. Упринципі дана програма-примітивна демонстраційна версія, якуможна розвинути в справжню гарну програму: організувати виклик вбудованогоредактора, висновок на принтер, систему допомоги, меню з спливаючимипідказками, "зробити цукерочку". Можливості Delphi 1.0 for Windows 3.1дуже великі, при використанні 32-bit-ного коду вони майже не обмежені.
Існує безліч бібліотек і модулів, при підключенні яких можназробити цього монстра, що буде робити все, що хочеш, і будепростий у використанні.

Програма була написана під Windows 3.1, але може працювати і підіншими оболонками, емулює роботу Windows 3.1-OS/2; MAC,підтримують 16-bit-ний код та кодування Windows3.1-Windows NT, Windows
95.

Тексти програм (у додатку).

Головний запускає файл програми.
Pr1.dpr

program Pr1;

uses
Forms,
Start in 'START.PAS' (Form1), unit1 in 'UNIT1.PAS', unit2 in 'UNIT2.PAS', unit3 in 'UNIT3.PAS', unit4 in 'UNIT4.PAS';

($ R *. RES)

begin
Application.CreateForm (TForm1, Form1);
Application.Run;end.

Файл визначає введення додаткової інформації через інтерфейс програми.
Start.pas

unit Start;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms , Dialogs, StdCtrls, Unit1, Unit2, Unit3, Unit4;

type
TForm1 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Label4: TLabel;

Edit2: TEdit;

Label5: TLabel;

Edit3: TEdit;

Label6: TLabel;

Edit4: TEdit;

Label7: TLabel ;

Edit5: TEdit;

Button1: TButton; procedure Button1Click (Sender: TObject); procedure FormCreate (Sender: TObject); private

(Private declarations ) public

(Public declarations) end;

var
Form1: TForm1;

implementation

($ R *. DFM)

procedure TForm1.Button1Click (Sender: TObject);begin str (n_mes, mw);

system.assign (f, 'vhodbase.dat'); rewrite (f);

z: = Edit3.Text; writeln (f , z); (val (z, fzp, conv);) (ФЗП)

z: = Edit2.Text; writeln (f, z); (val (z, kol_d, conv);) (Кількість днів)

z: = Edit5.Text; writeln (f, z); (val (z, tar_rab, conv);) (Тариф робочого 5-го розряду)

z: = Edit4.Text; writeln (f, z); (val (z, oc_m, conv);) (Оклад майстра)

z: = Edit1.Text; writeln (f, z); (val (z, n_mes, conv );}

system.close (f);

Unit2.vvod;

Unit3.prog;

Unit4.vivod;

end;

procedure TForm1.FormCreate (Sender: TObject);begin

Edit1.Text: = '0 ';

Edit2.Text: = '0';

Edit3.Text: = '0 ';

Edit4.Text: = '0 ';

Edit5.Text: = '0';

system.assign (f, 'vhodbase.dat') ; reset (f);

readln (f, z); val (z, fzp, conv); (ФЗП)

Edit3.Text: = FloatToStr (fzp);

readln (f, z); val (z, kol_d, conv); (Кількість днів)

Edit2.Text: = IntToStr (kol_d); < p> readln (f, z); val (z, tar_rab, conv); (Тариф робочого 5-го розряду)

Edit5.Text: = IntToStr (tar_rab);

readln (f, z); val (z, oc_m, conv); (Оклад майстра)

Edit4.Text: = FloatToStr (oc_m);

readln (f, z) ; val (z, n_mes, conv);

Edit1.Text: = IntToStr (n_mes);

system.close (f);

end;

end.

Файл, що відповідає за ідентифікацію змінних.
Unit1.pas

unit unit1;interface

(Розділ констант) const mes: array [1 .. 12] of string
[8] = ( 'січня', 'лютого', 'березня', 'квітня', 'травня',

'червня', 'липня', 'серпня', 'вересня', 'жовтня ',' листопада ',' грудня');

(Опис змінних)

VAR n_mes: integer; (N місяці) conv: integer; (перем.-конвектор) f, f1: system.text; z, s, mw: string; x, y: real; (додаткові змінні) kol_d, tar_rab: integer; (Вихідна інформація) fzp, oc_m: extended; (Вихідна інформація) kol_vo: array [1. .4] of integer; (Кількість працівників у групі) ktu: array [1 .. 4,1 .. 20] of real; (КТУ) fio: array [1 .. 4,1 .. 20] of string [16 ]; (ПІБ) a: array [1 .. 4,1 .. 20,3 .. 20] of longint; (Вихідна інформація) t: array [1 .. 4,1 .. 20,1 .. 7] of real; (Тариф/оклад і табель) balls: array [1 .. 4,1 .. 20] of extended; (Бали працівників) br, bi: extended; (Сума балів)
(I, j, g, h,) c: integer; (змінні-лічильники) nkr, nki, p, q: extended; (Нормативні коефіцієнти, Доля ІТП, Перем .-лічильник) fr, fi: real; (Засоби розподіл. по КТУ робітникам і ІТП)

implementation

end.

Файл, що відповідає за введення даних з вхідних таблиць.
Unit2.pas

unit unit2;

interfaceuses unit1;

procedure vvod;

implementationprocedure vvod;var i, j, g, h: integer;begin

(Зчитування даних з першої таблиці)for i: = 1 to 4 do kol_vo [i]: = 0;for i: = 1 to 4 do beginstr (i, s); assign (f, 'vhod' + s + '-1 -' + mw + '. txt'); reset (f);

for j: = 1 to 7 do readln (f, z); (пропустити шапку таблиці)repeat readln (f, z); kol_vo [i]: = kol_vo [i] +1; j: = pos ('|', z); z: = copy (z, j +1,250); (Пропускаємо номер) j : = pos ('|', z); fio [i, kol_vo [i]]: = copy (z, 1, j-1); z: = copy (z, j +1,250);
(ПІБ) j: = pos ('|', z); val (copy (z, 1, j-
1), ktu [i, kol_vo [i]], conv); z: = copy (z, j +1,300); (КТУ)

(Розряд працівника) j: = pos ( '|' , z); val (copy (z, 1, j-
1), a [i, kol_vo [i], 6], conv); z: = copy (z, j +1,300);

(Тариф/оклад працівника) j: = pos ( '| ', z); val (copy (z, 1, j-
1), t [i, kol_vo [i], 1], conv); z: = copy (z, j +1,300);

(Табель часу працівника) j: = pos ( '|' , z); val (copy (z, 1, j-
1), t [i, kol_vo [i], 2], conv); z: = copy (z, j +1,300); j: = pos ('|', z); val (copy (z, 1, j-
1), t [i, kol_vo [i], 3], conv); z: = copy (z, j +1,300);

(Вихідні працівника) j: = pos ('|', z); val (copy (z, 1, j-
1), t [i, kol_vo [i], 4], conv); z: = copy (z, j +1,300); j: = pos ('|', z); val (copy (z, 1, j-
1), t [i, kol_vo [i], 5], conv); z: = copy (z, j +1,300);

(Понаднормові працівника) j: = pos ('|', z); val (copy (z, 1, j-
1), t [i, kol_vo [i], 6], conv); z: = copy (z, j +1,300); j: = pos ('|', z); val (copy (z, 1, j-1), t [i, kol_vo [i], 7], conv);until eof (f);close (f); end;

(Зчитування даних з другої таблиці)

for i: = 1 to 4 do beginstr (i, s); assign (f, 'vhod' + s + '-2 -' + mw + '. txt'); reset (f);for g: = 1 to 7 do readln (f, z); (пропустити шапку таблиці)for g: = 1 to kol_vo [i] do begin readln (f, z); j: = pos ('|', z); z: = copy (z, j +1,250); j: = pos ( '| ', z); z: = copy (z, j +1,250); for h: = 8 to 10 do begin j: = pos ('|', z); val (copy (z, 1, j-1) , x, c); a [i, g, h]: = round (x); fzp: = fzp-a [i, g, h]; z: = copy (z, j +1,250); end; j : = pos ('|', z); val (copy (z, 1, j-1), x, c); a [i, g, 18]: = round (x); z: = copy (z , j +1,250); for h: = 11 to 12 do begin j: = pos ('|', z); val (copy (z, 1, j-1), x, c); a [i, g , h]: = round (x); fzp: = fzp-a [i, g, h]; z: = copy (z, j +1,250); end; j: = pos ('|', z); val (copy (z, 1, j-1), x, c); a [i, g, 19]: = round (x); for h: = 13 to 16 do begin z: = copy (z, j +1,250); j: = pos ('|', z); val (copy (z, 1, j-1), x, c); a [i, g, h]: = round (x); fzp : = fzp-a [i, g, h]; end;end;close (f); end;

end;end.

Файл, що відповідає за основний розрахунок.
Unit3.pasunit unit3;

interfaceuses unit1;

procedure prog;

implementationprocedure prog;var i, j, h: integer;begin

br: = 0;bi: = 0;

for i: = 1 to 4 do for j: = 1 to kol_vo [i] do begin

if a [i, j, 6] = 0 then balls [i, j]: = t [i, j, 1] * t [i, j, 2]/kol_d else balls [i, j]: = t [i, j, 1] * t [i, j, 3];a [i, j, 3]: = round (balls [i, j ]);

(Вихідні)if a [i, j, 6] = 0 then begin a [i, j, 4]: = round (1.5 * t [i, j, 1] * t [i, j, 4]/kol_d); balls [ i, j]: = balls [i, j] + t [i, j, 1] * t [i, j, 4]/kol_d; end else begin balls [i, j]: = balls [i, j] + t [i, j, 1] * t [i, j, 5]; a [i, j, 4]: = round (1.5 * t [i, j, 1] * t [i, j, 5] ); end;
(Понаднормові)if a [i, j, 6] 0 then beginballs [i, j]: = balls [i, j] + t [i, j, 1] * (t [i, j, 6] + t [i, j, 7]); a [i, j, 5]: = round (t [i, j, 1] * (1.5 * t [i, j, 6] 2 * t [i, j, 7])); end else beginballs [i, j]: = balls [i, j] + t [i, j, 1] * (t [i, j, 6] + t [i, j, 7])/8/kol_d; a [ i, j, 5]: = round (t [i, j, 1] * (1.5 * t [i, j, 6] 2 * t [i, j, 7])/8/kol_d); end;
(Розрахунок балів) balls [i, j]: = balls [i, j] * ktu [i, j]; if a [i, j, 6] 0 then br: = br + balls [i, j] else bi : = bi + balls [i, j];for h: = 3 to 5 do fzp: = fzp-a [i, j, h]; (Зменшення ФЗП)end;
(writeln ( 'bi:', round (bi), 'br:', round (br ));}

(Надбавка за КТУ)nkr: = 0.75 * fzp/br; nki: = 0.25 * fzp/bi;
(writeln ( 'fzp', round (fzp ));}

p: = 0;q: = 1;
(Цикл оптимізації)repeat if round (oc_m + oc_m * 1.5 * nki)>round (tar_rab * 8 * kol_d + tar_rab * 8 * kol_d * 1.5 * nkr) then begin p: = p + q; q: = q/10; end;

p: = pq; nkr: = (1-p) * fzp/br; nki: = p * fzp/bi;
(writeln (round (oc_m + oc_m * 1.5 * nki), '
', round (tar_rab * 8 * kol_d + tar_rab * 8 * kol_d * 1.5 * nkr)); writeln (' oc_m ', round (oc_m),' nki ', round (nki)); writeln (' oc_m ', round (oc_m), 'nkr', round (nkr));)until round (oc_m + oc_m * 1.5 * nki)round (tar_rab * 8 * kol_d + tar_rab * 8 * kol_d * 1.5 * nkr);

(writeln ( 'ok', round (oc_m + oc_m * 1.5 * nki), '
', round (tar_rab * 8 * kol_d + tar_rab * 8 * kol_d * 1.5 * nkr));writeln ( 'ok nkr:', round (nkr), 'nki:', nki );}

(Зарплата по КТУ виплив. робочим)for i: = 1 to 3 do for j: = 1 to kol_vo [i] do a [i, j, 7]: = round (nkr * balls [i, j ]);

(Зарплата по КТУ виплив. ІТП) for j: = 1 to kol_vo [i] do a [4, j, 7]: = round (nki * balls [4, j ]);

(Підсумкове підсумовування)

for i: = 1 to 4 do for j: = 1 to kol_vo [i] do begin a [i, j, 17]: = 0; a [i, j, 20]: = 0; for h: = 3 to 5 do a [i, j, 17]: = a [i, j, 17] + a [i, j, h]; for h: = 7 to 16 do a [i, j, 17]: = a [i, j, 17] + a [i, j, h]; for h: = 17 to 19 do a [i, j, 20]: = a [i, j, 20] + a [i, j, h]; end;

end;end.

Файл, що відповідає за виведення даних у вивідні таблиці.
Unit4.pas

unit unit4;

interfaceuses unit1;

procedure vivod;

implementationprocedure vivod;var i, j, h: integer;begin
(Виведення в таблицю)

for i: = 1 to 4 do begin str (i, s); assign (f, 'vihod' + s +'-'+ mw + '. Txt'); rewrite ( f); s: = 'Таблиця заробітної плати по' + s + 'ділянці на' + mes [n_mes] + 'місяць '; writeln (f, s);

(Створення шапки таблиці) assign (f1,' vhod/shapka '); reset (f1); for j: = 1 to 6 do begin readln (f1 , z); writeln (f, z); end; close (f1);

for j: = 1 to kol_vo [i] do begin (Виведення даних у таблицю) write (f, '|' ); write (f, j: 2); write (f ,'|'); write (f, fio [i, j]: 16); write (f ,'|'); for h: = 3 to 5 do begin write (f, a [i, j, h]: 8); write (f ,'|'); end; str (round (balls [i, j]), s); write (f, s: 8); write (f ,'|'); for h: = 7 to 20 do begin write (f, a [i, j, h]: 8); write (f ,'|'); end; write ( f, j: 2); writeln (f ,'|'); end; close (f);end;

(readln;)

end;end.

Список ідентифікаторів, що використовуються в програмі:n_mes - № місяці;conv-перем.-конвектор;f, f1-текстові;z, s, mw: string; x, yl-додаткові змінні;kol_d, tar_rab, fzp, oc_m-Вихідна інформація;kol_vo [1 .. 4]-Кількість працівників у групі;ktu [1 .. 4,1 .. 20]-КТУ;fio [1 .. 4,1 .. 20]-Прізвище, Ім'я, Очество працівника;a [1 .. 4,1 .. 20,3 .. 20]-Вихідна інформація з таблиці;t: [1 .. 4,1 .. 20,1 .. 7]-Тариф, оклад і табель;balls [1 .. 4,1 .. 20] of extended-Бали працівників;br, bi-Суми балів робітників та ІТП;i, j, g, h, c;-змінні-лічильники;nkr, nki, p, q-Нормативні коефіцієнти, Доля ІТП, Перем.-лічильник;fr, fi-Засоби розподіл. по КТУ робочим та ІТП;mes-найменування месеца;

Додатково:
Програма здійснює порядковий введення з вхідних файлів, обробляє їхза допомогою робочих файлів, роблячи порядковий висновок у вихідні файли. Дляфункціонування програми використовуються форматні файли. Максимальний обсягвведеної інформації обмежений структурою таблиці. Крім основних,програма використовує стандартні модулі мови Delphi.

Інструкції користувача.

Створення вхідної інформації:

Перед запуском програми необхідно створити відповідні вхідніфайли в директорії VHOD на основі вже наявних файлів. При роботі в
Windows, користувачеві рекомендується створювати їх за допомогою стандартногоредактора Write (WordPad). Кожному дільниці в кожному місяці відповідаєдва файли. Формат файлів має строго відповідати формату вженаявних файлів, зберігаючи структуру таблиці. Найменування файлів маєвідповідати наступним стандартам:
-Ім'я першого файлу: X-1-Y.txt, де X-номер ділянки, а Y-номер місяця.
-Ім'я другого файлу: X-2-Y.txt, де X-номер ділянки, а Y-номер місяця.
Запуск програми:

Запуск програми здійснюється після запуску Windows або емулятора
Windows 3.1 у випадку використання OS/2 або MAC. Що запускає файл-файлpr1.exe. Після запуску програми перед користувачем з'являється їїінтерфейс.
Користування програмою:

Після успішного запуску користувач задає параметри та коефіцієнтирозрахунків. Після того, як відповідні коефіцієнти та параметривизначені, необхідно натиснути клавішу Рахунок на інтерфейсі програми.
Інформація буде проаналізовано та виведена в таблиці.
Перегляд вихідної інформації:

Вихідні таблиці знаходяться в піддиректорії VIHOD. Кожному ділянці укожному місяці відповідає певний файл:
-Файл: X-1-Y.txt, де X-№ ділянки, а Y-№ місяці.
При роботі в Windows, користувачеві рекомендується переглядати їх придопомогою стандартного редактора Write (WordPad), або Notepad.
Додаткові операції:

Додаткові операції над вихідний інформацією, як друк вихіднихтаблиць, переведення їх у кодування DOS і ін, користувачу рекомендуєтьсяпроводити використовуючи стандартні засоби операційної системи або оболонки.