1

2

3

001. Прикладные решения 1с: Предприятие 8.2.
 

1с 8.2. Практическое пособие разработчика. Радченко М.Г.

10

11

01.Постановка задачи 1c:8.1   firma_MASTERSKAJA_REMONTA_VMA

На примере прикладного решения показана структура объектов конфигурации, их назначение и использование.

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

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

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

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

001...  САЙТ 1С – 8.2..

http://www.1c.ru

http://users.v8.1c.ru - сайт поддержки пользователей системы 1С:Предприятие 8

http://v8.1c.ru/AllInfo

http://v8.1c.ru  - Сайт по технологической платформе системы 1С:Предприятие 8

http://www.1c.ru/rus/partners/service.jsp  - оформление подписки на ИТС

http://devtrainingforum.v8.1c.ru/forum/ - Конференция для обучения программированию

01.Место БД.

-Сервис-Шаблоны –Действия –Настройка шаблонов –Добавить

-Сервис- Параметры _Тексты модулей –Автозамена  (ctrl+Q)

C:\Users\w7128\Documents\InfoBase   - БД

C:\Users\w7128\AppData\Roaming\1C\1Cv82\tmplts

12

02. Решаемые вопросы.  Часть 2  -  firma_MASTERSKAJA_REMONTA_VMA

Проведение – изменение Документа  ОказаниеУслуги.

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

Оборотные регистры накопления.

Отчеты.

Отчет. Элементы пользовательских настроек.

Отчет за все дни.

Отчет по выручке - диаграмма

Отчет – получение актуальных занчений из периодического регистра сведений.

Отчет - Вывод данных в таблицу.

План видов характеристик.

Главное меню – Все функции.

Приходная накладная с характеристиками номенклатуры.

Отчет с характеристиками номенклатуры.

План видов характеристик. Виды Субконто.  План счетов. Регистр бухгалтерии.

Отчет для бухгалтерии предприятия.

План видов расчета, регистр расчета.

Использование регистра Расчета.

Отчет по перерасчетам.

Вытеснение по периоду действия.

002...  ПЛАН. 1-28.

1. Создание ИБ. 2. Подсистемы. 3. Справочники. 4.Документы. 5. Формы. 6. Регистры накопления.7.Отчет 8.Макеты. Редактирование макетов и форм. 9.Периодический регистр сведений. 10.Перечисления.11.Проведение документа по нескольким регистрам.

12.Оборотные регистры накопления.13.Отчеты.
14.Оптимизация проведения документа «Оказание услуги».
15.План видов характеристик. 16.Бухгалтерский учет.
17.План видов расчета. 18.Использование регистра расчета.
19.Поиск в базе данных. 20.Выполнение заданий по расписанию. 21.Редактирование движений в форме документа.
22.Список пользователей и их роли.
23.Рабочий стол и настройка командного интерфейса.
24.Обмен данными. 25.Функциональные опции.
26.Подборы и ввод на основании. 27.Приемы разработки форм.

13

03. Решаемые вопросы.  Часть 3  -  firma_MASTERSKAJA_REMONTA_VMA

Полнотекстовый поиск

 Выполнение заданий по расписанию

 Редактирование движений в форме документа

 Список пользователей и их роли

 Рабочий стол и настройка командного интерфейса

 Настройка рабочего стола

 Функциональные опции

 Подборы и ввод на основании

 Команда ввода на основании

 Приемы разработки форм  - оформление

 Вычисляемые поля

 Список выбора для поля ввода

 Форма выбора для поля, содержащего ссылочный реквизит

 Проверка заполнения реквизитов

14

15

04. Вопросы. 1с8.1. ПрактическоеПособиеРазработчика

1 Часть 1. Быстрая разработка прикладных решений

2 1 Глава 3. Документ

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

7 3.2 Процедура РассчитатьСумму()

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

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

13 3.4 Процедура МатериалыЦенаПриИзменении()

16 2 Глава 7. Редактирование макетов и форм

17 7.1 Печать формы документа

20 Часть 2. Использование основных объектов конфигурации

21 3 Глава 1. Периодический регистр сведений

23 1.1 Функция РозничнаяЦена()

26 1.2 Процедура ПереченьНоменклатурыНоменклатура ПриИзменении

29 4 Глава 2. Перечисления

30 2.1 Движения документа ОказаниеУслуги

33 5 Глава 4. Оборотный регистр накопления

34 4.1 Добавление цикла обхода табличной части и записи движений регистра "Продажи"

37 4.2 Команды создания движений регистра "Продажи"

40 6  Глава 5. Система компоновки данных

41 5.9 Выражение для расчета параметра КонецПериода

44 5.17 Объявление переменной

47 5.18 Обработчик события формы отчета При открытии

50 5.19 Обработчик поля выбора При изменении

53 7 Глава 6. Оптимизация процедуры проведения документа ОказаниеУслуги

55 6.3 Заготовка процедуры проведения

58 .6.1 Задание параметров запроса

61 6.6.2 Задание параметров запроса -2

64 6.7 Получение результата запроса и цикл его обхода

67 6.8 Проверка на складе достаточного количества номенклатуры

70 6.9 Формирование движений по регистрам накопления

73 6.10 Запись движений регистров

76 8 Глава 7. План видов характеристик

77 7.1 Процедура СвойстваВидСвойстваПриИзменении

80 7.2 Процедура ВариантыПриАктивизацииСтроки

81ЭлементыФормы.Свойства.Значение.Отбор.НаборСвойств.Установить
     (Элемент.ТекущиеДанные.Ссылка, Истина);

83 7.3 Процедура ПриОткрытии

84 ЭлементыФормы.Свойства.Значение.Отбор.НаборСвойств.Установить( , Истина)

86 7.4 Процедура СвойстваВидСвойстваПриИзменении

89 7.5 ПриИзмененииСсылки()

92 7.6 Вызов обработчика ПриИзмененииСсылки

957.7 Процедура СвойстваПередНачаломДобавления()

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

99 Движение.НаборСвойств = ТекСтрокаМатериалы.НаборСвойств

10 9 Глава 8. Бухгалтерский учёт

102 8.5 Движения по регистру бухгалтерии Управенческий

105 10 Глава 10. Использование регистра расчета

106 10.2 Обработчик проведения документа НачисленияСотрудникам

109 10.3 Заготовка процедуры РасчитатьНачисления

112 10.4 Изменение процедуры РасчитатьНачисления

115 10.5 Добавление обхода набора записей и расчета записей

118 10.6 Добавление текста запроса во вторую строку условия

121 10.7 Добавление обхода набора записей регистра и вычисления результата вторичных записей

12410.8 Обработчик события нажатия кнопки

3 10.9 Процедура перерасчета начислений

6 10.10 Обработчик события Нажатие кнопки

9     10.11 Изменение обработчика события Нажатие кнопки

12 11 Глава 11. Поиск в базе данных

13 11.1 Определение переменной СписокПоиска

16 11.2 Обработчик события ПриОткрытии формы

19 11.3 Обработчик нажатия кнопки Найти

22 11.4 Процедура ВывестиРезультатПоиска()

25 11.5 Процедура ДоступностьКнопок()

28 11.6.1 Обработчик нажатия кнопки ПредыдущаяПорция

31 11.6.2 Обработчик нажатия кнопки СледующаяПорция

34 11.7 Обработчик события onclick поля HTML-документа

37 12 Глава 12. Выполнение заданий по расписанию

38 12.1 Процедура обновления индекса

41 12.2 Процедура слияния индексов

44 12.3 Обработчик ожидания

47 12.4 Сообщение о запуске регламентного задания

48 Сообщить("Запуск регламентного задания Обновление индекса " + ТекущаяДата())

49 15 Глава 15. Обмен данными

50 15.1 Функция формирования префикса номера

53 15.2 Обработчик события ПриУстановкеНовогоКода

56 15.3 Обработчик события ПриУстановкеНовогоНомера

59 15.4 Создание служебной переменной

62 15.5 Обработчик события формы ПередЗаписью

65 15.6 Обработчик события формы ПриЗаписи

68 15.7 Обработчик события формы ПередОткрытием

71 15.8 Создание процедуры ОбменСФилиалами

74 15.9 Обработчик события нажатия кнопки Выполнить

77 15.10 Формирование имени файла в процедуре записи данных

80 15.11 Создание объкта записи XML в процедуре записи данных

83 15.12 Создание очередного номера сообщения и запись заголовка сообщения в XML

86 15.13 Получение выборки из записей регистрации изменений, предназначенных данному узлу

89 15.14 Перебор выборки записей и сериализация их в открытый XML файл

92 15.15 Формирование имени файла, содержащего данные обмена

95 15.16 Добавление чтения найденного файла с данными обмена

98 15.17 Добавление чтения заголовка XML-сообщения

10 1 15.18 Добавление проверки сообщения

104 15.19 Удаление записей регистрации изменений для узла отправителя сообщения

107 15.20 Чтение данных из сообщения

110 15.21 Представление данных XML в виде значения, имеющего тип 1С:Предприятия

113 15.22 Разрешение возможных коллизий

116 15.23 Запись полученных данных

119 15.24 Обработчик нажатия кнопки Создать начальный образ

2 15.25 Обработчик нажатия кнопки Записать изменения

515.26 Обработчик нажатия кнопки Прочитать изменения

815.27 Просмотр работы событий объекта ПланОбменаОбъект

1115.28 Перемещение Узла2 в корень дерева

1415.29 Отключение поддерева от дерева

