Годится!
Только в документации это есть, если иметь ввиду те *.chm которые уже скомпилированы и выложены.
Без твоих правок, разумеется...

Да, Алексей хорошо доработал статью Acsent-а по работе с ДБФ и журналом расчетом.
Рекомендую

Хорошая статья.
Была бы еще лучше, если из нее сделать две: отделить работу с DBF от SQL. И вообще, как мне кажется, направление DBF пока  остается в роли бедного родственника. Приходится по крупицам собирать информацию из разных источников. К примеру замену механизма "CASE-WhEN-THEN-END" на функцию "ICASE()" смог найти только после поисков на "Itland" и список можно продолжать до посинения.

Согласен, но вроде бы как именно здесь официальный форум 1С++, поэтому именно здесь хочется увидеть максимум информации о 1С++ и о сем, что около.

fez писал(а) 23. Июня 2006 :: 10:44:

Сразу пожелание к статье, увидеть побольше специфичных примеров по работе с драйвером FoxPro.
Увидел ICASE() и сразу заинтересовался... По скулю можно и книгу прочесть, а вот по драйверу инфы раз-два и опчедся...

Цитата:

Этот ресурс еще молодой, все документированные знания остались там. Посему, еще долго будут народ отправлять туда за чтением.
ЗЫ: можно конечно попробовать перенести что-то.

Статья крайне хорошая и дополнения о базе ДБФ очень полезны. Я как раз сейчас оптимизирую одну ДБФ базу и это мне очень пригодилось. Но есть и некоторые неточности:

1) Подключение к базе. Там такой текст:
Цитата:


Для подключения к БД используется OLEDBData, а для выполнения запроса ODBCRecordset. Естественно, это не работает...

Плюс, строка подключения некорректная (хотя и работает). Например, строковые константы указаны неправильно (две кавычки в тексте 1С превращает в одну). Также в строке есть ненужные параметры. Вот про строку подключения из МСДН:

Цитата:


Также есть неточность здесь:

Цитата:


На самом деле в модуле проведения запросы работают. Но есть тонкости: выбирать данные из регистра нужно ДО того, как в модуле проведения будет как-либо произведена запись в регистр. После записи в регистр 1С запрещает блокировать таблицу регистра и Fox не может из нее вытащить данные. Запись в регистр происходит, например, при выполнении ДвижениеПриходВыполнить и ПРИ УДАЛЕНИИ ДВИЖЕНИЙ перед перепроведением документа. Поэтому, чтобы можно было использовать запросы в модуле документа, нужно отключить автоматическое удаление движений в "Конфигураторе". Соответственно, при выборке остатков нужно из них, в определенных случаях, вычитать собственные неудаленные движения документа. После выборки данных из регистра удаляем движения документа самостоятельно и делаем проведение с использованием собранных прямым запросом данных.

Вообще, Fox не может вытащить данные потому, что пытается заблокировать таблицу перед чтением. Если 1С ее занимает, то блокировка не удается. Из-за этого, в частности, прямые запросы не работают, если пытаются вытащить данные из регистра, по которому в текущий момент проводится документ. Меня это сильно разозлило - ведь 1С спокойно формирует отчеты по регистрам в момент проведения документов. Немного поковырял драйвер OLE DB (vfpoledb.dll) и повырезал там вызовы функции LockFile. В результате, теперь прямые запросы работают, даже если в этот момент проводится документ. Вероятно, и запросы к регистру в модуле проведения будут работать после модификации самого регистра. Естественно, такой драйвер нельзя использовать для записи данных в таблицу ДБФ - можно обгадить базу.

Также этот патч решает потенциальную проблему: ведь Fox при выполнении запроса блокирует таблицу. Соответственно, если вдруг кто-то захочет провести документ по регистру, по которому формируется запрос, то его ждет облом. Что при этом будет с 1С - не знаю, но для 1С это явно будет нештатная ситуация. Возможно, такой патч - это аналог скульного NOLOCK'а для ДБФ.

Для выполнения запроса используется переменная Запрос, а не RS. Это вообще то дополнение к статье Acsent'a, причем не обработанное им. Отсюда и некоторые недорозумения в тексте.

Строку подключения я брал из документации, как там написано так и у меня.

А вот насчет блокировок - оч. интересное дополнение. Попробую свой заброшенный класс Регистр доделать с учетом этих исправлений.

Цитата:

А попробуй с такой строкой подключения, плиз (акцент на OLE DB Services=0).

Путь = КаталогИБ();
Рез_oledb = db_oledb.Connect("Provider=VFPOLEDB.1;Deleted=Yes;Data Source=" + Путь + ";Mode=ReadWrite;User ID="";Password="";Mask Password=False;Collating Sequence=RUSSIAN;OLE DB Services=0");
 

Для пополнения ФАК'а ссылка на драйвер FoxPro для OLE DB:
http://download.microsoft.com/download/b/f/b/bfbfa4b8-7f91-4649-8dab-9a647636036...

Файл надо скачать и установить, если при выполнении запросов к ДБФ-базе выдается ошибка "Класс не зарегистрирован".

