Пути повышения рентабельности производства Борисовского завода пластмассовых изделий
Дипломная работа - Экономика
Другие дипломы по предмету Экономика
24131348теплоэнергия120417745240- прочие материальные затраты92443306Затраты на оплату труда15506/
11,931195/
10,862253/
12,3Отчисления на социальные нужды5830/4,512027/4,124021/4,7Амортизация основных фондов5778/4,411469/4,038224/7,5Прочие затраты *7238/5,610449/3,619728/3,9Прирост (+), уменьшение (-) остатка незавершенного производства -451+1705+1717Внутризаводской оборот, не включаемый в объем продукции (работ, услуг)39153480Прирост (+), уменьшение (-) остатка по счету Расходы будущих периодов-31+74+372Полная себестоимость продукции126500284864505643 Справочно:Прочие затраты72381044919728 в том числеИзнос по нематериальным активам16Вознаграждение за изобретения и рационализаторские предложения13Платежи по страхованию384339Проценты по кредитам банков457Суточные подъемные164303789Налоги, включаемые в себестоимость продукции202630649693 В том числе:- платежи за землю214419- чрезвычайный налог14843006- экологический налог3143сбор на содержание гос.пожарной службы91--прочие налоги2062060Отчисления во внебюджетные фонды454266986058 В том числе- дорожный фонд14842317- содержание ДДУ11401879- инновационный фонд954979- фонд НИОКР431- инвестиционный фонд348- фонд занятости185269Представительские расходы105Оплата нематериальных услуг сторонних организаций4896871314Из них:- связи180657- пассажирского транспорта260--- банков34657- рекламных агентств15Другие затраты-6871357
ПРИЛОЖЕНИЕ 4
Текст программы главного модуля
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ToolWin, ComCtrls, Grids, ExtCtrls;
const
Sep = #11#12;
type
TForm1 = class(TForm)
SG: TStringGrid;
ToolBar1: TToolBar;
btnDel: TButton;
btnAdd: TButton;
procedure FormCreate(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure SGDrawCell(Sender: TObject; Col, Row: Integer; Rect: TRect;
State: TGridDrawState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnAddClick(Sender: TObject);
procedure SGDblClick(Sender: TObject);
private
public
Contr : TStrings;
Index : Integer;
Function Data(J,N : Integer):String;
end;
var
Form1: TForm1;
implementation
uses Contrakt;
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Contr := TStringList.Create;
Try
Contr.LoadFromFile(KON.DAT);
Except
End;
0ThenSG.RowCount:=Contr.Count+1ElseSG.RowCount:=2;"> If Contr.Count>0 Then SG.RowCount:=Contr.Count+1 Else SG.RowCount:=2;
0;"> btnDel.Enabled:=Contr.Count>0;
SG.Cells[0,0]:=№;
SG.Cells[1,0]:=Поставщик;
SG.Cells[2,0]:=Срок оплаты;
SG.Cells[3,0]:=Сумма к оплате;
SG.Cells[4,0]:=Погашено;
SG.Cells[5,0]:=Задолженность;
SG.ColWidths[0]:=24;
SG.ColWidths[1]:=233-GetSystemMetrics(SM_CXHSCROLL);
SG.ColWidths[2]:=70;
SG.ColWidths[3]:=85;
SG.ColWidths[4]:=85;
SG.ColWidths[5]:=85;
end;
Function TForm1.Data(J,N : Integer):String;
Var I,K : Integer;
Begin
Result:=Contr[N];
For I:=1 to J-1 do
Begin
K:=Pos(Sep,Result);
If K>0 Then Delete(Result,1,K+Length(Sep)-1);
End;
K:=Pos(Sep,Result);
If K>0 Then Delete(Result,K,Length(Result));
End;
procedure TForm1.SGDrawCell(Sender: TObject; Col, Row: Integer;
Rect: TRect; State: TGridDrawState);
Var S : String;
begin
If Row=0 Then
Begin
S:=SG.Cells[Col,0];
SG.Canvas.TextRect(Rect,Rect.Left+(SG.ColWidths[Col]-SG.Canvas.TextWidth(S)) div 2,Rect.Top+2,S);
End
0Then"> Else If Contr.Count>0 Then
Begin
Case Col of
0 : S:=IntToStr(Row);
1 : S:=Data(2,Row-1);
2 : S:=Data(1,Row-1);
3 : S:=Data(3,Row-1);
4 : S:=Data(4,Row-1);
5 : S:=Data(5,Row-1);
End;
If StrToFloat(Data(5,Row-1))<=0 Then SG.Canvas.Brush.Color:=cl3DLight;
Case Col of
3,4,5 : SG.Canvas.TextRect(Rect,Rect.Left+SG.ColWidths[Col]-SG.Canvas.TextWidth(S)-4,Rect.Top+2,S);
1 : SG.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top+2,S);
0,2 : SG.Canvas.TextRect(Rect,Rect.Left+(SG.ColWidths[Col]-SG.Canvas.TextWidth(S)) div 2,Rect.Top+2,S);
End;
End;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Contr.SaveToFile(KON.DAT);
end;
procedure TForm1.btnAddClick(Sender: TObject);
begin
Index:=-1;
frmContract:=TfrmContract.Create(self);
frmContract.ShowModal;
0;"> btnDel.Enabled:=Contr.Count>0;
end;
procedure TForm1.btnDelClick(Sender: TObject);
begin
If MessageDlg(Удалить данные?,mtConfirmation,[mbYes,mbNo],0)=mrYes Then
Begin
Contr.Delete(SG.Row-1);
2ThenSG.RowCount:=SG.RowCount-1ElseSG.Repaint;"> If SG.RowCount>2 Then SG.RowCount:=SG.RowCount-1 Else SG.Repaint;
End;
0;"> btnDel.Enabled:=Contr.Count>0;
end;
procedure TForm1.SGDblClick(Sender: TObject);
begin
Index:=SG.Row-1;
frmContract:=TfrmContract.Create(self);
frmContract.edtPost.Text:=Data(2,Index);
frmContract.edtDate.Text:=Data(1,Index);
frmContract.edtSum.Text:=Data(3,Index);
frmContract.edtPog.Text:=Data(4,Index);
frmContract.ShowModal;
end;
end.
ПРИЛОЖЕНИЕ 5
Текст программы модуля Контракт.
unit Contrakt;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TfrmContract = class(TForm)
edtPost: TEdit;
Label1: TLabel;
btnOk: TBitBtn;
BitBtn2: TBitBtn;
Label2: TLabel;
Label3: TLabel;
edtDate: TEdit;
edtSum: TEdit;
edtPog: TEdit;
Label4: TLabel;
procedure edtSumChange(Sender: TObject);
procedure edtPostChange(Sender: TObject);
procedure edtDateChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnOkClick(Sender: TObject);
private
public
end;
var
frmContract: TfrmContract;
implementation
{$R *.DFM}
Uses Main;
procedure TfrmContract.edtSumChange(Sender: TObject);
begin
Try
StrToFloat(TEdit(Sender).Text);
TEdit(Sender).Font.Color:=clWindowText;
Except
TEdit(Sender).Font.Color:=clRed;
End;
btnOk.Enabled:=(edtSum.Font.Color=clWindowText)and(edtPost.Font.Color=clWindowText)and(edtDate.Font.Color=clWindowText);
end;
procedure TfrmContract.edtPostChange(Sender: TObject);
begin
ThenedtPost.Font.Color:=clWindowText"> If edtPost.Text<> Then edtPost.Font.Color:=clWindowText
Else edtPost.Font.Color:=clRed;
btnOk.Enabled:=(edtSum.Font.Color=clWindowText)and(edtPost.Font.Color=clWindowText)and(edtDate.Font.Color=clWindowText);
end;
procedure TfrmContract.edtDateChange(Sender: TObject);
begin
Try
StrToDate(edtDate.Text);
edtDate.Font.Color:=clWindowText;
Except
edtDate.Font.Color:=clRed;
End;
btnOk.Enabled:=(edtSum.Font.Color=clWindowText)and(edtPost.Font.Color=clWindowText)and(edtDate.Font.Color=clWindowText);
end;
procedure TfrmContract.FormCreate(Sender: TObject);
begin
edtDate.Te