1715.30 Создание распределенной информационной базы из баз с идентичной конфигурацией

2017Глава 17. Создание документа ввода начальных остатков

2117.1 Обработчик события Перед записью формы документа

2417.2 Обработчик события Перед записью в модуле объекта Документ

2718Часть 3. Специальные приемы разработки

28Глава 1. Общие приемы

301.1 Обработчик события нажатия кнопки Подбор

331.2 Обработчик события Обработка выбора табличного поля Материалы

361.3 Обработчик события нажатия кнопки Подбор

391.4 Изменения в обработчике события нажатия кнопки Подбор

421.5 Изменения в обработчике события Обработка выбора

451.7 Обработчик нажатия кнопки ДокументыКлиента

481.8 Изменения обработчика события При открытии формы документа

5118Глава 2. Общие формы

532.1 Текст обработчика события При активизации строки

562.2 Обработчик события При открытии формы

592.3 Обработка события При изменении для кнопки Остатки материалов

622.4 Обработка события При открытии формы документа

652.5 Обработка события При изменении переключателя

682.6 Обработчик события При активизации строки табличного поля

712.7 Обработчик события При выводе строки табличного поля

742.8 Обработчик события При открытии формы

772.9 Изменения в обработчике события При выводе строки табличного поля списка справочника

16

17

18

19

20

21

003-razv...  ПЛАН.полный 1-28.

1. Создание ИБ. 2. Подсистемы. – картинки, +сортировка-командный интерфейс + правая-свойства  +Подсистемы-все подсистемы  +ВИДИМОСТЬ ++Панель навигации ++дейтсвий ++рабочая область
2. –Справочники-данные реквизиты –изменить
3. –КонтекстМодуляФормы  =  + локюконтекст,+ рекв.формы, +св и мет Управл форма

+ св и мет расш форм +глоб конт +экспорт перем

4. Форма_документ ++АНАЛИЗ_КОДА = +1модуль формы +2реквизиты  +3УправляемаяФорма_свойство

+4Расширение управляемой формы для документа_свойство
+5Глоб контекст_свойство
++6 имя неглоб общ модуля  ++ не проц глоб мод  ++не перемен управ прил
 === лок перем модуля

АНАЛИЗ_КОДА   2 =  Элементы.Материалы.ТекущиеДанные  =ctrl+f1  + == ctrl+f 

+ Сервис-Параметры-Тонкий клиент

АНАЛИЗ_КОДА   3 =   отладчик (при написании своей программы)  == значки  +

++f5  + Элементы.Материалы.ТекущиеДанные;  + выделить  + Элементы  
+ _shift+f9 (вычислить выржение)  _кнопка F2 ( в отдельном окне)
++стек вызовов +  шагнуть через F10  +

+++ ЭтаФорма  _рассчитать    или ЭтотОбъект

5.  
6. Регистры накопления.- измерения, ресурсы.

Регистры накопления + Докуметы  ++ командный интерфейс _форма

+++ регистратор_документ   +++РН _форма_команд_интерефейс

                    ++++КОЛЛЕКЦИЯ 
  ++ Справочник.Сотрудники ++ Справочник[“Сотрудники”]     ++Табличнаячасть[0]

7. Отчет.   +Макет +Запрос
   +Настройки-Отчет-Детальные записи (ins)
8. Макеты. Редактирование макетов и форм.

+ОказаниеУслуги +Макеты +Печать  =Создание

+ОказаниеУслуги +Макеты +Печать  =Редактирование

+ОказаниеУслуги +Прочее+МодульМенеджера  =код

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

   СуммаИтог=0;

СуммаИтог= СуммаИтог+ВыборкаПереченьНоменклатуры.Сумма;                

     ОбластьИтог.Параметры.ВсегоПоДокументу=СуммаИтог;

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

9.Периодический регистр сведений. Чтение-запись на сервере.

  +

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

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

ЗначенияРесурсов=РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата,Отбор);  

Возврат ЗначенияРесурсов.Цена;   

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

+

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

            // Вставить содержимое обработчика.

            //Получить текущую строку

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

            //Установить цену

            СтрокаТабличнойЧасти.Цена=РаботаСоСправочниками.РозничнаяЦена(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура);

            //Пересчитать сумму строки

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

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

10.Перечисления.

+регистрция расхода ном= матерал

+ ОказаниеУслуги

  Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры=

                                   Перечисления.ВидыНоменклатуры.Материал Тогда

КонецЕсли;

11.Проведение документа по нескольким регистрам.  РЕГИСТР ОСТАТКОВ.

                          Регистр СтоимостьМатериалов

+ ,,                 ПриходнаяНакладная

Движения.СтоимостьМатериалов.Записывать=Истина;   

// регистр СтоимостьМатериалов приход

               Движение=Движения.СтоимостьМатериалов.Добавить();

               Движение.ВидДвижения=ВидДвиженияНакопления.Приход;

               Движение.Период=Дата;

               Движение.Материал=ТекСтрокаМатериалы.Материал;

               Движение.Стоимость=ТекСтрокаМатериалы.Сумма;

++ Команд. Интерфейс формы

+++ Оказание Услуги …

12.Оборотные регистры накопления. Продажи.(ОБОРОТЫ) Услуги   = РЕГИСТР ОБОРОТОВ.

+++ создание регистра      и для услуг и для товаров

+++ ком. Инт. = все подстистемы_видимость_см.также

+ ОказаниеУслуги    Движения вручную

+

КонецЕсли;

// РесгистрПродажи

     Движение=Движения.Продажи.Добавить();

             Движение.Период=Дата;

             Движение.Номенклатура=ТекСтрокаПереченьНоменклатуры.Номенклатура;

             Движение.Клиент=Клиент;

             Движение.Мастер=Мастер;

             Движение.Количество=ТекСтрокаПереченьНоменклатуры.Количество;

             Движение.Выручка=ТекСтрокаПереченьНоменклатуры.Сумма;

             Движение.Стоимость=ТекСтрокаПереченьНоменклатуры.Стоимость*

                                                                       ТекСтрокаПереченьНоменклатуры.Количество;

13.Отчеты.

2 способа доступа к данным БД – объетный RW  и табличный R

+ Объектный   =     ДокументОбъект.ОказаниеУслуги  (обр. событ… целостность)

+ Табличный   - с пом. Запросов (больш об инф.)  = реальн табл (обък +необъект) + вирт.

++Объект. Таб  - поле Ссылка (на тек запись) +польз. Представл.

+++Язык запросов

+++Система комп. Данных   = схема комп данн +

+++ СиКД = +СКД+КомпновщикМакета+ПроцессорКомпановки+РезультатКомпановки

++1 Материалы_01

+

ВЫБРАТЬ

            ОстаткиМатериаловОстаткиИОбороты.Склад,

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

            ОстаткиМатериаловОстаткиИОбороты.КоличествоНачальныйОстаток,

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

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

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

ИЗ

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

++2   РеестрДокументовОказаниеУслуги_о2

ВЫБРАТЬ

            ОказаниеУслуги.Склад,

            ОказаниеУслуги.Мастер,

            ОказаниеУслуги.Клиент,

            ОказаниеУслуги.Ссылка КАК Документ

ИЗ

            Документ.ОказаниеУслуги КАК ОказаниеУслуги

УПОРЯДОЧИТЬ ПО

            Документ

+++++1 +Отчет_Добавить  +СКД +запрос+Таблица_Поля  ++Псведонимы++Порядок

               ++Настройки_НоваяГруппировка_Поля    +++Подсистемы

++3   РЕЙТИНГ УСЛУГ  из 2 табл

ВЫБРАТЬ

            СпрНоменклатура.Ссылка КАК Услуга,

            ПродажиОбороты.ВыручкаОборот КАК Выручка

ИЗ

            Справочник.Номенклатура КАК СпрНоменклатура

                        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

                        ПО ПродажиОбороты.Номенклатура = СпрНоменклатура.Ссылка

ГДЕ

            СпрНоменклатура.ЭтоГруппа = &ЛОЖЬ

            И СпрНоменклатура.ВидНоменклатуры = &ВидНоменклатуры

УПОРЯДОЧИТЬ ПО

            Выручка УБЫВ

++ КонецПериода(&ДатаОкончания,"День")

+++++3.2.1 +Отчет_Добавить  +СКД +запрос+Таблица_Поля  ++Связи

СпрНоменклатура.ЭтоГруппа = ЛОЖЬ

СпрНоменклатура.ВидНоменклатуры = ВидНоменклатуры

++Псведонимы++Порядок    ++ресурсы  +параметры

++Настройки_НоваяГруппировка_Поля   

КонецПериода(&ДатаОкончания,"День")       

++  состав даты  –тип Дата

ВидНоменклатуры.Услуга

++Выбранные поля + Другие настройки                           +++Подсистемы

+++++3.2 +Отчет оформление

+Настройки –Условное оформление –Цвет + Выбранные поля

++Кнопка вверху – Свойства элемента польз. Настроек     +Отбор ++

+++++ 4  Выручка мастеров +Отчет_Добавить  +СКД +запрос+ Таблицы ++Параметраы_вирт_табл (Период- День)

ВЫБРАТЬ

            ПродажиОбороты.Мастер,

            ПродажиОбороты.Период,

            ПродажиОбороты.Клиент,

            ПродажиОбороты.ВыручкаОборот КАК Выручка

ИЗ

            РегистрНакопления.Продажи.Обороты(, , День, ) КАК ПродажиОбороты

+ Ресуры  +Параметра           КонецПериода(&ДатаОкончания,"День")

