2017-01-17 6 views
0

私のテストプランには2つのフォルダがあります。 1つはすべてのアクティブなテストケースで、もう1つはアーカイブされたすべてのテストケースです。私は多くの「影響を受けたモジュール」をある値から別の値に置き換える必要がありますが、アーカイブされたフォルダには影響を与えたくありません。特定のフォルダ内のすべてを置換してください

したがって、HP ALMの特定のフォルダ(およびすべてのサブフォルダ)のみを検索して置き換える方法はありますか?

私が知る限り、グリッドビューの検索と置換機能は値のすべてのインスタンスを置き換えますので、私はそれを直接使用することはできません。

+0

1つの値を別の値に置き換えたとすると、詳細セクションのフィールドまたは設計ステップまたは設計パラメータですか? – Barney

+0

ショート:詳細セクションのフィールド更新。 Long:テスト計画 - >複数のフォルダのテストケース - >詳細 - >影響モジュールこのリストには、テストケースの影響を受けるモジュールを識別する一連の "値"(文字列)が含まれています。この値を変更したい変更したい値がリストに存在します。 例:影響を受けるモジュールでは、2つの値がチェックされます。 「限定」と「標準」。私はそれが "反応的"と "標準的"であることを望んでいます。 「影響を受けるモジュール」のリストで「制限付き」から「応答型」に変更する方法 – MSJ

答えて

0

ここでは、フォルダのすべてのテストケースとそのサブフォルダQuotingのフィールドts_user_04を更新する簡単なOTAコードを示します。

必要に応じて列名を変更してください。アクセスできる場合は、[管理]タブに移動してHP ALMの任意のフィールドのDB列を簡単に見つけることができます。それ以外の場合でも、OTAを使用してすべてのマッピングを取得できます。

INORDER OTAコードを実行するために(私はあなたが必要なアクセス権を持っていることを望みます)、あなたはALM接続アドインあなたのALMのホームページで[ツール]セクションから

をそれを得ることができたをインストールする必要があります
Public TDconnection 
Public reqPath 
Public testPath 

'Call the main Function 
updateAllTests 



Public Function login() 
    Dim almURL, almUserName, almPassword, domain, project 
    almURL = "https://.saas.hp.com/qcbin/" 

    almUserName = "" 
    almPassword = "" 
    domain = "" 
    project = ""  
    testPath = "Subject\Automated" ' Change it as per your folder structure 

    Set TDconnection = CreateObject("tdapiole80.tdconnection") 
    TDconnection.ReleaseConnection 
    TDconnection.InitConnectionEx almURL 
    TDconnection.login almUserName, almPassword 
    TDconnection.Connect domain, project 

End Function 


Public Function updateAllTests() 
    login 
    Set TreeMgr = TDconnection.TreeManager 
    Set TestTree = TreeMgr.NodeByPath(testPath) 
    If Err.Number = 0 Then 
     Set comm = TDconnection.Command 
     comm.CommandText = "update test set ts_user_04='Quoting' where ts_test_id in (select ts_test_id from test, all_lists where ts_subject in (select al_item_id from all_lists where al_absolute_path like (select al_absolute_path from all_lists where al_item_id=" & TestTree.NodeID & ") || '%') and ts_subject = al_item_id)" 
     comm.Execute 
    End If 
    logout 
    MsgBox "Flag Update successful", vbInformation 
End Function 

Public Function logout() 
    TDconnection.Disconnect 
    TDconnection.logout 
    TDconnection.ReleaseConnection 
    Set TDconnection = Nothing 
End Function 
+0

回答ありがとうございました。私はコードを実行するために必要なアクセス権を持っていませんが、私が探していたものと思われます。私はあなたの答えを正しいものとして受け入れます。サイドノート:これは本当にALMの機能ではありませんか? – MSJ

関連する問題