1C Программирование и поддержка - [95] :: Прикладное программирование

Здравствуйте, уважаемые.
Растолкуйте мне, пожалуйста, один момент.
Когда я пытаюсь программно создать новый элемент справочника заполнив его данными из внешнего файла в данном случае dbf. То поля заполняемого элемента, имеющего тип "Строка" заполняются данными из файла. А те поля, которые имеют тип "Справочник.такой-то" ни в какую не хотят заполняться. Может я неверный метод задаю.
Конфигурация "Торговля и склад" под 7.7 (переписанная).
Собственно сам фрагмент кода:

Код:

...............................
        ЭлементСправочника = СоздатьОбъект("Справочник.ТМЦ");
        КлассЕдИзм = СоздатьОбъект("Справочник.КлассификаторЕдИзм");
        ПутьКБуф=СокрЛП(Константа.ПутьДляОбмЦентрМаг);
...............................
...............................
        Если ФС.СуществуетФайл("tmcmigr.dbf")=0 Тогда
        Предупреждение ("В константах не указан путь для буфера обмена между Центром и информационной базой");
        Возврат;
        КонецЕсли;

        ДБФ.ОткрытьФайл(ПутьКБуф +"tmcmigr.dbf");
        ДБФ.ПоказыватьУдаленные(0);
        Для Ном=1 По ДБФ.КоличествоЗаписей() Цикл
        ДБФ.Перейти(Ном);
        НаимТМЦИмп=СокрЛП(ДБФ.NAME);
        НаимЕдИзм = СокрЛП(ДБФ.BAZED);
        Если ЭлементСправочника.НайтиПоНаименованию(НаимТМЦИмп,0,1) = 1 Тогда
          Продолжить;
        Иначе
        ЭлементСправочника.Новый();
        ЭлементСправочника.Наименование = ДБФ.NAME;
        Если СокрЛП(ДБФ.VIDTMC) = "Товар" Тогда
        ЭлементСправочника.ВидТМЦ = Перечисление.ВидыТМЦ.Товар;
        Иначе Предупреждение ("Элемент '"+Наименование+"' в центральной базе опреден не как товар. Вам необходимо провести сверку и откорректировать данный элемент должным образом");
        КонецЕсли;

ЭлементСправочника.Артикул = СокрЛП(ДБФ.ARTIKUL);
     ЭлементСправочника.Вес = СокрЛП(ДБФ.VES);
     ЭлементСправочника.СтавкаНДС = СокрЛП(ДБФ.STNDS);
     ЭлементСправочника.ТипТМЦ = СокрЛП(ДБФ.TIPTMC);
ЭлементСправочника.Производитель = СокрЛП(ДБФ.PROIZVOD);
     ЭлементСправочника.Бренд = СокрЛП(ДБФ.BREND);
     ЭлементСправочника.ПодБренд = СокрЛП(ДБФ.PODBREND);
     ЭлементСправочника.ТипФасовки = СокрЛП(ДБФ.TIPFAS);
     ЭлементСправочника.Записать();

КонецЕсли;
КонецЦикла;

P.S. Жирным шрифтом выделены те поля ввода по которым привязан Тип "Справочник".
Спасибо.

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101