Процедура РассчитатьНаборЗаписей(НаборЗаписей, Приоритет, ТабличнаяЧасть = Неопределено)

Иначе



СтруктураДанных.Вставить("ОтработаноВремени", 0); СтруктураДанных.Вставить("НормаВремени", 0);



Для каждого Запись из НаборЗаписей Цикл

Если Запись.ВидРасчета.Приоритет = Приоритет Тогда



// Получить данные для расчета записи.

ДанныеДляРасчета = ПолучитьДанныеДляРасчета(Запись);



// Вызвать процедуру расчета записи. РассчитатьЗапись(Запись, ДанныеДляРасчета);



// Возвратить результат расчета в табличную часть документа. Если Не ТабличнаяЧасть = Неопределено Тогда

СтрокаТабличнойЧасти = ТабличнаяЧасть.Получить(Запись.НомерСтроки-1); СтрокаТабличнойЧасти.Результат = Запись.Результат;

КонецЕсли; КонецЕсли;

КонецЦикла;



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

 Функция ПолучитьДанныеДляРасчета(Запись)



СпособРасчета = Запись.ВидРасчета.СпособРасчета; СтруктураДанных = Новый Структура;

Если СпособРасчета = Перечисления.СпособыРасчета.ПоМесячнойСтавке Тогда



// Получить данные графика.



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

|ВЫБРАТЬ

| ДанныеГрафика.ЗначениеФактическийПериодДействия КАК ГрафикФакт,

| ДанныеГрафика.ЗначениеПериодДействия КАК ГрафикНорма

|ИЗ

| РегистрРасчета.ОсновныеНачисленияРегл.ДанныеГрафика(

| Регистратор = &Регистратор

| И НомерСтроки = &НомерСтроки)

КАК ДанныеГрафика");



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

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



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

СтруктураДанных.Вставить("ОтработаноВремени", Выборка.ГрафикФакт);

СтруктураДанных.Вставить("НормаВремени", Выборка.ГрафикНорма);



КонецЕсли;



ИначеЕсли



СпособРасчета = Перечисления.СпособыРасчета.ПроцентомОтБазы Тогда



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

|ВЫБРАТЬ

| База.РезультатБаза

|ИЗ

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

| &Измерения, &Измерения, ,

| Регистратор = &Регистратор

| И НомерСтроки = &НомерСтроки) КАК База");



Измерения = Новый Массив(2); Измерения[0] = "ФизЛицо"; Измерения[1] = "Организация";



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



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



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



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



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

СтруктураДанных.Вставить("База", Выборка.РезультатБаза);



Иначе



СтруктураДанных.Вставить("База", 0);



КонецЕсли;



ИначеЕсли СпособРасчета = Перечисления.СпособыРасчета.ПоСдельнойВыработке Тогда



// Получить данные регистра накопления

// фактическая выработка за период действия записи.



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



|ВЫБРАТЬ

| СУММА(СдельнаяВыработкаОбороты.ВыработкаОборот) КАК ВыработкаОборот

|ИЗ

| РегистрНакопления.СдельнаяВыработка.Обороты(

| &ДатаНачало, &ДатаКонец, ,

| Организация = &Организация И ФизЛицо = &ФизЛицо)

| КАК СдельнаяВыработкаОбороты");



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

Запрос.УстановитьПараметр("ДатаКонец", КонецДня(Запись.ПериодДействияКонец));

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

Выборка = Запрос.Выполнить().Выбрать(); Если Выборка.Следующий() Тогда

СтруктураДанных.Вставить("Выработка", Выборка.ВыработкаОборот);

Иначе

СтруктураДанных.Вставить("Выработка", 0); КонецЕсли;



КонецЕсли;



Возврат СтруктураДанных;



КонецФункции // ПолучитьДанныеДляРасчета   

 Процедура РассчитатьЗапись(Запись, ДанныеДляРасчета) СпособРасчета = Запись.ВидРасчета.СпособРасчета;

Если СпособРасчета = Перечисления.СпособыРасчета.ПоМесячнойСтавке Тогда

Если Не ДанныеДляРасчета.НормаВремени = 0 Тогда

Результат = Запись.Размер * ДанныеДляРасчета.ОтработаноВремени / ДанныеДляРасчета.НормаВремени;

Иначе

Результат = 0; КонецЕсли;



ИначеЕсли

СпособРасчета = Перечисления.СпособыРасчета.ПроцентомОтБазы Тогда

Результат = Запись.Размер * ДанныеДляРасчета.База / 100;



ИначеЕсли

