Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Хотел быстро снять статистику БД. (число прочтений - 2043 )
trdm
1c++ power user
qt1l developer
1c++ moderator
Отсутствует



Сообщений: 2344
Местоположение: г. Ростов-на-Дону
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Хотел быстро снять статистику БД.
22. Октября 2008 :: 14:34
Печать  
Ну типа количество документов всех видов.
Написал запрос в 1CQA:
Код
Выбрать все
	|SELECT
	|	COUNT(жОбщий.IDDOCDEF) as колво
	|	, жОбщий.IDDOCDEF as докВид
	|FROM
	|	_1SJourn as жОбщий (NOLOCK)
	|GROUP BY жОбщий.IDDOCDEF
 


Теперь сижу и тупо пялюсь на
  

selections.JPG ( 54 KB | Загрузки )
selections.JPG
Наверх
IP записан
 
trdm
1c++ power user
qt1l developer
1c++ moderator
Отсутствует



Сообщений: 2344
Местоположение: г. Ростов-на-Дону
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хотел быстро снять статистику БД.
Ответ #1 - 22. Октября 2008 :: 14:37
Печать  
Помогите, кто чем может Улыбка
  
Наверх
IP записан
 
trdm
1c++ power user
qt1l developer
1c++ moderator
Отсутствует



Сообщений: 2344
Местоположение: г. Ростов-на-Дону
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хотел быстро снять статистику БД.
Ответ #2 - 22. Октября 2008 :: 14:45
Печать  
лана, уже выкрутился.
Код
Выбрать все
//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать()
	вСписИдентов = СоздатьОбъект("СписокЗначений");
	СЦ = 0;
	Для СЦ = 1 По Метаданные.Документ() Цикл
		вИдДокСтр = Метаданные.Документ(СЦ).Идентификатор;
		вИдДок = глМетаДатаВерк.ИДДокумента(вИдДокСтр);
		вСписИдентов.ДобавитьЗначение(вИдДокСтр,вИдДок);
	КонецЦикла;
	вРекордСет = СоздатьОбъект("ODBCRecordset");
	//вРекордСет.УстановитьТекстовыйПараметр("ВыбФирма",ВыбФирма);
	//вРекордСет.УложитьСписокОбъектов(ВыбТовар,"#ВыбТовар");
	ТекстЗапроса = "
	|SELECT
	|	COUNT(жОбщий.IDDOCDEF) as колво
	|	, жОбщий.IDDOCDEF as докВид
	|FROM
	|	_1SJourn as жОбщий (NOLOCK)
	|GROUP BY жОбщий.IDDOCDEF
	|";
	Попытка
		вТаблаЗнач = вРекордСет.ВыполнитьИнструкцию(ТекстЗапроса);
	Исключение
		Сообщить(ОписаниеОшибки()+"[200612011246]");
		Возврат;
	КонецПопытки;
	вТаблаЗнач.НоваяКолонка("Вид","Строка");
	вТаблаЗнач.ВыбратьСтроки();
	вТаблаЗнач.ВыбратьСтроки();
	Пока вТаблаЗнач.ПолучитьСтроку() = 1 Цикл
		вТаблаЗнач.Вид = вСписИдентов.Получить(вТаблаЗнач.докВид);
	КонецЦикла;

	глПросмотрОбъекта(вТаблаЗнач);
КонецПроцедуры
 


Просто хотелось получать виды документов автоматом %) прямо в 1CQA...
  
Наверх
IP записан
 
trad
1c++ power user
1c++ donor
1c++ moderator
Отсутствует



Сообщений: 3051
Местоположение: Киров
Зарегистрирован: 23. Мая 2006
Пол: Мужской
Re: Хотел быстро снять статистику БД.
Ответ #3 - 22. Октября 2008 :: 15:26
Печать  
ты отстал от паровоза Улыбка
жОбщий.IDDOCDEF as [докВид $ВидДокумента]

ps
2.5.0.7+
  

1&&2&&3
Наверх
 
IP записан
 
trdm
1c++ power user
qt1l developer
1c++ moderator
Отсутствует



Сообщений: 2344
Местоположение: г. Ростов-на-Дону
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Хотел быстро снять статистику БД.
Ответ #4 - 22. Октября 2008 :: 20:19
Печать  
trad писал(а) 22. Октября 2008 :: 15:26:
ты отстал от паровоза Улыбка
жОбщий.IDDOCDEF as [докВид $ВидДокумента]

ps
2.5.0.7+

бл..
  
Наверх
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать