Тотл - трудоемкость отладки программы на ЭВМ,

Тдр - трудоемкость подготовки документации по задаче в рукописи,

Тдо - трудоемкость редактирования, печати и оформления документации по задаче.

Составляющие приведенной формулы определяются, в свою очередь, через условное число операторов Q в разрабатываемом программном обеспечении по формуле

Q =q * С * (1+р), (11.25)

Где С - коэффициент сложности программы (С=0,3),

q - число операторов в программе (q=600),

р - коэффициент коррекции программы в ходе её разработки (p=0,15).

Коэффициент сложности программы С характеризует относительную сложность программируемой задачи по отношению к так называемой типовой задаче, сложность которой принята за единицу (С = 0,3). Коэффициент коррекции программ р характеризует увеличение объёма работ за счёт внесения изменений в алгоритм и программу, изменения состава и структуры информации, а также уточнений, вносимых разработчиком задачи. Значение р может быть принято равным 0.15...0.5.

Т.о. получим,

Q =600*0,3*(1+0,15)=207

Составляющие трудоемкости разработки программы найдем по формулам:

Toa=Q * W/(75...85) * К (11.26)

Tбc=Q/(20...25) * К (11.27)

Tп=Q/(20...25) * К (11.28)

Тотл=Q/(4...5) * К (11.29)

Тдр=Q/(15...20) * К (11.30)

Тдо = 0,75 * Тдр (11.31)

где, W - коэффициент увеличения затрат труда вследствие недостаточного или некачественного описания задачи,

К - коэффициент квалификации разработчика алгоритмов и программ (при стаже работы до двух лет К=0,8, при стаже от двух до трех К=1, при стаже от трёх до пяти лет 1<=1,1... 1,2, при стаже от пяти лет до семи лет К=1,3...1,4, при стаже свыше семи лет К= 1,5...1,6).

Подставим в формулы (11.26)-(11.31) соответствующие значения (W=1.1 и К=0,8), получим:

Toa = 207*1,2 / (76 * 0,8) = 4

Tбc = 207* / (24 *0,8) = 11

Tп = 207* / (24*0,8) = 11

Тотл = 207/ (4,5 *0,8) = 58

Тдр = 207 / (20 *0,8) = 13

Тдо = 0,75 * 19 = 10

Плановая прибыль на программу определяется по формуле:



Пр = Спр * Нп, (11.32)

где, Спр - себестоимость программы,

Нп - норма прибыли проектной организации (при отсутствии данных м.б. принята Нп=0,25...0,3)

11.6 Определение себестоимости создания программного продукта

Себестоимость программы определяется по формуле:

Спр = Зрз * F + Зот, (11.33)

где, F - коэффициент накладных расходов проектной организации (F=1.15...1.2),

Зот - затраты на отладку программы.

Затраты на отладку программы определяются по формуле:

Зот= Тотл * Sмч, (11.34)

где, Тотл - трудоемкость отладки программы, час (определяется по типовым нормам времени для программирования задач на ЭВМ (11.29)).

Оптовая цена программы определяется по формуле:

Цо=Спр+Пр (11.35)

Т.о. получим:

Трудоёмкость разработки программы:

Трз = 4 + 11 + 11 + 58 + 13 + 10 = 105 ч,



Затраты на заработную плату разработчиков программы:

Зрз = 105*1000*(1+0,4)*(1+0,15)*(1+0,44) = 244 471,

Затраты на отладку программы:

Зот = 58*203,954 = 11 727,

Себестоимость программы:

Спр = 244 471*1,2 + 11 727 = 305 093р.

Плановая прибыль на программу:

Пр = 305 093*0,3 = 91528р,

Оптовая цена программы:

Цо = 305 093 + 91528= 396 621р,

Отпускная цена программы:

Цпр = 396 621 + (244 471+ 91528)*0.2 = 463 820р,

Суммарные капитальные затраты на разработку и внедрение программы:

Ко = 8 415 + 463 820 =472 235р



11.7 Годовой экономический эффект и срок возврата инвестиций

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

Эф = Пу - Е * Ко = Пу - Е * (Кз + Цпр), (11.36)

где, Е - коэффициент эффективности, равный ставке за кредиты на рынке долгосрочных кредитов (Е=0,25)

Эф= 582 985р - 0,25*(8 415 + 463 820р) = 464 962р

