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

Где
Док.Товар - рек табл части тип знпчения спр. номен

и ?

БСП

(1)Это 7.7 + какой-то умелец

(1) Конца цикла нет наверно...в этом проблема :)

(0) мой пофигуратор не знает что такое "СоздатьОбъект"

(0) примеры кода на 7.7, древнем как гуано мамонта - к чему это ?

+(5) *у меня пофигуратор

(4) в точку

(0) ну немножко медленный и бессмысленный код. Но разве он плохой? Плохой - это когда вперемешку русский и англ синтаксис и идентификаторы А0, А11, А111, А11111

А это не смущает?

Товар=Строка(Док.Товар);
Тов.НайтиПоНаименованию(Товар,0,1);

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

(10) Смешные вы, гуру :)

(11) ЛПП!

(0)Типичная ошибка студента новичка, не понимающего еще что такое ссылка. Часто такое встречал в поделках франчей.

(10) Да и это не особо хуже чем по ссылке найти

Ибо в 7 нет Ссылка.ПолучитьОбъект()

(16) Есть НайтиЭлемент()

(13) ээ стесняюсь спросить, что такое ЛПП?

В документе используется справочник не Номенклатура что-ли?

(10) Но ведь работает! :) Правда не всегда найдет то что надо.
Плохой код - это когда в одной конфе список касс был сделан Перечислением! И что бы добавить новую кассу нужно было перелопатить конфу в поисках строчек типа
Если Касса = Перечисление.Кассы.Касса1 Тогда ....
Вот это была жесть.

(15) в курсе, что могут существовать дубли номенклатуры? Не говоря о тупости искать по наименованию, имея готовую ссылку

(17) Это и есть поиск по ссылке, про что я говорил
НайтиЭлемент()
НайтиПоНаименованию()

по скорости не особая разница

Для каждого СтрокаТЧ Из МояТЧ.НайтиСтроки(Новый Структура("реквизит1", ЗначениеРеквизита1)) Цикл
            МояТЧ.Удалить(СтрокаТЧ)
        КонецЦикла;

(21) Этот код конечно ужас, но не ужас-ужас-ужас как в (0)

(0) ниче, мне вот в наследство досталась конфа. предыдущий прог не знал как в константу запихнуть группу из справочника, поэтому он запихнул в константу код группы и потом искал ее по коду.

а тут видимо чел не знал как НайтиЭлемент()

(18) Вот https://www.google.ru/search?q=ЛПП&oq=ЛПП&aqs=chrome..69i57&sourceid=chrome&es_sm=122&ie=UTF-8

выбирай что понравится :)

(17) Это хорошо, но это тоже не самое страшное, было бы оправдано, если бы с элемент потом записывался, а так там просто обращение к реквизиту.
и опять же какое

    Если СтрДлина(СокрЛП(Тов.Г))>0 Тогда
                Г=Тов.Г;
            Иначе
                Г="ДРУГОЕ";
            КонецЕсли;

(22) Разница в том что НайтиПоНаименованию() может найти не тот элемент, а элемент с таким же наименованием.

(28) А мож ему пофиг какой там элемент?

Меня вообще смущает такая конструкция:

Тов=СоздатьОбъект("Справочник.Номенклатура");
Товар=Строка(Док.Товар);
Тов.НайтиПоНаименованию(Товар,0,1);

Надо так делать:
Товар=Док.Товар.ПолучитьОбъект();
а все остальное - от Лукавого.

(29) А мне тем более :)
Ховнокода встречал немерянно.
Хотя, я думаю, по первости все такой писали :)

(30) нету такого метода ПолучитьОбъект();

(30) На 7.7 - Товар=Док.Товар.ПолучитьОбъект();
Это сильно!

(28) Да разница в том что и его искать не надо

//было
Тов=СоздатьОбъект("Справочник.Номенклатура");
Док.ВыбратьДокументы(ВыбДата,ВыбДата);
Пока Док.ПолучитьДокумент()>0 Цикл
    Док.ВыбратьСтроки();
        Пока Док.ПолучитьСтроку()>0 Цикл
            Товар=Строка(Док.Товар);
            Тов.НайтиПоНаименованию(Товар,0,1);

  Если СтрДлина(СокрЛП(Тов.Г))>0 Тогда
                Г=Тов.Г;
            Иначе
                Г="ДРУГОЕ";
            КонецЕсли;
КОнецЦикла;


//Стало

Тов=СоздатьОбъект("Справочник.Номенклатура");

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

Пока Док.ПолучитьДокумент()>0 Цикл
  
Док.ВыбратьСтроки();
    
    Пока Док.ПолучитьСтроку()>0 Цикл

        Док.Товар  
        


  Если Док.Товар.Г.Выбран() =1  Тогда
      
         Г=Тов.Г;
        
   Иначе
          
     Г="ДРУГОЕ";
        
   КонецЕсли;

