Prior to version 7, there was limited access to those activity and history areas in SalesLogix.  In a recent project, I had to perform a series of tasks upon completing an activity with a particular Type/Category/Result combination.  This had to be done in a 6.2.1 system.  In order to do this, I had to modify the OnCompletedActivity active script.  I wanted to briefly outline the modifications I made to this area for anyone who is running an older version of SalesLogix.

Basically, I needed to look at a completed todo activity with a certain Category, and then update the associated contact and/or opportunity status values depending on the Result of the completed activity.  I created a subroutine named "ToDoActivityOperations" which I call via the Sub Main in the OnCompletedActivity Script

Sub ToDoActivityOperations
Dim strSql, objRS

     Set objRS = objSLXDB.GetNewRecordSet

(After creating a recordset, I open a sql statement retuning ContactID, OppID, and result from the history table that have the correct activity type)

     strSql = "SELECT OPPORTUNITYID, CONTACTID, RESULT, TYPE, CATEGORY FROM HISTORY " & _
              "WHERE ACTIVITYID = '" & vActivityID & "' and type = '" & "262147" & "'"

     objRS.Open strSql, objSLXDB.Connection

(In my next step, I check to see if any records were returned.  Then I get the values from the history record)

     If objRS.RecordCount <> 0 Then
          strOpportunityID = objRS.Fields("OPPORUNITYID").Value & ""
          strContactID = objRS.Fields("CONTACTID").Value & ""
          strResult = objRS.Fields("RESULT").Value & ""

 (Based on the result value, I call additional subroutines I've written to update Opportunity and Status record values
          If lcase(result) = "rejected" Then
             If strOpportunityID <> "" Then UpdateOpportunityStatus "Closed - Rejected", strOpportunityID
             If strContactID <> "" Then UpdateContactStatus "SRL", strContactID
          Elseif lCase(result) = "accepted" Then
             If strOpportunityID <> "" Then UpdateOpportunityStatus "SAL", strOpportunityID
             If strContactID <> "" Then UpdateContactStatus "SAL", strContactID
          Else

          End If
     End If
     objRS.Close
     set objRS = nothing

End Sub

 That was all there was to it.  It would be nice to be able to edit activity and history views, but short of upgrading to the current version of SalesLogix, this at least allows some degree of control whenever activities are completed.

I hope you find this helpful.  Thanks again for reading!