Диплом: Автоматизация учета кредитных операций ломбарда ООО "Золотой век"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
129
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) +
130
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);
131
//Вывод данных на вторую закладку шаблона (показатели деловой
активности):
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));
//Коэффициент оборачиваемости материальных оборотных средств Ом.ср:
132
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;
133
end;
finally
Screen.Cursor := crDefault;
end;
end;
//Формирование таблицы "Сводный сравнительный аналитический баланс
предприятия":
procedure Rep_Tables4(Year1, Quarter1, Year2, Quarter2, Year3, Quarter3:
Integer);
var
Excel: Variant;
WorkbookName: string;
begin
//Шаблон хранится в папке Шаблоны:
WorkbookName := GetCurrentDir + '\Шаблоны\' + '4 Сводный сравнительный
аналитический баланс предприятия.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[4,2] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г.';
Excel.Cells[4,3] := IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г.';
Excel.Cells[4,4] := IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[4,5] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г.';
Excel.Cells[4,6] := IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г.';
Excel.Cells[4,7] := IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[5,8] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г.';
Excel.Cells[5,9] := IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[5,10] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[5,11] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г.';
Excel.Cells[5,12] := IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[5,13] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
134
Excel.Cells[5,14] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г.';
Excel.Cells[5,15] := IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[5,16] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[5,17] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г.';
Excel.Cells[5,18] := IntToStr(Quarter2) + ' кв. ' + IntToStr(Year2) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
Excel.Cells[5,19] := IntToStr(Quarter1) + ' кв. ' + IntToStr(Year1) +
' г. от ' +
IntToStr(Quarter3) + ' кв. ' + IntToStr(Year3) +
' г.';
//АКТИВ
//Иммобилизированные активы:
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);
//Дебиторская задолженность:
135
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);
136
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) +
' г.';
137
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);
138
//Проценты к уплате:
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.

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)