Требования к техническому обеспечению представлены в Таблице 2.5.

Таблица 2.5

Требования к техническому обеспечению

1.4 Экономические параметры разработки и внедрения ЭИС

1.4.1 Планирование и контроль выполнения работ

В Таблице 2.6 приведён перечень работ, выполняемых на всех стадиях разработки ЭИС.

Таблица 2.6

Состав работ и стадии разработки АС

Планирование и контроль выполнения работ выполнены с помощью диаграммы Ганта (см. рис. 2.11).

Рисунок 2.11 - Диаграмма Ганта

Таким образом, общая трудоёмкость разработки ЭИС составляет 31 человеко-дней, а её продолжительность - 49 календарных дней.

1.4.2 Расчет себестоимости разработки и внедрения ЭИС

Расчет затрат на разработку необходим для обоснования экономической эффективности системы. Плановые затраты на разработку включают все расходы, связанные с ее выполнением, независимо от источника их финансирования. Определение затрат на разработку производится путем составления калькуляции плановой себестоимости. Она является основным документом, на основании которого осуществляется планирование и учет затрат на выполнение [5].

Чтобы оценить экономический эффект от внедрения системы, следует учесть косвенный и рассчитать прямой эффект, который характеризуется снижением трудовых затрат.

Сумма расходов на разработку и внедрение включает в себя следующие затраты:

? Заработная плата разработчиков (программиста, консультанта, руководителя);

? Стоимость расходных материалов;

? Стоимость лицензионного программного обеспечения, используемого при разработке;

? Стоимость одного рабочего места;

? Стоимость лицензионного программного обеспечения, которое необходимо приобрести для внедрения и успешного функционирования системы.

В стоимость разработки программного средства включаются следующие затраты:

В разработке данного проекта участвовал программист, консультант и руководитель. Заработная плата по разработчикам представлена в таблице 2.8.

Таблица 2.8

Заработная плата разработчиков ЭИС

Стоимость расходных материалов (Таблица 2.9).

Таблица 2.9

Стоимость расходных материалов

Стоимость лицензионного программного обеспечения, используемого при разработке (Таблица 2.10).

Таблица 2.10

Стоимость лицензионного программного обеспечения

На оснащение рабочего места необходимыми техническими средствами не потребуется дополнительных затрат, так как на предприятии уже имеется в наличии необходимое оборудование. К тому же, для внедрения и успешного функционирования системы не требуется приобретение дополнительного программного обеспечения. Система будет функционировать на основе программного обеспечения используемого при разработке. На рисунке 2.12 представлена диаграмма затрат, входящих в стоимость программного продукта.

Рисунок 2.12 - Затраты на разработку и внедрение ИС.

Рассчитаем общую сумму денежных средств, которую необходимо вложить в проект: рублей.

1.4.3 Обоснование целесообразности разработки и внедрения ЭИС

Разработанная информационная система автоматизирует функции логистов, кладовщиков и заведующих складом РЦ ЗАО «Дикси» и сокращает время на расчет сумм товарных чеков, а также автоматизирует формирование сопроводительной документации. Час работы логиста компании «Дикси» стоит 80 рублей (). Час работы кладовщика компании «Дикси» стоит 60 рублей (). Час работы заведующего складом компании «Дикси» стоит 110 рублей ().

Экономия во времени (), которая достигнута благодаря внедрению системы, рассчитывается по формуле:

 (2.5)

где, - время, необходимое на выполнение функций логиста до внедрения системы;

- время, необходимое на выполнение функций логиста после внедрения системы;

Суммарная экономия в рублях за год будет равна:

(2.6)

Расчеты потенциальной экономии времени логиста компании «Дикси» от внедрения системы представлены в таблице 2.13.

Таблица 2.13

Потенциальная экономия времени логиста от внедрения системы

Расчеты потенциальной экономии времени кладовщика компании «Дикси» от внедрения системы представлены в таблице 2.14.

Таблица 2.14

Потенциальная экономия времени кладовщика от внедрения системы

Расчеты потенциальной экономии времени заведующего складом компании «Дикси» от внедрения системы представлены в таблице 2.15.

Таблица 2.15

Потенциальная экономия времени кладовщика от внедрения системы

Таким образом затраты до внедрения системы составляли:

Затраты после внедрения системы:

Рассчитываем суммарную экономию в рублях за год:

1.4.4 Экономический эффект от внедрения ЭИС

В результате деления суммы расходов на разработку и внедрение системы на сумму экономии за год получим срок окупаемости проекта в месяцах:

1. Экономика и управление. Организационное обеспечение ИС. [Электронный ресурс]. - Электрон. текстовые данные. - Режим доступа: http://www.economica-upravlenie.ru/content/view/445/9/.

2. Диго С.М. Базы данных: проектирование и использование: Учебник - М.: «Финансы и статистика», 2005.

3. Вендров А.М. CASE-технологии. Современные методы и средства

4. проектирования информационных систем. // М.: «Финансы и статистика», 1998г.

