SSRS report with multi selection lookups and multi parameters of contract

// Contract

 [

DataContractAttribute,

    SysOperationContractProcessingAttribute(classStr(KAPDilutionCalcWithParametersUIBuilder))

]

class KAPDilutionCalcWithParametersContract

{

    List selectedCustAcc;

    List selectedItem;

    List selectedDiv;


 

    [

        DataMemberAttribute('selectedCustAcc'),

        SysOperationLabelAttribute("Customers"),

        SysOperationDisplayOrderAttribute('1'),

        AifCollectionTypeAttribute('return', Types::String)

    ]

    public List parmSelectedCustAcc(List _selectedCustAcc= selectedCustAcc)

    {

        selectedCustAcc = _selectedCustAcc;

 

        return selectedCustAcc;

    }


    [

        DataMemberAttribute('selectedItem'),

        SysOperationLabelAttribute("Items"),

        SysOperationDisplayOrderAttribute('2'),

        AifCollectionTypeAttribute('return', Types::String)

    ]

    public List parmSelectedItem(List _selectedItem= selectedItem)

    {

        selectedItem = _selectedItem;

 

        return selectedItem;

    }


    [

        DataMemberAttribute('selectedDiv'),

        SysOperationLabelAttribute("Divisions"),

        SysOperationDisplayOrderAttribute('3'),

        AifCollectionTypeAttribute('return', Types::String)

    ]

    public List parmSelectedDiv(List _selectedDiv= selectedDiv)

    {

        selectedDiv = _selectedDiv;

 

        return selectedDiv;

    }


}



// UI Bulider


class KAPDilutionCalcWithParametersUIBuilder extends SysOperationAutomaticUIBuilder

{

    DialogField df_Items;

    DialogField df_CustAccount;

    DialogField df_Divisions;


    SysLookupMultiSelectCtrl ctrlCustomers;

    SysLookupMultiSelectCtrl ctrlItems;

    SysLookupMultiSelectCtrl ctrlDivisions;


   

    //Override this to add dialog field

    protected DialogField addDialogField(IdentifierName _methodName, Object _dataContract = this.dataContractObject())

    {

        DialogField dialogField;


        switch (_methodName)

        {

            case methodStr(KAPDilutionCalcWithParametersContract, parmSelectedItem):

                df_Items = this.dialog().addField(extendedTypeStr(Description1000), "Items");

                dialogField = df_Items;

                break;


            case methodStr(KAPDilutionCalcWithParametersContract, parmSelectedCustAcc):

                df_CustAccount = this.dialog().addField(extendedTypeStr(Description1000), "Customers");

                dialogField = df_CustAccount;

                break;


            case methodStr(KAPDilutionCalcWithParametersContract, parmSelectedDiv):

                df_Divisions = this.dialog().addField(extendedTypeStr(Description1000), "Divisions");

                dialogField = df_Divisions;

                break;


            default:

                dialogField = super(_methodName, _dataContract);

                break;

        }


        return dialogField;

    }


    public void getFromDialog()

    {

        KAPDilutionCalcWithParametersContract dataContract = this.dataContractObject() as KAPDilutionCalcWithParametersContract;


        super();


        dataContract.parmSelectedItem(con2List(ctrlItems.getSelectedFieldValues()));

        dataContract.parmSelectedCustAcc(con2List(ctrlCustomers.getSelectedFieldValues()));

        dataContract.parmSelectedDiv(con2List(ctrlDivisions.getSelectedFieldValues()));

    }


    public void postRun()

    {

        Query         query;

        container selectedFieldsCust = [tableNum(CustTable), fieldNum(CustTable, AccountNum)];

        container selectedFieldsItem = [tableNum(InventTable), fieldNum(InventTable, ItemId)];

        container selectedFieldsDiv = [tableNum(SAKDivision), fieldNum(SAKDivision, DivisionId)];

        KAPDilutionCalcWithParametersContract dataContract = this.dataContractObject() as KAPDilutionCalcWithParametersContract;


        super();


        query     = new Query(queryStr(CustTableSRS));

        ctrlCustomers = SysLookupMultiSelectCtrl::constructWithQuery(this.dialog().dialogForm().formRun(),df_CustAccount.control(), query, false, selectedFieldsCust);

        query     = new Query(queryStr(KAPInventTableSRS));

        ctrlItems = SysLookupMultiSelectCtrl::constructWithQuery(this.dialog().dialogForm().formRun(), df_Items.control(), query, false, selectedFieldsItem);

        query     = new Query();

        Query.addDataSource(tableNum(SAKDivision));

        ctrlDivisions = SysLookupMultiSelectCtrl::constructWithQuery(this.dialog().dialogForm().formRun(), df_Divisions.control(), query, false, selectedFieldsDiv);


        

    }


}


