Посмотри в учебнике порядок укладки объектов для dbf
http://www.1cpp.ru/forum/YaBB.pl?num=1148874473

Pilokarpios писал(а) 20. Октября 2008 :: 10:50:


Нужно разбавлять Текст условия  симв "РазделительСтрок" через каждые 10 запятых

Этот метод работает отлично

Функция глПолучитьБИОстатокТовара(ДатаОстатков,Склад,Отдел,Номенклатура) Экспорт
     
     Если (глСтатусБИ = 1) и (ДатаОстатков=ТекущаяДата()) Тогда
           
           Запрос = глПодключениеБИ.СоздатьКоманду();
           
           Запрос.УстановитьТекстовыйПараметр("Счет", СчетПоКоду("01.1"));              
           Запрос.УстановитьТекстовыйПараметр("Субконто1", Склад);    
           
           Если ПустоеЗначение(Отдел)=0 Тогда
                 Запрос.УстановитьТекстовыйПараметр("Субконто2", Отдел);
                 ДопТекстЗапроса = "and (Остатки.SC1 = :Субконто2)";
           Иначе
                 ДопТекстЗапроса = "";
           КонецЕсли;  
           
           Запрос.УстановитьТекстовыйПараметр("Субконто3", Номенклатура);
           
           ТекстЗапроса = "
           |SELECT    
           |  Остатки.ACCID as [СчетИд $Счет.основной]
           |, Остатки.SC0 as [Суб1 $Справочник.МестаХранения]  
           |, Остатки.SC1 as [Суб2 $Справочник.Отделы]
           |, Остатки.SC2 as [Суб3 $Справочник.Номенклатура]
           |, Остатки.OBDT1 as [OBDT1 $Число]
           |, Остатки.OBKT1 as [OBKT1 $Число]
           |, Остатки.OBDT2 as [OBDT2 $Число]
           |, Остатки.OBKT2 as [OBKT2 $Число]
           |, Остатки.OBDT3 as [OBDT3 $Число]
           |, Остатки.OBKT3 as [OBKT3 $Число]
           |, Остатки.Date as [Date $Дата]
           |FROM  
           |  1SBKTTL as Остатки    
           |Where
           |  (Остатки.Kind='3') and (Остатки.ACCID = :Счет) and (Остатки.SC0 = :Субконто1) and (Остатки.SC2 = :Субконто3) #";
           
           ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"#",ДопТекстЗапроса);
           
           ТТЗ = СоздатьОбъект("ТаблицаЗначений");
           ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
           ТЗ.Выгрузить(ТТЗ);
           
           //ТТЗ.Свернуть("Суб1,Суб3","OBKT1,OBKT2,OBKT3,OBDT1,OBDT2,OBDT3");
           
           Возврат ("OBKT2")-ТТЗ.Итог("OBKT3");
           
     Иначе
           
           Ит = СоздатьОбъект("БухгалтерскиеИтоги");
           Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения, Склад, 2);
           Если ПустоеЗначение(Отдел)=0 Тогда
                 Ит.ИспользоватьСубконто(ВидыСубконто.Отделы, Отдел, 2);
           КонецЕсли;
           Ит.ИспользоватьСубконто(ВидыСубконто.Номенклатура,Номенклатура, 2);
           Ит.ВыполнитьЗапрос(ДатаОстатков,ДатаОстатков,"01.1",,, 1,, "К");
           Возврат Ит.СКД(3);  
           
     КонецЕсли;  
     
КонецФункции

СпсОтбора = "";
ЗапросБИ.УложитьСписокОбъектов(СписЭМ,СпсОтбора);
ТекстСубконто1 = ТекстСубконто1+"
|  and (Проводки.KTSC0 IN (SELECT Val FROM "+СпсОтбора+"))";
````````````
```отладка:
WHERE
 ((Проводки.ACCDTID = '     3   ') or (Проводки.ACCKTID = '     3   '))
 and (Проводки.DATE BETWEEN {d '2008-09-03'} and {d '2008-09-05'})
 and (Проводки.KTSC0 IN (SELECT Val FROM 6d9ed04f-249d-4ed3-adcd-3579618bed58));

Проястните плиз на ДБФ варианте этот метод работает?

Выход запроса = ноль, движения есть

kiruha писал(а) 20. Октября 2008 :: 13:17:


СписЭМ = СписокЗначений с значениями Субконто1(Справочник.МестаХранения);
KTSC0 = Справочник.МестаХранения;

В прямом запросе (SQLite) не удается сделать фильтр по субконто.

Вот выдержка из запроса:

	|	(
	|	SELECT
	|		bkktl_vt.ACCID as ACCID
	|		,bkktl_vt.KIND as KIND
	|		,acc_vt.ACTIVE as ACTIVE
	|		,CASE WHEN (acc_vt.ACTIVE=1) OR (acc_vt.ACTIVE=3) AND (bkktl_vt.SD>=0) THEN bkktl_vt.SD ELSE 0 END AS СуммаОстатокДт
	|		,CASE WHEN (acc_vt.ACTIVE=2) OR (acc_vt.ACTIVE=3) AND (bkktl_vt.SD<0) THEN -bkktl_vt.SD ELSE 0 END AS СуммаОстатокКт
	|		,CASE WHEN bkktl_vt.VSC0 = :ВидСубконто.Контрагенты THEN bkktl_vt.SC0 ELSE
	|		CASE WHEN bkktl_vt.VSC1 = :ВидСубконто.Контрагенты THEN bkktl_vt.SC1 ELSE
	|		CASE WHEN bkktl_vt.VSC2 = :ВидСубконто.Контрагенты THEN bkktl_vt.SC2 ELSE
	|		CASE WHEN bkktl_vt.VSC3 = :ВидСубконто.Контрагенты THEN bkktl_vt.SC3 ELSE ''
	|		END END END END AS Субконто_Контрагенты
	|		,CASE WHEN bkktl_vt.VSC0 = :ВидСубконто.Контрагенты THEN bkktl_vt.VSC0 ELSE
	|		CASE WHEN bkktl_vt.VSC1 = :ВидСубконто.Контрагенты THEN bkktl_vt.VSC1 ELSE
	|		CASE WHEN bkktl_vt.VSC2 = :ВидСубконто.Контрагенты THEN bkktl_vt.VSC2 ELSE
	|		CASE WHEN bkktl_vt.VSC3 = :ВидСубконто.Контрагенты THEN bkktl_vt.VSC3 ELSE ''
	|		END END END END AS Субконто_Контрагенты_Вид
	|	FROM
	|		__1S_BKTTL as bkktl_vt
	|	INNER JOIN
	|		__1S_ACCS as acc_vt ON (bkktl_vt.ACCID = acc_vt.ID)
	|	WHERE (bkktl_vt.DATE = @Дата)
	|	AND (bkktl_vt.ACCID IN ACCID_vt)
	|	) as qr_vt 

попытка дописать

AND (Субконто_Контрагенты = @ВыбЗначСубконто) 

а потом установить значение из справочника контрагенты приводит к пустой таблице. Я вчера копался копался, понимаю что скорее всего поле SCx хранит значение не как справочник. Но как с помощью SQLite привести значение справочника к значению субконто я даже не в курсе.
Подскажите плиз. (без отбора в том виде как приведено выше все работает путем)