Поставили задачу перекинуть отчет с 7-ки на 8-ку. С кодом разобралась, вот с группировкой застряла и с созданием объекта, не могу найти как перевести семерочный код

"Спр = СоздатьОбъект("Справочник.Контрагенты");  и
        Пока Запрос.Группировка(1) = 1 Цикл
       Пока Запрос.Группировка(2) = 1 Цикл"

Помогите, пожалуйста!!!!

Вы ж без фотки не принимаете! :)

странно, что топик о выборке, сам запрос видимо рулит

Процедура Сформировать()
   Перем Запрос, ТекстЗапроса, Таб, стр;
   Перем Контр;
   
   ИтПрих =0;
   ИтПрихБезНДС = 0;
   ИтРасх = 0;
   ИтРасхБезНДС = 0;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |БанковскаяВыписка = Документ.БанковскаяВыписка.ТекущийДокумент;
   |Контрагент = Документ.БанковскаяВыписка.Контрагент;  
   |Договор = Документ.БанковскаяВыписка.Договор;
   |Сумма = Документ.БанковскаяВыписка.Сумма;
   |СуммаНДС = Документ.БанковскаяВыписка.СуммаНДС;
   |ВидДвижения = Документ.БанковскаяВыписка.ВидДвижения;
   |Функция СуммаСумма = Сумма(Сумма);
   |Функция СуммаНДССумма = Сумма(СуммаНДС);
   |Группировка Договор;
   |Группировка БанковскаяВыписка;  
   |Условие (ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Приход);
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;
   
   ТЗ.Очистить();
   ТЗ.НоваяКолонка("Контрагент");  
   ТЗ.НоваяКолонка("Договор");
   ТЗ.НоваяКолонка("СуммаСумма");
   ТЗ.НоваяКолонка("СуммаНДССумма");
   Спр = СоздатьОбъект("Справочник.Контрагенты");
   
   Пока Запрос.Группировка(1) = 1 Цикл
       Пока Запрос.Группировка(2) = 1 Цикл
           Спр.НайтиПонаименованию(СокрЛП(Запрос.Контрагент),0);
           Если Спр.Выбран()=1 Тогда
               Если Спр.КорпССуб = 1 Тогда  
                   ТЗ.НоваяСтрока();
                   ТЗ.Контрагент=Запрос.Контрагент;  
                   ТЗ.Договор=Запрос.Договор;  
                   ТЗ.СуммаСумма=Запрос.СуммаСумма;  
                   ТЗ.СуммаНДССумма=Запрос.СуммаНДССумма;  
               КонецЕсли;    
           КонецЕсли;
       КонецЦикла;  
   КонецЦикла;  
   
   ТЗ.Свернуть("1,2","3,4");  
   ТЗ.НоваяКолонка("Подрядчик");  
   ТЗ.НоваяКолонка("БВ");
   ТЗ.НоваяКолонка("СуммаСНДС");
   ТЗ.НоваяКолонка("СуммаНДС");  
   
   
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |БанковскаяВыписка = Документ.БанковскаяВыписка.ТекущийДокумент;
   |Контрагент = Документ.БанковскаяВыписка.Контрагент;  
   |Договор = Документ.БанковскаяВыписка.Договор.ДоговорЗаказчик;
   |Сумма = Документ.БанковскаяВыписка.Сумма;
   |СуммаНДС = Документ.БанковскаяВыписка.СуммаНДС;
   |ВидДвижения = Документ.БанковскаяВыписка.ВидДвижения;
   |Функция СуммаСумма = Сумма(Сумма);
   |Функция СуммаНДССумма = Сумма(СуммаНДС);  
   |Группировка Договор;
   |Группировка Контрагент;
   |Группировка БанковскаяВыписка;  
   |Условие (ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Расход);
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;    
   
   Спр = СоздатьОбъект("Справочник.Контрагенты");    
   Дог = СоздатьОбъект("Справочник.Договора");  
   
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"
   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   
   Пока Запрос.Группировка(1) = 1 Цикл  
       Если СокрЛП(Запрос.Договор)<>"" Тогда
           стр = 0;
           Если ТЗ.НайтиЗначение(Запрос.Договор,стр,"Договор")=1 Тогда
               ТЗ.УстановитьЗначение(стр,"СуммаСНДС",Запрос.СуммаСумма);  
               ТЗ.УстановитьЗначение(стр,"СуммаНДС",Запрос.СуммаНДССумма);      
           Иначе  
               ТЗ.НоваяСтрока();  
               Если Дог.НайтиЭлемент(Запрос.Договор)=1 Тогда    
                   Спр.НайтиЭлемент(Дог.Владелец);
                   ТЗ.Контрагент = Спр.ТекущийЭлемент();
                   ТЗ.Договор = Запрос.Договор;
                   ТЗ.СуммаСНДС=Запрос.СуммаСумма;  
                   ТЗ.СуммаНДС=Запрос.СуммаНДССумма;  
               КонецЕсли;
           КонецЕсли;  
           Пока Запрос.Группировка(2) = 1 Цикл  
               Если Стр<>0 Тогда  
                   стр = стр+1;
                   ТЗ.НоваяСтрока(стр);
               Иначе
                   ТЗ.НоваяСтрока();
               КонецЕсли;                ;  
               ТЗ.Подрядчик=Запрос.Контрагент;  
               ТЗ.СуммаСНДС=Запрос.СуммаСумма;  
               ТЗ.СуммаНДС=Запрос.СуммаНДССумма;
               Пока Запрос.Группировка(3) = 1 Цикл  
                   Если Стр<>0 Тогда    
                       стр = стр+1;
                       ТЗ.НоваяСтрока(стр);
                   Иначе
                       ТЗ.НоваяСтрока();
                   КонецЕсли;
                   ТЗ.Подрядчик=Запрос.Контрагент;
                   ТЗ.БВ=Запрос.БанковскаяВыписка;
                   ТЗ.СуммаСНДС=Запрос.СуммаСумма;  
                   ТЗ.СуммаНДС=Запрос.СуммаНДССумма;    
               КонецЦикла;  
           КонецЦикла;
       КонецЕсли;
   КонецЦикла;  
   
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Если ((СокрЛП(ТЗ.Подрядчик)="") и (СокрЛП(ТЗ.БВ)="")) Тогда  
           ИтПрих = ИтПрих + Тз.СуммаСумма;  
           ИтПрихБезНДС = ИтПрихБезНДС + (Тз.СуммаСумма-ТЗ.СуммаНДССумма);
           ИтРасх = ИтРасх + Тз.СуммаСНДС;  
           ИтРасхБезНДС = ИтРасхБезНДС + (Тз.СуммаСНДС-ТЗ.СуммаНДС);
           Таб.ВывестиСекцию("Контрагент");
       ИначеЕсли ((СокрЛП(ТЗ.Подрядчик)<>"") и (СокрЛП(ТЗ.БВ)="")) Тогда
           Таб.ВывестиСекцию("Подрядчик");  
       ИначеЕсли (СокрЛП(ТЗ.БВ)<>"") Тогда
           Таб.ВывестиСекцию("БанковскаяВыписка");
       КонецЕсли;
   КонецЦикла;
   // Вывод заполненной формы  
   Таб.ВывестиСекцию("Итого");
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
КонецПроцедуры;
Перевести с 7-ки на 8-ку кто-то может?