СпособРасчета = Перечисления.СпособыРасчета.ФиксированнойСуммой Тогда

Результат = Запись.Размер;



ИначеЕсли

СпособРасчета = Перечисления.СпособыРасчета.ПоСдельнойВыработке Тогда

Результат = ДанныеДляРасчета.Выработка; КонецЕсли;



Запись.Результат = Результат * ?(Запись.Сторно, -1, 1);



КонецПроцедуры // Рассчитать запись   

 // Добавить сторно-записи в набор и в табличную часть.

Процедура ДобавитьСтрокуСторноОсновныхНачислений(ДанныеСтроки,

НаборЗаписей, ТабличнаяЧасть = Неопределено)

Движение = НаборЗаписей.Добавить();

// Предопределенные поля.

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

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

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

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

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

// Измерения.



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



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

// Реквизиты.

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

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

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

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

Движение.СтатьяЗатрат = ДанныеСтроки.СтатьяЗатрат;

Если Не ТабличнаяЧасть = Неопределено Тогда

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

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

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

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

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

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

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

НоваяСтрока.Сторно = Истина;

КонецЕсли;

КонецПроцедуры // ДобавитьСтрокуСторноОсновныхНачислений

// Процедура расчета основных начислений.

Процедура РассчитатьОсновныеНачисления() Экспорт

НачатьТранзакцию();

// Сформировать набор записей.

// …

// Сформировать таблицу сторно-записей.

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

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

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

ДобавитьСтрокуСторноОсновныхНачислений(СтрокаСторно,

НаборОсновныеНачисления,

ОсновныеНачисления);

КонецЦикла;



// …

ЗафиксироватьТранзакцию();

КонецПроцедуры // РассчитатьОсновныеНачисления   

 //Формирование записей регистра расчета



// Процедура добавляет запись в регистр основных начислений.

Процедура ДобавитьСтрокуОсновныхНачислений(ДанныеСтроки, НаборЗаписей)



Движение = НаборЗаписей.Добавить();



// Предопределенные поля. 

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

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

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

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

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



// Измерения.

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



// Ресурсы.

Движение.Результат = ДанныеСтроки.Результат;



// Реквизиты.

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

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

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

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

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



КонецПроцедуры // ДобавитьСтрокуОсновныхНачислений



// Обработка проведения.

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



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



// Сформировать запрос по табличной части при помощи функции общего модуля. ВыборкаОсновныеНачисления = ОбщегоНазначения.

СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "ОсновныеНачисления").Выбрать();



// По каждой строке табличной части сформировать запись в регистр. Пока ВыборкаОсновныеНачисления.Следующий() Цикл

ДобавитьСтрокуОсновныхНачислений(ВыборкаОсновныеНачисления, Движения.ОсновныеНачисленияРегл);

настройка алгоритмов расчета



КонецЦикла;



// Запись дополнительных начислений в регистр.

ВыборкаДополнительныеНачисления = ОбщегоНазначения.

СформироватьЗапросПоТабличнойЧасти(ЭтотОбъект, "ДополнительныеНачисления").Выбрать();



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



ДобавитьСтрокуДополнительныхНачислений(ВыборкаДополнительныеНачисления, Движения.ДополнительныеНачисленияРегл);



КонецЦикла;



КонецПроцедуры // ОбработкаПроведения   

  // как в журнале документов программно изменять период, пример:

НастройкаПериода = ЭлементыФормы.Список.  СтандартныйПериод ;

НастройкаПериода.ВариантНачала = ВариантГраницыПериода.Месяц;

НастройкаПериода.ВариантОкончания = ВариантГраницыИнтервала.БезОграничения;

НастройкаПериода.РедактироватьКакИнтервал = Истина;

НастройкаПериода.РедактироватьКакПериод = Ложь;   

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

ДокументСписок.Отбор.Дата.ВидСравнения  = ВидСравнения.ИнтервалВключаяГраницы;

ДокументСписок.Отбор.Дата.ЗначениеС  = ДатаНачало;

ДокументСписок.Отбор.Дата.ЗначениеПо = ДатаКонец;

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

 

Рег1 = СоздатьОбъект("Регистр.Взаиморасчеты");

Если Режим = "Подробно" Тогда

   Рег1.УстановитьФильтр(Клиент);

   Рег1.ВыбратьДвижения(ДатаНачало, );

   Пока Рег1.ПолучитьДвижение() > 0 Цикл

      Док = Рег1.ТекущийДокумент();

      Дв_Баз_Сум = Рег1.СуммаБазовая;

      Дв_Вал_Сум = Рег1.СуммаВалютная;

      Если Рег1.Расход = 1 Тогда

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

      Иначе

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



      КонецЕсли;

   КонецЦикла;

