Есть справочник (наименование, цена).
Как добавить элемент которого нет
С отсутствующим наименование и отсутст. ценой.
Есть метода перебора элементов по определенному наименованию?

куда добавить то ?

Хто здесь? (с)

По реке плывёт кирпич
Деревянный как стекло
Ну, и пусть себе плывёт
Нам не нужен пенопласт

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

(1) если прочитать текст, то станет понятно куда.

что, черный запрос ваять чтоли  ?

Как добавить элемент которого нет ?

Если смотреть сбоку - то снизу кажется, что сверху ничего не видно!

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

чё?

такое ощущение, что старыми никами кто то приторговывает )

(10) это точно, райкомовские ветки это подтверждають

(8) поразительно.
все же расписано
есть справочник.
нужно добавить элемент
если такой есть, но не нужно добавлять
проверять нужно по наименованию и по цене.

как проще объяснить ?

(12) сделай!©
зы. могу продать СП.

(12) по-человечьи.
Теперь смотри на (0) и сравни с (12).
Разницу чуешь ?

я не знаю что такое СП

(14) нет , не чую

(15) это мы уже поняли

(12) "если такой есть, НО не нужно добавлять" - шедеврально ящитаю.

(18) ну опечатка, и чито ?

(16) с учетом (18) , я тоже
:))))))))))))))))))

(17) Ну вопрос то в другом

(10) ну с возрастом различные болезни начинаются

И этот человек 8 лет тусовался на форуме, мы принимали его за своего, родимого... Ай ай ай..

P.S. Продам ник, прокачан до уровня лайт-модератора, инженер знаний с иконкой (иконку можно заменить). Дорого.

короче, быстро прямым запросом, еще быстрее - составной реквизит и индекс на него и прямым запросом к нему.

(24) Кубы забыл.

можно и НайтиПоНаименованию использовать, тоже довольно быстро

а по теме: перед записью проверять поиском. Нашел не записывать

(24) это есть в 1с 7 ?

(28) Гайка, гайка, гаеЧка, стопорная гайка etc

(28) Как искать если нашел по наименованию, но есть еще такие наименования но цена другая.

(31) запросом например

+(32) select count(*) from table where price=... and name=...

(31) прямой запрос 1с++

(31) Ты вообще что нибудь, писал, Хоть раз в жизни? Зачем такие вопросы задаешь?

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

так пойдет ?

   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(ололо)
   |Э = Справочник.Материалы.ТекущийЭлемент;
   |Н = Справочник.Материалы.Наименование;
   |Ц = Справочник.Материалы.ТекущийЭлемент;
   |Условие(Н=ВыбрНаименование);
   |Условие(Ц=ВыбрЦена);
   |"//}}ЗАПРОС

есть повод посмеяться...

(36) можно и черным но " |Ц = Справочник.Материалы.ТекущийЭлемент;" не взлетит.
если цена - реквизит справочника тогда можно, иначе - выгружать в ТЗ и перебор

(31) Зарплата на Oracle 9i подойдет ?

(38) опесатка


   "//{{ЗАПРОС(ололо)
   |Э = Справочник.Материалы.ТекущийЭлемент;
   |Н = Справочник.Материалы.Наименование;
   |Ц = Справочник.Материалы.Цена;
   |Условие(Н=ВыбрНаименование);
   |Условие(Ц=ВыбрЦена);
   |"//}}ЗАПРОС

(40) ну, дык, запускай, какие сомнения? проще проверить чем спрашивать

запросом в ТЗ поиск по составному полю через ТЗ

(42) не катит ТЗ.
В ТЗ еще грузить надо.

(42) из воробья по пушкам, имхо

(42) составное поле? проще фильтр на тз + фильтр на тз

(43) ну всё, просто выборка

Ребята, подскажите текст Запроса.

)))
Спр = СоздатьОбъект("Справочник.Номенклатура");
НайтиПоНаименованию(ИскомоеНаименование)
...
Продолжать?

(48) продолжай

(49) +100))))

(48) я как раз переделываю подобное решение

ага а заглавные буквы проверять ? :))
Запрос.Выгрузить(ТЗ,0,0)

(50) вполне годное решение

(52)в условие ВРЕГ

(53) ну какое же оно годное?
значение цена проверено ?

(55) дык допиши, в чем проблема ?

(54) ;)) я то вкурсе

А цена периодическая?

Есть:
водка1  3,62
водка2  3,63
водка4  3,64
водка1  3,60
водка1  3,66
водка5  3,59


нужно ли записывать
водка1  3,65
?

(60) нужно

цена не период

(60) на 1с 7.7 скажи

(62) ты сам в 40 сказал уже

(59)Цена всегда берется на какую либо дату, т.е. она всегда одна.
Т.е. соответственно тебе нужно просто проверять товар.
...
И самое главное, что за конфигурация у тебя?
Версия, номер ?

