Имя: Пароль:
1C
1C 7.7
v7: Запрос задваивает данные!
,
0 Janna26
 
09.07.12
16:44
Перем Запрос, ТекстЗапроса, Таб;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |Обрабатывать НеПомеченныеНаУдаление;
   |Фирма = Документ.РасходнаяНакладная.Фирма;
   |Склад = Документ.РасходнаяНакладная.Склад;
   |ДатаДок = Документ.РасходнаяНакладная.ДатаДок;
   |НомерДок = Документ.РасходнаяНакладная.НомерДок;
   |Клиент = Документ.РасходнаяНакладная.Клиент;
   |Группировка Фирма;
   |Группировка Склад;
   |Группировка ДатаДок;
   |Группировка НомерДок;
   |Группировка Клиент;
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;

   // Подготовка к заполнению выходных форм данными запроса
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"
   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   Пока Запрос.Группировка(1) = 1 Цикл
       // Заполнение полей Фирма
   //    Таб.ВывестиСекцию("Фирма");
       Пока Запрос.Группировка(2) = 1 Цикл
           // Заполнение полей Склад
       //    Таб.ВывестиСекцию("Склад");
           Пока Запрос.Группировка(3) = 1 Цикл
               // Заполнение полей ДатаДок
       //        Таб.ВывестиСекцию("ДатаДок");
               Пока Запрос.Группировка(4) = 1 Цикл
                   // Заполнение полей НомерДок
           //        Таб.ВывестиСекцию("НомерДок");
                   Пока Запрос.Группировка(5) = 1 Цикл
                       // Заполнение полей Клиент  
                       Фирма =Запрос.Фирма;
                       ДатаДок = Запрос.ДатаДок;
                       Склад = Запрос.Склад.Наименование;
                       Клиент = Запрос.Клиент.Наименование;
                       Номер = Запрос.НомерДок;
                       Таб.ВывестиСекцию("Фирма");
                   КонецЦикла;
               КонецЦикла;
           КонецЦикла;
       КонецЦикла;
   КонецЦикла;
   // Вывод заполненной формы
   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");

Задваиваются номера документов. помогите пожалуйста переделать запрос.
1 Janna26
 
09.07.12
16:44
Что я не так сделала?
2 andrewks
 
09.07.12
16:44
прочитал заголовок, думал, сенсация
3 Эльниньо
 
09.07.12
16:45
Горизонт завален.
4 dedmoroz777
 
09.07.12
16:45
Фотка - ок!
5 borozavr
 
09.07.12
16:50
Сделай Группировки Фирма, Клиент и Документ и получай Документ.НомерДок,Документ,ДатаДок при обходе запроса
7 sapphire
 
09.07.12
16:59
Группировка ТекущийДокумент не предлагать?
8 sapphire
 
09.07.12
16:59
или Документ :) Точно не помню.
9 Ёпрст
 
09.07.12
17:00
>>|Группировка ДатаДок;
>>>   |Группировка НомерДок

нафига ?
10 sapphire
 
09.07.12
17:00
(0) DOCPRINT.ert
11 viktor_vv
 
09.07.12
17:05
(8)+1.

   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)

   |Период с ВыбНачПериода по ВыбКонПериода;
   |Обрабатывать НеПомеченныеНаУдаление;
   |Фирма = Документ.РасходнаяНакладная.Фирма;
   |Склад = Документ.РасходнаяНакладная.Склад;
   |ДатаДок = Документ.РасходнаяНакладная.ДатаДок;
   |НомерДок = Документ.РасходнаяНакладная.НомерДок;
   |Клиент = Документ.РасходнаяНакладная.Клиент;
   |Группировка Документ;
   |"//}}ЗАПРОС

   ;
   // Если ошибка в запросе, то выход из процедуры

   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;


   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Сформировать");
   // Заполнение полей "Заголовок"

   Таб.ВывестиСекцию("Заголовок");
   Состояние("Заполнение выходной таблицы...");
   Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
   Пока Запрос.Группировка(1) = 1 Цикл

                       Фирма =Запрос.Фирма;
                       ДатаДок = Запрос.ДатаДок;
                       Склад = Запрос.Склад;
                       Клиент = Запрос.Клиент;
                       Номер = Запрос.НомерДок;
                       Таб.ВывестиСекцию("Фирма");
   КонецЦикла;
   // Вывод заполненной формы

   Таб.ТолькоПросмотр(1);
   Таб.Показать("Сформировать", "");
12 Patrio_
O_Muerte
 
09.07.12
17:11
(4)фейк
13 Janna26
 
09.07.12
17:15
(11) Спасибо огромное. Я просто не очень лажу с 7.7 написала что придумала.
14 Janna26
 
09.07.12
17:15
Всем спасибо.
15 Эльниньо
 
09.07.12
17:32
(13) Куда лазишь с 7.7?
16 Lionee
 
09.07.12
17:48
шляпа хороша
17 Эльниньо
 
09.07.12
17:51
(16) Сайдинг тоже ничего.