Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Создание условий для организации режима труда и отдыха при работе с эвм ⇐ ПредыдущаяСтр 8 из 8
Режимы труда и отдыха при работе с ПЭВМ организовываются в зависимости от вида и категории трудовой деятельности. Виды трудовой деятельности разделяются на 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Нажатие(Элемент) ФормаЖурнала = ЖурналыДокументов.ЖурналРасходная.ПолучитьФорму(); ФормаЖурнала.Открыть(); КонецПроцедуры Процедура МатериалыНоменклатураПриИзменении(Элемент) СтрокаТабличнойЧасти = ЭлементыФормы.МатериалыТТН.ТекущиеДанные; СтрокаТабличнойЧасти.Цена = СтрокаТабличнойЧасти.Номенклатура.РознЦена; СтрокаТабличнойЧасти.ЕдИзм = СтрокаТабличнойЧасти.Номенклатура.ЕдИзм; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ОстаткиМатериаловПТООбороты.Материал, | ОстаткиМатериаловПТООбороты.КоличествоПриход, | ОстаткиМатериаловПТООбороты.КоличествоРасход |ИЗ | РегистрНакопления.ОстаткиМатериаловПТО.Обороты КАК ОстаткиМатериаловПТООбороты"; ВыборкаРезультатаЗапроса = Запрос.Выполнить().Выбрать(); Пока ВыборкаРезультатаЗапроса.Следующий() Цикл Если ВыборкаРезультатаЗапроса.Материал = СтрокаТабличнойЧасти.Номенклатура Тогда СтрокаТабличнойЧасти.КоличествоОст = ВыборкаРезультатаЗапроса.КоличествоПриход- ВыборкаРезультатаЗапроса.КоличествоРасход; КонецЕсли; КонецЦикла; РассчитатьСумму(СтрокаТабличнойЧасти); КонецПроцедуры Процедура МатериалыКоличествоПриИзменении(Элемент) СтрокаТабличнойЧасти = ЭлементыФормы.МатериалыТТН.ТекущиеДанные; РассчитатьСумму(СтрокаТабличнойЧасти); КонецПроцедуры Процедура ОсновныеДействияФормыДействие(Кнопка) ТТН(); КонецПроцедуры Процедура ОсновныеДействияФормыЗаявкаВМагазин(Кнопка) Документы.ЗаявкаВМагазин.ПолучитьФормуНовогоДокумента().Открыть(); КонецПроцедуры Процедура ОсновныеДействияФормыОстатки(Кнопка) Отчеты.ОтстаткиМатериалов.ПолучитьФорму().Открыть(); КонецПроцедуры Процедура ПриОткрытии() Если ЭтоНовый()Тогда ПрефиксНомера = "РСКС-"; УстановитьНовыйНомер(ПрефиксНомера); КонецЕсли; КонецПроцедуры Функция ПроверитьТЧ () СтрокаТабЧасти = ЭлементыФормы.МатериалыТТН.ТекущиеДанные; флагЗаписи = Истина; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ | ОстаткиМатериаловПТООстаткиИОбороты.Материал КАК Материал, | ОстаткиМатериаловПТООстаткиИОбороты.КоличествоКонечныйОстаток КАК Остаток |ИЗ | РегистрНакопления.ОстаткиМатериаловПТО.ОстаткиИОбороты КАК ОстаткиМатериаловПТООстаткиИОбороты |ИТОГИ | СУММА(Остаток) |ПО | Материал"; Результат = Запрос.Выполнить(); ТЗ = Результат.Выгрузить(); Для каждого СтрокаТЗ Из ТЗ Цикл Если СтрокаТабЧасти.Номенклатура = СтрокаТЗ.Материал Тогда Если СтрокаТабЧасти.Количество < СтрокаТЗ.Остаток Тогда Продолжить; Иначе флагЗаписи = Ложь; Сообщить("На складе " + СтрокаТЗ.Материал+ "осталось: "+СтрокаТЗ.Остаток); Прервать; КонецЕсли; КонецЕсли; КонецЦикла; Возврат флагЗаписи КонецФункции Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) ВсеВпорядке = ПроверитьТЧ (); Если ДопСоглашение.Пустая() или Объект.Пустая() Тогда Предупреждение("Не заполненны значения дополнительного соглашения и наименование объекта"); //Отказ=Истина; РежимЗаписи=РежимЗаписиДокумента.ОтменаПроведения; Иначе //Отказ=Ложь; РежимЗаписи=РежимЗаписиДокумента.Проведение; КонецЕсли; Если ВсеВпорядке = Ложь тогда //Отказ = Истина; РежимЗаписи=РежимЗаписиДокумента.ОтменаПроведения; иначе Отказ =Ложь; КонецЕсли; КонецПроцедуры Процедура Печать(Элемент) //{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать) // Данный фрагмент построен конструктором. // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!! ТабДок = Новый ТабличныйДокумент; Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Печать"); // Заголовок Область = Макет.ПолучитьОбласть("Заголовок"); ТабДок.Вывести(Область); // Шапка Область = Макет.ПолучитьОбласть("Шапка"); Область.Параметры.Номер = Номер; Область.Параметры.Дата = Дата; Область.Параметры.НомерДоговора = НомерДоговора; Область.Параметры.Объект = Объект; Область.Параметры.Заказчик = Заказчик; Область.Параметры.Подрядчик = Подрядчик; Область.Параметры.НаименованиеРабот = НаименованиеРабот; ТабДок.Вывести(Область); // МатериалыТТН Область = Макет.ПолучитьОбласть("МатериалыТТНШапка"); ТабДок.Вывести(Область); Для Каждого ТекСтрокаМатериалыТТН Из МатериалыТТН Цикл Область = Макет.ПолучитьОбласть("МатериалыТТН"); Область.Параметры.Номенклатура = ТекСтрокаМатериалыТТН.Номенклатура; Область.Параметры.ЕдИзм = ТекСтрокаМатериалыТТН.ЕдИзм; Область.Параметры.Количество = ТекСтрокаМатериалыТТН.Количество; Область.Параметры.Цена = ТекСтрокаМатериалыТТН.Цена; Область.Параметры.Сумма = ТекСтрокаМатериалыТТН.Сумма; ТабДок.Вывести(Область); КонецЦикла; ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь;
|
|||||||||
Последнее изменение этой страницы: 2020-03-14; просмотров: 115; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.21.34.105 (0.383 с.) |