Имя: Пароль:
1C
1С v8
Не отображается код карты в форме.
0 Zombi
 
30.04.13
08:15
Конфигурация УТ 10.3, загружаю дисконтные карты из экселя. Есть такой нехитрый код:

   ВидДисконтнойКартыГазпром = Справочники.ВидыДисконтныхКарт.НайтиПоНаименованию("Газпром");
   ВидКартыШтрих = Перечисления.ВидыИнформационныхКарт.Штриховая;
   ТипКартыДисконт = Перечисления.ТипыИнформационныхКарт.Дисконтная;
   ТипШтрихКода39 = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39;
   СправочникИнфКарты = Справочники.ИнформационныеКарты;
   Для а = 1 по СтрокаКонец Цикл    
       Если а = СтрокаНачало ИЛИ а>СтрокаНачало   Тогда
   
       КодКарты = СокрЛП(Excel.Cells(а,2).Value);
   
       НоваяКарта = СправочникИнфКарты.СоздатьЭлемент();
       НоваяКарта.Наименование = КодКарты;
       НоваяКарта.ВидДисконтнойКарты = ВидДисконтнойКартыГазпром;
       НоваяКарта.ВидКарты = ВидКартыШтрих;
       НоваяКарта.ТипШтрихКода = ТипШтрихКода39;
       НоваяКарта.КодКарты = Строка(КодКарты);
       НоваяКарта.ТипКарты = ТипКартыДисконт;
       НоваяКарта.Записать();
   
       Сообщить(СокрЛП(Excel.Cells(а,2).Value));    
           
       КонецЕсли;
   КонецЦикла;

Карты загружаются, но когда открываю форму элемента карты, поле "КодКарты" пустое, хотя запросом вижу что у карт реквизит "КодКарты" заполнен. Что за засада?
1 Wobland
 
30.04.13
08:16
поле не связано с данными
2 Zombi
 
30.04.13
08:18
А, все нашел в процедуре "ПриОткрытии":

   Если ВидКарты = Перечисления.ВидыИнформационныхКарт.Штриховая Тогда
       ЭлементыФормы.ТекущийКодКарты.Данные = "ШтрихКодКарты";
   Иначе
       ЭлементыФормы.ТекущийКодКарты.Данные = "КодКарты";
   КонецЕсли;
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс