I am moving over some Clarify customizations to solution.asp and need to know how to determine if the solution was from a CASE or CR as shown in the code below.
Sub Form_Load()
Me.DoDefault
' get object (case or CR) passed to this form
Dim myRecord As New Record
Set myRecord = app.GetContext
If myRecord Is Nothing Then
' do nothing
Else
' if solution created from CR
If myRecord.RecordType ="bug" Then
If COBJ_finale_obj.IsNew Then '*** brand new solution ***
'do something here
End If
' if case and solution are already linked then disable the Link button
ElseIf myRecord.RecordType ="case" And solnFlag = TRUE Then
solnFlag = FALSE
Dim br As New BulkRetrieve
Dim brList As List
br.SetRoot myRecord
br.TraverseFromRoot 0, "case_soln2workaround"
br.RetrieveRecords
Set brList = br.GetRecordList(0)
If brList.Count = 0 Then
LINK_DIRECT.Enabled = TRUE
Else
LINK_DIRECT.Enabled = FALSE
End If
End If
End If
Call Soln_Addon()
End Sub