Срок возврата инвестиций определяется по формуле:

Тв = Ко/Пу (11.37)

Тв = 472 235/ 582 985р = 1,02.

Полученные результаты сведены в таблицу 11.1.

Таблица 11.1

Технико-экономические показатели проекта

Наименование показателя	Варианты
	Базовый	Проектный
1. Трудоёмкость решения задачи, час	2	0,09
2. Периодичность решения задачи, раз/год	253	253
3. Годовые текущие затраты, связанные с решением задачи, руб.	799 778	28 152
4. Отпускная цена программы, руб.	----	463 820
5. Прирост условной прибыли, руб.	----	582 985
6. Ожидаемый годовой экономический эффект, руб.	----	464 962
7. Срок возврата инвестиций, лет	----	1,02

ЗАКЛЮЧЕНИЕ

Результатом выполнения дипломного проекта явилось создание документов для автоматизированного учета готовой продукции на МЗКТ на основе программного продукта «1С: Предприятие». Важной особенностью разработанных документов является хранение и систематизация по отдельным группам информации о хозяйственной деятельности предприятия в сфере учета готовой продукции. Кроме того, внедренная разработка, позволила полностью автоматизировать такие операции как, оформление операций и проводок, ведение аналитического, валютного и количественного учета. На основании автоматически составляемых данных по этим аспектам бухгалтерской деятельности возможно автоматическое составление внешних и внутренних отчетностей по учету готовой продукции и деятельности предприятия в целом. Это значительно облегчает работу бухгалтера связанную с ежеквартальным представлением отчетностей в органы государственного контроля, а также его обязанности по анализу хозяйственной деятельности предприятия.

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



СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Охрана окружающей среды: Учеб. для техн. спец. вузов / С.В. Белов, Ф.А. Барбинов, А.Ф. Козьяков и др. под ред. С.В. Белова. 2-е изд., испр. и доп.-М.: Высш. шк., 1991.-319с.: ил.

2. Инженерная экология: Общий курс в двух томах, том 1: Теоретические основы инженерной экологии/ И.И. Мазур, О.И. Молдаванов, В.Н. Шишов/

3. Разрешение №155р на выброс загрязняющих веществ в атмосферу стационарными источниками от 05.02.03. Выдано Министерством природных ресурсов и охраны окружающей среды и Минским городской комитет природных ресурсов и охраны окружающей среды для ПРУП «Минский завод колесных тягачей» 220021 г. Минск, пр. Партизанский, 150

4. 1С:Предприятие. Версия 7.7. Руководство пользователя. ч.1. - М., 1999

5. 1С:Предприятие. Версия 7.7. Руководство пользователя. ч.2. - М., 1999

6. 1С:Предприятие. Версия 7.7. Конфигурирование и администрирование. ч.1. - М., 1999

7. 1С:Предприятие. Версия 7.7. Конфигурирование и администрирование. ч.2. - М., 1999

8. 1С:Предприятие. Версия 7.7. Описание встроенного языка. ч.1. - М., 1999

9. 1С:Предприятие. Версия 7.7. Описание встроенного языка. ч.2. - М., 1999

10. Охрана труда в вычислительных центрах / Сибаров Ю.Г., Сколотнев Н.Н. и др. - М.: Машиностроение, 1990

11. ГОСТ 12.1.038-82. ССБТ. Электробезопасность

12. Средства защиты в машиностроении: Расчет и проектирование: Справочник / С.В. Белов, А.Ф. Козьяков, О.Ф. Партолин и др.; Под ред. С.В. Белова.- М.: Машиностроение, 1989

13. ГОСТ 12.1.005-88. ССБТ. Общие санитарно-гигиенические требования к воздуху рабочей зоны. - М.: Издательство стандартов, 1984

14. СНиП 2.04.05-91. Отопление, вентиляция и кондиционирование воздуха. Нормы проектирования. Госстрой СССР. - М.: АПП ЦИТП,1992

15. СНиП 12.1.003-83. ССБТ. Пожарная безопасность. Общие требования. - М.: Издательство стандартов, 1984

16. СНБ-2.04.05-98. Естественное и искусственное освещение. - М.: Стройиздат, 1998

17. ГОСТ 12.2.032-78. ССБТ. Рабочее место при выполнении работы сидя.. Общие эргономические требования. - М.: Издательство стандартов, 1981

