Схема = Новый ГрафическаяСхема();

Схема.Прочитать("D:/MyScheme.grs");

ЭлементыФормы.СтруктурнаяСхема.УстановитьСхему(Схема);

Запрос = Новый Запрос("

|ВЫБРАТЬ

|       Номенклатура.Ссылка КАК Значение,

|       Номенклатура.Представление КАК Представление,

|       ИСТИНА КАК Пометка

|ИЗ

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

|ГДЕ

|       Номенклатура.ОсновнойПоставщик = &ОсновнойПоставщик");

 

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

 

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

 

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

        ЗаполнитьЗначенияСвойств(ПолеСписка.Добавить(), Выборка);

КонецЦикла;

Диалог = Новый ДиалогВыбораЦвета;

Если Диалог.Выбрать() Тогда

        ВыбранныйЦвет = Диалог.Цвет;

КонецЕсли;

Диалог = Новый ДиалогВыбораШрифта;

Если Диалог.Выбрать() Тогда

        ВыбранныйШрифт = Диалог.Шрифт;

КонецЕсли;

ЭлементыФормы.ОсновноеИзображение.ТекстНевыбраннойКартинки = "фотография номенклатуры отсутствует";

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

 

        ЭлементыФормы.ТП.Данные = "СписокКонтрагентов";

        ЭлементыФормы.ТП.СоздатьКолонки();

 

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

 

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

 

        ЭлементыФормы.ТП.Данные = "СписокНоменклатуры";

        ЭлементыФормы.ТП.СоздатьКолонки();

 

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

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

Индикатор = ЭлементыФормы.ИндикаторПеребора;

Индикатор.МаксимальноеЗначение = Выборка.Количество();

Индикатор.Значение = 0;

 

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

        Индикатор.Значение = Индикатор.Значение + 1;

КонецЦикла;

 

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

Индикатор = ЭлементыФормы.ИндикаторПеребора;

Индикатор.МаксимальноеЗначение = Выборка.Количество();

Индикатор.Значение = 0;

Индикатор.ОтображатьПроценты = Истина;

Индикатор.СтильОтображения = РежимСглаживанияИндикатора.Прерывистый;

Индикатор.Ориентация = Ориентация.Вертикально;

Индикатор.Шаг = 0.1;

 

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

        Индикатор.Значение = Индикатор.Значение + 1;

КонецЦикла;

КоллекцияДат = ЭлементыФормы.ПолеКалендаря.ВыделенныеДаты;

 

Для каждого ДатаКалендаря из КоллекцияДат Цикл

        Сообщить(ДатаКалендаря);

КонецЦикла;

ЭлементыФормы.ПолеКалендаря.РежимВыделения = РежимВыделенияДаты.Множественный;

Процедура ОбрабатываемыйДокументПриИзменении(Элемент)

 

        СписокВыбора = ЭлементыФормы.ОбрабатываемаяТабличнаяЧасть.СписокВыбора;

        СписокВыбора.Очистить();

 

        Если Элемент.Значение <> Неопределено И Не(Элемент.Значение.Пустая()) Тогда

               ТабличныеЧасти = Элемент.Значение.Метаданные().ТабличныеЧасти;

              

               Для Каждого ТабличнаяЧасть из ТабличныеЧасти Цикл

                       СписокВыбора.Добавить(ТабличнаяЧасть);

               КонецЦикла;

        КонецЕсли;

 

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

 

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

 

        ОбрабатываемаяТабличнаяЧасть = "";

 

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

СозданнаяКнопка.СочетаниеКлавиш = Новый СочетаниеКлавиш(Клавиша.L, Истина, Истина,);

КнопкиКоманднойПанели = ЭлементыФормы.КоманднаяПанельФормы.Кнопки;

 

// Проверить, нет ли уже на командной панели кнопки "Сформировать".

// Если есть - удалить.

Индекс = КнопкиКоманднойПанели.Индекс(КнопкиКоманднойПанели.Найти("Сформировать"));

 

Если Индекс = -1 Тогда

        Индекс = 0;

Иначе

        КнопкиКоманднойПанели.Удалить(Индекс);

КонецЕсли;

 

// Создать подменю "Сформировать".

ПодменюСформировать = КнопкиКоманднойПанели.Вставить(Индекс, "Сформировать", ТипКнопкиКоманднойПанели.Подменю, "Сформировать");

 

// Добавить картинку.

ПодменюСформировать.Картинка = БиблиотекаКартинок.Сформировать;

ПодменюСформировать.Отображение = ОтображениеКнопкиКоманднойПанели.НадписьКартинка;

 

// Опросить перечисление о возможных вариантах периодичности.

Запрос = Новый Запрос("ВЫБРАТЬ Ссылка ИЗ Перечисление.Периодичность");

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

 

//Добавить кнопки к подменю.

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

        Период = Выборка.Ссылка;

        ПодменюСформировать.Кнопки.Добавить("кн" + Период, ТипКнопкиКоманднойПанели.Действие, "Сформировать за " + Период, Новый Действие("КнопкаСформироватьНажатие"));

КонецЦикла;

 

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

 

        НазваниеПериодичности = СтрЗаменить(Элемент.Имя, "кн", "");  

 

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

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

 

        Значение = Новый СписокЗначений();

        Значение.Добавить("Уважаемый " + Текст);

        Значение.Добавить("Уважаемая " + Текст);

        Значение.Добавить("Уважаемое " + Текст);

        Значение.Добавить("Уважаемые " + Текст);

        Значение.Добавить(Текст);

 

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

 

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

Док = Метаданные.Документы;

СписокДокументов = Новый СписокЗначений();

 

СписокДокументов.Добавить(Док.ПлатежноеПоручениеИсходящее, , Ложь);

СписокДокументов.Добавить(Док.ПлатежноеПоручениеВходящее, , Ложь);

СписокДокументов.Добавить(Док.АккредитивПереданный, , Ложь);

СписокДокументов.Добавить(Док.АккредитивПолученный, , Ложь);

СписокДокументов.Добавить(Док.ПлатежноеТребованиеВыставленное, , Ложь);

СписокДокументов.Добавить(Док.ПлатежноеТребованиеПолученное, , Ложь);

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПереданное, , Ложь);

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПолученное, , Ложь);

