1C Программирование и поддержка - [95] :: Прикладное программирование

Кто-нибудь юзал 1С:РКК

что надо сделать чтобы дождаться окончания работы процедуры ВыполнитьОбменДанными(), т.к. по задаче это надо получить при нажатии 1 кнопки 1 раз.
Пробывал и в другую форму передавать и циклы крутить... работает только при нажатии кнопки 2 раза

Процедура КнопкаПроверкаНажатие()
    Если СтатусПроверки=0 Тогда
        СтатусПроверки = 1;
        ЭлементыФормы.КнопкаПроверка.ЦветФона    = Новый Цвет(0,255,0);
        ПроизвольныеХранимыеДанные.ТаблицаРадиоМетки.Установить("");
        ПараметрыСеансаОбмена.ПараметрыОбменаДанными.ЗапросРадиоМеток             = Истина;
        ВыполнитьОбменДанными(истина);
        Возврат;
    Иначе
        СтатусПроверки = 0;
        ЭлементыФормы.КнопкаПроверка.ЦветФона    = Новый Цвет(255,255,0);
    КонецЕсли;

//ФормаЗапроса = ПолучитьОбщуюФорму("ФормаЗапросРадиометок");
    //ФормаЗапроса.ОткрытьМодально();

    Таблица    = Новый ТаблицаЗначений;
    СтрокаСообщения            = "";
    //XMLТаблицаРадиоМетки    = "";
    //СчетчикЦиклов             = 0;

    //Если ВариантПлатформы()=ВариантыПлатформы.ДляМобильныхУстройств Тогда
    //    КолвоЦиклов    = 1000;
    //Иначе
    //    КолвоЦиклов    = 1000000;
    //КонецЕсли;

    //Пока ПустаяСтрока(XMLТаблицаРадиоМетки) Цикл
    //    СчетчикЦиклов = СчетчикЦиклов + 1;
        XMLТаблицаРадиоМетки = ПроизвольныеХранимыеДанные.ТаблицаРадиоМетки.Получить();
    //    Если СчетчикЦиклов=КолвоЦиклов Тогда
    //        СтрокаСообщения    = "выход из цикла по счётчику"+Символы.ПС;
    //        Прервать;
    //    КонецЕсли;
    //КонецЦикла;
    Если НЕ ПустаяСтрока(XMLТаблицаРадиоМетки) Тогда
        //ФормаТаблицы.ПроизвольнаяТаблица.ЗагрузитьИЗXML(XMLТаблицаРадиоМетки);
        Таблица.ЗагрузитьИЗXML(XMLТаблицаРадиоМетки);
        НадписьТекстФормы    = СтрокаСообщения+"Таблица радиометок подгружена";
    Иначе
        НадписьТекстФормы    = СтрокаСообщения+"Таблица радиометок не подгружена";
        ЭлементыФормы.НадписьТекстФормы.ЦветФона    = Новый Цвет(127,0,0);
        предупреждение("Таблица радиометок не подгружена","ОШИБКА");
        возврат;
    КонецЕсли;
    // 1. проверка - были считывания меток
    Если Таблица.Количество()=0 тогда
        предупреждение("НЕТ СЧИТАННЫХ МЕТОК","ОШИБКА");
        возврат;
    КонецЕсли;
КонецПроцедуры

Модерирует : ShIvADeSt
ShIvADeSt (03-04-2009 02:03): Продолжение тут http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100