при обновлении потерялся реквизит. теперь вот пытаюсь восстановить. с помощью обработки перегрузить из одной базы в другую. запускается обработка запрашивает базу...база вторая грузится и наступает полная тишина.
базы SQL 1с7.7. помогите плиз.
Процедура Сформировать()
    БазаОле=СоздатьОбъект("v77s.application");
    Если БазаОле.Initialize(БазаОле.RMTrade, "","")=0 Тогда
         Сообщить("ниче не вышло");
    КонецЕсли;
    СпрОле=БазаОле.CreateObject("Справочник.ОсновныеСредства");
    Спр=CreateObject("Справочник.ОсновныеСредства");
    Спр.ВыбратьЭлементы();
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
         Если Спр.ЭтоГруппа()=1 Тогда
              Продолжить;
         КонецЕсли;
         Если СпрОле.НайтиПоКоду(Спр.ПолныйКод(),2)=1 Тогда
              Спр.Реквизит=СпрОле.Реквизит;
              Спр.Записать();
         КонецЕсли;
    КонецЦикла;
КонецПроцедуры

А не проще ли в старой выгрузить энтот реквизит, в новой загрузить? Да хотя бы и через текст?

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

(2) не правильно значит выгружала, как, кстати, ты это делала?

Проц Выгрузка()
 ТВыгрузки=СоздатьОбъект("Текст");
 Спр=СоздатьСпр("Спр.ОС");
 Спр.ВыбратьЭл();
 Пока Спр.ПолЭл=1 Цикл
    ТВыгрузки.ДобавитьСтроку(Спр.Реквизит); ну или строка
 КонецЦикла;
 Твыгрузки.Записать(ИмяФайла);


Что-то типа того?

Процедура Выгрузить()
   ДБФ = СоздатьОбъект("XBASE");
   ДБФ.ОткрытьФайл("C:\obmen.dbf");
   ДБФ.КодоваяСтраница(0);
   ДБФ.ДобавитьПоле("CODE","S", 30, 0);
   ДБФ.ДобавитьПоле("KAB","S", 30, 0);
   Спр = СоздатьОбъект("Справочник.ОсновныеСредства");
   Спр.ВыбратьЭлементы();
   ии = 0;
   Пока Спр.ПолучитьЭлемент() = 1 Цикл
       Если ПустоеЗначение(Спр.Кабинет) = 1 Тогда
           Продолжить;
       Иначе
           ии = ии+1;
           ДБФ.Добавить();
           ДБФ.CODE = Спр.Код;
           ДБФ.KAB  = Спр.Кабинет;
           ДБФ.Записать();
           Состояние("Записывается строка - "+ии)
       КонецЕсли;
   КонецЦикла;
   ДБФ.ЗакрытьФайл();
КонецПроцедуры
типа этого

(5) ТипЗначенияСтр(Спр.Кабинет) что возвратит?

(7) я думаю что возвратит значение №кабинета из спр ОС

+(6) код из (5) создаст пустой файлик в случае если кабинеты не заполнены. Может обработка выгрузки была запущена не на той базе?

(7) вопрос на засыпку: а для чего нужна функция ТипЗначенияСтр()?