СписокДокументов.Добавить(Док.ПлатежныйОрдерСписаниеДенежныхСредств, , Ложь);

СписокДокументов.Добавить(Док.ПлатежныйОрдерПоступлениеДенежныхСредств, , Ложь);

 

Если СписокДокументов.ОтметитьЭлементы("Укажите, какие списки документов открыть") Тогда

        Для Каждого НазваниеДокумента из СписокДокументов Цикл

               Если НазваниеДокумента.Пометка Тогда

                       ФормаСписка = Документы[НазваниеДокумента.Значение.Имя].ПолучитьФормуСписка();

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

               КонецЕсли;

        КонецЦикла;

КонецЕсли;

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

 

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

               ЭлементыФормы.Панель.ТекущаяСтраница = ЭлементыФормы.Панель.Страницы.СчетаИДоговоры;

        КонецЕсли;

 

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

ЭлементыФормы.ОсновнаяПанель.Страницы.СчетаУчета.КартинкаЗаголовка = БиблиотекаКартинок.ДебетКредит;

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

 

        Запрос = Новый Запрос("ВЫБРАТЬ

        |       ТоварыНаСкладахОстатки.КоличествоОстаток КАК Остаток,

        |       ТоварыНаСкладахОстатки.Номенклатура.Ссылка КАК Товар

        |ИЗ

        |       РегистрНакопления.ТоварыНаСкладах.Остатки( , Номенклатура В (&МассивТоваров)) КАК ТоварыНаСкладахОстатки");

 

        МассивНоменклатуры = Новый Массив; // для передачи в параметр запроса

        Соответствие = Новый Соответствие; // для заполнения остатков в строках табличного поля

 

        Для Каждого Строка из ОформленияСтрок Цикл

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

               Соответствие.Вставить(Строка.ДанныеСтроки.Ссылка, Строка);

        КонецЦикла;

 

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

 

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

 

        // Вывести остаток в строку, найденную в соответствии по номенклатуре

        // из запроса.

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

               Соответствие.Получить(Выборка.Товар.Ссылка).Ячейки.Остаток.Значение = Выборка.Остаток;

        КонецЦикла;

 

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

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

 

        // Получить значение, переданное системой.

        Значение = ПараметрыПеретаскивания.Значение;

 

        // В любом случае значением будет массив.

        МассивЗначений = Новый Массив;

 

        // Если перетаскивается группа, то в массив записываем входящие в нее элементы.

        Если Значение.ЭтоГруппа Тогда

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

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

                       Если Не Выборка.ЭтоГруппа Тогда

                               МассивЗначений.Добавить(Выборка.Ссылка);

                       КонецЕсли;

               КонецЦикла;

        Иначе

               МассивЗначений.Добавить(Значение);

        КонецЕсли;

 

        // Заполненный массив записываем в параметры.

        ПараметрыПеретаскивания.Значение = МассивЗначений;

 

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

 

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

 

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

 

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

 

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

 

        ПолученныйМассив = ПараметрыПеретаскивания.Значение;

        Если ТипЗнч(ПолученныйМассив) = Тип("Массив") Тогда

               Для Каждого Значение Из ПолученныйМассив Цикл

                       НоваяСтрока = ДокументОбъект.Товары.Добавить();

                       НоваяСтрока.Номенклатура = Значение;

                       НоваяСтрока.Количество = 1;

               КонецЦикла;

        КонецЕсли;

 

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

ЭлементыФормы.СправочникСписок.НастройкаОтбора.ОсновнойПоставщик.Доступность = Истина;

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

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

 

        СписокВидовДокументов = Новый СписокЗначений;

        

        Для Каждого ДокументКонфигурации из Метаданные.Документы Цикл

               СписокВидовДокументов.Добавить(ДокументКонфигурации.Имя);

        КонецЦикла;

 

        ЭлементыФормы.ПодборДанных.Колонки.ВидДокумента.ЭлементУправления.СписокВыбора = СписокВидовДокументов;

 

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

 

ЭлементыФормы.ПодборДанных.Колонки.ВидДокумента.ЭлементУправления.КнопкаСпискаВыбора = Истина;

Если ТаблицаКонтрагентов.Колонки.Найти("ОсновнойДоговор") = Неопределено Тогда

        МассивТипов = Новый Массив();

        МассивТипов.Добавить(Тип("СправочникСсылка.ДоговорыКонтрагентов"));

        ОписаниеНужныхТипов = Новый ОписаниеТипов(МассивТипов);

        ТаблицаКонтрагентов.Колонки.Добавить("ОсновнойДоговор", ОписаниеНужныхТипов);

КонецЕсли;

 

Для Каждого СтрокаТаблицы из ТаблицаКонтрагентов Цикл

        СтрокаТаблицы["ОсновнойДоговор"] = СтрокаТаблицы["Контрагент"]["ОсновнойДоговорКонтрагента"];

КонецЦикла;

 

ЭлементыФормы.ВыбранныеКонтрагенты.СоздатьКолонки();

ЭлементыФормы.ВыбранныеКонтрагенты.Колонки.ОсновнойДоговор.ЭлементУправления.КнопкаОткрытия = Истина;

Процедура ТоварыПриПолученииДанных(Элемент, ОформленияСтрок)

 

        Для Каждого ОформлениеСтроки Из ОформленияСтрок Цикл

               ЗначениеЯчейкиОстаток = ОформлениеСтроки.Ячейки.Остаток.Значение;

        

               Если ЗначениеЯчейкиОстаток <> Неопределено Тогда

 

                       Если ЗначениеЯчейкиОстаток < 10 Тогда

                               ОформлениеСтроки.Ячейки.Остаток.ЦветФона = WebЦвета.Красный;

 

                       ИначеЕсли ЗначениеЯчейкиОстаток > 100 Тогда

                               ОформлениеСтроки.Ячейки.Остаток.ЦветФона = WebЦвета.Желтый;

                       КонецЕсли;

               КонецЕсли;

        КонецЦикла;

 

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

Процедура ТабличноеПолеЗаказовЗаказПриИзменении(Элемент)

 

        // Получить текущую строку табличного поля.

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

 

        // Ввести значения в ячейки строки.

        СтрокаТаблицы.Контрагент = СтрокаТаблицы.Заказ.Контрагент;

        СтрокаТаблицы.ДатаОтгрузки = СтрокаТаблицы.Заказ.ДатаОтгрузки;

 

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

ЭлементыФормы.ПолеСписка.ПроверкаОтображенияНовойСтроки = ВариантПроверкиОтображенияНовойСтроки.НеПроверять;

 СправочникСписок.Отбор.СтавкаНДС.Установить(Перечисления.СтавкиНДС.НДС18);

 

СправочникСписок.Отбор.СтавкаНДС.Значение = Перечисления.СтавкиНДС.НДС18;

СправочникСписок.Отбор.СтавкаНДС.ВидСравнения = ВидСравнения.Равно;

СправочникСписок.Отбор.СтавкаНДС.Использование = Истина;

ЭлементыФормы.СправочникСписок.ТекущаяСтрока = Справочники.Контрагенты.НайтиПоНаименованию("ПОСТАВЩИКИ", Истина);

ЭлементыФормы.НадписьОтбор.Заголовок = СписокДокументов.Отбор;

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

Сообщить("Элементы отбора:");

 

Для Каждого ЭлементОтбора из УстановленныйОтбор Цикл

        Сообщить(Строка(ЭлементОтбора) + " использование = " + ЭлементОтбора.Использование);

КонецЦикла;

ЭлементыФормы.ТабличноеПоле.ИзменятьНастройкуКолонок = Ложь;

ЭлементыФормы.ТабличноеПоле.Колонки.Картинка.ИзменятьНастройку = Ложь;

ЭлементыФормы.ТабличноеПоле.Колонки.Код.ИзменятьНастройку = Ложь;

ЭлементыФормы.ТабличноеПоле.Колонки.Наименование.ИзменятьНастройку = Ложь;

ЭлементыФормы.ТабличноеПоле.ИзменятьПозициюКолонок = Ложь;

ЭлементыФормы.ТабличноеПоле.Колонки.Картинка.ИзменятьПозицию = Ложь;

ЭлементыФормы.ТабличноеПоле.Колонки.Код.ИзменятьПозицию = Ложь;

ЭлементыФормы.ТабличноеПоле.Колонки.Наименование.ИзменятьПозицию = Ложь;

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

 

        Если Элемент.Значение.Пустая() Тогда

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

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

               ФормаВыбора.ВыборПокупателя = Истина;

               ФормаВыбора.Открыть();

        КонецЕсли;

 

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

 

Если ВыборПокупателя Тогда

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

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

КонецЕсли;

 

Если ВыборПокупателя Тогда

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

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

КонецЕсли;

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

        СправочникСписок.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;

        СправочникСписок.Отбор.Ссылка.Значение = СписокКонтрагентов;

        СправочникСписок.Отбор.Ссылка.Использование = Истина;

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

Если ЖурналДокументовСписок.Отбор.Дата.Использование Тогда

        Сообщить(ЖурналДокументовСписок.Отбор.Дата);

 

Иначе

        Сообщить("Без ограничения по датам");

КонецЕсли;

ЖурналДокументовСписок.Отбор.ВидДокумента.Установить(Метаданные.Документы.ПриемНаРаботу);

// Значение, сохраненное в реквизите справочника, имеющем тип

// ХранилищеЗначения, можно только получить.

СохраненнаяКартинка = Фотография.Получить();

 

Если СохраненнаяКартинка <> Неопределено Тогда

         // Если в хранилище было что-нибудь заранее записано…

        ЭлементыФормы.Фото.Картинка = СохраненнаяКартинка;

КонецЕсли;

Если Не Контрагент.Пустая() Тогда

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

        ФормаПодчиненныхДоговоров.ПараметрОтборПоВладельцу = Контрагент;

        ФормаПодчиненныхДоговоров.Открыть();

КонецЕсли;

СпособОтображенияОкна = ВариантСпособаОтображенияОкна.Максимизированное;

ИзмененятьСпособОтображенияОкна = ИзменениеСпособаОтображенияОкна.Запретить;

Как из формы документа открыть форму списка данного документа, спозиционировавшись на нем же?

ФормаСписка = Документы[Метаданные().Имя].ПолучитьФормуСписка();

ФормаСписка.ПараметрТекущаяСтрока = Ссылка;

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

ФормаСписка = Документы[Метаданные().Имя].ПолучитьФормуСписка( , , Новый УникальныйИдентификатор());

Форма = Отчеты.ОтчетДиаграмма.ПолучитьФорму("ФормаОсновная", ЭтаФорма);

Форма.ПоложениеОкна = ВариантПоложенияОкна.НеПерекрыватьВладельца;

Форма.Открыть();

Обработка = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);

