Form Controlling Methods to Approve the Grid Lines

public class FormRun extends ObjectRun
{
    ImageListAppl agingIndicatorImageList;
}
---------------------
public void init()
{

    super();

    agingIndicatorImageList = new ImageListAppl();//_CustCollections();
    AgingIndicator.imageList(agingIndicatorImageList.imageList());
    AgingIndicator1.imageList(agingIndicatorImageList.imageList());


}
---------------------
public int active()
{
        #Admin
        UserInfo                userInfo, userInfoAdmin;
        SecurityUserRole        userRole;
        SecurityRole            securityRole;
        boolean                 permission;

        int ret;

        ret = super();


  select * from userInfo
        where userInfo.id == curUserId();

    select * from userInfoAdmin
        where userInfoAdmin.id == #AdminUser
            && userInfoAdmin.RecId == userInfo.RecId;


    ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , ApprovalStatus)).allowEdit(ApprovalStatus.selection() == NoYes::No);
    ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , DeliveryStatus)).allowEdit(DeliveryStatus.selection() == NoYes::No);


    while select userRole
        where userRole.User == curUserId()//'shakeer'//'yawer'//curUserId() //'abhilash'
            join securityRole where securityRole.RecId == userRole.SecurityRole
    {

       if(securityRole.AotName == 'TradeSalesClerk') //'ASAPG_Sales_Executive' )
      {
          ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , DeliveryStatus)).allowEdit(false);
           ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , ApprovalStatus)).allowEdit(false);
       }

       else if(securityRole.AotName == 'WMSWarehouseManager' )

        {
            ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , ApprovalStatus)).allowEdit(false);
            ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , DeliveryStatus)).enabled(true);
        }
        else if(securityRole.AotName == 'LedgerAccountant' )
        {

            ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , DeliveryStatus)).allowEdit(false);
            ANA_DeliveryListTmpHist_ds.object(fieldNum(ANA_DeliveryListTmpHist , ApprovalStatus)).enabled(true);

        }


    }
    return ret;
}


----------------------
public display ImageRes showAgingIndicator(ANA_DeliveryListTmpHist _Datasource)
{
      int iconIndex;
      #ResAppl
      ;

      if(_Datasource.ApprovalStatus == NoYes::Yes)
      {
          iconIndex = agingIndicatorImageList.image(#ImageOverlayYes);
       }
       else
       {
          iconIndex = agingIndicatorImageList.image(#ImageOverlayNo);
       }


      return  iconIndex;
}
----------------
public display ImageRes showAgingIndicator1(ANA_DeliveryListTmpHist _Datasource)
{
      int iconIndex;
      #ResAppl
      ;

      if(_Datasource.DeliveryStatus == NoYes::Yes)
      {
          iconIndex = agingIndicatorImageList.image(#ImageOverlayYes);
       }
       else
       {
          iconIndex = agingIndicatorImageList.image(#ImageOverlayNo);
       }
      return  iconIndex;
}
-------------------
public void executeQuery()
{

    Query qry = new Query();
    QueryRun qr;

    QueryBuildDataSource qbdsDeliveryListTable = this.query().dataSourceTable(tableNum(ANA_DeliveryListTmpHist));
    QueryBuildRange qbrReportIdStatus;
    QueryBuildRange qbrDeliveryStatus;


    qbdsDeliveryListTable.enabled(true);
    qbrReportIdStatus = SysQuery::findOrCreateRange(qbdsDeliveryListTable,fieldnum(ANA_DeliveryListTmpHist, ApprovalStatus));
     qbrReportIdStatus.status(RangeStatus::Locked);

    if(ApprovalStatus.selection() == NoYes::No)
        qbrReportIdStatus.value(enum2str(NoYes::No));
    else
        qbrReportIdStatus.value(enum2str(NoYes::Yes));

    qbrDeliveryStatus = SysQuery::findOrCreateRange(qbdsDeliveryListTable,fieldnum(ANA_DeliveryListTmpHist, DeliveryStatus));
    qbrDeliveryStatus.status(RangeStatus::Locked);

    if(DeliveryStatus.selection() == NoYes::No)
        qbrDeliveryStatus.value(enum2str(NoYes::No));
    else
        qbrDeliveryStatus.value(enum2str(NoYes::Yes));


    super();



}
-------------------

public boolean modified()
{
    boolean ret;

    ret = super();
    ANA_DeliveryListTmpHist_ds.executeQuery();

    return ret;
}
------------

public boolean modified()
{
    boolean ret;

    ret = super();
    ANA_DeliveryListTmpHist_ds.executeQuery();

    return ret;
}

----------------------------