[mflitman]

Hi
This is my 1st post.
I am wanting to drop a constituent's membership using vba.
There is a previous post Adding and renewing memberships via RE API but I can't download the code in the link.

I started with the following code but am getting a bit lost in using the objects.
Is this the way to go?
In the following code, I can't set objMemDataHelper = objData (type mismatch)
What am I doing wrong?

Dim objMembership As CMembership
Dim objCurrMembershipTrans As CMembershipTransaction
Dim objData As IBBDataObject
Dim objMemDataHelper As IBBMemberDataHelper

For Each objMembership In objConstit.Memberships
Set objCurrMembershipTrans = objMembership.CurrentTransaction
Set objData = objCurrMembershipTrans
Set objMemDataHelper = objData ????
objMemDataHelper.Init REApplication.SessionContext
objMemDataHelper.DropAllMemberships (objData)

Any help gratefully received.
Thanks,
Malcolm

[DavidZ]

Malcolm,

The objData object does not implement the IBBMemberDataHelper interface. In fact as far as I can see the only object to implement this interface is the CMemberDataHelper which you can create in the normal way.

 
Dim memDataHelper as New CMemberDataHelper
Dim objMemDataHelper As IBBMemberDataHelper
 
Set objMemDataHelper = memDataHelper 
objMemDataHelper.Init REApplication.SessionContext
 
 
'Here you can work with the mem data helper interface
 
objMemDataHelper.Closedown
Set objMemDataHelper.Closedown
Set memDataHelper = Nothing

It is interesting that Blackbaud have decided to have an object whose sole purpose is to be implemented by an interface. Even the init and closedown methods are in the interface which is really unusual. It makes me think that the actual implementation of the CMemberDataHelper object has other methods that are hidden for the API version.

[mflitman]

Thanks for that David, but I still can't seem to get it to work.
My code is:

(a valid objConstit declared as CRecord is passed in)
Dim objIBBDataObject As IBBDataObject
Dim memDataHelper As CMemberDataHelper
Dim objMemDataHelper As IBBMemberDataHelper

Set memDataHelper = New CMemberDataHelper
Set objMemDataHelper = memDataHelper
objMemDataHelper.Init REApplication.SessionContext
Set objIBBDataObject = objConstit
objMemDataHelper.DropAllMemberships (objIBBDataObject)

The last line produces the "Object doesn't support this property or method" message

If I can't get this to work, I may need to go back to the drawing board and create a "Drop" transaction"
Have you done similar before?

Thanks for your help.

[DavidZ]

I have never actually used this before so I cannot comment as to whether it works or not. However I have dropped members before. I guess this is just a convenience method that allows you to enter a constituent instead of going through each member. From what I could remember you take the membership record, add a new transaction of type dropped and supply a reason. You will need to do this for all the membership records on the constituent.

David

[JeffMon]

Try this:

Public Sub DropMembership()
    Dim oC As CRecord
    Set oC = New CRecord
    oC.Init REApplication.SessionContext
    oC.Load 559 '<-- Constit system ID
    
    Dim oMemHelp As CMemberDataHelper
    Set oMemHelp = New CMemberDataHelper
    Dim oIMemHelp As IBBMemberDataHelper
    Set oIMemHelp = oMemHelp
    oIMemHelp.Init REApplication.SessionContext
    oIMemHelp.DropAllMemberships oC
    oIMemHelp.Closedown
    oC.Closedown
    Set oC = Nothing
End Sub

No need to fool around with the IBBDataObject, you can just pass in the cRecord object and it will be cast appropriately.

HTH, Jeff

[mflitman]

Thanks for that Jeff. I got DropAllMemberships to work but also want to put in a reason. Am now using the following code:

For Each objMembership In objConstit.Memberships
Set objCurrMembershipTrans = objMembership.CurrentTransaction
If objMembership.CurrentTransaction.Fields(MEMBERSHIPTRANSACTION_fld_Type) <> "Dropped" And _
objMembership.CurrentTransaction.Fields(MEMBERSHIPTRANSACTION_fld_Category) <> "Lifetime" Then
lCategory = objMembership.CurrentTransaction.Fields(MEMBERSHIPTRANSACTION_fld_Category)
sProgram = objMembership.CurrentTransaction.Fields(MEMBERSHIPTRANSACTION_fld_Program)
Set objNewMembershipTrans = objMembership.Transactions.Add
With objNewMembershipTrans
.Fields(MEMBERSHIPTRANSACTION_fld_Type) = "Dropped"
.Fields(MEMBERSHIPTRANSACTION_fld_Reason) = sReason
.Fields(MEMBERSHIPTRANSACTION_fld_Category) = lCategory
.Fields(MEMBERSHIPTRANSACTION_fld_Program) = sProgram
.Fields(MEMBERSHIPTRANSACTION_fld_ActivityDate) = Date
End With
objMembership.Save
Set objNewMembershipTrans = Nothing
objConstit.Save
Set objConstit = Nothing