SetParameterValueByParCode, SetParameterValueByParId

Помогите, пож.

В подпрограмме делаю добавление параметра номенклатуры, а он не добавляется,
почему, не понимаю. Объясните, пожалуйста. Может что-то делаю не так?

Sub Poisk_PAR_CODE(NNN, Params, ParamPar0, ParamPar_ID0, p0, v0, z0 )
   If p0 <> "" Then         
      Params.First
      If Params.Locate("PAR_CODE", ParamPar0, 0) Then
         '  параметр найден
         If Params.Properties("PAR_VALUE").DisplayText <> p0 Then
            '  значение параметра не совпадает с Парусом - заменить
'            If Params.SetParameterValueByParId( ParamPar_ID0, p0, NNN, True ) Then
            If Params.SetParameterValueByParCode( ParamPar0, p0, 0, True ) Then
               z0 = z0 + 1
            End If   
         End If
      Else
'Call TCSApp.ShowMessageBox(" NNN ", NNN )     
         '  параметра нет - добавить
'         If Params.SetParameterValueByParId( ParamPar_ID0, p0, NNN, False ) Then
         If Params.SetParameterValueByParCode( ParamPar0, p0, 0, True ) Then
            v0 = v0 + 1
         End If   
      End If
   End If   
End Sub