(15) эвон, оно как! надо не ответить на вопрос, а "Перевести с 7-ки на 8-ку..."
да-а... дела...

БанковскаяВыписка это видимо ПоступлениеНаРасчетныйСчет?

(15) 30 рублей строка кода за перевод устроит?

(15)Для решения этой задачи требуется фотка топлесс ,когда выложишь?

(18)+1 )

БанковскаяВыписка это документ в семерке по движению денег, а в 8-ке используеться ПлатежноеПоручениеВходящее и ПлатежноеПоручениеИсходящее.

Explorer1c, выложить, выложу, а где гарантия что правильное решение напишешь? :)

(22) из (0): "С кодом разобралась..."
приведи в пример 8-ный код. задай вопрос, тогда легче будет помогать.

Борюсь с этим куском.
Спр = СоздатьОбъект("Справочник.Контрагенты");
   
   Пока Запрос.Группировка(1) = 1 Цикл
       Пока Запрос.Группировка(2) = 1 Цикл
           Спр.НайтиПонаименованию(СокрЛП(Запрос.Контрагент),0);
           Если Спр.Выбран()=1 Тогда
               Если Спр.КорпССуб = 1 Тогда  
                   ТЗ.НоваяСтрока();
                   ТЗ.Контрагент=Запрос.Контрагент;  
                   ТЗ.Договор=Запрос.Договор;  
                   ТЗ.СуммаСумма=Запрос.СуммаСумма;  
                   ТЗ.СуммаНДССумма=Запрос.СуммаНДССумма;  
               КонецЕсли;    
           КонецЕсли;
       КонецЦикла;  
   КонецЦикла;  
