Создание условий для организации режима труда и отдыха при работе с эвм

 

Режимы труда и отдыха при работе с ПЭВМ организовываются в зависимости от вида и категории трудовой деятельности.

Виды трудовой деятельности разделяются на 3 категории тяжести и напряженности, каждая из которых подразделяется на 3 группы:

- группа А - работа по считыванию информации с экрана ПЭВМ с предварительным запросом;

-  группа Б - работа по вводу информации;

-  группа В - творческая работа в режиме диалога с ПЭВМ.

При выполнении работ в течение рабочей смены, относящихся к разным видам трудовой деятельности, за основную работу с ПЭВМ рекомендуется принять ту, которая занимает не менее 50 % времени в течение рабочей смены или рабочего дня.

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

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

Продолжительность и количество регламентированных перерывов в течение рабочей смены устанавливаются в зависимости от продолжительности смены, вида и категории трудовой деятельности.

Для 8-часовой рабочей смены при работе с ПЭВМ регламентированные перерывы рекомендуется установить:

- для 1 категории работ - через 2 часа от начала рабочей смены и через 2 часа после обеденного перерыва, каждый продолжительностью 15 минут;

-  для 2 категории работ - через 2 часа от начала рабочей смены и через 1.5-2 часа после обеденного перерыва продолжительностью 15 минут каждый или через каждый час работы продолжительностью 10 минут каждый;

-  для 1 категории работ через 1.5-2 часа от начала рабочей и через 1.5-2 часа после обеденного перерыва продолжительностью 20 минут каждый или через каждый час работы продолжительностью 15 минут каждый.

При работе с ПЭВМ в ночную смену (с 22 до 6 часов) независимо от вида и категории трудовой деятельности, продолжительность регламентированных перерывов увеличивается на 60 минут.

При 12-часовой рабочей смене регламентированные перерывы рекомендуется установить в первые 8 часов работы аналогично перерывам при 8-часовой рабочей смене, а в течение последних 4 часов, независимо от вида и категории трудовой деятельности, каждый час работы продолжительностью 15 минут.

Во время регламентированных перерывов целесообразно выполнять комплексы упражнений для снижения нервно-эмоционального напряжения, утомления зрительного анализатора, устранения влияния гиподинамии и сипокинезии, развития познотонического утомления. Комплексы рекомендуется менять один раз в 2-3 недели.

С целью уменьшения отрицательного влияния монотонности работы целесообразно изменять ее содержание.

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

 

Экологичность проекта

 

Человек оказался в ловушке противоречия между своей консервативной биологической сущностью и нарастающим отчуждением от природы. Используя изобретенные им технологии и средства жизнеобеспечения, человек в большей мере освободился от давления естественного отбора и межвидовой конкуренции. Он на несколько порядков превысил биологическую видовую численность и еще в десятки раз - объем использования веществ и энергии для удовлетворения надбиологических потребностей [12].

Огромное увеличение и продолжение роста количества людей отнюдь не связано с повышением их биологического качества. Наоборот, для людей в целом характерны совершенно немыслимые для диких животных в природе: груз наследственных заболеваний, наследственная предрасположенность к заболеваниям, низкий имунно-биологический статус и огромное число инфекций, возрастная хронизация болезней. Проблемы экологии человека все больше становятся проблемами здравоохранения. В частности состояние здоровья Казахстана ухудшается под прессом неблагоприятных и экологических условий. Наибольшую тревогу вызывают:

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

-  заболевания и хронизация, потери трудоспособности и сокращение продолжительности жизни, обусловленные плохими экологическими и гигиеническими условиями проживания и труда, а также курением, алкоголизмом и наркоманией;

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

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

Экологические проблемы человечества тесно сопряжены с экономическими и социальными проблемами. Региональные экологические проблемы часто становятся прямым источником имущественного неравенства, социальных и геополитических коллизий [13].

Перечень проблем, рассмотренные выше, позволяют понять многообразие задач экологии. Важнейшие общие задачи современной экологии в ее широком понимании это:

-   Всеобъемлющая диагностика состояния природы планеты и ее ресурсов; определение порога выносливости живой природы планеты - биосферы по отношению к антропогенной нагрузке, то есть к тем помехам и утратам - изъятию биологических ресурсов, загрязнению среды, изменениям климата, которые наносятся человеческой деятельностью, и выяснение степени обратимости этих изменений.

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

