Автоматизированная система учета расчетов с покупателями и поставщиками на предприятии на основе данных ООО "Дагестан-Парус"

S1 = (Фзарп + Фдоп.зарп + Н + Фпенс + Фсоц.стр + Фмед + Нр) / 26 = (2240.39+ 448.08 + 349.5 + 537.69 + 77.97 + 83.34 + 763.24) / 26 = 173.09 руб.

Фзарп=1650+((4800/(26*8))*21)+((5500/(26*8))*4)=2240.39руб.

Фдоп=0,2*Фзарп=0,2*2240.39 =448.08 руб.

Н=(Фзарп+Фдоп)*13%=(2240.39+448.08)*13%=349.5 руб.

Фпенс=(Фзарп+Фдоп)*22%= (2240.39+448.08)*22%=591.46 руб.

Фсоц.страх.=(Фзарп+Фдоп)*2.9%=(2240.39+448.08)*2.9%=77.97 руб.

Фмед=(Фзарп+Фдоп)*5,1%=(2240.39+448.08)*5.1%=137.11 руб.

Нр=(Фзарп+Фдоп+Н+Смаш)*b/(1-b)= (2240.39+448.08+349.5+15)* *(0,2/(1-0,2)) =763.24 руб.

Вычислим себестоимость одного чел.-дня на стадии Т2 когда разработчики пользовались средствами проектирования.

S2 = S1 + (Cмаш + Смаш * b/(1-b)) = 173.09 + (15+ 15*0.2/(1-0.2)) = 191.84 руб.

По формуле для R получим:

R = S1*T1 + S2*T2 =173.09 * 48 + 191.84 * 24 = 15145,96 руб.

Определим отпускную цену (Сотп) разработанной программы с учетом нормативной чистой прибыли, налога на прибыль, налога на добавленную стоимость, которые определяются соответственно как 15% от себестоимости (R), 20% от прибыли и 18% от добавленной стоимости:

Стоимость программы (Ц) равна:

Ц = R +0.15* R /(1-0.2) =15145.96+0.15*15145.96/0,8= 17985,83 руб.

Сотп = Ц + 0,18*Ц =17985,83+0,18*17985,83= 21223,28 руб.

При этом нормативная чистая прибыль равна 0.15*R =0,15*15145,96= =2271,89 руб.

3.2.4 Расчет единовременных среднегодовых затрат на функционирование системы

Общим критерием целесообразности автоматизации решения экономических задач является достигаемое этим повышение эффективности производства посредством совершенствования системы управления.

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

Экономическая эффективность оценивается трудовыми и стоимостными показателями, которые позволяют измерить экономию от внедрения проекта машинной обработки информации относительно базового варианта.

Таблица 3.4

Ручная обработка

№ п/п	Наименование операции технологического процесса решения комплекса задач	Оборудование	Ед. Изм.	Объем работы	Норма выработки в час	Трудоемкость (гр.5: гр.6)
1	2	3	4	5	6	7
1.	Прием, регистрация входящих документов	-- - ---	док-т	100	13	7,7
2.	Заключение договора на покупку и доставку товара	--------	док-т	100	10,59	9,44
3.	Заполнения заявки на заказ товара	--------	док-т	100	6	16,67
4.	Составление накладных и доставка товара	--------	док-т	100	2	50
5.	Оплата товара	--------	док-т	100	9	11,11
6.	Контроль, регистрация, выдача документов	--------	док-т	200	10,3	15,85
	Одноразовое решение:					110,77
	Итого за год:					1329,3
№ п/п	Среднечасовая з/пл оператора (руб.)	Часовая амортизация (руб.)	Часовая стоимость накладных расходов (руб.)	Стоимость работы оборудовании (гр.8+гр.9+ +гр.10)	Стоимостные затраты (гр.7хгр.11) (руб.)
1	8	9	10	11	12
1.	28,84	------	17,3	46,15	355,36
2.	28,84	------	17,3	46,15	435,66
3.	28,84	------	17,3	46,15	769,32
4.	28,84	------	17,3	46,15	2307,5
5.	28,84	------	17,3	46,15	512,73
6.	28,84	------	17,3	46,15	731,48
	Одноразовое решение:				5112,05
	Итого за год:				61344,6

Пояснения к табл. 3.4:

1. Нвыр1= 3600 / (Вод+Впк+Врд) = 3600 / (60+90+120) = 13

где Вод - время ознакомления с документом;

Впк - время проверки кодов;

Врд - время регистрации документа.

2. Нвыр2 =3600/(Вп+Возн+Вз)=3600/(100+120+120)=18 ,