++ 4.2 Настройки – Детальные записи  --Поле группировки –Период

++ 4.3 Диаграмма изм-я   +СКД +Вариант отчета + ОбъемВыручки   +Диаграмма(стру отчета)     +Точки =мастер    +Друг_настройки =Полосы измерительной диаграммы

+++++ 5  Актуальные значения из периодичеких регистров сведений.

Перечень услуг +Запрос     (Номенкл+ценыСрезПоследних)  +&ДатаОтчета

+СВЯЗИ+УСЛОВИЯ+Псведонимы

+

ВЫБРАТЬ

            СпрНоменклатура.Родитель КАК ГруппаУслуг,

            СпрНоменклатура.Ссылка КАК Услуга,

            ЦеныСрезПоследних.Цена

ИЗ

            Справочник.Номенклатура КАК СпрНоменклатура

                        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Цены.СрезПоследних(&ДатаОтчета, ) КАК ЦеныСрезПоследних

                        ПО ЦеныСрезПоследних.Номенклатура = СпрНоменклатура.Ссылка

ГДЕ

            СпрНоменклатура.ВидНоменклатуры = &ВидНоменклатуры

 ++РЕСУРСЫ    ++Параметры (+ВидНоменклатуры =услуга)

++Настроки (группировки =груп_усл_иерархия+дет записи) +выбр поля

++Другие настройки    +Дата отчета_Быстрый доступ

+++++6 +Отчет_Добавить  +СКД +запрос+ РейтингКлиентов_о6

+

ВЫБРАТЬ

            ПродажиОбороты.Клиент,

            ПродажиОбороты.ВыручкаОборот КАК Выручка,

            ПродажиОбороты.СтоимостьОборот КАК Стоимость

ИЗ

            РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

+Выч поля  =    Доход   Выручка-Стоимость

++Ресурсы   ++Настройки –диаграмма –точки –Клиент   +Выбран поля__Доход

    +Вид диаг  + назва    +++Подсистемы

+++++7 +Отчет универсальный

+

ВЫБРАТЬ

            ПродажиОбороты.Номенклатура,

            ПродажиОбороты.Клиент,

            ПродажиОбороты.Мастер,

            ПродажиОбороты.КоличествоОборот,

            ПродажиОбороты.ВыручкаОборот,

            ПродажиОбороты.СтоимостьОборот

ИЗ

            РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

++Запрос  ++Ресурсы _поля

++Настройки-Добавить –новая таблица

++Таблица –польз настройки

14.Оптимизация проведения документа «Оказание услуги».

    Минусы = через точку, опред.стои-ти, контроль остатко ОП.

+ СправочникСсылка.Номенклатура   - обращение

++ Необъектн. Данные – в виде записей и полей

 + ДокументОбъект.ОказаниеУслуги  при проведении

--  - СправочникВыборка.Клиенты

 +++ Док - если инфо из шапки = исп. Конструктора дв.

                 - если инфо табл.+ итоги регистров  = исп. Запросы

  --  Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры

+ ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка

+

//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

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

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

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

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

                        "ВЫБРАТЬ

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,

                        |           СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,

                        |           СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе,

                        |           МАКСИМУМ(ОказаниеУслугиПереченьНоменклатуры.Стоимость) КАК Стоимость

                        |ИЗ

                        |           Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры

                        |ГДЕ

                        |           ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка

                        |

                        |СГРУППИРОВАТЬ ПО

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры";

            Запрос.УстановитьПараметр("Ссылка", Ссылка);

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

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

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

                        // Вставить обработку выборки ВыборкаДетальныеЗаписи

            КонецЦикла;

            //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

Задача 01.+++ Создание запроса  =ОПТИМИЗАЦИЯ ПРОВЕДЕНИЯ ДОКУМЕНТА.

Постановка задачи 01.

001.Запрос1. Формирование временной таблицы из номенклатуры документа.

002.Запрос2. Стоимость и остатки из регистров накопления. +Блокировка данных.

003. Запись движения регистров. Движения.Записать();

004.Запрос3. Проверка отрицательных остатков.

+Войти ниже цикла  - пр.кнопка  _КонструкторЗапросаСОбработкойРезультата

++Выбрать табл часть –ОказаниеУслуги  +выбрать поля

++УСЛОВИЯ  _ССЫЛКА  ++ груп.поле  _сумммир.поля (максимум –цена)

++ псевдонимы

++  ТекСтрокаПереченьНоменклатуры     зам. На     ВыборкаДетальныеЗаписи 

Задача 02.+++автоматический расчет стоимости =

запрос= + Табл.часть –оказание услуги + регист стоим матер +регист остатки материал.

+1 –удал _ РЕКВИЗИТА   _стоимость из + реквиз  + и формы док.

+2  временнная таблица _НоменклатураДокумента (из Дополнительно)

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

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

                          Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;

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

   +создать Запрос –пр.кн.м.   +Таблица +Создание врем.Табл.  + 4 поля

+3.2 +1-ый  РегистрНакопления.СтоимостьМатериалов.Остатки

+ для производительнотси   =  (параметры вирт. Таблицы)
   Материал В (ВЫБРАТЬ НоменклатураДокумента.Номенклатура ИЗ НоменклатураДокумента)

