Monday, January 16, 2012

Making string field a custom lookup on user selection

Sometimes we just compile our posts to keep the things at one place so we or someone can get it easily when we in need. This post belongs to the same concept :)

Requirement was to filter the records in grid according to the selection of base enum values from a lookup. Easy task :) but then I had to make a string field a custom lookup on selection of first value from base enum and to make it a read only on selection of second value of the base enum.

This is what I did;

Filter: modified
public boolean modified()
{
    boolean ret;
    ret = super();

    if(str2enum(enum_variable,this.valueStr()) == enum::firstvalue)
    {
        stringField.allowEdit(true);
        stringField .text(' ');
    }
    else
    {
         stringField .allowEdit(False);
         stringField .text(curuserid());                
    }
    return ret;
}

StringEdit: StringField
// This lookup is populating users 
Public void lookup()
{
    Query                   query = new Query();
    QueryBuildDataSource    queryBuildDataSource;
    QueryBuildRange         queryBuildRange;
    SysTableLookup          sysTableLookup;
    ;

    //Create an instance of SysTableLookup with the form control passed in
    sysTableLookup = SysTableLookup::newParameters(tablenum(UserInfo), this);

    //Add the fields to be shown in the lookup form
    sysTableLookup.addLookupfield(fieldnum(UserInfo, id), true);
    sysTableLookup.addLookupfield(fieldnum(UserInfo, name), false);

    //create the query datasource
    queryBuildDataSource = query.addDataSource(tablenum(UserInfo));
    queryBuildRange = queryBuildDataSource.addRange(fieldnum(UserInfo, Id));
    queryBuildRange.value(element.getusers());

    //add the query to the lookup form
    sysTableLookup.parmQuery(query);

    // Perform lookup
    sysTableLookup.performFormLookup();
}

// Method to get users
str 100 getusers()
{    
    str 100                     Users;
    ;
    While Select UsersTable where  UsersTable .UserId == Curuserid()
    {
        Select Firstonly SysCompanyUserInfo where SysCompanyUserInfo.EmplId ==  UsersTable.Emplid ;
        Users+= SysCompanyUserInfo.UserId +',';
    }
    if(!Users)
        Return '\"\"' ;

    Return Users ;
}