Retrieve multiselection values from contract


 str divListStr;

            SAKDivisionId divId;

            SAKInventTable sakInvent;

            KAPDilutionCalcWithParametersTable  parmTableDiv;

            divList = new ListIterator(selectedDiv);

            while (divList.more())

            {

                divId = divList.value();

                if(divId)

                {

                    insert_recordset parmTableDiv(AccountNum,ItemId)

                    select CustAccount,ItemId from IntrestAllocationTable

                         group by IntrestAllocationTable.CustAccount,IntrestAllocationTable.ItemId

                    exists join  sakInvent

                        where sakInvent.DivisionId == divId

                         &&   sakInvent.ItemId == IntrestAllocationTable.ItemId;

                }

                divList.next();

            }

Comments

Post a Comment

Popular posts from this blog

Get voucher transactions,settlement , and other details from customer , invocie other posted transactions via GJentry and subledger entry

   //From here the code is common for all posted transactions if Project invoice one then we need to join with projinvoicejour instead of vendinvoicejour like this way GeneralJournalAccountEntry accEntry; SubledgerVoucherGeneralJournalEntry subGjEntry ;  LedgerDimensionPreviewTmp   ledgerDimensionPreviewTmpLocal; while select maxof(GeneralJournalEntry) from  subGjEntry                         where subGjEntry.AccountingDate == vendInvoiceJour.InvoiceDate                         &&     subGjEntry.Voucher ==  vendInvoiceJour.LedgerVoucher                          join sum(TransactionCurrencyAmount),LedgerDimension,maxof(Text),maxof(IsCredit) from   accEntry group by accEntry.LedgerDimension                         where accEntry.GeneralJournalEntry  == subGjEntry.GeneralJournalEntry                         &&  accEntry.PostingType != LedgerPostingType::VendBalance                         &&  accEntry.PostingType != LedgerPostingType::InterunitCredit              
Read more

Logistics address, postal address, address phone fax contact information

// Find primary address by roles  LogisticsPostalAddress postalAddr;  postalAddr = DirParty::findPostalAddressByRole(DirPartyTable::find(companyInfo::find().PartyNumber).RecId,LogisticsLocationRoleType::Invoice); Get Description/ name of location LogisticsLocation::find(postalAddrInvoice.Location).Description // Find contact information (Generic one) DirPartyContactInfoView contactInfoView; contactInfoView = DirPartyContactInfoView::find(partyRecId, _location); // Find primary address by roles regardless primary or not public  LogisticsPostalAddress getPostalAddressByType(DirPartyRecId _party, LogisticsLocationRoleType _type)     {         DirPartyLocation        partyLocation;         DirPartyLocationRole    partyLocationRole;         LogisticsLocation       location;         LogisticsLocationRole   locationRole;         LogisticsPostalAddress  postalAddress;         select firstonly postalAddress         exists join location             where location.RecId == postalAddress.Location
Read more

Get Ledger journal transactions payment marked invoices for posted and non posted

// Code from customer payment journal report --CustPaymentJournalDP     private LedgerJournalTable ledgerJournalTable;     private LedgerJournalTable tmpLedgerJournalTable;     private LedgerJournalTrans ledgerJournalTrans;     private LedgerJournalTrans tmpLedgerJournalTrans;     private CustTrans tmpCustTrans;     private CustTrans custTrans;     private CustTransOpen custTransOpen;     private CustSettlement custSettlement;     private SpecTrans specTrans;     private LedgerJournalId lastJournalNum;     private AccountNum lastAccountNum;     private Amount sumPaymSettleAmountCur;     private CustPaymentJournalTmp custPaymentJournalTmp;     private RecId ledgerJournalTransRecId;     private Query query;  while (qr.next())         {             tmpLedgerJournalTable = qr.get(tmpLedgerJournalTable.TableId);             this.insertDataFromLedgerJournalTable();             tmpLedgerJournalTrans = qr.get(tmpLedgerJournalTrans.TableId);             this.insertDataFromLedgerJournalTrans();
Read more