Оборот между счетами
10.09.2003
12:23
#1
Можно ли вывести в отчет оборот между счетами по конкретному субконто на одном из счетов?
Например оборот за месяц между счетом 60.1 с конкретным контрагентом и 44.2. Можно ли это сделать не запросом?
Например оборот за месяц между счетом 60.1 с конкретным контрагентом и 44.2. Можно ли это сделать не запросом?
10.09.2009
11:21
#3
"Мне тоже надо получить обороты между счетами
БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты, СписокКонтрагентов, 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"); // здесь " Ошибка в выражении!"
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
"
10.09.2009
12:52
#4
"> Мне тоже надо получить обороты между счетами
>
> БИ = СоздатьОбъект("БухгалтерскиеИтоги");
> БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты, СписокКонтрагентов, 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);"
>
> БИ = СоздатьОбъект("БухгалтерскиеИтоги");
> БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты, СписокКонтрагентов, 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);"
10.09.2009
13:03
#5
"точно! исправила
БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1","62.1,62.2",,3);
ошибка та же самая...."
БИ.ВыполнитьЗапрос(Дата1, Дата2,"76.7.1","62.1,62.2",,3);
ошибка та же самая...."
10.09.2009
13:09
#6
"> точно! исправила
>
> БИ.ВыполнитьЗапрос(Дата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); // здесь " Ошибка в выражении!"
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;"
>
> БИ.ВыполнитьЗапрос(Дата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); // здесь " Ошибка в выражении!"
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;"
Читают тему
(гостей: 1)