(8) кабинеты заполнены:( проверяла 100раз.... и обработка запущена на той базе:(

Да ради пары реквизитов чем текст-то плох и не мучаться и недолго

(9)эххх...определяет тип данных.вопрос в другом.

ты по прежнему утверждаешь, что obmen.dbf после выполнения кода (5) оказывается пустым?
(12) тогда ответь на вопрос (6)

(13) файл не пустой....но маленький по размеру 98 байт всего. после нажатия кнопки загрузки ничего не происходит

(14)+13 ничего не загружается

(15) а загружаешь ты его каким кодом? дай позырить

16. а выгрузка правильная?

правильная

18..а чего ж она не выгружает....

(19) во-первых, откуда ты знаешь, что не выгружается, во-вторых, ты мне на вопрос (6) ответишь когда-нибудь?

20.файл слишком маленький.поентому мне так кажется. (6).определит к какому типу данных принадлежит параметр

(21) Что конкретно возвращает в данной выгрузке?

Это я про (6) еси чо)
И все равно говорю вам давно бы уже текстом сделали

(0)Спр.Реквизит=СпрОле.Реквизит;
Это ошибка. Но вот если воспользоваться ТипЗначенияВСтроку - то будет фурычить.
При условии совпадения баз конечно.

(23) я, например, сделал через XML, потому как от паринья текстовых файликов "сильней чем от водки блюю" (с) Шнур

(24) подробнее можно? почему ошибка?

22.реквизит кабинет из справочника ОС

(24) ТипЗначенияВСтроку это где такое растет?

СпрОле.Реквизит - Это неизвестный элемент в твоей базе. ОЛЕ объект.
Но вот если его преобразовать в строку в старой базе, а потом развернуть из строки в новой, то получиться объект новой.

(27) МЛЯ!!! Кабинет - это строка, справочник или число?

(30)кабинет это строка

(25) А я еще маленький и окромя текста ничего не ем?

такс..ну что сделать то? где все таки не верно?

попробую через текст.

но все равно интересно почему происходит затык....

(0) Подскажи, ты реальный код пишешь. У тебя реквизит так и называется - реквизит. Он не периодический?

(36) реквизит называется Кабинет....не переодичский

А делать я скажу чего. Надо идти в ОТЛАДЧИК

у кого-то бардак не-то в метаданных, не-то в голове, не-то и там и сям...

Спр.Реквизит=СпрОле.Реквизит;
Замени на   Спр.Кабинет=СпрОле.Кабинет;
Если конечно этот реквизит - строка.

(40)да..до меня дошло и я только что заменила. результат тот же..нулевой.

41.происходит затык.

разруха - она не в клозетах...

43 нечего сказать лучше промолчи

Тогда на
Спр.Кабинет=СокрЛП(СпрОле.Кабинет);
Немножко надоело. Посмотри сравнение справочников. Сравнивает изменения спрвочников текущей базы с архивной копией.
//*******************************************
Процедура ЗапРекв()
   //НаимСтр = Метаданные.Справочник(ФормСправочник.ТекущаяСтрока()).Идентификатор();
   СпрМД = Метаданные.Справочник(ФормСправочник.ПолучитьЗначение(ФормСправочник.ТекущаяСтрока()));
   РеквСпр.УдалитьВсе();
   Для Инд = 1 По СпрМД.Реквизит() Цикл
       РеквСпр.ДобавитьЗначение(СпрМД.Реквизит(Инд).Идентификатор, СпрМД.Реквизит(Инд).Представление());
       РеквСпр.Пометка(Инд, 1);
   КонецЦикла;
КонецПроцедуры
Процедура ПриОткрытии()
   Для Инд=1 По Метаданные.Справочник() Цикл
       ФормСправочник.ДобавитьЗначение(Метаданные.Справочник(Инд).Идентификатор,Метаданные.Справочник(Инд).Представление());
   КонецЦикла;  
   ФормСправочник.ТекущаяСтрока(1);
   ЗапРекв();
КонецПроцедуры
Функция ВыбратьКаталогОЛЕ()    
   ИмяФайла="1cv7.md";
   Если ФС.ВыбратьФайл(0,ИмяФайла,ВыбПуть,"Выберите базу, из которой будете получать данные","1cv7.md|1cv7.md")=1 Тогда
   КонецЕсли;    
КонецФункции            
Процедура Сформировать()
       Путь=СокрЛП(ВыбПуть);
   Если ФС.Существуетфайл(Путь+"1Cv7.MD") =  0 Тогда    
       Предупреждение("Путь информационной базы не найден!");    
       Возврат;
   КонецЕсли;    
   V7 = СоздатьОбъект("V77.Application");      
   Открыта = V7.Initialize(V7.RMTrade, "/d" + Путь +" /N" +"", "");  
   Если Открыта = 0 Тогда              
       Предупреждение("Ошибка открытия информационной базы");        
       Возврат;        
   КонецЕсли;      
   
   СтарНапечАтр=СоздатьОбъект("СписокЗначений");
   НапечататьАтрибуты=СоздатьОбъект("СписокЗначений");
   СписВыбРекв=СоздатьОбъект("СписокЗначений");  
   СпрМД = Метаданные.Справочник(ФормСправочник.ТекущаяСтрока());
   Таб=СоздатьОбъект("Таблица");
   Таб.ВывестиСекцию("Шапка|Основа");
   Для Сч=1 По РеквСпр.РазмерСписка() Цикл
       Если РеквСпр.Пометка(Сч)=1 Тогда
           СписВыбРекв.ДобавитьЗначение(РеквСпр.ПолучитьЗначение(Сч));  
           Таб.ПрисоединитьСекцию("Шапка|Атрибуты");
       КонецЕсли;
   КонецЦикла;
   ОлеСпр=V7.CreateObject("Справочник."+СпрМД.Идентификатор);
   Спр=СоздатьОбъект("Справочник."+СпрМД.Идентификатор);
   ОлеСпр.ВыбратьЭлементы(0);          
   Ном=0;
   Пока ОлеСпр.ПолучитьЭлемент()=1 Цикл  
       
       ОлеСтрока=V7.ЗначениеВСтрокуВнутр(ОлеСпр.ТекущийЭлемент());
       ТекЭлем=ЗначениеИзСтрокиВнутр(ОлеСтрока);    
       Если ТипЗначенияСтр(ТекЭлем)<>"Справочник" Тогда
           Сообщить("Проблемы с элементом. Код = "+ОлеСпр.Код);
           Сообщить("Наименование = "+ОлеСпр.Наименование);
           Продолжить;
       КонецЕсли;                                    
       Печатать=0;                                  
       ТекЭлем.ИспользоватьДату(ВыбДата);
       ОлеСпр.ИспользоватьДату("'"+ ВыбДата+ "'");
       ПечНаимПрежн=СокрЛП(ОлеСпр.Наименование);
       ПечНаимНов=СокрЛП(ТекЭлем.Наименование);        
       ПечКодПреж=СокрЛП(ОлеСпр.Код);
       ПечКодНов=СокрЛП(ТекЭлем.Код);
       Если ПечНаимПрежн<>ПечНаимНов Тогда
           Печатать=1;            
       КонецЕсли;
       Если ПечКодПреж<>ПечКодНов Тогда      
           Печатать=1;            
       КонецЕсли;        
       НапечататьАтрибуты.УдалитьВсе();  
       СтарНапечАтр.УдалитьВсе();  
       
       Для Сч=1 По СписВыбРекв.РазмерСписка() Цикл  
           НазвАтр=СписВыбРекв.ПолучитьЗначение(Сч);                              
           ТекАтр=ТекЭлем.ПолучитьАтрибут(НазвАтр);  
           //Если ТипЗначенияСтр(ТекАтр)="Строка" Тогда
           //    ТекАтр=СокрЛП(ТекАтр);
           //    ТекАтрИзОле
           //Иначе
               ОлеСтрокаАтр=V7.ЗначениеВСтрокуВнутр(ОлеСпр.ПолучитьАтрибут(НазвАтр));
               ТекАтрИзОле=ЗначениеИзСтрокиВнутр(ОлеСтрокаАтр);    
           //КонецЕсли;
           Если ТекАтр<>ТекАтрИзОле Тогда  
               Печатать=1;            
           КонецЕсли;              
           СтарНапечАтр.ДобавитьЗначение(ТекАтрИзОле);
           НапечататьАтрибуты.ДобавитьЗначение(ТекАтр);
       КонецЦикла;
       Если Печатать=1 Тогда          
           Ном=Ном+1;
           Таб.ВывестиСекцию("Строка|Основа");    
           Для Сч=1 По НапечататьАтрибуты.РазмерСписка() Цикл
               Таб.ПрисоединитьСекцию("Строка|Атрибуты");
           КонецЦикла;
       КонецЕсли;
           
       
   КонецЦикла;
   Таб.Показать("Переделка");
КонецПроцедуры

(44) я уже тебе сказал - посмотри отладчиком, выгружаются ли данные, а потом посмотри, загружаются ли они. Может у тебя в обработках загрузки и выгрузки ошибка. только отладчик тебе поможет

(45) господь спаси...

:)) м-дя...ладно. спасибо всем. я попробую разобраться.

