R_ChgRecdRefVarBOMTP

@AccessControl.authorizationCheck: #MANDATORY
@EndUserText.label: 'Chg Recd Obj Ref Variant BOM'
@ObjectModel.usageType:{
 serviceQuality: #D,
 sizeCategory: #XXL,
 dataClass: #MIXED
}
@VDM.lifecycle.contract.type:#SAP_INTERNAL_API
@VDM.viewType:#TRANSACTIONAL


define root view entity R_ChgRecdRefVarBOMTP 
    as select from I_ChgRecdRefVarBOMBsc as reference_bom
    
    left outer to one join I_MaterialBOMLink     as BOMLink on  reference_bom.ChgRecRefInternalKey1 = BOMLink.BillOfMaterialCategory
                                                            and reference_bom.ChgRecRefInternalKey2 = BOMLink.BillOfMaterial
                                                            and reference_bom.ChgRecRefInternalKey3 = BOMLink.BillOfMaterialVariant
                                                            and reference_bom.ChgRecRefInternalKey4 = BOMLink.Material
    
    //association [0..1] to C_ChgRecdVarBOMVH            as _ChangeRecordVarBOMVH       on  $projection.Material                   = _ChangeRecordVarBOMVH.Material

                                                                                    //and $projection.Plant                      = _ChangeRecordVarBOMVH.Plant

                                                                                    //and $projection.BillOfMaterialVariantUsage = _ChangeRecordVarBOMVH.BillOfMaterialVariantUsage

                                                                                    //and $projection.BillOfMaterialVariant      = _ChangeRecordVarBOMVH.BillOfMaterialVariant


    association [0..1] to I_Material                   as _Material                   on  $projection.Material = _Material.Material

    association [0..1] to I_PlantStdVH                 as _Plant                      on  $projection.Plant = _Plant.Plant
  
    association [0..1] to I_BillOfMaterialUsage        as _BillOfMaterialVariantUsage on  $projection.BillOfMaterialVariantUsage = _BillOfMaterialVariantUsage.BillOfMaterialVariantUsage
                                                                                      and _BillOfMaterialVariantUsage.Language   = $session.system_language
    //association [1..1] to C_ChangeRecordItemRelBOMVH   as _ChangeRecordItemRelBOMVH   on  $projection.ChangeRecordItemRelevance = _ChangeRecordItemRelBOMVH.ChangeRecordItemRelevance

                                                                                      //and $projection.changerecordtype          = _ChangeRecordItemRelBOMVH.ChangeRecordType

    //association [0..1] to C_ChangeRecdDigSignStatusVH  as _DigSignStatusText          on  $projection.ChgRecdItmDSgntr = _DigSignStatusText.ChgRecdDigitalSignatureStatus

    
    association [0..1] to I_ChangeRecordProduct       as _ChangeRecordProduct on  $projection.Material = _ChangeRecordProduct.Product
    
                                                                                      
    association [1..1] to R_ChangeRecordHeader     as _ChangeRecord        on  $projection.ChangeRecordUUID = _ChangeRecord.ChangeRecordUUID
     
{
    key        reference_bom.ChangeRecordReferenceUUID,

            
             case
               when BOMLink.Material is null then cast(substring( reference_bom.ChangeRecordReference, 1, 40) as matnr)
               else cast(BOMLink.Material as matnr)
               end                                                      as Material,

             
             case
              when BOMLink.Plant is null then  cast(substring( reference_bom.ChangeRecordReference, 41, 4) as werks_d)
              else cast(BOMLink.Plant as werks_d)
              end                                                       as Plant,

            
             case
              when BOMLink.BillOfMaterialVariantUsage is null then cast (substring( reference_bom.ChangeRecordReference, 45, 1) as stlan)
              else cast(BOMLink.BillOfMaterialVariantUsage as stlan)
              end                                                       as BillOfMaterialVariantUsage,

            
             case
              when BOMLink.BillOfMaterialVariant is null then cast(substring( reference_bom.ChangeRecordReference, 46, 2) as stalt)
              else cast(BOMLink.BillOfMaterialVariant as stalt)

              end                                                       as BillOfMaterialVariant,

             reference_bom.ChangeRecordUUID,

             reference_bom.ChangeRecordReferenceType,
             reference_bom.ChangeRecordReferenceSubtype,
             reference_bom.ChangeRecordReference,
             reference_bom.ParentChangeRecordRefUUID,
             reference_bom.IsMainReference,
             BOMLink.BillOfMaterialCategory,
             reference_bom.ChgRecdReasonForChange,
             reference_bom.ExpdCompltnDte,
             reference_bom.ChgRecdAuthznGrpText,
             reference_bom.ChgRecdNmbrChgSts,
             _ChangeRecord.ChangeRecordType,

             reference_bom.ChangeNumber,
             @Semantics.user.createdBy: true
             reference_bom.CreatedByUser,
             reference_bom.CreationDateTime,
             @Semantics.user.lastChangedBy: true
             reference_bom.LastChangedByUser,
             reference_bom.LastChangeDateTime,

             
             reference_bom.ChangeRecordItemRelevance,
             reference_bom.ChangeRecordVirtualRefInd,

             //For BOM Navigation

             cast( BOMLink.BillOfMaterial as cs_stlnr preserving type ) as BillOfMaterial,
             reference_bom.ChangeRecordRefObjectUUID,
             
             reference_bom.ChangeRecordItemProcgStatus,
             //@ObjectModel.readOnly: true

             reference_bom.ChgRecdCurrentItemProcgStatus,
             //@ObjectModel.readOnly: true

             reference_bom.ChgRecdItmTgtSts,
             //@ObjectModel.readOnly: true

             reference_bom.ChgRecdItmDSgntr,
             
             _ChangeRecord,
             //_ChangeRecordVarBOMVH,

             _Material,
             _Plant,
             _BillOfMaterialVariantUsage,
             //_ChangeRecordItemRelBOMVH,

             //_DigSignStatusText,

             _ChangeRecordProduct
    
}