Вход | Регистрация

1С:Предприятие ::

Метки:OLE и COM

Импорт в 1С

Я
   Tor
07.07.04 - 12:03
Почему при импорте данных а 1С создается "куцая" запись "Сотрудника"?
Состояние [Не принят на внутреннее совместительство]
И в диалоге Сотрудника только два поля ФИО и Код.

VB:
 Do Until rs.EOF
   empl.Новый
    empl.Код = rs.Fields(0).Value
    empl.Наименование = rs.Fields(1).Value
    empl.ДатаРождения = rs.Fields(2).Value
    empl.ИНН = rs.Fields(3).Value
    empl.СтраховойНомерПФР = rs.Fields(4).Value
    empl.Записать
    rs.MoveNext
    DoEvents
 Loop
 
  Рекламное место пустует
   SnarkHunter
 
1 - 07.07.04 - 12:04
Какой импорт такая и запись...
   Tor
2 - 07.07.04 - 12:14
пример в документацие
Процедура ВводСотрудника()
   Спр = СоздатьОбъект("Справочник.Сотрудники");
  // добавляем новый элемент справочника

   Спр.Новый();
  // Определяем реквизиты нового элемента справочника

   Спр.Наименование = ФИО;
   Спр.Код = ТН;
   Спр.Оклад = Оклад;
   Спр.Аванс = Аванс;
  // ...

  // Записываем новый элемент справочника

   Спр.Записать();
КонецПроцедуры

у меня тоже, но на VB и через OLE ...

... но почему нет полей для ввода (пустых) в диалоге сотрудника
   lexa
 
3 - 07.07.04 - 12:17
Ты к 1С через оле подключаешься?
   Tor
4 - 07.07.04 - 12:24
Да!

Set v7 = CreateObject("V77.Application")
  res = v7.Initialize(v7.RMTrade, _
    "/DD:\1C\DB\PRDemo /M /NÈâàíîâà", _

    "NO_SPLASH_SHOW")
  If res Then
    txtRes = txtRes + "ALL RIGHT !!!"
  Else
    txtRes = txtRes + "ERROR !!!"
    Exit Sub
  End If

  Dim empl As Object
  Set empl = v7.EvalExpr("CreateObject(""Справочник.Сотрудники"")")

Импорт проходит, сотрудники в справочники появляются, открываю диалог редактирования, а там одна закладка "Основное" и в ней два поля "ФИО" и "Код",
причем ФИО нередактируемое (read only)
   lexa
 
5 - 07.07.04 - 12:29
Попробуй наоборот из 1С подключись через оле
   Valery
 
6 - 07.07.04 - 12:56
В базе сотрудников есть такое поле как "Состояние", тип элемент справочника Сотрудники. Как его заполнишь, так и другие поля на форме откроются.
   Tor
7 - 07.07.04 - 17:01
а "ларчик" хитро открывался !!!
Нужно в конце цикла после
   empl.Записать
добавить
    empl.ОсновнойЭлемент = empl.ТекущийЭлемент()
   empl.Записать
и далее конец цикла
   rs.MoveNext
Loop

... "наступить себе на хвосто"

СПАСИБО Wor-у !!!


Список тем форума
Рекламное место пустует  
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует