R_CRDTMACCTRELATIONSHIPTP

@EndUserText.label: 'Cred. Mgmt Account Relationship'

@AbapCatalog: { sqlViewName:            'RCRDTACCTRELTP',
                compiler.compareFilter: true
              }

@ObjectModel: { usageType: { dataClass:      #MASTER,
                             sizeCategory:   #L,
                             serviceQuality: #A
                           }
              }

@VDM: { viewType:                #TRANSACTIONAL, 
        lifecycle.contract.type: #SAP_INTERNAL_API
      }

@ClientHandling: { type:      #INHERITED,
                   algorithm: #SESSION_VARIABLE
                 }

@AccessControl: { authorizationCheck:    #CHECK,                //Authority checks in ABAP, DCL present but effects nothing

                  personalData.blocking: #BLOCKED_DATA_EXCLUDED //data privacy, hide data from blocked business partners

                }
@Consumption.dbHints: [ 'USE_HEX_PLAN' ]

//define view R_CrdtMAcctRelationshipTP

//Transactional-Processing-View must be part of a BO - however, this view cannot be part of a BO unless we have the composition at the parent.

//We can not have the composition since we don't want this hierarchy as part of the RAP draft.

//Solution: Associate to the hierarchy, have a new (non-hierarchic) node in the BO that becomes part of the draft


/*+[hideWarning] { "IDS" :  [ "KEY_CHECK" ] } */
define root view R_CrdtMAcctRelationshipTP
  as select distinct from I_BPRelationship

//  association        to parent R_CreditMgmtAccountTP as _CreditMgmtAccountTP  on  $projection.BusinessPartner = _CreditMgmtAccountTP.BusinessPartner

//                                                                              and $projection.CreditSegment   = _CreditMgmtAccountTP.CreditSegment

                                                                              
//////  association [1..1] to R_CreditMgmtAccountTP as _CreditMgmtAccountTP  on  $projection.BusinessPartner = _CreditMgmtAccountTP.BusinessPartner

//////                                                                       and $projection.CreditSegment   = _CreditMgmtAccountTP.CreditSegment                                                                              


  association [1..1] to I_CrdtMBusinessPartner       as _CrdtMBusinessPartner on  $projection.ActiveBusinessPartner = _CrdtMBusinessPartner.BusinessPartner
  association [0..1] to I_BusinessPartner            as _BusinessPartner      on  $projection.BusinessPartner = _BusinessPartner.BusinessPartner
  association [0..1] to I_CreditManagementSegment    as _CreditSegment        on  $projection.CreditSegment = _CreditSegment.CreditSegment
{
          //View with only virtual fields

  key     cast('' as ukm_bp_hierarchy_parent_id)                                         as CrdtMgmtBPHierarchyNode,
  key     cast('          ' as bu_partner preserving type)                               as BusinessPartner,
          @ObjectModel.foreignKey.association: '_CreditSegment'
  key     cast('          ' as ukm_credit_sgmnt preserving type )                        as CreditSegment,
          cast('' as ukm_bp_hierarchy_node_id)                                           as CrdtMgmtBPHierarchyParentNode,

          cast('          ' as bu_partner preserving type)                               as CrdtMHigherLevelBusPartner,
          @Semantics.booleanIndicator: true
          cast('' as xfeld preserving type)                                              as BusinessPartnerIsSelected,
          @ObjectModel.foreignKey.association: '_CrdtMBusinessPartner'
          cast('          ' as bu_partner preserving type)                               as ActiveBusinessPartner,

          cast(0  as abap.int4)                                                          as HierarchyLevel,
          cast('                      ' as ukm_bp_hierarchy_drill_state preserving type) as HierarchyDrillState,
          cast(0  as abap.int4)                                                          as HierarchyNodeTreeSize,
          cast(0  as abap.int1)                                                          as HierarchyNodeIsCycleEndPoint,

          // Expose associations

          _CrdtMBusinessPartner, // to BP in credit mgmt for every BP in the hierarchy

          _BusinessPartner,      // for DCL

          _CreditSegment         // for CDL


//////          //to parent - active BP and active credit segment

//////          _CreditMgmtAccountTP

}