// Проверяет необходимость выполнения перерасчета документа. 

Функция НеобходимостьПерерасчета(Регистратор) Экспорт



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

| Перерасчет.ФизЛицо

|ИЗ

| (ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо КАК ФизЛицо

| ИЗ

| РегистрРасчета.ОсновныеНачисленияРегл.ПерерасчетОсновныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор



|



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

|

| ВЫБРАТЬ ПЕРВЫЕ 1

| Перерасчет.ФизЛицо

| ИЗ

|РегистрРасчета.ДополнительныеНачисленияРегл.ПерерасчетДополнительныхНачислений

| КАК Перерасчет

| ГДЕ

| Перерасчет.ОбъектПерерасчета = &Регистратор) КАК Перерасчет");



Запрос.УстановитьПараметр("Регистратор", Регистратор); Если Запрос.Выполнить().Пустой() Тогда

Возврат Ложь;



Иначе



Возврат Истина;

КонецЕсли;



КонецФункции // НеобходимостьПерерасчета   

 Процедура Перерассчитать(Физлица = Неопределено) Экспорт



// Перерасчет выполняется в транзакции. НачатьТранзакцию();

Если Не Расчеты.НеобходимостьПерерасчета(Ссылка) Тогда

Возврат; КонецЕсли;



// Считать движения документа по регистрам расчета. Движения.ОсновныеНачисленияРегл.Прочитать(); Движения.ДополнительныеНачисленияРегл.Прочитать();



// Перерасчет и перезапись движений по регистрам расчета.

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

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



Расчеты.ПерерассчитатьЗаписиРегистраРасчета("ДополнительныеНачисленияРегл", Движения.ДополнительныеНачисленияРегл, ДополнительныеНачисления, Физлица);

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



// Записать измененные данные табличных частей документа. Записать();



// Удалить записи перерасчета, по которым выполнен перерасчет. Для Н = 1 По 2 Цикл

Если Н = 1 Тогда

НаборЗаписей = РегистрыРасчета.ОсновныеНачисленияРегл.

Перерасчеты.ПерерасчетОсновныхНачислений. СоздатьНаборЗаписей();

НаборЗаписей.Записать(); КонецЦикла;



// Перерасчет выполняется в транзакции. ЗафиксироватьТранзакцию();



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

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



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

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

Если НЕ ФизЛица.НайтиПоЗначению(Запись.Физлицо) = Неопределено Тогда



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

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



Иначе



НаборЗаписей = РегистрыРасчета.ДополнительныеНачисленияРегл.

Перерасчеты.ПерерасчетДополнительныхНачислений. СоздатьНаборЗаписей();



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



КонецЕсли;

НаборЗаписей.Отбор.ОбъектПерерасчета.Значение = Ссылка; Если Физлица <> НеОпределено Тогда

НаборЗаписей.Прочитать(); СтрокиКУдалению = Новый Массив;



Для Каждого СтрокаПерерасчета из НаборЗаписей Цикл

Если Физлица.НайтиПоЗначению( СтрокаПерерасчета.Физлицо) <> НеОпределено Тогда СтрокиКУдалению.Добавить(СтрокаПерерасчета);

КонецЕсли; КонецЦикла;



Для Каждого Строка Из СтрокиКУдалению Цикл

НаборЗаписей.Удалить(Строка); КонецЦикла;

КонецЕсли;

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

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

СтрокаТабличнойЧасти.Результат = Запись.Результат; КонецЕсли;

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

КонецЦикла;



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



Процедура ПерерассчитатьЗаписиРегистраРасчета(ИмяРегистра,

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



Регистратор = НаборЗаписей.Отбор.Регистратор.Значение;



// Запрос по приоритетам видов расчета

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



Запрос = Новый Запрос; Запрос.Текст = "

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

| " + ИмяРегистра + ".ВидРасчета.Приоритет КАК Приоритет

|ИЗ

| РегистрРасчета." + ИмяРегистра + " КАК " + ИмяРегистра + "

|ГДЕ

| ФизЛицо В (&СписокФизлиц) И Регистратор = &Регистратор

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

| Приоритет

|ИТОГИ ПО

| " + ИмяРегистра + ".ВидРасчета.Приоритет";



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



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

Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);



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

