Implementation 2 страница

if m = 1 then begin a:= 4; b:= 7; end;

if m = 2 then begin a:= 9; b:= 11; end;

if m = 3 then begin a:= 13; b:= 14; end;

if m = 4 then begin a:= 16; b:= 20; end;

if m = 5 then begin a:= 23; b:= 27; end;

if m = 6 then begin a:= 30; b:= 36; end;

if m = 7 then begin a:= 38; b:= 40; end;

if m = 8 then begin a:= 42; b:= 44; end;

if m = 9 then begin a:= 47; b:= 48; end;

if m = 10 then begin a:= 50; b:= 51; end;

if m = 11 then begin a:= 55; b:= 57; end;

if m = 12 then begin a:= 60; b:= 61; end;

if m = 13 then begin a:= 63; b:= 72; end;

if m = 14 then begin a:= 83; b:= 84; end;

if m = 15 then begin a:= 86; b:= 87; end;

if m = 16 then begin a:= 89; b:= 93; end;

if m = 17 then begin a:= 95; b:= 95; end;

for j:= a to b do // строчки

Begin

// чтобы не была ячейка пустой

if (StringGrid1.Cells[i, j] = '') then

Begin

ShowMessage('Обнаружена пустая ячейка');

StringGrid1.TopRow:= j; // перемещаем Scrollbar автоматически на строчку с этой ячейкой

StringGrid1.Col:= i; // столбец

StringGrid1.Row:= j; // строка

StringGrid1.SetFocus; // устанавливаем фокус в эту ячейку

prov:= False; // не разрешаем выполнять алгоритм

Exit; // выходим из процедуры проверки

end;

// чтобы в ячеке было число, а не что-то другое

if not Trystrtofloat(StringGrid1.Cells[i, j], ch) then

Begin

ShowMessage('Обнаружена некорректно заполненная ячейка');

StringGrid1.TopRow:= j; // перемещаем Scrollbar автоматически на строчку с этой ячейкой

StringGrid1.Col:= i; // столбец

StringGrid1.Row:= j; // строка

StringGrid1.SetFocus; // устанавливаем фокус в эту ячейку

prov:= False; // не разрешаем выполнять алгоритм

Exit; // выходим из процедуры проверки

end;

end;

end;

end;

{==== ПРОВЕРКА УСЛОВИЯ АКТИВ = ПАССИВУ ====}

{____ 1) Читаем все заполняемые пользователем переменные из таблицы: ____}

for i:= 1 to 3 do // всего 3 периода

Begin

k:= 1; g:= 4; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 5; g:= 9; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 8; g:= 13; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 10; g:= 16; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 15; g:= 23; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 20; g:= 30; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 27; g:= 38; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 30; g:= 42; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 33; g:= 47; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 35; g:= 50; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 37; g:= 55; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 40; g:= 60; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 42; g:= 63; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

end;

{____ 2) Считаем значения, которые опираются на выше рассчитанные переменные: ____}

for i:= 1 to 3 do

Begin

// АКТИВ

{1} z[v1_1, i]:= v[ 1, i] + v[ 2, i] + v[ 3, i] + v[ 4, i];

z[v1_2, i]:= v[ 5, i] + v[ 6, i] + v[ 7, i];

z[v1_3, i]:= v[ 8, i] + v[ 9, i];

z[v1_4, i]:= v[10, i] + v[11, i] + v[12, i] + v[13, i] + v[14, i];

z[v1, i]:= z[v1_1, i] + z[v1_2, i] + z[v1_3, i] + z[v1_4, i];

{2} z[v2_3_1, i]:= v[20, i] + v[21, i];

z[v2_1, i]:= v[15, i] + v[16, i] + v[17, i] + v[18, i];

z[v2_3, i]:= z[v2_3_1, i] + v[22, i] + v[23, i] + v[24, i] + v[25, i] + v[26, i];

z[v2_4, i]:= v[27, i] + v[28, i] + v[29, i];

z[v2_5, i]:= v[30, i] + v[31, i] + v[32, i];

z[v2, i]:= z[v2_1, i] + v[19, i] + z[v2_3, i] + z[v2_4, i] + z[v2_5, i];

{I} z[vI, i]:= z[v1, i] + z[v2, i];

// ПАССИВ

{4} z[v4_1, i]:= v[37, i] + v[38, i];

z[v4, i]:= z[v4_1, i] + v[39, i];

{5} z[v5_1, i]:= v[40, i] + v[41, i];

