Информационная система ООО "Завод автотехнологий"
Теоретические основы применения информационных технологий для поддержки принятия решений, роль информационных технологий в управлении. Назначение проектируемой информационной системы, обзор существующих программных средств поддержки принятия решений.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 27.02.2020 |
| Размер файла | 2,0 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
//Шапка таблицы абс. показателей:
Excel.Cells[3,2]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г.';
Excel.Cells[3,3]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[3,4]:= IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,5]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[4,7]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,9]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
//Рентабельность продаж:
Excel.Cells[6,2]:= GetOPUValue(Year1, Quarter1, 50, 1) / GetOPUValue(Year1, Quarter1, 10, 1);
Excel.Cells[6,3]:= GetOPUValue(Year2, Quarter2, 50, 1) / GetOPUValue(Year2, Quarter2, 10, 1);
Excel.Cells[6,4]:= GetOPUValue(Year3, Quarter3, 50, 1) / GetOPUValue(Year3, Quarter3, 10, 1);
//Общая рентабельность отчетного периода (экономическая рентабельность):
Excel.Cells[7,2]:= GetOPUValue(Year1, Quarter1, 140, 1) / GetBalValue(Year1, Quarter1, 300, 2);
Excel.Cells[7,3]:= GetOPUValue(Year2, Quarter2, 140, 1) / GetBalValue(Year2, Quarter2, 300, 2);
if GetBalValue(Year3, Quarter3, 300, 2) <> 0 then
Excel.Cells[7,4]:= GetOPUValue(Year3, Quarter3, 140, 1) / GetBalValue(Year3, Quarter3, 300, 2)
else
Excel.Cells[7,4]:= '-';
//Рентабельность собственного капитала:
if (GetBalValue(Year1, Quarter1, 490, 2) <> 0) and (GetBalValue(Year1, Quarter1, 640, 2) <> 0) and
(GetBalValue(Year1, Quarter1, 650, 2) <> 0) then
Excel.Cells[8,2]:= GetOPUValue(Year1, Quarter1, 190, 1) / GetBalValue(Year1, Quarter1, 490, 2) +
GetOPUValue(Year1, Quarter1, 190, 1) / GetBalValue(Year1, Quarter1, 640, 2) +
GetOPUValue(Year1, Quarter1, 190, 1) / GetBalValue(Year1, Quarter1, 650, 2)
else
Excel.Cells[8,2]:= '-';
if (GetBalValue(Year2, Quarter2, 490, 2) <> 0) and (GetBalValue(Year2, Quarter2, 640, 2) <> 0) and
(GetBalValue(Year2, Quarter2, 650, 2) <> 0) then
Excel.Cells[8,3]:= GetBalValue(Year2, Quarter2, 190, 2) / GetBalValue(Year2, Quarter2, 490, 2) +
GetOPUValue(Year2, Quarter2, 190, 1) / GetBalValue(Year2, Quarter2, 640, 2) +
GetOPUValue(Year2, Quarter2, 190, 1) / GetBalValue(Year2, Quarter2, 650, 2)
else
Excel.Cells[8,3]:= '-';
if (GetBalValue(Year3, Quarter3, 490, 2) <> 0) and (GetBalValue(Year3, Quarter3, 640, 2) <> 0) and
(GetBalValue(Year3, Quarter3, 650, 2) <> 0) then
Excel.Cells[8,4]:= GetBalValue(Year3, Quarter3, 190, 2) / GetBalValue(Year3, Quarter3, 490, 2) +
GetOPUValue(Year3, Quarter3, 190, 1) / GetBalValue(Year3, Quarter3, 640, 2) +
GetOPUValue(Year3, Quarter3, 190, 1) / GetBalValue(Year3, Quarter3, 650, 2)
else
Excel.Cells[8,4]:= '-';
//Рентабельность внеоборотных активов:
Excel.Cells[9,2]:= GetOPUValue(Year1, Quarter1, 190, 1) / GetBalValue(Year1, Quarter1, 190, 2);
Excel.Cells[9,3]:= GetOPUValue(Year2, Quarter2, 190, 1) / GetBalValue(Year2, Quarter2, 190, 2);
Excel.Cells[9,4]:= GetOPUValue(Year3, Quarter3, 190, 1) / GetBalValue(Year3, Quarter3, 190, 2);
//Рентабельность основной деятельности (окупаемость издержек):
Excel.Cells[10,2]:= GetOPUValue(Year1, Quarter1, 50, 1) / GetOPUValue(Year1, Quarter1, 20, 1);
Excel.Cells[10,3]:= GetOPUValue(Year2, Quarter2, 50, 1) / GetOPUValue(Year2, Quarter2, 20, 1);
Excel.Cells[10,4]:= GetOPUValue(Year3, Quarter3, 50, 1) / GetOPUValue(Year3, Quarter3, 20, 1);
//Рентабельность перманентного (постоянного) капитала, рентабельность инвестиций:
if (GetBalValue(Year1, Quarter1, 490, 2) <> 0) and (GetBalValue(Year1, Quarter1, 640, 2) <> 0) and
(GetBalValue(Year1, Quarter1, 650, 2) <> 0) then
Excel.Cells[11,2]:= GetOPUValue(Year1, Quarter1, 140, 1) / GetBalValue(Year1, Quarter1, 490, 2) +
GetOPUValue(Year1, Quarter1, 140, 1) / GetBalValue(Year1, Quarter1, 640, 2) +
GetOPUValue(Year1, Quarter1, 140, 1) / GetBalValue(Year1, Quarter1, 650, 2)
else
Excel.Cells[11,2]:= '-';
if (GetBalValue(Year2, Quarter2, 490, 2) <> 0) and (GetBalValue(Year2, Quarter2, 640, 2) <> 0) and
(GetBalValue(Year2, Quarter2, 650, 2) <> 0) then
Excel.Cells[11,3]:= GetBalValue(Year2, Quarter2, 140, 2) / GetBalValue(Year2, Quarter2, 490, 2) +
GetOPUValue(Year2, Quarter2, 140, 1) / GetBalValue(Year2, Quarter2, 640, 2) +
GetOPUValue(Year2, Quarter2, 140, 1) / GetBalValue(Year2, Quarter2, 650, 2)
else
Excel.Cells[11,3]:= '-';
if (GetBalValue(Year2, Quarter2, 490, 2) <> 0) and (GetBalValue(Year2, Quarter2, 640, 2) <> 0) and
(GetBalValue(Year2, Quarter2, 650, 2) <> 0) then
Excel.Cells[11,4]:= GetBalValue(Year2, Quarter2, 140, 2) / GetBalValue(Year2, Quarter2, 490, 2) +
GetOPUValue(Year2, Quarter2, 140, 1) / GetBalValue(Year2, Quarter2, 640, 2) +
GetOPUValue(Year2, Quarter2, 140, 1) / GetBalValue(Year2, Quarter2, 650, 2)
else
Excel.Cells[11,4]:= '-';
//Фондорентабельность:
Excel.Cells[12,2]:= GetOPUValue(Year1, Quarter1, 140, 1) / GetBalValue(Year1, Quarter1, 120, 2);
Excel.Cells[12,3]:= GetOPUValue(Year2, Quarter2, 140, 1) / GetBalValue(Year2, Quarter2, 120, 2);
Excel.Cells[12,4]:= GetOPUValue(Year3, Quarter3, 140, 1) / GetBalValue(Year3, Quarter3, 120, 2);
//Вывод данных на вторую закладку шаблона (показатели деловой активности):
Excel.Worksheets[2].Select;
//Заголовок таблицы показателей:
Excel.Cells[1,1]:= string(Excel.Cells[1,1]) +
IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г., ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г., ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г. ';
//Шапка таблицы показателей:
Excel.Cells[3,2]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г.';
Excel.Cells[3,3]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[3,4]:= IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,5]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[4,6]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,7]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
//Фондоотдача основных средств Фо, руб.:
Excel.Cells[5,2]:= GetOPUValue(Year1, Quarter1, 10, 1) /
(GetBalValue(Year1, Quarter1, 120, 2) + GetBalValue(Year1, Quarter1, 120, 1)/2);
Excel.Cells[5,3]:= GetOPUValue(Year2, Quarter2, 10, 1) /
(GetBalValue(Year2, Quarter2, 120, 2) + GetBalValue(Year2, Quarter2, 120, 1)/2);
Excel.Cells[5,4]:= GetOPUValue(Year3, Quarter3, 10, 1) /
(GetBalValue(Year3, Quarter3, 120, 2) + GetBalValue(Year3, Quarter3, 120, 1)/2);
//Коэффициент общей оборачиваемости капитала Ок:
Excel.Cells[6,2]:= GetOPUValue(Year1, Quarter1, 10, 1) * 2 /
(GetBalValue(Year1, Quarter1, 300, 2) + GetBalValue(Year1, Quarter1, 300, 1));
Excel.Cells[6,3]:= GetOPUValue(Year2, Quarter2, 10, 1) * 2 /
(GetBalValue(Year2, Quarter2, 300, 2) + GetBalValue(Year2, Quarter2, 300, 1));
if GetBalValue(Year3, Quarter3, 300, 2) + GetBalValue(Year3, Quarter3, 300, 1) <> 0 then
Excel.Cells[6,4]:= GetOPUValue(Year3, Quarter3, 10, 1) * 2 /
(GetBalValue(Year3, Quarter3, 300, 2) + GetBalValue(Year3, Quarter3, 300, 1))
else
Excel.Cells[6,4]:= '-';
//Коэффицинт оборачиваемости оборотных средств Ооб:
Excel.Cells[8,2]:= GetOPUValue(Year1, Quarter1, 10, 1) * 2 /
(GetBalValue(Year1, Quarter1, 290, 2) + GetBalValue(Year1, Quarter1, 290, 1));
Excel.Cells[8,3]:= GetOPUValue(Year2, Quarter2, 10, 1) * 2 /
(GetBalValue(Year2, Quarter2, 290, 2) + GetBalValue(Year2, Quarter2, 290, 1));
Excel.Cells[8,4]:= GetOPUValue(Year3, Quarter3, 10, 1) * 2 /
(GetBalValue(Year3, Quarter3, 290, 2) + GetBalValue(Year3, Quarter3, 290, 1));
//Коэффициент оборачиваемости материальных оборотных средств Ом.ср:
Excel.Cells[10,2]:= GetOPUValue(Year1, Quarter1, 10, 1) * 2 /
(GetBalValue(Year1, Quarter1, 210, 1) + GetBalValue(Year1, Quarter1, 220, 1));
Excel.Cells[10,3]:= GetOPUValue(Year2, Quarter2, 10, 1) * 2 /
(GetBalValue(Year2, Quarter2, 210, 1) + GetBalValue(Year2, Quarter2, 220, 1));
Excel.Cells[10,4]:= GetOPUValue(Year3, Quarter3, 10, 1) *2 /
(GetBalValue(Year3, Quarter3, 210, 1) + GetBalValue(Year3, Quarter3, 220, 1));
//Коэффициент оборачиваемости дебиторской задолженности Ом.ср:
Excel.Cells[12,2]:= GetOPUValue(Year1, Quarter1, 10, 1) /
(GetBalValue(Year1, Quarter1, 230, 2) + GetBalValue(Year1, Quarter1, 240, 2) +
(GetBalValue(Year1, Quarter1, 230, 1) + GetBalValue(Year1, Quarter1, 240, 1))/2);
Excel.Cells[12,3]:= GetOPUValue(Year2, Quarter2, 10, 1) /
(GetBalValue(Year2, Quarter2, 230, 2) + GetBalValue(Year2, Quarter2, 240, 2) +
(GetBalValue(Year2, Quarter2, 230, 1) + GetBalValue(Year2, Quarter2, 240, 1))/2);
Excel.Cells[12,4]:= GetOPUValue(Year3, Quarter3, 10, 1) /
(GetBalValue(Year3, Quarter3, 230, 2) + GetBalValue(Year3, Quarter3, 240, 2) +
(GetBalValue(Year3, Quarter3, 230, 1) + GetBalValue(Year3, Quarter3, 240, 1))/2);
//Коэффициент оборачиваемости кредиторской задолженности Ок/з:
Excel.Cells[14,2]:= GetOPUValue(Year1, Quarter1, 10, 1) /
(GetBalValue(Year1, Quarter1, 620, 2) + GetBalValue(Year1, Quarter1, 630, 2) +
(GetBalValue(Year1, Quarter1, 620, 1) + GetBalValue(Year1, Quarter1, 630, 1))/2);
Excel.Cells[14,3]:= GetOPUValue(Year2, Quarter2, 10, 1) /
(GetBalValue(Year2, Quarter2, 620, 2) + GetBalValue(Year2, Quarter2, 630, 2) +
(GetBalValue(Year2, Quarter2, 620, 1) + GetBalValue(Year2, Quarter2, 630, 1))/2);
Excel.Cells[14,4]:= GetOPUValue(Year3, Quarter3, 10, 1) /
(GetBalValue(Year3, Quarter3, 620, 2) + GetBalValue(Year3, Quarter3, 630, 2) +
(GetBalValue(Year3, Quarter3, 620, 1) + GetBalValue(Year3, Quarter3, 630, 1))/2);
//Коэффициент оборачиваемости собственного капитала (Оск):
Excel.Cells[16,2]:= GetOPUValue(Year1, Quarter1, 10, 1) /
(GetBalValue(Year1, Quarter1, 490, 2) + GetBalValue(Year1, Quarter1, 640, 2) +
GetBalValue(Year1, Quarter1, 650, 2) + (GetBalValue(Year1, Quarter1, 490, 1) +
GetBalValue(Year1, Quarter1, 640, 1) + GetBalValue(Year1, Quarter1, 650, 1))/2);
Excel.Cells[16,3]:= GetOPUValue(Year2, Quarter2, 10, 1) /
(GetBalValue(Year2, Quarter2, 230, 2) + GetBalValue(Year2, Quarter2, 240, 2) +
(GetBalValue(Year2, Quarter2, 230, 1) + GetBalValue(Year2, Quarter2, 240, 1))/2);
Excel.Cells[16,4]:= GetOPUValue(Year3, Quarter3, 10, 1) /
(GetBalValue(Year3, Quarter3, 230, 2) + GetBalValue(Year3, Quarter3, 240, 2) +
(GetBalValue(Year3, Quarter3, 230, 1) + GetBalValue(Year3, Quarter3, 240, 1))/2);
Excel.Visible:= True;
except
Excel.Quit;
end;
finally
Screen.Cursor:= crDefault;
end;
end;
//АКТИВ
//Иммобилизированные активы:
Excel.Cells[7,2]:= GetBalValue(Year1, Quarter1, 190, 2);
Excel.Cells[7,3]:= GetBalValue(Year2, Quarter2, 190, 2);
Excel.Cells[7,4]:= GetBalValue(Year3, Quarter3, 190, 2);
//Нематериальные активы:
Excel.Cells[8,2]:= GetBalValue(Year1, Quarter1, 110, 2);
Excel.Cells[8,3]:= GetBalValue(Year2, Quarter2, 110, 2);
Excel.Cells[8,4]:= GetBalValue(Year3, Quarter3, 110, 2);
//Основные средства:
Excel.Cells[9,2]:= GetBalValue(Year1, Quarter1, 120, 2);
Excel.Cells[9,3]:= GetBalValue(Year2, Quarter2, 120, 2);
Excel.Cells[9,4]:= GetBalValue(Year3, Quarter3, 120, 2);
//Незавершенное строительство:
Excel.Cells[10,2]:= GetBalValue(Year1, Quarter1, 130, 2);
Excel.Cells[10,3]:= GetBalValue(Year2, Quarter2, 130, 2);
Excel.Cells[10,4]:= GetBalValue(Year3, Quarter3, 130, 2);
//Долгосрочные финансовые вложения:
Excel.Cells[11,2]:= GetBalValue(Year1, Quarter1, 140, 2);
Excel.Cells[11,3]:= GetBalValue(Year2, Quarter2, 140, 2);
Excel.Cells[11,4]:= GetBalValue(Year3, Quarter3, 140, 2);
//Прочие внеоборотные активы:
Excel.Cells[12,2]:= GetBalValue(Year1, Quarter1, 150, 2);
Excel.Cells[12,3]:= GetBalValue(Year2, Quarter2, 150, 2);
Excel.Cells[12,4]:= GetBalValue(Year3, Quarter3, 150, 2);
//Мобильные средства (оборотные активы):
Excel.Cells[13,2]:= GetBalValue(Year1, Quarter1, 290, 2);
Excel.Cells[13,3]:= GetBalValue(Year2, Quarter2, 290, 2);
Excel.Cells[13,4]:= GetBalValue(Year3, Quarter3, 290, 2);
//Запасы и затраты:
Excel.Cells[14,2]:= GetBalValue(Year1, Quarter1, 210, 2) + GetBalValue(Year1, Quarter1, 220, 2);
Excel.Cells[14,3]:= GetBalValue(Year2, Quarter2, 210, 2) + GetBalValue(Year2, Quarter2, 220, 2);
Excel.Cells[14,4]:= GetBalValue(Year3, Quarter3, 210, 2) + GetBalValue(Year3, Quarter3, 220, 2);
//Дебиторская задолженность:
Excel.Cells[15,2]:= GetBalValue(Year1, Quarter1, 230, 2) + GetBalValue(Year1, Quarter1, 240, 2);
Excel.Cells[15,3]:= GetBalValue(Year2, Quarter2, 230, 2) + GetBalValue(Year2, Quarter2, 240, 2);
Excel.Cells[15,4]:= GetBalValue(Year3, Quarter3, 230, 2) + GetBalValue(Year3, Quarter3, 240, 2);
//Краткосрочные финансовые вложения:
Excel.Cells[16,2]:= GetBalValue(Year1, Quarter1, 250, 2);
Excel.Cells[16,3]:= GetBalValue(Year2, Quarter2, 250, 2);
Excel.Cells[16,4]:= GetBalValue(Year3, Quarter3, 250, 2);
//Денежные средства:
Excel.Cells[17,2]:= GetBalValue(Year1, Quarter1, 260, 2);
Excel.Cells[17,3]:= GetBalValue(Year2, Quarter2, 260, 2);
Excel.Cells[17,4]:= GetBalValue(Year3, Quarter3, 260, 2);
//Прочие оборотные активы:
Excel.Cells[18,2]:= GetBalValue(Year1, Quarter1, 270, 2);
Excel.Cells[18,3]:= GetBalValue(Year2, Quarter2, 270, 2);
Excel.Cells[18,4]:= GetBalValue(Year3, Quarter3, 270, 2);
//Баланс:
Excel.Cells[19,2]:= GetBalValue(Year1, Quarter1, 300, 2);
Excel.Cells[19,3]:= GetBalValue(Year2, Quarter2, 300, 2);
Excel.Cells[19,4]:= GetBalValue(Year3, Quarter3, 300, 2);
//ПАССИВ
//Собственный капитал:
Excel.Cells[21,2]:= GetBalValue(Year1, Quarter1, 490, 2) + GetBalValue(Year1, Quarter1, 640, 2) +
GetBalValue(Year1, Quarter1, 650, 2);
Excel.Cells[21,3]:= GetBalValue(Year2, Quarter2, 490, 2) + GetBalValue(Year2, Quarter2, 640, 2) +
GetBalValue(Year2, Quarter2, 650, 2);
Excel.Cells[21,4]:= GetBalValue(Year3, Quarter3, 490, 2) + GetBalValue(Year3, Quarter3, 640, 2) +
GetBalValue(Year3, Quarter3, 650, 2);
//Уставный капитал:
Excel.Cells[22,2]:= GetBalValue(Year1, Quarter1, 410, 2);
Excel.Cells[22,3]:= GetBalValue(Year2, Quarter2, 410, 2);
Excel.Cells[22,4]:= GetBalValue(Year3, Quarter3, 410, 2);
//Добавочный капитал:
Excel.Cells[23,2]:= GetBalValue(Year1, Quarter1, 420, 2);
Excel.Cells[23,3]:= GetBalValue(Year2, Quarter2, 420, 2);
Excel.Cells[23,4]:= GetBalValue(Year3, Quarter3, 420, 2);
//Резервный капитал:
Excel.Cells[24,2]:= GetBalValue(Year1, Quarter1, 430, 2);
Excel.Cells[24,3]:= GetBalValue(Year2, Quarter2, 430, 2);
Excel.Cells[24,4]:= GetBalValue(Year3, Quarter3, 430, 2);
//Нераспределённая прибыль:
Excel.Cells[25,2]:= GetBalValue(Year1, Quarter1, 470, 2);
Excel.Cells[25,3]:= GetBalValue(Year2, Quarter2, 470, 2);
Excel.Cells[25,4]:= GetBalValue(Year3, Quarter3, 470, 2);
//Целевое финансирование:
Excel.Cells[26,2]:= GetBalValue(Year1, Quarter1, 640, 2) + GetBalValue(Year1, Quarter1, 650, 2);
Excel.Cells[26,3]:= GetBalValue(Year2, Quarter2, 640, 2) + GetBalValue(Year2, Quarter2, 650, 2);
Excel.Cells[26,4]:= GetBalValue(Year3, Quarter3, 640, 2) + GetBalValue(Year3, Quarter3, 650, 2);
//Заёмный капитал:
Excel.Cells[27,2]:= GetBalValue(Year1, Quarter1, 590, 2) + GetBalValue(Year1, Quarter1, 690, 2) -
GetBalValue(Year1, Quarter1, 640, 2) - GetBalValue(Year1, Quarter1, 650, 2);
Excel.Cells[27,3]:= GetBalValue(Year2, Quarter2, 590, 2) + GetBalValue(Year2, Quarter2, 690, 2) -
GetBalValue(Year2, Quarter2, 640, 2) - GetBalValue(Year2, Quarter2, 650, 2);
Excel.Cells[27,4]:= GetBalValue(Year3, Quarter3, 590, 2) + GetBalValue(Year3, Quarter3, 690, 2) -
GetBalValue(Year3, Quarter3, 640, 2) - GetBalValue(Year3, Quarter3, 650, 2);
//Долгосрочные обязательства:
Excel.Cells[28,2]:= GetBalValue(Year1, Quarter1, 590, 2);
Excel.Cells[28,3]:= GetBalValue(Year2, Quarter2, 590, 2);
Excel.Cells[28,4]:= GetBalValue(Year3, Quarter3, 590, 2);
//Краткосрочные кредиты и займы:
Excel.Cells[29,2]:= GetBalValue(Year1, Quarter1, 610, 2);
Excel.Cells[29,3]:= GetBalValue(Year2, Quarter2, 610, 2);
Excel.Cells[29,4]:= GetBalValue(Year3, Quarter3, 610, 2);
//Кредиторская задолженность:
Excel.Cells[30,2]:= GetBalValue(Year1, Quarter1, 620, 2) + GetBalValue(Year1, Quarter1, 630, 2);
Excel.Cells[30,3]:= GetBalValue(Year2, Quarter2, 620, 2) + GetBalValue(Year2, Quarter2, 630, 2);
Excel.Cells[30,4]:= GetBalValue(Year3, Quarter3, 620, 2) + GetBalValue(Year3, Quarter3, 630, 2);
//Прочие:
Excel.Cells[31,2]:= GetBalValue(Year1, Quarter1, 660, 2);
Excel.Cells[31,3]:= GetBalValue(Year2, Quarter2, 660, 2);
Excel.Cells[31,4]:= GetBalValue(Year3, Quarter3, 660, 2);
//Баланс:
Excel.Cells[32,2]:= GetBalValue(Year1, Quarter1, 700, 2);
Excel.Cells[32,3]:= GetBalValue(Year2, Quarter2, 700, 2);
Excel.Cells[32,4]:= GetBalValue(Year3, Quarter3, 700, 2);
Excel.Visible:= True;
except
Excel.Quit;
end;
finally
Screen.Cursor:= crDefault;
end;
end;
//Формирование таблицы "Анализ прибыли (убытка) предприятия":
procedure Rep_Tables5(Year1, Quarter1, Year2, Quarter2, Year3, Quarter3: Integer);
var
Excel: Variant;
WorkbookName: string;
begin
//Шаблон хранится в папке Шаблоны:
WorkbookName:= GetCurrentDir + '\Шаблоны\' + '5 Анализ финансовых результатов.xlt';
Excel:= CreateOleObject('Excel.Application');
Screen.Cursor:= crHourGlass;
try
try
Excel.Workbooks.Open(WorkbookName);
Excel.Cells[1,1]:= string(Excel.Cells[1,1]) +
IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г., ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г., ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г. ';
//Шапка таблицы показателей:
Excel.Cells[3,2]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г.';
Excel.Cells[3,3]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[3,4]:= IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,5]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[4,6]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,7]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,8]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г.';
Excel.Cells[4,9]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[4,10]:= IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,11]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г.';
Excel.Cells[4,12]:= IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
Excel.Cells[4,13]:= IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) + ' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) + ' г.';
//Выручка (нетто) от продажи товаров (продукции, работ, услуг):
Excel.Cells[5,2]:= GetOPUValue(Year1, Quarter1, 10, 1);
Excel.Cells[5,3]:= GetOPUValue(Year2, Quarter2, 10, 1);
Excel.Cells[5,4]:= GetOPUValue(Year3, Quarter3, 10, 1);
//Себестоимость проданных товаров (продукции, работ, услуг):
Excel.Cells[6,2]:= GetOPUValue(Year1, Quarter1, 20, 1);
Excel.Cells[6,3]:= GetOPUValue(Year2, Quarter2, 20, 1);
Excel.Cells[6,4]:= GetOPUValue(Year3, Quarter3, 20, 1);
//Валовая прибыль:
Excel.Cells[7,2]:= GetOPUValue(Year1, Quarter1, 29, 1);
Excel.Cells[7,3]:= GetOPUValue(Year2, Quarter2, 29, 1);
Excel.Cells[7,4]:= GetOPUValue(Year3, Quarter3, 29, 1);
//Коммерческие расходы:
Excel.Cells[8,2]:= GetOPUValue(Year1, Quarter1, 30, 1);
Excel.Cells[8,3]:= GetOPUValue(Year2, Quarter2, 30, 1);
Excel.Cells[8,4]:= GetOPUValue(Year3, Quarter3, 30, 1);
//Управленческие расходы:
Excel.Cells[9,2]:= GetOPUValue(Year1, Quarter1, 40, 1);
Excel.Cells[9,3]:= GetOPUValue(Year2, Quarter2, 40, 1);
Excel.Cells[9,4]:= GetOPUValue(Year3, Quarter3, 40, 1);
//Прибыль (убыток) от продаж:
Excel.Cells[10,2]:= GetOPUValue(Year1, Quarter1, 50, 1);
Excel.Cells[10,3]:= GetOPUValue(Year2, Quarter2, 50, 1);
Excel.Cells[10,4]:= GetOPUValue(Year3, Quarter3, 50, 1);
//Проценты к получению:
Excel.Cells[11,2]:= GetOPUValue(Year1, Quarter1, 60, 1);
Excel.Cells[11,3]:= GetOPUValue(Year2, Quarter2, 60, 1);
Excel.Cells[11,4]:= GetOPUValue(Year3, Quarter3, 60, 1);
//Проценты к уплате:
Excel.Cells[12,2]:= GetOPUValue(Year1, Quarter1, 70, 1);
Excel.Cells[12,3]:= GetOPUValue(Year2, Quarter2, 70, 1);
Excel.Cells[12,4]:= GetOPUValue(Year3, Quarter3, 70, 1);
//Доходы от участия в других организациях:
Excel.Cells[13,2]:= GetOPUValue(Year1, Quarter1, 80, 1);
Excel.Cells[13,3]:= GetOPUValue(Year2, Quarter2, 80, 1);
Excel.Cells[13,4]:= GetOPUValue(Year3, Quarter3, 80, 1);
//Прочие доходы:
Excel.Cells[14,2]:= GetOPUValue(Year1, Quarter1, 90, 1);
Excel.Cells[14,3]:= GetOPUValue(Year2, Quarter2, 90, 1);
Excel.Cells[14,4]:= GetOPUValue(Year3, Quarter3, 90, 1);
//Прочие расходы:
Excel.Cells[15,2]:= GetOPUValue(Year1, Quarter1, 100, 1);
Excel.Cells[15,3]:= GetOPUValue(Year2, Quarter2, 100, 1);
Excel.Cells[15,4]:= GetOPUValue(Year3, Quarter3, 100, 1);
//Прибыль(убыток) до налогообложения:
Excel.Cells[16,2]:= GetOPUValue(Year1, Quarter1, 140, 1);
Excel.Cells[16,3]:= GetOPUValue(Year2, Quarter2, 140, 1);
Excel.Cells[16,4]:= GetOPUValue(Year3, Quarter3, 140, 1);
//Отложенные налоговые активы:
Excel.Cells[17,2]:= GetOPUValue(Year1, Quarter1, 141, 1);
Excel.Cells[17,3]:= GetOPUValue(Year2, Quarter2, 141, 1);
Excel.Cells[17,4]:= GetOPUValue(Year3, Quarter3, 141, 1);
//Отложенные налоговые обязательства:
Excel.Cells[18,2]:= GetOPUValue(Year1, Quarter1, 142, 1);
Excel.Cells[18,3]:= GetOPUValue(Year2, Quarter2, 142, 1);
Excel.Cells[18,4]:= GetOPUValue(Year3, Quarter3, 142, 1);
//Текущий налог на прибыль:
Excel.Cells[19,2]:= GetOPUValue(Year1, Quarter1, 150, 1);
Excel.Cells[19,3]:= GetOPUValue(Year2, Quarter2, 150, 1);
Excel.Cells[19,4]:= GetOPUValue(Year3, Quarter3, 150, 1);
//Возврат излишне уплаченных налогов прошлых периодов:
Excel.Cells[20,2]:= GetOPUValue(Year1, Quarter1, 180, 1);
Excel.Cells[20,3]:= GetOPUValue(Year2, Quarter2, 180, 1);
Excel.Cells[20,4]:= GetOPUValue(Year3, Quarter3, 180, 1);
//Чистая (нераспределенная) прибыль или убыток:
Excel.Cells[21,2]:= GetOPUValue(Year1, Quarter1, 190, 1);
Excel.Cells[21,3]:= GetOPUValue(Year2, Quarter2, 190, 1);
Excel.Cells[21,4]:= GetOPUValue(Year3, Quarter3, 190, 1);
Excel.Visible:= True;
except
Excel.Quit;
end;
finally
Screen.Cursor:= crDefault;
end;
end;
end.
Размещено на Allbest.ru
...Подобные документы
Методы решения проблем, возникающих на стадиях и этапах процесса принятия решений, их реализация в информационных системах поддержки принятия решений (СППР). Назначение СППР, история их эволюции и характеристика. Основные типы СППР, области их применения.
реферат [389,3 K], добавлен 22.11.2016Определение сущности, функций, задач и видов информационных технологий. Характеристика информационных технологий обработки данных, управления, автоматизированного офиса и поддержки принятия решений. Анализ современных видов информационного обслуживания.
презентация [866,0 K], добавлен 30.11.2014Разработка и внедрение программного модуля поддержки принятия управленческих решений для информационной системы медицинского предприятия ООО "Центр эндохирургических технологий". Эффективность применения модуля, полученные с его помощью результаты.
дипломная работа [1,9 M], добавлен 11.04.2013Классификация систем поддержки принятия решений. Сравнительный анализ методик для оценки рисков розничного кредитования. Структура системы поддержки принятия решений, формирование начальной базы знаний. Проектирование базы данных информационной системы.
дипломная работа [1,9 M], добавлен 10.07.2017Исследование автоматизированных информационных технологий, применяемых в управлении организацией. Формирование системы поддержки принятия решений в рекламном агентстве, анализ и оценка ее практической эффективности, направления и цели оптимизации.
курсовая работа [90,4 K], добавлен 03.10.2013Типы административных информационных систем: системы генерации отчетов, системы поддержки принятия решений, системы поддержки принятия стратегических решений. Сортировка и фильтрация списков в Microsoft Excel. Работа с базами данных в Microsoft Access.
контрольная работа [6,0 M], добавлен 19.11.2009Информационная технология обработки данных, автоматизированного офиса, поддержки принятия решений, экспертных систем и управления, примеры их внедрения. Биллинговые системы, условия повышения эффективности аудиоконференций, интерфейс пользователя.
курсовая работа [950,9 K], добавлен 14.02.2011Обслуживание двух встречных потоков информации. Структура информационных систем. Разработка структуры базы данных. Режимы работы с базами данных. Четыре основных компонента системы поддержки принятия решений. Выбор системы управления баз данных.
курсовая работа [772,0 K], добавлен 21.04.2016Организационно-правовые основы развития информационных технологий. Государственные программы информатизации общества. Система оказания государственных услуг в электронной форме. Система информационных технологий "Центр социальной поддержки населения".
дипломная работа [188,2 K], добавлен 15.06.2012Информационные технологии в управлении: комплекс методов переработки исходных данных в оперативную информацию механизма принятия решений с помощью аппаратных и программных средств с целью достижения оптимальных рыночных параметров объекта управления.
контрольная работа [24,1 K], добавлен 15.03.2013Анализ существующих решений системы поддержки принятия решений для корпоративной сети. Многоагентная система. Разработка концептуальной модели. Структура базы знаний. Разработка модели многоагентной системы на базе сетей Петри. Методика тестирования.
дипломная работа [5,1 M], добавлен 19.01.2017Концепция систем поддержки принятия решений. Диапазон применения Analytica 2.0. Программное обеспечение количественного моделирования. Графический интерфейс для разработки модели. Основные способы моделирования. Диаграмма влияния и дерево решений.
контрольная работа [1,1 M], добавлен 08.09.2011Классификация задач системы поддержки принятия решений, их типы и принципы реализации при помощи программы "Выбор". Обзор современных систем автоматизированного проектирования "Компас", "AutoCad", "SolidWorks", оценка преимуществ и недостатков программ.
курсовая работа [1,4 M], добавлен 22.07.2014Принцип работы и назначение обучаемых информационных систем, их классификация по различным критериям, разновидности и отличия. Характеристика систем поддержки принятия решений. Механизм и основные этапы проектирования информационной обучаемой системы.
реферат [23,9 K], добавлен 22.11.2009Основные черты современных информационных технологий. Цель применения информационных технологий - снижение трудоемкости использования информационных ресурсов. Использованные программные средства для разработки информационной системы для продажи книг.
курсовая работа [1,2 M], добавлен 27.06.2014Основные понятия и определения информационных технологий, их классификация, техническое и программное обеспечение. Роль глобальных информационных сетей и интернета. Сущность автоматизации процессов принятия решений, использование компьютерных технологий.
тест [34,6 K], добавлен 10.12.2011Рассмотрение понятия и истории возникновения систем поддержки принятия решения. Приспособленность информационных систем к задачам повседневной управленческой деятельности. Понятие термина "интеллектуальный анализ данных". Методика извлечения знаний.
реферат [79,8 K], добавлен 14.04.2015Экономические и социальные цели информатизации. Классификация задач по степени их формализованности и задания, решаемые разными группами работников. Этапы развития информационных технологий. Стратегии внедрения системы поддержки и принятия решений.
реферат [22,5 K], добавлен 02.12.2010Понятие информационных технологий, этапы их развития, составляющие и основные виды. Особенности информационных технологий обработки данных и экспертных систем. Методология использования информационной технологии. Преимущества компьютерных технологий.
курсовая работа [46,4 K], добавлен 16.09.2011Информационные системы и технологии, их особенности и классификация в организационном управлении. Локальная вычислительная сеть средних организаций. Основы теории экономического управления предприятием. Оперативный (операционный) уровень принятия решений.
реферат [35,6 K], добавлен 27.06.2014