где Вп - время поиска соответствующего документа;

Возн - время ознакомления с документом;

Вз- время заполнения документа.

3 Н выр3 = 3600 / (Вп+Вз) = 3600 / (0,5+600 ) = 6 ,

где Вп - время поиска соответствующего документа;

Вз- время заполнения заявки на заказ товара.

4. Hвыр4 = 3600 /(Всн+Вдт) = 3600 / (600+1200) = 2 ,

где Всн - время на составление накладной;

Вдт - время на доставку товара.

5. Нвыр5= 3600 / (Возн+Вон) = 3600 / (300+100) =9 ,

где Возн - время ознакомления с накладной;

Вон - время на оплату накладной.

6. Hвыр6 = 3600 / (Вз * Кзс + Впз + Вв1 + Вв2) = (0,64 * 60 + 50 + 110 + 150) = 10,3,

где Впз - время поиска записи в списке документов;

Вв1 - время вычисления по строкам;

Вв2 - время подсчета общих итогов;

Вз - время записи одного знака;

Кзс - количество знаков в строке.

Средняя з/пл операторов = (з/пл за месяц ) / (количество дней х длительность рабочей смены ) = 4500 / (26 х 6 ) = 28,85 руб.

Накладные расходы = 60% от основной з/пл = 28,85 х 0,6 = 17,15;

Среднегодовые затраты при ручной обработке информации равны сумме затрат по всем операциям: 61344,6 руб.

Таблица 3.5

Машинная обработка

№ п/п	Наименование операции технологического процесса решения комплекса задач	Оборудование	Ед. изм.	Объем работы	Норма выработки в час	Трудоемкость (гр.5: гр.6)
1	2	3	4	5	6	7
1.	Прием и регистрация первичных документов	------	док-т	100	18	5,56
2.	Ввод данных в ЭВМ	ПЭВМ IBM PС intel core 2 duo	знак	3000	9000	0,33
3.	Визуальный контроль введенных данных и корректировка в случае обнаружения ошибки	ПЭВМ IBM PС intel core 2 duo	знак	3000	3600	0,83
4.	Обработка исходных данных	ПЭВМ IBM PС intel core 2 duo	док-т	100	27,69	3,6
5.	Учет расчетов	ПЭВМ IBM PС intel core 2 duo	док-т	200	10,59	18,89
6.	Печать выходных форм	ПЭВМ IBM PС intel core 2 duo	док-т	200	116,87	1,71
7.	Контроль, регистрация, выдача документов	ПЭВМ IBM PС intel core 2 duo	док-т	200	10,3	19,42
	Одноразовое решение:					50,34
	Итого за год:					604,08
№ п/п	Средне-часовая з/пл оператора (руб.)	Часовая амортизация (руб.)	Часовая стоимость накладных расходов (руб.)	Стоимость работы оборудовании (гр.8+гр.9+ +гр.10)	Стоимостные затраты (гр.7хгр.11) (руб.)
1	8	9	10	11	12
1.	28,84	------	17,3	46,15	256,59
2.	28,84	0,8	17,3	46,95	15,49
3.	28,84	0,8	17,3	46,95	38,99
4.	28,84	0,8	17,3	46,95	169,02
5.	28,84	0,8	17,3	46,95	886,89
6.	28,84	0,8	17,3	46,95	80,28
7.	28,84	0,8	17,3	46,95	911,77
	Одноразовое решение:				2359,03
	Итого за год:				28308,36

Пояснения к табл. 3.5:

1. Нвыр1= 3600/ Врег = 3600/200= 18 ,

где Врег - время регистрации документа.

2. Нвыр2 = 3600 / Внз = 3600 / 0,4 = 9000 ,

где Внз - время набора одного знака.

3. Нвыр3 = 3600 / (Ввк + Вк )= 3600 / (0,6 + 0,4) = 3600,

где Ввк - время визуального контроля; Вк - время корректировки.

4. Нвыр4 = 3600 / Вобр.д = 3600 / 130 = 27,69,

где Вобр.д - время обработки данных.

5. Нвыр5 = 3600/(Врдз + Вркз + Врко + Вродз + Врср) = 3600/(60 + 60 + 60 + 60 + 100) = 10,59 руб.,

где Врдз - время расчета дебиторской задолженности ;

Вркз - время расчета кредиторской задолженности;

Врко - время расчета коэффициента оборачиваемости;

Вродз- время расчета оборачиваемости дебиторской задолженности;

Врср - время расчета суммы резерва.

6. Нвыр6 = 3600 / (Вфд + Кз/Сп )= 3600 /( 0,5+ 8000/264 )=116,88