5. Сибилёв В.Д. Проектирование баз данных: Учеб. пособие. -- Томск: Томский межвузовский центр дистанционного образования, 2007. -- 201 с.

6. Скрипкин К.Г. Экономическая эффективность информационных систем. М.: ДМК Пресс, 2002.

7. Система Microsoft SQL Server. [Электронный ресурс]. - Электрон. текстовые данные. - Режим доступа: http://www.intuit.ru/department/database/basedbw/8/basedbw_8.html.

8. Галисеев Г.В. Программирование в среде Delphi 7: самоучитель - М.: «Диалектика», 2003.

9. В. Понамарев. Базы данных в Delphi 7: Самоучитель - С.-Пб.: «Питер», 2003.

ПРИЛОЖЕНИЕ А. Листинг программного кода

информационная система товарный материальный

unit UnitMain;

interface

var

Rashod: TRashod;

implementation

{$R *.dfm}

uses UnitDM, UnitSKlient, UnitREPORT, UnitPost, UnitSotr, UnitGRUP,UnitTovar, UnitAvtor;

//Заказ поставщику

procedure TRashod.BitBtn1Click(Sender: TObject);

var

n: integer;

begin

DM.ADOQuery1.Close;

DM.ADOQuery1.Open;

if DM.ADOQuery1.RecordCount = 0 then

begin

ShowMessage('На данный момент нет невыполненных заказов с торговых точек');

Exit;

end;

DM.ADOQuery2.Close;

DM.ADOQuery2.Open;

With DM.ADOQuery2 do

begin

DM.ADOQuery2.First;

DM.ADOTable8.Last;

n:=DM.ADOTable8Номер.Value;

while not EOF do

begin

inc(n);

DM.ADOTable10.Insert;

DM.ADOTable10Номер.Value:=n;

DM.ADOTable10Дата.Value:=Date();

DM.ADOTable10Поставщик.Value:=DM.ADOQuery2Поставщик.Value;

DM.ADOTable10.Post;

DM.ADOQuery1.Close;

DM.ADOQuery1.Filter:='Поставщик='+IntToStr(DM.ADOQuery2Поставщик.Value);

DM.ADOQuery1.Filtered:=True;

DM.ADOQuery1.Open;

With DM.ADOQuery1 do

begin

DM.ADOQuery1.First;

while not EOF do

begin

DM.ADOTable11.Insert;

DM.ADOTable11Артикул.Value:=DM.ADOQuery1Артикул.Value;

DM.ADOTable11Общийзаказ.Value:=n;

DM.ADOTable11Количество.Value:=DM.ADOQuery1SumКоличество.Value;

DM.ADOTable11.Post;

DM.ADOQuery1.Next;

end;

end;

DM.ADOQuery2.Next;

end;

end;

DM.ADOTable8.Close;

DM.ADOTable8.Open;

N7.Click;

end;

//Поиск расходной накладной

procedure TRashod.BitBtnPoiskClick(Sender: TObject);

begin

BitBtnSbros.Enabled:=True;

if EditPoiskRN.Text = '' then

Begin

ShowMessage('Введите номер заказа/накладной!');

EditPoiskRN.SetFocus

End

Else

Begin

DM.ADOTable6.Close;

DM.ADOTable6.Filter:='Номер='+Chr(39)+EditPoiskRN.Text+Chr(39);

DM.ADOTable6.Filtered:=True;

DM.ADOTable6.Open;

End;

end;

//Поиск приходной накладной

procedure TRashod.BitBtnPoiskPNClick(Sender: TObject);

begin

BitBtnSbrosPN.Enabled:=True;

if EditPoiskPN.Text = '' then

Begin

ShowMessage('Введите номер прихода!');

EditPoiskPN.SetFocus

End

Else

Begin

DM.ADOTable8.Close;

DM.ADOTable8.Filter:='Номер='+Chr(39)+EditPoiskPN.Text+Chr(39);

DM.ADOTable8.Filtered:=True;

DM.ADOTable8.Open;

End;

end;

//Отмена поиска расходной накладной

procedure TRashod.BitBtnSbrosClick(Sender: TObject);

begin

EditPoiskRN.Clear;

DM.ADOTable6.Close;

DM.ADOTable6.Filtered:=False;

DM.ADOTable6.Open;

BitBtnSbros.Enabled:=False;

end;

//Отмена поиска приходной накладной

procedure TRashod.BitBtnSbrosPNClick(Sender: TObject);

begin

EditPoiskPN.Clear;

DM.ADOTable8.Close;

DM.ADOTable8.Filtered:=False;

DM.ADOTable8.Open;

BitBtnSbrosPN.Enabled:=False;

end;

//Определение марок товара выбранной группы

procedure TRashod.ComboBox1Change(Sender: TObject);

begin

If ComboBox1.Text = '[Все]' Then

Begin

DM.ADOTable8.Close;

DM.ADOTable8.Filtered:=False;

DM.ADOTable8.Open;

End

Else

Begin

