Часто приходитс перреводить 1с запрос в SQL для различных задач.С небольшими запросами нет проблем, но хочется сразу перевести.
Простейший преобразователь в голове есть, но может уже ктото решал эту проблему или есть соответствие ключевых слов 1С с SQL. Просто нет времени, но хочется и по быстрому.

>> но хочется и по быстрому

Без труда не вынешь ... из штанов.

писать запросы на английском - половину переводить не надо будет

в профайлере смотри. не все конечно, но большая часть.

Если есть уже какието наработки зачем все писать с нуля?
Хо тя бы соответствие ключевых слов

(3) под постгри не попадался?

(2) Так прикольно потом смотреть на такой говонокод :)

(4) типа
ВЫБРАТЬ - SELECT ?

(4) А что это даст?

(8)Английские слова выучит

(7) Да
(3) Что я там потерялся
(8) Напипишу преобразователь сначала разбив текст на термы,
затем заменить их рускоязычные термы на английскиу,
Найти определения таблиц и псевдонимов 1С и заменить их на реальные и поля по псевдонимам, аналогично рекурсивно пройтись по подзапросам. Задача видится не очень сложной, но требующей время которого нет

(2) ну хочется использовать конструктор, который мне очень нравится

Кто ищет тот обрящет ... Таких трансляторов полно ...

(10)
Вы ошибаетесь.
Задача достаточно трудоемкая и не сводится к простому переводу
Нечто аналогичное -
http://www.1cpp.ru/forum/YaBB.pl?num=1285352210

(10) Как насчет виртуальных таблиц? Параметров?

(13) 8.2 достаточно приближены к SQL и допилка их не сложная.
(12) Спасибо за совет уже давно им воспользовался но не нашел

(15) Ну вот к пример ... http://infostart.ru/public/14635/ ...

Это делатся по другому. 1с-вский запрос помещает необходимые данные во временную таблицу.
Запрос SQL выглядит так:

SELECT * FROM #temptable_1c

(15) запросы в 8.х уже достаточны и допиливать их смысла нет
разве что умудриться хинты вставлять

(18) Смысл есть. К примеру в 1с ких запросах нет простейшего ltrim(rtrim())

(19) вот только из-за этих двух функций городить огород?

(18) Я использую для оптимизации с помощью использования всего арсенала T-SQL, для массовых изменений.

+20 сказал бы за cast или convert, а так...

(21) ну, батенька... запросы 1с вообще не предназначены для изменения

EXISTS нету!

(22) иногда из-за их отсутсвия приходится огород покруче городить))

(16)
Собственно разве есть что то еще кроме German ?
(15)>>8.2 достаточно приближены к SQL и допилка их не сложная.

Попробуйте для начала, хотя бы перевести "точки" в запросах
Про вспомогательные временные таблицы и оптимизацию промолчу

(24) ну можно малой кровью заменить
где 1 в (выбрать 1 из ...)
:))

(16) Я его уже давно знаю.Там не совсем то что нужно. Нужно получить запрос с нормальными полями, для его дальнейшего изменения.

(23) Спасибо, но вместо Select всегда можно подсавить Delete или Update
Или Merge при булках

(0)c этой задачей отлично справляется технологический журнал.
Быстро и точно. :)

(26) Использую только пакетные запросы.
Смотри (10)
(30) А хочется без лишних телодвижений.

(31)Т.е. те телодвижения которые ты планируешь совершить в (10) ты лишними не считаешь? :)

(0) http://infostart.ru/public/14692/
SQLPlus
вот посмотри.

(33) Огромнейший респект. Спасибо!!!
Мельком глянул очень понравилось. Там немного допилить добавить псевдонимы полей виртуальные таблицы разбить на подзапросы. Да и поля опционно можно русскими оставлять.

(34) Да не довел я ее до ума - но как то использовать можно.

1С массу информации обрабатывает в своих кишках, всего не увидеть
Если цель - скорость и некоторые бонусы настоящего T-SQL то имеет смысл на нем и писать :)

