Pages

Banner 468 x 60px

 

Wednesday, November 22, 2017

Get record args with menuitem in x++

0 comments
Get record args with menuitem in x++ :
 


Lihat Callernya !!!!


protected void afterOperationEnd()
{
    // start-dxl-ESLOG010TransferOrder-2013-05-29-01-58-pm
    PurchLine             purchLine;
    TECTransferOrderTable TECTransferOrderTable;
    boolean               updateStatus = true;

    // ADD by tyo
    PurchParmLine localPurchParmLine;
    MenuFunction menu = new MenuFunction(menuitemOutputStr(TECProductReceipt_WithRemarkQty_auto), MenuItemType::Output);
    Args    _args = new Args();
    // END by tyo

    ;

    if (this.purchTable().InterCompanyOrder == NoYes::Yes)
    {
        while select purchLine
            where purchLine.PurchId == this.purchTable().PurchId
        {
            if (purchLine.QtyOrdered != purchLine.receivedInTotalServer())
            {
                updateStatus = false;
                break;
            }
        }

        if (updateStatus)
        {
            changecompany(this.purchTable().InterCompanyCompanyId)
            {
                changeCompany(SalesTable::find(this.purchTable().InterCompanyOriginalSalesId).TECTransferOrderDataAreaId)
                {
                    update_recordSet TECTransferOrderTable
                        setting TECTransferStatus = TECTransferStatus::Received,
                                TECReceiptDate    = systemDateGet()
                        where TECTransferOrderTable.TECRelationId == this.purchTable().InterCompanyOriginalSalesId;
                }
            }
        }
    }
    // end-dxl-ESLOG010TransferOrder-2013-05-29-01-58-pm

    //start-BGS-EDD Indent Order
    //SalesLine::updateIndentOrderStatusPO(this.purchTable().PurchId);
    //end-BGS-EDD Indent Order
 
    // Add By Tyo
    select localPurchParmLine where localPurchParmLine.ParmId == this.parmId();
    if(tidPrintProductReceipt && localPurchParmLine)
    {
        _args.record(localPurchParmLine);       
        menu.run(_args);       
    }
    // End By Tyo   
   
      super();
}


0 comments:

A financial dimension value is based on the LAND-00013 record and has been used on a transaction. You cannot delete the LAND-00013 record AX 2012

 A financial dimension value is based on the LAND-00013 record and has been used on a  transaction. You cannot delete the LAND-00013 record ...