Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Обработка заполнения ТЧ для интерфейса Такси (http://forums.kuban.ru/f1040/obrabotka_zapolneniya_tch_dlya_interfejsa_taksi-5776663.html)

aab 05.06.2014 09:30

Обработка заполнения ТЧ для интерфейса Такси
 
Пожалуйста скиньте внешнюю обработку или кусок кода по заполнению табличной части документа в новом интерфейсе Такси (БП 3.0.33.15 и выше). Старый способ с открытием формы модально теперь выдает предупреждение.
Я про вариант, когда в обработке есть своя форма в которой нужно что-то делать до заполнения ТЧ исходного документа.

Uho 05.06.2014 09:46

так не открывай модально

aab 05.06.2014 11:52

Пробовал не получается. Нужен рабочий вариант или пример.

VZ 05.06.2014 12:54

Вообще-то, проблемы с модальными окнами - давние. Что-то не срастается у 1С с MS.
2-aab >"в обработке есть своя форма в которой нужно что-то делать до заполнения ТЧ исходного документа" - а поподробнее про это "что-то" никак низзя? "Нетленка", после которой вербовщики из Microsoft и Apple устроят драку в прихожей?

Reaper 05.06.2014 19:56

3-VZ > Это не MS:
[url]http://v8.1c.ru/o7/201301nm/[/url]

aab 06.06.2014 07:43

3-VZ > Да вариантов масса, что нужно вводить до заполнения табличной части. Это может быть, например, сотрудник, чтобы вывести остатки по нему. Или таблица какая-нибудь для разбивки поступления по разным подразделениям.

aab 06.06.2014 07:50

4-Reaper> Читал я эту статью, не понравилось, что придётся параметры несколько раз передавать, коряво это как-то, думал есть какой-то более правильный вариант.
Вот кусок кода, который нормально работал до Такси:

&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт

КлючПоиска = Новый Структура("Ключ", ОбъектыНазначенияМассив[0]);
Окна = ПолучитьОкна();
Для каждого Окно из Окна Цикл
Если НЕ Окно.Основное И Найти(Окно.Заголовок, ОбъектыНазначенияМассив[0]) Тогда

ИмяФормыДокументаРеализации = Окно.ПолучитьСодержимое().ИмяФормы;

Форма = ОткрытьФорму(ИмяФормыДокументаРеализации,КлючПоиска);
ДокументОбъект = Форма.Объект;

ВыбраннаяФорма = ОткрытьФормуМодально(ЭтаФорма);

Если ВыбраннаяФорма = Неопределено тогда
Продолжить;
КонецЕсли;

Если Вопрос("Табличная часть документа будет очищена! Продолжить?",РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да тогда
ЗаполнитьОбъект(ДокументОбъект);
КопироватьДанныеФормы(ДокументОбъект, Форма.Объект);
Форма.Модифицированность = Истина;
Иначе
Возврат;
КонецЕсли;
КонецЕсли;
КонецЦикла;

КонецПроцедуры


Текущее время: 03:51. Часовой пояс GMT +3.