Form using methods

public class FormRun extends ObjectRun

{

     ASAP_DeliveryNoteHeader      tmpHeader;

     QueryBuildRange              qrDocumentNum;

}

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

public void close()

{

     ASAPG_DeliveryNote  _reportId;

    ANA_DeliveryListTmp updateHeader;

    str value;

    super();

     _reportId = ASAP_DeliveryNoteLines.ReportId;

    select forUpdate updateHeader where updateHeader.ReportId == _reportId;

    if(updateHeader)

    {

        ttsBegin;

            updateHeader.Remarks             = ASAP_DeliveryNoteLines.Remarks ;

            updateHeader.DeliverdBy          = ASAP_DeliveryNoteLines.DeliverdBy;

            updateHeader.DeliveryPhoneNum    = ASAP_DeliveryNoteLines.DeliveryPhoneNum ;

            updateHeader.DeliveryDate        = ASAP_DeliveryNoteLines.DeliveryDate;

            updateHeader.Helper              = ASAP_DeliveryNoteLines.Helper ;

            updateHeader.VehicleNo           = ASAP_DeliveryNoteLines.VehicleNo ;

            updateHeader.Bag                 = ASAP_DeliveryNoteLines.Bag;

            updateHeader.Carton              = ASAP_DeliveryNoteLines.Carton;

            updateHeader.Palette             = ASAP_DeliveryNoteLines.Palette ;

            updateHeader.Gunny               = ASAP_DeliveryNoteLines.Gunny;

            updateHeader.Others              = ASAP_DeliveryNoteLines.Others;

            updateHeader.BagQty              = ASAP_DeliveryNoteLines.BagQty;

            updateHeader.CartonQty           = ASAP_DeliveryNoteLines.CartonQty;

            updateHeader.GunnyQty            = ASAP_DeliveryNoteLines.GunnyQty;

            updateHeader.OthersQty           = ASAP_DeliveryNoteLines.OthersQty;

            updateHeader.PaletteQty          = ASAP_DeliveryNoteLines.PaletteQty;

            updateHeader.BuyerName           = ASAP_DeliveryNoteLines.BuyerName;

            updateHeader.Address             = ASAP_DeliveryNoteLines.Address;

            //updateHeader.Area                = ASAP_DeliveryNoteLines.Area;

            updateHeader.Country             = ASAP_DeliveryNoteLines.Country;

            updateHeader.BuyerPhoneNum       = ASAP_DeliveryNoteLines.BuyerPhoneNum;

            updateHeader.ShippingMark        = ASAP_DeliveryNoteLines.ShippingMark;

            updateHeader.ImportantNotes      = ASAP_DeliveryNoteLines.ImportantNotes;

            updateHeader.ConsignmentDetails  = ASAP_DeliveryNoteLines.ConsignmentDetails;

            updateHeader.CargoName           = ASAP_DeliveryNoteLines.CargoName;

            updateHeader.ContactPerson       = ASAP_DeliveryNoteLines.ContactPerson;

            updateHeader.Location            = ASAP_DeliveryNoteLines.Location;

            updateHeader.ContactPersonNum    = ASAP_DeliveryNoteLines.ContactPersonNum;

            updateHeader.ContainerNo         = ASAP_DeliveryNoteLines.ContainerNo;

            updateHeader.ContactPersonNum    = ASAP_DeliveryNoteLines.ContactPersonNum;

            updateHeader.update();

        ttsCommit;

    }

}

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

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 == 'WMSWarehouseManager' || securityRole.AotName == '-SYSADMIN-' || securityRole.AotName == 'TradeSalesClerk' );

        if( securityRole.AotName == '-SYSADMIN-' )

        {

             EditButton.visible(true);

        }

        else

        {

             EditButton.visible(false);

        }

        if( securityRole.AotName == 'TradeSalesClerk' )

        {

              SaveButton.visible(false);

        }

        else

        {

             SaveButton.visible(true);

        }

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

}

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

public int active()