If ComboBox1.Text = 'Выполненные' Then

Begin

DM.ADOTable8.Close;

DM.ADOTable8.Filter:='Статус <> Null';

DM.ADOTable8.Filtered:=True;

DM.ADOTable8.Open;

End;

If ComboBox1.Text = 'Невыполненные' Then

Begin

DM.ADOTable8.Close;

DM.ADOTable8.Filter:='Статус = Null';

DM.ADOTable8.Filtered:=True;

DM.ADOTable8.Open;

End;

End;

end;

//Определение марок товара выбранной группы

procedure TRashod.ComboBoxGRChange(Sender: TObject);

begin

If ComboBoxGR.Text = '[Все]' Then

Begin

DM.ADOTable6.Close;

DM.ADOTable6.Filtered:=False;

DM.ADOTable6.Open;

End

Else

Begin

If ComboBoxGR.Text = 'Выполненные' Then

Begin

DM.ADOTable6.Close;

DM.ADOTable6.Filter:='Статус <> Null';

DM.ADOTable6.Filtered:=True;

DM.ADOTable6.Open;

End;

If ComboBoxGR.Text = 'Невыполненные' Then

Begin

DM.ADOTable6.Close;

DM.ADOTable6.Filter:='Статус = Null';

DM.ADOTable6.Filtered:=True;

DM.ADOTable6.Open;

End;

End;

end;

//Активация формы

procedure TRashod.FormActivate(Sender: TObject);

begin

if flag <>1 then

begin

flag:=1;

Rashod.AlphaBlend:=True;

UnitAvtor.FAvtor.ShowModal;

end;

end;

//Отображение Отчетов

procedure TRashod.N10Click(Sender: TObject);

begin

UnitREPORT.FormREPORT.ShowModal;

end;

//Отображение РАСХОД

procedure TRashod.N11Click(Sender: TObject);

begin

PanelP.Visible:=False;

PanelR.Visible:=True;

TabSet1.TabIndex:=0;

end;

//Открыть справочник ПОСТАВЩИКИ

procedure TRashod.N12Click(Sender: TObject);

begin

UnitPost.FormPost.ShowModal;

end;

//Открыть справочник СОТРУДНИКИ

procedure TRashod.N13Click(Sender: TObject);

begin

UnitSotr.FormSotr.ShowModal;

end;

//Печать приходной накладной

procedure TRashod.N14Click(Sender: TObject);

var

Name, NameS: OleVariant;

Sum, SumM: single;

n, SL: integer;

S: string;

begin Name:=ExtractFilePath(Application.ExeName)+/Шаблоны/Приход.doc';

S:=DM.DataSource8.DataSet.FieldValues['Номер'];

NameS:=ExtractFilePath(Application.ExeName)+'/Документы/Приход № '+S+'.doc';

DM.WordApplication1.Connect;

Try

Application.Minimize;

DM.WordApplication1.Documents.Open(Name,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); DM.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument);

DM.WordDocument1.SaveAs(NameS); DM.WordDocument1.Tables.Item(2).Cell(2,2).Range.InsertBefore(S);

S:=DM.DataSource8.DataSet.FieldValues['Статус']; DM.WordDocument1.Tables.Item(2).Cell(2,3).Range.InsertBefore(S);

S:=DM.ADOTable8Поставщик2.Value; DM.WordDocument1.Tables.Item(3).Cell(3,2).Range.InsertBefore(S);

n:=1; Sum:=0; SumM:=0;

//Отбор продукции по накладной

With DM.ADOTable9 do

begin

First;

while not EOF do

begin DM.WordDocument1.Tables.Item(4).Cell(n+3,1).Range.InsertBefore(IntToStr(n));

S:=DM.ADOTable9Артикул2.Value; DM.WordDocument1.Tables.Item(4).Cell(N+3,2).Range.InsertBefore(S);

S:=DM.ADOTable9Группа.Value; DM.WordDocument1.Tables.Item(4).Cell(N+3,3).Range.InsertBefore(S);

S:=DM.ADOTable9Единица.Value; DM.WordDocument1.Tables.Item(4).Cell(N+3,4).Range.InsertBefore(S);

S:=Format('%m',[DM.ADOTable9Цена.Value]); DM.WordDocument1.Tables.Item(4).Cell(N+3,5).Range.InsertBefore(S);

S:=IntToStr(DM.ADOTable9Количество.Value); DM.WordDocument1.Tables.Item(4).Cell(N+3,6).Range.InsertBefore(S);

S:=Format('%m',[DM.ADOTable9Цена2.Value]); DM.WordDocument1.Tables.Item(4).Cell(N+3,7).Range.InsertBefore(S);

DM.WordDocument1.Tables.Item(4).Cell(N+3,8).Range.InsertBefore(S);

SumM:=SumM+DM.ADOTable9Цена2.Value;

DM.WordDocument1.Tables.Item(4).Rows.Add(EmptyParam);

inc(N);

Next;

end;

end;

S:=Format('%m',[SumM]);

