Файл: Информационная система финансового анализа состояния преприятия.doc

Скачать файл
Заказать решение

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Проектирование информационных систем

Добавлен: 21.10.2018

Просмотров: 32457

Скачиваний: 10

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

СОДЕРЖАНИЕ

Содержание

ВВЕДЕНИЕ

Рисунок 21 – Схема базы данных

Заключение

Применение информационных систем способствует более эффективному решению задач управления на основе оперативного предоставления всей полноты информации, являющейся основой для принятия решений. Проектирование и построение информационной системы должны основываться на комплексном анализе предметной области. Существуют различные методики описания предметной области, среди которых мы выделили объектно-ориентированный подход к моделированию так как он обеспечивает наилучшую реализацию динамического поведения информационной системы.

Список использованной литературы

Приложение

Исходный текст программы

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.






25



Смотрите также файлы