Имя: Пароль:
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 Тогда
    Для каждого Стр Из Статусы Цикл
        Элементы.РасшифровкаПлатежаСтатусСоставителя.СписокВыбора.Добавить(стр.Ключ,Стр.Значение);
    
    КонецЦикла;
    КонецЕсли;
        Элементы.РасшифровкаПлатежаСтатусСоставителя.СписокВыбора.СортироватьПоЗначению(НаправлениеСортировки.Возр);
        Элементы.РасшифровкаПлатежаСтатусСоставителя.СписокВыбора.ПоказатьВыборЭлемента(
        //Элементы.РасшифровкаПлатежа.ТекущийЭлемент;
        Значение=Элементы.РасшифровкаПлатежа.ТекущийЭлемент;    
        ЗаписатьЗначение(Значение);
    КонецПроцедуры
    
    Функция ЗаписатьЗначение(Значение)
        ТЧ=Объект.РасшифровкаПлатежа;
        Для каждого Стр из ТЧ
            Цикл
            Стр.СтатусСоставителя=Строка(Значение);
            КонецЦикла;
    КонецФункции    
    
Вот в конце по идее надо же в объект записать выбранное значение, уже голову сломала)))  при работе с документом, дает выбрать из списка значение, затем записываю документ, затем открываю документ-а поле очищенное! нет никакого значение которое выбирала из списка выбора, помогите плиз кто знает как это решить...
Заранее всем спасибо!
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn