@AbapCatalog.sqlViewName: 'ZV_MATERIAL'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #CHECK
@EndUserTexts.label: '材料マスタView'
@VDM.viewType: #BASIC

define view ZI_MATERIAL
  as select from mara
{
  key mara.matnr   as MaterialNumber,
      mara.mtart   as MaterialType,
      mara.mbrsh   as Industry,
      mara.matkl   as MaterialGroup,
      mara.meins   as BaseUnit,
      mara.ersda   as CreationDate,
      mara.ernam   as CreatedByUser
}

@AbapCatalog.sqlViewName: 'ZV_SALESORDER'
@AccessControl.authorizationCheck: #CHECK
@VDM.viewType: #BASIC

define view ZI_SalesOrderHeader
  as select from vbak
    inner join vbpa on  vbpa.vbeln = vbak.vbeln
                    and vbpa.posnr = '000000'
                    and vbpa.parvw = 'AG'
{
  key vbak.vbeln  as SalesOrder,
      vbak.erdat  as CreationDate,
      vbak.auart  as SalesDocumentType,
      vbak.vkorg  as SalesOrganization,
      vbak.kunnr  as SoldToParty,
      vbpa.kunnr  as Partner
}

define view ZI_MaterialWithText
  as select from mara
    left outer join makt on  makt.matnr  = mara.matnr
                          and makt.spras = $session.system_language
{
  key mara.matnr   as MaterialNumber,
      mara.mtart   as MaterialType,
      makt.maktx   as MaterialDescription
}

define view ZI_MaterialWithAssoc
  as select from mara
  association [0..1] to makt as _Text
    on  _Text.matnr  = $projection.MaterialNumber
    and _Text.spras  = $session.system_language
  association [0..*] to marc as _Plant
    on _Plant.matnr  = $projection.MaterialNumber
{
  key mara.matnr   as MaterialNumber,
      mara.mtart   as MaterialType,
      _Text,
      _Plant
}

define view ZI_InvoiceItem
  as select from vbrp
{
  key vbrp.vbeln                         as BillingDocument,
  key vbrp.posnr                         as BillingItem,
      @Semantics.amount.currencyCode: 'Currency'
      vbrp.netwr                         as NetAmount,
      @Semantics.currencyCode: true
      vbrp.waerk                         as Currency,
      @Semantics.quantity.unitOfMeasure: 'BaseUnit'
      vbrp.fkimg                         as BilledQuantity,
      @Semantics.unitOfMeasure: true
      vbrp.vrkme                         as BaseUnit
}

define view ZI_SalesOrderSummary
  as select from vbap
{
  key vbap.matnr               as MaterialNumber,
      vbap.vkorg               as SalesOrganization,
      sum(vbap.netwr)          as TotalNetAmount,
      count(distinct vbap.vbeln) as OrderCount,
      avg(vbap.netwr)          as AvgNetAmount
}
group by vbap.matnr, vbap.vkorg

define view ZI_MaterialCategory
  as select from mara
{
  key mara.matnr                          as MaterialNumber,
      case mara.mtart
        when 'FERT' then '完成品'
        when 'HALB' then '半製品'
        when 'ROH'  then '原材料'
        else 'その他'
      end                                 as MaterialTypeText,
      case
        when mara.brgew > 100 then '重量物'
        when mara.brgew > 10  then '中量物'
        else '軽量物'
      end                                 as WeightCategory
}

define view ZI_MaterialByType
  with parameters
    p_mtart : mara-mtart,
    p_matkl : mara-matkl
  as select from mara
{
  key mara.matnr   as MaterialNumber,
      mara.mtart   as MaterialType,
      mara.matkl   as MaterialGroup
}
where
  mara.mtart = :p_mtart
  and mara.matkl = :p_matkl

SELECT *
  FROM ZI_MaterialByType( p_mtart = 'FERT', p_matkl = '001' )
  INTO TABLE @DATA(lt_material).

@MappingRole: true
define role ZI_Material {
  grant select on ZI_MATERIAL
    where (mara.mandt) = aspect pfcg_auth(M_MATE_MAR, ACTVT, '03');
}

@OData.publish: true
@AbapCatalog.sqlViewName: 'ZV_MAT_ODATA'
@AccessControl.authorizationCheck: #CHECK

define view ZI_Material_OData
  as select from mara
{
  key mara.matnr   as MaterialNumber,
      mara.mtart   as MaterialType,
      mara.matkl   as MaterialGroup,
      mara.meins   as BaseUnit
}

@AccessControl.authorizationCheck: #CHECK
@EndUserTexts.label: '材料エンティティ'

define view entity ZI_Material_Entity
  as select from mara
{
  key mara.matnr   as MaterialNumber,
      mara.mtart   as MaterialType,
      mara.matkl   as MaterialGroup,
      mara.meins   as BaseUnit,
      mara.ersda   as CreationDate
}

define view ZI_CustomerWithText
  as select from kna1
    left outer join kna1t on  kna1t.kunnr = kna1.kunnr
                           and kna1t.spras = $session.system_language
{
  key kna1.kunnr   as Customer,
      kna1.land1   as Country,
      kna1t.name1  as CustomerName
}

define view ZI_SalesOrderWithTotal
  as select from vbak
    inner join vbap on vbap.vbeln = vbak.vbeln
{
  key vbak.vbeln              as SalesOrder,
      vbak.kunnr              as SoldToParty,
      sum(vbap.netwr)         as TotalAmount,
      count(vbap.posnr)       as ItemCount
}
group by vbak.vbeln, vbak.kunnr, vbak.erdat

define view ZI_ActiveCondition
  as select from konp
    inner join konm on konm.knumh = konp.knumh
{
  key konp.knumh   as ConditionRecord,
      konp.kbetr   as ConditionRate,
      konm.datab   as ValidFrom,
      konm.datbi   as ValidTo
}
where konm.datbi >= $session.system_date