Насколько я понимаю со своими небольшими познаниями,
Запрос.УстановитьТекстовыйПараметр("ВыбСкл", фрмСклад.Код);
пытается сконвертировать код как ссылку объекта,
2 решения
1) СпрС.Code ='"+ фрмСклад.Код+"" и т.д.
2)on СпрС.id = :ВыбСкл
и Запрос.УстановитьТекстовыйПараметр("ВыбСкл", фрмСклад);

Цитата:

Брехня это. Все прекрасно работает. Например:

     ТекстЗапроса = "
     |Set NoCount ON
     |
     |SELECT
     |      ID
     |FROM
     |      спрНоменклатура
     |WHERE
     |      LTrim(Code) = :Код
     |";
     
     ЗапросСКЛ.УстановитьТекстовыйПараметр("Код", ВыбТовар.Код);
     РедакторТЗ(ЗапросСКЛ.ВыполнитьИнструкцию(ТекстЗапроса));

sadovnikov писал(а) 30. Января 2009 :: 08:01:


Да, работает, если код не текстовый и ли в нем нет пробелов, в общем случае тогда ставь RTRIM(LTrim(Code)) = RTRIM(LTrim(:Код) т.е. на передаваемый параметр тоже (это в общем случае, для конкретного примера можно упростить)

mov68 писал(а) 30. Января 2009 :: 09:11:

Извини, конечно, но зачем бред-то писать??

sadovnikov писал(а) 30. Января 2009 :: 09:24:


Бред, не бред, но навскидку 2 запроса из рабочих баз
ТекстЗапроса ="
                 |SELECT Номенклатура.ID [Авто $Справочник.Номенклатура]
                 |FROM $Справочник.Номенклатура AS Номенклатура
                 |WHERE (Ltrim($Номенклатура.Номер_по_каталогу) = Ltrim(:ВИН))
                 |AND (Номенклатура.ISMARK <> 1)";


ТекстЗапроса = "
| Select
| Z.*
| from SC33  as Z
| where Ltrim(Z.ID) = Ltrim(:ID) ";

Без обработки параметра не работает

sadovnikov писал(а) 30. Января 2009 :: 10:37:


Согласен, не оттуда, я лишь честно привожу рабочие куски кода. На личности переходить не будем

mov68 писал(а) 30. Января 2009 :: 10:39:

Да и не собирался я на личности переходить. Просто:
1. Ltrim(:ВИН) - бред.
2. Ltrim(Z.ID) = Ltrim(:ID) - еще больший бред.
3. Где в запросах NoLock-и?
4. from SC33 - я правильно понял - это кусок кода именно из конфиги? Метапарсер для кого делался?
5. Z.* - что-то мне подсказывает, что вряд ли нужны именно все поля. Хотя, здесь могу быть очень не прав.

mov68 писал(а) 30. Января 2009 :: 12:32:

Прыгай

ЗапросСКЛ                  = СоздатьОбъект("ODBCRecordSet");
РадугаМД_Источник      = СоздатьОбъект("MetaDataWork");

ИмяБазыИсточника = сзБД.ПолучитьЗначение(сзБД.ТекущаяСтрока()) + ".dbo";
РадугаМД_Источник.ПрисоединитьМД(СокрП(ИмяФайла)); //MD-ник другой базы

ВидСправочника      = "НематериальныеАктивы";
стрВсеРеквизиты = ТекстЗапроса_ВсеРеквизитыСправочника(ВидСправочника);

ТекстЗапроса_Select = "
|SELECT
|      " + ТекстЗапроса_СлужебныеКолонкиСправочника(ВидСправочника) + "
|      " + стрВсеРеквизиты + "
|FROM
|      " + ИмяБазыИсточника + ".$Справочник." + ВидСправочника + " (NoLock)
|WHERE
|      IsFolder = 1
|";

ТекстЗапроса_Select = РадугаМД_Источник.ОбрМетаСКЛ(ТекстЗапроса_Select);

ТекстЗапроса = "
|Set NoCount ON
|DECLARE @Количество Int
|
|DELETE FROM $Справочник."+ВидСправочника+"
|
|INSERT INTO $Справочник."+ВидСправочника+"
|(" + ТекстЗапроса_СлужебныеКолонкиСправочника(ВидСправочника) + "
|      " + стрВсеРеквизиты + "
|)
|" + ТекстЗапроса_Select + "
|
|Set @Количество = @@RowCount
|
|SELECT @Количество
|";

Возврат ВыполнитьЗапрос(ТекстЗапроса, ВидСправочника);


mov68 писал(а) 30. Января 2009 :: 12:32:

Неа, не перестает Char(9) он и в Африке Char(9)...

berezdetsky писал(а) 30. Января 2009 :: 13:07:

Согласись, что в свете данной ветки - это не тот случай?

sadovnikov писал(а) 30. Января 2009 :: 13:25:

Согласен. 

Функция ТекстЗапроса_ВсеРеквизитыСправочника(ВидСправочника)
     ТекстЗапроса = "";
     
     МетаСправочник = Метаданные.Справочник(ВидСправочника);
     Для Н = 1 По МетаСправочник.Реквизит() Цикл
           _Реквизит = МетаСправочник.Реквизит(Н);
           Если _Реквизит.Периодический <> 1 Тогда
                 ТекстЗапроса = ТекстЗапроса + ", $Справочник." + ВидСправочника + "." + _Реквизит.Идентификатор;
           КонецЕсли;
     КонецЦикла;
     
     Возврат ТекстЗапроса;
КонецФункции

Функция ТекстЗапроса_СлужебныеКолонкиСправочника(ВидСправочника, ПрефиксКолонок = "")
     Если ПустаяСтрока(ПрефиксКолонок) = 0 Тогда
           ПрефиксКолонок = ПрефиксКолонок + ".";
     КонецЕсли;
     
     МетаСправочник      = Метаданные.Справочник(ВидСправочника);
     ТекстЗапроса      = ПрефиксКолонок + "ID, " + ПрефиксКолонок+ "ISMARK, " + ПрефиксКолонок + "VERSTAMP";
     
     Если МетаСправочник.ДлинаКода > 0 Тогда
           ТекстЗапроса = ТекстЗапроса + ", " + ПрефиксКолонок + "CODE";
     КонецЕсли;
     Если МетаСправочник.ДлинаНаименования > 0 Тогда
           ТекстЗапроса = ТекстЗапроса + ", " + ПрефиксКолонок + "DESCR";
     КонецЕсли;
     Если МетаСправочник.КоличествоУровней > 1 Тогда
           ТекстЗапроса = ТекстЗапроса + ", " + ПрефиксКолонок + "ISFOLDER, " + ПрефиксКолонок + "PARENTID";
     КонецЕсли;
     Если МетаСправочник.Владелец.Выбран() = 1 Тогда
           ТекстЗапроса = ТекстЗапроса + ", " + ПрефиксКолонок + "PARENTEXT";
     КонецЕсли;
     
     Возврат ТекстЗапроса;
КонецФункции