Exemple : modification des noms d’onglet

Vous pouvez modifier les noms des onglets de la boîte de dialogue Ajouter un défaut. Cet exemple définit les onglets suivants : General, Environments et Business Case.

Ajoutez le code suivant à la procédure d’événement GetNewBugPageName, qui est déclenchée avant que ALM n’ouvre la boîte de dialogue Ajouter un défaut. Pour modifier les noms des onglets de la boîte de dialogue Détails du défaut, ajoutez un code similaire à la procédure d’événement Defects_GetDetailsPageName.

Sub Bug_New
	On Error Resume Next
		
		Bug_Fields.Field("BG_ACTUAL_FIX_TIME").PageNo = 1
		Bug_Fields.Field("BG_ESTIMATED_FIX_TIME").PageNo = 2
	
	On Error GoTo 0
End Sub

Function GetDetailsPageName(PageName,PageNum)
On Error Resume Next

if ActiveDialogName = "New Bug" then
	Select case PageNum
		case "1"
			GetDetailsPageName="General"
		case "2"
			GetDetailsPageName="Environments"
		case else
			GetDetailsPageName="Business Case"
	End Select
end if

On Error GoTo 0
End Function