my 1C. Полезная информация.

// Заводим общий реквизит документов "ВидДокументаКлиент"
// В Глобальном модуле.
Функция ПолучитьВнутрКод(Клиент) Экспорт
     СписокЗн = СоздатьОбъект("СписокЗначений");
     СписокЗн.ИзСтрокиСРазделителями(ЗначениеВСтрокуВнутр(Клиент));
     ИД = СписокЗн.ПолучитьЗначение(7);
     Возврат Сред(ИД,2,9);
КонецФункции
// Вызывается из документов ПриЗаписи()
Процедура глУстановитьРеквизитыОтбора(Конт) Экспорт
     Конт.ВидДокументаКлиент=Конт.Вид();
     Если глЕстьРеквизитШапки("Клиент",Конт.Вид()) = Да Тогда
          Если ПустоеЗначение(Конт.Клиент) = 0 Тогда
               Конт.ВидДокументаКлиент = СокрЛП(Конт.Вид())+СокрЛП(ПолучитьВнутрКод(Конт.Клиент));
          КонецЕсли;
     КонецЕсли;
КонецПроцедуры
// В журнале
УстановитьОтбор("ВидДокументаКлиент",ВыбВидДокумента.ПолучитьЗначение(ТС)+СокрЛП(ПолучитьВнутрКод(ВыбКлиент)));


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки