[quote author=vandalsvq link=1248941896/540#554 date=1271421897]
[quote]1. Вопрос такой - почему в стандарнтых колонках журнала отсутствует колонка время документа. И насколько сложно это реализовать.[/quote]
Время хранится как строка в 36-тиричном формате числа равного количеству секунд с начала дня до времени документа. Т.е. на самом деле реализовать можно, но с заморочками. Для DBF формата БД конечно есть типизация "Время", а вот для SQL ее нет.
Проблема в реализации еще и в том, что поиск наврядли будет возможен. А отбор... хм, отбор конечно можно, но сложно.
[/quote]

В отношении поиска думаю он и не нужен. А вот сама колонка зачастую нужна, особенно когда сравниваешь позиции документов в разных журналах.

А в отношении реализации на SQL можно к примеру сделать функцию и при инициализации класса (ну или как там правильно) проверять ее наличие и создавать в БД:
[code]CREATE FUNCTION Convert36To10  (@Res36 CHAR(9))
RETURNS CHAR(9)
AS BEGIN
DECLARE @Deci INT
DECLARE @j INT
DECLARE @Arr36 CHAR(36)
SELECT @Arr36 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
SELECT @Deci = 0
SELECT @j = 1
while @j <= LEN(LTRIM(RTRIM(@Res36)))begin
     if @j <> 1
SELECT @Deci = @Deci*36
SELECT @Deci = @Deci + CHARINDEX(SUBSTRING(LTRIM(RTRIM(@Res36)), @j,1),@Arr36) -1
SELECT @j = @j+1
end
  RETURN(right('0'+cast(floor(@Deci/36000000.0) as varchar(2)),2)+':'+right('0'+cast(floor((@Deci%36000000)/600000.0) as varchar(2)),2)+':'+right('0'+cast((@Deci%36000000)%600000/10000 as varchar(2)),2))
END[/code]

а затем  для поля задать что-то типа:
[code]//{ ВремяДокумента
     ВложеннаяСтруктура = ПолучитьВложеннуюСтруктуру();
     ВложеннаяСтруктура.Идентификатор = "ВремяДокумента";
     ВложеннаяСтруктура.Синоним = "Время документа";
     ВложеннаяСтруктура.Комментарий = "Время документа";
     ВложеннаяСтруктура.ТипВид = "Время";
     ВложеннаяСтруктура.Тип = "Время";
     ВложеннаяСтруктура.Вид = "";
     ВложеннаяСтруктура.Длина = 0;
     ВложеннаяСтруктура.Точность = 0;
     ВложеннаяСтруктура.Неотрицательный = 1;
     ВложеннаяСтруктура.РазделятьТриады = 0;
     ВложеннаяСтруктура.Сортировка = 1;
     ВложеннаяСтруктура.Отбор = 1;
     ВложеннаяСтруктура.РеквизитДокумента = 0;
     ВложеннаяСтруктура.ТекстЗапроса = ?(ЭтоSQL = 1,"dbo.Convert36To10(SUBSTRING(ТекущийОбъект.DATE_TIME_IDDOC, 9,6))",
     "right('0'+cast(floor(ТекущийОбъект.TIME/36000000.0) as varchar),2)+':'+                                    |right('0'+cast(floor((ТекущийОбъект.TIME%36000000)/600000.0) as varchar),2)+':'+
     |right('0'+cast((ТекущийОбъект.TIME%36000000)%600000/10000 as varchar),2)")+" AS [ВремяДокумента]";
     
     ВложеннаяСтруктура.РеквизитЗапроса = ?(ЭтоSQL = 1,"dbo.Convert36To10(SUBSTRING(ТекущийОбъект.DATE_TIME_IDDOC, 9,6))",
     "right('0'+cast(floor(ТекущийОбъект.TIME/36000000.0) as varchar),2)+':'+
     |right('0'+cast(floor((ТекущийОбъект.TIME%36000000)/600000.0) as varchar),2)+':'+
     |right('0'+cast((ТекущийОбъект.TIME%36000000)%600000/10000 as varchar),2)");
     ВложеннаяСтруктура.ЗаголовокКолонки = "Время документа";
     СтруктураДанных.Добавить(ВложеннаяСтруктура,"ВремяДокумента");
     
     //}[/code]
[quote author=vandalsvq link=1248941896/540#554 date=1271421897]
[quote]2. Подскажите как при открытии журнала сразу ограничить его период (интервал) определенным диапазоном.[/quote]

[code]Отбор = ПоставщикДанных.Данные.Отбор;
ОтборДатаДокумента = Отбор.ДатаДокумента;
ОтборДатаДокумента.ВидСравнения = "Интервал";
ОтборДатаДокумента.ЗначениеС = ДатаНачала;
ОтборДатаДокумента.ЗначениеПо = ДатаОкончания;
ОтборДатаДокумента.Значение = ТекущаяДата();
ОтборДатаДокумента.Использование = 1;
ПоставщикДанных.Обновить();[/code]

Что же касается события ПриПолученииЗапроса, то неподготовленным туда лезть опасно, убьет ;)[/quote]
Спасибо, правда уже практически и сам разобрался. Что касается запросов, то вообще прямым обращением к данным уже давно пользуюсь, а вот с классами пока не связвался - первая попытка разобраться.

[hr]

Да и еще вопрос: Подскажите в какую сторону копать, чтобы в данном случае получить раскаску журнала по определенным условиям. Т.е. что-то типа ПланаРаскраски от FormEx. Как в стандартном журнале делать знаю, а как здесь?

Про функцию я тоже думал, что же касается DBF то я говорил, там можно

ТекущийОбъект.Time as [ВремяДокумента $Время] 

и все.
В принципе сделать то можно, но счас руки точно не дойдут.
А пока можно и так:
1. через ПриПолученииЗапроса откорректировать текст запроса (добавить туда TIME)
2. в ТП добавить колонку Time, данные = "Time"
3. в ПриВыводеСтроки просто делать

ВремяВСекундах = _StrToId(ТекущиеДанные.Time);
// СтрокаВремя = тут преобразование в строку
ОформлениеСтроки.Ячейки.Time.УстановитьТекст(СтрокаВремя); 

Может от того что пустая колонка в запросе?
А вообще ТекущиеДанные - объект 1С++, а не класса

ХЕЛП!
некоторое время форма подьора проработала нормально, но непонятно после чего началось выпадание базы
пишет "подключение занято до получения результатов другого hstmt"
форму не трогал, ничего не добавлял - отработало в таком виде ровно неделю... причем именно работало - это основной инструмент манагеров в магазинах
куда посмотреть? отладчиком прошел, не понятно ничего
происходит при навигации по табличному полю (справочник прайс с остатками), причем если ходить по нему КЛАВИШАМИ
и вниз по группам можно зайти, а при выходе из групы - валится с ошибкой
При этом, если выйти МЫШКОЙ - не валится!
что это может быть, куда смотреть?
пролазил везде, мозг напух...

Код может и не шедевр, но работал....

Процедура КонтейнерТабличноеПолеПриПолученииЗапроса(ТабличноеПоле,Структура)
	ДанныеСправочник = ПоставщикДанных.Данные;

	Структура.Колонки = Структура.Колонки + "
	|	,Остаток.Кво AS ДельтаОбщая
	|	,Остаток1.Кво AS Дельта1
	|	,Остаток2.Кво AS Дельта2
	|	,Остаток3.Кво AS Дельта3
	|	,Остаток4.Кво AS Дельта4
	|";

	Структура.Источник = Структура.Источник + "
	|LEFT JOIN (
	|select Остатки.ТМЦ,sum(Остатки.КвоОстаток)as Кво
	|from
	|(select ТМЦ,Склад,КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Остатки(
	|		,
	|		,(ТМЦ,Склад)
	|		,(Кво)) as Остатки
	|Union ALL
	|select ТМЦ,Склад,(-1)*КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Резерв(
	|		,
	|		,(ТМЦ,Склад)
	|		,(Кво)) as Резерв) AS Остатки
	|where Склад IN (SELECT Val FROM #Склады)
	|group by  Остатки.ТМЦ
	|) as Остаток
	|ON Остаток.ТМЦ = $ТекущийОбъект.ТМЦ
	|
	|LEFT JOIN (
	|select Остатки.ТМЦ,sum(Остатки.КвоОстаток)as Кво
	|from
	|(select ТМЦ,КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Остатки(
	|		,Склад = :Склад1
	|		,(ТМЦ)
	|		,(Кво)) as Остатки
	|Union ALL
	|select ТМЦ,(-1)*КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Резерв(
	|		,Склад = :Склад1
	|		,(ТМЦ)
	|		,(Кво)) as Резерв) AS Остатки
	|group by  Остатки.ТМЦ
	|) AS Остаток1
	|ON Остаток1.ТМЦ = $ТекущийОбъект.ТМЦ
	|
	|LEFT JOIN (
	|select Остатки.ТМЦ,sum(Остатки.КвоОстаток)as Кво
	|from
	|(select ТМЦ,КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Остатки(
	|		,Склад = :Склад2
	|		,(ТМЦ)
	|		,(Кво)) as Остатки
	|Union ALL
	|select ТМЦ,(-1)*КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Резерв(
	|		,Склад = :Склад2
	|		,(ТМЦ)
	|		,(Кво)) as Резерв) AS Остатки
	|group by  Остатки.ТМЦ
	|) AS Остаток2
	|ON Остаток2.ТМЦ = $ТекущийОбъект.ТМЦ
	|
	|LEFT JOIN (
	|select Остатки.ТМЦ,sum(Остатки.КвоОстаток)as Кво
	|from
	|(select ТМЦ,КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Остатки(
	|		,Склад = :Склад3
	|		,(ТМЦ)
	|		,(Кво)) as Остатки
	|Union ALL
	|select ТМЦ,(-1)*КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Резерв(
	|		,Склад = :Склад3
	|		,(ТМЦ)
	|		,(Кво)) as Резерв) AS Остатки
	|group by  Остатки.ТМЦ
	|) AS Остаток3
	|ON Остаток3.ТМЦ = $ТекущийОбъект.ТМЦ
	|
	|LEFT JOIN (
	|select Остатки.ТМЦ,sum(Остатки.КвоОстаток)as Кво
	|from
	|(select ТМЦ,КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Остатки(
	|		,Склад = :Склад4
	|		,(ТМЦ)
	|		,(Кво)) as Остатки
	|Union ALL
	|select ТМЦ,(-1)*КвоОстаток as КвоОстаток
	|from
	|	$РегистрОстатки.Резерв(
	|		,Склад = :Склад4
	|		,(ТМЦ)
	|		,(Кво)) as Резерв) AS Остатки
	|group by  Остатки.ТМЦ
	|) AS Остаток4
	|ON Остаток4.ТМЦ = $ТекущийОбъект.ТМЦ
	|";
КонецПроцедуры 

Anatol писал(а) 19. Апреля 2010 :: 11:04:


Пример дашь чтобы протестить?

vandalsvq писал(а) 20. Апреля 2010 :: 05:00:


вот собственно сама эта обработка.

Как такой вариант запроса?
(я имена колонок малость поменял)

LEFT JOIN (
	select
		ОстаткиРезервы.ТМЦ
		,sum(ОстатокСклад) ОстатокСклад
		,sum(ОстатокСклад1) ОстатокСклад1
		,sum(ОстатокСклад2) ОстатокСклад2
		,sum(ОстатокСклад3) ОстатокСклад3
		,sum(ОстатокСклад4) ОстатокСклад4
	from (
		select
			vt3.ТМЦ
			,case
				when vt3.Склад = :Склад1
				then sum(vt3.КолОстаток)
			end ОстатокСклад1
			,case
				when vt3.Склад = :Склад2
				then sum(vt3.КолОстаток)
			end ОстатокСклад2
			,case
				when vt3.Склад = :Склад3
				then sum(vt3.КолОстаток)
			end ОстатокСклад3
			,case
				when vt3.Склад = :Склад4
				then sum(vt3.КолОстаток)
			end ОстатокСклад4
			,case
				when vt3.Склад NOT IN (:Склад1,:Склад2,:Склад3,:Склад4)
				then sum(vt3.КолОстаток)
			end ОстатокСклад
		from (
			select
				vt1.ТМЦ, vt1.Склад, vt1.КвоОстаток КолОстаток
			from
				$РегистрОстатки.Остатки(
					,(Склад in (select val from #Склады))
					,(Склад,ТМЦ)
					,(Кво)) as vt1
			union all
			select
				vt2.ТМЦ, vt2.Склад, vt2.КвоОстаток
			from
				$РегистрОстатки.Резерв(
					,(Склад in (select val from #Склады))
					,(Склад,ТМЦ)
					,(Кво)) as vt2
			) as vt3
		group by
			vt3.Склад, vt3.ТМЦ
		) as ОстаткиРезервы
	group by
		ОстаткиРезервы.ТМЦ
	) as Остатки
ON $ТекущийОбъект.ТМЦ = Остатки.ТМЦ 

Таблица "#Склады" должна содержать все склады включая Склад1,2,3 и 4 которые ты устанавливал отдельными параметрами.