Обработка.Открыть();

 

//либо так:

Обработка = ВнешниеОбработки.ПолучитьФорму("C:\Внешние\СпецОтчет.epf", ИмяФормы, , Ключ);

Обработка.Открыть();

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

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

МассивСсылок = КритерииОтбора.КомпетенцияМенеджераПродаж.Найти(Менеджер);

Для Каждого Ссылка из МассивСсылок Цикл

        Сообщить(Ссылка);

КонецЦикла;

ВЫБРАТЬ

        КомпетенцияМенеджераПродаж.Ссылка

ИЗ

        КритерийОтбора.КомпетенцияМенеджераПродаж(&Менеджер) КАК КомпетенцияМенеджераПродаж

Обработка = ВнешниеОбработки.Создать(ИмяФайла);

 

Обработка.Печать(Ссылка);

Для Каждого Рецензент Из НаСогласование Цикл

        НоваяЗадача = Задачи.ЭтапПути.СоздатьЗадачу();

        НоваяЗадача.БизнесПроцесс = Ссылка;

        НоваяЗадача.Пользователь = Рецензент.Рецензент;

        НоваяЗадача.Наименование = "Согласование со специалистом";

        НоваяЗадача.ТочкаМаршрута = БизнесПроцессы.НаПараллельноеСогласование.ТочкиМаршрута.Согласование;

        НоваяЗадача.Дата = ТекущаяДата();

        НоваяЗадача.Записать();

        

        ФормируемыеЗадачи.Добавить(НоваяЗадача);

