Вообщем  выборку надо по подстрочке наименования номенклатуры и с остатками по складу (складам) Регистр остаткиТМЦ с измерениями фирма, номенклатура и склад . База дбф

Первая часть получилась легко:

     Каталог=?(Прав(КаталогИБ(), 1)= "\", Лев(КаталогИБ(), СтрДлина(КаталогИБ())-1), КаталогИБ());
     Сообщить(Каталог);
     СтрокаСоединения="
     |Provider=VFPOLEDB.1;
     |Null = Yes;
     |Exclusive = No;
     |SourceType = DBF;
     |Data Source=" + Каталог + ";
     |Mode=ReadWrite;
     |Extended Properties="""";
     |User ID="""";
     |Password="""";
     |Mask Password=False;
     |Collating Sequence=MACHINE;   
     |DSN=""""";
     БД=СоздатьОбъект("OLEDBData");
     БД.Соединение(СтрокаСоединения);
     
     ОлеДБКоманда = БД.СоздатьКоманду();
     ОлеДБКоманда.Выполнить("EXECSCRIPT('SET ANSI OFF')");
     ОлеДБКоманда.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
     ОлеДБКоманда.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");                  
     ТекстЗапроса ="
     |SELECT
     |Спр.ID as [элемент $Справочник.Номенклатура],Спр.Descr as наименование,Спр.Code as код
     |
     |FROM
     |
     |$Справочник.Номенклатура as Спр
     |                  
     |WHERE
     |    Спр.IsFolder = 2 AND LOWER(Спр.Descr) LIKE '%кронштейна%' ORDER BY Спр.DESCR";   
     Выборка =ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);
     Выборка.ВыбратьСтроку ();


А вот с регистрами очень запрутался.....или виснет или ошибки парсера......... Помогите, о Великие Гуру в детском вопросе...... :'( :'(

Я только только стал заниматься прямыми запросами и 1спп

А можно, о великие написать код.......чтобы прочитать все мануалы надо много времени (этим лучше на выходных занятся) а мне надо быстрее сделать............. Естественно на произвольную дату остатки нужны, как общий случай ТА.......  Или сцилко на пример похожий........

Кстати, при переходе на скл надо только строчку инициализации поменять, я так понял?

     ТекстЗапроса ="
     |SELECT
     |Спр.ID as [элемент $Справочник.Номенклатура],      
     |Спр.Descr as наименование,
     |Спр.Code as код
     |
     |FROM
     |
     |$Справочник.Номенклатура as Спр,               
     |
     |Left Join
     | (SELECT $РегОстатков.Номенклатура as Номенклатура,SUM($РегОстатков.Количество) as ОстатокНаСкладе
     |            FROM
     |                  $РегистрИтоги.ОстаткиТМЦ as РегОстатков
     |            WHERE
     |                  РегОстатков.PERIOD = :ДатаПериодаОстатков~~
     |              GROUP BY
     |$РегОстатков.Номенклатура
     |  ) as ТабОстатков ON ТабОстатков.Номенклатура =Спр.ID
     |WHERE
     |    Спр.IsFolder = 2 AND LOWER(Спр.Descr) LIKE '%кронштейна%' ORDER BY Спр.DESCR
     |";      
     ьДатуТА()));
     Выборка =ОлеДБКоманда.ВыполнитьИнструкцию(ТекстЗапроса);
     Выборка.ВыбратьСтроку ();


FAILED! ICommandText::Execute(): File 'left.dbf' does not exist.

И в Select добавить Цитата:

или еще лучше

ладе) as ОстатокНаСкладе 

если это вызывает затруднения то почитать по SQL, например
http://www.metaprog.uran.biz.ua/secrprog/tran_sql.html

по особеностям FoxPro
http://www.foxclub.ru/rhproject/project/
ввиде chm       http://www.1cpp.ru/forum/YaBB.pl?num=1185783552

Beria писал(а) 10. Февраля 2009 :: 22:48:


http://www.1cpp.ru/forum/YaBB.pl?num=1148038411/25#25 пункт 17
вообщем у меня занимало меньше 5 мин на запрос (а если их много аналогичных то меньше минуты )


P.S. Но это если есть задача просто получить работающий на SQL запрос. Если хочется тонкой оптимизации,
учитывающей специфику сервера SQL, то конечно можно и день на отчет потратить