Оборот между счетами

Новая тема
Показывать по 10 20 40 сообщений
Можно ли вывести в отчет оборот между счетами по конкретному субконто на одном из счетов?

Например оборот за месяц между счетом 60.1 с конкретным контрагентом и 44.2. Можно ли это сделать не запросом?
Только бузЗапросом.
"Мне тоже надо получить обороты между счетами

БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты, СписокКонтрагентов, 2);
БИ.ИспользоватьСубконто(ВидыСубконто.Договоры, , );
БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1,62.1,62.2");

ДоговорыКонтрагентов.ВыбратьСтроки();
Пока ДоговорыКонтрагентов.ПолучитьСтроку() = 1 Цикл
ТекущийКонтрагент = ДоговорыКонтрагентов.Контрагент;
ТекущийДоговор = ДоговорыКонтрагентов.ДоговорТовар;
Если (БИ.ПолучитьСубконто(ВидыСубконто.Контрагенты,, ТекущийКонтрагент) = 1) Тогда
Если (БИ.ПолучитьСубконто(ВидыСубконто.Договоры,, ТекущийДоговор) = 1) Тогда
Если БИ.ПолучитьСчет(,Сч76_7_1) = 1 Тогда
   ОБ76_62 = БИ.ОБ("76.7.1","62.1"); // здесь " Ошибка в выражении!"
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
"
"> Мне тоже надо получить обороты между счетами
>
> БИ = СоздатьОбъект("БухгалтерскиеИтоги");
> БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты, СписокКонтрагентов, 2);
> БИ.ИспользоватьСубконто(ВидыСубконто.Договоры, , );
> БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1,62.1,62.2");
>
> ДоговорыКонтрагентов.ВыбратьСтроки();
> Пока ДоговорыКонтрагентов.ПолучитьСтроку() = 1 Цикл
> ТекущийКонтрагент = ДоговорыКонтрагентов.Контрагент;
> ТекущийДоговор = ДоговорыКонтрагентов.ДоговорТовар;
> Если (БИ.ПолучитьСубконто(ВидыСубконто.Контрагенты,, ТекущийКонтрагент) = 1) Тогда
> Если (БИ.ПолучитьСубконто(ВидыСубконто.Договоры,, ТекущийДоговор) = 1) Тогда
> Если БИ.ПолучитьСчет(,Сч76_7_1) = 1 Тогда
>    ОБ76_62 = БИ.ОБ("76.7.1","62.1"); // здесь " Ошибка в выражении!"
> КонецЕсли;
> КонецЕсли;
> КонецЕсли;
> КонецЦикла;
>


конечно будет ошибка!!!


БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1","62.1,62.2",,3);"
"точно! исправила

БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1","62.1,62.2",,3);

ошибка та же самая...."
"> точно! исправила
>
> БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1","62.1,62.2",,3);
>
> ошибка та же самая....

ё-моё - запутался ))))))))))

БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты, СписокКонтрагентов, 2);
БИ.ИспользоватьСубконто(ВидыСубконто.Договоры, , );
БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1","62.1,62.2",,3);

ДоговорыКонтрагентов.ВыбратьСтроки();
Пока ДоговорыКонтрагентов.ПолучитьСтроку() = 1 Цикл
ТекущийКонтрагент = ДоговорыКонтрагентов.Контрагент;
ТекущийДоговор = ДоговорыКонтрагентов.ДоговорТовар;
Если (БИ.ПолучитьСубконто(ВидыСубконто.Контрагенты,, ТекущийКонтрагент) = 1) Тогда
Если (БИ.ПолучитьСубконто(ВидыСубконто.Договоры,, ТекущийДоговор) = 1) Тогда
Если БИ.ПолучитьСчет(,Сч62_2) = 1 Тогда
  ОБ76_62 = БИ.КорКО(1); // здесь " Ошибка в выражении!"
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;"
ну как?
"Я так понимаю, изменились только строчки

Если БИ.ПолучитьСчет(,Сч62_2) = 1 Тогда
 ОБ76_62 = БИ.КорКО(1); // здесь " Ошибка в выражении!"
...

НО! почему-то получается, что БИ.ПолучитьСчет(,Сч62_2) = 0, хотя остатки и обороты по 60сч есть"
Все, заработало, надо было БИ.ПолучитьКорСчет(,Сч62_1)

спасибо! :)
> Все, заработало, надо было БИ.ПолучитьКорСчет(,Сч62_1)
>
> спасибо! :)

да - забыл дописать!

p.s. рассказывай, как выделаешь жирным цветов!?
Читают тему
(гостей: 1)

Быстрый переход