где Вфд - время формирования документа;

Кз - среднее количество знаков в документе;

Сп - скорость принтера (зн/сек).

7. Нвыр7=3600/(Вз*Кзс+Впз+Вв1+Вв2)=(0,64*60+50+110+150) = 10,3,

где Впз - время поиска записи в списке документов;

Вв1 - время вычисления по строкам;

Вв2 - время подсчета общих итогов;

Вз - время записи одного знака;

Кзс - количество знаков в строке.

Среднегодовые затраты при машинной обработке информации равны сумме затрат по всем операциям: Ф=28308,36 руб.

3.2.5 Расчет показателей экономической эффективности.

1. Расчетный коэффициент эффективности капитальных вложений:

Eр= П/ R,

где П - годовая экономия (годовой прирост прибыли), руб.;

R - единовременные затраты, руб.

Зп=(Р+С)/Тэкс+Ф =21223,275/8+28308,36 =30961,269 руб.

П = Зб - Зп = 61344,6 -28308,36 = 33036,24 руб.

Eр =П/R = 33036,24\15145,96=2,18 руб.

2. Годовой экономический эффект:

Э = П - R Ен,

где Ен - нормативный коэффициент эффективности капитальных вложений (Ен= 0,15).

Э = 33036,24- 15145,96*0,15 = 30764,35 руб.

Eн*R=1968,369 - нормативная прибыль от внедрения системы.

3. Срок окупаемости:

Т = R/П = 1/Ер.

Т = 15145,96/33036,24 =1 / 2,18= 0,46 года.

Заключение

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

Программно-техническая реализация системы базируется на использовании персонального компьютера PENTIUM Intel Core 2 duo и программа Borland C++ Builder .

При выполнении проекта использовалась специальная литература и документация рассматриваемой предметной области - учета расчетов с покупателями и поставщиками на предприятии.

В процессе выполнения дипломного проекта я создал автоматизированную систему учета расчетов с покупателями и поставщиками на предприятии, на основе реальных данных ООО «Дагестан - Парус»

Результаты, полученные в процессе дипломного проектирования, представляют практический интерес, так как использование разработки в ООО «Дагестан - Парус» позволяет повысить уровень качества, оперативности и достоверности учета расчетов с покупателями и поставщиками на предприятии. Что ведет к улучшению производственно-технических показателей, а также к улучшенному контролю над учетом расчетов с покупателями и поставщиками.

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

1. Абдулгалимов А.М., Агаларов Я.М., Кадимов М.Д., Агаларова З.Я. «Дипломное проектирование». Методические указания по выполнению дипломного проекта. Для студентов специальности 080801 - «Информационные системы в экономике», - Махачкала: ДГТУ, 2002г.

2. Абдулгалимов А.М., Мурадов М.М., Филенко А.Д. «Методические указания к выполнению лабораторного практикума по дисциплине «Базы данных»: в 3-х частях» Махачкала, ДГТУ, 2006.- 75с.

3. Абдулгалимов А.М. «Курс лекций по дисциплине «Информационная безопасность»», Махачкала, ДГТУ, 2008-2009гг.

4. Архангельский А.Я. «Программирование в С++ Builder 6» - Москва: «Издательство БИНОМ» , 2008г.- 1152с.

5.Баканов М.И., Шеремет А.Д «Теория экономического анализа». Учебник. - 6-ое изд. - Москва: Финансы и статистика, 2007г., 257с.

6.Головизина А.Т., Архипова О.И.. Теория бухгалтерского учета. Курс лекций. - М.: ОАО «ТК Велби», 2004. - 216 с.

7.Ларионова А.Д. Под ред.- М.: «Проспект», 2005. - 392 с. «Бухгалтерский учет»

8. Маркарьян Э.А., Герасименко Г.П., Маркарьян С.Э. «Экономический анализ хозяйственной деятельности». Учебное пособие, Москва, 2008.- 552с.

9.Пахомов Б.И. «Самоучитель С/С++ и С++ Builder 2007 ». - СПб.: БХВ- Петербург, 2008.- 672 с.

10. Постановление от 2 декабря 2000 г. N 914 об утверждении правил ведения журналов учета полученных и выставленных счетов-фактур, книг покупок и книг продаж при расчетах по налогу на добавленную стоимость (в ред. Постановлений Правительства РФ от 15.03.2001 N 189, от 27.07.2002 N 575, от 16.02.2004 N 84, от 11.05.2006 N 283, с изм., внесенными решением Верховного Суда РФ от 10.07.2002 N ГКПИ2001-916).

