Процедура Сформировать()
   
       
   База = СоздатьОбъект("OLEDBData");
   Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;User ID="+"kirill"+";Password="+"1"+";Collating Sequence=MACHINE";
   Рез = База.Соединение(Соединение);
   Запрос = База.СоздатьКоманду();
   
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   ТЗ.ВставитьКолонку("Объект");
   ТЗ.ВставитьКолонку("Структура");
   //СпЗнРеквизиты = СоздатьОбъект("СписокЗначений");
   Для к=1 По Метаданные.Справочник() Цикл
       Метафитамин = Метаданные.Справочник(к).Идентификатор;
       ТЗ.НоваяСтрока();
       ТЗ.Объект = Метафитамин;
       //реквики
       СпЗнРеквизиты = СоздатьОбъект("СписокЗначений");
       Для ы=1 По Метаданные.Справочник(к).Реквизит()  Цикл
           СпЗнРеквизиты.ДобавитьЗначение(Метаданные.Справочник(к).Реквизит(ы).Идентификатор,);
       КонецЦикла;
       
       ТЗ.Структура= СпЗнРеквизиты.ВСтрокуСРазделителями();
   КонецЦикла;
   
   
       Если Рез = 1 Тогда
           
           Тз.ВыбратьСтроки();
           Пока Тз.ПолучитьСтроку() = 1 Цикл
           ТекстЗапроса = "
               |SELECT
               |      Спр.Code as Код,
               |      Спр.Descr as Наименование";
               СпЗнРеквизиты = СоздатьОбъект("СписокЗначений");
               СпЗнТекреквизиты =СпЗнРеквизиты.ИзСтрокиСРазделителями(ТЗ.Структура);
               Для у=1 По СпЗнТекреквизиты.РазмерСписка() Цикл
                   ТекРекв = СпЗнТекреквизиты.Получить(у);
                   ТекстЗапроса = ТекстЗапроса+ "|"+ТекРекв;
               КонецЦикла;
               ТекстЗапроса = ТекстЗапроса + "|FROM +$Справочник."+ТЗ.Объект+" as Спр";
               ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
   
           
           //бла бла
       КонецЦикла;    
           КонецЕсли;
   
   
КонецПроцедуры

 ЗагрузитьВнешнююКомпоненту("1cpp.dll");

ладно. есть спр. есть реквизит с типом строка и неогр длинной. как его связать с таблице 1SBLOB? по какому полю ?  хотя туплю тупо реквизит=FIELDID  ? угадал ?

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

какую именно ?

1sqlite сам строит такую связь ? да ?

(98)по таблице 1SBLOB и строкам неограниченной длины

(99)не знаю, не пользовался

(96) проще в начале собрать все длинные строки в отдельныю временную тз в другом запросе.. потом соединение с ним.
Или в самом подзапросе.

(97) я просто не могу понять. если это ссылка на объект. то объект хранится в другой таблице. но тут же не ссылка... это все 8 виновата :(.

(102) тупо читать таблицу. и потом искать по ее представлению в нужном объекте ?

и это , как правило, там достаточно 2-х соединений для  BLOCKNO и ..BLOCKN1
врят ли будет больше блоков для 1 реквизита

введешь умную фразу в поиск. сразу кубань. а там болит.

(105) а можно с простого примера. честно не догоняю. а тем более прочитав

BLOCKNO – номер блока. Нумеруются с нуля. Тип – Numeric(4,0).
BLOCK – сам блок для хранения информации. В нулевом блоке первые 9 байт – длина строки в 16-ричной системе счисления. Тип – Char(80).
Оста

я хочу понять почему именно так. тупо копи паст не катит. по этому дотошный

(107)
BLOCKNO  - там номера блоков.. с 0 до...N

и откуда мне знать что в блоке н мое значение реквизита

http://www.1cpp.ru/forum/YaBB.pl?num=1233261817/6#6

как пример

а почему 4 ?

с чем его связывать. если как для дебила который на 8 кодит. есть ссылка или указатель. не понял по примеру :(

(114) че ?
обжид - это ид твоего справочника.. всё собственно, филдид - это идвида+реквизита в одном флаконе

а пример ? BLOCKNO  длина 4. а ид спр больше

(116) да блин..BLOCKNO   - в нём просто номера блоков, блок = 80 байт, если длина реквизита (его значения) 200 байт, то будет 3 блока

открой же наконец саму табличку, да погляди глазками на неё..

и посмотри, если найдешь BLOCKNO = 2.. то это просто нечто запихали в реквизит, как правило, там max(BLOCKNO)=1

есть от 0 до 4

(120)ну, значит 4 лефт джоина в тексте запроса..

вопрос не в тему а че уже 4 ? по ссылка находил и без цифры ? :)

(122) банан ?

и все таки дай пример. я так не могу :(. не догоняю. может это то что не спал. ночь искал решение. или просто не значение или нехватка их

я обжек 4 символа. реквизит на него ссылается или спр где этот реквизит .?

(122) тебе нужно сделать столько левых соединений, сколько макс блобно, чтоб точно гарантировать, что все куски склеятся..
но если фильтранешь по конкретному виду, врят ли там будет >1

(12) это про ник :) а не про тему :)

