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


Как ПРОГРАММНО создать в этой же обработке два договора этого Контрагента (справочник ДоговорыКонтрагентов подчинен справочнику Контрагенты). и Записать их.

фото

А где фотка?

поддержу предыдущих ораторов

код вроде должен работать. А проблема то в чем?

фотка будет?

Да. в чем проблема то?
Для правильности сделай так - НовыйДоговор.Владелец = НовыйКонтрагент; Ты же уже создала контрагента, зачем его потом ищешь по наименованию? Если уж по наименованию задумала искать то - НовыйДоговор.Владелец = Контрагенты.НайтиПоНаименованию("Наименование", Истина);

НовыйДоговор.Владелец = НовыйКонтрагент - не взлетит

(6) ..... НовыйКонтрагент.Ссылка;

(0) фотка, фотка, фотка!!!

(7) (8) ааа...точно...пятницо

(9) не будет, (6) - (8) все испортили)

(6) (7) (8) что за спам?

Процедура ПередЗаписью()
 Если ПользовательМиста = ЭтоНовый() и Пол = Перечисления.Пол.Женский и Не ПользовательМиста.ЕстьФото тогда
   Отказ = истина;
   Предупреждение("Нет фотографии. Добавьте фотографию")
 КонецЕсли;
КонецПроцедуры;

(13) волшебнику на заметку, для сокращения объема базы...

(13) не лучше
Процедура ПередЗаписью()
 Если ПользовательМиста.Пол = Перечисления.Пол.Женский и Не ПользовательМиста.ЕстьФото тогда
   Отказ = истина;
   Предупреждение("Нет фотографии. Добавьте фотографию")
 КонецЕсли;
КонецПроцедуры;

(13) А скрипт как выглядит?

(15) на инфостарте уже сделали. Причем

Если Не ПользовательИнфостарт.ЕстьФото тогда
   Отказ = истина;

(0) что за????
НовыйДоговор.Владелец = Контрагенты.НайтиПоНаименованию("Наименование");

я бы заменил строчку кода выше на это
НовыйДоговор.Владелец = НовыйКонтрагент.Ссылка;

для начала. Зачем искать по наименованию, когда есть ссылка?

(18) -> (6) (7) (8) (10)

(17) на инфостарте есть такое, но не доделанное какое-то... долго не мог понять почему не сохраняются комментарии, оказалось просто - нет фото.

(18) так она и валюту Рубль постоянно разыскивает, можно один раз найти.

Тьфу-ё. (0) Радченко читай

те

Столько народу тему просматривает. Наверно все в ожидании фотки

(0) Без фотки не ответим, традиция.

(25) Это развод. Фиксин троллит.

а наташка где?

(27) фоткаться убежала.

зачем фоткаться? Есть же зеркало, накачала бы фоток из интернета и выбрала самую похожую. Чтобы такой же нос и глаза.

(29) глаза то причем???? Главное - ноги и грудь.

грудь можно другую, всё равно же мы не поедем со штангенциркулем мерить.

почему у контрагента другие показатели незаполнены :?

(26) Ну дак тем более, пусть фотку выложит. Из хоум видео своего выцепит, он ж половой гигант. :)

«No money – no honey»
Нет фото - нет мысли ...

Налетели местные тролли на бедную девушку ))

а я уже всё сделала спасибо

и где фото? Так не считается!

Коварные девушки пошли.

да что вы достали то девушку! Человек  только 3.10.2012 на форуме зарегистрировался. Наташа, приезжай, будем контрагентов создавать новых! :-)

(39) тут даже где то пробегал по веткам производитель с хорошими генами )