ПерерассчитатьНаборЗаписей(НаборЗаписей, ВыборкаПриоритетов.Приоритет, ТабличнаяЧасть, Физлица);



// Записать набор в регистр для расчета записей следующего

// приоритета, фактический период действия не пересчитывается. НаборЗаписей.Записать(Истина, Истина);

КонецЦикла;



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

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

Иначе



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



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

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



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

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



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



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

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

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

КонецЦикла;



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

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



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

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



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



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

|ВЫБРАТЬ

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

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

|ИЗ

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

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

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

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



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

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



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

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

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



КонецЕсли;



ИначеЕсли



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



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

|ВЫБРАТЬ

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

|ИЗ

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

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

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

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



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



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



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



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



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



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

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



Иначе



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



КонецЕсли;



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



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

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



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



|ВЫБРАТЬ

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

|ИЗ

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

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

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

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



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

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

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

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

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

Иначе

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



КонецЕсли;



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



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

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

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

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

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

Иначе

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



ИначеЕсли

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

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



ИначеЕсли

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

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



ИначеЕсли

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

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



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



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

 ВЫБРАТЬ

    УчетНоменклатурыОбороты.Номенклатура КАК Номенклатура, 

    УчетНоменклатурыОбороты.Номенклатура.Представление, 

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

ИЗ 

    РегистрНакопления.УчетНоменклатуры.Обороты КАК УчетНоменклатурыОбороты 

ИТОГИ СУММА(КоличествоОборот) ПО 

   Номенклатура ИЕРАРХИЯ   

 

ВЫБРАТЬ

    УчетНоменклатурыОбороты.Номенклатура КАК Номенклатура, 

    УчетНоменклатурыОбороты.Номенклатура.Представление, 

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

ИЗ 

    РегистрНакопления.УчетНоменклатуры.Обороты КАК УчетНоменклатурыОбороты 

ИТОГИ СУММА(КоличествоОборот) ПО 

   Номенклатура ТОЛЬКО ИЕРАРХИЯ   

 ВЫБРАТЬ 

   Док.Дата, 

   Док.Ссылка, 

   Док.ВидОперации, 

   Док.Организация, 

   Док.ОтражатьВРегламентированномУчете, 

   Док.ОтражатьВУправленческомУчете, 

   Док.ПодразделениеКомпании, 

   Док.Контрагент, 

   Док.ДоговорВзаиморасчетов,

   Док.СкладКомпании, 

   Док.Сделка,

   Док.Сделка.ВидОперации КАК ВидЗаказаПокупателя,

   Док.КурсДокумента, 

   Док.КратностьДокумента, 

   Док.ВалютаДокумента, 

   Док.СуммаДокумента, 

   Док.КурсВзаиморасчетов,

   Док.КратностьВзаиморасчетов,

   Док.СкладКомпании.Розничный КАК СкладКомпанииРозничный,

   Док.ДоговорВзаиморасчетов.ВалютаВзаиморасчетов КАК ВалютаВзаиморасчетов,

   Док.ДоговорВзаиморасчетов.ВедениеВзаиморасчетов КАК ВедениеВзаиморасчетов,

   Док.ДоговорВзаиморасчетов.КонтролироватьЧислоДнейЗадолженности 

       КАК КонтролироватьЧислоДнейЗадолженности,

   Док.ДоговорВзаиморасчетов.ДопустимоеЧислоДнейЗадолженности 

       КАК ДопустимоеЧислоДнейЗадолженности,

   Док.ДоговорВзаиморасчетов.КонтролироватьСуммуЗадолженности 

       КАК КонтролироватьСуммуЗадолженности,

   Док.ДоговорВзаиморасчетов.ДопустимаяСуммаЗадолженности 

       КАК ДопустимаяСуммаЗадолженности,

   Док.ДоговорВзаиморасчетов.ПроцентПредоплаты КАК ПроцентПредоплаты,

   Док.УчитыватьНДС,

   Док.УчитыватьНП,

   Док.СуммаВключаетНДС,

   Док.СуммаВключаетНП,

   Константы.ВалютаУправленческогоУчетаКомпании КАК ВалютаУправленческогоУчета,

   КурсыВалютСрезПоследних.Курс КАК КурсВалютыУпрУчета,

   КурсыВалютСрезПоследних.Кратность КАК КратностьВалютыУпрУчета,

   ВзаиморасчетыПоДоговору.СуммаВалОстаток КАК СуммаВалОстатокПоДоговору,

   ВзаиморасчетыПоСделке.СуммаВалОстаток КАК СуммаВалОстатокПоСделке,

   ПерваяСделка.ДатаПервойСделки,

   СуммыЗаказов.СуммаЗаказаОборот,

   СуммыЗаказов.СуммаОплатыОборот