11. Постановление от 11 ноября 1999 г. N 100 об утверждении унифицированных форм первичной учетной документации по учету работ в капитальном строительстве и ремонтно-строительных работ.

12. Постановление от 28 ноября 1997 г. N 78 об утверждении унифицированных форм первичной учетной документации по учету работы строительных машин и механизмов, работ в автомобильном транспорте.

13. Приказ от 22 июля 2003 г. N 67н о формах бухгалтерской отчетности организаций (в ред. Приказов Минфина РФ от 31.12.2004 135н, от 18.09.2006 №115н).

14.Устав и учетная политика ООО «Дагестан - Парус» 1998г.

15. Уткин В.Б., Балдин К.В. «Информационные системы в экономике». Учебник для студентов ВУЗа - 2-ое изд.- Москва: Издательский центр «Академия», 2006г.

16. Федеральный закон о внесении изменений в главу 21 части второй налогового кодекса российской федерации и о признании утратившими силу отдельных положений актов законодательства российской федерации о налогах и сборах №119-ФЗ от 01 января 2005 г. (в ред. Федерального закона от 28.02.2006 N 28-ФЗ, с изм., внесенными Федеральным законом от 27.07.2006 N 137-ФЗ).

Приложение

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

//---------------------------------------------------------------------------

USEFORM("Unit1.cpp", Form1);

USEFORM("Unit2.cpp", Form2);

USEFORM("Unit3.cpp", Form3);

USEFORM("Unit4.cpp", Form4);

USEFORM("Unit5.cpp", Form5);

USEFORM("Unit7.cpp", Form7);

USEFORM("Unit6.cpp", Form6);

USEFORM("Unit10.cpp", Form10);

USEFORM("Unit8.cpp", Form8);

USEFORM("Unit9.cpp", Form9);

USEFORM("Unit11.cpp", Form11);

USEFORM("Unit12.cpp", Form12);

USEFORM("Unit13.cpp", Form13);

USEFORM("Unit17.cpp", Form27);

USEFORM("Unit18.cpp", Form18);

USEFORM("Unit14.cpp", Form14);

USEFORM("Unit15.cpp", Form15);

USEFORM("Unit16.cpp", Form16);

//---------------------------------------------------------------------------

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->CreateForm(__classid(TForm2), &Form2);

Application->CreateForm(__classid(TForm3), &Form3);

Application->CreateForm(__classid(TForm4), &Form4);

Application->CreateForm(__classid(TForm5), &Form5);

Application->CreateForm(__classid(TForm7), &Form7);

Application->CreateForm(__classid(TForm6), &Form6);

Application->CreateForm(__classid(TForm10), &Form10);

Application->CreateForm(__classid(TForm8), &Form8);

Application->CreateForm(__classid(TForm9), &Form9);

Application->CreateForm(__classid(TForm11), &Form11);

Application->CreateForm(__classid(TForm12), &Form12);

Application->CreateForm(__classid(TForm13), &Form13);

Application->CreateForm(__classid(TForm27), &Form27);

Application->CreateForm(__classid(TForm18), &Form18);

Application->CreateForm(__classid(TForm14), &Form14);

Application->CreateForm(__classid(TForm15), &Form15);

Application->CreateForm(__classid(TForm16), &Form16);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

//-------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

//---------------------------------------------------------------------------

USEFORM("Unit1.cpp", Form1);

USEFORM("Unit2.cpp", Form2);

USEFORM("Unit3.cpp", Form3);

USEFORM("Unit4.cpp", Form4);

USEFORM("Unit5.cpp", Form5);

USEFORM("Unit7.cpp", Form7);

USEFORM("Unit6.cpp", Form6);

USEFORM("Unit10.cpp", Form10);

USEFORM("Unit8.cpp", Form8);

USEFORM("Unit9.cpp", Form9);

USEFORM("Unit11.cpp", Form11);

USEFORM("Unit12.cpp", Form12);

USEFORM("Unit13.cpp", Form13);

USEFORM("Unit17.cpp", Form27);

USEFORM("Unit18.cpp", Form18);

USEFORM("Unit14.cpp", Form14);

USEFORM("Unit15.cpp", Form15);

USEFORM("Unit16.cpp", Form16);

//---------------------------------------------------------------------------

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->CreateForm(__classid(TForm2), &Form2);

Application->CreateForm(__classid(TForm3), &Form3);

Application->CreateForm(__classid(TForm4), &Form4);

Application->CreateForm(__classid(TForm5), &Form5);

Application->CreateForm(__classid(TForm7), &Form7);

Application->CreateForm(__classid(TForm6), &Form6);

Application->CreateForm(__classid(TForm10), &Form10);

