Имя: Пароль:
1C
1C 7.7
v7: Корсчет замучил!
0 mdv92
 
13.11.11
18:07
БухИт=СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ВключатьСубсчета(1,1);
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,СписокКонтрагентов);
БухИт.ИспользоватьСубконто(ВидыСубконто.ПодписныеПериоды);

БухИт.ВыполнитьЗапрос(ВыбНачПериода,ВыбКонПериода, "76.01.1.2",,,3,, "С");
БухИт.ВыбратьКорСчета();
Пока БухИт.ПолучитьКорСчет()= 1 Цикл
Если БухИт.ПолучитьКорСчет(,СЧетПоКоду("91.2"))>0 Тогда

Короче, как найти обороты по счету 76 (там собственная конфигурация) в корреспонденции с 91.2 в разрезе контрагентов?
Уже час мучаюсь!!
Никак не пойму, в чем дело-то?
1 ДенисЧ
 
13.11.11
18:08
Продам СП.
2 mdv92
 
13.11.11
18:08
Не совсем так! Там сразу 2 варианта, а у меня - один (пробовала и так, и эдак)
Или так
Пока БухИт.ПолучитьКорСчет()= 1 Цикл
или так
Если БухИт.ПолучитьКорСчет(,СЧетПоКоду("91.2"))>0 Тогда
3 Скользящий
 
13.11.11
18:10
Замучил? А ты его не чеши.
4 mdv92
 
13.11.11
18:12
Ну тривиально же!! Подскажите!
5 Песец
 
13.11.11
18:22
Запусти соответствующий визард, посмотри полученный код.
6 Песец
 
13.11.11
18:23
...Или прочитай инструкцию по эксплуатации. (Но это слишком тривиально)

Пример:

БухИтоги.Запрос(Дата1, Дата2);

БухИтоги.ВыбратьСчета();

Пока БухИтоги.ПолучитьСчет() = 1 Цикл

  БухИтоги.ВыбратьКорСчета();

  Пока БухИтоги.ПолучитьКорСчет() = 1 Цикл

     Деб = БухИтоги.ДО();

     Кред = БухИтоги.КО();

  КонецЦикла;

КонецЦикла;

(с) ЖКК
7 mdv92
 
13.11.11
18:32
Не, ну видела я такую картинку - мне ж нужно по определенным счетам и по списку контрагентов!
Что я делаю не так-то?
8 mdv92
 
13.11.11
18:35
БухИт.ВыбратьСубконто(1);
{F:ПС.ERT(80)}: Не выбран элемент вышестоящей группировки!
9 Песец
 
13.11.11
18:43
(7) Что делать?
Если вариант "Не выбран элемент вышестоящей группировки" не предлагать, то не знаю.

Еще раз: запусти визард, наиболее похожий на то, что тебе надо, затем подправь код как тебе надо.
10 mdv92
 
13.11.11
18:46
(9) А что там должно быть выбрано-то?
11 mdv92
 
13.11.11
18:47
БухИт.ПолучитьКорСчет(,СЧетПоКоду("91.2")) = 0 - в отладчике смотрю, а БухИт.ПолучитьКорСчет(,СЧетПоКоду("51")) = 1 - при том, что по анализу субконто прекрасно видно, что обороты с 91.2 у 76.01.1.2 есть.
12 mdv92
 
13.11.11
18:58
БухИт.ВключатьСубсчета(-1,-1);
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,СписокКонтрагентов);
БухИт.ИспользоватьСубконто(ВидыСубконто.ПодписныеПериоды);

БухИт.ВыполнитьЗапрос(ВыбНачПериода,ВыбКонПериода, "76.01.1.2",,,3,, "С");
БухИт.ВыбратьСубконто(1);
Пока БухИт.ПолучитьСубконто(1)=1 Цикл
   БухИт.ВыбратьСубконто(2);
   Пока БухИт.ПолучитьСубконто(2)=1 Цикл
       БухИт.ВыбратьКорСчета();
       Пока БухИт.ПолучитьКорСчет()= 1 Цикл


Как так может быть, что вообще нет корсчетов? Куда же они все делись??
13 Oleg_Kag
 
13.11.11
19:00
...единственное что не увидел и что возможно поможет:

БухИт.ИспользоватьКорСубконто()
14 mdv92
 