ИЗ 

   Документ.РеализацияТоваров Док,

   Константы 

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

            КАК КурсыВалютСрезПоследних

      ПО Константы.ВалютаУправленческогоУчетаКомпании = КурсыВалютСрезПоследних.Валюта

 

ЛЕВОЕ СОЕДИНЕНИЕ // Для контроля суммы задолженности по договору 

                 // (ведение взаиморасчетов - любое) и числа дней задолженности по договору 

                 // (ведение взаиморасчетов - по расчетным документам)

   РегистрНакопления.КонтрагентыВзаиморасчетыКомпании.Остатки(, 

             ДоговорВзаиморасчетов = &ДоговорВзаиморасчетов) 

      КАК ВзаиморасчетыПоДоговору

   ПО Истина

 

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

   (ВЫБРАТЬ // Выбирает даты самых ранних сделок по договорам, указанным в т.ч. 

        МИНИМУМ(Сделка.Дата) КАК ДатаПервойСделки,

        ДоговорВзаиморасчетов

    ИЗ РегистрНакопления.КонтрагентыВзаиморасчетыКомпании.Остатки(, 

         ДоговорВзаиморасчетов = &ДоговорВзаиморасчетов)

    ГДЕ СуммаВалОстаток > 0 // Дебиторская задолженность больше 0

        И ДоговорВзаиморасчетов.ВедениеВзаиморасчетов = &ПоРасчетнымДокументам

        И ДоговорВзаиморасчетов.КонтролироватьЧислоДнейЗадолженности

    СГРУППИРОВАТЬ ПО ДоговорВзаиморасчетов) КАК ПерваяСделка

   ПО Истина

 

ЛЕВОЕ СОЕДИНЕНИЕ // Для контроля суммы задолженности по расчетному документу 

                 //(ведение взаиморасчетов - по расчетным документам)

   РегистрНакопления.КонтрагентыВзаиморасчетыКомпании.Остатки(,

   ДоговорВзаиморасчетов = &ДоговорВзаиморасчетов

   И Сделка = &Сделка

   ) КАК ВзаиморасчетыПоСделке

   ПО Истина

 

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

   РегистрНакопления.СуммыЗаказов.Обороты(,,, Заказ = &Сделка) КАК СуммыЗаказов

   ПО Истина

ГДЕ 

   Док.Ссылка = &ДокументСсылка

ДЛЯ ИЗМЕНЕНИЯ РегистрНакопления.КонтрагентыВзаиморасчетыКомпании.Остатки 

                           // Блокирующие чтение таблицы остатков регистра для разрешения 

                           // коллизий многопользовательской работы   

 ВЫБРАТЬ 

    УчетНоменклатурыОбороты.Период КАК Период,

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

ИЗ

    РегистрНакопления.УчетНоменклатуры.Обороты(, , Неделя, ) КАК УчетНоменклатурыОбороты 



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

    Период 



