|   |   | 
| 
 | 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) Сайдинг тоже ничего.     | 
 
 | Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |