Заказ звонка

Закрыть

*
*
*

Программно добавить параметр номенклатуры

Страницы: 1
RSS
Программно добавить параметр номенклатуры
Здравствуйте, как программно добавить параметр номенклатуры, чтобы имитировать вот эту процедуру ссылка. Но чтобы все значения заполнялись программно. Надо сделать без вызова AppendAction в IDModule
Ссылка ведёт не на процедуру
Написал код, но параметр не записывается, вылетает ошибка.
Код:
Код
Sub FormMacro_SetParNMK666(TCSActiveModule)
    Dim NMK
    Dim Par
    Dim idNMK
    Dim ParVal
    Dim Par_id
    Dim ParNMKId
    idNMK = 630
    Par_id = 1206
    ParNMKId = 53386
    ParVal = "Значение"
    Set NMK = TCSApp.SingleNmkFromId(630)
    NMK.UserModuleName = NMK.UniqueUserModuleName               
    Set Par = NMK.Properties("Parameters").AsIDispatch
    If Par.SetParameterValueByParId(Par_id, ParVal, ParNMKId, True) Then 
    Else
        Call TCSApp.ShowMessageBox("a", CStr(idNMK) + ":" + CStr(ParVal))
    End If
    Set Par = Nothing
    Call TCSApp.DeleteModuleByUserModuleName(NMK.UserModuleName)
End Sub

Ошибка:
"Статус главного документа не позволяет редактирование номенклатуры"
Руками параметр добавляется без проблем, не понимаю в чем ошибка?
Сложно сказать не зная что это за айдишники
idNMK - айдишник номенклатуры в справочнике
Par_id - айдишник параметра который я хочу записать в номенклатуру
ParVal - это значение записываемого параметра
ParNMKId - это айдишник значения параметра в справочнике, потому что тип параметра Ссылка на справочник
с другими IDами работает?

код проверил - у меня работает.(с моими ИДами)
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)