DM.WordDocument1.Tables.Item(5).Cell(1,2).Range.InsertBefore(S);

DM.WordApplication1.Visible:=True;

Except

begin

ShowMessage('Бланк документа с именем "Приходная накладная" не найден!!!');

DM.WordApplication1.Disconnect;

Application.Restore;

exit;

end;

end;

DM.WordApplication1.Disconnect;

Application.Restore;

end;

procedure TRashod.N16Click(Sender: TObject);

var

S, S1: string;

temp: OleVariant;

Excel: Variant;

t, n: integer;

begin

S:=ExtractFilePath(Application.ExeName)+'Заказы\';

OpenDialog1.InitialDir:=S;

if OpenDialog1.Execute then

temp:=OpenDialog1.FileName;

Excel:= CreateOleObject('Excel.Application');

Try

Excel.Workbooks.Open[temp];

S:=Excel.Range['b3'];

DM.ADOTable14.Last;

n:=DM.ADOTable14Номер.Value;

inc(n);

DM.ADOTable14.Insert;

DM.ADOTable14Номер.Value:=n;

DM.ADOTable14Дата.Value:=Date();

DM.ADOTable14Точка.Value:=StrToInt(S);

DM.ADOTable14.Post;

t:=9;

repeat

S:='a'+IntToStr(t);

S1:=Excel.Range[S];

if S1 <> '' then

begin

DM.ADOTable15.Insert;

DM.ADOTable15Заказ.Value:=n;

S1:=Excel.Range[S];

DM.ADOTable15Артикул.Value:=StrToInt(S1);

S:='d'+IntToStr(t);

S1:=Excel.Range[S];

DM.ADOTable15Количество.Value:=StrToInt(S1);

DM.ADOTable15.Post;

end;

inc(t);

until S1 = '';

ShowMessage('Заказ успешно загружен!!!');

Excel.ActiveWorkbook.Close;

Excel.Application.Quit;

Application.Restore;

Except

begin

ShowMessage('Шаблон документа "Заказ" заполнен с ошибками!');

Excel.ActiveWorkbook.Close;

Excel.Application.Quit;

Application.Restore;

exit;

end;

end;

DM.ADOTable6.Close;

DM.ADOTable6.Open;

end;

procedure TRashod.N17Click(Sender: TObject);

begin

Rashod.Close;

end;

//Открыть справочник КЛИЕНТЫ

procedure TRashod.N2Click(Sender: TObject);

begin

FormKlient.Show;

end;

//Печать расходной накладной

procedure TRashod.N3Click(Sender: TObject);

var

Name, NameS: OleVariant;

Sum: single;

n: integer;

S: string;

begin Name:=ExtractFilePath(Application.ExeName)+'/Шаблоны/Расход.doc';

S:=DM.DataSource6.DataSet.FieldValues['Номер'];

NameS:=ExtractFilePath(Application.ExeName)+'/Документы/Расход № '+S+'.doc';

DM.WordApplication1.Connect;

Try

Application.Minimize;

DM.WordApplication1.Documents.Open(Name,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); DM.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument);

DM.WordDocument1.SaveAs(NameS); DM.WordDocument1.Tables.Item(2).Cell(2,2).Range.InsertBefore(S);

S:=DM.DataSource6.DataSet.FieldValues['Статус']; DM.WordDocument1.Tables.Item(2).Cell(2,3).Range.InsertBefore(S);

S:=DM.ADOTable6Точка2.Value+' '+DM.ADOTable6Адрес.Value; DM.WordDocument1.Tables.Item(3).Cell(1,2).Range.InsertBefore(S);

n:=1; Sum:=0;

//Отбор продукции по накладной

With DM.ADOTable7 do

begin

First;

while not EOF do

begin DM.WordDocument1.Tables.Item(4).Cell(n+3,1).Range.InsertBefore(IntToStr(n));

S:=DM.ADOTable7Артикул2.Value;

DM.WordDocument1.Tables.Item(4).Cell(N+3,2).Range.InsertBefore(S);

S:=DM.ADOTable7Группа.Value;

DM.WordDocument1.Tables.Item(4).Cell(N+3,3).Range.InsertBefore(S);

S:=DM.ADOTable7Единица.Value;

DM.WordDocument1.Tables.Item(4).Cell(N+3,4).Range.InsertBefore(S);

S:=Format('%m',[DM.ADOTable7Цена.Value]);

DM.WordDocument1.Tables.Item(4).Cell(N+3,5).Range.InsertBefore(S);

S:=IntToStr(DM.ADOTable7Количество.Value);

DM.WordDocument1.Tables.Item(4).Cell(N+3,6).Range.InsertBefore(S);

S:=Format('%m',[DM.ADOTable7Цена2.Value]);

DM.WordDocument1.Tables.Item(4).Cell(N+3,7).Range.InsertBefore(S);

DM.WordDocument1.Tables.Item(4).Cell(N+3,8).Range.InsertBefore(S);

Sum:=Sum+DM.ADOTable7Цена2.Value;

