Отчет по кредиту 51 го счета

[ge4r]

Задача следующая:
есть отчет "Обороты счета",там задаем период,номер счета(51)...выводится "обороты по счету 51",тыкаем на расшифровку ячейки 51 го счета,выводится "журнал проводок по 51 счету"...опять же тыкаем на расшифровку,получаем "операция(Выписка)"
вот отсюда мне нужно выудить вид договора,контрагента,сумму,дату и тд...
какие нужно использовать функции\процедуры,и как узнать идентификаторы ячеек этой операции?

[ge4r]

вот что пока написал:

Код:

Процедура Сформировать() 
    Перем  Опер, Таб;
Проверить_Дату();
Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию ("Шапка");
Опер = СоздатьОбъект("Операция"); 
Опер.ВыбрратьОперацииСПроводками (НачДата,КонДата,"*,51",,,);
Пока Опер.ПолучитьПроводку() = 1 Цикл
    Таб.ВывестиСекцию("Строка");   
КонецЦикла;
КонецПроцедуры

вот только никак не могу понять как добраться до нужной операции через конфигуратор и взять идентификаторы нужных ячеек...как это сделать можно?

[ge4r]

Вот что написал

Код:

Процедура Сформировать() 
    Перем  Опер, Таб, Сумма, Заголовок;
    Проверить_Дату(); 
    Заголовок = "Отчет по движению денежных средств за период  "+ ПериодСтр(НачДата,КонДата);
    Таб = СоздатьОбъект("Таблица");
    Таб.ВывестиСекцию ("Шапка");

    
    Док = СоздатьОбъект("Документ.Выписка");
    Док.ВыбратьДокументы(НачДата, КонДата);
    Пока Док.ПолучитьДокумент() = 1 Цикл
        Если Док.Проведен() = 0  Тогда
            Продолжить;
        КонецЕсли;
        Док.ВыбратьСтроки();
        Пока Док.ПолучитьСтроку() = 1 Цикл
            Если Док.Расход <> 0  Тогда
                Если ПустоеЗначение(Док.ПервичныйДокумент) = 0 Тогда
                    ВидДоговора = Док.ПервичныйДокумент.Договор.ВидДоговора;
                    Если Док.КоррСчет.ПринадлежитГруппе(СчетПоКоду("68")) = 1 Тогда    
                        Контрагент = Док.Наименование(СчетПоКоду("68"));
                       ИначеЕсли Док.КоррСчет.ПринадлежитГруппе(СчетПоКоду("69")) = 1 Тогда 
                        Контрагент = Док.ПервичныйДокумент.Договор;
                    Иначе
                        Контрагент = Док.ПервичныйДокумент.Контрагент;
                    КонецЕсли;
                    
                    
                    Договор = Док.ПервичныйДокумент.Договор;
                    Сумма = Док.Расход;
                    НомПП = Док.НомерДокВходящий;
                    ДатаПП = Док.ДатаДокВходящий;
                    ДатаВыписки = Док.ДатаДок;
                    Таб.ВывестиСекцию("Строка");  
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        
    КонецЦикла;
    
    Таб.ТолькоПросмотр(1);
    Таб.Опции(0,0,0,0);
    Таб.ПараметрыСтраницы(2,,,,,,,,,1);    
    Таб.Показать(); 
КонецПроцедуры

Теперь нужно сделать отбор по контрагенту и виду договора
как это лучше реализовать,у меня только вариант с кучей Если...есть ли более рациональный способ?

и еще,если в группе встречается 68 счет,то в поле контрагент нужно вывести наименование счета,подскажите функцию,которая возвращает наименование...
Если Док.КоррСчет.ПринадлежитГруппе(СчетПоКоду("68")) = 1 Тогда

[ge4r]

разобрался

[Kivals]

Теперь нужно сделать отбор по контрагенту и виду договора

Запросом пробовал?

[ge4r]

нет,сделал просто 2 условия и всё