Какой тип данных у:

МестоХраненияВЭксплуатации и МестоХранения ?

Справочник МестХранения

Еще. Вы писали "нет пустых вообще, все заполнено". В то же время в обработке "Если ПустоеЗначение(Док.МестоХраненияВЭксплуатации) = 0".
Может есть таки пустые и документы не обрабатываются?
Если пустых нет то зачем условие? Уберите его.
Если есть условие для МестоХраненияВЭксплуатации, то почему нет для МестоХранения?

Может как-то так еще попробовать

Док.УстановитьАтрибут("МестоХранения", СтарМестоХраненияВЭксплуатации); 
Док.УстановитьАтрибут("МестоХраненияВЭксплуатации", СтарМестоХранения);

Тоже склоняюсь к тому что есть пустые значение.Иначе условие это вообще не надо

Попробуйте так (и сообщите результат):

Процедура Выполнить()
    Док=СоздатьОбъект("Документ");
    Док.ВыбратьДокументы(НачДата,КонДата);
    Пока Док.ПолучитьДокумент()=1 Цикл
        Если (Док.Вид() = "ВводВЭксплуатацию") Тогда
            Состояние("Обрабатываю документ "+Док.ТекущийДокумент());
          Попытка
            Док.ВыбратьСтроки();
            Пока Док.ПолучитьСтроку() = 1 Цикл              
                Если ПустоеЗначение(Док.МестоХраненияВЭксплуатации) = 0 Тогда    
                    СтарМестоХранения = Док.МестоХранения;
                    СтарМестоХраненияВЭксплуатации = Док.МестоХраненияВЭксплуатации;
                    Док.МестоХранения=СтарМестоХраненияВЭксплуатации; 
                    Док.МестоХраненияВЭксплуатации=СтарМестоХранения;  

                КонецЕсли;
                ГлПользователь=Док.Автор;
            КонецЦикла; 
            Док.Записать();
          исключение
           Сообщить("Ошибка в документе: "+СокрЛП(Док.Вид())+" №"+Док.НомерДок+" от "+Док.ДатаДок);
           Сообщить(ОписаниеОшибки());
          КонецПопытки;
        КонецЕсли;
    КонецЦикла;
    Предупреждение("Обработка завершена!");  
КонецПроцедуры

Будет интересовать содержание окна сообщений.

Можно даже принтскин выставить.

А для чего кстати пускать цикл по всем документам, если вы заведомо знаете, что вам нужен Документ.ВводВЭксплуатацию ?

Сообщение отредактировал Flexy - 07.10.11, 10:03

Процедура Выполнить()
    Док=СоздатьОбъект("Документ");
    Док.ВыбратьДокументы(НачДата,КонДата);
    Пока Док.ПолучитьДокумент()=1 Цикл
        Если (Док.Вид() = "ВводВЭксплуатацию") Тогда
            Сообщить("Обрабатываю документ "+Док.ТекущийДокумент());
            Док.ВыбратьСтроки();
            Пока Док.ПолучитьСтроку() = 1 Цикл              
                СтарМестоХранения = Док.МестоХранения;
                СтарМестоХраненияВЭксплуатации = Док.МестоХраненияВЭксплуатации;
                Док.УстановитьАтрибут("МестоХранения", СтарМестоХраненияВЭксплуатации); 
                Док.УстановитьАтрибут("МестоХраненияВЭксплуатации", СтарМестоХранения);
                ГлПользователь=Док.Автор;
            КонецЦикла; 
            Док.Записать();
        КонецЕсли;
    КонецЦикла;
    Предупреждение("Обработка завершена!");  
КонецПроцедуры

По прежнему некоторые не меняются

Ну вы можете приблизительно отследить тенденцию тех некоторых что меняются и тех некоторых что не меняются.Может разница в датах или в проведен/не проведен или пометка удаления, или еще что и т.д.?

GreenFox, сделала как вы писали, никаких сообщений не выдал, но и по прежнему не все документы поменял

Да в том то и дело, что все документы проведены, нет пометок на удаление, а как дату можно проследить?

А для чего вы передаете параметры НачДата и КонДата?

Параметры:
<Дата1> - дата, документ или позиция начала выборки документов. Если данный параметр опущен, то выборка начинается с самого первого существующего в системе документа.
<Дата2> - дата, документ или позиция конца выборки документов. Если данный параметр опущен, то выборка заканчивается самым последним существующим в системе документом.

Док = СоздатьОбъект("Документ.ВводВЭксплуатацию");
        Док.ВыбратьДокументы();
        Пока Док.ПолучитьДокумент()>0 Цикл

