DeadStock Items Lists

 static void DeadStock(Args _args)

{

    InventTrans         _trans,_trans1;

    InventSum           _sum;

    InventTransOrigin   _origin,_origin1;

    InventTable         _inventTable;

    TransDate           fromdate,todate ; 

    GH_DeadStockTable    deadStockTable;

    boolean             isvisible = false;

    fromdate  = mkDate(01,04,2020);

    todate    = mkDate(24,09,2020);

    

    ttsBegin;

    delete_from deadStockTable;

    ttsCommit;

    while select *  from _sum

        where   _sum.AvailPhysical   != 0

            //&&  _sum.ItemId          == 'BKK009'

    {

         select * from _trans

            join   count(RecId) from _origin

            where   _trans.DatePhysical         >= fromdate

                &&  _trans.DatePhysical         <= todate

                &&  _trans.ItemId               == _sum.ItemId

                &&  _trans.DatePhysical         != dateNull()

                &&  _trans.StatusIssue          != StatusIssue::OnOrder

                &&  _origin.RecId               == _trans.InventTransOrigin

                &&  _origin.ReferenceCategory   == InventTransType::Sales;

        if(_origin.RecId > 0)

        {

             continue;

        }

        else

        {

            deadStockTable.ItemId = _sum.ItemId;

            deadStockTable.AvailPhysical = _sum.AvailPhysical;

            deadStockTable.CostPrice = _sum.averageCostPrice();

            deadStockTable.insert();

           // info(strFmt("No transcation %1-%2-%3",_sum.ItemId,_sum.AvailPhysical,_sum.averageCostPrice()));

        }

    }

    info("Done");  

}