{

    int ret;

    ASAP_DeliveryNoteHeader _header;

    ret = super();

    select _header where _header.ReportId == ASAP_DeliveryNoteLines.ReportId ;

     if(ASAP_DeliveryNoteHeader.WHSaveLine == NoYes::yes) // curUserId() != 'ADMIN')

    {

         ASAP_DeliveryNoteLines_ds.allowEdit(false);

         ASAP_DeliveryNoteLines_ds.allowDelete(false);

         ASAP_DeliveryNoteLines_ds.allowCreate(false);

    }

    else

    {

         ASAP_DeliveryNoteLines_ds.allowEdit(true);

         ASAP_DeliveryNoteLines_ds.allowDelete(true);

         ASAP_DeliveryNoteLines_ds.allowCreate(true);

    }

    //ASAP_VATHeader_DocumentNum.allowEdit(false);

    return ret;

}

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

public void init()

{

    super();

    qrDocumentNum = this.query().dataSourceNo(1).addRange(fieldNum(ASAP_DeliveryNoteHeader,ReportId));

}

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

public int active()

{

    int                      ret;

    Name                     docNo;

    ASAP_DeliveryNoteHeader _header;

    ret = super();

    select _header where _header.ReportId == ASAP_DeliveryNoteLines.ReportId ;

    if(ASAP_DeliveryNoteHeader.WHSaveLine == NoYes::No)

    {

        SaveButton.enabled(true);

    }

    else

    {

        SaveButton.enabled(false);

    }

    return ret;

}

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

public void executeQuery()

{

    qrDocumentNum.value(ReportId.valueStr());

    super();

}

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

public void lookup()

{

    SysTableLookup          sysTableLookup  = SysTableLookup::newParameters(tablenum(ASAP_DeliveryNoteHeader), this);

    Query                   query           = new Query();

    QueryBuildDataSource    qbds;

    QueryBuildRange         qbr;

    ;

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

    sysTableLookup.addLookupfield(fieldnum(ASAP_DeliveryNoteHeader, ReportId ));

   // sysTableLookup.addLookupfield(fieldnum(ASAP_DeliveryNoteHeader, CustAccount ));

   // qbds.clearRange(fieldNum(ASAP_DeliveryNoteHeader, ReportId ));

    sysTableLookup.parmQuery(query);

    sysTableLookup.performFormLookup();

}

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

public boolean modified()

{

    boolean ret;

    ret = super();

    ASAP_DeliveryNoteLines_ds.research();

    return ret;

}

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

void clicked()

{

    super();

    tmpHeader.data(ASAP_DeliveryNoteHeader);

    select forUpdate ASAP_DeliveryNoteHeader where

      ASAP_DeliveryNoteHeader.ReportId == ASAP_DeliveryNoteLines.ReportId;

     {

        ASAP_DeliveryNoteHeader.WHSaveLine    = NoYes::No;

     }

    ASAP_DeliveryNoteHeader_ds.executeQuery();

    ASAP_DeliveryNoteHeader_ds.findRecord(tmpHeader);

    ASAP_DeliveryNoteHeader_ds.setCurrent();

}

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

public void lookup()

{

    SysTableLookup          sysTableLookup  = SysTableLookup::newParameters(tablenum(ASAP_DeliveryNoteHeader), this);

    Query                   query           = new Query();

    QueryBuildDataSource    qbds;

    QueryBuildRange         qbr;

    ;

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

    sysTableLookup.addLookupfield(fieldnum(ASAP_DeliveryNoteHeader, ReportId ));

    sysTableLookup.parmQuery(query);

    sysTableLookup.performFormLookup();

}

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

public boolean modified()

{

    boolean ret;

    ret = super();

    ASAP_DeliveryNoteHeader_ds.executeQuery();

    ASAP_DeliveryNoteLines_ds.executeQuery();

    return ret;

}

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

void clicked()

{

    super();

    tmpHeader.data(ASAP_DeliveryNoteHeader);

    asap_deliverynoteheader.WHSaveLine = noyes::yes;

    asap_deliverynoteheader_ds.executequery();

    asap_deliverynoteheader_ds.findrecord(tmpheader);

    asap_deliverynoteheader_ds.setcurrent();

}

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