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

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

з вищої освіти

ДЕРЖАВНА АКАДЕМІЯ УПРАВЛІННЯ

імені СЕРГО ОРДЖОНІКІДЗЕ

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

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

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

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

процесів управління "

Тема проекту: "Автоматизація розрахунку нарахувань

заробітної плати в будівельному управлінні N 151 "

Виконав: Ростовцев А.І., ПМ-буд 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, 'vhod \ base.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, 'vhod \ base.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);

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;

interface

uses unit1;

procedure vvod;

implementation

procedure vvod;

var i, j, g, h: integer;

begin

{Зчитування даних з першої таблиці}

for i: = 1 to 4 do kol_vo [i]: = 0;

for i: = 1 to 4 do begin

str (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 begin

str (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.pas

unit unit3;

interface

uses unit1;

procedure prog;

implementation

procedure 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 begin balls [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 begin balls [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;

interface

uses unit1;

procedure vivod;

implementation

procedure 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 та ін, користувачеві рекомендується проводити використовуючи стандартні засоби операційної системи або оболонки.