(47) :)
У меня давно универсальный наборчик написан. Весьма полезно.
Этот отчет я продавал уже раз пять. По регистрам - чаще. А уж по проводкам...

(49) базы одинаковые. 100%

но так и не работает

(51) так все-таки проводилась работа в отладчике, или вам неизвестно сие развитие событий?

Если СпрОле.НайтиПоКоду(Спр.ПолныйКод(),2)=1 Тогда
              Спр.Реквизит=СпрОле.Реквизит;
              Спр.Записать();
         КонецЕсли;
Заменить на
СтрокаТек=ЗначениеВСтрокуВнутр(Спр.ТекущийЭлемент());
СпрОле_=БазаОле.ЗначениеИзСтрокиВнутр(СтрокаТек);
ТекРекв=БазаОле.ЗначениеВСтрокуВнутр(СпрОле_.Кабинет);
Спр.Кабинет=ЗначениеИзСтроки(ТекРекв);
Спр.Записать();

(52) :)

(52) нет еще. щас закончу другое дело и посмотрю.спасибо!:))

(0) "тишина" - а ты уверена, что у тебя версия движка 1С не ниже ПРОФ? Стандарт движек 1С:ОЛЕ не поддерживает...

кроме того, в ЖКК вроде написано, что в данном случае с поиском элементов мудрить не надо, а надо использовать:
спрОле.НайтиЭлемент(спр.ТекущийЭлемент())

