Имя: Пароль:
1C
1C 7.7
v7: выбрать все документы одного типа.
,
0 CalvinKlein
 
18.04.13
20:41
Здравствуйте, коллеги.
Подскажите, как выбрать в 7.7 документы одного типа? Допустим доставь все счета?
1 ДенисЧ
 
18.04.13
20:43
Продам СП. Дорого
2 CalvinKlein
 
18.04.13
20:43
Что такое СП?
3 Lionee
 
18.04.13
20:46
укажу где он дорого.
4 CalvinKlein
 
18.04.13
20:47
5 Эльниньо
 
18.04.13
21:15
документы одного типа - это сильно.
6 CalvinKlein
 
18.04.13
22:16
Ну документы одного вида
7 Эльниньо
 
18.04.13
22:18
СП - ВыбратьДокументы()
8 КапЛей
 
18.04.13
22:20
а в чем сложность СоздатьОбъект и потом выбрать?
9 CalvinKlein
 
18.04.13
22:22
Да я вот и сделал, что-то вроде этого:

Доки.ВыбратьДокументы(Дата1,Дата2);
Пока (Доки.ПолучитьДокумент() = 1) И (Доки.Вид() = "СчетПокупателя") ЦИкл
10 CalvinKlein
 
18.04.13
22:23
первая строчка
Доки = СоздатьОбъект("Документ");
11 КапЛей
 
18.04.13
22:26
(10) ну создай же по нормальному
Доки = СоздатьОбъект("Документ.СчетПокупателя");
Ну а потом выбирай
12 zak555
 
18.04.13
22:27
запросом
13 CalvinKlein
 
18.04.13
22:30
(11) Во, спасибо!)
14 zak555
 
18.04.13
22:31
а что такой клей ?
15 zak555
 
18.04.13
22:31
*кто
16 Эльниньо
 
18.04.13
23:46
На будущее:
СП - дядька нерусский.
Его зовут Кантрл Эф Один.
17 CalvinKlein
 
19.04.13
08:21
))) ок, спасибо!
18 пипец
 
19.04.13
09:16
//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
   Перем Запрос, ТекстЗапроса, Таб;
   //Создание объекта типа Запрос
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(Сформировать)
   |Период с ВыбНачПериода по ВыбКонПериода;
   |Счет = Документ.Счет.ТекущийДокумент;
   |Функция Счётчик = Счётчик();
   |Группировка Счет;
   |"//}}ЗАПРОС
   ;
   // Если ошибка в запросе, то выход из процедуры
   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
       Возврат;
   КонецЕсли;      
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   Запрос.Выгрузить(ТЗ,0,0);
             
   Сч=СоздатьОбъект("Документ.Счет");
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку()>0 Цикл  
       
       Сч.НайтиДокумент(ТЗ.Счет);
       //иделайчохош
       
       
   КонецЦикла;    

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