-  Отказ от природопокорительной идеологии; формирование новой идеологии и методологии экоцентризма, связанной с переходом к постиндустриальной цивилизации и направленной на экологизацию экономики, производства, политики, образования.

-  Выработка критериев оптимизации - выбора наиболее согласованного с экологическим императивом и экологически ориентированного социально - экономического развития общества - экоразвития.

Формирование такой стратегии поведения человеческого общества, такой экономики и таких технологий, которые приведут масштабы и характер хозяйственной деятельности в соответствие с экологической выносливостью природы и остановят глобальный экологический кризис [13].

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

Охрана окружающей природной среды складывается из:

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

-  материального стимулирования природоохранной деятельности, стремящегося сделать её экономически выгодной для предприятий;

-  инженерной охраны, разрабатывающей природоохранную и ресурсосберегающую технологию и технику.

Охране подлежат следующие объекты:

-   естественные экологические системы, озоновый слой атмосферы;

-  земля, ее недра, поверхностные и подземные воды, атмосферный воздух, леса и иная растительность, животный мир, микроорганизмы, генетический фонд, природные ландшафты.

Основными принципами охраны окружающей среды являются: приоритет обеспечения благоприятных экологических условий для жизни, труда и отдыха населения; научно обоснованное сочетание экологических и экономических интересов общества; учет законов природы и возможностей самовосстановления и самоочищения ее ресурсов.

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

-   ингредиентное (ингредиент - составная часть сложного соединения или смеси) загрязнение как совокупность веществ, количественно или качественно чуждых естественным биогеоценозам;

-  параметрическое загрязнение (параметр окружающей среды - одно из ее свойств, например уровень шума, освещенности, радиации и т.д.), связанное с изменением качественных параметров окружающей среды;

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

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

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

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

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

ЗАКЛЮЧЕНИЕ

 

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

В работе был продемонстрирован системный подход к исследованию рынка коммуникационных сетей. Был сделан обзор некоторых систем, в частности зарубежная информационная система «Montana», но в ее работе не были учтены некоторые важные факторы, необходимые для современных российских условий. На данный момент автоматизированная информационная система проходит тестирование на предприятии ТОО «Десятка», и после завершения будет производиться полный переход работы предприятия на данную информационную систему.

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

. Была рассмотрена работа предприятия ТОО «Десятка».

. Разработана информационная модель системы.

. Разработана АИС, в среде 1С: Предприятие 8.0.

. Внедрена АИС, в среде 1С: Предприятие 8.0.

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

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

Таким образом, можно сделать вывод, что разработка и внедрение данной системы прошла успешно.

СПИСОК ЛИТЕРАТУРЫ

 

1.   Габец А. П., Гончаров Д. И., Козырев Д. В., Кухлевский Д. С., Радченко М. Г. «Профессиональная разработка в системе 1С:Предприятие 8» - М.: 1С-Паблишинг, 2007. - 808 с.: ил.

2. 1С:Предприятие - Советы - http://subscribe.ru/catalog/tax.buh1c

.   Описание системы 1С:Предприятие 8.0 - http://www.1c80.com/about8-0/opisanie.htm.

.   Основы коммерческой деятельности: Учебное пособие - http://www.Commerciya-world.net/info/Com52.php.

.   Оформление торговых операций - http://www.bl-links.com/main/ek.htm

.   Организация, технология и проектирование торговых предприятий: Учебное пособие - http://www.Try-for-economics.ru/?main=direct&doclick=12.

.   Положение о документах и документообороте в Российской Федерации - http://www.ZakonAndMe.net/polojen17.html.

.   Сборник типовых договоров - http://www.ZakonAndMe.net/filedog.htm.

.   Технологическая платформа "1С:Предприятие 8.0" - направления развития - http://www.avtomatizator.ru/?main=direct&doclick=34.

.   Цены и ценообразование: Учебное пособие - http://www.Try-for-economics.ru/?main=direct&doclick=53.

.   Телефонизация России: Отрасль связи и информации - http://www.Phones-bases.ru/index.htm.

.   Управление организацией - http://www.BusinessStyle.com/index.htm

.   Экономика предприятия торговли и сферы услуг: Уч. Пособие - http://www.Phones-bases.ru/index.htm.

.   Экономика. Учебник по курсу “Экономическая теория”. - http://www.Commerciya-world.net/info/Com29.php.

 

