АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Создание интерфейса пользователя

Читайте также:
  1. Creating a VHDL Source (создание файла, содержащего текст программы на языке VHDL).
  2. II. Создание многотабличной пользовательской формы.
  3. MS Excel. Типы диаграмм в Excel. Создание диаграмм в Excel.
  4. QNET комментирует создание платформы электронной коммерции Globby в Сингапуре
  5. Автоматическое создание тегов
  6. Б. Создание коллегий. Местные органы власти
  7. Б. Создание оптимальной водной среды
  8. БИЛЕТ. Создание и деятельность профсоюзов в Англии (19 начало 20 вв.)
  9. Блок CoolRunner CPLD используется для создания синхронного интерфейса междумикропроцессором и ПЛИСXilinx Virtex FPGA.
  10. Будьте не такими, как все: создание социальной среды
  11. Быстрое создание отправного пункта
  12. В) создание схем из прототипов и их модификация

Создадим рабочее место менеджера, т.е. создадим интерфейс для Менеджера (организуем быстрый доступ к журналу Заказы). Переходим к окну Конфигурация*, закладка Интерфейсы и создаем новый элемент (, Ins) - Менеджер.

Нами создан Интерфейс с названием Менеджер, отредактируем его (двойной клик на элементе Менеджер).

Вначале отредактируем Меню (тем самым добавим новый пункт в пользовательское меню).

Двойной клик по <новая колонка> позволит отредактировать свойства Меню: Название -Журналы (закладка Общие). Теперь необходимо войти в папку Журналы, в которой появится <новый> элемент.

По двойному клику отредактируем его.

На закладке Общие выберем Объект: Журналы.Заказы (остальные поля заполнятся автоматически). На закладке Акселератор можно задать комбинацию горячих клавиш: Клавиша - N, и добавить к ней комбинацию Ctrl+Alt (Ctrl+N нельзя, т.к. такая комбинация уже существует). Другой способ задания быстрых клавиш: Удерживать нажатой комбинацию Ctrl+Alt+N и нажать кнопку Выбрать акселератор.

Теперь отредактируем Панель Инструментов (создадим новую кнопку вызова Журнала Заказы).

В списке панелей создадим новый элемент (т.е. создаем новую панель, а не редактируем системную).

Название: Менеджер, Положение: Справа. Новая панель создана. Теперь добавим на нее кнопки. Для этого переходим в раздел Состав панели и создаем на ней новый элемент. Выбираем Объект - Журналы.Заказы, остальные поля заполнятся автоматически.

По двойному клику в разделе Библиотека пиктограмм выбираем картинку. Закрываем окно редактирования. Интерфейс Менеджера создан и отредактирован.

 

Переходим в режим 1С:Предприятие и, используя созданный интерфейс, создадим еще один заказ.

Возвращаемся к редактированию документа Заказ: Необходимо произвести расчет стоимости заказа.

Переместим кнопку Закрыть вправо, а рядом с кнопкой OK создадим кнопку Расчет, по которой будет вычисляться стоимость заказа.

 

 

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

 

 

Для расчета необходимо создать две константы: СтоимостьЧернойКраски и СтоимостьЦветнойКраски. Эти константы должны быть периодическими.

 

 

Функция Расчет() будет иметь следующий код:

Функция Расчет()

Итого = Кол_воСтраниц * Бумага.Цена.Получить(ДатаДок); // стоимость бумаги

Если Краска = Перечисление.Краски.Черная Тогда

Итого = Итого + Константа.СтоимостьЧернойКраски.Получить(ДатаДок);

ИначеЕсли Краска = Перечисление.Краски.Полноцвет Тогда

Итого = Итого + Константа.СтоимостьЦветнойКраски.Получить(ДатаДок);

Иначе

Предупреждение("Укажите цветность!!!");

Возврат 0;

КонецЕсли;

Итого = Итого*Тираж;

Если Тираж > 1000 Тогда

Итого = Итого*0.7 //ввести константу скидки или справочник скидок (граница скидок и коэффициент)

КонецЕсли;

 

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

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

Итого = Итого + ДопРабота.Цена.Получить(ДатаДок)*Кол_воСтраниц*?(Сложность > 1,?(Сложность =2, 1.5, 2.1), 1);

//предусмотреть вариант разных коэф. для разных работ (добавить реквизит коэф в справочник номенклатуры)

КонецЦикла;

ИтогоФормат=Строка(Формат(Итого,"Ч15.2"))+" руб.";

Возврат ИтогоФормат;

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

 

!!! Перед проведением расчета пользователь должен заполнить константы (В 1С - меню Операции → Константы).


1 | 2 | 3 | 4 | 5 | 6 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.004 сек.)