13.11.11
19:03
(13) А мне не нужно корсубконто!
Не в целом обороты по корсчету нужны.
15 Песец
 
13.11.11
19:04
(12) Какая аналитика на 76?

В третий раз: сделай визардом и подправь сгенерированный код.
16 mdv92
 
13.11.11
19:04
Там в (12) какое-то глобальное недопонимание процесса!
Счет есть, субконто - есть, всё остальное работает и заполняется, не находится только списанная задолженность.
17 mdv92
 
13.11.11
19:04
(15) Контрагент, подписнойпериод
18 mdv92
 
13.11.11
19:08
А что такое визард-то?
19 Сияющий Асинхраль
 
13.11.11
19:09
Прочитал корсет замучил :-)
20 Песец
 
13.11.11
19:11
Главное меню - конструкторы - бухгалтерский запрос - журнал-ордер для типовой конфы выдал вот что:

Процедура Сформировать()
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   Ит = СоздатьОбъект("БухгалтерскиеИтоги");
   Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,, 1);
   Ит.ИспользоватьСубконто(ВидыСубконто.Договоры,, 1);
   Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "76.5", "91.2",, 3,, "С");
   Таб.ВывестиСекцию("Шапка");
   Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
   Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты);
   Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл
       Сформировать_Колонки(Ит, Таб, "Субконто1");
       Ит.ВыбратьСубконто(ВидыСубконто.Договоры);
       Пока Ит.ПолучитьСубконто(ВидыСубконто.Договоры) = 1 Цикл
           Сформировать_Колонки(Ит, Таб, "Субконто2");
       КонецЦикла;
   КонецЦикла;
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать","");
КонецПроцедуры
21 mdv92
 
13.11.11
19:11
БухИт.ВыбратьКорСчета(1,) = 1 - поставила непонятную мне единичку, и , вроде, дело на лад пошло!
22 KRV
 
13.11.11
19:41
Тьфу.. думал что-то интересное.. прочитал тему как "КОРСЕТ замучал".. а тут опять про 1С..
23 verba
 
13.11.11
19:49
(22) Аналогично :)
24 mdv92
 
13.11.11
19:54
Не-а, всё равно не получается!
Есть, правда шанс, что там и нет оборотов по моему списку...
25 mdv92
 
13.11.11
20:07
Специально добавила в список контрагента, по которому обороты есть.
Люди, ну в чем дело? обороты 76.01.1.2 - 76.01.1.2 - показывает, а с 91.2 - нет.
26 BlackSeaCat
 
13.11.11
20:23
Дело, конечно, в корсете. Сперва надо разобраться с ним (при помощи прграммиста), а потом - уже и с корсчетом лехко будет.
27 Сияющий Асинхраль
 
13.11.11
20:25
Зайди ко мне в личку, там ссылка на страничку, где можно скачать осв с возможностью выбора кор счетов и списков субконто-кор субконто. Пишешь, сразу скажу, неправильно, но т.к.сижу в инете с мобилы, то написать правильный вариант затруднительно
28 mdv92
 
13.11.11
20:26
БухИт=СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ВключатьСубсчета(-1,-1);
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты,СписокКонтрагентов);
БухИт.ИспользоватьСубконто(ВидыСубконто.ПодписныеПериоды);

БухИт.ВыполнитьЗапрос(ВыбНачПериода,ВыбКонПериода, "76.01.1.2","91.2",,3,, "С");
БухИт.ВыбратьСубконто(1);
Пока БухИт.ПолучитьСубконто(1)=1 Цикл
   БухИт.ВыбратьСубконто(2);
   Пока БухИт.ПолучитьСубконто(2)=1 Цикл
       БухИт.ВыбратьКорСчета(1,);
       Пока БухИт.ПолучитьКорСчет()= 1 Цикл
           Если БухИт.КорСчет.Код="91.2" Тогда
               Сообщить("Есть!"+ БухИт.КорКО());

Ура. всё получилось. Кривовато, но правильно!
29 mdv92
 
13.11.11
20:27
(27) Там не может быть какой-то принципиальной ошибки - или какая-то единичка в параметрах, или еще что-то в том же духе!
30 Сияющий Асинхраль
 
13.11.11
20:38
Ну, в общем, да, параметры чуток неправильны, ну и выборки не в том порядке
31 mdv92
 
16.11.11
14:22
Почему выборки не в том порядке?
А с параметрами - что?
Ведь работает!