Процедура ОбработкаПроведения()

ВыбратьСтроки();

Пока ПолучитьСтроку() = 1 Цикл

Операция.НоваяПроводка();

Операция.Дебет.Счет = СчетПоКоду("20",ПланыСчетов.Основной);

Операция.Дебет.ВидыНоменклатуры = "Продукция";

Операция.Кредит.Счет = СчетПоКоду

("10.1",ПланыСчетов.Основной);

Операция.Кредит.Материалы = Материал;

Операция.Кредит.МестаХранения = "Основнойсклад";

Операция.Количество = Колво;

Операция.Сумма = Сумма;

Операция.СодержаниеПроводки = "Списание матерьялов в производство";

КонецЦикла;

Операция.НоваяПроводка();

Операция.Дебет.Счет = СчетПоКоду("43",ПланыСчетов.Основной);

Операция.Дебет.Номенклатура = Наименование;

Операция.Дебет.МестаХранения = "Основнойсклад";

Операция.Кредит.Счет = СчетПоКоду("20",ПланыСчетов.Основной);

Операция.Кредит.ВидыНоменклатуры = "Продукция";

Операция.Количество = Штук;

Операция.Сумма = Себестоимость;

Операция.СодержаниеПроводки = "Списание готовой продукции на склад";

Операция.Содержание = "Производство";

Операция.СуммаОперации = Себестоимость*Штук;

Операция.Записать();

КонецПроцедуры

Сначала делаем первую проводку, она делается в цикле так как каждый материал списывается отдельно. Задаем основные субконто проводки, Это ВидНоменклатуры, Материалы и места хранения. Также задаем содержание проводки. Количество и сумма проводки берется в зависимости от количества и суммы списываемого материала. Аналогично выполняется и вторая проводка. В данном случае она выполняется только раз, количество берется из того сколько готовой продукции выпускаем, а сумма от себестоимости товара.

Журнал

Теперь нужно создать журнал, где бы отображалась готовая продукция. журнал создается с помощью конструктора.

Рисунок 29 – Создание журнала.

Далее нужно назвать журнал, как показано на рисунке 30.

Рисунок 30 – Окно конструктора журнала.

В следующем окне выбреются документы которым будет принадлежать данный отчет. В нашем случае нужно выбрать один документ- «СырьеПродукция», как показано на рисунке 31.

Рисунок 31 – Окно конструктора журнала.

В следующем окне нужно выбрать графы для формы. Для этого нужно нажать кнопку «Новый» и выбрать нужные нам значения, как показано на рисунках 32 и 33.

Рисунок 32 – Окно конструктора журнала.

Рисунок 33 – Окно выбора графы журнала.

В результате получится такая форма (Рисунок 34)

Рисунок 34 – Форма журнала.

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

При нажатии на кнопку завершить работу выполняется процедура «ПриЗакрытии()» С помощью которой можно либо закрыть программу либо выйти из журнала.

При нажатии на кнопку печать выполняется процедура «Печать()», которая открывает форму отчета «СкладНаличие» и выводит всю имеющуюся готовую продукцию.

Процедура ПриЗакрытии()

Если Вопрос("Закончить работу?","Да+Нет")="Да" тогда

ЗавершитьРаботуСистемы(1);

Иначе

СтатусВозврата(0);

Возврат;

КонецЕСли;

КонецПроцедуры

Процедура Печать()

ОткрытьФорму("Отчет.СкладНаличие",);

КонецПроцедуры

Отчет

Далее нужно создать отчет. Создается с помощью конструктора, как показано на рисунке 35.

Рисунок 35 – Создание отчета.

Далеесоздать простую форму отчета. Добавит туда поле выбора даты и поле выбора склада, как показано на рисунке 36.

Рисунок 36 – Форма отчета.

При открытии отчета выполняется процедура «ПриОткрытии()», в ней задается рабочая дата.

При нажатии кнопки «Сформировать» выполняется процедура «Сформировать()». Здесь с 43 счета(готовая продукция) Считываются все наименования и выбираются по введенной дате. Далее выполняется запрос на получение суммы и количества «ВыполнитьЗапрос(,Дата_1,43,,,1,,"СК")». Далее выполняется цикл, который выводит в печатную форму значения(наименование, количество и цену).

Перем Таб, БухИтоги_1;

Процедура ПриОткрытии()

Дата_1 = РабочаяДата();

КонецПроцедуры

Процедура Сформировать()

Таб = СоздатьОбъект("Таблица");

Таб.ВывестиСекцию("Шапка");

БухИтоги_1 = СоздатьОбъект("БухгалтерскиеИтоги");