DM.WordDocument1.Tables.Item(4).Rows.Add(EmptyParam);

inc(N);

Next;

end;

end;

S:=Format('%m',[Sum]);

DM.WordDocument1.Tables.Item(5).Cell(1,2).Range.InsertBefore(S);

DM.WordApplication1.Visible:=True;

Except

begin

ShowMessage('Бланк документа с именем "Расход" не найден!!!');

DM.WordApplication1.Disconnect;

Application.Restore;

exit;

end;

end;

DM.WordApplication1.Disconnect;

Application.Restore;

End;

//Формирование инвентаризационной ведомости

procedure TRashod.N4Click(Sender: TObject);

var

FileName, FileNameSave: OleVariant;

S: string;

N,p,r,o: integer;

begin

N:=3;

FileName:=ExtractFilePath(Application.ExeName)+'/Шаблоны/Ведомость.doc';

S:=DateToStr(Date);

FileNameSave:=ExtractFilePath(Application.ExeName)+'/Документы/Ведомость от '+S+'.doc';

DM.WordApplication1.Connect;

Try

Application.Minimize;

DM.WordApplication1.Documents.Open(FileName,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

DM.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument);

DM.WordDocument1.SaveAs(FileNameSave);

DM.WordDocument1.Tables.Item(1).Cell(1,2).Range.InsertBefore(S);

DM.ADOTable5.Close;

DM.ADOTable5.Open;

//Отбор товаров

With DM.ADOTable5 do

begin

First;

while not EOF do

begin

S:=DM.ADOTable5Группа2.Value;

DM.WordDocument1.Tables.Item(2).Cell(N,1).Range.InsertBefore(S);

S:=DM.ADOTable5Номенклатура.Value;

DM.WordDocument1.Tables.Item(2).Cell(N,2).Range.InsertBefore(S);

S:=DM.ADOTable5Единица.Value;

DM.WordDocument1.Tables.Item(2).Cell(N,4).Range.InsertBefore(S);

S:=IntToStr(DM.ADOTable5Артикул.Value);

DM.WordDocument1.Tables.Item(2).Cell(N,3).Range.InsertBefore(S);

DM.ADOQuery3.Close;

DM.ADOQuery3.Filter:='Артикул='+S;

DM.ADOQuery3.Filtered:=True;

DM.ADOQuery3.Open;

DM.ADOQuery4.Close;

DM.ADOQuery4.Filter:='Артикул='+S;

DM.ADOQuery4.Filtered:=True;

DM.ADOQuery4.Open;

if DM.ADOQuery3SumКоличество.Value = Null then p:=0

else

p:=DM.ADOQuery3SumКоличество.Value;

if DM.ADOQuery4SumКоличество.Value = Null then r:=0

else

r:=DM.ADOQuery4SumКоличество.Value;

o:=p-r;

S:=IntToStr(p);

DM.WordDocument1.Tables.Item(2).Cell(N,5).Range.InsertBefore(S);

S:=IntToStr(r);

DM.WordDocument1.Tables.Item(2).Cell(N,6).Range.InsertBefore(S);

S:=IntToStr(o);

DM.WordDocument1.Tables.Item(2).Cell(N,7).Range.InsertBefore(S);

DM.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);

inc(N);

Next;

end;

end;

DM.WordApplication1.Visible:=True;

Except

begin

ShowMessage('Бланк документа "Ведомость" не найден!');

Application.Restore;

exit;

end;

end;

DM.WordApplication1.Disconnect;

Application.Restore;

end;

//Справочник группы товаров

procedure TRashod.N6Click(Sender: TObject);

begin

UnitGRUP.FormGRUP.ShowModal;

end;

//Отобразить вкладку приход

procedure TRashod.N7Click(Sender: TObject);

begin

PanelP.Visible:=True;

PanelR.Visible:=False;

TabSet1.TabIndex:=1;

end;

//Справочник продукция

procedure TRashod.N8Click(Sender: TObject);

begin

UnitTovar.FormTovar.ShowModal;

end;

//Заказ на производство

procedure TRashod.N9Click(Sender: TObject);

var

FileName, FileNameSave: OleVariant;

S: string;

N: integer;

begin

N:=3;

FileName:=ExtractFilePath(Application.ExeName)+'/Шаблоны/Заказ.doc';

S:=DateToStr(Date);

FileNameSave:=ExtractFilePath(Application.ExeName)+'/Документы/Заказ от '+S+'.doc';

DM.WordApplication1.Connect;

Try

Application.Minimize;

DM.WordApplication1.Documents.Open(FileName,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);

DM.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument);

DM.WordDocument1.SaveAs(FileNameSave);

DM.WordDocument1.Tables.Item(1).Cell(1,2).Range.InsertBefore(S);

S:=DM.ADOTable8Поставщик2.Value;

DM.WordDocument1.Tables.Item(1).Cell(2,2).Range.InsertBefore(S);

//Отбор товаров

With DM.ADOTable9 do

begin

First;