Application->CreateForm(__classid(TForm8), &Form8);

Application->CreateForm(__classid(TForm9), &Form9);

Application->CreateForm(__classid(TForm11), &Form11);

Application->CreateForm(__classid(TForm12), &Form12);

Application->CreateForm(__classid(TForm13), &Form13);

Application->CreateForm(__classid(TForm27), &Form27);

Application->CreateForm(__classid(TForm18), &Form18);

Application->CreateForm(__classid(TForm14), &Form14);

Application->CreateForm(__classid(TForm15), &Form15);

Application->CreateForm(__classid(TForm16), &Form16);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

//-------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

//---------------------------------------------------------------------------

USEFORM("Unit1.cpp", Form1);

USEFORM("Unit2.cpp", Form2);

USEFORM("Unit3.cpp", Form3);

USEFORM("Unit4.cpp", Form4);

USEFORM("Unit5.cpp", Form5);

USEFORM("Unit7.cpp", Form7);

USEFORM("Unit6.cpp", Form6);

USEFORM("Unit10.cpp", Form10);

USEFORM("Unit8.cpp", Form8);

USEFORM("Unit9.cpp", Form9);

USEFORM("Unit11.cpp", Form11);

USEFORM("Unit12.cpp", Form12);

USEFORM("Unit13.cpp", Form13);

USEFORM("Unit17.cpp", Form27);

USEFORM("Unit18.cpp", Form18);

USEFORM("Unit14.cpp", Form14);

USEFORM("Unit15.cpp", Form15);

USEFORM("Unit16.cpp", Form16);

//---------------------------------------------------------------------------

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->CreateForm(__classid(TForm2), &Form2);

Application->CreateForm(__classid(TForm3), &Form3);

Application->CreateForm(__classid(TForm4), &Form4);

Application->CreateForm(__classid(TForm5), &Form5);

Application->CreateForm(__classid(TForm7), &Form7);

Application->CreateForm(__classid(TForm6), &Form6);

Application->CreateForm(__classid(TForm10), &Form10);

Application->CreateForm(__classid(TForm8), &Form8);

Application->CreateForm(__classid(TForm9), &Form9);

Application->CreateForm(__classid(TForm11), &Form11);

Application->CreateForm(__classid(TForm12), &Form12);

Application->CreateForm(__classid(TForm13), &Form13);

Application->CreateForm(__classid(TForm27), &Form27);

Application->CreateForm(__classid(TForm18), &Form18);

Application->CreateForm(__classid(TForm14), &Form14);

Application->CreateForm(__classid(TForm15), &Form15);

Application->CreateForm(__classid(TForm16), &Form16);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

//-------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit7.h"

//#include "Unit14.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)