vjz ndjz ytgjybvfn

можешь не переводить :)

(126) чем фильтровать ? блок текст. обжек там 4 символа. но к чему они ?  если я получаю реквизит то там этот обжек ?

я не могу понять соединение таблиц
где ключ между таблицами.

главное за руль не сесть....

objid = id элемента справочника

в эту таблицу когда поминаются элементы ? все строковые. или только ... ?

в ней хранятся строки неограниченной длины. от всех реквизитов справочников с таким типом

обж ид - это указатель на элемент справочника, филдид - указатель на "название" реквизита в справочнике, блок - само значение, блокно - номера блоков.
Че там может быть еще непонятного ?

если длина значения не влазиет в поле блок (=80 байтам), создается еще 1 строка в табличке, только у неё блокно=1, если опять на влазиет.. еще строка с блокно=2 и т.д..

Строка разбивается на блоки кратные 80 байтам..
фирштейн ?

(137)какой ты терпеливый

(137) тобишь objid разбита на н количество ? так ? но почему указание ссылки в 4 знака. или тупо Элемент.Ссылка = Хлам.objid

(139)
>>>почему указание ссылки в 4 знака

в каком месте ?!

Епрст ты это понимаешь и знаешь. а я только понимаю или пытаюсь.

нех ?

FIELDID - ID реквизита
objid - ID элемента справочника

тормоз я .

я открыл таблицу и смотрю на значение objic и там 4 символа.

FIELDID можно только в таблице BLOB глазками посмотреть. Хотя могу и ошибаться, но по-другому я не нашел как.

в том коде, что kiruha приводит - там просто запрос для попадания в индекс MAIN = FIELDID+OBJID+STR(BLOCKNO,4)

(145)ну и что, остальное пробелами добивается

(142) догадливый

+(148)размер поля то все равно 9 остается

I hate theory, give those practices

отдохните. я пока за бухлом. без него тут не как :_)

батарейка рубит

Ты это, прочитай сперва, из чего состоит id = 9 символов, 13 и 23..
всё тогда встанет на свои места, ссылки все есть выше.

objid это уникальный идентификатор элемента, а FIELDID указатель на реквизит этого элемента  ? так ?

ща поднастроем прием и передачу. и будет все ок

просто вы знаете больше и понимаете маштабней. а я как падаван. учусь

