|   |   | 
| 
 | Подскажите с циклом.. | ☑ | ||
|---|---|---|---|---|
| 0
    
        hasan-rusel 04.04.13✎ 06:25 | 
        О, великие умы форума ! Подскажите начинающим)
  Есть некий запрос с заполнением: Запрос23 = Новый Запрос; Запрос23.Текст ="ВЫБРАТЬ | ХозрасчетныйДвиженияССубконто.СубконтоДт2, | ХозрасчетныйДвиженияССубконто.Сумма, | ХозрасчетныйДвиженияССубконто.СчетКт КАК СчетКт, | ХозрасчетныйДвиженияССубконто.Период, | ХозрасчетныйДвиженияССубконто.СуммаНУДт, | ХозрасчетныйДвиженияССубконто.СуммаНУКт, | ХозрасчетныйДвиженияССубконто.СуммаПРДт, | ХозрасчетныйДвиженияССубконто.СуммаПРКт, | ХозрасчетныйДвиженияССубконто.СуммаВРДт, | ХозрасчетныйДвиженияССубконто.СуммаВРКт, | ХозрасчетныйДвиженияССубконто.СчетДт, | ХозрасчетныйДвиженияССубконто.СубконтоКт2, | ХозрасчетныйДвиженияССубконто.ПодразделениеДт.Ссылка КАК ПодразделениеДтСсылка |ИЗ | РегистрБухгалтерии.Хозрасчетный.ДвиженияССубконто( | &НачПериода, | &КонПериода, | СчетКт = &Счет | И ПодразделениеКт.Ссылка = &Подразделение, | , | ) КАК ХозрасчетныйДвиженияССубконто | |СГРУППИРОВАТЬ ПО | ХозрасчетныйДвиженияССубконто.ПодразделениеДт.Ссылка, | ХозрасчетныйДвиженияССубконто.СубконтоДт2, | ХозрасчетныйДвиженияССубконто.Сумма, | ХозрасчетныйДвиженияССубконто.СчетКт, | ХозрасчетныйДвиженияССубконто.Период, | ХозрасчетныйДвиженияССубконто.СуммаНУДт, | ХозрасчетныйДвиженияССубконто.СуммаНУКт, | ХозрасчетныйДвиженияССубконто.СуммаПРДт, | ХозрасчетныйДвиженияССубконто.СуммаПРКт, | ХозрасчетныйДвиженияССубконто.СуммаВРДт, | ХозрасчетныйДвиженияССубконто.СуммаВРКт, | ХозрасчетныйДвиженияССубконто.СчетДт, | ХозрасчетныйДвиженияССубконто.СубконтоКт2 | |УПОРЯДОЧИТЬ ПО | ПодразделениеДтСсылка"; Запрос23.УстановитьПараметр("Счет", Счет); Запрос23.УстановитьПараметр("Подразделение", Подразделение); Запрос23.УстановитьПараметр("НачПериода", НачалоДня(НачПериода)); Запрос23.УстановитьПараметр("КонПериода", КонецДня(КонПериода)); Результат1 = Запрос23.Выполнить(); Выборка23 = Результат1.Выбрать(); ВыборкаПодразделения = Результат1.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам); Пока ВыборкаПодразделения.Следующий() Цикл Выборка00 = ВыборкаПодразделения.Выбрать(); Пока Выборка23.Следующий() Цикл Если Выборка23.СубконтоКт2.Код = "0000047" тогда АБУ3 = АБУ3 + Выборка23.Сумма; ////////////////и т.д.///////////////// КонецЕсли; КонецЦикла; Секция.Параметры.АБУ3=АБУ3; ///////////////////тд///////// Таблица.Присоединить(Секция); КонецЦикла; Выходит какая-то фигня... Подскажите пожалуйста как поправить ?!? Заранее спасибо !! | |||
| 1
    
        Галахад гуру 04.04.13✎ 06:28 | 
        У меня мозг поломался. :-(     | |||
| 2
    
        Wobland 04.04.13✎ 06:29 | 
        дерево обходится так:
  ВыборкаРаз=Запрос.Выполнить.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам); Пока ВыборкаРаз.Следующий() ВыборкаДва=ВыборкаРаз.Выбрать(); Пока ВыборкаДва Следующий() а (0) разбирать не хочу | |||
| 3
    
        ZanderZ 04.04.13✎ 06:29 | 
        итоги сделай по ПодразделениеДтСсылка     | |||
| 4
    
        Wobland 04.04.13✎ 06:30 | 
        а нет, хочу. Выборка23 там ваще никуда не впилась     | |||
| 5
    
        Галахад гуру 04.04.13✎ 06:31 | 
        Вы чо реально (0) поняли?     | |||
| 6
    
        Рэйв 04.04.13✎ 06:33 | 
        (5)Да он хочет дерево группировок обойти кажется     | |||
| 7
    
        Wobland 04.04.13✎ 06:33 | 
        (5) элементарно, Ватсон. человек не знает, как делать, ему надо рассказать с начал. а то, что в (0) выкинуть     | |||
| 8
    
        Wobland 04.04.13✎ 06:34 | 
        а ещё сумму в цикле считать не по-нашенски     | |||
| 9
    
        Wobland 04.04.13✎ 06:35 | 
        (8) *это не по-нашенски ;)     | |||
| 10
    
        Галахад гуру 04.04.13✎ 06:35 | 
        (6) А-а-а.
  (7) Не знает как делать, это ладно. Как догадались чего вообще хочет? | |||
| 11
    
        Wobland 04.04.13✎ 06:42 | 
        (10) я даже запрос не видел. есть предположение, что нужны не итоги, а группировка.
  ещё вариант любви с деревом: Кедр=Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкам); Для Каждого ТекСтрокаРаз Из Кедр.Строки Цикл ТекСтрокаРаз.Фирма=""; ТекСтрокаРаз.Касса=""; Для Каждого ТекСтрокаДва Из ТекСтрокаРаз.Строки Цикл ТекСтрокаДва.Касса=""; КонецЦикла; КонецЦикла; | |||
| 12
    
        hasan-rusel 04.04.13✎ 06:42 | 
        (2) 
  Поправил как Пока ВыборкаПодразделения.Следующий() Цикл Выборка00 = ВыборкаПодразделения.Выбрать(); Пока Выборка00.Следующий() Цикл БОЛЬШОЕ СПАСИБО !!!!!!!!!!! Блин, ты мне столько раз уже помог ) С меня проставон ))) | |||
| 13
    
        SnarkHunter 04.04.13✎ 06:47 | 
        (0)Подсказывать можно О чем-то, но никак ни С чем-то.     | |||
| 14
    
        Wobland 04.04.13✎ 06:49 | 
        (13) подскажите [о том, как быть] с циклом     | |||
| 15
    
        SnarkHunter 04.04.13✎ 06:51 | 
        (14)Это ПГС...     | |||
| 16
    
        Wobland 04.04.13✎ 06:59 | 
        (15) ещё б я знал, что такое простое глагольное сказуемое.. имхо в просторечии можно опускать куски по типу (14)     | |||
| 17
    
        el-gamberro 04.04.13✎ 07:08 | 
        (16) ПГС - перманентный грамматический синдром :)     | |||
| 18
    
        Wobland 04.04.13✎ 07:10 | 
        ;)))     | |||
| 19
    
        krakazybra 04.04.13✎ 07:17 | 
        ПГС - песчано-гравийная смесь :)))     | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |