v7: Программно указать договор в 1С 77 Бух
☑
0
Santa4527
16.04.12
✎
10:44
Договор = СоздатьОбъект("Справочник.Договоры");
Договор.НайтиПоКоду("000001");
ДоговорОсн = Договор.ТекущийЭлемент();
НовыйДокумент.Договор = ДоговорОсн;
Но в документе (НовыйДокумент) не заполняется договор. Подскажите что не так?
1
Ёпрст
16.04.12
✎
10:46
не найден по коду и всего лишь.
+неплохо указывать владельца перед поиском
2
Волесвет
16.04.12
✎
10:49
договоры - справочник подчиненный
3
Santa4527
16.04.12
✎
10:53
(1) А как указать владельца? И с таким кодом есть договор.
4
Ёпрст
16.04.12
✎
10:56
(3)
1.использоватьВладельца
2.в методе НайтиПоКоду есть пераметры + он возвращает значение, которое указывает как завершился поиск - удачно/не удачно
5
Santa4527
16.04.12
✎
10:59
(4)Договор = СоздатьОбъект("Справочник.Договоры");
Договор.НайтиПоКоду("000001");
ДоговорОсн = Договор.ТекущийЭлемент();
НовыйДокумент.Договор = ДоговорОсн;
Договор.ИспользоватьВладельца(Контрагент);
Договор.НайтиПоКоду("000001");
ДоговорОсн = Договор.ТекущийЭлемент();
НовыйДокумент.Договор = ДоговорОсн;
Вот так примерно должно?
6
ДенисЧ
16.04.12
✎
11:01
(5)
Договор = СоздатьОбъект("Справочник.Договоры");
//Договор.НайтиПоКоду("000001");
//ДоговорОсн = Договор.ТекущийЭлемент();
//НовыйДокумент.Договор = ДоговорОсн;
Договор.ИспользоватьВладельца(НовыйДокумент.Контрагент);
Если Договор.НайтиПоКоду("000001") = 0 Тогда
Сообщить("А договора-то и нету... Украли... Сволочи...", "!!!");
Иначе
//ДоговорОсн = Договор.ТекущийЭлемент();
НовыйДокумент.Договор = Договор.ТекущийЭлемент();
КонецЕслИ;
Где-то так.
7
Santa4527
16.04.12
✎
11:05
(6) Спасибо! сейчас попробую.
8
Ыщъ
16.04.12
✎
11:07
(6) Ну прям, сразу украли.
Под столом валяется или между бумаг затесался.
9
ДенисЧ
16.04.12
✎
11:07
(8) Украли, зуб даю...
10
Ыщъ
16.04.12
✎
12:49
(9) Последний? Не жалко?
11
ДенисЧ
16.04.12
✎
12:55
(10) Не свой же...
12
Ыщъ
16.04.12
✎
13:47
(11) Да ты такой. Я знаю.
Чужими СП бодяжишь. Чужие зубы раздаёшь.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший