QualityCenter 自定义WorkFlow代码案例 二

Sub Bug_New
 
End Sub

Sub Bug_MoveTo
 'Enter code to be executed after another bug receives focus
 ' save the status into PreviousStatus
 PreviousStatus = Fields("BG_STATUS").Value 
 StatusChanged = False
 RDCommentChanged = False

End Sub

Sub Bug_FieldChange (FieldName)
 'Enter code to be executed after a bug field is changed
 'if Status changed, then StatusChanged is TRUE
 If FieldName = "BG_STATUS" Then
  StatusChanged = True
 'if R&D Comment is changed, then RDCommendChanged is TRUE
 ElseIf FieldName = "BG_DEV_COMMENTS" Then
  RDCommentChanged = True
 End If

 'if Status is changed from Open/Researching to Rejected and no R&D Comment is entered, then prompt user to enter R&D Comment
 If StatusChanged And (PreviousStatus = "Open" Or PreviousStatus = "Researching") And (Fields("BG_STATUS").Value = "Rejected") And (Not RDCommentChanged) Then
  MsgBox "Please enter reasons in <R&D Comments>"

 'if Status is changed from MGR Action to Reschedule and no R&D Comment is entered, then prompt user to enter R&D Comment
 ElseIf StatusChanged And (PreviousStatus = "MGR Action") And (Fields("BG_STATUS").Value="Reschedule") And (Not RDCommentChanged) Then
  MsgBox "Please enter scheduled release version in <R&D Comments>"
 End If

End Sub

Function Bug_CanPost