forum.clarionlife.net

Код: Выделить всё

 IF OLEThread THEN
     SetTarget(,OLEThread);
     StrRef=OLEFeq{'Справочники.СотрудникиОрганизаций()'}
     LOOP
        RetVal = OLEFeq{StrRef&'.Следующий()'}
        IF RetVal=0 THEN BREAK.
        RefQueue.Number   = OLEFeq{StrRef&'.Код'}
        StrRef2 = OleFEQ{'РегистрыСведений.ФИОФизЛиц.Выбрать(,,Новый 
Структура("ФизЛицо",' & OLEFeq{StrRef&'.Физлицо'} &  '))'}
        Loop
          RetVal2 =  OLEFeq{StrRef2&'.Следующий()'}
          If RetVal2 = 0 THEN BREAK.
          RefQueue.Name = OLEFeq{StrRef2&'.Фамилия'}
         .
        ADD(RefQueue)
      .
     SetTarget();
     Display;

 END;

Код: Выделить всё

        ?AnyOLEObject{PROP:Create} = 'V81.Application'         !Let the user pick one
        StrRef=?AnyOLEObject{'Connect("File=D:\flash\sveta\1;Usr=adm;")'}
        QueryRef=?AnyOLEObject{'NewObject("Запрос")'}
        ?AnyOLEObject{QueryRef&'Text'} = 'ВЫБРАТЬ СотрудникиОрганизаций.Код ИЗ Справочник.СотрудникиОрганизаций КАК СотрудникиОрганизаций'
        Res=?AnyOLEObject{QueryRef&'Выполнить().Выгрузить()'}

Код: Выделить всё

StrRef     Cstring(255)
QueryRef   Cstring(255)
ResRef     Cstring(255)
Res        Cstring(255)

Код: Выделить всё

        /// <summary>
        /// Вызвать метод над объектом
        /// </summary>
        /// <param name="refObject">Объект</param>
        /// <param name="methodName">Имя метода</param>
        /// <param name="parameters">Параметры вызова</param>
        /// <returns></returns>
        public object Call(object refObject, string methodName, Object[] parameters)
        {
            return m_Base.GetType().InvokeMember(methodName, BindingFlags.Public | BindingFlags.InvokeMethod | BindingFlags.Static, null, refObject, parameters);
        }

        private object GetQueryResult(string query)
        {
            object oquery = Call("NewObject", new object[] { "Запрос" });

            // Текст запроса
            SetProp(oquery, "Text", query);

            // Выполнить запрос
            return Call(oquery, "Execute");
        }

Код: Выделить всё

        /// <summary>
        /// Выполнить запрос
        /// </summary>
        /// <param name="query">Текст запроса</param>
        /// <param name="colnames"></param>
        public void ExecuteQuery(string query, params string[] colnames)
        {
            // чистим хранилище результатов
            m_QueryResult.Clear();
            m_QueryResult.Columns.Clear();

            // Создаём колонки
            CreateTable(colnames);

            object queryres = GetQueryResult(query);

            if (queryres != null)
            {
                // Результат выполнения выгрузить в таблицу
                object table = Call(queryres, "Выгрузить");

                // Кол-во строк в таблице
                int count = (int)Call(table, "Количество");

                // Перебираем строки таблицы
                for (int i = 0; i < count; i++)
                {
                    var row = Call(table, "Получить", new object[] { i });

                    DataRow trow = m_QueryResult.NewRow();

                    foreach (string colname in colnames)
                    {
                        if (colname.Trim() == "")
                            continue;

                        try
                        {
                            trow[colname] = GetProp(row, colname).ToString().Trim();
                        }
                        catch (Exception exp)
                        {
                            if (exp.InnerException != null)
                                trow[colname] = exp.InnerException.Message;
                            else
                                trow[colname] = exp.Message;
                        }
                    }

                    m_QueryResult.Rows.Add(trow);
                }
            }
        }