18. СНиП 2.01.02-85. Противопожарные нормы. - М.: Стройиздат, 1985

19. Охрана окружающей среды / под ред. Белова С.В. - М.: Высшая школа, 1983

20. Определение экономической эффективности разработки программного обеспечения. Методическое пособие.

ПРИЛОЖЕНИЕ 1

Модуль формы документа «Приемо-сдаточная накладная»

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

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

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

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

Таб.Показать(«Печать»,»»);

КонецПроцедуры // Печать

Процедура ПриВыбореМодели()

Если Модель.Выбран() = 1 Тогда

Обозначение=Модель.Наименование;

Наименование=Модель.Родитель.Наименование;

КонецЕсли;

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

Процедура ПриЗаписи()

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

Операция.Содержание = «Передача получателю» +» «+ Модель;

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



Приложение 2

Модуль документа «Приемо-сдаточная накладная»

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

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

Если Цена <> 0 Тогда

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

Операция.Дебет.Счет = СчетПоКоду("40.1");

Операция.Дебет.Субконто2 = Получатель;

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

Операция.Кредит.Счет = СчетПоКоду("20");

Операция.Кредит.ВидыДеятельноСти = Товар.ВидПоОКДП;

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

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

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

Операция.НомерЖурнала = "ТВ";

КонецЕсли;

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

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



ПРИЛОЖЕНИЕ 3

Модуль формы справочника Сотрудники

Перем Меню;

Функция УправлениеКнопками()

Если ТекущийЭлемент().Выбран() = 0 Тогда

Форма.КнопкаПоСотруднику.Доступность(0);

Форма.КнопкаПоВсем.Доступность(0);

Иначе

Фор.КнопкаПоСотруднику.Доступность(?(ТекущийЭлемент().ЭтоГруп

па()=0,1,0));

Форма.КнопкаПоВсем.Доступность(1);

КонецЕсли;

Возврат "";

КонецФункции //УправлениеКнопками()

Процедура СформироватьНовыйПриказ()

ВидДокумента = "";