Запросы объединила в один, получила результат.
Застряла на группировке, ругаеться на Запрос.Группировка - это первое. и второе не знаю какой объект указать при спр = новый .....

Кусок 7-ный

читай (2), "Группировка"="Выборка"

Спр.НайтиПонаименованию(СокрЛП(Запрос.Контрагент),0);

убийца !

(27)+100500 ))

(22)если выложишь тут не только я тебе правильный ответ напишу по еще полста прогеров постараются,когда ждать то?

автор, фотку надо было вот такую выкладывать : http://s017.radikal.ru/i414/1112/ec/f7753aad4b4b.jpg

(30)Топлесс будет лучше)

(31) другие приватно обещает

Я вам не мешаю??? смотрю вы так мило общаетесь!!! :)

(0)Скидывай фотку мне на мыло(никому не покажу) и я на всю ночь твой ручной 1с прогер

(33) скорее нет, чем да

Mans, спасибо за ответ

zak555тоже спасибо - Спр.НайтиПонаименованию(СокрЛП(Запрос.Контрагент),0);

(37)Я тоже хочу спасибо и фотку(((

(37) проще написать, что нужно в итоге

(38) будешь в Днепропетровске - получишь и то, и то =)

Explorer1c Так я от тебя только условия а не решения вижу

эх, что фотка животворящая делает! ;)

zak555 Должен получиться отчет за выбранные период с группировкой по контрагентам с номером договора, сумм на начало периода, обслуживающим подрядчиком, документом о движении денежных средств(в данном случае это выписки), и сумм на конец период.

(43) нарисую - проще будет мне объяснить

нарисовать что?

а где ты мою фотку вообща нашел?

себя в образе

(46) мы же тусили в Днепропетровске

всё забыла

Видать хорошо тусили, раз забыла

(49) твоя любимая песня : "вечно молодая, вечно пьяная..."

а фотка=то поддельная

(51) см. в (30)

видимо модель, выложенная в профиле, не позирует топлес, так что долго придется ждать,
да и запрос не к спеху

(53)и топлес есть : http://s017.radikal.ru/i418/1112/73/b5de91a18df1.jpg

(0)Нехорохо обманывать дядей подставными фотками)

Крепкий, сам ты поддельный

Explorer1c, сам ты подставной

(56) http://www.facebook.com/profile.php?id=100001555364683   год выпуска 1991 вызывает сомнения))))

(57)Тогда вышли мне на почту фотку топлес,в трусиках,а в руке тетрадку держи!)

rotting где ты там видишь год выпуска 1991?

(58) а тут 30 апреля 1986 г.

http://vkontakte.ru/id12338210

(60)От спасибо! Пацаны,это действительно ее фотка!

я чё-то не пойму, это 1С ный форум, или как?

(63) мы рады Вас приветствовать!

(60) http://s017.radikal.ru/i436/1112/e1/ea820188fe16.jpg

читай внимательно, год выпуска со школы!

(66) в пять лет со школы выпустилась?

(66) с анкетой на фейсбуке не справилась.....  а тут с 77 на 8)))))))))))))

(0) к (15) это все делается одним запросом.

Зачем тебе запрос к документам?

(65)(61)Кстати,а как вы вышли на фотографии  и анкеты,если не секрет?)

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

Конфигуратор1с, это часть кода, который в 7-ке работал, сейчас я запрос делаю к РН в 8-ке

Explorer1c, а им заняться больше нечем!

(72) да какой те совет, разжевали уж все ... а на фотке держи свежий NewsWeek

(71) у нее аська в профиле написана)))

(71) я давний друг, которого она не помнит
rotting видимо тоже

