В начало

Процедура «Ввод на основании»

 

Процедура ВводНаОсновании (ДокОсн)

   Если ДокОсн.Вид () = "Счет" Тогда

      НазначитьВид (Контрагент, " Организации");

   Иначе

      НазначитВид (Контрагент, "Сотрудники");

   КонецЕсли;

   Форма.Контрагент.НеИзменятьВид (1);

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