while not EOF do

begin

S:=DM.ADOTable9Группа.Value;

DM.WordDocument1.Tables.Item(2).Cell(N,1).Range.InsertBefore(S);

S:=DM.ADOTable9Артикул2.Value;

DM.WordDocument1.Tables.Item(2).Cell(N,2).Range.InsertBefore(S);

S:=IntToStr(DM.ADOTable9Артикул.Value);

DM.WordDocument1.Tables.Item(2).Cell(N,3).Range.InsertBefore(S);

S:=DM.ADOTable9Единица.Value;

DM.WordDocument1.Tables.Item(2).Cell(N,4).Range.InsertBefore(S);

S:=IntToStr(DM.ADOTable9Количество.Value);

DM.WordDocument1.Tables.Item(2).Cell(N,5).Range.InsertBefore(S);

DM.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);

inc(N);

Next;

end;

end;

DM.WordApplication1.Visible:=True;

Except

begin

ShowMessage('Бланк документа "Заказ" не найден!');

Application.Restore;

exit;

end;

end;

DM.WordApplication1.Disconnect;

Application.Restore;

end;

//Отображение ПРИХОД_РАСХОД

procedure TRashod.TabSet1Click(Sender: TObject);

begin

If TabSet1.TabIndex=1 Then

begin

PanelP.Visible:=True;

PanelR.Visible:=False;

end;

If TabSet1.TabIndex=0 Then

begin

PanelP.Visible:=False;

PanelR.Visible:=True;

end;

end;

end.

unit UnitDM;

interface

var

DM: TDM;

implementation

{$R *.dfm}

uses UnitMain, UnitSKlient;

//Добавить позицию в приходную накладную

procedure TDM.ADOQuery5CalcFields(DataSet: TDataSet);

var

Sum: single;

begin

ADOQuery6.Close;

ADOQuery6.Filter:='Имя='+Chr(39)+ADOQuery5Имя.Value+Chr(39);

ADOQuery6.Filtered:=True;

ADOQuery6.Open;

Sum:=0;

With DM.ADOQuery6 do

begin

First;

while not EOF do

begin

Sum:=Sum+ADOQuery6Сумма.Value;

Next;

end;

end;

ADOQuery5Сумма.Value:=Sum;

ADOQuery6.Filtered:=False;

end;

//Сумма прихода

procedure TDM.ADOQuery6CalcFields(DataSet: TDataSet);

begin

ADOQuery6Сумма.Value:=ADOQuery6Цена.Value*ADOQuery6SumКоличество.Value;

end;

//Сумма расхода

procedure TDM.ADOQuery7CalcFields(DataSet: TDataSet);

begin

ADOQuery7Сумма.Value:=ADOQuery7Цена.Value*ADOQuery7SumКоличество.Value;

end;

procedure TDM.ADOQuery8CalcFields(DataSet: TDataSet);

var

Sum: single;

begin

ADOQuery7.Close;

ADOQuery7.Filter:='Код='+IntToStr(ADOQuery8Код.Value);

ADOQuery7.Filtered:=True;

ADOQuery7.Open;

Sum:=0;

With DM.ADOQuery7 do

begin

First;

while not EOF do

begin

Sum:=Sum+ADOQuery7Сумма.Value;

Next;

end;

end;

ADOQuery8Сумма.Value:=Sum;

ADOQuery7.Filtered:=False;

end;

procedure TDM.ADOTable12CalcFields(DataSet: TDataSet);

var

p, r:integer;

begin

ADOQuery9.Close;

ADOQuery9.Filter:='Артикул='+IntToStr(ADOTable12Артикул.Value);

ADOQuery9.Filtered:=True;

ADOQuery9.Open;

ADOQuery10.Close;

ADOQuery10.Filter:='Артикул='+IntToStr(ADOTable12Артикул.Value);

ADOQuery10.Filtered:=True;

ADOQuery10.Open;

if ADOQuery9SumКоличество.Value = Null then p:=0

else

p:=ADOQuery9SumКоличество.Value;

if DM.ADOQuery10SumКоличество.Value = Null then r:=0

else

r:=DM.ADOQuery10SumКоличество.Value;

ADOTable12Остаток.Value:=p-r;

ADOTable12Сумма.Value:=ADOTable12Остаток.Value*ADOTable12Цена.Value;

end;

procedure TDM.ADOTable13CalcFields(DataSet: TDataSet);

var

Sum: single;

begin

ADOTable12.Close;

ADOTable12.Filter:='Группа='+IntToStr(ADOTable13Код.Value);

ADOTable12.Filtered:=True;

ADOTable12.Open;

Sum:=0;

With DM.ADOTable12 do

begin

First;

while not EOF do

begin

Sum:=Sum+ADOTable12Сумма.Value;

Next;

end;

end;

ADOTable13Сумма.Value:=Sum;

ADOTable12.Filtered:=False;

end;

procedure TDM.ADOTable1AfterInsert(DataSet: TDataSet);

begin

inc(k);