=)

Лена, Вам бы получше узнать 8-ку. Это надо делать не в выборке, а в запросе

(73) у тебя подход не правильный, версию конфы напиши, напиши какой отчет нужен. 77 и 8 очень разные, и принципы написания отчетов тоже.

(74)Дамочка,вы уже должны стыдливо попискивать в уголке,надеясь на прощение)))) (76)а че через аську нашли чтоли? Чисто спртивный интерес)

Если б я очень хорошо знала б 8-ку, как вы думаете я б на форумах лазила б?

(81) ну мы же лазим)))))

(80) ну там в профиле имя и фамилия, плюс город, что еще надо то?

(82)+19000)))))

лазите, только не понятно для чего. конфа УТП. отчет нужен Анализ Оплат с разбивкой по контрагентам

(85) делай запрос по регистру ВзаиморасчетыСКонтрагентами, учи СКД

(81) неправильный подход, на форумах часто помогают, но при равенстве полов одих обложат ..., а с других фотку потребуют

(83)А,так это ее фотки чтоли?) Анкеты то на не оформлены)

rotting, я результат запроса через ВзаиморасчетыСКонтрагентами получила

(89) запрос покажи, и скан отчета который в 77 работает

(88) ну вроде ее)))  Начинаешь помогать???))

Запрос = новый Запрос;
   Запрос.Текст =
   "ВЫБРАТЬ
                   |    ВзаиморасчетыСКонтрагентами.Контрагент.Наименование КАК Контрагент,
                   |    ВзаиморасчетыСКонтрагентами.ДоговорКонтрагента.Наименование КАК Договор,
                   |    СУММА(ВзаиморасчетыСКонтрагентами.СуммаВзаиморасчетов) КАК Сумма,
                   |    ВзаиморасчетыСКонтрагентами.Период КАК Период
                   |ИЗ
                   |    РегистрНакопления.ВзаиморасчетыСКонтрагентами КАК ВзаиморасчетыСКонтрагентами
                   |ГДЕ
                   |    ВзаиморасчетыСКонтрагентами.Период МЕЖДУ &НачПериода И &КонПериода
                   |
                   |СГРУППИРОВАТЬ ПО
                   |    ВзаиморасчетыСКонтрагентами.Контрагент.Наименование,
                   |    ВзаиморасчетыСКонтрагентами.ДоговорКонтрагента.Наименование,
                   |    ВзаиморасчетыСКонтрагентами.Период
                   |
                   |УПОРЯДОЧИТЬ ПО
                   |    Период,
                   |    Контрагент,
                   |    Договор,
                   |    Сумма
                   |ИТОГИ
                   |    СУММА(Сумма)
                   |ПО
                   |    ОБЩИЕ";
                   
                   
    Результат = Запрос.Выполнить();

где виртуальная таблица ?

отчет могу в эксель выгрузить

(85) оплат чего? в утп если ведется учет взаиморасчетов по заказам или по счетам все и так красиво видно стандартными    отчетами

оплата полученная от Заказчика, и оплата отправленная подрядным организациям

групировка по котрагенту, по полученым от них денег, и в свою очередь сколько оплат провели мы подрядным организациям по этим же договорам

(97) так есть чудненький отчет по взаиморасчетам штатный. и Ваять не надо ничего.

(97) тут вообще делается через заказы покупателям и поставщикам.

100

ещё кипятите ?

заказов нет, деньги полученные за услуги, которые в свою очередь предоставляет субподряд

(102) надо брать не таблицу взаиморасчетов а виртуальную обороты

сейчас как раз пишу запрос с РН ВзаиморасчетыОстаткиИОбороты

(104) тебе только оплаты или сумму задолженности нужна? если сумма задолженности не нужна, тогда таблица остатки и обороты не нужно брать, только обороты

и пора выкладывать уже что там пишешь

вот недолго отсутствовал, а почему 7-шный запрос так сильно разрос?

всю мировую скорбь решили в одну копку "Сформировать" поместить?

Почем разрос?

да запросы то на полтора десятка строк уже 6 часов мусолятся

так это кому минус? чайнику или вам опытным прогерам?

ну стадию обсуждения наличия белья уже прошли, пора на (106) отвечать