Thursday, 27 October 2016

dialog modifyfield -:
==================================================================================================
class declaration:-
------------------------------------------
class mahesh_ModifyDialogField extends RunBasebatch
{
    CustAccount CustId;

    DialogField dialogCustId;

    DialogField dialoglName;

    Dialog dialog;

}
==================================================================================================
Dialog:-
------------------------------------------
protected Object dialog()
{

    ;

    dialog = super();

    dialogCustId = dialog.addFieldValue(extendedTypeStr(CustAccount),"Customer","Customer");

    dialoglName = dialog.addFieldValue(extendedTypeStr(Name),"Name","Name");

    return dialog;
}
==================================================================================================
dialogPostRun()
--------------------------------------------------------
public void dialogPostRun(DialogRunbase tmpdialog)
{

    super(tmpdialog);

    tmpdialog.dialogForm().formRun().controlMethodOverload(true);

    tmpdialog.dialogForm().formRun().controlMethodOverloadObject(this);

}
==================================================================================================
filed_modified:-
-------------------------------------------------------
public boolean fld1_1_modified()
{

    FormStringControl control = dialog.formRun().controlCallingMethod();

    boolean isFieldModified;

    ;

    isFieldModified = control.modified();

    if(isFieldModified)

    {

    dialoglName.value(custTable::find(control.text()).Name());

    }

    return isFieldModified;

}
-------------------------------------------------------------------------------------------------------------------
main()
------------------------------------
static void main(Args args)
{

   mahesh_ModifyDialogField mah_ModifyDialogField = new mahesh_ModifyDialogField();

    ;

    if (mah_ModifyDialogField.prompt())
    {

    mah_ModifyDialogField.run();
    }

}
PO Inquiry
------------------------------
inqueiry using dynamic query:-

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


init method:-
-----------------------------------------------------------------------------------------


public void init()
{
    super();
    delete_from M_purchTemp;
}


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