БухИтоги_1.ИспользоватьСубконто(ВидыСубконто.Номенклатура,,,);

БухИтоги_1.ВыполнитьЗапрос(,Дата_1,43,,,1,,"СК");

Ном_ = СоздатьОбъект("Справочник.Номенклатура");

Ном = 1;

БухИтоги_1.ВыбратьСубконто(1,,,,,"Наименование");

Пока БухИтоги_1.ПолучитьСубконто(1) > 0 Цикл

Ном_.НайтиЭлемент(БухИтоги_1.Субконто());

Количество = Формат(БухИтоги_1.СКД("К"),"Ч12.2");

Цена = Формат(БухИтоги_1.СКД("С"),"Ч12.2");

Товар_ = Ном_.Наименование;

Таб.ВывестиСекцию("Строка");

Ном = Ном + 1;

КонецЦикла;

Таб.Опции(0,0,0,0);

Таб.Защита(0);

Таб.ТолькоПросмотр(0);

Таб.ПараметрыСтраницы(1,100,1,5,5,5,5,0,0);

Таб.Показать("Ведомость о наличии готовой продукции на складе","");

КонецПроцедуры

Далее создается печатная форма. Строится секции шапки и строки для вывода продукции. Также выносится дата наличия готовой продукции.

Рисунок 37 – Форма отчета «СкладНаличие».

2.Экономическая часть

2.1 Расчет затрат внедряемого варианта

Целью моей дипломной работы является разработка и внедрение модуля для 1С:Предприятие.Для этого необходим компьютер с процессором (не менее) Pentium 3 и модулем памяти(не менее) 128 Мбайт RAM,работающий под управлением операционной системы Windows XP или более поздней версии. А так же необходимо приобрести программу 1С:Предприятие.Для восстановления и отладки программы вызывается техник-программист. На внедрение разработанного модуля входят затраты на обучение персонала, которые в дальнейшем будут работать с этой системой.

Затраты на вышеперечисленные программное обеспечение показаны в таблице 2.

Таблица 2 – Затраты внедряемого ПО.

№	Наименование статей затрат		Кол-во		Цена	Сумма
1 2 3 4 5 6 7 8	Программное обеспечение: ОС Windows XP Установка программы Отладка программы 1С:Преприятие 7.7 Установка программы Сопровождение программы Антивирусные программы ИТОГО:		1 1		2500 700 500 10000 2000 1500 500 17700	2500 700 500 10000 2000 1500 500 17700
9	Годовой фонд оплаты труда	216000		216000
10	Итого:	233700		233700

Затраты на вышеперечисленные аппаратное обеспечение показаны в таблице 3.

Таблица 3 – Затраты внедряемого аппаратного обеспечения.

№	Наименование статей затрат	Кол-во	Цена	Сумма
1 2 3 4 5	Аппаратное обеспечение: Системный блок Монитор Мышь Клавиатура Принтер ИТОГО:	1 1 1 1 1	15000 9000 200 500 4000 28700	15000 9000 200 500 4000 28700

Затраты на канцелярию показаны в таблице 4.

Таблица 4 – Затраты на канцелярию.

№	Наименование статей затрат	Кол-во	Цена	Сумма
1 2 3 4 5 6	Канцелярия: Стол Шкаф для документов Картридж Бумага Папка Диски ИТОГО:	1 1 1 1 1 1	2000 1500 1200 150 40 30 4920	2000 1500 1200 150 40 30 4920

Базовые затраты составляют:

Программное обеспечение-7000

Аппаратное обеспечение-16000

Канцелярия- 3200

2.2 Расчет экономической эффективности

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

Таблица 5 – Показатели эффективности от внедрения проекта

Наименование статей и затрат	Затраты		Абсолютное изменение затрат
Наименование статей и затрат	Базовый	Внедряемый	Абсолютное изменение затрат
Капитальные затраты в том числе: Программное обеспечение	23000	40700	17700
Текущие расходы: Канцелярия Годовой фонд оплаты труда	3200 216000	4920 216000	1720
Итого	261620	261620

При определении экономического эффекта в расчете капитальных и текущих затрат учитываются только те затраты (статьи), которые имеют различие в базовом и внедряемом вариантах

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

Или по формуле:

Где

С – абсолютное изменение затрат, т.е. разница между внедряемым и базовым вариантами в рублях.

Разработка модуля для предприятия по сборке ПК в программе 1С Предприятие (стр. 8 из 9)

2.Экономическая часть

2.1 Расчет затрат внедряемого варианта

2.2 Расчет экономической эффективности