я только вчера осознал что можно 1с7 дбф юзать так. чуствую себя нубом (

(155) так

это, для простейших запросов, типа (0) пиши на 1sqlite - там всё достается проще, строки неогр длины будет как "обычный" реквизит справочника.

в тексте запроса

(160) не. тут добьем. построим универсальную функцию. а потом на 1sqlite

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

(163) это всё уже есть в классе ПрямойЗапрос

нес 1с. что бы для 7 и 8

(164) что именно ? ссылка есть ?

меня интересует возможность использование в обмене по определенной структуре. выгрузка, загрузка. даже использование классов пока только на 7. а то гемора с ними.....

не КД. не нравится механизм обновление обработки, замена модуля. лучше длл. а протокол в хмл

не пойму прикола.
делаю так и поучаю максимум 120 символов
а как увидит неогр
   //реквики
       СпЗнРеквизиты = СоздатьОбъект("СписокЗначений");
       Для ы=1 По Метаданные.Справочник(к).Реквизит()  Цикл
           СпЗнРеквизиты.ДобавитьЗначение(Метаданные.Справочник(к).Реквизит(ы).Идентификатор,Метаданные.Справочник(к).Реквизит(ы).Длина);
           Сообщить(Метаданные.Справочник(к).Реквизит(ы).Длина);
       КонецЦикла;
       
       ТЗ.Структура= СпЗнРеквизиты.ВСтрокуСРазделителями();
   КонецЦикла;
   
   
   Если Рез = 1 Тогда
       
       Тз.ВыбратьСтроки();
       Пока Тз.ПолучитьСтроку() = 1 Цикл
           ТекстЗапроса = "
           |SELECT
           |      Спр.Code as Код,
           |      Спр.Descr as Наименование,";
           СпЗнТекреквизиты = СоздатьОбъект("СписокЗначений");
           СпЗнТекреквизиты.ИзСтрокиСРазделителями(ТЗ.Структура);
           л1 = 0;
           Для у=1 По СпЗнТекреквизиты.РазмерСписка() Цикл
               Стр = "";
               ТекРекв = СпЗнТекреквизиты.ПолучитьЗначение(у,Стр);
                   ТекстЗапроса = ТекстЗапроса+ РазделительСтрок+"      $Спр."+ТекРекв+" as "+" "+ТекРекв+",";
           КонецЦикла;
           ТекстЗапроса = Лев(ТекстЗапроса,СтрДлина(ТекстЗапроса)-1);
           ТекстЗапроса = ТекстЗапроса + РазделительСтрок+"FROM $Справочник."+ТЗ.Объект+" as Спр";
           ТЗ2 = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
           
           ТЗ2.ВыбратьСтроки();
           Пока ТЗ2.ПолучитьСтроку() = 1 Цикл
               //    ТЗ2
               //    
           КонецЦикла;

>>>а как увидит неогр

Длина=0

?????????

ха
?????????. а почему нельзя ввести такой текст !!!!!! это имеет для меня большое значение

(0) и что это за, пардон, вынимание инфы через гланды?

плохой мастер был. все так и учил.

(171) че ?

(172) только 1 но. а чего нельзя эту кодировку ?

(176) копируй в русской расскладке и вставляй в русской расскладке клавиатуры.

не
http://translate.google.com.ua/#ja/ru/%E3%83%9E%E3%82%B9%E3%82%BF%E3%83%BC%E3%81%82%E3%82%8A%E3%81%8C%E3%81%A8%E3%81%86

(178) конечно нет, 1с её не поддерживает
можно конечно извратится, на форме в активиксе отображать, на инфостарте есть примеры.

и снова я тут. делаю так
SELECT
     Спр.Code as Код,
     Спр.Descr as Наименование,
     $Спр.Запись as  Запись,
     $Спр.Периодичность as  Периодичность,
     $Спр.__Дата as  __Дата,
     $Спр.Время as  Время,
     $Спр.__ДатаПоказа as  __ДатаПоказа,
     $Спр.Повторить as  Повторить,
     $Спр.ВремяПовтора as  ВремяПовтора,
     $Спр.Автор as  Автор
ДС.BLOCKNO,
ДС.Block,
ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16) as N,
SUBSTR(ДС.BLOCK,10, ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16)) as Full
FROM $Справочник.Блокнот as Спр
right join 1SBLOB as ДС ON ДС.ObjID=Спр.ID
ТЗ2 = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
{C:\USERS\KIRILL\DESKTOP\ПРЯМЫЕ ЗАПРОСЫ.ERT(78)}: FAILED! ICommandText::Execute(): Command contains unrecognized phrase/keyword.

создал файл ConvSyst10.prg с текстом функции
таким.
нашел вот тут http://www.1cpp.ru/forum/YaBB.pl?num=1160022579/3
FUNCTION ConvSyst10(num AS String, syst AS Integer)
   i=0
   c=0
   num=UPPER(num)
