Разработка методов эфективного использования ресурсов на предприятии

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

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

     ПРИЛОЖЕНИЕ  А

     Динамка отгрузок продукции ЧУП «ЦветЛит»

Диаграмма отгрузок продукции  ЧУП «Цветлит»  в % и в

  денежном выражении  за 2007 г. по странам 

 

Диаграмма отгрузок продукции  ЧУП «Цветлит»  в % и в

  денежном выражении  за 2008 г. по странам 

 

Диаграмма отгрузок продукции  ЧУП «Цветлит»  в % и в

  денежном выражении  за 2009 г. по странам 

 

Диаграмма отгрузок продукции ЧУП «Цветлит» в % и в

  денежном выражении  за 2010 г. по странам 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     ПРИЛОЖЕНИЕ  Б

Остатки готовой продукции  по количеству дней на складе 2007-2011гг. 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

     

     ПРИЛОЖЕНИЕ  В

 

 

     ПРИЛОЖЕНИЕ  Г

Листинг модуля формы документа «Сдача Литья»

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

      Форма.Заголовок("Сдача  продукции на дату"+ДатаДок); 

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

Функция ПроверкаРасхождения()

      Если (ПустоеЗначение(Масса)= 1 ) или (ПустоеЗначение(Количество)=1)Тогда

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

      Иначе

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

            Возврат "";

      КонецЕсли;

                  Если Масса/(Количество/1000) < Изделие.Масса.получить(ДатаДок) Тогда

                        Расхождение =  (Масса/(Количество/1000)) - (Изделие.Масса.получить(ДатаДок));

                        Проценты = (Расхождение/(Изделие.Масса.получить(ДатаДок)))*100;

                        Возврат "BRUSH["+ПолучитьЦвет(166,208,119)+"]";

                  ИначеЕсли Масса/(Количество/1000) > Изделие.Масса.получить(ДатаДок) Тогда 

                        Расхождение = (Масса/(Количество/1000)) - (Изделие.Масса.получить(ДатаДок));

                        Проценты = (Расхождение/(Изделие.Масса.получить(ДатаДок)))*100;

                        Возврат "BRUSH["+ПолучитьЦвет(232,140,96)+"]";

                  ИначеЕсли  Масса/(Количество/1000) = Изделие.Масса.получить(ДатаДок) Тогда 

                        Расхождение =  0;

                        Проценты = 0;

                        Возврат "BRUSH["+ПолучитьЦвет(255,255,255)+"]";

                  КонецЕсли;

            КонецЕсли;

      Возврат "";

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

     ПРИЛОЖЕНИЕ  Д

Листинг модуля отчета  «Расход материалов»

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

      Форма.Заголовок(" Отчет по кантролю массы отливок ");

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

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

      //---- проверка На пустые поля-------

      Если (ПустоеЗначение(НачДата)=1) или (ПустоеЗначение(КонДата)=1) Тогда

            Сообщить("Незаполнены  поля  Даты!!!");

            Возврат;

      КонецЕсли;

      Если  НачДата > КонДата Тогда

            Сообщить("Введите  корректную дату!!!"); 

            Возврат;

      КонецЕсли;

      //---- проверка На пустые поля------- 

      //******************* ПЕременные****************

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

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

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

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

      Док = СоздатьОбъект("Документ.СдачаЛитья");

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

      Нум= 0;

      Флаг = 0;

      Темп = " ";

      Норм = 0;

      Итог =0;

      флагИтВывод = 0;

      R = 0;

      G = 0;

      B = 0;

      ИзделиеКоличество = 0;

      ИзделиеМасса = 0;

      МассаИтог = 0;

      ИзделиеОтклонение = 0;

      ИзделиеПроцОтколнение = 0;

      Отклонение = 0;

      ПроОткл = 0;

      ОтклОтпрогр = 0;

      ОтклОтпрогрИтог = 0;

      //**********************************************

      ТЗ.НоваяКолонка("Изделие");

      ТЗ.НоваяКолонка("ДатаСдачи");

      Тз.НоваяКолонка("Масса");

      ТЗ.НоваяКолонка("Количество");

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

      Если  ФлагИтог = 1 Тогда

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

      Иначе 

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