ADOTable1Код.Value:=k;

end;

procedure TDM.ADOTable1BeforeInsert(DataSet: TDataSet);

begin

ADOTable1.Last;

k:=ADOTable1Код.Value;

end;

procedure TDM.ADOTable2AfterInsert(DataSet: TDataSet);

begin

inc(k);

ADOTable2Код.Value:=k;

end;

procedure TDM.ADOTable2BeforeInsert(DataSet: TDataSet);

begin

ADOTable2.Last;

k:=ADOTable2Код.Value;

end;

procedure TDM.ADOTable3AfterInsert(DataSet: TDataSet);

begin

inc(k);

ADOTable3Код.Value:=k;

end;

procedure TDM.ADOTable3BeforeInsert(DataSet: TDataSet);

begin

ADOTable3.Last;

k:=ADOTable3Код.Value;

end;

procedure TDM.ADOTable5AfterInsert(DataSet: TDataSet);

begin

inc(k);

ADOTable5Артикул.Value:=k;

end;

procedure TDM.ADOTable5BeforeInsert(DataSet: TDataSet);

begin

ADOTable5.Last;

k:=ADOTable5Артикул.Value;

end;

procedure TDM.ADOTable7CalcFields(DataSet: TDataSet);

begin

if (ADOTable7Количество.Value <> null) and (ADOTable7Цена.Value <> null) then

ADOTable7Цена2.Value:=ADOTable7Количество.Value*ADOTable7Цена.Value;

end;

procedure TDM.ADOTable9CalcFields(DataSet: TDataSet);

begin

if (ADOTable9Количество.Value <> null) and (ADOTable9Цена.Value <> null) then ADOTable9Цена2.Value:=ADOTable9Количество.Value*ADOTable9Цена.Value;

end;

//Определение позиций приходной накладной

procedure TDM.DataSource6DataChange(Sender: TObject; Field: TField);

var

S: single;

begin

//Выводим на экран номер и дату расхода

If DataSource6.DataSet.FieldValues['Номер'] = Null then

Begin

Rashod.LabelN.Caption:= 'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ № 00000';

Rashod.LabelD.Caption:= 'от 00.00.00';

ADOTable7.Close;

ADOTable7.Filtered:=False;

ADOTable7.Open;

Rashod.LabelSum.Caption:= 'Итого сумма накладной: 0,00 руб.';

End

Else

Begin

Rashod.LabelD.Caption:= 'от '

+DateToStr(DataSource6.DataSet.FieldValues['Дата']);

If Length(IntToStr(DataSource6.DataSet.FieldValues['Номер'])) = 1 Then

Begin

Rashod.LabelN.Caption:= 'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ № 0000'

+IntToStr(DataSource6.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource6.DataSet.FieldValues['Номер'])) = 2 Then

Begin

Rashod.LabelN.Caption:= 'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ № 000'

+IntToStr(DataSource6.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource6.DataSet.FieldValues['Номер'])) = 3 Then

Begin

Rashod.LabelN.Caption:= 'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ № 00'

+IntToStr(DataSource6.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource6.DataSet.FieldValues['Номер'])) = 4 Then

Begin

Rashod.LabelN.Caption:= 'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ № 0'

+IntToStr(DataSource6.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource6.DataSet.FieldValues['Номер'])) > 4 Then

Begin

Rashod.LabelN.Caption:= 'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ № '

+IntToStr(DataSource6.DataSet.FieldValues['Номер']);

End;

//Выводим на экран позиции накладной

ADOTable7.Close;

ADOTable7.Filter:='Заказ='+Chr(39)+IntToStr(ADOTable6Номер.Value)+Chr(39);

ADOTable7.Filtered:=True;

ADOTable7.Open;

//Выводим на экран cумму накладной

S:=0;

With ADOTable7 do

begin

First;

while not EOF do

Begin

S:=S+ADOTable7Цена2.Value;

Next;

End;

end;

Rashod.LabelSum.Caption:= 'Итого сумма накладной: '

+Format('%f',[S])+' руб.';

End;

end;

//Определение позиций расходной накладной

procedure TDM.DataSource8DataChange(Sender: TObject; Field: TField);

var

S: single;

begin

//Выводим на экран номер и дату расхода

If DataSource8.DataSet.FieldValues['Номер'] = Null then

Begin

Rashod.LabelNP.Caption:= 'ПРИХОДНАЯ НАКЛАДНАЯ № 00000';

Rashod.LabelDP.Caption:= 'от 00.00.00';

ADOTable9.Close;

ADOTable9.Filtered:=False;

ADOTable9.Open;

Rashod.LabelSumP.Caption:= 'Итого сумма приходной накладной: 0,00 руб.';

End

Else

Begin

Rashod.LabelDP.Caption:= 'от '

+DateToStr(DataSource8.DataSet.FieldValues['Дата']);

If Length(IntToStr(DataSource8.DataSet.FieldValues['Номер'])) = 1 Then

Begin

Rashod.LabelNP.Caption:= 'ПРИХОДНАЯ НАКЛАДНАЯ № 0000'