КонецЦикла;

 

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

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

        Если Исполнитель.Пустая() Тогда

               Исполнитель = ПараметрыСеанса.ТекущийИсполнитель;

        КонецЕсли;

        ДатаВыполнения=ТекущаяДата();

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

 

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

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

 

Если ТочкиМаршрута.Количество() = 0 Тогда

        Сообщить("Не определен маршрут!!!");

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

КонецЕсли;

 

Результат = ПолучитьТочкуМаршрута().Пустая();

 

Функция ПолучитьТочкуМаршрута()

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

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

        |       НаМаршрутеТочкиМаршрута.НомерСтроки КАК НомерСтроки,

        |       НаМаршрутеТочкиМаршрута.Склад

        |ИЗ

        |       БизнесПроцесс.НаМаршруте.ТочкиМаршрута КАК НаМаршрутеТочкиМаршрута

        |ГДЕ

        |       (НаМаршрутеТочкиМаршрута.Склад НЕ В

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

        |                                             ЭтапПути.Склад

        |                                     ИЗ

        |                                             Задача.ЭтапПути КАК ЭтапПути

        |                                     ГДЕ

        |                                             ЭтапПути.БизнесПроцесс = &БизнесПроцесс ))

   |    И

        |       (Ссылка = &БизнесПроцесс)

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

        | НомерСтроки";

 

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

 

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

 

        Если Выборка.Следующий() Тогда

               Возврат (Выборка.Склад);

        

        Иначе

               Возврат(Справочники.Склады.ПустаяСсылка());

        КонецЕсли;

 

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

 

