Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Скорп
Вот казалось бы, на русском языке код

Процедура ПриИзмененииВидаКонтактногоЛица()

    Если НЕ ЗначениеЗаполнено(ВидКонтактногоЛица) Тогда
        ВидКонтактногоЛица = Перечисления.ВидыКонтактныхЛиц.ЛичныйКонтакт;
    КонецЕсли;

    Если ВидКонтактногоЛица = Перечисления.ВидыКонтактныхЛиц.КонтактноеЛицоКонтрагента Тогда

        Если ТипЗнч(ОбъектВладелец) <> Тип("СправочникСсылка.Контрагенты") Тогда
            ОбъектВладелец = Справочники.Контрагенты.ПустаяСсылка();
        КонецЕсли;

    ИначеЕсли ВидКонтактногоЛица = Перечисления.ВидыКонтактныхЛиц.ЛичныйКонтакт Тогда

        Если ОбъектВладелец <> глЗначениеПеременной("глТекущийПользователь") Тогда
            ОбъектВладелец = глЗначениеПеременной("глТекущийПользователь");
        КонецЕсли;

    Иначе

        Если ТипЗнч(ОбъектВладелец) <> Тип("СправочникСсылка.Пользователи") Тогда
            ОбъектВладелец = Справочники.Пользователи.ПустаяСсылка();
        КонецЕсли;

    КонецЕсли;

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

и вроде операторы понятны, а как непонятно однако
вернее непривычно и как-то грубо, нет красоты что ли...


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.