или кажется мне это?..

(56)не уверена...у меня обчная 1Ска SQL

ТЕКСТ, ТЕКСТ и а не 1,5 часа разбора ошипки если важен результат для одного реквизита - буду настаивать таки на том!!!
Не, ну конешно, если просто сама проблема, как проблема зацепила) То впередъ и с песней....

СтрЗаменить(ПостНомер59, "ТЕКСТ", "XML")

(59) Бредовость текста, как и дбф, так же как и ХМЛ - это отдельный случай.
Для прикола, перекачай что-либо многострочное.
(60) В имени контрагента нажми кнопку Сонтр и например В. Потом перекачай.

(61) я? где?

Если глПользователь="Лёвыч" тогда
  СтрЗаменить(ПостНомер59, "ТЕКСТ", "XML")
ИначеЕсли глПользователь="Вася" тогда
  СтрНичегоНеМенять(ПостНомер59)
Иначе
  Сообщить(Пост61+"Речь-то в конкретике тока об 1 реквизите)")
КонецВсего;

(62) Перекачка ХМЛ, в случае спецсимволов - затыкается. Причем самая большая гнусь в том, что без сообщения об ошибке. ОЛЕ в этом случае получше.

(64) вот проблема - 4 символа в полете заменять на спецпоследовательность...

(64) а, ты вон про чо... ну, так, а некуй фсякую шнягу в справочниках хранить 8)

ого...у вас тут продолжение банкета?:))))

(67)Так каков результат -то

(67) как успехи?

пока никаков. настраиваю ком и сажусь за обработку:)))) продолжайте пока:))))

деловая, однако, колбаса... имхо

(71) не колбаса а сис админ

Заколбасившийся сисадмин.
Но т.к. женского рода, то засисадминенная колбаса.
:)

(73) ну типа того:))

кошмар какой...

(58) Если СКЛ, то ОЛЕ должно замечательно работать всегда..
(57) "Это ему кажется" (с) Мигающая надпись из К/ф "Двенадцать стульев"
...
Единственный минус реальный у ОЛЕ - оно с отладчиком плохо дружит и при отладке могет аварийно падать вся батарея зацепленных по ОЛЕ баз....
Даже медлительность ОЛЕ - не проблема.
(0) А если у тебя СКЛ почему средствами СКЛ не перельёшь? Две минуты делов + точность попадания 256% ибо по ID.

(76) а можно спросить как?

семен семеныч, а про скуль-то я как-то не подумал....
в энтерпрайс манагере есть такой пунктик в контекстном меню "Import\Export" тамоко мастер запускается, довольно понятно все

(78) Можно. Вот адрес
www.forum.mista.ru
Там ветку подними "Как колонку таблицы СКЛ одной базы перенести в таблицу СКЛ другой базы по ID?"
Там народ отзывчивый, кто-нибудь сразу поможет. Ты главное с названием темы не перемудри. И сразу скажи как называется таблица и колонка в ней...

пытаюсь сделать как в (53) результат тот же

+(79) Чес слово самому интересно скока способов одноэснеги знают...

(80) Хочешь, я сам для тебя подниму?

(79) так я ж на мисте сейчас...ниччего не поняла

(79) ого...мы еще и земляки:) круто

(83) НОВУЮ конференцию подними про СКЛ. ВТЕМЕ укажи вопрос...

(83) шутка юмора такая, он имеет в виду, что не хило было бы спросить в отдельной ветке про то, как средствами скуля перелить твою колонку

(85) щас попытаюсь

(80) Мистика. Ничего не понимаю.

(88) вот вот.....я тоже ничего не понимаю.почему оно не работает?:???.. реквизит я сама дописывала. в этом причина не может быть?

чудес не бывает! Ъ!

(90) получается что бывает

(88) Потому что база не хочет. Она СКЛ хочет. Я ясно вижу...

(92) и что делать с ее хотелкой?:)

(93) В обеих базах это строка? В обеих базах размер одинаковый? Может что менялось? Число уровней справочника например?

(94)да,в обеих базах этот реквизит типа Строка.и ничего не менялось. я просто перед обновлением сделала выгрузку,чтобы сохранить данные

(95) Такого не бывает. Запусти отладчик наконец.