МестоХранения и МестоХраненияВЭксплуатации, насколько я понимаю, - реквизиты шапки документа, значит перебирать строки вам ник чему.
Если диапазон документов не ограничен, т.е. изменить во всех документах базы, тогда попробуйте так:

Процедура Выполнить() 
    Док = СоздатьОбъект("Документ.ВводВЭксплуатацию");
    Док.ВыбратьДокументы(,);
    Пока Док.ПолучитьДокумент()>0 Цикл 
        старМестоХранения                = Док.МестоХранения;
        старМестоХраненияВЭксплуатации    = Док.МестоХраненияВЭксплуатации;
        
        Док.МестоХранения                = старМестоХраненияВЭксплуатации;
        Док.МестоХраненияВЭксплуатации    = старМестоХранения;
        
        Док.Записать();
    КонецЦикла;
КонецПроцедуры

,
если нужн оперделенный период дат, тогда

Док.ВыбратьДокументы(ДатаНач,ДатаКон);

Вы уж извините, но давайте еще попробуем так:

Процедура Выполнить()
    Док=СоздатьОбъект("Документ");
    Док.ВыбратьДокументы(НачДата,КонДата);
    Пока Док.ПолучитьДокумент()=1 Цикл
        Если (Док.Вид() = "ВводВЭксплуатацию") Тогда
            Состояние("Обрабатываю документ "+Док.ТекущийДокумент());
          Попытка
            Док.ВыбратьСтроки();
            Пока Док.ПолучитьСтроку() = 1 Цикл              
                Если ПустоеЗначение(Док.МестоХраненияВЭксплуатации) = 0 Тогда    
                    СтарМестоХранения = Док.МестоХранения;
                    СтарМестоХраненияВЭксплуатации = Док.МестоХраненияВЭксплуатации;
                    Док.МестоХранения=СтарМестоХраненияВЭксплуатации; 
                    Док.МестоХраненияВЭксплуатации=СтарМестоХранения;  
                иначе
                    Сообщить(Пустое значение МестоХраненияВЭксплуатации в документе: "+СокрЛП(Док.Вид())+" №"+Док.НомерДок+" от "+Док.ДатаДок);
                    Продолжить;
                КонецЕсли;
                ГлПользователь=Док.Автор;
            КонецЦикла; 
            Док.Записать();
          исключение
           Сообщить("Ошибка в документе: "+СокрЛП(Док.Вид())+" №"+Док.НомерДок+" от "+Док.ДатаДок);
           Сообщить(ОписаниеОшибки());
          КонецПопытки;
        КонецЕсли;
    КонецЦикла;
    Предупреждение("Обработка завершена!");  
КонецПроцедуры

И еще:
МестоХраненияВЭксплуатации, и МестоХранения - это реквизиты шапки или табличной части?

МестоХраненияВЭксплуатации, и МестоХранения - это реквизиты шапки

если

попробуйте как я вам советую

тогда действительно цикл по строкам не нужен

Процедура Выполнить()
    Док=СоздатьОбъект("Документ");
    Док.ВыбратьДокументы(НачДата,КонДата);
    Пока Док.ПолучитьДокумент()=1 Цикл
        Если (Док.Вид() = "ВводВЭксплуатацию") Тогда
           Состояние("Обрабатываю документ "+Док.ТекущийДокумент());
           Попытка
                Если ПустоеЗначение(Док.МестоХраненияВЭксплуатации) = 0 Тогда    
                    СтарМестоХранения = Док.МестоХранения;
                    СтарМестоХраненияВЭксплуатации = Док.МестоХраненияВЭксплуатации;
                    Док.МестоХранения=СтарМестоХраненияВЭксплуатации; 
                    Док.МестоХраненияВЭксплуатации=СтарМестоХранения;  
                иначе
                    Сообщить(Пустое значение МестоХраненияВЭксплуатации в документе: "+СокрЛП(Док.Вид())+" №"+Док.НомерДок+" от "+Док.ДатаДок);
                    Продолжить;
                КонецЕсли;
                ГлПользователь=Док.Автор;
                Док.Записать();
           исключение
               Сообщить("Ошибка в документе: "+СокрЛП(Док.Вид())+" №"+Док.НомерДок+" от "+Док.ДатаДок);
               Сообщить(ОписаниеОшибки());
          КонецПопытки;
        КонецЕсли;
    КонецЦикла;
    Предупреждение("Обработка завершена!");  
КонецПроцедуры

Напишите что есть в окне сообщений



Отбор по виду документа нужен

nysysimara, все получилось!)

не нужен

Мои поздравления - Вы победили, Надо "подтянуть свои знания семерки"

да, всем спасибо за участие!!!
а мне учить учить и еще раз учить

Лучше 8 -ку