DO WHILE !EMPTY(num)
   c=ASC(LEFT(num,1))
   i=IIF(c>57,c-55,c-48) * syst ** (len(num)-1)+i
   num=RIGHT(num,LEN(num)-1)
ENDDO
RETURN i
ENDFUNC

SELECT
    Спр.Code as Код,
    Спр.Descr as Наименование,
     $Спр.Запись as  Запись,
     $Спр.Периодичность as  Периодичность,
     $Спр.__Дата as  __Дата,
     $Спр.Время as  Время,
     $Спр.__ДатаПоказа as  __ДатаПоказа,
     $Спр.Повторить as  Повторить,
     $Спр.ВремяПовтора as  ВремяПовтора,
     $Спр.Автор as  Автор,
ДС.BLOCKNO,
ДС.Block,
ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16) as N,
SUBSTR(ДС.BLOCK,10, ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16)) as Full
FROM $Справочник.Блокнот as Спр
left join 1SBLOB as ДС ON ДС.ObjID=Спр.ID

получим по 5 записей. что бы получить ссылку нужно ее всегда типизировать ?

что за прикол. смотрю спр. а там группы и пустые неограниченные строки :)

(182) А ты молодец. Уже и до функций дошел, упертый
Зато победишь этот долбаный файл

SELECT
     Спр.Code as Код,
     Спр.Descr as Наименование,
     $Спр.Периодичность as  Периодичность,
     $Спр.__Дата as  __Дата,
     $Спр.Время as  Время,
     $Спр.__ДатаПоказа as  __ДатаПоказа,
     $Спр.Повторить as  Повторить,
     $Спр.ВремяПовтора as  ВремяПовтора,
     $Спр.Автор as  [Автор$Спр.Пользователи],
ДС.BLOCKNO,
ДС.Block,
ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16) as N,
SUBSTR(ДС.BLOCK,10, ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16)) as Full
FROM $Справочник.Блокнот as Спр
INNER join 1SBLOB as ДС ON ДС.ObjID=Спр.ID

Тут я получаю внутреннею связь с таблицей хлама. надо наоборот ? тогда я получу соединение по спр ?

про втыкал совет :)
LEFT join 1SBLOB as ?? ON ???.ID=??.FIELDID+??.ObjID+Str(??.BLOCKNO)";

SELECT
     Спр.Code as Код,
     Спр.Descr as Наименование,
     $Спр.Адрес as  Адрес,
     $Спр.ЕГРПОУ as  ЕГРПОУ,
     $Спр.Примечание as  Примечание,
ДС.BLOCKNO,
ДС.Block,
ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16) as N,
SUBSTR(ДС.BLOCK,10, ConvSyst10(TRIM(LEFT(ДС.BLOCK,9)),16)) as Full
FROM $Справочник.Банки as Спр
inner join 1SBLOB as ДС ON ДС.FIELDID+ДС.ObjID+Str(ДС.BLOCKNO)=Спр.ID
ТЗ2.Загрузить(Запрос.ВыполнитьИнструкцию(ТекстЗапроса));
{C:\USERS\KIRILL\DESKTOP\ПРЯМЫЕ ЗАПРОСЫ.ERT(61)}: FAILED! ICommandText::Execute(): Cannot open file d:\базы\автомир_20120905(1)\sc112.dbf.

а теперь что не так :(

ап

как узнать объект с 1SBLOB

http://www.1cpp.ru/forum/YaBB.pl?num=1233261817/6#6

(187) ТЗ2.Загрузить //вот так никогда не пиши

(191) построчно добавлять значения ?

а вот эту конструкцию можно сразу получить в прямом запросе или нужно только отдельно ?
глМД = СоздатьОбъект("MetaDataWork");
ИДЮрАдрес = Прав(_IDToStr(глМД.ИДРеквизитаСправочника("ЮрЛица","ЮрАдрес")),4);

(192) нет. Использоватьметод Выгрузить или Заполнить

(193) создать временную табличку соответствий - проще всего