ПРИЛОЖЕНИЕ А

 

Листинг кода

Процедура ПриНачалеРаботыСистемы(Отказ)

Обработки.ОбработкаФормыСпр.ПолучитьФорму("ЗагрузкаФорма").Открыть();

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

РаботаСДокументами

Процедура РассчитатьСумму(СтрокаТабличнойЧасти)Экспорт

СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Количество * СтрокаТабличнойЧасти.Цена;

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

РаботаСоСправочниками

Функция РозничнаяЦена(ЭлементНоменклатуры) Экспорт

Отбор = Новый Структура("Номенклатура",ЭлементНоменклатуры);

ЦенаМатериала = Справочники.Номенклатура.НайтиПоНаименованию("Отбор");

Возврат ЦенаМатериала.Цена;

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

ОбщегоНазначения

// Определяет заполнено ли переданное значение

//

// Параметры:

// Значение - значение, заполенение которого надо проверить

//

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

// Истина - значение не заполнено, ложь - иначе.

//

Функция ЗначениеНеЗаполнено(Значение) Экспорт

Результат = Ложь;

ТипЗначения = ТипЗнч(Значение);

// Сначала примитивные типы

Если Значение = Неопределено Тогда

Результат = Истина;

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

Результат = Истина;

ИначеЕсли ТипЗначения = Тип("Строка") Тогда

Если СокрЛП(Значение) = "" Тогда

Результат = Истина;

КонецЕсли;

ИначеЕсли ТипЗначения = Тип("Число") Тогда

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

Результат = Истина;

КонецЕсли;

ИначеЕсли ТипЗначения = Тип("Дата") Тогда

Если Значение = Дата('00010101') Тогда

Результат = Истина;

КонецЕсли;

ИначеЕсли ТипЗначения = Тип("Булево") Тогда

Результат = Ложь; // Булево будем считать не пустым

//Отдельное определение, так как конструкторов данного типа не существует

ИначеЕсли ТипЗначения = Тип("РежимПроведенияДокумента") Тогда

Если Значение = РежимПроведенияДокумента.Неоперативный или Значение = РежимПроведенияДокумента.Оперативный тогда

Результат = Ложь;

КонецЕсли;

// Для остальных будем считать значение пустым, если оно равно

// дефолтному значению своего типа

Иначе

Если Значение = Новый(ТипЗначения) Тогда

Результат = Истина;

КонецЕсли;

КонецЕсли;

Возврат Результат;

КонецФункции // ЗначениеНеЗаполнено()

// Процедура выполняет стандартные действия при начале выбора спецификации в формах документов.

//

// Параметры:

// Номенклатура - ссылка на справочник, определяет продукцию, которая указана в спецификации;

// ЭлементФормы - элемент формы документа, который надо заполнить;

// СтандартнаяОбработка, - булево, признак выполнения стандартной (системной) обработки события

// начала выбора для данного элемента формы документа.

//

Процедура НачалоВыбораЗначенияСпецификации(Номенклатура, ЭлементФормы, СтандартнаяОбработка) Экспорт

СтандартнаяОбработка = Ложь;

ФормаВыбораСпецификации = Справочники.СпецификацииНоменклатуры.ПолучитьФормуВыбора(, ЭлементФормы);

ФормаВыбораСпецификации.Отбор.СпецификацииИзделийПоНоменклатуре.ВидСравнения = ВидСравнения.Равно;

ФормаВыбораСпецификации.Отбор.СпецификацииИзделийПоНоменклатуре.Значение = Номенклатура;

ФормаВыбораСпецификации.Отбор.СпецификацииИзделийПоНоменклатуре.Использование = Истина;

ФормаВыбораСпецификации.РежимВыбора = Истина;

ФормаВыбораСпецификации.ПараметрВыборГруппИЭлементов = ЭлементФормы.ВыборГруппИЭлементов;

Если Не ЗначениеНеЗаполнено(ЭлементФормы.Значение) Тогда

ФормаВыбораСпецификации.ПараметрТекущаяСтрока = ЭлементФормы.Значение;

КонецЕсли;

ФормаВыбораСпецификации.Открыть();

КонецПроцедуры // НачалоВыбораЗначенияСпецификации()

Процедура ЕдинИзмНажатие(Элемент)

ФормаСправочников = Справочники.Номенклатура.ПолучитьФормуСписка();

ФормаСправочников.Открыть();

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