ФормируемыеЗадачи[0].Склад = ПолучитьТочкуМаршрута();

 

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

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

 

Если ПоказанияСпидометраКонечные = 0 ИЛИ Ссылка.РасходТоплива = 0 Тогда

        Сообщить("Не введены данные по путевому листу!");

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

КонецЕсли;

ТаблицаСторноЗаписей = Движения.ОсновныеНачисленияРаботниковОрганизации.ПолучитьДополнение();

 

Для каждого СтрокаСторно Из ТаблицаСторноЗаписей Цикл

 

    // Добавить сторно-записи в набор записей регистра.

    // Новая запись движений.

    Движение = Движения.ОсновныеНачисленияРаботниковОрганизации.Добавить();

 

    // Заполнить свойства.

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

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

    Движение.ПериодДействияКонец = Строка.ПериодДействияКонецСторно;

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

    Движение.БазовыйПериодКонец = Строка.БазовыйПериодКонец;

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

    Движение.Сторно = Истина;

 

    // Заполнить измерения.

    Движение.ФизЛицо = Строка.ФизЛицо;

    Движение.Приказ = Строка.Приказ;

    Движение.Организация = Строка.Организация;

 

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

    // только подготовка новой записи

 

    // Заполнить реквизиты.

    Движение.ГрафикРаботы = Строка.ГрафикРаботы;

    Движение.Размер = Строка.Размер;

    Движение.ВидУчетаВремени = Строка.ВидУчетаВремени;

    Движение.ПодразделениеОрганизации = Строка.ПодразделениеОрганизации;

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

    Движение.ПериодРасчетаСреднегоЗаработкаОкончание = Строка.ПериодРасчетаСреднегоЗаработкаОкончание;

