Retrieving Contacts by Modification Date

[thatch]

Language VB.net

How does one construct a filter to retrieve contacts that have been modified after a specific date?
I've tried all kinds of stuff but have not been successful. Anyway, here's the piece of code that I have
and all I need is the filter criteria construct. Does anyone know how to do this???

Here's the code.

Dim MyFilterCriteria As Act.Framework.IFilterCriteria
Dim cfdModificationDate As ContactFieldDescriptor = ACTFM.Contacts.GetContactFieldDescriptor("TBL_CONTACT.EDIT_DATE", True)
Dim dLastModification as Date

dLastModification = cDate("1/1/2008") ' Let's get any contacts that have been modified after Jan 1, 2008


'
' HOW DOES ONE CONSTRUCT THE FILTER CRITERIA TO RETRIEVE THE CONTACTS????
' The filter criteria for MyFilterCriteria should be defined here.

ACT_Contact_List = ACTFM.Contacts.GetContacts(Nothing, MyFilterCriteria)

[Carlton_J…]

Working up an example.

However just taking a quick look at your code snippet you need to be using EDITDATE not EDIT_DATE since EDIT_DATE is the alias of the field and EDITDATE is the 'real' name.

[thatch]

Thanx Carlton. I'll change the field name to EDITDATE. I just joined this newsgroup and it is really nice to have someone like you answering questions. It makes developing code for ACT! so much enticing and easier for us. It is a win-win situation. Thanx. T

[Carlton_J…]

T,

This should be an example of how this should work.

Let me know if you run into any problems as I am investigating a possible issue with this

---

try

{

    ContactFieldDescriptor cfd1 = ActFwk.Contacts.GetContactFieldDescriptor("TBL_CONTACT.EDITDATE", true);

    SortCriteria[] sCriteria ={ new SortCriteria(cfd1, ListSortDirection.Descending) };

    ContactList cList;

    System.DateTime d1;

    System.DateTime d2;

    d1 = System.DateTime.Parse("01/01/1980");

    d2 = System.DateTime.Parse("12/31/2007");

    IFilterCriteria[] oFilterCriteria = { new DateFilterCriteria(cfd1, d1, d2) };

    cList = ActFwk.Contacts.GetContacts(sCriteria, oFilterCriteria);

        ///Continue your code ....

}

catch (Exception ex)

{

    MessageBox.Show(ex.ToString());

}

---

Message Edited by Carlton_Jones on 03-26-2008 10:51 AM

[nbohne]

Heh, teasing VB developers with C# code, I love it ;-)

[thatch]

Sheraton, Thanx for the code. I'll give it a try. T

[Carlton_J…]

This better?

I make no guarantees on if this will work.

I've used an online C#.NET to VB.NET converter

Try 
    Dim cfd1 As ContactFieldDescriptor = ActFwk.Contacts.GetContactFieldDescriptor("TBL_CONTACT.EDITDATE", true)
    Dim sCriteria() As SortCriteria
    New SortCriteria(cfd1, ListSortDirection.Descending)
    
    Dim cList As ContactList
    Dim d1 As Date
    Dim d2 As Date
    d1 = System.DateTime.Parse("01/01/1980")
    d2 = System.DateTime.Parse("12/31/2007")
    MessageBox.Show((cfd1.ColumnName + (" " + cfd1.Name)))
    Dim oFilterCriteria() As IFilterCriteria
    New DateFilterCriteria(cfd1, d1, d2)
    
    cList = ActFwk.Contacts.GetContacts(sCriteria, oFilterCriteria)
Catch ex As Exception
    MessageBox.Show(ex.ToString)
End Try

Message Edited by Carlton_Jones on 03-26-2008 01:59 PM

[nbohne]

I only use VB when I have to, which isn't that often, but it looks fine to me =)

[Thatch2]

I tried numerous instances of this code to no avail. The best I could come up with is:

        Dim cfd1 As ContactFieldDescriptor = ACTFM.Contacts.GetContactFieldDescriptor("TBL_CONTACT.EDITDATE", True)

        Dim MyACTGuid As System.Guid
        Dim ACT_Filter_Criteria(1) As Act.Framework.IFilterCriteria
        Dim dStartFilter As Date
        Dim dEndFilter As Date

        dStartFilter = System.DateTime.Parse("1/1/1900")
        dEndFilter = System.DateTime.Parse("1/1/2050")

        ACT_Filter_Criteria(0) = New Act.Framework.DateFilterCriteria(cfd1, dStartFilter, dEndFilter)

        MyACTList = ACTFM.Contacts.GetContacts(Nothing, ACT_Filter_Criteria)

The code below should return all data that has been modified since 1900 (which is everything in the database. However, it returns 0. Can SOMEONE tell me what is wrong with this code and/or how to make an iFilterCriteria work in VB.Net?

Thanx in advance.

Tom

[mwood]

Here is another working version in c# -- I figured I'd post this for now, and I should be able to get a translation up here soon but it might take a bit as I don't really use vb

ContactFieldDescriptor ContactField = afw.Contacts.GetContactFieldDescriptor("TBL_CONTACT.EDITDATE", Act.Framework.MutableEntities.FieldNameType.Real);
IFilterCriteria[] CriteriaRay = new IFilterCriteria[1];
DateTime StartDate = System.DateTime.Parse("1/1/1900");
DateTime endDate = System.DateTime.Parse("1/1/2050");
CriteriaRay[0] = new Act.Framework.DateFilterCriteria(ContactField, StartDate, endDate);
ContactList cl = afw.Contacts.GetContacts(null, CriteriaRay);