Exhibit BOM number code

/****
The following X++ code was used to exhibit BOM number
Remark by Jimmy August 27th 2010
*/

Class name QVS_ExhibitBOM

/****
The following X++ code was used to exhibit BOM number
Remark by Jimmy August 27th 2010
*/
class QVS_ExhibitBOM
{
    int             i;

    Real           NetConsum;
}

 The method of ParmExhibitBOM

 

void ParmExhibitBOM(ItemId     _ItemId = "") //Exhibit standard BOM method
{
     query                           q;
     queryRun                        queryRun;
     QueryBuildDataSource            qbdsIT,qbdsVersion,qbdsBOM;
     InventTable                     _InventTable;
     BOM                             _BOM;
     BomVersion                      _BomVersion;
;
     q  = new query();

     qbdsIT  = q.addDataSource(tablenum(InventTable));

     if(_ItemId)
        qbdsIT.addRange(fieldnum(InventTable,Itemid)).value(_ItemId);
     qbdsIT.addRange(fieldnum(InventTable,Itemtype)).value(queryValue(ItemType::BOM));

     qbdsVersion = qbdsIT.addDataSource(tablenum(BomVersion));
     qbdsVersion.addLink(fieldnum(InventTable,ItemId),fieldnum(BomVersion,ItemId));
     qbdsVersion.addRange(fieldnum(BomVersion,Active)).value(queryValue(Noyes::Yes));
     qbdsVersion.addRange(fieldnum(BomVersion,Approved)).value(queryValue(Noyes::Yes));

     qbdsBOM = qbdsVersion.addDataSource(Tablenum(BOM));
     qbdsBOM.addLink(fieldnum(BomVersion,BomId),fieldnum(BOM,BomId));

     queryRun = new QueryRun(q);
     while (queryRun.next())
     {
         _BOM          = queryRun.get(tablenum(BOM));
         _InventTable  = queryRun.get(tablenum(InventTable));
         _BomVersion   = queryRun.get(tablenum(BomVersion));

         i             = 1;
         if(_BOM.BOMQtySerie)
            NetConsum = _BOM.BOMQty / _BOM.BOMQtySerie;
         else if(_BOM.BOMQty)
            NetConsum = _BOM.BOMQty;
         else
            NetConsum = 1;

         if(Inventtable::find(_BOM.ItemID).ItemType == ItemType::BOM)//Exhibit next BOM number
         {
            this.insertConsumeListNext(_InventTable,_BOM,_BOM.BomId,_BomVersion.BOMId,i,NetConsum);
            i++;
            this.RankGetItem(_BOM.ItemId,_InventTable,i,NetConsum);
         }
         else
             this.insertConsumeListNext(_InventTable,_BOM,_BOM.BomId,_BomVersion.BOMId,i,NetConsum);//get Item number of Item type is Item
    }
}

 

The method of RankGetItem

 

void RankGetItem(ItemId             _ItemId,//finished BOM number
                 InventTable        InventTable,
                 int                level,
                 Price              _NetConsum)
{
     BOM                _bom;
     BomVersion         _bomversion;
     Inventtable        _Inventtable;
     Int                TmpLevel = 1;
;
    NetConsum  = _NetConsum;
    while select _bomversion index hint BomIdx
            where _bomversion.ItemId == _ItemId
            &&    _bomversion.Active == Noyes::Yes && _bomversion.Approved == Noyes::Yes
       join _bom index hint NumIdx
            order by BOMId where _bom.BOMId == _bomversion.BOMId
       join  _Inventtable
            where _Inventtable.ItemId ==  _bom.ItemId //&& _Inventtable.ItemType != ItemType::Service
    {
        if(_bom.BOMQtySerie)
            _NetConsum = NetConsum * (_bom.BOMQty / _bom.BOMQtySerie);
        else if(_bom.BOMQty)
            _NetConsum = NetConsum * _bom.BOMQty;
        else
            _NetConsum = NetConsum;

        if(_Inventtable.ItemType == ItemType::BOM)
        {
            this.insertConsumeListNext(InventTable,_bom,_bom.ItemId,_bomversion.BOMId,level,_NetConsum);
            TmpLevel = level + 1;
            this.RankGetItem(_bom.ItemId,InventTable,TmpLevel,_NetConsum);
        }
        else
            this.insertConsumeListNext(InventTable,_bom,_bom.ItemId,_bomversion.BOMId,level,_NetConsum);

    }
}

