Welcome to Forums Sign in | Join | Help | Forums
in Search





Make the world a better place.

ASSIGNEDSOLICITOR_fld_SOLICITOR_NAME

Last post 08-17-2009 11:26 AM by Dwaraka Peddireddy. 1 replies.
Page 1 of 1 (2 items)
Sort Posts: Previous Next
  • 08-04-2009 10:36 AM

    ASSIGNEDSOLICITOR_fld_SOLICITOR_NAME

    Can any one tell me how to get to that field?. Like If I want Constituent_id then Here is my code.

      Dim objConstituent As CRecord

    Set objConstituent = oRecord

    objConstituent.Init REApplication.SessionContext
        
    Constituent_ID = objConstituent.Fields(RECORDS_fld_CONSTITUENT_ID)

    I appreciate any help on this.

  • 08-17-2009 11:26 AM In reply to

    Re: ASSIGNEDSOLICITOR_fld_SOLICITOR_NAME

    I found the solution from blackbaud. Here it is.

      Dim oAssignedSolicitors As CAssignedSolicitors2
        Dim oAssignedSolicitor As CAssignedSolicitor2
        Dim blnSolicitorFound As Boolean
        Dim strAssignedSolicitor As String
       
        strAssignedSolicitor = ""
        Set oAssignedSolicitors = New CAssignedSolicitors2
          
       With oAssignedSolicitors
           'Load the Assigned solicitors for the constituent record
           .Init REApplication.SessionContext, Val(objConstituent.Fields(RECORDS_fld_ID)), bReadOnly:=True

           'Loop through the constituents
           For Each oAssignedSolicitor In oAssignedSolicitors
               If Not blnSolicitorFound Then
                    With oAssignedSolicitor
                          If UCase(.Fields(ASSIGNEDSOLICITOR2_fld_SOLICITOR_TYPE)) = "STAFF" Then
                             strAssignedSolicitor = .Fields(ASSIGNEDSOLICITOR2_fld_SOLICITOR_NAME)
                             blnSolicitorFound = True
                         End If
                        .Closedown
                    End With
               End If
           Next oAssignedSolicitor
           Set oAssignedSolicitor = Nothing

           .Closedown
       End With

       Set oAssignedSolicitors = Nothing

     

Page 1 of 1 (2 items)