(63) я не знаю как проверить Запрос на результат наличия в выборке хотя бы 1 записи

А я понял, аутору нужен готовый код, сам он никогда не напишет

вариянт нумер 1

select count(*) from $Справочник.нужный (nolock)
where descr like '%"+Наим+"'% and Цена=:ВыбЦена

вариянт нумбер 2

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

вариянт 3

чорный запрос

(65) не помню но чтото типа

Запрос.Выполнить(Текст);
Есть = 0;
Пока Запрос.Группировка() = 1 Цикл
Есть = 1;
Прервать;
КонецЦикла

(67) весь фокус, что я сам в таком положении

Если Запрос.Группировка() = 1 Тогда
//Есть;
КонецЕсли;

(66)Аутор походу язвит. Напоминает оутСорсера, который работает по достижению написанного на форуме :)
...
Думается он освоит только пункт №2 :)

(66) хороший вариант с удалением, ток не быстрый наверное+ держит транзакцию на больших справочниках отстатыщ?

(68) смени сферу деятельности с алкогольной. Например:
таблетка1 1
таблетка2 1,1
таблетка1 2...

Спс, надеюсь уже все проявили свое ЧЮ ?
А теперь можете что-то сказать по делу?

(68) (73)  Смотри в (66), пункт № 2.
Он тебе все описал. Убери Удалить и транзакцию. И получишь, то что хочешь.

Судя по коду в (36), у тебя конфа "Бух. Учет".
У материалов есть реквизит "Цена", он не периодический, т.е. всегда один и тот же. (если только у вас чего допилили)

Так что: по (0) НечеНеПонимаю :)

(74) "убери Удалить и транзакцию." не взлетит

(75)Но останется то, что нужно автору :)

(76) согласен

+ Остальное он сам допилит, появление нового элемента можно решить с помощью ОпенКонфа.

(75) согласен
(76) нет

(78) НайтиПоНаименованию() позиционируется всегда на первом найденом элементе

(59) Где такая дешевая водка?

(81) в 1970 году

(80) Точно

(79)Что нет?
Я же не в курсе, об состоянии ваших Мета данных :)

По мне так, все получится.
Найдет по наименованию, если не нашёл, то липи есЧё один эльномент :)

Но или используй запрос 1С (черный запрос) и в цикле, т.е. в ТЗ проверяешь, что да как двоится :)

(84) Вся проблема в том что бы влепить элемент если ено наименование есть но нет такой цены.

Вопрос по Запросу

ТекстЗапроса =
   "//{{ЗАПРОС(ололо)
   |Э = Справочник.Материалы.ТекущийЭлемент;
   |Н = Справочник.Материалы.Наименование;
   |Ц = Справочник.Материалы.Цена;
   |Условие(Н=ВыбрНаименование);
   |Условие(Ц=ВыбрЦена);
   |"//}}ЗАПРОС
   
Если ничего не выбрано, то какое кол-во строк будет в
ТЗ после
Запрос.Выгрузить(ТЗ);
?

(86) ТЗ.КоличествоСтрок() = 0, т.е. создаешь новый элемент

(87) не помню рус. LinesCnt()

"Если долго мучиться - что-нибудь получиться,
А если получиться - опять будем мучиться" (С)

вот такая фигня получилась, можете критиковать


Функция Искать(ВыбрНаименование, ВыбрЦена)
   Перем Запрос, ТекстЗапроса, ТЗ;
   Запрос = СоздатьОбъект("Запрос");
   ТекстЗапроса =
   "//{{ЗАПРОС(ололо)
   |Э = Справочник.Материалы.ТекущийЭлемент;
   |Н = Справочник.Материалы.Наименование;
   |Ц = Справочник.Материалы.Цена;
   |Условие(Н=ВыбрНаименование);
   |Условие(Ц=ВыбрЦена);
   |"//}}ЗАПРОС
   ;
   Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
       Возврат 0;
   КонецЕсли;
   Запрос.Выгрузить(ТЗ,3,3);
   ТЗ.ПолучитьСтрокуПоНомеру(1);
   Возврат ТЗ.Э;
КонецФункции

(90) откровенно говоря, слабая реализация.. с другой стороны - работает и пофиг

(91) не работает, двоит

(90) нет, не работает.

Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
       Сообщить("не работает запрос")
Возврат -1;
   КонецЕсли;

Запрос.Выгрузить(ТЗ,3,3);
Если ТЗ.КоличествоСтрок() = 0 ТОгда
Возврат 0;
Иначе
   возврат ТЗ.GetValue("Э",1);
КонецЕсли;

(94) и это тоже не спасёёт

ладно кипятите дальше
:)

Запрос не возвращает ничего и никогда

(97) см (93)

(97) параметры не передал

помогите с черным Запросом

(98) а как ты догадался ?

В 77 же вроде чорные запросы без функции не работают, не?