The method of insertConsumeListNext

void insertConsumeListNext(InventTable              _InventTable    ,//finished production
                           BOM                      _BOM            ,
                           ItemId                   _ItemId = ','   ,
                           BomId                    _BomId  = ""    ,
                           int                      _level          ,
                           Price                    _NetConsum)//BomBersion
{
    QVS_ExhibitBOMList        _ExhibitBOMList;
;
    _ExhibitBOMList.clear();

    _ExhibitBOMList.BomId           = _InventTable.ItemId;
    _ExhibitBOMList.SubBomId        = _BOM.BOMId;
    _ExhibitBOMList.ItemID          = _BOM.ItemId;
    _ExhibitBOMList.BOMVersion      = _BOMId;

    _ExhibitBOMList.BomQty          = _BOM.BOMQty;
    _ExhibitBOMList.BOMQtySerie     = _BOM.BOMQtySerie;
    if(_BOM.BOMQtySerie)
        _ExhibitBOMList.BOMUsege    = _BOM.BOMQty / _BOM.BOMQtySerie;
    else
        _ExhibitBOMList.BOMUsege    = _BOM.BOMQty;

    _ExhibitBOMList.ItemType        = _BOM.itemType();

    _ExhibitBOMList.LevelRecId      = _BOM.RecId;
    _ExhibitBOMList.NetConsumption  = _NetConsum;
    _ExhibitBOMList.Level           = _level;
    _ExhibitBOMList.flag            = StrFmt("%1 Level",_level);

    _ExhibitBOMList.insert();

}

Job demo(version)

Jimmy 2010-09-14

static void Jimmy_ExhibitBOMItemList(Args _args)
{
    InventTable InventTable,g_IT;
    BOMVersion  BOMVersion;
    Bom         SelectBom;
    Int         g_Level,_TmpLevel;
    Test        Test;
    BOM         BOM;
    ItemId      g_ItemId;
    int         MM;
    Dialog      dlg = new Dialog("Please enter the Productin Number!");
    DialogField dlgItemId = dlg.addField(typeid(ItemId));

void insertTable(BOM            _Bom,
                 InventTable    _InventTable)

{
;
    test.g_ItemId   = g_ItemId;
    test.BomId      = _Bom.BOMId;
    test.ItemId     = _Bom.ItemId;
    test.Id         = g_Level;
    test.ItemType   = _InventTable.ItemType;
    test.Insert();
    MM++;
}

void LevelBomGen(Int _level, Bom _Bom)
{
    BOM         _TmpBom;
    int         TmpLevel;
    InventTable IT;
;
    if (_level ==20)
        return;
    IT = InventTable::find(_Bom.ItemId);
    if (IT.ItemType == ItemType::BOM)
    {
        insertTable(_Bom,IT);
        g_Level++;
        while select _TmpBom where _TmpBom.BOMId == _Bom.ItemId
        {
            TmpLevel = g_Level;
            LevelBomGen(g_Level,_TmpBom);
            g_Level = TmpLevel;
        }
    }
    else
        insertTable(_Bom,IT);
}
;
    dlg.doInit();
    dlgItemId.value("20-3805");
    if(!dlg.run())
        return ;

    g_ItemId = dlgItemId.value();
    delete_from test;

    while select InventTable
            where InventTable.ItemId == g_ItemId //"20-3805"
        join BOMVersion
            where BOMVersion.ItemId == InventTable.ItemId
        join BOM
            where BOM.BOMId == BOMVersion.BOMId
    {
        g_Level = 1;
        g_IT = InventTable::find(BOM.ItemId);
        if(g_IT.ItemType == ItemType::BOM)
        {
            insertTable(BOM,g_IT);
            g_Level++;
            while select * from SelectBom where SelectBom.BOMId == BOM.ItemId
            {
                _TmpLevel = g_Level;
                LevelBomGen(g_Level,SelectBom);
                g_Level = _TmpLevel;
            }
        }
        else
            insertTable(BOM,g_IT);
    }
    info(strfmt("Total %1 records!s",MM));
}