КонецЦикла;

 

Движения.ОсновныеНачисленияРаботниковОрганизации.Записать();

"ВЫБРАТЬ

|    ВложенныйЗапрос.ФизЛицо,

|    ПРЕДСТАВЛЕНИЕ(ВложенныйЗапрос.ФизЛицо),

|    ВложенныйЗапрос.ФизЛицоПредставление КАК ФизЛицоПредставление1,

|    ВложенныйЗапрос.ВидРасчета,

|    ПРЕДСТАВЛЕНИЕ(ВложенныйЗапрос.ВидРасчета),

|    ВложенныйЗапрос.ВидРасчетаПредставление КАК ВидРасчетаПредставление1,

|    ВложенныйЗапрос.Результат КАК Результат,

|    ВложенныйЗапрос.ТипРасчета КАК ТипРасчета

|ИЗ

|    (ВЫБРАТЬ

|        БУОсновныеНачисления.ФизЛицо КАК ФизЛицо,

|        ПРЕДСТАВЛЕНИЕ(БУОсновныеНачисления.ФизЛицо) КАК ФизЛицоПредставление,

|        БУОсновныеНачисления.ВидРасчета КАК ВидРасчета,

|        ПРЕДСТАВЛЕНИЕ(БУОсновныеНачисления.ВидРасчета) КАК ВидРасчетаПредставление,

|        БУОсновныеНачисления.Результат КАК Результат,

|        ""Начисления"" КАК ТипРасчета

|    ИЗ

|        РегистрРасчета.БУОсновныеНачисления КАК БУОсновныеНачисления

|    ГДЕ

|        БУОсновныеНачисления.ФизЛицо = &ФизЛицо И БУОсновныеНачисления.ПериодРегистрации = &НужныйПериод

|

|    ОБЪЕДИНИТЬ ВСЕ

|

|    ВЫБРАТЬ

|        УдержанияРаботниковОрганизаций.ФизЛицо,

|        ПРЕДСТАВЛЕНИЕ(УдержанияРаботниковОрганизаций.ФизЛицо),

|        УдержанияРаботниковОрганизаций.ВидРасчета,

|        ПРЕДСТАВЛЕНИЕ(УдержанияРаботниковОрганизаций.ВидРасчета),

|        -УдержанияРаботниковОрганизаций.Результат,

|        ""Удержания""

|    ИЗ

|        РегистрРасчета.УдержанияРаботниковОрганизаций КАК УдержанияРаботниковОрганизаций

|    ГДЕ

|        УдержанияРаботниковОрганизаций.ФизЛицо = &ФизЛицо И УдержанияРаботниковОрганизаций.ПериодРегистрации = &НужныйПериод) КАК ВложенныйЗапрос

|ИТОГИ СУММА(Результат)

|ПО ОБЩИЕ, ТипРасчета";

ВЫБРАТЬ РАЗРЕШЕННЫЕ

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