(102) работают

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

Такую элементарщину пишут в начале, а не в конце..

мне лень.

(90) поясеи: ищешь элемент с наименованием и ценой, если цена отличается - то создаешь новый элемент с таким-же наименованием?
а как потом с ними разбираться будешь?

поясеи =  поясни

(104) Когда просят - говорят "Пожалуйста". А с Ёпрст так разговаривать нельзя.

да ни с кем так разговаривать нельзя

(107) это не тот вопрос на который мне нужен ответ.

понятно.

(109) обычно я говорю спасибо в конце, если есть за что.

(111) так найди ответ самостоятельно, тебе никто здесь ничем не обязан

(113) А речь не про "Спасибо".

(116) Про русский - не согласна. Про остальные - не знаю. Чего пришел-то на русский тогда? Остальные - не в теме?

(117) Отвечать на примитив для начинающих, ответ на который решается самостоятельно за 1 минуты не комильфо.

Переделать нерабочий код из (90) в рабочий - еще быстрее, нужно только подумать, что в нём неправильно.

(117) что проверить. если тебе уже намекали что нужно сделать. конфетку тебе, не кто тут не даст.

(119) клон ? или перерождение ?

(120) просто удивляюсь, я не просил намеков. Я просил помощи.
Когда Вы просите помощи у врача, он Вам будет отвечать намеками, вам понравится?

(121) ну какая тебе разница ?
Нечего ответить по теме, зачем вообще пылить ?

(122) Смешной какой! :)))) Врач - поставит диагноз, но не расскажет, как он поставил диагноз.

(119) Не хочешь отвечать на примитив - не отвечай, нахрена начинающему твои намеки ?

(124) и расскажет и покажет, если он врач , а не шарлатан

(125) если тебе дадут готовый ответ - ты его не запомнишь, если решишь сам - запомнишь навсегда.

Эх.. жаль РД закончился, весело тут у вас ))

(125) это моя проблема, и мне не нужно тут искать педагогов.

(126) Ну, с врачами тебе повезло. А вот с 1С - не очень.

(127) я это все знал 7-10 лет назад

(129) За готовые решения - платят (обычно).

(130) через десяток лет с вами произойдет тоже самое.

(131) Не знал. Я вот я знаю теорему Пифагора, хотя учила ее в школе, лет 20 назад.

Ладно, хрен с тобой красна шапка

в условие сокрЛП, добавить группировку на выходе :

Запрос.Выполнить(ТекстЗапроса);
Возврат Запрос.Группировка(1);

(132) это стоит 30 копеек, куда Вам перевести ?

Так сложно сделать ? пару минут блин.

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



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

(133) Врач? Диагноз? Доктор, у меня вот ножка болит. Почему?

(131)
"Не знал но забыл" ©Чьё то

(129) Проблема-то может и твоя, только ты ж не запомнивши сейчас, потом опять прибежишь с тем же самым. Утомительно это.
Ёпрст за годом год дело говорит. Да плюс еще и готовое решение дал на предыдущей странице. А тебе всё не так

135 Куда это лепить ?

(136) У Ёпрст в личке есть счет - туда и переведи. Да уж и не 30 копеек, а рубль хотя бы.

(141) Без слов..............

PS Пожалуй, и рубля будет мало.

(141)
1.добавить СокрлП в условие по Наименованию в текст запроса
2.добавить группировку в текст запроса
3.делать возврат из функции, как в (135)

ладно, спасибо.
Поднял свою старую конфу, вспомнил.

думал, что спросить на форуме у спецов быстрее чем вспомнить пароль 10летней давности

(146) а зачем вспоминать пароль?

+(147)
не пел давно...
да и спел -  гавно...
©

И чего, во всех конфах лепят кучу элементов с одинаковым наименованием, пр изменении цены ?

(147) Зачем тебе это знать ?

еще и паролят, чтоб этот позор никто не видел.

(149) это всего лишь гипотетическая задача.
но смысл алгоритма не меняет

(152)+  мне говорили что 1сники не понимают ничего кроме наименование, цена.

(153) ну, не все ж настолько тупые...
хотя некоторые, ставящие задачку "не понимающим 1сникам", еще тупее их...

ну если бы ставящие задачу были острее - то накой тогда бы им понадобились тупые 1сники ???

(155) время в сутках ограничено, приходится разделять задачи

(155) бесспорно... но пока они не могут поставить задачу даже тупым 1снегам...

(156) тут не время в сутках ограничено тут постановщик ограничен

(158) Вы лично взялись  дотянуть до 2-х часов ?

(158) чтобы Вам помочь - я признаю себя чудаком в 1С, можете не стараться.

По -ходу бананан всех покусал...
новый вирус на мисте

(162) а его кто укусил?

хз, мот какая мутация 86 ?

(164) молдова. наверное, скорее чтото с биологией, нежели с радиацией...