ИТОГИ СУММА(КоличествоОборот) ПО

    Период ПЕРИОДАМИ(НЕДЕЛЯ,,)   

 ВыборкаПериод = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Период", "ВСЕ"); 

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

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

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

КонецЦикла; 

   

  МоментСразуПослеДокумента = Новый Граница(ДокументСсылка,ВидГраницы.Включая)    

  // Пример создает момент времени по дате и ссылке на объект в базе данных. 

Момент = Новый МоментВремени(ТекДокумент.Дата, ТекДокумент.Ссылка);    

  Граница = Новый Граница(Дата, ВидГраницы.Включая);

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

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

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

"ВЫБРАТЬ

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.Физлицо,

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.СуммаВзаиморасчетовОстаток

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(&МомВрем, Физлицо = &Физик) КАК ВзаиморасчетыСРаботникамиОрганизацийОстатки";

МомВрем = Документы.НачислениеЗарплатыРаботникамОрганизаций.НайтиПоНомеру("00012","31.12.2009 23:59:59");

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

Запрос.УстановитьПараметр("Физик", Справочники.ФизическиеЛица.НайтиПоКоду("365"));	

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

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

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

"ВЫБРАТЬ

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.Физлицо,

|	ВзаиморасчетыСРаботникамиОрганизацийОстатки.СуммаВзаиморасчетовОстаток

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(&МомВрем, Физлицо = &Физик) КАК ВзаиморасчетыСРаботникамиОрганизацийОстатки";

МомВрем = Документы.НачислениеЗарплатыРаботникамОрганизаций.НайтиПоНомеру("00012","31.12.2009 23:59:59");

Запрос.УстановитьПараметр("МомВрем", Новый Граница(МомВрем.МоментВремени(), ВидГраницы.Исключая));

// или так: Запрос.УстановитьПараметр("МомВрем", МомВрем.МоментВремени());