Если Меню.ВыбратьЗначение(ВидДокумента,"Выберите вид

приказа",,,1)=1 Тогда

Расшифровка = СоздатьОбъект("СписокЗначений");

Расшифровка.Установить("Сотрудник", ТекущийЭлемент());

глРасшифровка = Расшифровка;

глФлагРасшифровки = 1;

ОткрытьФорму("Документ."+ВидДокумента);

глФлагРасшифровки = 0;

КонецЕсли;

КонецПроцедуры //СформироватьНовыйПриказ

Процедура ПостроитьОтчетПоСотруднику()

Параметры:

Возвращаемое значение:

Нет.

Вызывается из:

Описание:

Процедура ПостроитьОтчетПоСотруднику()

Расшифровка = СоздатьОбъект("СписокЗначений");

Расшифровка.Установить("Отчет", "ОтчетПоСотрудникам");

Расшифровка.Установить("ДатаОтчета", РабочаяДата());

Расшифровка.Установить("Сотрудник", ТекущийЭлемент());

глРасшифровка = Расшифровка;

глФлагРасшифровки = 1;

глОбновить = 0;

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

глФлагРасшифровки = 0;

КонецПроцедуры //ПостроитьОтчетПоСотруднику

Процедура ПостроитьОтчетПоВсем()

Параметры:

Возвращаемое значение:

Нет.

Вызывается из:

Описание:

Процедура ПостроитьОтчетПоВсем()

Расшифровка = СоздатьОбъект("СписокЗначений");

Расшифровка.Установить("Отчет", "ОтчетПоСотрудникам");

Расшифровка.Установить("ДатаОтчета", РабочаяДата());

Расшифровка.Установить("Сотрудник", "");

глРасшифровка = Расшифровка;

глФлагРасшифровки = 1;

глОбновить = 0;

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

глФлагРасшифровки = 0;

КонецПроцедуры //ПостроитьОтчетПоВсем

Процедура ПриОткрытии() //предопределенная

Меню = СоздатьОбъект("СписокЗначений");

Меню.ДобавитьЗначение("ПриказОПриемеНаРаботу","Приказ о

приеме на работу");

Меню.ДобавитьЗначение("ПриказОКадровыхИзменениях","Приказ о

кадровых изменениях");

Меню.ДобавитьЗначение("ПриказОбИзмененииОкладов","Приказ об

изменении окладов");

Меню.ДобавитьЗначение("ПриказОбУвольнении","Приказ об

увольнении");

РедактироватьВДиалоге(1,1);

КонецПроцедуры //ПриОткрытии



ПРИЛОЖЕНИЕ 4

Модуль формы элемента справочника Сотрудники

Процедура ПриВыбореСчета()

Для А = 1 По 3 Цикл

НазначитьТип("Субконто"+А,СчетЗатрат.ВидСубконто(А));

КонецЦикла;

КонецПроцедуры //ПриВыбореСчета

Процедура ВводНового(Копирование)

Если Копирование = 1 Тогда

Возврат;

КонецЕсли;

ТипСотрудника = 1; //основной

ТипВычета = Перечисление.ТипыВычетов.ММОТ1;

Подразделение =

глЗначениеПоУмолчанию("ОсновноеПодразделение");

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

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

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

Форма.ИспользоватьЗакладки(1);

Форма.Закладки.ДобавитьЗначение(1,"Общие");

Форма.Закладки.ДобавитьЗначение(2,"Начисление з/пл");

Форма.Закладки.ДобавитьЗначение(3,"Дополнительно");

Форма.Закладки.ДобавитьЗначение(4,"Данные с пред.места раб.");

Форма.Закладки.ДобавитьЗначение(5,"Паспорт");

Форма.ИспользоватьСлой("Основной, Общий",2);

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

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

Процедура ПриВыбореЗакладки(Ном,Значение);

Если Значение = 1 Тогда

Форма.Код.Доступность(1);

Форма.Наименование.Доступность(1);

Форма.ИспользоватьСлой("Основной, Общий",2);

ИначеЕсли Значение = 2 Тогда

Форма.Код.Доступность(0);

Форма.Наименование.Доступность(0);

Форма.ИспользоватьСлой("Основной, ЗП",2);

ИначеЕсли Значение = 3 Тогда

Форма.Код.Доступность(0);

Форма.Наименование.Доступность(0);

Форма.ИспользоватьСлой("Основной, Дополнительно",2);

ИначеЕсли Значение = 4 Тогда

Форма.Код.Доступность(0);

Форма.Наименование.Доступность(0);

Форма.ИспользоватьСлой("Основной, ПредМестоРаб",2);

ИначеЕсли Значение = 5 Тогда

Форма.Код.Доступность(0);

Форма.Наименование.Доступность(0);

Форма.ИспользоватьСлой("Основной, Паспорт",2);

КонецЕсли;

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

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



ПРИЛОЖЕНИЕ 5

Модуль формы документа «Приказ-наряд»

Перем НовДок;

Перем Кол;

Перем КодВал;

Процедура ДобРекв(Стр,Рекв,Подск1,Подск2)

Если ПустаяСтрока(Стр)=0 Тогда

Подск=Подск1+Подск2;

Иначе

Подск=Подск2;

КонецЕсли;

Если ПустаяСтрока(Рекв)=0 Тогда

Стр=Стр+Подск+СокрП(Рекв);

КонецЕсли;

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

Процедура ВводНового();

Курсвал=1;

Валюта = "Белорусские рубли";

КодВал = "906";

НовДок=1;

ПредПолучатель = 0;

РасчетныйСчет = ВосстановитьЗначение("НакладнаяРасчетныйСчет");

Если РасчетныйСчет.Выбран() = 0 Тогда

РасчетныйСчет = Константа.ОсновнойБанковскийСчет;

СохранитьЗначение("НакладнаяРасчетныйСчет",РасчетныйСчет);

КонецЕсли;

Склад=Константа.ОсновнойСклад;

МОЛ=Константа.ОсновнойМОЛ;

ТипНакладной=Перечисление.Тип.ОтгрузкаПокупателю;

ВРеализации=НайтиПоНаим(ВариантыРеализации,"Опт");

Разрешил=Константа.Разрешил;

Произвел=Константа.Произвел;

Форма.Подбор.Видимость(0);

Форма.Подбор.Доступность(0);

Форма.ВРеализации.Видимость(1);

Форма.ВРеализации.Доступность(1);

Форма.ПодписьВР.Видимость(1);

Форма.Флаг42.Видимость(0);

Форма.Флаг42.Доступность(0);

Форма.ПодписьФлага.Видимость(0);

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

Процедура ПриРедактированииНовойСтроки()

ОбоснованиеТабл=Обоснование;

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

Процедура ПриВыбореВалюты()

Форма.КурсВал.Видимость(1);

КурсВал = Валюта.Курс.Получить(ДатаДок);

КодВал = Валюта.Код;

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

Процедура ПриВыбореСчетаКонтрагента()

Если СчетКонтрагента.Выбран() = 1 Тогда

Если СчетКонтрагента.Владелец <> Контрагент Тогда

Контрагент = СчетКонтрагента.Владелец;

КонецЕсли;

Если Договор.Выбран() = 0 Тогда

ИначеЕсли Договор.Владелец <> Контрагент Тогда

Договор = "";

КонецЕсли;

КонецЕсли;

КонецПроцедуры //ПриВыбореСчетаКонтрагента

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

Форма.КнопкаПоУмолчанию("ОК");

Сч46 = СчетПоКоду("46");

Сч45 = СчетПоКоду("45.1");

Форма.Подбор.Доступность(0);

Форма.Подбор.Видимость(0);

Форма.Товар.ВыполнятьФормулуТолькоПриИзменении(1);

Форма.Количество.ВыполнятьФормулуТолькоПриИзменении(1);

Форма.Цена.ВыполнятьФормулуТолькоПриИзменении(1);

Форма.СуммаСНДС.ВыполнятьФормулуТолькоПриИзменении(1);

Форма.Стоимость.ВыполнятьФормулуТолькоПриИзменении(1);

Форма.Вреализации.Видимость(1);

Форма.Вреализации.Доступность(1);

Форма.ПодписьВР.Видимость(1);

Если (Константа.МетодОпределенияВыручки.Получить(ДатаДок)=2)

Тогда

Форма.Флаг42.Видимость(1);

Форма.Флаг42.Доступность(1);

Форма.ПодписьФлага.Видимость(1);

Иначе

Форма.Флаг42.Видимость(0);

Форма.Флаг42.Доступность(0);

Форма.ПодписьФлага.Видимость(0);

КонецЕсли;

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

Процедура ВводНаОсновании(ДокОснование)

НовДок=1;

Если ДокОснование.Вид()="СчетТовары" Тогда

//ЦеныВклНДС = ДокОснование.ЦеныВклНДС;

Получатель = ДокОснование.Клиент;

МОЛ=ДокОснование.МОЛ;

Склад=ДокОснование.Склад;

РасчетныйСчет = Константа.ОснБанковскийСчет;

ТипНакладной=Перечисление.Тип.ОтгрузкаПокупателю;

Разрешил=Константа.Разрешил;

Произвел=Константа.Произвел;

Форма.ВРеализации.Видимость(1);

Форма.ВРеализации.Доступность(1);

Форма.ПодписьВР.Видимость(1);

ВРеализации=НайтиПоНаим(ВариантыРеализации,"Опт");

Если (Константа.МетодОпределенияВыручки.Получить(ДатаДок)=2)

Тогда

Форма.Флаг42.Видимость(1);

Форма.Флаг42.Доступность(1);

Форма.ПодписьФлага.Видимость(1);

Иначе

Форма.Флаг42.Видимость(0);

Форма.Флаг42.Доступность(0);

Форма.ПодписьФлага.Видимость(0);

КонецЕсли;

ДокОснование.ВыбратьСтроки();

Пока ДокОснование.ПолучитьСтроку()=1 Цикл

НоваяСтрока();

Товар=ДокОснование.Товар;

Количество=ДокОснование.Количество;

ЕдИзм=ДокОснование.ЕдИзмер;

Цена=ДокОснование.Отпускная;

СуммаБезНДС=ДокОснование.Сумма;

КонецЦикла;

КонецЕсли;

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

Процедура ПриВыбореОтгрузки()

Форма.Вреализации.Видимость(1);

Форма.Вреализации.Доступность(1);

Форма.ПодписьВР.Видимость(1);

Если (Константа.МетодОпределенияВыручки.Получить(ДатаДок)=2)

Тогда

Форма.Флаг42.Видимость(1);

Форма.Флаг42.Доступность(1);

Форма.ПодписьФлага.Видимость(1);

КонецЕсли;

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

Функция ПроверкаКоличества()

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

Ит.ВключатьСубсчета(1);

Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,2);

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

Ит.ИспользоватьСубконто(ВидыСубконто.МОЛ,МОЛ,2);

СчетКредита=?(Товар.Признак=1,СчетПоКоду("40.1"),СчетПоКоду("41

"));

Если НовДок=1 Тогда

Ит.ВыполнитьЗапрос(,ДатаДок,СчетКредита,,,,,5);

Ит.ВыбратьСчета();

Ит.ПолучитьСчет();

Кол = Ит.СКД("К");

Сум = Ит.СКД("С");

Иначе

Ит.ВыполнитьЗапрос(ТекущийДокумент(),ТекущийДокумент(),СчетКр

едита,,,,,5);

Ит.ВыбратьСчета();

Ит.ПолучитьСчет();

Кол = Ит.СНД("К");

Сум = Ит.СНД("С");

КонецЕсли;

Возврат Кол;

КонецФункции

Функция ПроверкаКоличества()

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

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

Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,2)

Ит.ИспользоватьСубконто(ВидыСубконто.МОЛ,МОЛ,2);

СчетКредита=?(Товар.Признак=

1,СчетПоКоду("40.1"),СчетПоКоду("41"));

Ит.ВыполнитьЗапрос(,ТекущаяДата(),,,,,,"К");

Кол = Ит.СКД("К");

Ит.ВключатьСубсчета(1);

Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,2);

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

Ит.ИспользоватьСубконто(ВидыСубконто.МОЛ,МОЛ,2);

СчетКредита=?(Товар.Признак=СчетПоКоду("40.1"),СчетПоКоду("41")

);

Если НовДок=1 Тогда

Ит.ВыполнитьЗапрос(,ДатаДок,СчетКредита,,,,,5);

Ит.ВыбратьСчета();

Ит.ПолучитьСчет();

Кол = Ит.СКД("К");

Сум = Ит.СКД("С");

Иначе

Ит.ВыполнитьЗапрос(ТекущийДокумент(),ТекущийДокумент(),СчетКр

едита,,,,,5);

Ит.ВыбратьСчета();

Ит.ПолучитьСчет();

Кол = Ит.СНД("К");

Сум = Ит.СНД("С");

КонецЕсли;

Возврат Кол;

КонецФункции

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

Стоимость =Окр(Количество*Цена*(1+ОптНадбавка/100),2,1);

СуммаНдс = Окр(Стоимость*СтавкаНдс/100,2,1);

Всего = Стоимость+СуммаНдс;

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

Процедура ПриСменеКоличества()

Если(Константа.РазрешитьОтрицательныеОстатки=Перечисление.Буле

во.Нет) тогда

Если (Количество>ПроверкаКоличества()) Тогда

Предупреждение("Количество выписанного товара не может

превышать количество на складе");

Количество=ПроверкаКоличества();

Пересчет();

Возврат;

Иначе

Пересчет();

КонецЕсли;

Иначе

Пересчет();

КонецЕсли;

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

Процедура ПриВыбореТовара()

ЕдИзм=Товар.ЕдИзм;

Префикс=Товар.Префикс;

Номер=Товар.Номер;

Суффикс=Товар.Суффикс;

КП=Товар.КП;

Количество=ПроверкаКоличества();

Если (Количество=0) Тогда

Предупреждение("Данное наименование на складе не

обнаружено!!!",3);

//Предупреждение("У МОЛа "+ МОЛ+" на складе "+СКлад+ " не

обнаружено: "+ Товар);

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

КонецЕсли;

Если (Товар.Признак=2) Тогда //тара

_Цена=Товар.Себестоимость;

Иначе //товар, продукция

С_стоимость=Товар.Себестоимость;

Если (ВРеализации.Наименование="Розница") тогда

_Цена=Товар.ЦенаРозн.Получить(ДатаДок);

Иначе

_Цена=Товар.Цена.Получить(ДатаДок);

КонецЕсли;

КонецЕсли;

Пересчет();

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

Процедура Подбор()

ОткрытьПодбор("Справочник.Номенклатура","Продажа");

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

Процедура Приложение()

Перем ПередавИтог;

ПередавИтог=0;

Док=СоздатьОбъект("Документ.ПриложениеКПриказуНаряду");

Док.Новый();

Док.ТекущийДокумент();

ОткрытьФорму("Документ.ПриложениеКПриказуНаряду");

Форма.Док.Видимость(1);

Док.НоваяСтрока();

Док.Записать();

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

Процедура ОбработкаПодбора(ВыбрТовар)

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

Ит.ВключатьСубсчета(1);

Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,Склад,2);

Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура,ВыбрТовар,2)

;

Ит.ИспользоватьСубконто(ВидыСубконто.МОЛ,МОЛ,2);

СчетКредита = ?(Товар.Признак =

1,СчетПоКоду("40.1"),СчетПоКоду("41"));

Ит.ВыполнитьЗапрос(,ДатаДок,СчетКредита,,,,,5);

Ит.ВыбратьСчета();

Ит.ПолучитьСчет();

_Кол = Ит.СКД("К");

Кол=_Кол;

Если ВвестиЧисло(Кол,"Введите количество",10,3)=0 Тогда

Возврат;

КонецЕсли;

Если Кол > 0 Тогда

НоваяСтрока();

Товар = ВыбрТовар;

Если(Константа.РазрешитьОтрицательныеОстатки=Перечисление.Буле

во.Нет) и (кол>_Кол) Тогда

Количество = Мин(_Кол,Кол);

ИначеЕсли(Константа.РазрешитьОтрицательныеОстатки=Перечислени

е.Булево.Да) тогда

Количество=Кол;

КонецЕсли;

Количество = Кол;

Если (Товар.Признак=2) Тогда

_Цена=Товар.Себестоимость;

Иначе

С_стоимость=Товар.Себестоимость;

_Цена=Товар.Цена.Получить(ДатаДок);

КонецЕсли;

Пересчет();

АктивизироватьСтроку();

КонецЕсли;

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

Процедура ПриВыбореСклада()

Если Склад.Выбран() = 1 Тогда

СохранитьЗначение("НакладнаяСклад",Склад);

Иначе

Склад = ВосстановитьЗначение("НакладнаяСклад");

КонецЕсли;

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

Процедура ПриВыбореРасчетногоСчета()

РС = СоздатьОбъект("Справочник.БанковскиеСчета");

Если РС.Выбрать("Укажите расчетный счет","ФормаСписка") = 1

Тогда

РасчетныйСчет = РС.ТекущийЭлемент();

СохранитьЗначение("ПлатежноеПоручениеРасчетныйСчет",Расчетный

Счет);

КонецЕсли;

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

Процедура ПриВыбореМОЛ()

Если МОЛ.Выбран() = 1 Тогда

СохранитьЗначение("НакладнаяМОЛ",МОЛ);

Иначе

МОЛ = ВосстановитьЗначение("НакладнаяМОЛ");

КонецЕсли;

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

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

Если (ВРеализации.Выбран()=0) Тогда

Предупреждение("В шапке документа не указан вариант

реализации.Накладная не будет сформирована");

Иначе

АдресТелефон="";

ДоРекв(АдресТелефон,Константа.ЮрАдресОрганизации.Получить(Дат

аДок),"","Адрес: ");

ДобРекв(АдресТелефон,Константа.ТелефоныОрганизации.Получить(Д

атаДок),", ","тел.: ");

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

Таб.ИсходнаяТаблица("Таблица1");

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

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

Ном=0;

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

Ном=Ном+1;

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

Если (Товар.Признак=0) и

(Товар.Приобрели=Перечисление.МестоПриобретения.Из_за_РБ) и

(ВРеализации.Наименование="Опт") Тогда

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

ИначеЕсли (Товар.Признак=1) и

(ВРеализации.Наименование="Производство") тогда

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

ИначеЕсли (Товар.Признак=0) и

(Товар.Приобрели=Перечисление.МестоПриобретения.РБ) и

(ВРеализации.Наименование="Опт") тогда

Таб.ВывестиСекцию("КупленРБ");

КонецЕсли;

КонецЦикла;

Пропись("1cval.spl");

Если КодВал = "906" Тогда

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

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

Иначе

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

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

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

КонецЕсли;

Таб.Опции(0,0,0,0,"ОпцииПечатиНакладной");

Таб.ПовторятьПриПечатиСтроки(36,36);

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

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

Таб.Показать("Печать накладной","");

КонецЕсли;

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

Процедура ПриЗаписи()

Операция.СуммаОперации = Итог("Стоимость");

//ВсегоВал =ПередавИтог;

//ВсегоВал = Окр(Итог("Всего")*КурсВал,-0);

Операция.Содержание = "Отгрузка получателю: "+Получатель;

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

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

...