{

if (Form2->Visible)

{

Form2->Edit3->Text = Table1Name->AsString;

}

if (Form7->Visible)

{

Form7->Edit3->Text = Table1Name->AsString;

}

//if (Form14->Visible)

//{

//Form14->Edit7->Text = Table1Name->AsString;

//}

//

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormCreate(TObject *Sender)

{

Table1->Active = true;

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit7.h"

//#include "Unit14.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)

{

if (Form2->Visible)

{

Form2->Edit3->Text = Table1Name->AsString;

}

if (Form7->Visible)

{

Form7->Edit3->Text = Table1Name->AsString;

}

//if (Form14->Visible)

//{

//Form14->Edit7->Text = Table1Name->AsString;

//}

//

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormCreate(TObject *Sender)

{

Table1->Active = true;

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm5::FormCreate(TObject *Sender)

{

Table1->Active = true;

}

//---------------------------------------------------------------------------

void __fastcall TForm5::FormDeactivate(TObject *Sender)

{

if (Form2->Visible)

{

Form2->Edit6->Text = Table1->FieldByName("Nom_d")->AsString+ " от "+

Table1->FieldByName("Dt")->AsString;

}

if (Form7->Visible)

{

Form7->Edit4->Text = Table1->FieldByName("Nom_d")->AsString+ " от "+

Table1->FieldByName("Dt")->AsString;

}

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit6.h"

#include "Unit1.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6 *Form6;

//---------------------------------------------------------------------------

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Edit1Change(TObject *Sender)

{

TLocateOptions SearchOptions;

SearchOptions<<loCaseInsensitive<<loPartialKey;

Table1->Locate("Name",Edit1->Text,SearchOptions);

}

//---------------------------------------------------------------------------

void __fastcall TForm6::Table1AfterScroll(TDataSet *DataSet)

{

//Label1->Caption= "Поиск";

}

//---------------------------------------------------------------------------

void __fastcall TForm6::FormDeactivate(TObject *Sender)

{

// if (Form12->Visible)

//{

//Form12->Edit1->Text = Table1->FieldByName("Name")->AsString;

//Form12->Edit2->Text = Table1->FieldByName("Kod")->AsString;

//Form7->Edit11->Text = Table1->FieldByName("Kod")->AsString;

//}

//if (Form10->Visible)

//{

//Form10->Edit4->Text = Table1->FieldByName("Nomen")->AsString;

//Form10->Edit8->Text = Table1->FieldByName("Cena")->AsString;

//Form10->Edit7->Text = Table1->FieldByName("Kod")->AsString;

//}

}

//---------------------------------------------------------------------------

#include <vcl.h>

#include <math.h>

#include <stdio.h>

#pragma hdrstop

#include "Unit7.h"

#include "Unit1.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit18.h"

//#include "Unit18.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm7 *Form7;

//---------------------------------------------------------------------------

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button1Click(TObject *Sender)

{

if (!Form3->Visible) Form3->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button4Click(TObject *Sender)

{

DateTimePicker1->Date = Date();

Table1->Append();

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button3Click(TObject *Sender)

{

if (!Form4->Visible) Form4->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button7Click(TObject *Sender)

{

Table2->Active= true;

Table2->Filter = "Nom='"+Edit5->Text+"'";

Table2->Filtered =true;

Table2->First();

// Table2->First();

float ss=0;

while (!Table2->Eof)

{

ss=ss+Table2Sum->AsFloat;

Table2->Next();

}

Table2->First();

Label16->Caption=FloatToStr(ceil(ss*118)/100);

Label17->Caption=FloatToStr(ceil(ss*18)/100);

Table1->Edit();

Table1Nom->AsString = Edit5->Text;

Table1Dt1->AsDateTime=DateTimePicker1->Date;

Table1Platel->AsString = Edit3->Text;

Table1Dogov->AsString=Edit4->Text;

Table1Sklad->AsString=Edit6->Text;

Table1Vid_otg->AsString=ComboBox1->Text;

Table1Zac_av->AsString=ComboBox2->Text;

Table1Nalogy->AsString=ComboBox3->Text;

Table1Typ_cen->AsString=ComboBox4->Text;

Table1->FieldByName("Vse")->AsFloat = StrToFloat(Label16->Caption);

Table1->FieldByName("Nds")->AsFloat = StrToFloat(Label17->Caption);

Table1->FieldByName("Komm")->AsString = Edit1->Text;

Table1->Post();

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button8Click(TObject *Sender)

{

Table2->Append();

Table2->Edit();

Table2Nom->AsString = Edit5->Text;

Table2Nds->AsInteger = 18;

//Table2->Post();

Table2->Edit();

}

//---------------------------------------------------------------------------

void __fastcall TForm7::FormShow(TObject *Sender)

{

Table1->Active=true;

Table2->Active=true;

float ss;

DateTimePicker1->Date=Table1Dt1->AsDateTime;

Edit5->Text=Table1Nom->AsString;

Edit3->Text=Table1Platel->AsString;

Edit4->Text=Table1Dogov->AsString;

Edit6->Text=Table1Sklad->AsString;

ComboBox1->Text=Table1Vid_otg->AsString;

ComboBox2->Text=Table1Zac_av->AsString;

ComboBox3->Text=Table1Nalogy->AsString;

ComboBox4->Text=Table1Typ_cen->AsString;

Table2->Active= true;

Table2->Filter = "Nom='"+Edit5->Text+"'";

Table2->Filtered =true;

Table2->First();

// Table2->First();

ss=0;

while (!Table2->Eof)

{

ss=ss+Table2Sum->AsFloat;

Table2->Next();

}

Table2->First();

Label16->Caption=FloatToStr(ceil(ss*118)/100);

Label17->Caption=FloatToStr(ceil(ss*18)/100);

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Table2CalcFields(TDataSet *DataSet)

{

Table2Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;

Table2Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat

*Table2Nds->AsInteger)/100;

Table2Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Table1AfterScroll(TDataSet *DataSet)

{

float ss;

DateTimePicker1->Date=Table1Dt1->AsDateTime;

Edit5->Text=Table1Nom->AsString;

Edit3->Text=Table1Platel->AsString;

Edit4->Text=Table1Dogov->AsString;

Edit6->Text=Table1Sklad->AsString;

ComboBox1->Text=Table1Vid_otg->AsString;

ComboBox2->Text=Table1Zac_av->AsString;

ComboBox3->Text=Table1Nalogy->AsString;

ComboBox4->Text=Table1Typ_cen->AsString;

Table2->Active= true;

Table2->Filter = "Nom='"+Edit5->Text+"'";

Table2->Filtered =true;

Table2->First();

// Table2->First();

ss=0;

while (!Table2->Eof)

{

ss=ss+Table2Sum->AsFloat;

Table2->Next();

}

Table2->First();

Label16->Caption=FloatToStr(ceil(ss*118)/100);

Label17->Caption=FloatToStr(ceil(ss*18)/100);

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button6Click(TObject *Sender)

{

Form7->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button2Click(TObject *Sender)

{

if (!Form5->Visible) Form5->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button5Click(TObject *Sender)

{

Table1->Filter = "Nom='"+Edit5->Text+"'";

Table1->Filtered=true;

Table2->Filter = "Nom='"+Edit5->Text+"'";

Table2->Filtered=true;

Form18->QuickRep1->Preview();

Table1->Filtered=false;

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit8.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm8 *Form8;

//---------------------------------------------------------------------------

__fastcall TForm8::TForm8(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit9.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

//---------------------------------------------------------------------------

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm9::FormShow(TObject *Sender)

{

Table1->Active=true;

Table2->Active=true;

Table2->Filter="Nom ='"+DBEdit1->Text+"'";

Table2->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm9::Table1AfterScroll(TDataSet *DataSet)

{

Table1->Active=true;

Table2->Active=true;

Table2->Filter="Nom ='"+DBEdit1->Text+"'";

Table2->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm9::Table2CalcFields(TDataSet *DataSet)

{

Table2->Active= true;

//Table2->Edit();

Table2Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;

Table2Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat

*Table2Nds->AsInteger)/100;

Table2Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#include <Math.hpp>

#include <math.h>

#include <stdio.h>

#pragma hdrstop

#include "Unit10.h"

#include "Unit1.h"

#include "Unit14.h"

#include "Unit15.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm10 *Form10;

//---------------------------------------------------------------------------

__fastcall TForm10::TForm10(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button4Click(TObject *Sender)

{

Table1->Append();

DTsc1->Date = Date();

int nom=0;

nom=Table1->RecordCount;

Edit10->Text =IntToStr(nom+1);

}

//---------------------------------------------------------------------------

void __fastcall TForm10::FormShow(TObject *Sender)

{

Table1->Active=true;

Table2->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button1Click(TObject *Sender)

{

Table2->Filter = "Nom='"+Edit10->Text+"'";

Table2->Filtered =true;

Table2->First();

// Table2->First();

float ss=0;

while (!Table2->Eof)

{

ss=ss+Table2Sum->AsFloat;

Table2->Next();

}

Table2->First();

Edit12->Text = ceil(ss*118)/100;

Edit11->Text = ceil(ss*18)/100;

Table1->Edit();

Table1Nom->AsString= Edit10->Text;

Table1Dt->AsDateTime=DTsc1->Date;

Table1->FieldByName("Prod")->AsString = Edit1->Text;

Table1->FieldByName("Adr")->AsString = Edit2->Text;

Table1->FieldByName("Inn")->AsString = MaskEdit1->Text;

Table1->FieldByName("Grotp")->AsString = Edit4->Text;

Table1->FieldByName("Grpol")->AsString = Edit5->Text;

Table1->FieldByName("Prsc")->AsString = Edit6->Text;

Table1->FieldByName("Pok")->AsString = Edit7->Text;

Table1->FieldByName("Adr2")->AsString = Edit8->Text;

Table1->FieldByName("Inn1")->AsString = MaskEdit2->Text;

Table1->FieldByName("Ruk")->AsString = Edit13->Text;

Table1->FieldByName("Glbuch")->AsString = Edit14->Text;

Table1->FieldByName("Snal")->AsFloat = StrToFloat(Edit11->Text);

Table1->FieldByName("Sum")->AsFloat = StrToFloat(Edit12->Text);

Table1->Post();

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button5Click(TObject *Sender)

{

Table2->Append();

Table2->Edit();

Table2Nom->AsString = Edit10->Text;

Table2Nal->AsInteger = 18;

Table2->Edit();

Table2->Filter = "Nom='"+Edit10->Text+"'";

Table2->Filtered =true;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Table2CalcFields(TDataSet *DataSet)

{

Table2->Active= true;

Table2Sum->AsFloat = Table2Kol->AsInteger*Table2Cen->AsFloat;

Table2Snds->AsFloat = (Table2Kol->AsInteger*Table2Cen->AsFloat

*Table2Nal->AsInteger)/100;

Table2Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Table1AfterScroll(TDataSet *DataSet)

{

Edit10->Text = Table1Nom->AsString;

DTsc1->Date = Table1Dt->AsDateTime;

Edit4->Text = Table1->FieldByName("Grotp")->AsString;

Edit5->Text = Table1->FieldByName("Grpol")->AsString;

Edit6->Text = Table1->FieldByName("Prsc")->AsString;

Edit7->Text = Table1->FieldByName("Pok")->AsString;

Edit8->Text = Table1->FieldByName("Adr2")->AsString;

MaskEdit2->Text = Table1->FieldByName("Inn1")->AsString;

Table2->Active= true;

Table2->Filter = "Nom='"+Edit10->Text+"'";

Table2->Filtered =true;

Table2->First();

// Table2->First();

float ss=0;

while (!Table2->Eof)

{

ss=ss+Table2Sum->AsFloat;

Table2->Next();

}

Edit12->Text = ceil(ss*118)/100;

Edit11->Text = ceil(ss*18)/100;

}

//---------------------------------------------------------------------------

void __fastcall TForm10::Button3Click(TObject *Sender)

{

Table1->Filter = "Nom='"+Edit10->Text+"'";

Table1->Filtered=true;

Form15->QuickRep1->Preview();

Table1->Filtered=false;

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit11.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm11 *Form11;

//---------------------------------------------------------------------------

__fastcall TForm11::TForm11(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm11::Table1AfterScroll(TDataSet *DataSet)

{

Table1->Active=true;

Table2->Active=true;

Table2->Filter="Nom='"+DBText4->Caption+"'";

Table2->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm11::FormShow(TObject *Sender)

{

Table1->Active=true;

Table2->Active=true;

Table2->Filter="Nom='"+DBText4->Caption+"'";

Table2->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm11::Table2CalcFields(TDataSet *DataSet)

{

Table2->Active= true;

Table2Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;

Table2Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat

*Table2Nds->AsInteger)/100;

Table2Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit12.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm12 *Form12;

//---------------------------------------------------------------------------

__fastcall TForm12::TForm12(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm12::FormShow(TObject *Sender)

{

Table1->Active=true;

Table2->Active=true;

Table2->Filter="Nom='"+DBText1->Caption+"'";

Table2->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm12::Table1AfterScroll(TDataSet *DataSet)

{

Table1->Active=true;

Table2->Active=true;

Table2->Filter="Nom='"+DBText1->Caption+"'";

Table2->Filtered=true;

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit13.h"

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm13 *Form13;

//---------------------------------------------------------------------------

__fastcall TForm13::TForm13(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm13::QRSubDetail1AfterPrint(TQRCustomBand *Sender,

bool BandPrinted)

{

Table2->Filter="Nom='"+Table1Nom->AsString+"'";

Table2->Filtered=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm13::Table2CalcFields(TDataSet *DataSet)

{

Table2Sum->AsFloat = Table2Kol->AsInteger*Table2Cena->AsFloat;

Table2Snds->AsFloat = (Table2Kol->AsInteger*Table2Cena->AsFloat

*Table2Nds->AsInteger)/100;

Table2Sum1->AsFloat = Table2Sum->AsFloat + Table2Snds->AsFloat;

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit16.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm16 *Form16;

float s1=0,s2=0;

//---------------------------------------------------------------------------

__fastcall TForm16::TForm16(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm16::QuickRep1BeforePrint(TCustomQuickRep *Sender,

bool &PrintReport)

{

float s1=0,s2=0;

}

//---------------------------------------------------------------------------

void __fastcall TForm16::QRSubDetail1AfterPrint(TQRCustomBand *Sender,

bool BandPrinted)

{

s1=s1+Table1Sum->AsFloat;

s2=s2+Table1Snal->AsFloat;

}

//---------------------------------------------------------------------------

void __fastcall TForm16::GroupFooterBand1BeforePrint(TQRCustomBand *Sender,

bool &PrintBand)

{

QRLabel9->Caption=FloatToStr(s1);

QRLabel11->Caption=FloatToStr(s2);

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit17.h"

#include "Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm27 *Form27;

//---------------------------------------------------------------------------

__fastcall TForm27::TForm27(TComponent* Owner)

: TForm(Owner)

{

}

//----

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit18.h"

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm18 *Form18;

int i=0;

//---------------------------------------------------------------------------

__fastcall TForm18::TForm18(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm18::QRSubDetail2BeforePrint(TQRCustomBand *Sender,

bool &PrintBand)

{

i++;

QRLabel16->Caption=IntToStr(i);

}

//---------------------------------------------------------------------------

void __fastcall TForm18::QuickRep1AfterPrint(TObject *Sender)

{

i=0;

}

Размещено на Allbest.ru