(35) Да ничего сам потихонечку допилю по необходимости и если нужно тебе скину.
Еще раз большое спасибо за труды!!!

(36) Ну хочется использовать удобный конструктор, понимаемые поля, а затем уже этот текст адаптировать под все возможности T-SQL

Не совсем понял - в SQLPlus виртуальные таблицы реализованы ?

(39) Насколько я понял то нет.
Но можно дописать. например для среза последних
Функция СоздатьТекстСрезПоследних(ИменаГрупСтр,ИменаРесурсовСтр,Регистр)
           
       Если ПустаяСтрока(ИменаГрупСтр) Тогда
               ИменаГруп=Новый Массив
               Иначе
           ИменаГруп=ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(ИменаГрупСтр,",");
       КонецЕсли;
                     
       ИменаРесурсов=ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(ИменаРесурсовСтр,",");
           Массив=Новый Массив;
   Массив.Добавить("РегистрСведений."+Регистр);
  ТЗ = ПолучитьСтруктуруХраненияБазыДанных(Массив,Истина);
   
   СтрТз=Тз.Найти("РегистрСведений."+Регистр,"ИмяТаблицы");
   Поля=ПреобразоватьТзВСтруктуру(СтрТз);
   ИмяПсевдонимаРегистра=Регистр+"СрезПоследних";
           Стр="
   |Select";
   Для каждого Поле из ИменаГруп Цикл
       Стр=Стр+"
   |"+ИмяПсевдонимаРегистра+"."+Поля[Поле]+" as "+Поле+","
КонецЦикла;

Для каждого Поле из ИменаРесурсов Цикл
       Стр=Стр+"
   |"+ИмяПсевдонимаРегистра+"."+Поля[Поле]+" as "+Поле+","
КонецЦикла;