ИЗ

    РегистрРасчета.УправленческиеНачисления КАК УправленческиеНачисления

    ЛЕВОЕ СОЕДИНЕНИЕ

        РегистрРасчета.УправленческиеНачисления.ФактическийПериодДействия(Регистратор = &парамСсылка) КАК УправленческиеНачисленияФактическийПериодДействия

    ПО

        УправленческиеНачисления.НомерСтроки = УправленческиеНачисленияФактическийПериодДействия.НомерСтроки

        И

        УправленческиеНачисления.Регистратор = УправленческиеНачисленияФактическийПериодДействия.Регистратор

ГДЕ

    УправленческиеНачисления.Регистратор = &парамСсылка

    И

    ((УправленческиеНачисленияФактическийПериодДействия.Регистратор) ЕСТЬ NULL)

ВЫБРАТЬ

    ПерерасчетОсновных.ФизЛицо КАК Работник,

    ПерерасчетОсновных.ВидРасчета,

    ПерерасчетОсновных.ОбъектПерерасчета КАК Документ

ИЗ

    РегистрРасчета.ОсновныеНачисленияРаботниковОрганизации.ПерерасчетОсновныхНачислений КАК ПерерасчетОсновных

 

ОБЪЕДИНИТЬ ВСЕ

 

ВЫБРАТЬ

    ПерерасчетДополнительных.ФизЛицо,

    ПерерасчетДополнительных.ВидРасчета,

    ПерерасчетДополнительных.ОбъектПерерасчета

ИЗ

    РегистрРасчета.ДополнительныеНачисленияРаботниковОрганизации.ПерерасчетДополнительныхНачислений КАК ПерерасчетДополнительных

ВЫБРАТЬ

|       БУОсновныеНачисления.Организация КАК Организация,

|       ПРЕДСТАВЛЕНИЕ(БУОсновныеНачисления.Организация),

|       БУОсновныеНачисления.ВидРасчета,

|       ПРЕДСТАВЛЕНИЕ(БУОсновныеНачисления.ВидРасчета),

|       БУОсновныеНачисления.Результат КАК Результат,

|       ""Основные"" КАК ВариантНачислений

|ИЗ

|       РегистрРасчета.БУОсновныеНачисления КАК БУОсновныеНачисления

|ГДЕ

|       БУОсновныеНачисления.ПериодРегистрации = &НужныйПериод И БУОсновныеНачисления.ФизЛицо = &ФизЛицо

|

|ОБЪЕДИНИТЬ ВСЕ

|

|ВЫБРАТЬ

|       БУДополнительныеНачисления.Организация,

|       ПРЕДСТАВЛЕНИЕ(БУДополнительныеНачисления.Организация),

|       БУДополнительныеНачисления.ВидРасчета,

|       ПРЕДСТАВЛЕНИЕ(БУДополнительныеНачисления.ВидРасчета),

|       БУДополнительныеНачисления.Результат,

|       ""Дополнительные""

|ИЗ

|       РегистрРасчета.БУДополнительныеНачисления КАК БУДополнительныеНачисления

|ГДЕ

|       БУДополнительныеНачисления.ПериодРегистрации = &НужныйПериод И БУДополнительныеНачисления.ФизЛицо = &ФизЛицо

|ИТОГИ СУММА(Результат)

|ПО ОБЩИЕ, Организация, ВариантНачислений";

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

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

|    БУОсновныеНачисления.Результат

|ИЗ

|    РегистрРасчета.БУОсновныеНачисления КАК БУОсновныеНачисления

|ГДЕ

|    БУОсновныеНачисления.ПериодРегистрации = &Период

|    И

|    БУОсновныеНачисления.ФизЛицо = &ФизЛицо

|    И

|    БУОсновныеНачисления.ВидРасчета = &ВидРасчета";

 

Запрос.УстановитьПараметр("Период", НачалоМесяца(Период1));

Запрос.УстановитьПараметр("ВидРасчета", ВидРасчета);