В описании примера работы с виртуальными таблицами, в запросе
ТекстЗапроса = "
|SELECT
|      Рег.Товар as [Товар $Справочник.Номенклатура],
|      Рег.КоличествоНачальныйОстаток as КоличествоНачОст,
|      Рег.КоличествоПриход as КоличествоПриход,
|      Рег.КоличествоРасход as КоличествоРасход,
|      Рег.КоличествоКонечныйОстаток as КоличествоКонОст,
|      Рег.СуммаНачальныйОстаток as СуммаНачОст,
|      Рег.СуммаПриход as СуммаПриход,
|      Рег.СуммаРасход as СуммаРасход,
|      Рег.СуммаКонечныйОстаток as СуммаКонОст,
|FROM
|      $РегистрОстаткиОбороты.ОстаткиТоваров(:НачДата, :КонДата~,,,
|                               Склад = :ВыбСклад,
|                               (Товар), (Сумма, Количество)) as Рег";
есть ошибки, не надо запятой перед from и не хватает одной запятой при перечислении параметров.

Добавлены запросы с группировкой "Период"
Приведен пример работы с ИндексированнойТаблицей
Сделано несколько косметических изменений.

Вобщем с апгрейтом!

trdm, опять перепечатывай 

А смысл перекомпилировать?
или ты вордовский файл разбираешь в html, подсовываешь его в проект 1С++/Documents.dsp и уже в МС ВС++ компилишь?

Не понял, подробнее скажи, как разбираешь, и что за самопальная?

trdm, так ждать от тебя примеров по ВТ или самому копать?

Так выложил бы свой набор chm сюда или дай линк, где можно посмотреть

Занес последний вариант статьи в доку 1С++ вместо исходной статьи acsent-a
http://www.1cpp.ru/forum/YaBB.pl?num=1173766505/4#4

Цитата:


То же, что и SQL -
факт проведения документа журнала по выбранному регистру
тип  N  длина 1   точность 0  

//.......
|AND Жур.$ФлагРегистра.РезервыТоваров = 1
 

Как правило использовать нецелесообразно, так как являясь дополнительным условием
только замедляет выполнение запроса.

Цитата:


Когда копирую твой "$ФлагРегистра " - то же ругань , видимо у тебя в примере шрифт какой то не тот .
Скопируй из моего сообщения или документации или набей вручную.

Есть ли универсальный отчет по регистру? на прямых запросах?

Здравствуйте, помогите с запросом к другой базе в 1с7.
Делаю следующий запрос:

ТекстЗапроса="
|select
| descr as Наим, SP138 as ПолнНаим,
| $Спр.ТипНоменклатуры as [ТипНоменклатуры $Перечисление.ТипыНоменклатуры]
| from $Справочник.Номенклатура as Спр
|WHERE
|  $Спр.ТипНоменклатуры = $Перечисление.ТипыНоменклатуры.Продукция
|";         

Он мне возвращает данные в колонках Наим, ПолнНаим, ТипНоменклатуры, но почему-то в колонке ТипНоменклатуры ничего нет, если вместо строки
| $Спр.ТипНоменклатуры as [ТипНоменклатуры     $Перечисление.ТипыНоменклатуры]
записать
  $Спр.ТипНоменклатуры as ТипНоменклатуры
то выводит  '    CH   ', а мне нужно вывести 'Продукция', в чем недочет, второй день голову ломаю????

Dmitry The Wing писал(а) 11. Ноября 2010 :: 10:19:


Смысл  понял, но каким образом это можно сделать, можете показать?

Получить параметр...

|, case when $Спр.ТипНоменклатуры = $Перечисление.ТипыНоменклатуры.Продукция then 'Продукция'
|		when $Спр.ТипНоменклатуры = $Перечисление.ТипыНоменклатуры.Товар then 'Товар'
|	 else '' end as ТипНоменклатуры 

Можно в конфе, откуда копируешь, добавить справочник "ОбъектыМетаданных" и туда заполнить всю нужную информацию по внутренним ИД объектов, а затем прямым запросом join-ить этот справочник  по ИД нужных объектов, и из него тащить представление объекта.

   Друзья, может кто из Вас простыми доступными для физика-математика словами (опыт 5 лет в 1с7) объяснить схему построения ПРЯМОГО ЗАПРОСА в ДБФ-базе с помощью 1с++ ?
(что скачать, куда поставить и пр.)
   К примеру есть простенький запрос по долгам поставщикам из Регистра.ПОСТАВЩИКИ (ТиС) - как его "переделать" в ПРЯМОЙ ?

   Запрос таков -

Процедура Сформировать()      
     
     Запрос = СоздатьОбъект("Запрос");
     ТекстЗапроса =
     "//{{ЗАПРОС(Сформировать)
     |Период с ДатаНачала по ДатаКонца;
     |Контрагент = Регистр.Поставщики.Договор.Владелец;
     |Долг = Регистр.Поставщики.СуммаРуб;
     |Док  = Регистр.Поставщики.КредДокумент;
     |Функция КонОст = КонОст(Долг);
     |Группировка Контрагент; 
     |";   

     // Если ошибка в запросе, то выход из процедуры   
     Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
           Сообщить("Ошибка в запросе");
           Возврат;
     КонецЕсли;   
     
     Пока Запрос.Группировка(1)=1 Цикл
        
           Контр = Запрос.КонтрАгент;
           СуммаДолга  = Запрос.КонОст;
           Докум = Запрос.Док;
           
           Сообщить("агент ----- "+Контр);
           Сообщить("долг = "+СуммаДолга);
           Сообщить("документ = "+Докум);
                       
     КонецЦикла;
     
КонецПроцедуры
//************************************************
Буду премного благодарен за добрый совет.
В свою очередь могу быть полезен практически любыми консультациями по математике-физике.
Воскресенский Игорь.
garry366@mail.ru