clicked method:-
-----------------------------------------------------------------------------------------
void clicked()
{
    Query query;
    QueryBuildDataSource qbds;
    QueryBuildRange qbr;
    QueryRun qr;
    void clicked()
{
    Query query;
    QueryBuildDataSource qbds;
    QueryBuildRange qbr,qbr1,qbr2;
    QueryRun qr;
    PurchTable purchTable;
    M_purchTemp obj;



    str var;
    str id;

    super();
    delete_from m_purchTemp;

        query   =   new query();
        qbds    =   Query.addDataSource(tableNum(purchTable));
        var     =   M_purchTemp_InvoiceAccount.valueStr();
        id      =   M_purchTemp_PurchId.valueStr();
   
        qbr     =   qbds.addRange(fieldNum(purchTable,invoiceAccount));
        qbr1    =   qbds.addRange(fieldNum(purchTable,PurchId));
        qbr2    =   qbds.addRange(fieldNum(purchTable,PurchStatus));
       
        qbr.value(var);
        qbr1.value(id);
        qbr2.value(queryValue(any2enum(M_purchTemp_PurchStatus1.selection())));

        qr=new QueryRun(query);
     while(qr.next())
     {
        purchTable            =     qr.get(tableNum(PurchTable));
        obj.InvoiceAccount    =     purchTable.InvoiceAccount;
        obj.VendGroup         =     purchTable.VendGroup;
        obj.Name              =     purchTable.PurchName;
        obj.DocumentStatus    =     purchTable.DocumentStatus;
        obj.PurchStatus       =     purchTable.PurchStatus;
        obj.PurchId           =     purchTable.PurchId;
        obj.insert();
    }

    M_purchTemp_ds.refresh();
     M_purchTemp_ds.research();
     //M_purchTemp_ds.reread();


}
public boolean validateField(FieldId _fieldIdToCheck)
{
    boolean ret;
    M_StudentTable stu;
    TextBuffer txt = new TextBuffer();
    str msg;
    //msg = this.Name;
    //txt.regularExpressions(true);
    //txt.Appendtext(this.name);
    //if(txt.find("^[A-Z]+$"))
    //{
        //stu.Name=this.Name;
    //}
    //else
//
        //throw error ("String contains only alphabets");
//
       ret = super(_fieldIdToCheck);
       if (ret)
       {
        switch (_fieldIdToCheck)
        {
            case fieldNum(M_StudentTable,Sub1):
            if(this.sub1 < 0)
            ret=checkFailed("Marks shoud not less than 0");

            else

            if(this.sub1 >50)
            ret=checkFailed("Marks shoud not exceed more than 50");
            break;

            case fieldNum(M_StudentTable,Sub2):
            if(this.sub2 < 0)
            ret=checkFailed("Marks shoud not less than 0");
            else

            if(this.Sub2 >50)
            ret=checkFailed("Marks shoud not exceed more than 50");
            break;

            case fieldNum(M_StudentTable,Name):
               msg = this.Name;
              // txt.regularExpressions(true);
               txt.Appendtext(this.name);
               if(txt.find("^[A-Z]+$"))
            {
                if(strLen(msg)<3)
                {
                   ret =checkFailed ("please enter more than 2 characters names");
                   break;
                }
                else
               stu.Name=this.Name;
            }
               else

                throw error ("Please Enter only alphabets");

                break;
           }
        }
           return ret;
        }
Date Formats in Reports:-

="From date: " & Format(First(Fields!Startdate.Value, "SKS_InvestmentDetails"),"MM/dd/yyyy")


="To date:" & Format(First(Fields!EndDate.Value, "SKS_InvestmentDetails"),"MM/dd/yyyy")
CustTable custtable;
    SalesTable salestable;
    MCustTable mcusttable;
    MSalesTable msalestable;
    CustTrans   custtrans;

    container ct;
    ct = ['USMF','DEMF'];


    //while select AccountNum from custtable
    //index hint AccountIdx
//{
    //info(strFmt("%1",custtable.AccountNum));
//}
//

    //while select  crossCompany : ct AccountNum from custtable
    //{
        //info(strFmt("%1 %2",custtable.dataAreaId,custtable.AccountNum));
    //}
    //
    info(custtable.dataAreaId);
    changeCompany ("DEMF")
    {
        custtable =null;
        while select AccountNum from CustTable
        {
        info(strFmt("%1 %2",custtable.AccountNum,custtable.dataAreaId));
        }
    }
    //ttsBegin;
    //while select forupdate MCustName from MCustTable
            //where mcusttable.MCustName == "abc"
    //{
        //mcusttable.MCustName = "ABC";
        //mcusttable.update();
        //info(strfmt("%1",mcusttable.McustName));
    //}
    //ttsCommit;

    //while select custtable order by CustGroup desc
    //{
        //info(strFmt("%1",custtable.CustGroup));
    //}


    //while select salestable order by CustAccount desc
    //{
        //info(strFmt("%1",salestable.CustAccount));
    //}

    //while select sum(CreditMax) from custtable where custtable.AccountNum == "US-040"
    //{
        //info(strFmt("%1 %2",custtable.AccountNum,custtable.CreditMax));
    //}

    //while select sum(CreditMax) from custtable order by CustGroup where custtable.CustGroup == "10"
    //{
        //info(strFmt("%1,%2",custtable.CustGroup,custtable.CreditMax));
    //}

    //while select sum(CreditMax) from custtable group by CustGroup order by CustGroup desc
    //{
        //info(strFmt("%1,%2",custtable.CustGroup,custtable.Creditmax));
    //}
//
    //info(strFmt("____________________"));
//
    //while select minof(AccountNum) from custtable
    //{
        //info(strFmt ("%1,%",custtable.AccountNum));
    //}
//
SalesOrder inquiry

public void init() //in data source level
{
    super();
    delete_from M_SalesTemp;
}
------------------------------------------------------------------------------------
void clicked()
{
    SalesTable salesTable;
    M_SalesTemp obj;
    SalesStatus salesStatus;
    CustAccount custAccount;
    super();

    delete_from M_SalesTemp;

    custAccount = M_SalesTemp_CustAccount1.valueStr();
    salesStatus = M_SalesTemp_SalesStatus1.selection();
     if (custAccount&&salesStatus)
    {
        ttsBegin;
        while select salesTable where salesTable.CustAccount == custAccount
                && salesTable.SalesStatus == salesStatus
        {
                obj.SalesId         =   salesTable.SalesId;
                obj.CustAccount     =   salesTable.CustAccount;
                obj.CustGroup       =   salesTable.CustGroup;
                obj.SalesStatus     =   salesTable.SalesStatus;
                obj.DocumentStatus  =   salesTable.DocumentStatus;
                obj.DeloveryDate    =   salesTable.DeliveryDate;
                obj.insert();
        }
        ttsCommit;
    }

        else if(custAccount)
    {
        ttsBegin;
        while select salesTable where
                salesTable.CustAccount == custAccount
        {
                obj.SalesId         =   salesTable.SalesId;
                obj.CustAccount     =   salesTable.CustAccount;
                obj.CustGroup       =   salesTable.CustGroup;
                obj.SalesStatus     =   salesTable.SalesStatus;
                obj.DocumentStatus  =   salesTable.DocumentStatus;
                obj.DeloveryDate    =   salesTable.DeliveryDate;
                obj.insert();
        }
        ttsCommit;
    }
        else if (salesStatus)
    {
        ttsBegin;
        while select salesTable where
                salesTable.SalesStatus == salesStatus
        {
                obj.SalesId         =   salesTable.SalesId;
                obj.CustAccount     =   salesTable.CustAccount;
                obj.CustGroup       =   salesTable.CustGroup;
                obj.SalesStatus     =   salesTable.SalesStatus;
                obj.DocumentStatus  =   salesTable.DocumentStatus;
                obj.DeloveryDate    =   salesTable.DeliveryDate;
                obj.insert();
        }
        ttsCommit;
    }

    M_SalesTemp_ds.refresh();
    M_SalesTemp_ds.research();

    }
Dynamic Query For Sales Inquiry from 3 tables:-
=======================================================================================================================================
void clicked()
{
    Query query;
    QueryBuildDataSource qbds,qbds1,qbds2;
    QueryBuildRange qbr,qbr1,qbr2;
    QueryRun qr;
    str i,s,s1;
    SalesTable  salestab;
    SalesLine   salesnum;
    InventDim   dim;
    SalesTest   test;

    super();

    delete_from SalesTest;

    s       =  CustAccount.valueStr();
    i       =  CustGroupId.valueStr();
    s1      =  Itemid.valueStr();

    query   =   new query();
    qbds    =   Query.addDataSource(tableNum(SalesTable));
    qbr     =   qbds.addRange(fieldNum(SalesTable,CustAccount));
    qbr2    =   qbds.addRange(fieldNum(SalesTable,custgroup));

    qbds1   =   qbds.addDataSource(tableNum(SalesLine));
    qbr1    =   qbds1.addRange(fieldNum(SalesLine,ItemId));
    qbds1.relations(true);

    qbds2   =   qbds1.addDataSource(tableNum(InventDim));
    qbds2.relations(true);
    if(s)
        qbr.value(s);
    if(i)
        qbr2.value(i);
    if(s1)
        qbr1.value(s1);

    qr=new QueryRun(query);

    while(qr.next())
    {
    salestab        =  qr.get(tableNum(SalesTable));
    dim             =  qr.get(tableNum(InventDim));
    salesnum        =  qr.get(tableNum(SalesLine));

    SalesTest.Salesid    =   salestab.SalesId;
    SalesTest.Itemid     =   salesnum.ItemId;
    SalesTest.Site       =   dim.InventSiteId;
    SalesTest.Warehouse  =   dim.InventLocationId;
    SalesTest.Custgroup  =   salesnum.CustGroup;
    SalesTest.CustAccount =  salesnum.CustAccount;
    SalesTest.CustName   =   salesnum.Name;
    SalesTest.insert();
    }

    SalesTest_ds.refresh();
    SalesTest_ds.research();
}