Запрос.УстановитьПараметр("ФизЛицо", ФизЛицо);

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

 

        СторнируемыеДвижения = РегистрыБухгалтерии.Хозрасчетный.ВыбратьПоРегистратору(СторнируемыйДокумент);

        

        Пока СторнируемыеДвижения.Следующий() Цикл

               Проводка = Движения.Хозрасчетный.Добавить();

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

               Проводка.СчетДт = СторнируемыеДвижения.СчетДт;

               Проводка.СчетКт = СторнируемыеДвижения.СчетКт;

 

               Для каждого Субконто Из СторнируемыеДвижения.СубконтоДт Цикл

                       Проводка.СубконтоДт[Субконто.Ключ] = Субконто.Значение;

               КонецЦикла;

 

               Для каждого Субконто Из СторнируемыеДвижения.СубконтоКт Цикл

                       Проводка.СубконтоКт[Субконто.Ключ] = Субконто.Значение;

               КонецЦикла;

 

               Проводка.ВалютаДт = СторнируемыеДвижения.ВалютаДт;

               Проводка.ВалютаКт = СторнируемыеДвижения.ВалютаКт;

               Проводка.ВалютнаяСуммаДт = - СторнируемыеДвижения.ВалютнаяСуммаДт;

               Проводка.ВалютнаяСуммаКт = - СторнируемыеДвижения.ВалютнаяСуммаКт;

               Проводка.КоличествоДт = - СторнируемыеДвижения.КоличествоДт;

               Проводка.КоличествоКт = - СторнируемыеДвижения.КоличествоКт;

               Проводка.НомерЖурнала = СторнируемыеДвижения.НомерЖурнала;

               Проводка.Организация = СторнируемыеДвижения.Организация;

               Проводка.Содержание = СторнируемыеДвижения.Содержание;

               Проводка.Сумма = - СторнируемыеДвижения.Сумма;

        КонецЦикла;

 

        Движения.Хозрасчетный.Записать();

 

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

ВЫБРАТЬ

    ХозрасчетныйОбороты.Счет,

    ХозрасчетныйОбороты.СуммаОборотДт,

    ХозрасчетныйОбороты.СуммаОборотКт

ИЗ

    РегистрБухгалтерии.Хозрасчетный.Обороты(&ДатаНач, &ДатаКон , , Счет В ИЕРАРХИИ (&Счет), , , НЕ(КорСчет В ИЕРАРХИИ (&Счет)), ) КАК ХозрасчетныйОбороты

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

    ХозрасчетныйОбороты.Счет.Код

ВЫБРАТЬ

    ХозрасчетныйОбороты.Организация КАК Организация,

    ХозрасчетныйОбороты.Счет КАК Счет,

    ХозрасчетныйОбороты.Валюта,

    ХозрасчетныйОбороты.СуммаОборотДт,

    ХозрасчетныйОбороты.ВалютнаяСуммаОборотДт,

    ХозрасчетныйОбороты.СуммаОборотКт,

    ХозрасчетныйОбороты.ВалютнаяСуммаОборотКт

ИЗ

    РегистрБухгалтерии.Хозрасчетный.Обороты(&ДатаНач, &ДатаКон, , Счет.Валютный, , , , ) КАК ХозрасчетныйОбороты

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

    Организация,

    ХозрасчетныйОбороты.Счет.Код

// Добавить новый вид характеристик.

Если ВидМенеджеры.Пустая() Тогда

    ВидМенеджеры = ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.СоздатьЭлемент();

    ВидМенеджеры.Наименование = "Менеджеры";

    ВидМенеджеры.ТипЗначения = Новый ОписаниеТипов("СправочникСсылка.Пользователи");

    ВидМенеджеры.Записать();

КонецЕсли;

 

// Получить нужный счет.

Счет = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");

Если (Не Счет.Пустая()) И (Счет.ВидыСубконто.Найти(ВидМенеджеры) = Неопределено) Тогда

 

        // Добавить новый вид субконто к счету.

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

        НовыйВидСубконто = ОбъектСчета.ВидыСубконто.Добавить();

        НовыйВидСубконто.ВидСубконто = ВидМенеджеры;

        НовыйВидСубконто.ТолькоОбороты = Истина;

        НовыйВидСубконто.Суммовой = Истина;

        

        ОбъектСчета.Записать();

КонецЕсли;