Процедура ПроцентПриИзменении(Элемент)

РознЦена = Цена*(Процент/100+1);

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

Процедура Печать1(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК(Печать1)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = Новый ТабличныйДокумент;

Макет = Справочники.Номенклатура.ПолучитьМакет("Печать");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

ТабДок.Вывести(Область);

// Шапка

Область = Макет.ПолучитьОбласть("Шапка");

ТабДок.Вывести(Область);

Выборка = Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() = Истина Цикл

Объект = Выборка.ПолучитьОбъект();

Если Объект.ЭтоГруппа = Истина Тогда

Область = Макет.ПолучитьОбласть("Группа");

Область.Параметры.Код = Объект.Код;

Область.Параметры.Наименование = Объект.Наименование;

ТабДок.Вывести(Область);

Иначе

Область = Макет.ПолучитьОбласть("Элемент");

Область.Параметры.Код = Объект.Код;

Область.Параметры.Шифр = Объект.Шифр;

Область.Параметры.Наименование = Объект.Наименование;

Область.Параметры.ЕдИзм = Объект.ЕдИзм;

Область.Параметры.Остаток = Объект.Остаток;

Область.Параметры.Процент = Объект.Процент;

Область.Параметры.Цена = Объект.Цена;

Область.Параметры.РознЦена = Объект.РознЦена;

ТабДок.Вывести(Область);

КонецЕсли;

КонецЦикла;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_СПИСОК

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

Процедура СправочникСписокПриАктивизацииСтроки(Элемент)

ЭлементыФормы.СправочникДерево.ТекущаяСтрока = ЭлементыФормы.СправочникСписок.ТекущийРодитель;

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

Процедура СписокПриАктивизацииСтроки(Элемент)

ЭлементыФормы.СправочникДерево.ТекущаяСтрока = ЭлементыФормы.СправочникСписок.ТекущийРодитель;

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

///////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ И ФУНКЦИИ ДЛЯ УПРАВЛЕНИЯ ВНЕШНИМ ВИДОМ ФОРМЫ

// Процедура управляет доступностью/видимостью элементов формы

//

Процедура ДоступностьЭлементовФормы(СтрокаТЧ, ФормаТЧ)

Если СтрокаТЧ = Неопределено Тогда

Возврат;

КонецЕсли;

//Если НЕ ЗначениеНеЗаполнено(СтрокаТЧ.Номенклатура) Тогда

//  //КолонкаХарактеристикаНоменклатуры = ФормаТЧ.Колонки.ХарактеристикаНоменклатуры;

//  Если ТипЗнч(СтрокаТЧ.Номенклатура) = Тип("СправочникСсылка.Номенклатура") Тогда

//            Если СтрокаТЧ.Номенклатура.ВестиУчетПоХарактеристикам

//      ИЛИ НЕ ЗначениеНеЗаполнено(СтрокаТЧ.ХарактеристикаНоменклатуры) Тогда

//                     КолонкаХарактеристикаНоменклатуры.Доступность = Истина;

//            Иначе

//                     КолонкаХарактеристикаНоменклатуры.Доступность = Ложь;

//            КонецЕсли;

//  Иначе

//            КолонкаХарактеристикаНоменклатуры.Доступность = Ложь;

//  КонецЕсли;

//КонецЕсли;

КонецПроцедуры // ДоступностьЭлементовФормы()

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

ЭлементыФормы.ДатаУтверждения.Видимость = (Состояние = Перечисления.СостоянияОбъектов.Утвержден);

ЭлементыФормы.НадписьДатаУтверждения.Видимость = (Состояние = Перечисления.СостоянияОбъектов.Утвержден);

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

Процедура СостояниеПриИзменении(Элемент)

Если Состояние = Перечисления.СостоянияОбъектов.Утвержден Тогда

ДатаУтверждения = РабочаяДата;

Иначе

ДатаУтверждения = Неопределено;

КонецЕсли;

ЭлементыФормы.ДатаУтверждения.Видимость = (Состояние = Перечисления.СостоянияОбъектов.Утвержден);

ЭлементыФормы.НадписьДатаУтверждения.Видимость = (Состояние = Перечисления.СостоянияОбъектов.Утвержден);

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

///////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ РЕКВИЗИТОВ ТЧ ИСХОДНЫЕ КОМПЛЕКТУЮЩИЕ

// Процедура - обработчик события "ПриАктивизацииСтроки" табличной части "Исходные комплектующие".

//

Процедура ИсходныеКомплектующиеПриАктивизацииСтроки(Элемент)

ДоступностьЭлементовФормы(Элемент.ТекущиеДанные, ЭлементыФормы.ИсходныеКомплектующие);

КонецПроцедуры // ИсходныеКомплектующиеПриАктивизацииСтроки()

// Процедура - обработчик события "ПриНачалеРедактирования" табличной части "Исходные комплектующие".

//

Процедура ИсходныеКомплектующиеПриНачалеРедактирования(Элемент, НоваяСтрока)

ДоступностьЭлементовФормы(Элемент.ТекущиеДанные, ЭлементыФормы.ИсходныеКомплектующие);

КонецПроцедуры // ИсходныеКомплектующиеПриНачалеРедактирования()

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

//

//Процедура ИсходныеКомплектующиеВидНормативаПриИзменении(Элемент)

//

//  Если Элемент.Значение = Перечисления.ВидыНормативовНоменклатуры.Комплектующая Тогда

//            ПустаяНоменклатура = Справочники.Номенклатура.ПустаяСсылка();

//  Иначе

//            ПустаяНоменклатура = Справочники.НоменклатурныеУзлы.ПустаяСсылка();

//  КонецЕсли;

//

//  Если ТипЗнч(ЭлементыФормы.ИсходныеКомплектующие.ТекущиеДанные.Номенклатура) <> ТипЗнч(ПустаяНоменклатура) Тогда

//      ЭлементыФормы.ИсходныеКомплектующие.ТекущиеДанные.Номенклатура = ПустаяНоменклатура;

//            ИсходныеКомплектующиеНоменклатураПриИзменении(Элемент);

//  КонецЕсли;

//

//КонецПроцедуры // ИсходныеКомплектующиеВидНормативаПриИзменении()

 

// Процедура - обработчик события "ПриИзменении" номенклатуры табличной части "Исходные комплектующие".

//

Процедура ИсходныеКомплектующиеНоменклатураПриИзменении(Элемент)

СтрокаТабличнойЧасти = ЭлементыФормы.ИсходныеКомплектующие.ТекущиеДанные;

Если СтрокаТабличнойЧасти.Номенклатура <> СтрокаТабличнойЧасти.ЕдиницаИзмерения.Владелец Тогда

СтрокаТабличнойЧасти.ЕдиницаИзмерения = Неопределено;

КонецЕсли;

//Если ТипЗнч(СтрокаТабличнойЧасти.Номенклатура) = Тип("СправочникСсылка.Номенклатура")

// И НЕ ЗначениеНеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда

//  СтрокаТабличнойЧасти.ЕдиницаИзмерения = СтрокаТабличнойЧасти.Номенклатура.ЕдиницаХраненияОстатков;

//  //СтрокаТабличнойЧасти.СтатьяЗатрат = СтрокаТабличнойЧасти.Номенклатура.СтатьяЗатрат;

//КонецЕсли;

ДоступностьЭлементовФормы(СтрокаТабличнойЧасти, ЭлементыФормы.ИсходныеКомплектующие);

КонецПроцедуры // ИсходныеКомплектующиеНоменклатураПриИзменении()

// Процедура - обработчик события "Очистка" номенклатуры табличной части "Исходные комплектующие".

//

//Процедура ИсходныеКомплектующиеНоменклатураОчистка(Элемент, СтандартнаяОбработка)

//

//  Если ЭлементыФормы.ИсходныеКомплектующие.ТекущиеДанные.ВидНорматива = Перечисления.ВидыНормативовНоменклатуры.Комплектующая Тогда

//            Элемент.Значение = Справочники.Номенклатура.ПустаяСсылка();

//  Иначе

//            Элемент.Значение = Справочники.НоменклатурныеУзлы.ПустаяСсылка();

//  КонецЕсли;

//

//  ИсходныеКомплектующиеНоменклатураПриИзменении(Элемент);

//

//  СтандартнаяОбработка = ЛОЖЬ;

//

//КонецПроцедуры // ИсходныеКомплектующиеНоменклатураОчистка()

// Процедура - обработчик события "НачалоВыбора" единицы измерения табличной части "Исходные комплектующие".

//

Процедура ИсходныеКомплектующиеЕдиницаИзмеренияНачалоВыбора(Элемент, СтандартнаяОбработка)

Если ЗначениеНеЗаполнено(ЭлементыФормы.ИсходныеКомплектующие.ТекущиеДанные.Номенклатура) Тогда

СтандартнаяОбработка = Ложь;

Возврат;

КонецЕсли;

КонецПроцедуры // ИсходныеКомплектующиеЕдиницаИзмеренияНачалоВыбора()

// Процедура - обработчик события "НачалоВыбораИзСписка" номера операции маршрута табличной части "Исходные комплектующие".

//

////////////////////////////////////////////////////////////////////////////////

// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ РЕКВИЗИТОВ ТЧ ВЫХОДНЫЕ ИЗДЕЛИЯ

// Процедура - обработчик события "ПриАктивизацииСтроки" табличной части "Выходные изделия".

//

Процедура ВыходныеИзделияПриАктивизацииСтроки(Элемент)

ДоступностьЭлементовФормы(Элемент.ТекущиеДанные, ЭлементыФормы.ВыходныеИзделия);

КонецПроцедуры // ВыходныеИзделияПриАктивизацииСтроки()

// Процедура - обработчик события "ПриНачалеРедактирования" табличной части "Выходные изделия".

//

Процедура ВыходныеИзделияПриНачалеРедактирования(Элемент, НоваяСтрока)

ДоступностьЭлементовФормы(Элемент.ТекущиеДанные, ЭлементыФормы.ВыходныеИзделия);

КонецПроцедуры // ВыходныеИзделияПриНачалеРедактирования()

// Процедура - обработчик события "ПриИзменении" номенклатуры табличной части "Выходные изделия".

//

Процедура ВыходныеИзделияНоменклатураПриИзменении(Элемент)

СтрокаТабличнойЧасти = ЭлементыФормы.ВыходныеИзделия.ТекущиеДанные;

//Если СтрокаТабличнойЧасти.Номенклатура <> СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры.Владелец Тогда

//  СтрокаТабличнойЧасти.ХарактеристикаНоменклатуры = Неопределено;

//КонецЕсли;

Если СтрокаТабличнойЧасти.Номенклатура <> СтрокаТабличнойЧасти.ЕдиницаИзмерения.Владелец Тогда

СтрокаТабличнойЧасти.ЕдиницаИзмерения = Неопределено;

КонецЕсли;

//Если НЕ ЗначениеНеЗаполнено(СтрокаТабличнойЧасти.Номенклатура) Тогда

//  СтрокаТабличнойЧасти.ЕдиницаИзмерения = СтрокаТабличнойЧасти.Номенклатура.ЕдиницаХраненияОстатков;

//КонецЕсли;

ДоступностьЭлементовФормы(СтрокаТабличнойЧасти, ЭлементыФормы.ВыходныеИзделия);

КонецПроцедуры // ВыходныеИзделияНоменклатураПриИзменении()

// Процедура - обработчик события "Очистка" номенклатуры табличной части "Выходные изделия".

//

Процедура ВыходныеИзделияНоменклатураОчистка(Элемент, СтандартнаяОбработка)

ВыходныеИзделияНоменклатураПриИзменении(Элемент);

КонецПроцедуры // ВыходныеИзделияНоменклатураОчистка()

// Процедура - обработчик события "НачалоВыбора" единицы измерения табличной части "Выходные изделия".

//

Процедура ВыходныеИзделияЕдиницаИзмеренияНачалоВыбора(Элемент, СтандартнаяОбработка)

Если ЗначениеНеЗаполнено(ЭлементыФормы.ВыходныеИзделия.ТекущиеДанные.Номенклатура) Тогда

СтандартнаяОбработка = Ложь;

Возврат;

КонецЕсли;

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

// Процедура - обработчик события ПриЗакрытии

//

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

Параметры = Новый Структура;

Параметры.Вставить("ЗапрашиватьКоличество", ЗапрашиватьКоличество);

СохранитьЗначение("СпецификацииНоменклатуры_ФормаПодбора_Параметры", Параметры);

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

// Процедура - обработчик события ПриОткрытии

//

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

Параметры = ВосстановитьЗначение("СпецификацииНоменклатуры_ФормаПодбора_Параметры");

Если Не Параметры = Неопределено Тогда

Если Параметры.Свойство("ЗапрашиватьКоличество") Тогда

ЗапрашиватьКоличество = Параметры.ЗапрашиватьКоличество;

Иначе

ЗапрашиватьКоличество = Истина;

КонецЕсли;

Иначе

ЗапрашиватьКоличество = Истина;

КонецЕсли;

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

// Процедура - обработчик события ВыборЗначения

//

Процедура СправочникСписокВыборЗначения(Элемент, СтандартнаяОбработка, Значение)

СтандартнаяОбработка = ЛОжь;

Параметры = Новый Структура;

Параметры.Вставить("Спецификация", Значение[0]);

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

Если ЗапрашиватьКоличество Тогда

Если Не ВвестиЧисло(Количество, "Укажите количество", 15, 3) Тогда

Возврат;

КонецЕсли;

КонецЕсли;

Параметры.Вставить("Количество", Количество);

ОповеститьОВыборе(Параметры);

КонецПроцедуры // СправочникСписокВыборЗначения()

Процедура МатериалыНоменклатураПриИзменении(Элемент)

СтрокаТабличнойЧасти = ЭлементыФормы.Материалы.ТекущиеДанные;

СтрокаТабличнойЧасти.Цена = СтрокаТабличнойЧасти.Номенклатура.Цена;

СтрокаТабличнойЧасти.ЕдИзм = СтрокаТабличнойЧасти.Номенклатура.ЕдИзм;

МатериалыКоличествоПриИзменении(Элемент);

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

Процедура МатериалыКоличествоПриИзменении(Элемент)

СтрокаТабличнойЧасти = ЭлементыФормы.Материалы.ТекущиеДанные;

РассчитатьСумму(СтрокаТабличнойЧасти);

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

Процедура ОсновныеДействияФормыДействие(Кнопка)

Отчеты.ОтстаткиМатериалов.ПолучитьФорму().Открыть();

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

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

Если ЭтоНовый()Тогда

ПрефиксНомера = "КС-";

УстановитьНовыйНомер(ПрефиксНомера);

ЭлементыФормы.НаимПрих.Значение="ПН-"+1+"/"+ЭлементыФормы.Номер.Значение;

КонецЕсли;

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

Процедура ОсновныеДействияФормыПечать(Кнопка)

Печать();

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

Процедура Кнопка1Нажатие(Элемент)

ФормаДокумента = Документы.ПриходнаяНакладная.ПолучитьФормуНовогоДокумента();

ФормаДокумента.Открыть();

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

Процедура Кнопка2Нажатие(Элемент)

ФормаЖурнала = ЖурналыДокументов.ЖурналПриходная.ПолучитьФорму();

ФормаЖурнала.Открыть();

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

Процедура Кнопка1Нажатие(Элемент)

ФормаДокумента = Документы.РасходнаяНакладная.ПолучитьФормуНовогоДокумента();

ФормаДокумента.Открыть();

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

Процедура Кнопка2Нажатие(Элемент)

ФормаЖурнала = ЖурналыДокументов.ЖурналРасходная.ПолучитьФорму();

ФормаЖурнала.Открыть();

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

Процедура МатериалыНоменклатураПриИзменении(Элемент)

СтрокаТабличнойЧасти = ЭлементыФормы.МатериалыТТН.ТекущиеДанные;

СтрокаТабличнойЧасти.Цена = СтрокаТабличнойЧасти.Номенклатура.РознЦена;

СтрокаТабличнойЧасти.ЕдИзм = СтрокаТабличнойЧасти.Номенклатура.ЕдИзм;

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|    ОстаткиМатериаловПТООбороты.Материал,

|    ОстаткиМатериаловПТООбороты.КоличествоПриход,

|    ОстаткиМатериаловПТООбороты.КоличествоРасход

|ИЗ

|    РегистрНакопления.ОстаткиМатериаловПТО.Обороты КАК ОстаткиМатериаловПТООбороты";

ВыборкаРезультатаЗапроса = Запрос.Выполнить().Выбрать();

Пока ВыборкаРезультатаЗапроса.Следующий() Цикл

Если ВыборкаРезультатаЗапроса.Материал = СтрокаТабличнойЧасти.Номенклатура Тогда

СтрокаТабличнойЧасти.КоличествоОст = ВыборкаРезультатаЗапроса.КоличествоПриход-

ВыборкаРезультатаЗапроса.КоличествоРасход;

КонецЕсли;

КонецЦикла;

РассчитатьСумму(СтрокаТабличнойЧасти);

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

Процедура МатериалыКоличествоПриИзменении(Элемент)

СтрокаТабличнойЧасти = ЭлементыФормы.МатериалыТТН.ТекущиеДанные;

РассчитатьСумму(СтрокаТабличнойЧасти);

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

Процедура ОсновныеДействияФормыДействие(Кнопка)

ТТН();

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

Процедура ОсновныеДействияФормыЗаявкаВМагазин(Кнопка)

Документы.ЗаявкаВМагазин.ПолучитьФормуНовогоДокумента().Открыть();

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

Процедура ОсновныеДействияФормыОстатки(Кнопка)

Отчеты.ОтстаткиМатериалов.ПолучитьФорму().Открыть();

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

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

Если ЭтоНовый()Тогда

ПрефиксНомера = "РСКС-";

УстановитьНовыйНомер(ПрефиксНомера);

КонецЕсли;

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

Функция ПроверитьТЧ ()

СтрокаТабЧасти = ЭлементыФормы.МатериалыТТН.ТекущиеДанные;

флагЗаписи = Истина;

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ РАЗЛИЧНЫЕ

|    ОстаткиМатериаловПТООстаткиИОбороты.Материал КАК Материал,

|    ОстаткиМатериаловПТООстаткиИОбороты.КоличествоКонечныйОстаток КАК Остаток

|ИЗ

|    РегистрНакопления.ОстаткиМатериаловПТО.ОстаткиИОбороты КАК ОстаткиМатериаловПТООстаткиИОбороты

|ИТОГИ

|    СУММА(Остаток)

|ПО

|    Материал";

Результат = Запрос.Выполнить();

ТЗ = Результат.Выгрузить();

Для каждого СтрокаТЗ Из ТЗ Цикл

Если СтрокаТабЧасти.Номенклатура = СтрокаТЗ.Материал Тогда

Если СтрокаТабЧасти.Количество < СтрокаТЗ.Остаток Тогда

Продолжить;

Иначе

флагЗаписи = Ложь;

Сообщить("На складе " + СтрокаТЗ.Материал+ "осталось: "+СтрокаТЗ.Остаток);

Прервать;

КонецЕсли;

КонецЕсли;

КонецЦикла;

Возврат флагЗаписи

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

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

ВсеВпорядке = ПроверитьТЧ ();

Если ДопСоглашение.Пустая() или Объект.Пустая() Тогда

Предупреждение("Не заполненны значения дополнительного соглашения и наименование объекта");

//Отказ=Истина;

РежимЗаписи=РежимЗаписиДокумента.ОтменаПроведения;

Иначе

//Отказ=Ложь;

РежимЗаписи=РежимЗаписиДокумента.Проведение;

КонецЕсли;

Если ВсеВпорядке = Ложь тогда

//Отказ = Истина;

РежимЗаписи=РежимЗаписиДокумента.ОтменаПроведения;

иначе

Отказ =Ложь;

КонецЕсли;

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

Процедура Печать(Элемент)

//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = Новый ТабличныйДокумент;

Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Печать");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

ТабДок.Вывести(Область);

// Шапка

Область = Макет.ПолучитьОбласть("Шапка");

Область.Параметры.Номер = Номер;

Область.Параметры.Дата = Дата;

Область.Параметры.НомерДоговора = НомерДоговора;

Область.Параметры.Объект = Объект;

Область.Параметры.Заказчик = Заказчик;

Область.Параметры.Подрядчик = Подрядчик;

Область.Параметры.НаименованиеРабот = НаименованиеРабот;

ТабДок.Вывести(Область);

// МатериалыТТН

Область = Макет.ПолучитьОбласть("МатериалыТТНШапка");

ТабДок.Вывести(Область);

Для Каждого ТекСтрокаМатериалыТТН Из МатериалыТТН Цикл

Область = Макет.ПолучитьОбласть("МатериалыТТН");

Область.Параметры.Номенклатура = ТекСтрокаМатериалыТТН.Номенклатура;

Область.Параметры.ЕдИзм = ТекСтрокаМатериалыТТН.ЕдИзм;

Область.Параметры.Количество = ТекСтрокаМатериалыТТН.Количество;

Область.Параметры.Цена = ТекСтрокаМатериалыТТН.Цена;

Область.Параметры.Сумма = ТекСтрокаМатериалыТТН.Сумма;

ТабДок.Вывести(Область);

КонецЦикла;

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;