z[v5_2, i]:= v[42, i] + v[43, i] + v[44, i] + v[45, i] + v[46, i] + v[47, i] +

v[48, i] + v[49, i];

z[v5, i]:= z[v5_1, i] + z[v5_2, i] + v[50, i] + v[51, i];

{3} z[v3_3, i]:= v[35, i] + v[36, i];

z[v3_4, i]:= z[vI, i] - v[33, i] - v[34, i] - z[v3_3, i] - z[v4, i] - z[v5, i];

z[v3, i]:= v[33, i] + v[34, i] + z[v3_3, i] + z[v3_4, i];

{II}z[vII, i]:= z[v3, i] + z[v4, i] + z[v5, i];

end;

// проверим выполнение условия: АКТИВ = ПАССИВУ

for i:= 1 to 3 do // всего 3 периода

Begin

if z[vI, i] <> z[vII, i] then

Begin

ShowMessage('Ошибка.' + #13#10 +

'Не выполняется условие ' + FloatToStr(i) + ' года:' + #13#10 +

'Актив не равен пассиву');

prov:= False; // не разрешаем выполнять алгоритм

Exit; // выходим из процедуры проверки

end;

end;

end;

{***** Форматирование #1 таблицы - Запрет на редактирование цветных полей в таблице ****}

procedure TForm4.StringGrid1SelectCell(Sender: TObject; ACol,

ARow: Integer; var CanSelect: Boolean);

Begin

if (ARow = 1) or (ARow = 2) or (ARow = 3) or (ARow = 8) or (ARow = 12) or

(ARow = 15) or (ARow = 21) or (ARow = 22) or (ARow = 28) or (ARow = 29) or

(ARow = 37) or (ARow = 41) or (ARow = 45) or (ARow = 46) or (ARow = 49) or

(ARow = 52) or (ARow = 53) or (ARow = 54) or (ARow = 58) or (ARow = 59) or

(ARow = 62) or (ARow = 73) or (ARow = 81) or (ARow = 85) or (ARow = 88) or

(ARow = 94) or (ARow = 96) then

Begin

CanSelect:= False;

StringGrid1.Options:= StringGrid1.Options - [goEditing];

End

Else

Begin

CanSelect:= True;

StringGrid1.Options:= StringGrid1.Options + [goEditing];

end;

end;

{**** Форматирование #2 таблицы *****}

procedure TForm4.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

Rect: TRect; State: TGridDrawState);

Var

s: String;

Flag: Cardinal;

H: Integer;

i: Byte;

Begin

{____ Выравнивание ячеек ____}

StringGrid1.Canvas.FillRect(Rect); //StringGrid1

s:= StringGrid1.Cells[ACol, ARow];

Flag:= DT_LEFT;

Flag:= Flag or DT_WORDBREAK;

Inc(Rect.Left, 0);

Dec(Rect.Right, 0);

H:= DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, Flag);

if H > StringGrid1.RowHeights[ARow] then

StringGrid1.RowHeights[ARow]:= H; // увеличиваем

{____ Цветные строчки ____}

// АКТИВЫ

// те, которые с 0го по 3 столбик

for i:= 0 to 3 do

Begin

if (ACol = i) and (ARow = 1) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(0, 205, 0); // тёмно-зелёный

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

