Реферат Процес розрахунку заробітної плати шляхом розробки і впровадження сучасної ЕІС

Тема: Новые рефераты

х систем.- М.: Фінанси і статистика, 1984. - 196 с.

. Смирнова Г.Н., Сорокін А.А., Тельнов Ю.Ф. Проектування економічних інформаційних систем. М.: Фінанси і статистика, 2001.

. Титоренко Г.А. «Автоматизовані інформаційні технології в економіці». М.: видавництво ЮНИТИ, 2008.

. Угринович Н.Д. Дослідження інформаційних моделей. Елективний курс. 2-е видання.- Біном. Лабораторія знань, 2006. - 435 с.

. Шураков В.В. Автоматизоване робоче місце для статичної обробки даних, 2010.

. Елейн МЕІСел. Microsoft Office Project 2007: Біблія користувача.- СПб.: КОРОНА-Век, 2008.

16.Interbase - СУБД.// Www.interbase <# «justify"> 32. СНиП 21-01-97 Пожежна безпека будівель і споруд. М. 1997.

. Волошин В. «Ергономіка повинна бути ергономний». М.: Московський видавничий дім, 2000. - 164 с.

. Моніка Тіль. Знайомтеся: Ваше робоче місце. М.: «Христина та К.», 2001. Сейдлер Д., Бономо П., Керівництво з ергономіки. М.: Московський видавничий дім, 2000. - 213 с.

ДОДАТОК

Процедури розрахунку заробітної плати

//..............................................................................TFRaschet.Пересчет_показателей;i,j: integer;: double;

Година, чесних, ЧасПр, ЧасСВ: integer;

СуммаОклДол, Сума, Суммана, СуммаПр, СуммаСВ: double;

Оклад, ВислугаПр, НапряжПр: double;

ПДФО, НалогВичет, Підсумок: double;

Ітого1, ІтогоНДФЛ: double;

Ітого1:=0; ІтогоНДФЛ:=0 ;/ / Розрахунок по всім співробітникам

for i:=1 to SG.RowCount - 1 do begin

/ / Перевірка введених даних по рядку

if SG.Cells [5, i]=«» then SG.Cells [5, i]:=«168»; SG.Cells [6, i]=«» then SG.Cells [6, i]:=«0»; SG.Cells [7, i]=«» then SG.Cells [7, i]:=«0»; SG.Cells [8, i]=«» then SG.Cells [8, i]:=«0»;

/ / Ініціалізація

Оклад:=StrToFloat (SG.Cells [3, i]);

K:=168;// Годин на місяць

ВислугаПр:=Процент_за_вислугу_лет (SG.Cells [0, i]);

НапряжПр:=StrToFloat (SG.Cells [4, i]);

Година:=StrToInt (SG.Cells [5, i]);

чесних:=StrToInt (SG.Cells [6, i]);

ЧасПр:=StrToInt (SG.Cells [7, i]);

ЧасСВ:=StrToInt (SG.Cells [8, i]);

НалогВичет:=Налоговий_вичет_НДФЛ (SG.Cells [0, i]);

/ / Розрахунки

СуммаОклДол:=Оклад / K * Година;