Стр=Лев(Стр,СтрДлина(Стр)-1);
Стр=Стр+"
   |From
   |"+    СтрТз.ИмяТаблицыХранения+" as "+ИмяПсевдонимаРегистра+"
   | Join (Select ";
   
   Для каждого Поле из ИменаГруп Цикл
       Стр=Стр+"
   |"+Поля[Поле]+" as "+Поле+","
  КонецЦикла;

   Стр=Стр+" Max(_PERIOD) as Период
   |From
   |"+    СтрТз.ИмяТаблицыХранения+"
   |where "+Поля.Период+"<=@ТекущаяДата
   |Group By ";
   ЭтоПервый=Истина;
   Для каждого Поле из ИменаГруп Цикл
       Если ЭтоПервый Тогда
           ЭтоПервый=Ложь;
       Стр=Стр+Поля[Поле]
           иначе
       Стр=Стр+","+Поля[Поле]
       КонецЕсли;
   КонецЦикла;
   
   
   Стр=Стр+") as ПоследниеДаты
   |ON ";
   ЭтоПервый=Истина;
   Для каждого Поле из ИменаГруп Цикл
       Если ЭтоПервый Тогда
           ЭтоПервый=Ложь;
           Стр=Стр+"
   |"+Поля[Поле]+" = ПоследниеДаты."+Поле
           Иначе
       Стр=Стр+"
   |and "+Поля[Поле]+" = ПоследниеДаты."+Поле
   КонецЕсли;
КонецЦикла;
Стр=Стр+"
   |and "+ИмяПсевдонимаРегистра+"._PERIOD=ПоследниеДаты.Период;";
   возврат Стр;

       КонецФункции

(35) Я обычно соединяюсь виндовую аутентификацию с сервера
Процедура ПолучитьSqlИмяСервераИБазы(Сервер,Порт,ИмяБазы,SqlServer,SqlBaseName)
Соединитель = Новый COMОбъект("V82.COMConnector");
СоединениеСАгентом = Соединитель.ConnectAgent(Сервер);

Кластеры = СоединениеСАгентом.GetClusters();
Кластер = Кластеры.GetValue(Кластеры.GetLowerBound()); // первый кластер
СоединениеСАгентом.Authenticate(Кластер, "", "");
РабочиеПроцессы = СоединениеСАгентом.GetWorkingProcesses(Кластер);
РабочийПроцесс = РабочиеПроцессы.GetValue(РабочиеПроцессы.GetLowerBound()); // первый рабочий процесс
АдресРабочегоПроцесса =
"tcp://" +
РабочийПроцесс.HostName +
":" +
XMLСтрока(РабочийПроцесс.MainPort);
СоединениеСРабочимПроцессом = Соединитель.ConnectWorkingProcess(АдресРабочегоПроцесса);
СоединениеСРабочимПроцессом.AddAuthentication("ADM","161069275");
ИнформационныеБазы = СоединениеСРабочимПроцессом.GetInfoBases();

Для каждого База из ИнформационныеБазы Цикл
   Если Врег(База.Name)=Врег(ИмяБазы) Тогда
       Сообщить(База.DBServerName);
       Сообщить(База.DBName);
       SqlServer=База.DBServerName;
       SqlBaseName=База.DBName;
   КонецЕсли;
   
КонецЦикла;


   КонецПроцедуры
   Функция ПолучитьТекущийСерверИБазу()
       Перем SqlServer,SqlBaseName;
   //  Сообщить(СтрокаСоединенияИнформационнойБазы());
     Массив=ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрЗаменить(СтрокаСоединенияИнформационнойБазы(),"""",""),";");
     Резулт=Новый Структура;
     Для Каждого стр из Массив Цикл
         Если ЗначениеЗаполнено(Стр) Тогда
       КейВалуе=ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(стр,"=");
       Резулт.Вставить(КейВалуе[0],КейВалуе[1])
       КонецЕсли;
   КонецЦикла;
   
   ПолучитьSqlИмяСервераИБазы(Резулт.Srvr,1540,Резулт.Ref,SqlServer,SqlBaseName);
   Резулт.Srvr=SqlServer;
   Резулт.Ref=SqlBaseName;
   возврат Резулт;
КонецФункции

Функция ВыполнитьКомандуSQL(ТекстЗапроса) Экспорт
   ДанныеСервера=ПолучитьТекущийСерверИБазу();

   
ConnectionString ="DRIVER=SQL Server;
|UID=администратор;
|Network=DBMSSOCN;
|LANGUAGE=русский;
|DATABASE="+ДанныеСервера.Ref+";
|WSID="+ДанныеСервера.Srvr+";
|APP=Microsoft® Windows® Operating System;
|Trusted_Connection=Yes;
|SERVER="+ДанныеСервера.Srvr;

//Сообщить(СтрокаСоединенияИнформационнойБазы());
    Connection = Новый COMОбъект("ADODB.Connection");
   //ADO_Recordset = Новый COMОбъект("ADODB.Recordset");
   //ADO_Command = Новый COMОбъект("ADODB.Command");
    // ADO_Connection.
//    Соединение.ConnectionString = "DSN=" + ДСН + ";UID=" + УИД + ";PWD=" + ПВД;  
   Connection.ConnectionString = ConnectionString;
   Connection.CommandTimeOut=0;
   Connection.ConnectionTimeout = 0;
   Connection. CursorLocation= 3;
   Сообщить(Connection.ConnectionString);
   Connection.Open();

Command = Новый COMОбъект("ADODB.Command");
Command.ActiveConnection=Connection;
Command.CommandType = 1;
Command.CommandTimeout=0;

Command.CommandText=ТекстЗапроса;
//RecordSet = Новый COMОбъект("ADODB.RecordSet");
РекордСет=Command.Execute();

Резулт="";
Пока РекордСет<>неопределено Цикл
   Если РекордСет.Fields.Count>0 Тогда
       Поле=РекордСет.Fields(0);
       Стр=Поле.Name+" "+Поле.Value;
       Если ЗначениеЗаполнено(Резулт) тогда
           Резулт=Резулт+"
           |"+Стр
       иначе
           Резулт=Стр;
       КонецЕсли;
   КонецЕсли;
   РекордСет=РекордСет.NextRecordSet();
КонецЦикла;
Сообщить(Резулт);
Возврат  Резулт
КонецФункции