P_CreditLimitUtilizationBseg1

//@EndUserText.label: 'Customer Credit Utilization BSEG 1'

@ClientHandling.algorithm: #SESSION_VARIABLE
@AbapCatalog.sqlViewName: 'PCREDLIMUTLBSEG1'
@VDM.private:true
@VDM.viewType: #COMPOSITE
@AccessControl.authorizationCheck:  #NOT_REQUIRED
//@ObjectModel.representativeKey: ['CreditSegment' , 'BusinessPartner']

define view P_CreditLimitUtilizationBseg1
  with parameters
    P_ReadLineItem : read_fiar_lineitems
  as select from I_ReceivablesPayablesItem as irpi

  // get BusinessPartner for Customer

    inner join   I_Customer on irpi.Debtor = I_Customer.Customer

  association [0..1] to I_CreditControlArea as _CreditControlArea on $projection.CreditControlArea = _CreditControlArea.CreditControlArea
{
  case
    when _CreditControlArea._CreditControlArea2Segment.CreditSegment <> ''
      then cast( _CreditControlArea._CreditControlArea2Segment.CreditSegment as abap.char(10) )
  //      else '0000'

    end                                                                  as CreditSegment,

  ////    cast( I_Customer.BusinessPartner as abap.char(10)) as BusinessPartner,

  I_Customer._CustomerToBusinessPartner._BusinessPartner.BusinessPartner as BusinessPartner,

  irpi.Debtor,
  irpi.CreditControlArea,

  irpi.AccountingDocument,
  irpi.FiscalYear,
  irpi.SpecialGLCode,
  irpi._SpecialGLCode.CreditLimitIsChecked, //T074U-KLIMP Indicator: Take into Account for Credit Limit


  case
    when irpi.SpecialGLCode <> '' then '300'
    else '200'
  end                                                                    as comm_typ,

  FinancialAccountType,
  TransactionCurrency,
  AmountInTransactionCurrency,

  :P_ReadLineItem                                                        as XBSEG
}
where
          FinancialAccountType                                        =  'D'
  and     irpi.CreditControlArea                                      is not initial
  and     _CreditControlArea._CreditControlArea2Segment.CreditSegment <> ''
  and(
          ClearingDate                                                =  '00000000'
  )
  and(
    (
          irpi.SpecialGLCode != ''
      and irpi._SpecialGLCode.CreditLimitIsChecked                    =  'X'
    )
    or    irpi.SpecialGLCode                                          =  ''
  )
//  or ClearingDate > :P_ExchangeRateDate )      // nötig????

//and NetDueDate <= :P_ExchangeRateDate     // nötig????

//and AccountingDocumentCategory = ''    //??? nötig???  H_BSTAT

/*+[internal] {
"BASEINFO":
{
"FROM":
[
"I_BUSINESSPARTNER",
"I_CREDITCONTROLAREA",
"I_CREDITCONTROLAREA2SEGMENT",
"I_CUSTOMER",
"I_CUSTOMERTOBUSINESSPARTNER",
"I_RECEIVABLESPAYABLESITEM",
"I_SPECIALGLCODE"
],
"ASSOCIATED":
[
"I_CREDITCONTROLAREA"
],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/