- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
// готовим выборку
ВыборкаПоСчетам = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Счет" + ЧастьБаланса);
Пока ВыборкаПоСчетам.Следующий() Цикл
ВыборкаСбк1 = ВыборкаПоСчетам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "1");
Пока ВыборкаСбк1.Следующий() Цикл
ВыборкаСбк2 = ВыборкаСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "2");
Пока ВыборкаСбк2.Следующий() Цикл
ВыборкаСбк3 = ВыборкаСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + ЧастьБаланса + "3");
Пока ВыборкаСбк3.Следующий() Цикл
ВыборкаПоКоррСчетам = ВыборкаСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Счет" + КоррЧастьБаланса);
Пока ВыборкаПоКоррСчетам.Следующий() Цикл
ВыборкаКоррСбк1 = ВыборкаПоКоррСчетам.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "1");
Пока ВыборкаКоррСбк1.Следующий() Цикл
ВыборкаКоррСбк2 = ВыборкаКоррСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "2");
Пока ВыборкаКоррСбк2.Следующий() Цикл
ВыборкаКоррСбк3 = ВыборкаКоррСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто" + КоррЧастьБаланса + "3");
Пока ВыборкаКоррСбк3.Следующий() Цикл
ВыборкаНалСчет = ВыборкаКоррСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "СчетКорректировок");
Пока ВыборкаНалСчет.Следующий() Цикл
ВыборкаНалСбк1 = ВыборкаНалСчет.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто1Корректировок");
Пока ВыборкаНалСбк1.Следующий() Цикл
ВыборкаНалСбк2 = ВыборкаНалСбк1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто2Корректировок");
Пока ВыборкаНалСбк2.Следующий() Цикл
ВыборкаНалСбк3 = ВыборкаНалСбк2.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Субконто3Корректировок");
Пока ВыборкаНалСбк3.Следующий() Цикл
ВыборкаСделок = ВыборкаНалСбк3.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам, "Сделка");
Пока ВыборкаСделок.Следующий() Цикл
ВыборкаДанных = ВыборкаСделок.Выбрать();
Если ВыборкаДанных.Следующий() Тогда
// Пара строк кода
Для Сч = 1 По 3 Цикл
Если ТипЗнч(ВыборкаДанных["Субконто" + ЧастьБаланса + Сч]) = Тип("СправочникСсылка.СтатьиЗатрат") Тогда
// И тут еще пара строк кода
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла; // по сделкам
КонецЦикла; // по субконто3 корректировок
КонецЦикла; // по субконто2 корректировок
КонецЦикла; // по субконто1 корректировок
КонецЦикла; // по счетам корректировок
КонецЦикла; // по корр субконто3
КонецЦикла; // по корр субконто2
КонецЦикла; // по корр субконто1
КонецЦикла; // по корр счетам
КонецЦикла; // по субконто3
КонецЦикла; // по субконто2
КонецЦикла; // по субконто1
КонецЦикла; // по счетам