Запрос.УстановитьПараметр("Физик", Справочники.ФизическиеЛица.НайтиПоКоду("365"));	

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

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

    

    Если ПроверкаДат() Тогда 

         Состояние("Запущена выгрузка данных");

         ПолучитьДанныеВТаблице();

         Если чОтчетов<>0 Тогда

                СортироватьТаблицу();

              ВыгрузитьТаблицуВФайл();

              ЗакрытьСистему();

              Состояние("Выгрузка завершена");

         Иначе

              //ЗакрытьСистемуАварийно();

 

         КонецЕсли;

    КонецЕсли;    

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

 Процедура ВыгрузитьТаблицуВФайл()

    

        //1. Open Excel-file 

 

               Если FileOfReports = Неопределено Тогда

            Попытка

                FileOfReports = Новый COMОбъект("Excel.Application");

                MyBook=FileOfReports.WorkBooks.Add(истина); //вместо истина можно вставить имя шаблона

 

                

                FirstSheet=MyBook.Worksheets(1);

                FirstSheet.Name = ОпределитьДату(НачПериода)+"-"+ОпределитьДату(КонПериода);

                FirstSheet.Activate();



                MyBook.SaveAs(КаталогDBF+"ОтчетыПроизводства.xls");

                

            Исключение

                Сообщить("ОШИБКА ЗАПИСИ В EXCEL-ФАЙЛ:"+ОписаниеОшибки());

                Сообщить("Совет: Возможно файл, в который должна быть произведена запись, Вами открыт для просмотра");

                Сообщить("Если это так, то закройте файл и запустите данную обработку повторно!");

            КонецПопытки;

            

            FileOfReports.Visible = 0;

        Иначе

            FileOfReports.Visible = 0;

            //FileOfReports.Visible = 1;

 

        КонецЕсли;

    

        //2.=========================================================================

        //Состояние("Анализ структуры файла...");

         

        чОтчетов = ТаблицаОтчетов.Количество();

        

        ЭлементыФормы.ИндикаторЗагрузки.МинимальноеЗначение = 0;

        ЭлементыФормы.ИндикаторЗагрузки.МаксимальноеЗначение = чОтчетов;

            

        ЭлементыФормы.Logo.Заголовок = "Выгружаю документы";

        лСчетчикИндикатора = 0;

        

        ВыгрузитьЗаголовокТаблицы(26);

        

        //ВЫГРУЖАЮ ТАБЛИЦУ В ФАЙЛ ПО СТРОКАМ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        фСтарт=истина; //флаг первого прохода

 

        чОт=2;         //номер первой строки с данными

         

        Пока чОтчетов >= 1 Цикл //Цикл по строкам Таблицы отчетов

 

              чОтчетов = чОтчетов -1;

              СтрокаОтчетов = ТаблицаОтчетов.Получить(чОтчетов);

             Если (СтрокаОтчетов.ДатаВыпуска=ДатаВыпускаПред) 

                И (СтрокаОтчетов.Принадлежность=ПринадлежностьПред)

                И (СтрокаОтчетов.Типоразмер=ТипоразмерПред)

                И (СтрокаОтчетов.ТипОсновы=ТипОсновыПред)

             Тогда

             Иначе

                ДатаВыпускаПред=СтрокаОтчетов.ДатаВыпуска; 

                ПринадлежностьПред=СтрокаОтчетов.Принадлежность;

                ТипоразмерПред=СтрокаОтчетов.Типоразмер;

                ТипОсновыПред=СтрокаОтчетов.ТипОсновы;

                Если фСтарт Тогда

                     фСтарт = ложь; //Уже не первый проход

 

                Иначе     

                     чДо=глСчетчикСтрок;

                     ВыгрузитьСтрокуИтог(чОт,чДо,26);

                КонецЕсли;

                чОт=глСчетчикСтрок;

             КонецЕсли;

             

             ВыгрузитьСтрокуОтчетовВФайл(СтрокаОтчетов,26);

             

             лСчетчикИндикатора = лСчетчикИндикатора + 1;

             ЭлементыФормы.ИндикаторЗагрузки.Значение = лСчетчикИндикатора;

             

             ОбработкаПрерыванияПользователя();

        

        КонецЦикла;

        чДо=глСчетчикСтрок;

        ВыгрузитьСтрокуИтог(чОт,чДо,26);

 

        //КОНЕЦ ВЫГРУЗКИ СТРОК В ФАЙЛ 

 

        Состояние("Данные файла выгружены");               

        //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 

        libСообщитьНК1("ИНФО: ШАГ 1 ВЫПОЛНЕН. Данные файла Отчеты.DBF успешно считаны",1);    

        

        //Состояние("Создание сводных таблиц");

 

        ЭлементыФормы.Logo.Заголовок = "Создание сводных таблиц";

        

        //РазделитьОбласти();

 

            //Range("A2").S_elect

 

            //ActiveWindow.FreezePanes = True

 

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"наим","Дата","Наим","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"ЮВ","Дата","Наим,Каркас,Вид","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр(2)","Дата","Наим,Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"В пр","Дата","Каркас,Основа","","К");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Основа","Дата","Основа","","кг основы");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Напыление","","Напылен","","кг напылен");

        СоздатьТаблицуЛист(MyBook.Worksheets(1).Name,"Клей","","Дата","","кг клея");

            

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



