P_ProcOrdMgmtGoodsMovement

@AbapCatalog.sqlViewName: 'PPORGDMVMT'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
//@EndUserText.label: 'Process order goods movement'

@ClientHandling.algorithm: #SESSION_VARIABLE
@ObjectModel.usageType: {serviceQuality: #D, sizeCategory: #XL, dataClass: #MIXED}
@VDM.viewType:  #COMPOSITE
@VDM.private: true
define view P_ProcOrdMgmtGoodsMovement
  as select from I_MaterialDocumentRecord as _Document
//    inner join P_ProcOrdAORListDistinct   as _AORList            on _Document.ManufacturingOrder      = _AORList.OrderID

//    inner join I_LogisticsOrder         as _ManufacturingOrder on  _AORList.OrderID      = _ManufacturingOrder.OrderID

      inner join I_LogisticsOrder         as _ManufacturingOrder on  _Document.OrderID      = _ManufacturingOrder.OrderID
                                                                 and _ManufacturingOrder.OrderCategory = '40'
{
  key   _Document.MaterialDocument,

  key   _Document.MaterialDocumentYear,

  key   _Document.MaterialDocumentItem,

        _Document.ManufacturingOrder      as ProcessOrder,

        _ManufacturingOrder.OrderCategory as ManufacturingOrderCategory,

        _ManufacturingOrder.OrderType     as ManufacturingOrderType,

        _ManufacturingOrder.Plant         as ProductionPlant,

        _ManufacturingOrder.ProductionSupervisor,

        _Document.Plant,
        _Document._Plant.PlantName,

        _Document.GoodsMovementType,

        _Document.PostingDate,

        _Document.QuantityInBaseUnit,

        _Document.Batch,

        _Document.Plant                   as PlantForEdit,

        _Document.Material                as MaterialForEdit,

        _Document.Batch                   as BatchForEdit,

        _Document.StorageLocation,
        _Document._StorageLocation.StorageLocationName,

        case _Document.CreationTime when '240000' then
        cast(cast(concat(_Document.CreationDate,cast('235959' as tims))as abap.numc(15)) as timestamp)
        else
        cast(cast(concat(_Document.CreationDate , _Document.CreationTime)as abap.numc(15)) as timestamp)
        end                               as CreationDateTime,

        _Document.MaterialBaseUnit        as BaseUnit,


        _ManufacturingOrder._OrderCategory,
        _ManufacturingOrder._OrderType,
        _ManufacturingOrder._Plant,
        _ManufacturingOrder._ProductionSupervisor
}
where
  _ManufacturingOrder.OrderCategory = '40'