Имя: Пароль:
1C
 
Самописка выбор значения из списка выбора
0 anisa8310
 
01.04.15
11:12
Добрый день!
Пишем и вот, не могу понять как мне записать выбранное значение из списка выбора в значение реквизита табличной части?
&НаКлиенте
Процедура РасшифровкаПлатежаСтатусСоставителяНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

    
    Статусы = Новый Соответствие; // Ключ - код, Значение - представление; используем соответствие, чтобы проще описывать изменения в версиях класссификатора
    
    // Старые правила
    
    Статусы.Вставить("01", "01 - налогоплательщик (плательщик сборов) - юридическое лицо");
    Статусы.Вставить("02", "02 - налоговый агент");
    Статусы.Вставить("03", "03 - организация федеральной почтовой связи, оформившая расчетный документ на перечисление в бюджетную систему Российской Федерации платежей, уплачиваемых физическими лицами");
    Статусы.Вставить("04", "04 - налоговый орган");
    Статусы.Вставить("05", "05 - территориальные органы Федеральной службы судебных приставов");
    Статусы.Вставить("06", "06 - участник внешнеэкономической деятельности - юридическое лицо");
    Статусы.Вставить("07", "07 - таможенный орган");
    Статусы.Вставить("08", "08 - плательщик иных платежей, осуществляющий перечисление платежей в бюджетную систему Российской Федерации (кроме платежей, администрируемых налоговыми органами)");
    Статусы.Вставить("09", "09 - налогоплательщик (плательщик сборов) – индивидуальный предприниматель");
    Статусы.Вставить("10", "10 - налогоплательщик (плательщик сборов) – нотариус, занимающийся частной практикой");
    Статусы.Вставить("11", "11 - налогоплательщик (плательщик сборов) – адвокат, учредивший адвокатский кабинет");
    Статусы.Вставить("12", "12 - налогоплательщик (плательщик сборов) – глава крестьянского (фермерского) хозяйства");
    Статусы.Вставить("13", "13 - налогоплательщик (плательщик сборов) – иное физическое лицо – клиент банка (владелец счета)");
    Статусы.Вставить("14", "14 - налогоплательщик, производящий выплаты физическим лицам (п.п. 1 п.1 ст. 235 Налогового кодекса Российской Федерации)");
    Статусы.Вставить("15", "15 - кредитная организация, оформившая расчетный документ на общую сумму на перечисление в бюджетную систему Российской Федерации платежей, уплачиваемых физическими лицами без открытия банковского счета");
    Статусы.Вставить("16", "16 - участник внешнеэкономической деятельности - физическое лицо");
    Статусы.Вставить("17", "17 - участник внешнеэкономической деятельности - индивидуальный предприниматель");
    Статусы.Вставить("18", "18 - плательщик таможенных платежей, не являющийся декларантом, на которого законодательством Российской Федерации возложена обязанность по уплате таможенных платежей");
    Статусы.Вставить("19", "19 - организации, оформившие расчетный документ на перечисление на счет органа Федерального казначейства денежных средств, удержанных из заработка (дохода) должника - физического лица в счет погашения задолженности по таможенным платежам");
    Статусы.Вставить("20", "20 - кредитная организация, оформившая расчетный документ по каждому платежу физического лица на перечисление таможенных платежей, уплачиваемых физическими лицами без открытия банковского счета");
    
    Если Истина Тогда
        
        Статусы.Вставить("03", "03 - организация федеральной почтовой связи, составившая распоряжение по каждому платежу физического лица");
        Статусы.Вставить("08", "08 - юридическое лицо (индивидуальный предприниматель), уплачивающее страховые взносы и иные платежи");
        Статусы.Вставить("14", "14 - налогоплательщик, производящий выплаты физическим лицам");
        Статусы.Вставить("15", "15 - кредитная организация (филиал кредитной организации), платежный агент, организация федеральной почтовой связи, составившие платежное поручение на общую сумму с реестром");
        Статусы.Вставить("19", "19 - организации, переводящие средства, удержанные из заработной платы на основании исполнительного документа");
        Статусы.Вставить("20", "20 - кредитная организация (филиал кредитной организации), платежный агент, составившие распоряжение по каждому платежу физического лица");
        Статусы.Вставить("21", "21 - ответственный участник консолидированной группы налогоплательщиков");
        Статусы.Вставить("22", "22 - участник консолидированной группы налогоплательщиков");
        Статусы.Вставить("23", "23 - органы контроля за уплатой страховых взносов");
        Статусы.Вставить("24", "24 - физическое лицо, уплачивающее страховые взносы и иные платежи");
        Статусы.Вставить("25", "25 - банки – гаранты, составившие распоряжение о переводе денежных средств в бюджетную систему Российской Федерации за плательщика суммы налога на добавленную стоимость, излишне полученной им (зачтенной ему) в результате возмещения налога на добавленную стоимость в заявительном порядке, а также по уплате акцизов, исчисленных по операциям реализации подакцизных товаров за пределы территории Российской Федерации, и акцизов в размере авансового платежа акцизов по алкогольной и (или) подакцизной спиртосодержащей продукции");
        Статусы.Вставить("26", "26 - учредители (участники) должника, собственники имущества должника – унитарного предприятия или третьи лица, составившие распоряжение на погашение задолженности по обязательным платежам, включенным в реестр требований кредиторов, в ходе процедур, применяемых в деле о банкротстве");
        
    КонецЕсли;
Если  Элементы.РасшифровкаПлатежаСтатусСоставителя.СписокВыбора.Количество()=0 Тогда
    Для каждого Стр Из Статусы Цикл
        Элементы.РасшифровкаПлатежаСтатусСоставителя.СписокВыбора.Добавить(стр.Ключ,Стр.Значение);
    
    КонецЦикла;
    КонецЕсли;
        Элементы.РасшифровкаПлатежаСтатусСоставителя.СписокВыбора.СортироватьПоЗначению(НаправлениеСортировки.Возр);
        Элементы.РасшифровкаПлатежаСтатусСоставителя.СписокВыбора.ПоказатьВыборЭлемента(
        //Элементы.РасшифровкаПлатежа.ТекущийЭлемент;
        Значение=Элементы.РасшифровкаПлатежа.ТекущийЭлемент;    
        ЗаписатьЗначение(Значение);
    КонецПроцедуры
    
    Функция ЗаписатьЗначение(Значение)
        ТЧ=Объект.РасшифровкаПлатежа;
        Для каждого Стр из ТЧ
            Цикл
            Стр.СтатусСоставителя=Строка(Значение);
            КонецЦикла;
    КонецФункции    
    
Вот в конце по идее надо же в объект записать выбранное значение, уже голову сломала)))  при работе с документом, дает выбрать из списка значение, затем записываю документ, затем открываю документ-а поле очищенное! нет никакого значение которое выбирала из списка выбора, помогите плиз кто знает как это решить...
Заранее всем спасибо!