Процедура СоздатьТаблицуЛист(стрДанные,стрСводнаяТаблица,стрПоле1,стрПоле2,стрПоле3,стрПоле4);

    

    //Создает сводную таблицу стрСводнаяТаблица с полями (стрПоле4 - поле реквизита) 

     //и размещает ее на одноименном листе

     //Заполняет сводную таблицу данными, взятыми с листа стрДанные

     

    //Поле стрПоле2 может быть полем списка через запятую

   

    //0. Вспомогательный разбор списка значений в стрПоле2 и определение числа значений

 

         лПоля.Очистить(); //сбросим все значения, если таковые весели в памяти

 

         стрПоля=стрПоле2;

         i=1;//число значений в списке

 

         Пока Найти(стрПоля,",")<>0 Цикл

             

              n=Найти(стрПоля,",");

              лПоля.Добавить(Сред(стрПоля,1,n-1));

              стрПоля=Сред(стрПоля,n+1);

              i=i+1;

              

         КонецЦикла;      

         лПоля.Добавить(стрПоля);

         

    //1. Установить диапазон выборки данных

     FirstSheet.Activate();

    дДиапазонДанных=FirstSheet.UsedRange.Address;

    ДиапазонДанных=FirstSheet.Name+"!"+Строка(дДиапазонДанных);    

    

    //2. Создать кэш под сводную таблицу

    //   аргументы не переменные, а текст с именем переменных (crazy)

     

         SourceType = xlDatabase;

         SourceData = ДиапазонДанных;

    

         Cache = MyBook.PivotCaches().Add(SourceType, SourceData);

 

    //для отладки: FileOfReports.Visible = 1;   

           

    //3. Породить из кэша сводную таблицу с именем стрСводнаяТаблица

         TableDestination="";

         TableName=стрСводнаяТаблица;

    

         Cache.CreatePivotTable(TableDestination,TableName);

    

    //4. Определить представление данных в сводной таблице

     //стрПоле1

 

    Если СокрЛП(стрПоле1)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле1).Orientation = 3; //xlRowField=1 то, что указывается справа у таблицы

 

    КонецЕсли;

    

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

               MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).Orientation = 1; 

         КонецЕсли;



         чНомер = чНомер + 1;  

    КонецЦикла;      



    //стрПоле3

 

    Если СокрЛП(стрПоле3)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле3).Orientation = 2; //xlColumnField=2 то, что указывается в вепрхней части таблицы

 

    КонецЕсли;

    

    //стрПоле4

 

    Если СокрЛП(стрПоле4)<>"" Тогда

         MyBook.ActiveSheet.PivotTables(TableName).PivotFields(стрПоле4).Orientation = 4; //xlCount=4 data

 

    КонецЕсли;

    

    //5. Скрыть пустые строки в стрПоле2, предварительно проверив, что таковые СУЩЕСТВУЮТ!!!!

    //стрПоле2

 

    чНомер=0;

    Пока чНомер<i Цикл 

         Если СокрЛП(лПоля[чНомер].Значение)<>"" Тогда

              Если IfPivotItemExists(TableName,лПоля[чНомер].Значение,"(пусто)")Тогда

                    MyBook.ActiveSheet.PivotTables(TableName).PivotFields(лПоля[чНомер].Значение).PivotItems("(пусто)").Visible = False;

              КонецЕсли;

         КонецЕсли;

         чНомер = чНомер + 1;  

    КонецЦикла;      

             

    //6. Закрыть вспомогательные панели                                                  

 

        MyBook.ShowPivotTableFieldList = False;

        FileOfReports.CommandBars("PivotTable").Visible = False;

    

    //7. Присвоить активному листу имя, заданное в параметрах процедуры

 

        MyBook.ActiveSheet.Name = стрСводнаяТаблица;

    

    //8. Сохранить файл

 

        MyBook.Save();

    

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



Функция IfPivotItemExists(strTableName,strFieldName,strItemName)

//Проверяет существование позиции поля сводной таблицы со значением strItemName    

 

        nItems = MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems().Count;

        i = 1;

        Пока i <= nItems Цикл

            Если strItemName=MyBook.ActiveSheet.PivotTables(strTableName).PivotFields(strFieldName).PivotItems(i).Name Тогда

                 //Искомая позиция strItemName существует:

 

                 //Сообщить("Позиция "+strItemName+" найдена");

 

                 Возврат True;

            КонецЕсли;

            i=i+1; 

        КонецЦикла;

        

        //Сообщить("Позиция "+strItemName+" не найдена");

 

        Возврат False;

        

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

  РабочаяКнига = СоздатьОбъект("Excel.Application");

РабочаяКнига.SheetsInNewWorkbook = 1;

РабочаяКнига.Caption = "Отчет по договорам отгрузки";

NewBook = РабочаяКнига.Workbooks;

List = NewBook.Add;



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