if (ACol = i) and ((ARow = 3) or (ARow = 8) or (ARow = 12) or (ARow = 15) or

(ARow = 22) or (ARow = 28) or (ARow = 37) or (ARow = 41)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(154, 255, 154); // салатовый

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

if (ACol = i) and ((ARow = 2) or (ARow = 21)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(78, 238, 148); // зелёный

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

if (ACol = i) and (ARow = 29) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(193, 255, 193); // светло-салатовый

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

end;

// те, которые в 0ом столбике

if (ACol = 0) and (ARow = 27) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(154, 255, 154); // салатовый

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

// те, которые в 0ом столбике

if (ACol = 0) and ((ARow = 32) or (ARow = 33) or (ARow = 34) or

(ARow = 35) or (ARow = 36)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(193, 255, 193); // светло-салатовый

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

// ПАССИВЫ

// те, которые с 0го по 3 столбик

for i:= 0 to 3 do

Begin

if (ACol = i) and (ARow = 45) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(67, 110, 238); // тёмно-синий

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

if (ACol = i) and ((ARow = 49) or (ARow = 52) or (ARow = 54) or (ARow = 59) or

(ARow = 62)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(135, 206, 235); // голубой

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

if (ACol = i) and ((ARow = 46) or (ARow = 53) or (ARow = 58)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(30, 144, 255); // синий

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

end;

// те, которые в 0ом столбике

if (ACol = 0) and ((ARow = 47) or (ARow = 48) or (ARow = 57) or (ARow = 71) or (ARow = 72)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(135, 206, 235); // голубой

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

// Раскрытие дополнительной информации для выполнения полного анализа

// и данные о доходах и расходах предприятия

// те, которые с 0го по 3 столбик

for i:= 0 to 3 do

Begin

if (ACol = i) and ((ARow = 73) or (ARow = 81)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(238, 44, 44); // тёмно-красный

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

if (ACol = i) and ((ARow = 85) or (ARow = 88) or (ARow = 94) or (ARow = 96)) then

Begin

StringGrid1.Canvas.Brush.Color:= rgb(250, 128, 114); // розовый

StringGrid1.Canvas.FillRect(Rect);

StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);

end;

end;

end;

{**** Запрет ввода символов Едита ****}

procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);

Begin

// ввод только чисел, <Back Space>, <Enter>

if not (Key in ['0'..'9', #8, #13]) then

Key:= #0; // символ не отображать, если не соответствует условию

end;

{**** Запрет ввода символов таблицы *****}

procedure TForm4.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin // ввод только чисел, <Back Space>, <Enter>, разделителя

if not (Key in ['0'..'9', #8, #13, DecimalSeparator]) then

Key:= #0; // символ не отображать, если не соответствует условию

end;

{**** Закрытие формы ****}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

Begin

Form1.Close;

end;

{**** Шапка таблицы *****}

procedure TForm4.Shapka;

Var

i: Byte;

Begin

// Шапка таблицы

StringGrid1.Cells[0, 0]:= ' Статьи';

StringGrid1.Cells[1, 0]:= ' На конец отчётного периода';

StringGrid1.Cells[2, 0]:= ' На начало отчётного периода';

StringGrid1.Cells[3, 0]:= ' На начало аналогичного предыдущего периода';

StringGrid1.Cells[4, 0]:= ' Комментарий';

i:= 1; StringGrid1.Cells[0, i]:= ' I АКТИВ' + #13#10;

inc(i); StringGrid1.Cells[0, i]:= ' 1 Внеоборотные активы:';

inc(i); StringGrid1.Cells[0, i]:= ' 1.1 Нематериальные активы:';

inc(i); StringGrid1.Cells[0, i]:= ' права на объекты интеллектуальной (промышленной) собственности';

inc(i); StringGrid1.Cells[0, i]:= ' патенты, лицензии, торговые знаки, знаки обслуживания, иные аналогичные права и активы';

inc(i); StringGrid1.Cells[0, i]:= ' организационные расходы';

inc(i); StringGrid1.Cells[0, i]:= ' деловая репутация организации';

inc(i); StringGrid1.Cells[0, i]:= ' 1.2 Основные средства:';

inc(i); StringGrid1.Cells[0, i]:= ' земельные участки и объекты природопользования';

inc(i); StringGrid1.Cells[0, i]:= ' здания, машины, оборудование и другие основные средства';

inc(i); StringGrid1.Cells[0, i]:= ' незавершенное строительство';

inc(i); StringGrid1.Cells[0, i]:= ' 1.3 Доходные вложения в материальные ценности:';

inc(i); StringGrid1.Cells[0, i]:= ' имущество для передачи в лизинг';

inc(i); StringGrid1.Cells[0, i]:= ' имущество, предоставляемое по договору проката';

inc(i); StringGrid1.Cells[0, i]:= ' 1.4 Финансовые вложения:';

inc(i); StringGrid1.Cells[0, i]:= ' инвестиции в дочерние общества';

inc(i); StringGrid1.Cells[0, i]:= ' инвестиции в зависимые общества';

inc(i); StringGrid1.Cells[0, i]:= ' инвестиции в другие организации';

inc(i); StringGrid1.Cells[0, i]:= ' займы, предоставленные организациям на срок более 12 месяцев';

inc(i); StringGrid1.Cells[0, i]:= ' прочие финансовые вложения';

inc(i); StringGrid1.Cells[0, i]:= ' 2. Оборотные активы:';

inc(i); StringGrid1.Cells[0, i]:= ' 2.1 Запасы:';

inc(i); StringGrid1.Cells[0, i]:= ' сырье, материалы и другие аналогичные ценности';

inc(i); StringGrid1.Cells[0, i]:= ' затраты в незавершенном производстве (издержках обращения)';

inc(i); StringGrid1.Cells[0, i]:= ' готовая продукция, товары для перепродажи и товары отгруженные';

inc(i); StringGrid1.Cells[0, i]:= ' расходы будущих периодов';

inc(i); StringGrid1.Cells[0, i]:= ' 2.2 Налог на добавленную стоимость по приобретённым ценностям';

inc(i); StringGrid1.Cells[0, i]:= ' 2.3 Дебиторская задолженность';

inc(i); StringGrid1.Cells[0, i]:= ' 2.3.1 Покупатели и заказчики:';

inc(i); StringGrid1.Cells[0, i]:= ' покупатели и заказчики, поступления от которых ожидаются в течении 12 месяцев';

inc(i); StringGrid1.Cells[0, i]:= ' покупатели и заказчики, поступления от которых ожидаются более, чем через 12 месяцев';

inc(i); StringGrid1.Cells[0, i]:= ' 2.3.2 Векселя к получению';

inc(i); StringGrid1.Cells[0, i]:= ' 2.3.3 Задолженность дочерних и зависимых обществ';

inc(i); StringGrid1.Cells[0, i]:= ' 2.3.4 Задолженность участников (учредителей) по вкладам в уставный капитал';

inc(i); StringGrid1.Cells[0, i]:= ' 2.3.5 Авансы выданные';

inc(i); StringGrid1.Cells[0, i]:= ' 2.3.6 Прочие дебиторы';

inc(i); StringGrid1.Cells[0, i]:= ' 2.4 Финансовые вложения:';

inc(i); StringGrid1.Cells[0, i]:= ' займы, предоставленные организациям на срок менее 12 месяцев';

inc(i); StringGrid1.Cells[0, i]:= ' собственные акции, выкупленные у акционеров';

inc(i); StringGrid1.Cells[0, i]:= ' прочие финансовые вложения';

inc(i); StringGrid1.Cells[0, i]:= ' 2.5 Денежные средства:';

inc(i); StringGrid1.Cells[0, i]:= ' расчетные счета';

inc(i); StringGrid1.Cells[0, i]:= ' валютные счета';

inc(i); StringGrid1.Cells[0, i]:= ' прочие денежные средства';

inc(i); StringGrid1.Cells[0, i]:= ' II ПАССИВ' + #13#10;

inc(i); StringGrid1.Cells[0, i]:= ' 3. Капитал и резервы:';

inc(i); StringGrid1.Cells[0, i]:= ' 3.1 Уставный капитал';

inc(i); StringGrid1.Cells[0, i]:= ' 3.2 Добавочный капитал';

inc(i); StringGrid1.Cells[0, i]:= ' 3.3 Резервный капитал:';

inc(i); StringGrid1.Cells[0, i]:= ' резервы, образованные в соответствии с законодательством';

inc(i); StringGrid1.Cells[0, i]:= ' резервы, образованные в соответствии с учредительными документами';

inc(i); StringGrid1.Cells[0, i]:= ' 3.4 Нераспределённая прибыль';

inc(i); StringGrid1.Cells[0, i]:= ' 4. Долгосрочные обязательства:';

inc(i); StringGrid1.Cells[0, i]:= ' 4.1 Заёмные средства:';

inc(i); StringGrid1.Cells[0, i]:= ' кредиты, подлежащие погашению более чем через 12 месяцев после отчетной даты';

inc(i); StringGrid1.Cells[0, i]:= ' займы, подлежащие погашению более чем через 12 месяцев после отчетной даты';

inc(i); StringGrid1.Cells[0, i]:= ' 4.2 Прочие обязательства';

inc(i); StringGrid1.Cells[0, i]:= ' 5. Краткосрочные обязательства:';

inc(i); StringGrid1.Cells[0, i]:= ' 5.1 Заёмные средства:';

inc(i); StringGrid1.Cells[0, i]:= ' кредиты, подлежащие погашению в течение 12 месяцев после отчетной даты';

inc(i); StringGrid1.Cells[0, i]:= ' займы, подлежащие погашению в течение 12 месяцев после отчетной даты';

inc(i); StringGrid1.Cells[0, i]:= ' 5.2 Кредиторская задолженность:';

inc(i); StringGrid1.Cells[0, i]:= ' поставщики и подрядчики';

inc(i); StringGrid1.Cells[0, i]:= ' векселя к уплате';

inc(i); StringGrid1.Cells[0, i]:= ' задолженность перед дочерними и зависимыми обществами';

inc(i); StringGrid1.Cells[0, i]:= ' задолженность перед персоналом организации';

inc(i); StringGrid1.Cells[0, i]:= ' задолженность перед бюджетом и государственными внебюджетными фондами';

inc(i); StringGrid1.Cells[0, i]:= ' задолженность участникам (учредителями) по выплате доходов';

inc(i); StringGrid1.Cells[0, i]:= ' авансы полученные';

inc(i); StringGrid1.Cells[0, i]:= ' прочие кредиторы';

inc(i); StringGrid1.Cells[0, i]:= ' 5.3 Доходы будущих периодов';

inc(i); StringGrid1.Cells[0, i]:= ' 5.4 Резервы предстоящих расходов и платежей';

inc(i); StringGrid1.Cells[0, i]:= ' 6 Раскрытие дополнительной информации для выполнения полного анализа:';

inc(i); StringGrid1.Cells[0, i]:= ' капитальные затраты на арендуемые основные средства';

inc(i); StringGrid1.Cells[0, i]:= ' незавершенные капитальные затраты на арендуемые основные средства';

inc(i); StringGrid1.Cells[0, i]:= ' списанная в убыток сумма дебиторской задолженности';

inc(i); StringGrid1.Cells[0, i]:= ' сумма выданных гарантий и поручительств';

inc(i); StringGrid1.Cells[0, i]:= ' величина резерва по сомнительным долгам';

inc(i); StringGrid1.Cells[0, i]:= ' величина просроченной кредиторской задолженности';

inc(i); StringGrid1.Cells[0, i]:= ' численность персонала предприятия';

inc(i); StringGrid1.Cells[0, i]:= ' 7. Раскрытие информации о доходах, расходах и прибыли предприятия:';

inc(i); StringGrid1.Cells[0, i]:= ' выручка нетто от реализации товаров, выполнения работ, оказания услуг без вычетов НДС и акцизов';

inc(i); StringGrid1.Cells[0, i]:= ' выручка от продажи товаров, продукции, работ, услуг за вычетом налога на добавленную стоимость';

inc(i); StringGrid1.Cells[0, i]:= ' себестоимость проданных товаров, продукции, работ, услуг (кроме коммерческих и управленческих расходов)';

inc(i); StringGrid1.Cells[0, i]:= ' 7.1 Валовая прибыль';

inc(i); StringGrid1.Cells[0, i]:= ' коммерческие расходы';

inc(i); StringGrid1.Cells[0, i]:= ' управленческие расходы';

inc(i); StringGrid1.Cells[0, i]:= ' 7.2 Прибыль/убыток от продаж';

inc(i); StringGrid1.Cells[0, i]:= ' проценты к получению';

inc(i); StringGrid1.Cells[0, i]:= ' проценты к уплате';

inc(i); StringGrid1.Cells[0, i]:= ' доходы от участия в других организациях';

inc(i); StringGrid1.Cells[0, i]:= ' прочие доходы';

inc(i); StringGrid1.Cells[0, i]:= ' прочие расходы';

inc(i); StringGrid1.Cells[0, i]:= ' 7.3 Прибыль/убыток до налогообложения';

inc(i); StringGrid1.Cells[0, i]:= ' налог на прибыль и иные аналогичные обязательные платежи';

inc(i); StringGrid1.Cells[0, i]:= ' 7.4 Прибыль/убыток от обычной деятельности';

end;

{**** Панель - Назад ****}

procedure TForm4.Action1Execute(Sender: TObject);

Begin

Form2.Show;

Form4.Hide;

end;

{**** Панель - Сохранить как... ****}

procedure TForm4.Action2Execute(Sender: TObject);

Var

f: TextFile;

i, j: Byte;

s: String;

Begin

if SaveDialog1.Execute then // выполняется диалог 'Сохранить как...'

Begin

AssignFile(f, SaveDialog1.FileName); // связывает логическое имя файла с физическим

Rewrite(f); // открыть файл для записи

Append(f);

for i:= 1 to 3 do // всего 3 периода

for j:= 1 to 96 do // всего 96 строчек

Begin

s:= StringGrid1.Cells[i, j]; // каждая строчка - значение очередной ячейки

Writeln(f, s); // записываем эти строчки

end;

CloseFile(f); // закрываем файл

end;

end;

{**** Панель - Открыть... ****}

procedure TForm4.Action3Execute(Sender: TObject);

Var

f: TextFile;

i, j: Byte;

s: String;

Begin

if OpenDialog1.Execute then // выполняется диалог 'Открыть...'

Begin

Дата добавления: 2015-10-13