Добавление нового свойства в карточку доп командой навигатора

for each SelectCard in SelectionIDs
   Set CardData = UserSession.CardManager.CardData(SelectCard)
   Set oProp = CardData.Sections(CardData.Type.Sections.GetByAlias("Properties").ID)
   Set oContrProp = oProp.FindRow("@Name = 'Контрагент'")
   if oContrProp is nothing then
      Set oContrProp = oProp.Rows.AddNew()
      oContrProp.Value("Name") = "Контрагент"
      oContrProp.Value("ParamType") = 11
' ... и т.д. - остальные поля
   end if
next
'Взято с форума forum.idoc.ru