КонецЕсли;

      Если  ФлагИтог = 1 Тогда

            Итог= 1;

      КонецЕсли;

      Док.ВыбратьДокументы(НачДата,КонДата);

      Пока  Док.ПолучитьДокумент() = 1 Цикл

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

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

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

                  ТЗ.Изделие = Док.Изделие;

                  ТЗ.ДатаСдачи = Док.ДатаДок;

                  ТЗ.Масса = Док.Масса;

                  ТЗ.Количество = Док.Количество;

            КонецЦикла;

      КонецЦикла;

      ТЗ.Свернуть("Изделие, ДатаСдачи","Масса, Количество");

      ТЗ.Сортировать("Изделие+, ДатаСдачи+");

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

      //---Выбираем  в таблицу

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

            // **Для первого  Входа и инициализации переменных

            Если Флаг = 0 Тогда

                  Темп = ТЗ.Изделие;

                  Флаг =1;

            КонецЕсли;

            //*********************************************

            Если  Темп <> ТЗ.Изделие   Тогда

                  Темп = ТЗ.Изделие;

                  Нум = 0;

                  флагИтВывод = 0;

                  Отклонение =ИзделиеМасса/(ИзделиеКоличество/1000) - Норм ;

                  ИзделиеПроцОтколнение =( Окр( Отклонение,2,1)/Норм)*100;

                  ОтклОтпрогр = Окр(Отклонение,2,1)*(ИзделиеКоличество/1000); 

                  //ОтклОтпрогрИтог  = ОтклОтпрогрИтог+ ОтклОтпрогр; 

                  //**************** Изменяем  цвета на соответствующие при  отличии от нормы

                  Если ИзделиеМасса / (ИзделиеКоличество/1000) < Норм

                  Тогда

                        G = 255;

                  ИначеЕсли ИзделиеМасса / (ИзделиеКоличество/1000) > Норм Тогда

                        R = 255;

                        G = 60;

                        B = 60;

                  КонецЕсли;

                  //***************************

                  Если Итог = 1 Тогда 

      табл.ВывестиСекцию("ИтогИзделия");

табл.Область(Табл.ВысотаТаблицы(),6,Табл.ВысотаТаблицы(),7).ЦветФона(R,G,B);

                        ОтклОтпрогрИтог = ОтклОтпрогрИтог+ ОтклОтпрогр;

                        МассаИтог= МассаИтог+ ИзделиеМасса;

                  Иначе

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

табл.Область(Табл.ВысотаТаблицы(),6,Табл.ВысотаТаблицы(),7).ЦветФона(R,G,B);  

                  КонецЕсли;

                  R=0;

                  G=0;

                  b=0;

                  Норм=0;

                  ИзделиеКоличество = 0;

                  ИзделиеМасса = 0;

                  ИзделиеОтклонение = 0;

                  ИзделиеПроцОтколнение = 0;

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

            КонецЕсли;

            Если  Темп = ТЗ.Изделие  Тогда

                  Если Спр.НайтиПоНаименованию(Строка(ТЗ.Изделие))= 1 Тогда

                        Норм = Спр.ТекущийЭлемент().Масса.получить(ТЗ.ДатаСдачи);

                  КонецЕсли;

                  Нум=Нум+1;

                  Отклонение =ТЗ.Масса  / (ТЗ.Количество/1000) - Норм ;

                  ИзделиеПроцОтколнение =( Окр( Отклонение,2,1)/Норм)*100;

                  ОтклОтпрогр = Окр(Отклонение,2,1)* (ТЗ.Количество/1000);

                  //-------