СписокСтолбцов.ДобавитьЗначение("Модель");

СписокСтолбцов.ДобавитьЗначение("Разнорядка");

СписокСтолбцов.ДобавитьЗначение("По договору");

СписокСтолбцов.ДобавитьЗначение("Отгрузили");

СписокСтолбцов.ДобавитьЗначение("Осталось");



//Заполним наименование столбцов: Модель, Разнорядка, Количество

Для Столбец = 1 По СписокСтолбцов.РазмерСписка() Цикл

	Ячейка = РабочаяКнига.Cells(1,Столбец);

	Ячейка.Value = СписокСтолбцов.ПолучитьЗначение(Столбец);

КонецЦикла; 



//Формируем запрос по регистру

//	//Создание объекта типа Запрос

Запрос = СоздатьОбъект("Запрос");

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

"//{{ЗАПРОС(Сформировать)

|Период с ДатаНач по ДатаКон;

|Разнорядка = Регистр.УчетДоговоров.Разнорядка;

|Модель = Регистр.УчетДоговоров.Модель.Группа;

|Колво = Регистр.УчетДоговоров.Количество;

|Функция КолвоПриход = Приход(Колво);

|Функция КолвоРасход = Расход(Колво);

|Функция КолвоОст = КонОст(Колво);

|Группировка Разнорядка;

|Группировка Модель;

|"//}}ЗАПРОС

;



// Если ошибка в запросе, то выход из процедуры

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда

	Возврат;

КонецЕсли;



НомерСтроки = 1;

Пока Запрос.Группировка("Разнорядка") = 1 Цикл

	Пока Запрос.Группировка("Модель") = 1 Цикл 

		Модель = Запрос.Модель;

		Разнорядка = Запрос.Разнорядка;

		КолПоДоговору = Запрос.КолвоПриход;

		КолОтгрузили = Запрос.КолвоРасход;

		КолОсталось = Запрос.КолвоОст;

		НомерСтроки = НомерСтроки + 1;

		//Организум заполнение ячеек Excel

		Для Ст = 1 По СписокСтолбцов.РазмерСписка() Цикл

			Ячейка = РабочаяКнига.Cells(НомерСтроки,Ст);

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

				Ячейка.Value = Модель;

			ИначеЕсли Ст = 2 Тогда

				Ячейка.Value = Строка(Разнорядка);

			ИначеЕсли Ст = 3 Тогда

				Ячейка.Value = КолПоДоговору;

			ИначеЕсли Ст = 4 Тогда

				Ячейка.Value = КолОтгрузили;

			ИначеЕсли Ст = 5 Тогда

				Ячейка.Value = КолОсталось;

			КонецЕсли;

		КонецЦикла;	

	КонецЦикла;

КонецЦикла; 

СводнаяТаблица = РабочаяКнига.ActiveSheet.PivotTableWizard;

//Метод СводнаяТаблица.Name возвращает имя сводной таблицы

//Можно задать имя таблицы СводнаяТаблица.Name = "МояТаблица"

СводнаяТаблица.SmallGrid = 0;

//Разворачивает макет сводной таблицы 



//Обращение к ячейкам сводной таблицы возможно по номеру

//Например, СводнаяТаблица.PivotFields(1).Value 

//возвращает значение "Модель"



//Попробуем с другого конца

//1 - Row

//2 - Column

//3 - Page

//4 - Data

СводнаяТаблица.PivotFields(1).Orientation = 1;    //Модель 

СводнаяТаблица.PivotFields(2).Orientation = 3;    //Разнорядка

СводнаяТаблица.PivotFields(3).Orientation = 4;    //По договору

СводнаяТаблица.PivotFields(4).Orientation = 4;    //Отгрузили

СводнаяТаблица.PivotFields(5).Orientation = 4;    //Осталось



//Пройдемся по форме отчета

СводнаяТаблица.Format(1);



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

РабочаяКнига.CommandBars("PivotTable").Visible = 0;

РабочаяКнига.Visible = 1;