Запрос2.Текст="ВЫБРАТЬ

                                        |       НоменклатураДокумента.Номенклатура,

                                        |       НоменклатураДокумента.ВидНоменклатуры,

                                        |       НоменклатураДокумента.КоличествоВДокументе,

                                        |       НоменклатураДокумента.СуммаВДокументе,

                                        |       СтоимостьМатериаловОстатки.СтоимостьОстаток

                                        |ИЗ

                                        |       НоменклатураДокумента КАК НоменклатураДокумента

                                        |                  ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(

                                        |                                          ,

                                        |                                          Материал В

                                        |                                                      (ВЫБРАТЬ

                                        |                                                                 НоменклатураДокумента.Номенклатура

                                        |                                                      ИЗ

                                        |                                                                 НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки

                                        |                  ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал";

3.3 + ОстаткиМатериалов.Остатки  рег. …

3.4 +стои  или  колич =0        ЕСТЬNULL()           

     ЕСТЬNULL (СтоимостьМатериаловОстатки.СтоимостьОстаток,0)        

3/5/5   Добавить к полям функцию

      ЕСТЬNULL (СтоимостьМатериаловОстатки.СтоимостьОстаток,0)

3.5.6   в конце

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

3.6 Надо изменить способ получ  стоимости  = стои/колич

Если ВыборкаДетальныеЗаписи.Количество=0 Тогда

                                     СтоимостьМатериала=0;

                          Иначе СтоимостьМатериала =ВыборкаДетальныеЗаписи.Стоимость/ВыборкаДетальныеЗаписи.Количество;

                        КонецЕсли;

3.6.2

Замена    ВыборкаДетальныеЗаписи.Стоимость    на    СтоимостьМатериала

3.7 При перепроведении документа

//   Запишем пустые наборы записей - чтобы читать остатки без учета данных в документе

                        Движения.СтоимостьМатериалов.Записать();

                        Движения.ОстаткиМатериалов.Записать();

                // перед                                                     

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

3.8           ТЗ=Результат.Выгрузить();  для проверки явной

3.9   Контроль остатков

Движения.Записать();

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

                // Проверить отрицательные остатки

КонецЕсли;

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

3.9.2

    Материал В (ВЫБРАТЬ НоменклатураДокумента.Номенклатура ИЗ НоменклатураДокумента) И Склад=&Склад

ОстаткиМатериаловОстатки.КоличествоОстаток < 0

+ к запросу

Запрос3.УстановитьПараметр("Склад",Склад);

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

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

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

                         Сообщение=Новый СообщениеПользователю();

                         Сообщение.Текст="Не хватает"+ Строка(-ВыборкаДетальныеЗаписи.КоличествоОстаток) +

                          "единиц материала"""+ВыборкаДетальныеЗаписи.Материал+""";

                         Сообщение.Сообщить();

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

                КонецЦикла;

   3.10 Блокировка записей

// Установим необходимые блокировки данных в регистрах Стои Материалов и ОстаткиМатериалов

                                   Движения.СтоимостьМатериалов.БлокироватьДляИзменения=Истина;

                                   Движения.ОстаткиМатериалов.БлокироватьДляИзменения=Истина; 

15… План видов характеристик.

   ++Объекты – 1. План видов характеристик  - СвойстваНоменклатуры
                            2. Спр- Варианты номен. 3.спр -Доп.Свойс.Ном.

                            4. Регистр сведений -Знач.Свойс.Ном.

++ Номенклатура+ +ВариантыНоменклатуры_СПР+ДополнительныеСвойстваНоменклатуры_СПР
+СвойстваНоменклатуры_ПВХ_ЗначенияСвойствНоменклатуры_РСв.

++ изменение формы для владельца

+

&НаСервере

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

            // Вставить содержимое обработчика.

            Если Параметры.Отбор.Свойство("Владелец") Тогда

                        Элементы.Код.Видимость=Ложь;

            КонецЕсли;

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

++  в рег свед на форме списка

+

&НаСервере

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

            // Вставить содержимое обработчика.

            Если Параметры.Отбор.Свойство("НаборСвойств") Тогда

                        Элементы.НаборСвойств.Видимость=Ложь;

            КонецЕсли;

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

++  Движение.НаборСвойств=ТексСтрокаМатериалы.НаборСвойств;

++ в запрос     | ОказаниеУслугиПереченьНоменклатуры.НаборСвойств, 

            +  |НоменклатураДокумента.НаборСвойств,

16. Бухгалтерский учет

 +Спр +ПлХар +ПлСч +РеБу

+  

        Движения.Управленческий.Записывать=Истина;

// Регистр Уравленческий

               Движение=Движения.Управленческий.Добавить();

               Движение.СчетДт=ПланыСчетов.Основной.Товары;

               Движение.СчетКт=ПланыСчетов.Основной.РасчетыСПоставщиками;

               Движение.Период=Дата;

               Движение.Сумма=ТекСтрокаМатериалы.Сумма;

               Движение.КоличествоДт=ТекСтрокаМатериалы.Количество;

               Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материалы] =ТекСтрокаМатериалы.Материал;

+

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материалы]

Движение.СубконтоДт.Материалы                                      то же

++ ОказаниеУслуги

+      Движения.Управленческий.Записывать=Истина;

// Регистр Управленческий

            // д62 (ДебиторскаяЗадолженность) -К 90 (капитал) РозничнаяСумма

            Движение=Движения.Управленческий.Добавить();

            Движение.СчетДт=ПланыСчетов.Основной.ДебиторскаяЗадолженность;

            Движение.СчетКт=ПланыСчетов.Основной.Капитал;

            Движение.Период=Дата;

            Движение.Сумма=ВыборкаДетальныеЗаписи.СуммаВДокументе;

            Движение.СубконтоДт.Клиенты=Клиент;

            //   д90 (капитал) - к 41 (товары) - себестоимость

            Движение=Движения.Управленческий.Добавить();

            Движение.СчетДт=Планысчетов.Основной.Капитал;

            Движение.СчетКт=Планысчетов.Основной.Товары;

            Движение.Период=Дата;

            Движение.Сумма=СтоимостьМатериала*ВыборкаДетальныеЗаписи.КоличествоВДокументе;

            Движение.КоличествоКт=ВыборкаДетальныеЗаписи.КоличествоВДокументе;

            Движение.СубконтоКт.Материалы=ВыборкаДетальныеЗаписи.Номенклатура;

+ Отчет ОСВ

+

ВЫБРАТЬ

            Основной.Код КАК Код,

            Основной.Наименование,

            УправленческийОстаткиИОбороты.СуммаНачальныйОстатокДт КАК СуммаНачДт,

            УправленческийОстаткиИОбороты.СуммаНачальныйОстатокКт КАК СуммаНачКт,

            УправленческийОстаткиИОбороты.СуммаОборотДт,

            УправленческийОстаткиИОбороты.СуммаОборотКт,

            УправленческийОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонДт,

            УправленческийОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонКт

ИЗ

            ПланСчетов.Основной КАК Основной

                        ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Управленческий.ОстаткиИОбороты КАК УправленческийОстаткиИОбороты

                        ПО (УправленческийОстаткиИОбороты.Счет = Основной.Ссылка)

УПОРЯДОЧИТЬ ПО

            Код

17. План видов расчета, регистр расчета.

  + ВидРасчета +БазовыйПериод

+ План видов расчета (св.  Использует период действия) (Зависимость от базы)

    ++ Зависимость от базы  - по периоду действия  -по периоду регистрации

+ ВидРасчета  - базовый, вытесняющий, ведущий

++ Для премии – базов =оклад, ведущие -  оклад и невыход

+++Рег.Сведений  ++Спр.ВидыГрафиковРаботы

18. Использование регистра расчета

КонецДня(ТекСтрокаНачисления.ДатаОкончания)

+

Процедура ОбработкаПроведения(Отказ, Режим)

            //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

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

            Движения.Начисления.Записывать = Истина;

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

                        // регистр Начисления

                        Движение = Движения.Начисления.Добавить();

                        Движение.Сторно = Ложь;

                        Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;

                        Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;

                        Движение.ПериодДействияКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);

                        Движение.ПериодРегистрации = ТекСтрокаНачисления.ДатаНачала;

                        Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;

                        Движение.БазовыйПериодКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);

                        Движение.Сотрудник = ТекСтрокаНачисления.Сотрудник;

                        Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;

                        Движение.ИсходныеДанные = ТекСтрокаНачисления.Начислено;

            КонецЦикла;

            //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

- 19. Полнотекстовый поиск.

-20. Выполнение заданий по расписанию.

 ++ имя метода +расписание

21. Редактирование движений в форме документа.

 +ввод нач. остатков

+

&НаКлиенте

Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)

            // Вставить содержимое обработчика.

            Для Каждого ЗаписьРегистра ИЗ Объект.Движения.ОстаткиМатериалов Цикл

                        ЗаписьРегистра.Период=Объект.Дата;

            КонецЦикла; 

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

+

22. Список пользователей и их роли.

+

ВЫБРАТЬ 1  ИЗ Документ.НачисленияСотрудникам.Начисления  ГДЕ Документ.НачисленияСотрудникам.Начисления.Видрасчета=ЗНАЧЕНИЕ(ПланВидовРасчета.ОсновныеНачисления.Премия) И Документ.НачисленияСотрудникам.Начисления.Ссылка=#Параметр(1).Ссылка

++

ВЫБРАТЬ 1  ИЗ Документ.НачисленияСотрудникам.Начисления  ГДЕ Документ.НачисленияСотрудникам.Начисления.Видрасчета=ЗНАЧЕНИЕ(ПланВидовРасчета.ОсновныеНачисления.Премия) И Документ.НачисленияСотрудникам.Начисления.Ссылка=#Параметр(1).Ссылка

++

ДокНачисления ГДЕ НЕ 1 В (#ЕстьПремия("ДокНачисления"))

24. Обмен данными

+константа для обмена

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

               Возврат Константы.ПрефиксНумерации.Получить();

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

+ спр

Процедура ПриУстановкеНовогоКода (СтандартнаяОбработка, Префикс)

            Префикс=Обмен.ПолучитьПрефиксНомера();

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

+ ПланОбмена

++02 созадние плана обмена

&НаСервере

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

            // Вставить содержимое обработчика.

            Если Объект.Ссылка=ПланыОбмена.Филиалы.ЭтотУзел() Тогда

                        Элементы.Главный.Доступность=Ложь;

            КонецЕсли

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

+

Процедура ЗарегистрироватьИзменения(Команда)

            // Вставить содержимое обработчика.

            РегистрацияИзмененийНаСервере(Элементы.Список.ТекущаяСтрока);

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

+

&НаСервереБезКонтекста

Процедура РегистрацияИзмененийНаСервере(Узел)

ПланыОбмена.ЗарегистрироватьИзменения(Узел);         

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

+

&НаСервереБезКонтекста

Функция ПредопределенныйУзел(Узел)

   Возврат Узел=ПланыОбмена.Филиалы.ЭтотУзел();     

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

+

&НаКлиенте

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

            // Вставить содержимое обработчика.

            Если ПредопределенныйУзел(Элемент.ТекущаяСтрока)Тогда

                        Элементы.ЗарегистрироватьИзменения.Доступность=Ложь;

            Иначе

                        Элементы.ЗарегистрироватьИзменения.Доступность=Истина;

            КонецЕсли;

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

++3 создание процедур обмена

+

&НаКлиенте

Процедура ВыполнитьОбмен(Команда)

            // Вставить содержимое обработчика.

            ОбменСФилиалами();

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

+

&НаСервереБезКонтекста

Процедура ОбменСФилиалами()Экспорт

    ВыборкаУзлов=ПланыОбмена.Филиалы.Выбрать();

            Пока ВыборкаУзлов.Следующий() Цикл

                        Если ВыборкаУзлов.Ссылка<>ПланыОбмена.Филиалы.ЭтотУзел() Тогда

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

                                   УзелОбъект.ПрочитатьСообщениеСИзменениями();

                                   УзелОбъект.ЗаписатьСообщениеСИзменениями();

                        КонецЕсли;

            КонецЦикла;

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

25.Функциональные опции.

26. Подборы и ввод на основании.

+

&НаКлиенте

            Процедура Подбор(Команда)

                        // Вставить содержимое обработчика.

                        ОткрытьФорму("Справочник.Номенклатура.ФормаВыбора",,Элементы.Материалы);

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

+

 &НаКлиенте

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

                        // Вставить содержимое обработчика.

                        Элементы.Материалы.ДобавитьСтроку();

                        Элементы.Материалы.ТекущиеДанные.Материал=ВыбранноеЗначение;

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

++замена

&НаКлиенте

            Процедура Подбор(Команда)

                        // Вставить содержимое обработчика.

                        ПараметрыФормы=Новый Структура("ЗакрыватьПриВыборе",Ложь);

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

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

++ или

            ++        ПараметрыФормы=Новый Структура("Множественныйвыбор",Истина);

&НаКлиенте

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

                        // Вставить содержимое обработчика.

                        Для Каждого ВыбранныйЭлемент из ВыбранноеЗначение Цикл

                                     НоваяСтрока=Объект.Материалы.Добавить();

                                     НоваяСтрока.Материал=ВыбранныйЭлемент;

                        КонецЦикла; 

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

++ или

ПараметрыФормы=Новый Структура("ЗакрыватьПриВыборе,Множественныйвыбор",Ложь,Истина);

+++Ввод на основании

+

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

            //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

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

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

                        // Заполнение шапки

                        Клиент = ДанныеЗаполнения.Ссылка;

                        ОбъектОснование = ДанныеЗаполнения.Ссылка;

            КонецЕсли;

            //}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

+

27.Приемы разработки форм.

+ для Справочник.Объект.Клиенты   - ДанныеФормы Структура

+ ЗначениеВДанныеФормы()      ДанныеФормыВЗначение()

+ ЗначениеВРеквизитФормы() 

++Связанные списки

++ Оформление строк в форме списка

+

&НаСервере

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

            // Вставить содержимое обработчика.

            СписокСправочника=Элементы.Список;

            СписокСправочника.Отображение=ОтображениеТаблицы.Список;

            СписокСправочника.ВертикальныеЛинии=Ложь;

            СписокСправочника.ГоризонтальныеЛинии=Ложь;

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

++Вычисляемые колонки в списке

++Список выбора для поля ввода

++Форма выбора для поля, содержащего ссылочный реквизит

++Проверка заполнения реквизитов

-- ++Использование параметризированных команд

+

&НаКлиенте

Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

            // Вставить содержимое обработчика.

            // ПараметрыФормы = Новый Структура("", );

            // ОткрытьФорму("Документ.ОказаниеУслуги.ФормаСписка", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно);

                           ПараметрыФормы = Новый Структура("Отбор,КлючНазначенияИспользования,СформироватьПриОткрытии", Новый Структура("Склад", ПараметрКоманды), "ОстаткиПоСкладу", Истина);

ОткрытьФорму("Отчет.Материалы_o1.Форма", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно);

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

22

23

004-razv...  ВАЖНО-обращение 1-28.

001… СправочникМенеджер.Номенклатура   ССЫЛКА  ОБЪЕКТ   ВЫБОРКА

      002… Сумма = Количество * Цена       +ФормаДокумента
+

&НаКлиенте

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

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

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

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

+ +

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

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

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

++

&НаКлиенте

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

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

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

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

++

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

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

003м.  Форма

+

&НаКлиенте

Процедура ФормаСписка (Справочник)

m="СправочникиКлиентыФормаСписка";

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

Сообщить(m);

УстановитьДействие("Получить","Событие");

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

// обработчики назначаемые для форм  ?

004. Команды

+

&НаКлиенте

Процедура Команда2(Команда)

            // Вставить содержимое обработчика.

            Сообщить(ТекущаяДата());

            История = ИсторияработыПользователя.Получить();

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

004 .2 - 

+

&НаКлиенте

Процедура Команда1_сообщение()

                        ТекстовоеСообщение();

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

++

Процедура ТекстовоеСообщение()Экспорт

                      Сообщить ("Текстовое сообщение1");

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

006…

+

Процедура ОбработкаПроведения(Отказ, Режим)

            //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

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

            Движения.ОстаткиМатериалов.Записывать = Истина;

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

                        // регистр ОстаткиМатериалов Приход

                        Движение = Движения.ОстаткиМатериалов.Добавить();

                        Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

                        Движение.Период = Дата;

                        Движение.Материал = ТекСтрокаМатериалы.Материал;

                        Движение.Склад = Склад;

                        Движение.Количество = ТекСтрокаМатериалы.Количество;

            КонецЦикла;

            //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

008… Макеты. Редактирование макетов и форм.

Процедура Печать(ТабДок, Ссылка) Экспорт

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

            Макет = Документы.ОказаниеУслуги.ПолучитьМакет("Печать");

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

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

            "ВЫБРАТЬ

            |           ОказаниеУслуги.Дата,

            |           ОказаниеУслуги.Клиент,

            |           ОказаниеУслуги.Мастер,

            |           ОказаниеУслуги.Номер,

            |           ОказаниеУслуги.Склад,

            |           ОказаниеУслуги.ПереченьНоменклатуры.(

            |                       НомерСтроки,

            |                       Номенклатура,

            |                       Количество,

            |                       Цена,

            |                       Сумма

            |           )

            |ИЗ

            |           Документ.ОказаниеУслуги КАК ОказаниеУслуги

            |ГДЕ

            |           ОказаниеУслуги.Ссылка В (&Ссылка)";

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

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

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

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

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

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

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

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

            ТабДок.Очистить();

            ВставлятьРазделительСтраниц = Ложь;

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

                        Если ВставлятьРазделительСтраниц Тогда

                                   ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

                        КонецЕсли;

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

                        Шапка.Параметры.Заполнить(Выборка);

                        ТабДок.Вывести(Шапка, Выборка.Уровень());

                        ТабДок.Вывести(ОбластьПереченьНоменклатурыШапка);

                        ВыборкаПереченьНоменклатуры = Выборка.ПереченьНоменклатуры.Выбрать();

СуммаИтог=0;

                        Пока ВыборкаПереченьНоменклатуры.Следующий() Цикл

                                   ОбластьПереченьНоменклатуры.Параметры.Заполнить(ВыборкаПереченьНоменклатуры);

                                   ТабДок.Вывести(ОбластьПереченьНоменклатуры, ВыборкаПереченьНоменклатуры.Уровень());

СуммаИтог= СуммаИтог+ВыборкаПереченьНоменклатуры.Сумма;                            

                        КонецЦикла;

 ОбластьИтог.Параметры.ВсегоПоДокументу=СуммаИтог;

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

                        Подвал.Параметры.Заполнить(Выборка);

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

                        ВставлятьРазделительСтраниц = Истина;

            КонецЦикла;

            //}}

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

14+.

+

Процедура ОбработкаПроведения(Отказ, Режим)

            //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

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

            Движения.ОстаткиМатериалов.Записывать = Истина;

            Движения.СтоимостьМатериалов.Записывать=Истина;

Движения.Продажи.Записывать=Истина;

//Создать менеджер временных таблиц

МенеджерВТ=Новый МенеджерВременныхТаблиц;

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

// укажем какой менеджер временных таблиц использует запрос

 Запрос.МенеджерВременныхТаблиц=МенеджерВТ;

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

        "ВЫБРАТЬ

        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,

        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,

        |   СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе

        |ПОМЕСТИТЬ НоменклатураДокумента

        |ИЗ

        |   Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры

        |ГДЕ

        |   ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка

        |

        |СГРУППИРОВАТЬ ПО

        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

        |   ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры";

            Запрос.УстановитьПараметр("Ссылка", Ссылка);

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

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

                          Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;

                          Запрос2.Текст="ВЫБРАТЬ

                                        |       НоменклатураДокумента.Номенклатура,

                                        |       НоменклатураДокумента.ВидНоменклатуры,

                                        |       НоменклатураДокумента.КоличествоВДокументе,

                                        |       НоменклатураДокумента.СуммаВДокументе,

                                        |       ЕСТЬNULL(СтоимостьМатериаловОстатки.СтоимостьОстаток, 0) КАК Стоимость,

                                        |       ЕСТЬNULL(ОстаткиМатериаловОстатки.КоличествоОстаток, 0) КАК Количество

                                        |ИЗ

                                        |       НоменклатураДокумента КАК НоменклатураДокумента

                                        |                  ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(

                                        |                                          ,

                                        |                                          Материал В

                                        |                                                      (ВЫБРАТЬ

                                        |                                                                 НоменклатураДокумента.Номенклатура

                                        |                                                      ИЗ

                                        |                                                                 НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки

                                        |                  ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал

                                        |                  ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиМатериалов.Остатки(

                                        |                                          ,

                                        |                                          Материал В

                                        |                                                      (ВЫБРАТЬ

                                        |                                                                 Номенклатурадокумента.Номенклатура

                                        |                                                      ИЗ

                                        |                                                                 Номенклатурадокумента)) КАК ОстаткиМатериаловОстатки

                                        |                  ПО НоменклатураДокумента.Номенклатура = ОстаткиМатериаловОстатки.Материал";

                        // Установим необходимые блокировки данных в регистрах Стои Материалов и ОстаткиМатериалов

                                   Движения.СтоимостьМатериалов.БлокироватьДляИзменения=Истина;

                                   Движения.ОстаткиМатериалов.БлокироватьДляИзменения=Истина;

                        //   Запишем пустые наборы записей - чтобы читать остатки без учета данных в документе

                        Движения.СтоимостьМатериалов.Записать();

                        Движения.ОстаткиМатериалов.Записать();

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

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

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

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

                        // Вставить обработку выборки ВыборкаДетальныеЗаписи

                        Если ВыборкаДетальныеЗаписи.Количество=0 Тогда

                                     СтоимостьМатериала=0;

                          Иначе СтоимостьМатериала =ВыборкаДетальныеЗаписи.Стоимость/ВыборкаДетальныеЗаписи.Количество;

                        КонецЕсли;

            Если  ВыборкаДетальныеЗаписи.ВидНоменклатуры=

                                   Перечисления.ВидыНоменклатуры.Материал Тогда

                        // регистр ОстаткиМатериалов Расход

                        Движение = Движения.ОстаткиМатериалов.Добавить();

                        Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

                        Движение.Период = Дата;

                        Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;

                        Движение.Склад = Склад;

                        Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;

            // Регистр СтоимостьМатериалов Расход

            Движение=Движения.СтоимостьМатериалов.Добавить();

            Движение.ВидДвижения=ВидДвиженияНакопления.Расход;

            Движение.Период=Дата;

            Движение.Материал=ВыборкаДетальныеЗаписи.Номенклатура;

            Движение.Стоимость=ВыборкаДетальныеЗаписи.КоличествоВДокументе*

                 СтоимостьМатериала;

КонецЕсли;

////////КонецЦикла;

            //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

// РесгистрПродажи

     Движение=Движения.Продажи.Добавить();

             Движение.Период=Дата;

             Движение.Номенклатура=ВыборкаДетальныеЗаписи.Номенклатура;

             Движение.Клиент=Клиент;

             Движение.Мастер=Мастер;

             Движение.Количество=ВыборкаДетальныеЗаписи.КоличествоВДокументе;

             Движение.Выручка=ВыборкаДетальныеЗаписи.СуммаВДокументе;

             Движение.Стоимость=СтоимостьМатериала*

                                                                       ВыборкаДетальныеЗаписи.КоличествоВДокументе;

            КонецЦикла;

            //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

Движения.Записать();

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

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

            Запрос3.МенеджерВременныхТаблиц=МенеджерВТ;

            Запрос3.Текст="ВЫБРАТЬ

                         |          ОстаткиМатериаловОстатки.Материал,

                         |          ОстаткиМатериаловОстатки.КоличествоОстаток

                         |ИЗ

                         |          РегистрНакопления.ОстаткиМатериалов.Остатки(

                         |                                 ,

                         |                                 Материал В

                         |                                                         (ВЫБРАТЬ

                         |                                                                    НоменклатураДокумента.Номенклатура

                         |                                                         ИЗ

                         |                                                                    НоменклатураДокумента)

                         |                                             И Склад = &Склад) КАК ОстаткиМатериаловОстатки

                         |ГДЕ

                         |          ОстаткиМатериаловОстатки.КоличествоОстаток < &0";

            Запрос3.УстановитьПараметр("Склад",Склад);

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

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

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

                         Сообщение=Новый СообщениеПользователю();

                         Сообщение.Текст="Не хватает"+ Строка(-ВыборкаДетальныеЗаписи.КоличествоОстаток) +

                          "единиц материала"""+ВыборкаДетальныеЗаписи.Материал+"""";

                         Сообщение.Сообщить();

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

            КонецЦикла;

            // Проверить отрицательные остатки

КонецЕсли;

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

24

Кратко - 003-razv...  ПЛАН.полный 1-28.

01.  Создание ИБ. 2. Подсистемы. – картинки, +сортировка-командный интерфейс + правая-свойства  +Подсистемы-все подсистемы  +ВИДИМОСТЬ ++Панель навигации ++дейтсвий ++рабочая область

02.  –Справочники-данные реквизиты –изменить

03.  –КонтекстМодуляФормы  =  + локюконтекст,+ рекв.формы, +св и мет Управл форма + св и мет расш форм +глоб конт +экспорт переем

04.  Форма_документ ++АНАЛИЗ_КОДА = +1модуль формы +2реквизиты  +3УправляемаяФорма_свойство
+4Расширение управляемой формы для документа_свойство  +5Глоб контекст_свойство

05.   

++6 имя неглоб общ модуля  ++ не проц глоб мод  ++не перемен управ прил
 === лок перем модуля

АНАЛИЗ_КОДА   2 =  Элементы.Материалы.ТекущиеДанные  =ctrl+f1  + == ctrl+f 

+ Сервис-Параметры-Тонкий клиент

АНАЛИЗ_КОДА   3 =   отладчик (при написании своей программы)  == значки  +

++f5  + Элементы.Материалы.ТекущиеДанные;  + выделить  + Элементы  
+ _shift+f9 (вычислить выржение)  _кнопка F2 ( в отдельном окне)
++стек вызовов +  шагнуть через F10  +  +++ ЭтаФорма  _рассчитать    или ЭтотОбъект

      06. Регистры накопления.- измерения, ресурсы.

Регистры накопления + Докуметы  ++ командный интерфейс _форма

+++ регистратор_документ   +++РН _форма_команд_интерефейс                      ++++КОЛЛЕКЦИЯ 
  ++ Справочник.Сотрудники ++ Справочник[“Сотрудники”]     ++Табличнаячасть[0]

06.  Отчет.   +Макет +Запрос
+Настройки-Отчет-Детальные записи (ins)

07.  Макеты. Редактирование макетов и форм.

+ОказаниеУслуги +Макеты +Печать  =Создание

+ОказаниеУслуги +Макеты +Печать  =Редактирование

+ОказаниеУслуги +Прочее+МодульМенеджера  =код

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

   СуммаИтог=0;

СуммаИтог= СуммаИтог+ВыборкаПереченьНоменклатуры.Сумма;                

     ОбластьИтог.Параметры.ВсегоПоДокументу=СуммаИтог;

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

9.Периодический регистр сведений. Чтение-запись на сервере.

  +

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

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

ЗначенияРесурсов=РегистрыСведений.Цены.ПолучитьПоследнее(АктуальнаяДата,Отбор);  

Возврат ЗначенияРесурсов.Цена;   

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

+

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

            // Вставить содержимое обработчика.

            //Получить текущую строку

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

            //Установить цену

            СтрокаТабличнойЧасти.Цена=РаботаСоСправочниками.РозничнаяЦена(Объект.Дата,СтрокаТабличнойЧасти.Номенклатура);

            //Пересчитать сумму строки

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

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

10.Перечисления.

+регистрция расхода ном= матерал

+ ОказаниеУслуги

  Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры=

                                   Перечисления.ВидыНоменклатуры.Материал Тогда

КонецЕсли;

11.Проведение документа по нескольким регистрам.  РЕГИСТР ОСТАТКОВ.

                          Регистр СтоимостьМатериалов

+ ,,                 ПриходнаяНакладная

Движения.СтоимостьМатериалов.Записывать=Истина;   

// регистр СтоимостьМатериалов приход

               Движение=Движения.СтоимостьМатериалов.Добавить();

               Движение.ВидДвижения=ВидДвиженияНакопления.Приход;

               Движение.Период=Дата;

               Движение.Материал=ТекСтрокаМатериалы.Материал;

               Движение.Стоимость=ТекСтрокаМатериалы.Сумма;

++ Команд. Интерфейс формы

+++ Оказание Услуги …

12.Оборотные регистры накопления. Продажи.(ОБОРОТЫ) Услуги   = РЕГИСТР ОБОРОТОВ.

+++ создание регистра      и для услуг и для товаров

+++ ком. Инт. = все подстистемы_видимость_см.также

+ ОказаниеУслуги    Движения вручную

+

КонецЕсли;

// РесгистрПродажи

     Движение=Движения.Продажи.Добавить();

             Движение.Период=Дата;

             Движение.Номенклатура=ТекСтрокаПереченьНоменклатуры.Номенклатура;

             Движение.Клиент=Клиент;

             Движение.Мастер=Мастер;

             Движение.Количество=ТекСтрокаПереченьНоменклатуры.Количество;

             Движение.Выручка=ТекСтрокаПереченьНоменклатуры.Сумма;

             Движение.Стоимость=ТекСтрокаПереченьНоменклатуры.Стоимость*

                                                                       ТекСтрокаПереченьНоменклатуры.Количество;

13.Отчеты.

2 способа доступа к данным БД – объетный RW  и табличный R

+ Объектный   =     ДокументОбъект.ОказаниеУслуги  (обр. событ… целостность)

+ Табличный   - с пом. Запросов (больш об инф.)  = реальн табл (обък +необъект) + вирт.

++Объект. Таб  - поле Ссылка (на тек запись) +польз. Представл.

+++Язык запросов

+++Система комп. Данных   = схема комп данн +

+++ СиКД = +СКД+КомпновщикМакета+ПроцессорКомпановки+РезультатКомпановки

++1 Материалы_01

+

ВЫБРАТЬ

            ОстаткиМатериаловОстаткиИОбороты.Склад,

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

            ОстаткиМатериаловОстаткиИОбороты.КоличествоНачальныйОстаток,

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

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

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

ИЗ

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

++2   РеестрДокументовОказаниеУслуги_о2

ВЫБРАТЬ

            ОказаниеУслуги.Склад,

            ОказаниеУслуги.Мастер,

            ОказаниеУслуги.Клиент,

            ОказаниеУслуги.Ссылка КАК Документ

ИЗ

            Документ.ОказаниеУслуги КАК ОказаниеУслуги

УПОРЯДОЧИТЬ ПО

            Документ

+++++1 +Отчет_Добавить  +СКД +запрос+Таблица_Поля  ++Псведонимы++Порядок

               ++Настройки_НоваяГруппировка_Поля    +++Подсистемы

++3   РЕЙТИНГ УСЛУГ  из 2 табл

ВЫБРАТЬ

            СпрНоменклатура.Ссылка КАК Услуга,

            ПродажиОбороты.ВыручкаОборот КАК Выручка

ИЗ

            Справочник.Номенклатура КАК СпрНоменклатура

                        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

                        ПО ПродажиОбороты.Номенклатура = СпрНоменклатура.Ссылка

ГДЕ

            СпрНоменклатура.ЭтоГруппа = &ЛОЖЬ

            И СпрНоменклатура.ВидНоменклатуры = &ВидНоменклатуры

УПОРЯДОЧИТЬ ПО

            Выручка УБЫВ

++ КонецПериода(&ДатаОкончания,"День")

+++++3.2.1 +Отчет_Добавить  +СКД +запрос+Таблица_Поля  ++Связи

СпрНоменклатура.ЭтоГруппа = ЛОЖЬ

СпрНоменклатура.ВидНоменклатуры = ВидНоменклатуры

++Псведонимы++Порядок    ++ресурсы  +параметры

++Настройки_НоваяГруппировка_Поля   

КонецПериода(&ДатаОкончания,"День")       

++  состав даты  –тип Дата

ВидНоменклатуры.Услуга

++Выбранные поля + Другие настройки                           +++Подсистемы

+++++3.2 +Отчет оформление

+Настройки –Условное оформление –Цвет + Выбранные поля

++Кнопка вверху – Свойства элемента польз. Настроек     +Отбор ++

+++++ 4  Выручка мастеров +Отчет_Добавить  +СКД +запрос+ Таблицы ++Параметраы_вирт_табл (Период- День)

ВЫБРАТЬ

            ПродажиОбороты.Мастер,

            ПродажиОбороты.Период,

            ПродажиОбороты.Клиент,

            ПродажиОбороты.ВыручкаОборот КАК Выручка

ИЗ

            РегистрНакопления.Продажи.Обороты(, , День, ) КАК ПродажиОбороты

+ Ресуры  +Параметра           КонецПериода(&ДатаОкончания,"День")

++ 4.2 Настройки – Детальные записи  --Поле группировки –Период

++ 4.3 Диаграмма изм-я   +СКД +Вариант отчета + ОбъемВыручки   +Диаграмма(стру отчета)     +Точки =мастер    +Друг_настройки =Полосы измерительной диаграммы

+++++ 5  Актуальные значения из периодичеких регистров сведений.

Перечень услуг +Запрос     (Номенкл+ценыСрезПоследних)  +&ДатаОтчета

+СВЯЗИ+УСЛОВИЯ+Псведонимы

+

ВЫБРАТЬ

            СпрНоменклатура.Родитель КАК ГруппаУслуг,

            СпрНоменклатура.Ссылка КАК Услуга,

            ЦеныСрезПоследних.Цена

ИЗ

            Справочник.Номенклатура КАК СпрНоменклатура

                        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Цены.СрезПоследних(&ДатаОтчета, ) КАК ЦеныСрезПоследних

                        ПО ЦеныСрезПоследних.Номенклатура = СпрНоменклатура.Ссылка

ГДЕ

            СпрНоменклатура.ВидНоменклатуры = &ВидНоменклатуры

 ++РЕСУРСЫ    ++Параметры (+ВидНоменклатуры =услуга)

++Настроки (группировки =груп_усл_иерархия+дет записи) +выбр поля

++Другие настройки    +Дата отчета_Быстрый доступ

+++++6 +Отчет_Добавить  +СКД +запрос+ РейтингКлиентов_о6

+

ВЫБРАТЬ

            ПродажиОбороты.Клиент,

            ПродажиОбороты.ВыручкаОборот КАК Выручка,

            ПродажиОбороты.СтоимостьОборот КАК Стоимость

ИЗ

            РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

+Выч поля  =    Доход   Выручка-Стоимость

++Ресурсы   ++Настройки –диаграмма –точки –Клиент   +Выбран поля__Доход

    +Вид диаг  + назва    +++Подсистемы

+++++7 +Отчет универсальный

+

ВЫБРАТЬ

            ПродажиОбороты.Номенклатура,

            ПродажиОбороты.Клиент,

            ПродажиОбороты.Мастер,

            ПродажиОбороты.КоличествоОборот,

            ПродажиОбороты.ВыручкаОборот,

            ПродажиОбороты.СтоимостьОборот

ИЗ

            РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

++Запрос  ++Ресурсы _поля

++Настройки-Добавить –новая таблица

++Таблица –польз настройки

14.Оптимизация проведения документа «Оказание услуги».

    Минусы = через точку, опред.стои-ти, контроль остатко ОП.

+ СправочникСсылка.Номенклатура   - обращение

++ Необъектн. Данные – в виде записей и полей

 + ДокументОбъект.ОказаниеУслуги  при проведении

--  - СправочникВыборка.Клиенты

 +++ Док - если инфо из шапки = исп. Конструктора дв.

                 - если инфо табл.+ итоги регистров  = исп. Запросы

  --  Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры

+ ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка

+

//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

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

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

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

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

                        "ВЫБРАТЬ

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,

                        |           СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,

                        |           СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе,

                        |           МАКСИМУМ(ОказаниеУслугиПереченьНоменклатуры.Стоимость) КАК Стоимость

                        |ИЗ

                        |           Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры

                        |ГДЕ

                        |           ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка

                        |

                        |СГРУППИРОВАТЬ ПО

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура,

                        |           ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры";

            Запрос.УстановитьПараметр("Ссылка", Ссылка);

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

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

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

                        // Вставить обработку выборки ВыборкаДетальныеЗаписи

            КонецЦикла;

            //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА

Задача 01.+++ Создание запроса  =ОПТИМИЗАЦИЯ ПРОВЕДЕНИЯ ДОКУМЕНТА.

Постановка задачи 01.

001.Запрос1. Формирование временной таблицы из номенклатуры документа.

002.Запрос2. Стоимость и остатки из регистров накопления. +Блокировка данных.

003. Запись движения регистров. Движения.Записать();

004.Запрос3. Проверка отрицательных остатков.

+Войти ниже цикла  - пр.кнопка  _КонструкторЗапросаСОбработкойРезультата

++Выбрать табл часть –ОказаниеУслуги  +выбрать поля

++УСЛОВИЯ  _ССЫЛКА  ++ груп.поле  _сумммир.поля (максимум –цена)

++ псевдонимы

++  ТекСтрокаПереченьНоменклатуры     зам. На     ВыборкаДетальныеЗаписи 

Задача 02.+++автоматический расчет стоимости =

запрос= + Табл.часть –оказание услуги + регист стоим матер +регист остатки материал.

+1 –удал _ РЕКВИЗИТА   _стоимость из + реквиз  + и формы док.

+2  временнная таблица _НоменклатураДокумента (из Дополнительно)

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

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

                          Запрос2.МенеджерВременныхТаблиц=МенеджерВТ;

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

   +создать Запрос –пр.кн.м.   +Таблица +Создание врем.Табл.  + 4 поля

+3.2 +1-ый  РегистрНакопления.СтоимостьМатериалов.Остатки

+ для производительнотси   =  (параметры вирт. Таблицы)
   Материал В (ВЫБРАТЬ НоменклатураДокумента.Номенклатура ИЗ НоменклатураДокумента)

Запрос2.Текст="ВЫБРАТЬ

                                        |       НоменклатураДокумента.Номенклатура,

                                        |       НоменклатураДокумента.ВидНоменклатуры,

                                        |       НоменклатураДокумента.КоличествоВДокументе,

                                        |       НоменклатураДокумента.СуммаВДокументе,

                                        |       СтоимостьМатериаловОстатки.СтоимостьОстаток

                                        |ИЗ

                                        |       НоменклатураДокумента КАК НоменклатураДокумента

                                        |                  ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.СтоимостьМатериалов.Остатки(

                                        |                                          ,

                                        |                                          Материал В

                                        |                                                      (ВЫБРАТЬ

                                        |                                                                 НоменклатураДокумента.Номенклатура

                                        |                                                      ИЗ

                                        |                                                                 НоменклатураДокумента)) КАК СтоимостьМатериаловОстатки

                                        |                  ПО НоменклатураДокумента.Номенклатура = СтоимостьМатериаловОстатки.Материал";

3.3 + ОстаткиМатериалов.Остатки  рег. …

3.4 +стои  или  колич =0        ЕСТЬNULL()           

     ЕСТЬNULL (СтоимостьМатериаловОстатки.СтоимостьОстаток,0)        

3/5/5   Добавить к полям функцию

      ЕСТЬNULL (СтоимостьМатериаловОстатки.СтоимостьОстаток,0)

3.5.6   в конце

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

3.6 Надо изменить способ получ  стоимости  = стои/колич

Если ВыборкаДетальныеЗаписи.Количество=0 Тогда

                                     СтоимостьМатериала=0;

                          Иначе СтоимостьМатериала =ВыборкаДетальныеЗаписи.Стоимость/ВыборкаДетальныеЗаписи.Количество;

                        КонецЕсли;

3.6.2

Замена    ВыборкаДетальныеЗаписи.Стоимость    на    СтоимостьМатериала

3.7 При перепроведении документа

//   Запишем пустые наборы записей - чтобы читать остатки без учета данных в документе

                        Движения.СтоимостьМатериалов.Записать();

                        Движения.ОстаткиМатериалов.Записать();

                // перед                                                     

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

3.8           ТЗ=Результат.Выгрузить();  для проверки явной

3.9   Контроль остатков

Движения.Записать();

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

                // Проверить отрицательные остатки

КонецЕсли;

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

3.9.2

    Материал В (ВЫБРАТЬ НоменклатураДокумента.Номенклатура ИЗ НоменклатураДокумента) И Склад=&Склад

ОстаткиМатериаловОстатки.КоличествоОстаток < 0

+ к запросу

Запрос3.УстановитьПараметр("Склад",Склад);

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

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

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

                         Сообщение=Новый СообщениеПользователю();

                         Сообщение.Текст="Не хватает"+ Строка(-ВыборкаДетальныеЗаписи.КоличествоОстаток) +

                          "единиц материала"""+ВыборкаДетальныеЗаписи.Материал+""";

                         Сообщение.Сообщить();

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

                КонецЦикла;

   3.10 Блокировка записей

// Установим необходимые блокировки данных в регистрах Стои Материалов и ОстаткиМатериалов

                                   Движения.СтоимостьМатериалов.БлокироватьДляИзменения=Истина;

                                   Движения.ОстаткиМатериалов.БлокироватьДляИзменения=Истина; 

15… План видов характеристик.

   ++Объекты – 1. План видов характеристик  - СвойстваНоменклатуры
                            2. Спр- Варианты номен. 3.спр -Доп.Свойс.Ном.

                            4. Регистр сведений -Знач.Свойс.Ном.

++ Номенклатура+ +ВариантыНоменклатуры_СПР+ДополнительныеСвойстваНоменклатуры_СПР
+СвойстваНоменклатуры_ПВХ_ЗначенияСвойствНоменклатуры_РСв.

++ изменение формы для владельца

+

&НаСервере

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

            // Вставить содержимое обработчика.

            Если Параметры.Отбор.Свойство("Владелец") Тогда

                        Элементы.Код.Видимость=Ложь;

            КонецЕсли;

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

++  в рег свед на форме списка

+

&НаСервере

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

            // Вставить содержимое обработчика.

            Если Параметры.Отбор.Свойство("НаборСвойств") Тогда

                        Элементы.НаборСвойств.Видимость=Ложь;

            КонецЕсли;

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

++  Движение.НаборСвойств=ТексСтрокаМатериалы.НаборСвойств;

++ в запрос     | ОказаниеУслугиПереченьНоменклатуры.НаборСвойств, 

            +  |НоменклатураДокумента.НаборСвойств,

16. Бухгалтерский учет

 +Спр +ПлХар +ПлСч +РеБу

+  

        Движения.Управленческий.Записывать=Истина;

// Регистр Уравленческий

               Движение=Движения.Управленческий.Добавить();

               Движение.СчетДт=ПланыСчетов.Основной.Товары;

               Движение.СчетКт=ПланыСчетов.Основной.РасчетыСПоставщиками;

               Движение.Период=Дата;

               Движение.Сумма=ТекСтрокаМатериалы.Сумма;

               Движение.КоличествоДт=ТекСтрокаМатериалы.Количество;

               Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материалы] =ТекСтрокаМатериалы.Материал;

+

Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материалы]

Движение.СубконтоДт.Материалы                                      то же

++ ОказаниеУслуги

+      Движения.Управленческий.Записывать=Истина;

// Регистр Управленческий

            // д62 (ДебиторскаяЗадолженность) -К 90 (капитал) РозничнаяСумма

            Движение=Движения.Управленческий.Добавить();

            Движение.СчетДт=ПланыСчетов.Основной.ДебиторскаяЗадолженность;

            Движение.СчетКт=ПланыСчетов.Основной.Капитал;

            Движение.Период=Дата;

            Движение.Сумма=ВыборкаДетальныеЗаписи.СуммаВДокументе;

            Движение.СубконтоДт.Клиенты=Клиент;

            //   д90 (капитал) - к 41 (товары) - себестоимость

            Движение=Движения.Управленческий.Добавить();

            Движение.СчетДт=Планысчетов.Основной.Капитал;

            Движение.СчетКт=Планысчетов.Основной.Товары;

            Движение.Период=Дата;

            Движение.Сумма=СтоимостьМатериала*ВыборкаДетальныеЗаписи.КоличествоВДокументе;

            Движение.КоличествоКт=ВыборкаДетальныеЗаписи.КоличествоВДокументе;

            Движение.СубконтоКт.Материалы=ВыборкаДетальныеЗаписи.Номенклатура;

+ Отчет ОСВ

+

ВЫБРАТЬ

            Основной.Код КАК Код,

            Основной.Наименование,

            УправленческийОстаткиИОбороты.СуммаНачальныйОстатокДт КАК СуммаНачДт,

            УправленческийОстаткиИОбороты.СуммаНачальныйОстатокКт КАК СуммаНачКт,

            УправленческийОстаткиИОбороты.СуммаОборотДт,

            УправленческийОстаткиИОбороты.СуммаОборотКт,

            УправленческийОстаткиИОбороты.СуммаКонечныйОстатокДт КАК СуммаКонДт,

            УправленческийОстаткиИОбороты.СуммаКонечныйОстатокКт КАК СуммаКонКт

ИЗ

            ПланСчетов.Основной КАК Основной

                        ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Управленческий.ОстаткиИОбороты КАК УправленческийОстаткиИОбороты

                        ПО (УправленческийОстаткиИОбороты.Счет = Основной.Ссылка)

УПОРЯДОЧИТЬ ПО

            Код

17. План видов расчета, регистр расчета.

  + ВидРасчета +БазовыйПериод

+ План видов расчета (св.  Использует период действия) (Зависимость от базы)

    ++ Зависимость от базы  - по периоду действия  -по периоду регистрации

+ ВидРасчета  - базовый, вытесняющий, ведущий

++ Для премии – базов =оклад, ведущие -  оклад и невыход

+++Рег.Сведений  ++Спр.ВидыГрафиковРаботы

18. Использование регистра расчета

КонецДня(ТекСтрокаНачисления.ДатаОкончания)

+

Процедура ОбработкаПроведения(Отказ, Режим)

            //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

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

            Движения.Начисления.Записывать = Истина;

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

                        // регистр Начисления

                        Движение = Движения.Начисления.Добавить();

                        Движение.Сторно = Ложь;

                        Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;

                        Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;

                        Движение.ПериодДействияКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);

                        Движение.ПериодРегистрации = ТекСтрокаНачисления.ДатаНачала;

                        Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;

                        Движение.БазовыйПериодКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);

                        Движение.Сотрудник = ТекСтрокаНачисления.Сотрудник;

                        Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;

                        Движение.ИсходныеДанные = ТекСтрокаНачисления.Начислено;

            КонецЦикла;

            //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

- 19. Полнотекстовый поиск.

-20. Выполнение заданий по расписанию.

 ++ имя метода +расписание

21. Редактирование движений в форме документа.

 +ввод нач. остатков

+

&НаКлиенте

Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)

            // Вставить содержимое обработчика.

            Для Каждого ЗаписьРегистра ИЗ Объект.Движения.ОстаткиМатериалов Цикл

                        ЗаписьРегистра.Период=Объект.Дата;

            КонецЦикла; 

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

+

22. Список пользователей и их роли.

+

ВЫБРАТЬ 1  ИЗ Документ.НачисленияСотрудникам.Начисления  ГДЕ Документ.НачисленияСотрудникам.Начисления.Видрасчета=ЗНАЧЕНИЕ(ПланВидовРасчета.ОсновныеНачисления.Премия) И Документ.НачисленияСотрудникам.Начисления.Ссылка=#Параметр(1).Ссылка

++

ВЫБРАТЬ 1  ИЗ Документ.НачисленияСотрудникам.Начисления  ГДЕ Документ.НачисленияСотрудникам.Начисления.Видрасчета=ЗНАЧЕНИЕ(ПланВидовРасчета.ОсновныеНачисления.Премия) И Документ.НачисленияСотрудникам.Начисления.Ссылка=#Параметр(1).Ссылка

++

ДокНачисления ГДЕ НЕ 1 В (#ЕстьПремия("ДокНачисления"))

24. Обмен данными

+константа для обмена

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

               Возврат Константы.ПрефиксНумерации.Получить();

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

+ спр

Процедура ПриУстановкеНовогоКода (СтандартнаяОбработка, Префикс)

            Префикс=Обмен.ПолучитьПрефиксНомера();

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

+ ПланОбмена

++02 созадние плана обмена

&НаСервере

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

            // Вставить содержимое обработчика.

            Если Объект.Ссылка=ПланыОбмена.Филиалы.ЭтотУзел() Тогда

                        Элементы.Главный.Доступность=Ложь;

            КонецЕсли

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

+

Процедура ЗарегистрироватьИзменения(Команда)

            // Вставить содержимое обработчика.

            РегистрацияИзмененийНаСервере(Элементы.Список.ТекущаяСтрока);

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

+

&НаСервереБезКонтекста

Процедура РегистрацияИзмененийНаСервере(Узел)

ПланыОбмена.ЗарегистрироватьИзменения(Узел);         

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

+

&НаСервереБезКонтекста

Функция ПредопределенныйУзел(Узел)

   Возврат Узел=ПланыОбмена.Филиалы.ЭтотУзел();     

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

+

&НаКлиенте

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

            // Вставить содержимое обработчика.

            Если ПредопределенныйУзел(Элемент.ТекущаяСтрока)Тогда

                        Элементы.ЗарегистрироватьИзменения.Доступность=Ложь;

            Иначе

                        Элементы.ЗарегистрироватьИзменения.Доступность=Истина;

            КонецЕсли;

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

++3 создание процедур обмена

+

&НаКлиенте

Процедура ВыполнитьОбмен(Команда)

            // Вставить содержимое обработчика.

            ОбменСФилиалами();

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

+

&НаСервереБезКонтекста

Процедура ОбменСФилиалами()Экспорт

    ВыборкаУзлов=ПланыОбмена.Филиалы.Выбрать();

            Пока ВыборкаУзлов.Следующий() Цикл

                        Если ВыборкаУзлов.Ссылка<>ПланыОбмена.Филиалы.ЭтотУзел() Тогда

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

                                   УзелОбъект.ПрочитатьСообщениеСИзменениями();

                                   УзелОбъект.ЗаписатьСообщениеСИзменениями();

                        КонецЕсли;

            КонецЦикла;

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

25.Функциональные опции.

26. Подборы и ввод на основании.

+

&НаКлиенте

            Процедура Подбор(Команда)

                        // Вставить содержимое обработчика.

                        ОткрытьФорму("Справочник.Номенклатура.ФормаВыбора",,Элементы.Материалы);

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

+

 &НаКлиенте

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

                        // Вставить содержимое обработчика.

                        Элементы.Материалы.ДобавитьСтроку();

                        Элементы.Материалы.ТекущиеДанные.Материал=ВыбранноеЗначение;

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

++замена

&НаКлиенте