КонецЕсли;

 

Процедура Взаиморасчеты(ВыбКлиент, ДатаНачало, ДатаКонец)

   // Создание Таблицы для выходного отчета

   Заг = "Неизвестно.";

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

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

   Клн.ИспользоватьДату(ДатаКонец);

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

   Рег = СоздатьОбъект("Регистр.Взаиморасчеты");

   Рег1 = СоздатьОбъект("Регистр.Взаиморасчеты");

   Рег.ВременныйРасчет();

   РассчитатьРегистрыНа(ДатаКонец);

   Если ВыбКлиент.Выбран() = 0 Тогда

      //Без условий



      Заг = "По всем клиентам.";

   ИначеЕсли ВыбКлиент.ЭтоГруппа() = 1 Тогда

      Клн.ВключатьПодчиненные(ВыбКлиент);

      Клн.ИспользоватьРодителя(ВыбКлиент);

      Заг = "По клиентам группы " + ВыбКлиент.Наименование;

   Иначе

      Предупреждение("Выберите группу клиентов!");

      Возврат;

   КонецЕсли;

   Таб.ВывестиСекцию("Отчет");

   Клн.ВыбратьЭлементы();

   Пока Клн.ПолучитьЭлемент() > 0 Цикл

      Если Клн.ЭтоГруппа() = 1 Тогда



         Таб.ВывестиСекцию("Группа");

      Иначе

         Рег.Клиент = Клн.ТекущийЭлемент();

         Рег.ОстаткиПолучить();

         Баз_сум = Рег.СуммаБазовая;

         Вал_сум = Рег.СуммаВалютная;

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

         // цикл по всем документам

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

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

            // отфильтруем документы

            Если (Док.Вид() = "Перемещение") ИЛИ (Док.Вид() = "Счет") ИЛИ



                 (Док.Вид() = "Списание") ИЛИ

                 (Док.Вид() = "РучноеИзмОстатка") Тогда

               // Эти Документы не изменяют Взаиморасчеты

               Продолжить;

            КонецЕсли;

            // выберем все движения регистра по документу

            Рег1.ВыбратьДвиженияДокумента(Док.ТекущийДокумент());

            Пока Рег1.ПолучитьДвижение() > 0 Цикл

               Если Строка(Рег1.Клиент.Код) <> Строка(Клн.Код) Тогда



                  // не тот клиент

                  Продолжить;

               КонецЕсли;

               Дв_Баз_Сум = Рег1.СуммаБазовая;

               Дв_Вал_Сум = Рег1.СуммаВалютная;

               Если Рег1.Приход = 1 Тогда

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

               Иначе

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

               КонецЕсли;

            КонецЦикла;

         КонецЦикла;



      КонецЕсли;

   КонецЦикла;

   //Вызов выходного отчета в окно просмотра и редактирования.

   Таб.ТолькоПросмотр(1);

   Таб.Опции(0, 0, 4, 0);

   Таб.Показать("Взаиморасчеты с клиентами", "");

   ВыбКлиент = 0;

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

 // Пример 1

Рег1 = СоздатьОбъект("Регистр.Взаиморасчеты");

Если Режим = "Подробно" Тогда

	Рег1.УстановитьФильтр(Клиент);

	// Открываем выборку

	Рег1.ВыбратьДвижения(ДатаНачало, );

	

	// Цикл выбора движений по регистру

	Пока Рег1.ПолучитьДвижение() > 0 Цикл

		Если Строка(Рег1.Клиент.Код) <> Строка(Запрос.Клиент.Код) Тогда

			Продолжить;

		КонецЕсли;

		Док = Рег1.ТекущийДокумент();

		Дв_Баз_Сум = Рег1.СуммаБазовая;

		Дв_Вал_Сум = Рег1.СуммаВалютная;

		Если Рег1.Расход = 1 Тогда

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

		Иначе

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

			

		КонецЕсли;

	КонецЦикла;

КонецЕсли;



//Пример 2

РегТовары = СоздатьОбъект("Регистр.Товары");

РегТовары.ВыбратьДвижения(ДатаНач, ДатаКон);

Пока РегТовары.ПолучитьДвижение()=1 Цикл

Сообщить("Дата движения " + Строка(РегТовары.ТекущийДокумент.ДатаДок));

Сообщить("Клиент: " + РегТовары.Клиент);

Сообщить("Товар: " + РегТовары.Товар);

Сообщить("Сумма: " + РегТовары.Доход);

КонецЦикла;