I_PrepaymentProposedLinkages

@AbapCatalog.sqlViewName                    : 'IPPMGLINK'
@AbapCatalog.compiler.compareFilter         : true
@AbapCatalog.preserveKey                    : true
@AccessControl.authorizationCheck           : #CHECK
@ClientHandling.algorithm                   : #SESSION_VARIABLE
@VDM.viewType                               : #COMPOSITE
@ObjectModel.usageType.sizeCategory         : #XL
@ObjectModel.usageType.serviceQuality       : #D
@ObjectModel.usageType.dataClass            : #MIXED
@Metadata.ignorePropagatedAnnotations       : true
@AccessControl.personalData.blocking        : #REQUIRED
@EndUserText.label                          : 'Prepayment Agreement Proposed Linkages'

define view I_PrepaymentProposedLinkages
  with parameters
    P_Currency : waers,
    P_Date     : dats

  as select from I_PreAgrmtTradingContract                          as TradingContract

  -- Allowed Contract Types from Configuration
    inner join   I_PrepayWrkCtrAllowedDocTypes                      as DocTypes            on  DocTypes.PrepaymentAgrmtWorkCenterType  = '1'
                                                                                           and DocTypes.PrepaymentAgrmtRefDocumentCat  = 'TC'
                                                                                           and DocTypes.PrepaymentAgrmtRefDocumentType = TradingContract.TradingContractType

  -- Trading Contract Items
    inner join   I_PreAgrmtTradingContractItem                      as TradingContractItem on TradingContractItem.TradingContract = TradingContract.TradingContract

  -- Material and Commodity
    inner join   I_PrepaymentMaterial                               as Material            on TradingContractItem.Material = Material.Material

  -- Amount details
    inner join   P_PrepaymentRefDocAmtDetails(P_DocCat   : 'TC',
                                              P_BusObj   : 'BUS2124',
                                              P_Currency : :P_Currency,
                                              P_Date     : :P_Date) as DocumentAmount      on  DocumentAmount.PrepaymentAgrmtWorkCenterType = DocTypes.PrepaymentAgrmtWorkCenterType
                                                                                           and DocumentAmount.PrepaymentAgrmtRefDocumentCat = DocTypes.PrepaymentAgrmtRefDocumentCat
                                                                                           and DocumentAmount.DocNumber                     = TradingContractItem.TradingContract
                                                                                           and DocumentAmount.DocumentItemNumber            = TradingContractItem.TradingContractItem
  --Extension Associations
  association [1..1] to E_TradingContract     as TradingContractExtension  on  $projection.DocNumber = TradingContractExtension.TradingContract

  association [0..*] to E_TradingContractItem as TrdgContractItemExtension on  $projection.DocNumber          = TrdgContractItemExtension.TradingContract
                                                                           and $projection.DocumentItemNumber = TrdgContractItemExtension.TradingContractItem

{
  key TradingContract.TradingContract                    as DocNumber,
  key TradingContractItem.TradingContractItem            as DocumentItemNumber,

      cast( 'BUS2124' as abap.char( 10 ) )               as PrepaymentAgrmtRefBusObject,

      TradingContract.TradingContractType                as DocumentType,

      TradingContract.Counterparty                       as Counterparty,

      TradingContract.CompanyCode                        as CompanyCode,

      TradingContract.TrdgContrApplicationStatus         as TrdgContrApplicationStatus,

      TradingContractItem.PrepaymentRefDocItmValdFromDte as PrepaymentRefDocItmValdFromDte,

      TradingContractItem.PrepaymentRefDocItmValdToDte   as PrepaymentRefDocItmValdToDte,

      TradingContractItem.Material                       as Material,

      Material.Commodity                                 as Commodity,

      @Semantics.quantity.unitOfMeasure: 'OrderQuantityUnit'
      TradingContractItem.TradingContractItemQuantity    as OrderQuantity,

      @Semantics.unitOfMeasure: true
      TradingContractItem.TrdgContractItemUnitOfMeasure  as OrderQuantityUnit,

      @Semantics.amount.currencyCode: 'PrepaymentTotalAmtCrcy'
      DocumentAmount.PrepaymentTotalAmt                  as PrepaymentTotalAmt,

      DocumentAmount.PrepaymentTotalAmtCrcy              as PrepaymentTotalAmtCrcy,

      DocumentAmount.PrepaymentDocThresholdPercent       as PrepaymentDocThresholdPercent,

      --       Unassigned Amount = ( Item Net Amount * Threshold % ) - Item Linked Amount
      @Semantics.amount.currencyCode: 'PrepaymentUnassignedAmtCrcy'
      ( DocumentAmount.PrepaymentTotalAmt
        * cast( division(  DocumentAmount.PrepaymentDocThresholdPercent, 100, 2 ) as abap.quan(3,2) ) )
        - DocumentAmount.PrepaymentAgrmtLinkAmount       as PrepaymentUnassignedAmt,

      DocumentAmount.PrepaymentTotalAmtCrcy              as PrepaymentUnassignedAmtCrcy,

      @Semantics.booleanIndicator: true
      DocumentAmount.PrepaymentTotalAmtIsFixedPrice      as PrepaymentTotalAmtIsFixedPrice,

      DocumentAmount.ExchangeRateType                    as ExchangeRateType,

      DocumentAmount.ExchangeRateDate                    as ExchangeRateDate,

      DocumentAmount.ExchangeRate                        as ExchangeRate,

      DocumentAmount.AlternativeExchangeRateType         as AlternativeExchangeRateType,

      cast( '' as abap.char( 1 ) )                       as PrepaymentDeliveryExists
}

where
  DocumentAmount.PrepaymentRequestDocNumber is initial
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"I_PREAGRMTTRADINGCONTRACT",
"I_PREAGRMTTRADINGCONTRACTITEM",
"I_PREPAYMENTMATERIAL",
"I_PREPAYWRKCTRALLOWEDDOCTYPES",
"P_PREPAYMENTREFDOCAMTDETAILS"
],
"ASSOCIATED":
[
"E_TRADINGCONTRACT",
"E_TRADINGCONTRACTITEM"
],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/