v7: Как записать наиболее правильно исполнить код

1C 7.7

10.11.11

✎

12:19

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

1 zak555

10.11.11

✎

12:19

ПЕРЕНОС заменить на ВНОС

2 Mikeware

10.11.11

✎

12:19

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

3 DJ Anthon

10.11.11

✎

12:20

ДокВвОст.Склад=СпрСклад.ТекущийЭлемент();

4 FN

10.11.11

✎

12:24

"Как записать наиболее правильно исполнить код" - спасибо, поржал :)

5 alkov

10.11.11

✎

12:24


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

6 DeMi4

10.11.11

✎

12:45

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

7 Mikeware

10.11.11

✎

12:47

(6) у вас ошибка!

8 alkov

10.11.11

✎

12:48

(6) Чем (5) не угодил?

9 Tatitutu

10.11.11

✎

12:48

НайтиПоНаименованию(<?>,,);
Синтаксис:
НайтиПоНаименованию(<Наименование>,<Режим>,<ФлагПоиска>)
Назначение:
Найти элемент справочника по наименованию.
Возвращает: 1 - если действие выполнено;
0 - если действие не выполнено (элемент не найден).
Параметры:
<Наименование> - строка с наименованием искомого элемента справочника,
<Режим> - необязательный параметр. Число: 1 - поиск внутри установленного подчинения (родителя); 0 - поиск во всем справочнике вне зависимости от родителя. Значение по умолчанию - 1.
<ФлагПоиска> - необязательный параметр. Число: 1 - найти точное соответствие наименования; 0 - найти наименование по первым символам. Значение по умолчанию - 0.
Замечание:
Метод можно использовать только для объектов, созданных функцией СоздатьОбъект.

10 1Сергей

10.11.11

✎

12:51

(7) ты про запятые? :)

11 Джинн

10.11.11

✎

12:52

Второй поиск по наименованию явно лишний.

12 Mikeware

10.11.11