(95)упс...длина разная:(

(96) Прочти 76:
"Единственный минус реальный у ОЛЕ - оно с отладчиком плохо дружит и при отладке могет аварийно падать вся батарея зацепленных по ОЛЕ баз...."

(+97) поэтому и не работает?

(99) Нет.

(98) ой,не охота чтобы бызы упали

(100)а что делать?

(99) Да. Воспользуйся СокрЛП

(103) как в 53?

я же уже пользовалась сокрлп....тоже самое

(103) Ты её прекрати чему попало учить, ей только СКЛ помочь должен.

(103) Здесь лекарство разрабатывается:
Как колонку таблицы СКЛ одной базы перенести в таблицу СКЛ другой базы по I

(106) это ниче попало. тихо,дай человеку сказать. ты издеватель:)

(98) Да фурычит с отладчиком. Рассинхронизация дейсвительно может произойти.
(105) Да воспользуйся отладчиком!

(107) не надо лекарство мне такое.

+109 Но рассинхронизация не критична. Ну закроешь отладчик и все.

ладно. открою отладчик

(109) Куда рас зайти могет?

(106) Как-то по памяти по телефону объяснял человеку, что нужно в конфигурации поправить. Продавцу. Ничего. Даже заработало.

(114) Везунок...

застряла где-то..на создании справочника Оле

Замени
...
    Если БазаОле.Initialize(БазаОле.RMTrade, "","")=0 Тогда
         Сообщить("ниче не вышло");
    КонецЕсли;
...
   Открыта=База.Initialize(База.RMTrade,,"NO_SPLASH_SHOW");
   
   Попытка
       Если ПустоеЗначение(База.Метаданные) = 1 Тогда
           Предупреждение("Ошибка открытия информационной базы!");
           Возврат;
       КонецЕсли;
   Исключение
       База="";
       Возврат;
   КонецПопытки;

...
    Если БазаОле.Initialize(БазаОле.RMTrade, "","")=0 Тогда
         Сообщить("ниче не вышло");
    КонецЕсли;
...
   Открыта=БазаОле.Initialize(БазаОле.RMTrade,,"NO_SPLASH_SHOW");
   
   Попытка
       Если ПустоеЗначение(База.Метаданные) = 1 Тогда
           Предупреждение("Ошибка открытия информационной базы!");
           Возврат;
       КонецЕсли;
   Исключение
       База="";
       Возврат;
   КонецПопытки;

Вот. Так :
...
    Если БазаОле.Initialize(БазаОле.RMTrade, "","")=0 Тогда
         Сообщить("ниче не вышло");
    КонецЕсли;
...
   Открыта=БазаОле.Initialize(БазаОле.RMTrade,,"NO_SPLASH_SHOW");
   
   Попытка
       Если ПустоеЗначение(БазаОле.Метаданные) = 1 Тогда
           Предупреждение("Ошибка открытия информационной базы!");
           Возврат;
       КонецЕсли;
   Исключение
       БазаОле="";
       Предупреждение("Ошибка открытия информационной базы!");
       Возврат;
   КонецПопытки;

(116) А зачем ты его создаешь?

(120) Без CreateObject можешь?

(116) Чего молчишь, у тебя 119 проходит? или ругается?

(121) Так я написал, как. Там ненужно.

+123
Процедура Сформировать()
    БазаОле=СоздатьОбъект("v77s.application");
    Если БазаОле.Initialize(БазаОле.RMTrade, "","")=0 Тогда
         Сообщить("ниче не вышло");
    КонецЕсли;
    Спр=СоздатьОбъект("Справочник.ОсновныеСредства");
    Спр.ВыбратьЭлементы();
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
         Если Спр.ЭтоГруппа()=1 Тогда
              Продолжить;
       КонецЕсли;        
       СтрокаТек=ЗначениеВСтрокуВнутр(Спр.ТекущийЭлемент());
       СпрОле_=БазаОле.ЗначениеИзСтрокиВнутр(СтрокаТек);
       ТекРекв=СокрЛП(СпрОле_.Кабинет);
       Спр.Кабинет=ТекРекв;  
       Попытка
           Спр.Записать();    
       Исключение
       КонецПопытки;
   КонецЦикла;
КонецПроцедуры

(124) Так ты из приемника хочешь тянуть? ОЛЕ - источник данных?
ТекРекв=СокрЛП(СпрОле_.Кабинет); может не сработать для элемента, отсутствующего в "старом" источнике...

+(125) "NO_SPLASH_SHOW" надо ...

(125) Базы идентичны. По словам. Я только переделал то, что было в сабже написано.
(126) Согласен. Но в принципе должно работать.

Пипец... Данные между скульными базами через 1С-овскую олю тягают...