КОнецЦикла;


КОнецЦикла;

(32) Ну и  выкинь свой конфигуратор.

(34) И что, работает?

а где прерывание цикла?

(33) Если у него молоток каменный, то я не виноват, что он крошится.

(6) > примеры кода на 7.7, древнем как гуано мамонта - к чему это ?

Что-бы экспериментаторы новофилы понервничали.

(0) неужели так накипело, что решил запостить?! Возьми БСП и пости сюда :)

(36)
Если выкинуть
Док.Товар  
исправлял в блокноте

+(40) а тем более 7.7. В ней столько этого добра было, особенно во франях с большой текучкой)

Что не нравится в БСП? Примеры кода будут?

(43) форум ляжет, примеры постить

(44) Одного достаточно.

Клиент серверная 1С. 1С сервер и SQL на разных компьютерах. 1С сервер спрашивает у гугля "где находится наш SQL?". А они физически стоят друг на друге. гугль отвечает "да вон там ищи...", 1С работает. Если интернета нет, 1С не видит SQL сервер, пользователи не могут войти в базу.

(0) А что в нем не так ?

+(45) Ситуация с БСП скорее выглядит так:

Открыл -> Нихрена не понял -> "Гов*о!" -> Закрыл.

откуда вы знаете, быть может там далее такой код

Док.Товар = Тов.ТекущийЭлемент();
КонецЦикла;
Док.Записать();
КонецЦикла;

Тогда в результате выполнения алгоритма, в документах ссылки на разные товары с одинаковым наименованием заменятся на одинаковую ссылку

+(47) Код написан в соответствии с ЖКК

Если этот код  плох - пусть вендор убираем методы обращения к объектам и курсоры и оставляет только Объект запрос.

(49) Этот код для выгрузки в xls

(52) Пусть работает .... и читабельный и стабильный . Всегда и все могут разобраться в нем .

(52) ну пусть и в ексел
Допустим, имеем товары с одинаковым наименованием, но с отличающимися другими реквизитами.
По условиям задачи необходимоЮ чтобы в екселе у товаров с одинаковым наименованием и другие реквизиты были гарантированно одинаковые

Рекомендую ТС начать принимать новопассит

(53) А чем тебе этот не читабелен. И в чем была необходимость позиционировать объект?

Тов=СоздатьОбъект("Справочник.Номенклатура");
Док.ВыбратьДокументы(ВыбДата,ВыбДата);
Пока Док.ПолучитьДокумент()>0 Цикл
   Док.ВыбратьСтроки();
       Пока Док.ПолучитьСтроку()>0 Цикл  
          Если Док.Товар.Г.Выбран() =1  Тогда    
         Г=Док.Товар.Г;        
   Иначе        
     Г="ДРУГОЕ";      
КонецЕсли;
КОнецЦикла;
КОнецЦикла;

(0) работает - не трожь!

(56) Тоже хороший пример .  Все они похожи т.к. струтура одна . Проста и читабельна.

Я называю это Пока Выбрать Если :)

(58) это тот же код, но правильный

(21) Вы уверены что автор хотел найти именно тот товар что забит в табличной части? Видел не раз когда бухи на создают куча товаров Товар1 по разным ценам пришел или еще с неведомой целью. а потом хотят гдето увидеть все товар1 собранные в 1 элемент. Данный код делает ссылку всех товаров с одинаковым наименование на 1 элемент справочника.

(60) Вот и я о том же . Чем проще код - быстрее ошибку найти .

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

(62) нет, я не согласен с вами. Если элемент справочника ищется по наименованию, вместо того, чтобы обращаться к нему напрямую, то это не простой код. Это ошибка

(61) Уверен

Самые страшные примеры кода - это наши собственные n времени назад

(56) Как элегантно: Док - это выборка документов, и одновременно - сам документ. Нет, все-таки 1С деградирует: в 6-ке вообще можно было из пользовательского режима константы и прочие поля добавлять...

(66)  Если Док.Товар.Г.Выбран() =1  Тогда  ели Г неопределенного вида, что скажет