+IntToStr(DataSource8.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource8.DataSet.FieldValues['Номер'])) = 2 Then

Begin

Rashod.LabelNP.Caption:= 'ПРИХОДНАЯ НАКЛАДНАЯ № 000'

+IntToStr(DataSource8.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource8.DataSet.FieldValues['Номер'])) = 3 Then

Begin

Rashod.LabelNP.Caption:= 'ПРИХОДНАЯ НАКЛАДНАЯ № 00'

+IntToStr(DataSource8.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource8.DataSet.FieldValues['Номер'])) = 4 Then

Begin

Rashod.LabelNP.Caption:= 'ПРИХОДНАЯ НАКЛАДНАЯ № 0'

+IntToStr(DataSource8.DataSet.FieldValues['Номер']);

End;

If Length(IntToStr(DataSource8.DataSet.FieldValues['Номер'])) > 4 Then

Begin

Rashod.LabelNP.Caption:= 'ПРИХОДНАЯ НАКЛАДНАЯ № '

+IntToStr(DataSource8.DataSet.FieldValues['Номер']);

End;

//Выводим на экран позиции накладной

ADOTable9.Close;

ADOTable9.Filter:='[Общий заказ]='+Chr(39)+IntToStr(ADOTable8Номер.Value)+Chr(39);

ADOTable9.Filtered:=True;

ADOTable9.Open;

//Выводим на экран cумму товарного чека

S:=0;

With ADOTable9 do

begin

First;

while not EOF do

Begin

S:=S+ADOTable9Цена2.Value;

Next;

End;

end;

Rashod.LabelSumP.Caption:= 'Итого сумма приходной накладной: '

+Format('%f',[S])+' руб.';

End;

end;

end.

unit UnitREPORT;

interface

var

FormREPORT: TFormREPORT;

implementation

uses UnitDM;

{$R *.dfm}

//Сформировать отчет

procedure TFormREPORT.BitBtn1Click(Sender: TObject);

var

DT1, DT2: TDateTime;

Sum1, Sum2, Sum3: single;

S: string;

begin

DM.ADOTable12.Close;

DM.ADOQuery6.Close; DM.ADOQuery6.Parameters.ParamValues['N']:=DateToStr(DateTimePicker2.Date); DM.ADOQuery6.Parameters.ParamValues['K']:=DateToStr(DateTimePicker1.Date);

DM.ADOQuery6.Open;

DM.ADOQuery5.Close; DM.ADOQuery5.Parameters.ParamValues['N']:=DateToStr(DateTimePicker2.Date); DM.ADOQuery5.Parameters.ParamValues['K']:=DateToStr(DateTimePicker1.Date);

DM.ADOQuery5.Open;

DM.ADOTable12.Close;

DM.ADOQuery9.Close; DM.ADOQuery9.Parameters.ParamValues['N']:=DateToStr(DateTimePicker2.Date); DM.ADOQuery9.Parameters.ParamValues['K']:=DateToStr(DateTimePicker1.Date);

DM.ADOQuery9.Open;

DM.ADOQuery10.Close;

DM.ADOQuery10.Parameters.ParamValues['N']:=DateToStr(DateTimePicker2.Date);

DM.ADOQuery10.Parameters.ParamValues['K']:=DateToStr(DateTimePicker1.Date);

DM.ADOQuery10.Open;

Sum1:=0;

With DM.ADOQuery5 do

begin

First;

while not EOF do

Begin

Sum1:=DM.ADOQuery5Сумма.Value+Sum1;

Next;

End;

end;

Label1.Caption:=Format('%m',[Sum1]);

DM.ADOQuery7.Close;

DM.ADOQuery7.Parameters.ParamValues['N']:=DateToStr(DateTimePicker2.Date);

DM.ADOQuery7.Parameters.ParamValues['K']:=DateToStr(DateTimePicker1.Date);

DM.ADOQuery7.Open;

DM.ADOQuery8.Close;

DM.ADOQuery8.Parameters.ParamValues['N']:=DateToStr(DateTimePicker2.Date);

DM.ADOQuery8.Parameters.ParamValues['K']:=DateToStr(DateTimePicker1.Date);

DM.ADOQuery8.Open;

Sum2:=0;

With DM.ADOQuery8 do

begin

First;

while not EOF do

Begin

Sum2:=DM.ADOQuery8Сумма.Value+Sum2;

Next;

End;

end;

Label2.Caption:=Format('%m',[Sum2]);

Sum3:=0;

With DM.ADOTable13 do

begin

First;

while not EOF do

Begin

Sum3:=DM.ADOTable13Сумма.Value+Sum3;

Next;

End;

end;

Label3.Caption:=Format('%m',[Sum3]);

DM.ADOTable12.Open;

end;

procedure TFormREPORT.TabSet1Click(Sender: TObject);

begin

If TabSet1.TabIndex=0 Then

begin

Panel6.Visible:=True;

Panel5.Visible:=False;