[DAS_Alex]

Добрый день. Не могу получить КорСчет и его субконто. Подскажите как доработать следующий код?

ОтборСубк1=ОтборСубконто1.ТекущаяСтрока();
Если  ВыбВидСубконто2.выбран=0 тогда
     ОтборСубк2=3;
Иначе
     ОтборСубк2=ОтборСубконто2.ТекущаяСтрока();
КонецЕсли;
Если  ВыбВидСубконто3.выбран=0 тогда
     ОтборСубк3=3;
Иначе
     ОтборСубк3=ОтборСубконто3.ТекущаяСтрока();
КонецЕсли;
Ит=создатьобъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВыбВидСубконто1,Субконто1,ОтборСубк1,0);
Если ОтборСубк2<>3 тогда
    Ит.ИспользоватьСубконто(ВыбВидСубконто2,Субконто2,ОтборСубк2,0);
КонецЕсли;

Если ОтборСубк3<>3 тогда
    Ит.ИспользоватьСубконто(ВыбВидСубконто3,Субконто3,ОтборСубк3,0);
КонецЕсли;

Ит.ВыполнитьЗапрос(Дата1,Дата2,счет);
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто()=1 цикл
    
      Если отборСубк2=1 тогда
          Ит.ВыбратьСубконто(2);
          Пока Ит.ПолучитьСубконто()=1 цикл
        
                Если отборСубк3=1 тогда
                       Ит.ВыбратьСубконто(3);
                       Пока Ит.ПолучитьСубконто()=1 цикл

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

[5_kopeek]

ВыполнитьЗапрос(<НачалоПериода>,<КонецПериода>,<Счет>,<КоррСчет>,<Валюта>,<ТипИтогов>,<Периодичность>,<ТипСуммы>)
Назначение:
Выполнить отбор и расчет итогов по параметрам.
...
Параметры:
...
<КоррСчет> - необязательный параметр. Значение типа ''Счет'' - корреспондирующий счет, в корреспонденции с которым будут отбираться итоги счета, указанного в параметре <Счет>. Задается значением типа ''Счет'' или объектом типа ''СписокЗначений'', содержащим значения типа ''Счет'', либо строкой содержащей список кодов счетов, разделенных символом '','' или '';''. Если параметр не указан, будут отбираться итоги в корреспонденции со всеми счетами.
...
_________________
ИспользоватьКорСубконто(<ВидСубконто>,<Субконто>,<ТипФильтра>,<ПоГруппам>)
Назначение:
Устанавливает режим получения итогов методом ''ВыполнитьЗапрос'' в разрезе корреспондирующих субконто.Метод слудет вызывать до вызова метода ''ВыполнитьЗапрос''. Метод может вызываться последовательно несколько раз. В этом случае установки, выполняемые этим методом суммируются.
...
_________________
ВыбратьКорСчета(<ФлагВсе>,<ФлагДК>,<Номер>)
Назначение:
Открывает выборку корреспондирующих счетов, для которых были получены итоги методом ''ВыполнитьЗапрос''.
...
_________________
ПолучитьКорСчет(<Номер>,<Счет>)
Назначение:
Получить из выборки следующий корреспондирующий счет. Выборка должна быть предварительно открыта при помощи метода ''ВыбратьКорСчета''.
...
_________________
ВыбратьКорСубконто(<Индекс>,<ФлагВсе>,<ФлагДК>,<Номер>,<Сортировка>,<ОбратныйПорядок>)
Назначение:
Открывает выборку по корреспондирующим субконто.
...
_________________
ПолучитьКорСубконто(<Индекс>,<Номер>,<Значение>)
Назначение:
Получить из выборки следующее субконто. Выборка должна быть предварительно открыта при помощи метода ''ВыбратьКорСубконто''.
...

[NESTER]

ОтборСубк1=ОтборСубконто1.ТекущаяСтрока();
Если  ВыбВидСубконто2.выбран=0 тогда
     ОтборСубк2=3;
Иначе
     ОтборСубк2=ОтборСубконто2.ТекущаяСтрока();
КонецЕсли;
Если  ВыбВидСубконто3.выбран=0 тогда
     ОтборСубк3=3;
Иначе
     ОтборСубк3=ОтборСубконто3.ТекущаяСтрока();
КонецЕсли;
Ит=создатьобъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВыбВидСубконто1,Субконто1,ОтборСубк1,0);
Если ОтборСубк2<>3 тогда
    Ит.ИспользоватьСубконто(ВыбВидСубконто2,Субконто2,ОтборСубк2,0);
КонецЕсли;

Если ОтборСубк3<>3 тогда
    Ит.ИспользоватьСубконто(ВыбВидСубконто3,Субконто3,ОтборСубк3,0);
КонецЕсли;

[b]Ит.ИспользоватьКорСубконто(ВидыСубконто.НЕОБХОДИМЫЙ_ВИД_КОРСУБКОНТО);[/b]

Ит.ВыполнитьЗапрос(Дата1,Дата2,счет[b],КОРСЧЕТ,,3[/b]);
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто()=1 цикл
    [b]ит.выбратькорсубконто();
    пока ит.получитькорсубконто() = 1 цикл

    конеццикла;[/b]
      [s]Если отборСубк2=1 тогда
          Ит.ВыбратьСубконто(2);
          Пока Ит.ПолучитьСубконто()=1 цикл
        
                Если отборСубк3=1 тогда
                       Ит.ВыбратьСубконто(3);
                       Пока Ит.ПолучитьСубконто()=1 цикл

                       Конеццикла; 
                КонецЕсли; 
          Конеццикла; 
      КонецЕсли;[/s]
Конеццикла;

Пример приведен, если выборка выполняется только по 1-ому субконто

ОтборСубк1=ОтборСубконто1.ТекущаяСтрока();
Если  ВыбВидСубконто2.выбран=0 тогда
     ОтборСубк2=3;
Иначе
     ОтборСубк2=ОтборСубконто2.ТекущаяСтрока();
КонецЕсли;
Если  ВыбВидСубконто3.выбран=0 тогда
     ОтборСубк3=3;
Иначе
     ОтборСубк3=ОтборСубконто3.ТекущаяСтрока();
КонецЕсли;
Ит=создатьобъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВыбВидСубконто1,Субконто1,ОтборСубк1,0);
Если ОтборСубк2<>3 тогда
    Ит.ИспользоватьСубконто(ВыбВидСубконто2,Субконто2,ОтборСубк2,0);
КонецЕсли;

Если ОтборСубк3<>3 тогда
    Ит.ИспользоватьСубконто(ВыбВидСубконто3,Субконто3,ОтборСубк3,0);
КонецЕсли;

Ит.ИспользоватьКорСубконто(ВидыСубконто.НЕОБХОДИМЫЙ_ВИД_КОРСУБКОНТО);

Ит.ВыполнитьЗапрос(Дата1,Дата2,счет,КОРСЧЕТ,,3);
Ит.ВыбратьСубконто();
Пока Ит.ПолучитьСубконто()=1 цикл
    ит.выбратькорсубконто();
    пока ит.получитькорсубконто() = 1 цикл

    конеццикла;
      Если отборСубк2=1 тогда
          Ит.ВыбратьСубконто(2);
          Пока Ит.ПолучитьСубконто()=1 цикл
        
                Если отборСубк3=1 тогда
                       Ит.ВыбратьСубконто(3);
                       Пока Ит.ПолучитьСубконто()=1 цикл

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

Так вроде лучше.

Причина редактирования: Правила читать будем?