VPF::Программно нажать кнопку или...

Berserk

Дата 16.6.2011, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 14.12.2006
Где: Столица Донбасса - Горловка

Репутация: нет
Всего: 2

1с 8.1 не типовая бух для Украины.
Собственно проблема: нужно программно ввести до 20000 контрагентов и с ними столько же договоров(элементы справочников "контрагенты" и "договора контрагентов"). С контрагентами проблем нет, добавил все подхватилось, все довольны. А вот договора....

Код


         НовыйЭлемент = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();   
    НовыйЭлемент.Наименование = "НаименованиеДоговора";
    НовыйЭлемент.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.Прочее;
    НовыйЭлемент.Владелец = Контрагент;
    НовыйЭлемент.ПредметЗадолженности = ПредметЗадолженности;
    НовыйЭлемент.Комментарий = Комментарий;
    НовыйЭлемент.Организация = Организация;
    НовыйЭлемент.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду("999");
    НовыйЭлемент.Записать();

Договор добавляется, но какой-то недоделанный. Вся беда в том что при открытии формы "ДокументКонтрагента" срабатывают события ПриОткрытии и ПередОткрытием,при закрытии ПередЗакрытием и ПриЗакрытии, в которых что-то добавляется в форму, переносить это все безобразие в свой код долго, нудно, и скорее всего не правильно. Дальше написал следующее:

Код


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

В этом случае все записывается, но при работе обработки открывается форма "ДоговорКонтрагента"(это не страшно), а при закрытии выдает модальное окошко: Данные были изменены, хотите ли их сохранить(да, нет, отмена).
ВОзможно ли программно ответить да?
Возможно есть другие варианты реализации? Например не трогая форму вызвать все ее события?
Спасибо.

Это сообщение отредактировал(а) Berserk - 16.6.2011, 15:08

--------------------

Berserk

Дата 16.6.2011, 16:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Нашел вот что:

Код


 Shell = Новый COMОбъект("WScript.Shell");
Shell.SendKeys("{ENTER}");

но если честно, то не пойму что с этим делать.

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| 1C: Предприятие, SAP, ERP и учётные системы \| Следующая тема »