Процедура КнопкаСформироватьНажатие(Кнопка)
    таб=новый ТабличныйДокумент;
    Макет=ПолучитьМакет("МакетОтчета");
    Область=Макет.ПолучитьОбласть("Заголовок");
    таб.Вывести(Область);
    Работники=ПроцедурыУправленияПерсоналом.РаботникиОрганизацииНаДату(ДатаОтчета,Организация);
    для каждого Работник из Работники цикл
        Если Работник.Сотрудник.Актуальность Тогда
        Сотрудник=Работник.Сотрудник;
        ФизЛицо=Сотрудник.ФизЛицо;
        ВывестиСотрудника=истина;
        ДатаПриема=ПроцедурыУправленияПерсоналом.НайтиДатуПриема(Сотрудник,ДатаОтчета,Организация);
        если ДатаПриема<>Неопределено тогда
            если ДатаОтчета>=ДобавитьМесяц(ДатаПриема,6) тогда
                НачалоРабочегоГода=НачалоДня(ДатаПриема);
                пока истина цикл
                    отпуск=ПроцедурыУправленияПерсоналом.РасчетныйОтпускПоРабочемуГоду(НачалоРабочегоГода,Сотрудник,ДатаОтчета);
                    если отпуск.ДниОтпуска>1 тогда
                        ИспользованныйОтпуск=ПроцедурыУправленияПерсоналом.НайтиИспользованныйОтпускПоРабочемуГоду(НачалоРабочегоГода,Сотрудник);
                        если ИспользованныйОтпуск<>отпуск.ДниОтпуска тогда
                            ВывестиСтрокуОтпуска(Сотрудник,отпуск.НачалоРабочегоГода,отпуск.КонецРабочегоГода,отпуск.ДниОтпуска,ИспользованныйОтпуск);
                        конецесли;
                    иначе
                        если отпуск.Конец тогда
                            Прервать;
                        конецесли;
                    конецесли;
                    НачалоРабочегоГода=ДобавитьМесяц(НачалоРабочегоГода,12);
                    если НачалоРабочегоГода>ДатаОтчета тогда
                        Прервать;
                    конецесли;                    
                конеццикла;
                конецесли;    
            конецесли;                    
        конецесли;                    
    конеццикла;
    таб.Показать();
КонецПроцедуры

Тогда уж ПустоеЗначение() юзать и  проверять что товар выбран. кстати товар точно справочник определенного вида сейчас и так ли это было когда этот код писался. В итоге может потребоваться еще 10 проверек на выдран тип значение вид значения и читабельность и скорость будет в разы хуже

(70) В отладчике хорошо ходить . читабельно и быстросопровождаемо .

(70) Могу придраться только к строке
если ДатаПриема<>Неопределено тогда

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

(69) Г - это рек спр Номенклатура с типом Справочник Г

А к запросам в двойном цикле?

(75) В двойном????

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| ИСТИНА КАК ЗначениеИстина
|ИЗ
| РегистрСведений.ДатыЗапретаИзменения КАК ДатыЗапретаИзменения";
НеИспользуется = Запрос.Выполнить().Пустой();

Возврат НеИспользуется;

может кто объяснит смысл этого кода?в erp функция

(77) Дык все же понятно - если нет ни 1 строки в регистре - значит не используется.

(78) блин, точно

с этим ERP сознание расширять надо

(76) 1. для каждого Работник из Работники цикл
2. пока истина цикл
И  внутри:
функция НайтиИспользованныйОтпускПоРабочемуГоду(ДатаНачалаРабочегоГода,Cотрудник,ВидОтпуска,ТаблицаОтпусков) Экспорт
    ИспользованныйОтпускПоРабочемуГоду=0;
    // Использованный отпуск по другим документам
    Запрос = Новый Запрос;
    Запрос.Текст="ВЫБРАТЬ
                 |    ОтпускаОрганизацийРаботникиОрганизации.ДатаНачала,
                 |    ОтпускаОрганизацийРаботникиОрганизации.ДатаОкончания
                 |ИЗ
                 |    Документ.ОтпускаОрганизаций.РаботникиОрганизации КАК ОтпускаОрганизацийРаботникиОрганизации
                 |ГДЕ
                 |    ОтпускаОрганизацийРаботникиОрганизации.Ссылка.Проведен
                 |    И ОтпускаОрганизацийРаботникиОрганизации.Сотрудник = &Сотрудник
                 |    И ОтпускаОрганизацийРаботникиОрганизации.РабочийГодС = &РабочийГодС
                 |    И ОтпускаОрганизацийРаботникиОрганизации.ПричинаОтсутствия = &ВидОтпуска";
...

(77) Использую всегда  Количество() .

+(82) При Топах 1

(0) Открываем БП3 -> Делаем Ctrl+Shift+F -> вводим "ПараметрыРаботыКлиентаПриЗапуске" -> Enter

Смотреть все, откуда это вызывается, и все, что вызывается из него.

Пришлось перерабатывать свои поделки примерно 10летней давности. Там и не такое было. Но ... нужно было быстро и вчера - а как твои проблемы. Улыбало , когда после модернизации кода скорость расчета отчета возрастала в десятки раз.
Немного ставит на путь истинный программирование на языке отличном от 1с , например JAVA, когда недоработки просто не прокатывали.

(0)Вроде в счет фактуре храниться наименования товара тип  текст

+ 86
http://s019.radikal.ru/i641/1502/1f/95a7023921e3.jpg

(56) Порекомендую лишь заменить
"Если Док.Товар.Г.Выбран() =1"
на
"Если ПустоеЗначение(Док.Товар.Г) =0"
(источник)
V7 выбран() или пустоеЗначение()