Form Fields Controls And Lookups

public class FormRun extends ObjectRun
{
     ASAP_VATHeader      tmpHeader;

     QueryBuildRange   qrDocumentNum;
}
---------
public void init()
{
     #Admin
    UserInfo                userInfo, userInfoAdmin;
    SecurityUserRole        userRole;
    SecurityRole            securityRole;


    super();

    select userRole
        where userRole.User == curUserId()
            join securityRole
                  where userRole.SecurityRole  == securityrole.RecId &&  (securityRole.AotName == 'LedgerAccountant' || securityRole.AotName == '-SYSADMIN-');


        if( securityRole.AotName == 'LedgerAccountant' || securityRole.AotName == '-SYSADMIN-' )
        {
             EditButton.visible(true);
        }
        else
        {
           //EditButton.visible(isSystemAdministrator());
               EditButton.visible(false);
        }

       tmpHeader = element.args().record();


}
---------
public void executeQuery()
{
    qrDocumentNum.value(DocumentNumberFilter.valueStr());
    super();
}
--------
public void init()
{
    super();

    qrDocumentNum =this.query().dataSourceNo(1).addRange(fieldNum(ASAP_VATHeader,DocumentNum));
   // qrDocumentNum =this.query().dataSourceNo(1).addRange(fieldNum(ASAP_VATHeader,DocumentNum));
}
-----------
public int active()
{
    int ret;
    Name docNo;

    ret = super();


    if(ASAP_VATHeader.SaveLine == NoYes::No)
    {
        SaveButton.enabled(true);
        ASAP_VATLine_ds.allowEdit(true);
    }
    else
    {
        SaveButton.enabled(false);
        ASAP_VATLine_ds.allowEdit(false);
    }

    //for CustAccount/Name
    docNo = ASAP_VATHeader.DocumentNum;

    custAccount.text(ASAP_VATHeader::find(docNo).CustAccount);
    custName.text(ASAP_VATHeader::find(docNo).CustName);

    //ASAP_VATLine_ds.research();

    //ASAP_VATHeader_DocumentNum.enabled(true);
        //   ASAP_VATHeader_DocumentNum.allowEdit(true);

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

public int active()
{
    int ret;

    ASAP_VATHeader _header;

    ret = super();

    select _header where _header.DocumentNum == ASAP_VATLine.DocumentNum ;

    if(ASAP_VATHeader.SaveLine == NoYes::yes)// curUserId() != 'ADMIN')
    {
        ASAP_VATLine_ds.allowEdit(false);
        ASAP_VATLine_ds.allowDelete(false);
        ASAP_VATLine_ds.allowCreate(false);

    }
    else
    {
        ASAP_VATLine_ds.allowEdit(true);
        ASAP_VATLine_ds.allowDelete(true);
        ASAP_VATLine_ds.allowCreate(true);

    }

    //ASAP_VATHeader_DocumentNum.allowEdit(false);


    return ret;

}

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

public void lookup()
{
    SysTableLookup          sysTableLookup  = SysTableLookup::newParameters(tablenum(ASAP_VATHeader), this);
    Query                   query           = new Query();
    QueryBuildDataSource    qbds;
    QueryBuildRange         qbr;
    ;

   qbds =  query.addDataSource(tablenum(ASAP_VATHeader));


    sysTableLookup.addLookupfield(fieldnum(ASAP_VATHeader, DocumentNum ));

    sysTableLookup.addLookupfield(fieldnum(ASAP_VATHeader, CustAccount ));

    //qbds.clearRange(fieldNum(ASAP_VATHeader, DocumentNum ));

    sysTableLookup.parmQuery(query);
    sysTableLookup.performFormLookup();
}
--------------
public boolean modified()
{
    boolean ret;

    ret = super();

    ASAP_VATLine_ds.research();

    return ret;
}
--------------
public boolean modified()
{
    boolean ret;

    ret = super();

    ASAP_VATHeader_ds.executeQuery();

    ASAP_VATLine_ds.executeQuery();


    return ret;
}
------------
void clicked()
{
    super();

    tmpHeader.data(ASAP_VATHeader);

    select forUpdate ASAP_VATHeader where
      ASAP_VATHeader.DocumentNum == ASAP_VATLine.DocumentNum;
     {
        ASAP_VATHeader.SaveLine = NoYes::No;

     }
    ASAP_VATHeader_ds.executeQuery();
    ASAP_VATHeader_ds.findRecord(tmpHeader);
    ASAP_VATHeader_ds.setCurrent();

}
------------
void clicked()
{
    Dialog        dialog;

    DialogField   dialogText;

    super();

    tmpHeader.data(ASAP_VATHeader);

    dialog  = new Dialog("VAT Details Confirmation");
    dialog.addText("Please enter CONFIRM (in upper-case) to continue with the Entered Values");

    dialogText   = dialog.addField(extendedTypeStr(IdentifierName),"@PYL5345", "@PYL5346");

    dialog.run();

    if(dialog.closedOK())
    {
        if ( strcmp( dialogText.value(), "CONFIRM" ) == 0 )
        {
            //if ( ASAP_VATHeader.validate() )
            //{
                ASAP_VATHeader.SaveLine = NoYes::Yes;
                ASAP_VATHeader_ds.executeQuery();
                ASAP_VATHeader_ds.findRecord(tmpHeader);
                ASAP_VATHeader_ds.setCurrent();
           // }
        }
    }
}
--------------