LoginSignup
2
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

@tami(Yasutake Mio)

【Fiori】ElementsのためのCDS + BOPF

Last updated at Posted at 2020-05-21

##目的
以下の記事で使用するODataサービスを生成するためのCDS, BOPFの実装内容を記載します。
【Fiori】List Reportのためのアノテーション

ここでは解説は省略しますが、CDS + BOPFの作成方法については以下の記事をご参照ください。
【Fiori】CDSビューでFiori Appを作る
【Fiori】CDSビューでFiori Appを作る(2) UIアノテーション
【Fiori】CDS + BOPFでトランザクション実行
【BOPF】Determination, Validationの実装
【BOPF】Actionの実装
【BOPF】ドラフト機能

##構成
image.png

##テーブル定義
###Sales Order Header (ZSO)

@EndUserText.label : 'Sales Order'
@AbapCatalog.enhancementCategory : #EXTENSIBLE_CHARACTER_NUMERIC
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #ALLOWED
define table zso_mob67 {
  key client       : abap.clnt not null;
  key node_key     : snwd_node_key not null;
  so_id            : snwd_so_id;
  @AbapCatalog.foreignKey.screenCheck : true
  buyer_guid       : snwd_node_key
    with foreign key [0..*,1] snwd_bpa
      where client = zso_mob67.client
        and node_key = zso_mob67.buyer_guid;
  bp_id            : snwd_partner_id;
  currency_code    : snwd_curr_code;
  @Semantics.amount.currencyCode : 'zso_mob67.currency_code'
  gross_amount     : snwd_ttl_gross_amount;
  @Semantics.amount.currencyCode : 'zso_mob67.currency_code'
  net_amount       : snwd_ttl_net_amount;
  @Semantics.amount.currencyCode : 'zso_mob67.currency_code'
  tax_amount       : snwd_ttl_tax_amount;
  lifecycle_status : snwd_so_lc_status_code;
  billing_status   : snwd_so_cf_status_code;
  delivery_status  : snwd_so_or_status_code;
  overall_status   : snwd_so_oa_status_code;
  @AbapCatalog.foreignKey.screenCheck : true
  buy_contact_guid : snwd_node_key
    with foreign key [0..*,1] snwd_bpa_contact
      where client = zso_mob67.client
        and node_key = zso_mob67.buy_contact_guid;
  payment_method   : snwd_so_payment_method;
  payment_terms    : snwd_so_payment_term;
  created_at       : snwd_created_at;
  created_by       : uname;
  changed_at       : snwd_changed_at;
  changed_by       : uname;
}

###Sales Order Item (ZSO_I)

@EndUserText.label : 'Sales Order Item'
@AbapCatalog.enhancementCategory : #EXTENSIBLE_CHARACTER_NUMERIC
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #ALLOWED
define table zso_i_mob67 {
  key client    : abap.clnt not null;
  key node_key  : snwd_node_key not null;
  @AbapCatalog.foreignKey.screenCheck : true
  parent_key    : snwd_node_key
    with foreign key [0..*,1] zso_mob67
      where client = zso_i_mob67.client
        and node_key = zso_i_mob67.parent_key;
  so_item_pos   : snwd_so_item_pos;
  product_id    : snwd_product_id;
  currency_code : snwd_curr_code;
  @Semantics.amount.currencyCode : 'zso_mob67.currency_code'
  gross_amount  : snwd_ttl_gross_amount;
  @Semantics.amount.currencyCode : 'zso_mob67.currency_code'
  net_amount    : snwd_ttl_net_amount;
  @Semantics.amount.currencyCode : 'zso_mob67.currency_code'
  tax_amount    : snwd_ttl_tax_amount;
  unit          : snwd_quantity_unit;
  @Semantics.quantity.unitOfMeasure : 'zso_i_mob67.unit'
  quantity      : snwd_quantity;
}

##Interface View
###Sales Order Header (Z_I_SO)

@AbapCatalog.sqlViewName: 'ZISOMOB67'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Sales Order Header'

@Metadata.allowExtensions: true
@OData.publish: true
@ObjectModel: {
    modelCategory: #BUSINESS_OBJECT,
    compositionRoot: true,
    transactionalProcessingEnabled: true,
    writeActivePersistence: 'zso_mob67',
    writeDraftPersistence: 'zso_mob67_d',
    semanticKey: ['so_id'],
    representativeKey: 'so_id',
    createEnabled: true,
    updateEnabled: true,
    deleteEnabled: true,
    draftEnabled: true
}
define view Z_I_SO_MOB67
  as select from zso_mob67
association [0..*] to z_i_soi_mob67 as _Item
on $projection.node_key = _Item.parent_key
{
    //snwd_so
    @ObjectModel.readOnly: true
    key node_key,
    @ObjectModel.readOnly: true
    so_id,
    @EndUserText.label: 'Created By'    
    @ObjectModel.readOnly: true
    created_by,    
    @ObjectModel.readOnly: true
    created_at,    
    @EndUserText.label: 'Changed By'
    @ObjectModel.readOnly: true
    changed_by,    
    @ObjectModel.readOnly: true
    changed_at,
    @EndUserText.label: 'Customer'
    @ObjectModel.mandatory: true
    bp_id,
    @ObjectModel.mandatory: true
    currency_code,
    @ObjectModel.readOnly: true
    gross_amount,
    @ObjectModel.readOnly: true
    net_amount,
    @ObjectModel.readOnly: true
    tax_amount,   
    lifecycle_status,
    billing_status,
    @EndUserText.label: 'Delivery Status'
    delivery_status,
    overall_status,
    buy_contact_guid,
    payment_method,
    payment_terms,
    
    @ObjectModel.association.type: [#TO_COMPOSITION_CHILD]
    _Item
}

###Sales Order Item (Z_I_SOI)

@AbapCatalog.sqlViewName: 'ZISOIMOB67'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Sales Order Item'

@Metadata.allowExtensions: true
@ObjectModel: {
    writeActivePersistence: 'zso_i_mob67',
    writeDraftPersistence: 'zso_i_mob67_d',
    semanticKey: ['so_item_pos'],
    representativeKey: 'so_item_pos',
    createEnabled: true,
    updateEnabled: true,
    deleteEnabled: true
}
define view z_i_soi_mob67 as select from zso_i_mob67
association [1..1] to Z_I_SO_MOB67 as _SalesOrder
on $projection.parent_key = _SalesOrder.node_key
{
    //zso_i_mob67
    @ObjectModel.readOnly: true
    key node_key,
    @ObjectModel.readOnly: true
    parent_key,
    @EndUserText.label: 'Item No.'    
    @ObjectModel.readOnly: true
    so_item_pos,
    @ObjectModel.mandatory: true
    product_id,
    currency_code,
    @ObjectModel.readOnly: true
    gross_amount,
    @ObjectModel.readOnly: true
    net_amount,
    @ObjectModel.readOnly: true
    tax_amount,
    @ObjectModel.mandatory: true
    unit,
    @ObjectModel.mandatory: true
    quantity,
    
    @ObjectModel.association.type: [#TO_COMPOSITION_PARENT, #TO_COMPOSITION_ROOT]
    _SalesOrder
}

##Consumption View
###Sales Order Header (Z_C_SO)

@AbapCatalog.sqlViewName: 'ZCSOMOB67'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Sales Order Header'

@Metadata.allowExtensions: true
@OData.publish: true
@Search.searchable: true

@ObjectModel: {
    compositionRoot: true,
    transactionalProcessingDelegated: true,
    semanticKey: ['SoId'],
    representativeKey: 'SoId',
    createEnabled: true,
    updateEnabled: true,
    deleteEnabled: true,
    draftEnabled: true
}
define view Z_C_SO_MOB67
  as select from Z_I_SO_MOB67
  association [0..*] to Z_C_SOI_MOB67 as _Item     on $projection.UUID = _Item.ParentUUID
  association [0..1] to I_Currency    as _Currency on $projection.Currency = _Currency.Currency
  association [0..1] to Z_C_BPA_MOB67 as _Customer on $projection.BpId = _Customer.BpId
  association [0..*] to Z_I_StatusVH  as _StatusVH on $projection.DeliveryStatus = _StatusVH.DomainKey
{
      //Z_I_SO_MOB67
  key node_key         as UUID,
      @Search.defaultSearchElement: true
      so_id            as SoId,
      created_by       as CreatedBy,
      created_at       as CreatedAt,
      changed_by       as ChangedBy,
      changed_at       as ChangedAt,
      @Consumption.valueHelp: '_Customer'
      bp_id            as BpId,
      @Semantics.currencyCode: true
      @Consumption.valueHelp: '_Currency'
      currency_code    as Currency,
      @Semantics.amount.currencyCode: 'Currency'
      gross_amount     as GrossAmount,
      @Semantics.amount.currencyCode: 'Currency'
      net_amount       as NetAmount,
      @Semantics.amount.currencyCode: 'Currency'
      tax_amount       as TaxAmount,
      billing_status   as BillingStatus,
      @Consumption.valueHelp: '_StatusVH'
      delivery_status  as DeliveryStatus,
      overall_status   as OverallStatus,
      buy_contact_guid as ContactUUID,
      payment_method   as PaymentMethod,
      payment_terms    as PaymentTerm,

      /* Associations */
      @ObjectModel.association.type: [#TO_COMPOSITION_CHILD]
      _Item,
      _Currency,
      _Customer,
      _StatusVH
}

###Sales Order Item (Z_C_SOI)

@AbapCatalog.sqlViewName: 'ZCSOIMOB67'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Sales Order Item'
@Metadata.allowExtensions: true

@ObjectModel: {
    semanticKey: ['ItemPos'],

    createEnabled: true,
    updateEnabled: true,
    deleteEnabled: true
}
define view Z_C_SOI_MOB67
  as select from z_i_soi_mob67
  association [1..1] to Z_C_SO_MOB67    as _SalesOrder on $projection.ParentUUID = _SalesOrder.UUID
  association [0..1] to I_Currency      as _Currency   on $projection.Currency = _Currency.Currency
  association [0..1] to I_UnitOfMeasure as _Unit       on $projection.Unit = _Unit.UnitOfMeasure
  association [0..*] to snwd_pd         as _Product    on $projection.Product = _Product.product_id
{
  key node_key      as ItemUUID,
      parent_key    as ParentUUID,
      so_item_pos   as ItemPos,
      @Consumption.valueHelp: '_Product'
      product_id    as Product,
      @Consumption.valueHelp: '_Currency'
      @Semantics.currencyCode: true
      currency_code as Currency,
      @Semantics.amount.currencyCode: 'Currency'
      gross_amount  as GrossAmount,
      @Semantics.amount.currencyCode: 'Currency'
      net_amount    as NetAmount,
      @Semantics.amount.currencyCode: 'Currency'
      tax_amount    as TaxAmount,
      @Consumption.valueHelp: '_Unit'
      @Semantics.unitOfMeasure: true
      unit          as Unit,
      @Semantics.quantity.unitOfMeasure: 'Unit'
      quantity      as Quantity,

      /* Associations */
      @ObjectModel.association.type: [#TO_COMPOSITION_PARENT, #TO_COMPOSITION_ROOT]
      _SalesOrder,
      _Currency,
      _Product,
      _Unit
}

##Metadata Extension
###Sales Order Header (Z_C_SO)

@Metadata.layer: #CORE

@UI: { 
    headerInfo: { 
        typeName: 'Sales Order', 
        typeNamePlural: 'Sales Orders',
        title: { value: 'SoId' },
        description: { value: '_Customer.company_name' }
    }
}
annotate view Z_C_SO_MOB67
    with     
{
    @UI: { 
        facet: [
            { 
                id: 'HeaderFacet',
                type: #COLLECTION,
                purpose: #STANDARD,
                label: 'Order Information'            
            },
            // Header Info Group
            { 
                id: 'BasicGroup',
                parentId: 'HeaderFacet',
                type: #FIELDGROUP_REFERENCE,
                purpose: #STANDARD,
                label: 'Basic Information',
                targetQualifier: 'BasicFieldGroup'            
            },
            // Status Group
            { 
                id: 'StatusGroup',
                type: #FIELDGROUP_REFERENCE,
                parentId: 'HeaderFacet',
                purpose: #STANDARD,
                label: 'Order Status',
                targetQualifier: 'StatusFieldGroup'               
            },
            // Creation date time
            { 
                id: 'DateTimeGroup',
                type: #FIELDGROUP_REFERENCE,
                parentId: 'HeaderFacet',
                purpose: #STANDARD,
                label: 'Create/Update Datetime',
                targetQualifier: 'DateTimeFieldGroup'              
            },
            //Items
            { 
                id: 'ItemFacet',
                type: #LINEITEM_REFERENCE,
                purpose: #STANDARD,
                label: 'Item',
                targetElement: '_Item'           
            }            
        ]
        
    }


    @UI.hidden: true
    UUID;
    
    @UI: { 
        selectionField: [{position: 10 }],
        lineItem: [
            { position: 10, importance: #HIGH },
            { type: #FOR_ACTION, position: 10, dataAction: 'BOPF:SET_TO_DELIVERED', label: 'Set to Delivered' }
        ]
    }
    SoId;

    @UI: { 
        selectionField: [{position: 20 }],
        lineItem: [{ position: 20, importance: #HIGH }],
        fieldGroup: [{ qualifier: 'DateTimeFieldGroup', position: 10, importance: #MEDIUM }]
    }
    CreatedAt;
        
    @UI: { 
        lineItem: [{ position: 30, importance: #HIGH }],
        fieldGroup: [{ qualifier: 'DateTimeFieldGroup', position: 20, importance: #MEDIUM }]
    }
    CreatedBy;
    
    @UI: { 
        fieldGroup: [{ qualifier: 'DateTimeFieldGroup', position: 30, importance: #MEDIUM }]
    }
    ChangedAt;

    @UI: { 
        fieldGroup: [{ qualifier: 'DateTimeFieldGroup', position: 40, importance: #MEDIUM }]
    }    
    ChangedBy;
    
    @UI: { 
        selectionField: [{position: 30 }],
        lineItem: [
            { position: 40, importance: #HIGH, type: #WITH_INTENT_BASED_NAVIGATION, semanticObjectAction: 'manage' }
        ],
        fieldGroup: [{ qualifier: 'BasicFieldGroup', position: 10, importance: #HIGH }]
    }
    @Consumption.semanticObject: 'BusinessPartner'
    BpId;      
    
    @UI: { 
        selectionField: [{ position: 40 }],
        fieldGroup: [{ qualifier: 'BasicFieldGroup', position: 20, importance: #HIGH }]
    }
    Currency;
    
    @UI: { 
        lineItem: [{ position: 50, importance: #MEDIUM }],
        fieldGroup: [{ qualifier: 'BasicFieldGroup', position: 30, importance: #MEDIUM }]
    }    
    GrossAmount;

    @UI: { 
        selectionField: [{ position: 50 }],
        lineItem: [{ position: 60, importance: #MEDIUM }],
        fieldGroup: [{ qualifier: 'StatusFieldGroup', position: 10, importance: #MEDIUM }]
    }
    DeliveryStatus;
    
    @UI: { 
        lineItem: [{ position: 70, importance: #MEDIUM }],
        fieldGroup: [{ qualifier: 'StatusFieldGroup', position: 20, importance: #MEDIUM }]
    }
    OverallStatus;
    
}




    @UI: { 
        selectionField: [{position: 10 }]
    }
    SoId;

    @UI: { 
        selectionField: [{position: 20 }]
    }
    CreatedAt;
        
    @UI: { 
        selectionField: [{position: 30 }]
    }
    BpId;      
    
    @UI: { 
        selectionField: [{ position: 40 }]
    }
    Currency;

    @UI: { 
        selectionField: [{ position: 50 }]
    }
    DeliveryStatus;

###Sales Order Item (Z_C_SOI)

@Metadata.layer: #CORE

@UI: { 
    headerInfo: { 
        typeName: 'Item', 
        typeNamePlural: 'Items',
        title: { value: 'ItemPos' },
        description: { value: 'Product' }
    }
}
annotate view Z_C_SOI_MOB67
    with 
{
    @UI: { 
        facet: [
            { 
                id: 'ItemFacet',
                type: #COLLECTION,
                purpose: #STANDARD,
                label: 'Item Information'            
            },
            // Header Info Group
            { 
                id: 'BasicGroup',
                parentId: 'ItemFacet',
                type: #FIELDGROUP_REFERENCE,
                purpose: #STANDARD,
                label: 'Basic Information',
                targetQualifier: 'BasicFieldGroup'            
            },
            // Amount Group
            { 
                id: 'PriceGroup',
                type: #FIELDGROUP_REFERENCE,
                parentId: 'ItemFacet',
                purpose: #STANDARD,
                label: 'Price Information',
                targetQualifier: 'PriceFieldGroup'               
            }           
        ]
        
    }

    //Z_C_SOI_MOB67
    @UI.hidden: true
    ItemUUID;
    @UI.hidden: true
    ParentUUID;
    
    @UI: { 
        lineItem: [{ position: 10, importance: #HIGH }]
    }
    ItemPos;
    
    @UI: { 
        lineItem: [{ position: 20, importance: #HIGH }],
        fieldGroup: [{ qualifier: 'BasicFieldGroup', position: 10, importance: #HIGH  }]
    }    
    Product;
    
    @UI: { 
        lineItem: [{ position: 30, importance: #HIGH }],
        fieldGroup: [{ qualifier: 'BasicFieldGroup', position: 20, importance: #HIGH  }]
    }     
    Quantity;
    @UI: { 
        fieldGroup: [{ qualifier: 'BasicFieldGroup', position: 30, importance: #HIGH  }]
    }     
    
    Currency;    
    
    @UI: { 
        lineItem: [{ position: 40, importance: #HIGH }],
        fieldGroup: [{ qualifier: 'PriceFieldGroup', position: 10, importance: #HIGH  }]
    }     
    GrossAmount;
    
    @UI: { 
        lineItem: [{ position: 50, importance: #MEDIUM }],
        fieldGroup: [{ qualifier: 'PriceFieldGroup', position: 20, importance: #MEDIUM  }]
    }     
    NetAmount;
    
    @UI: { 
        lineItem: [{ position: 60, importance: #MEDIUM }],
        fieldGroup: [{ qualifier: 'PriceFieldGroup', position: 30, importance: #MEDIUM  }]
    }     
    TaxAmount;
     
}

##検索ヘルプ用ビュー
###Business Partner検索用
####Interface View (Z_I_BPA)

@AbapCatalog.sqlViewName: 'ZIBPAMOB67'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Supplier Basic View'
@VDM.viewType: #BASIC
define view Z_I_BPA_MOB67
  as select from snwd_bpa
{
//  key node_key      as UUID,
      key bp_id         as BpId,
      bp_role       as BpRole,
      email_address as Email,
      phone_number  as Phone,
      fax_number    as Fax,
      web_address   as Web,
      company_name  as CompanyName,
      currency_code as Currency
}

####Consumption View (Z_C_BPA)

@AbapCatalog.sqlViewName: 'ZCBPAMOB67'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Supplier Consumption View'
@VDM.viewType: #CONSUMPTION
@ObjectModel.semanticKey: ['BpId']
@Metadata.allowExtensions: true
define view Z_C_BPA_MOB67 as select from Z_I_BPA_MOB67 {
    //z_i_bpa_mob67
    //key UUID,
    key BpId,
    BpRole,
    Email,
    Phone,
    Fax,
    Web,
    CompanyName,
    Currency
}

####Metadata Extension (Z_C_BPA)
※ナビゲーション先のアプリを作るためにUIアノテーションを設定

@Metadata.layer: #CORE
@UI: { 
    headerInfo: { 
        typeName: 'Business Partner',
        typeNamePlural: 'Business Partners',
        title: { value: 'BpId' },
        description: { value: 'CompanyName' }        
    }
}
annotate view Z_C_BPA_MOB67
    with 
{
//    @UI.hidden: true
//    UUID;
    
    @UI: { 
        selectionField: [{ position: 10 }],
        lineItem: [{ position: 10, importance: #HIGH }],
        identification: [{ position: 10 }]
    }    
    BpId;
    
    @UI: { 
        selectionField: [{ position: 20 }],
        lineItem: [{ position: 20, importance: #HIGH }],
        identification: [{ position: 20 }]
    }     
    CompanyName;
    
    @UI: { 
        selectionField: [{ position: 30 }],
        lineItem: [{ position: 30, importance: #MEDIUM }],
        identification: [{ position: 30 }]
    }
    BpRole;    
    
    @UI: { 
        lineItem: [{ position: 40, importance: #MEDIUM }],
        identification: [{ position: 40 }]        
    }     
    Currency;

    @UI: { 
        identification: [{ position: 50 }]        
    }  
    Email;
    
    @UI: { 
        identification: [{ position: 60 }]        
    }      
    Phone;
    
    @UI: { 
        identification: [{ position: 70 }]        
    }      
    Fax;
    
    @UI: { 
        identification: [{ position: 80 }]        
    }      
    Web;
    
}

###Status検索用
ドメインテキストをベースにした検索ヘルプ

####Interface View (Z_I_Domain_Text)

@AbapCatalog.sqlViewName: 'ZIDOMAINTX'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Domain Text'

@ObjectModel.dataCategory: #TEXT
@Search.searchable: true
define view Z_I_Domain_Text
  as select from dd07t
{
      //dd07t
  key domname    as DomainName,
      @Semantics.language: true
  key ddlanguage as Language,
  key domvalue_l as DomainKey,
      @Semantics.text: true
      @Search: { defaultSearchElement: true, fuzzinessThreshold: 0.8 }
      ddtext     as Text
      
}where as4local = 'A'

####Interface View (Z_I_StatusVH)

@AbapCatalog.sqlViewName: 'ZISTATUSVH'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Value Help for Status'

@Search.searchable: true
@ObjectModel.representativeKey: 'DomainKey'
@ObjectModel.resultSet.sizeCategory: #XS
define view Z_I_StatusVH as select from dd07l as Domain 
association [0..*] to Z_I_Domain_Text as _Text
on  $projection.DomainName = _Text.DomainName
and $projection.DomainKey = _Text.DomainKey 
{
    @UI.hidden: true
    key Domain.domname as DomainName,
    @ObjectModel.text.association: '_Text'
    @Search.defaultSearchElement: true    
    key Domain.domvalue_l   as DomainKey,
    _Text    
}
where Domain.as4local = 'A'
and Domain.domname = 'D_SO_OR'

##BOPF
###Actions
####DeliveryStatusを設定

CLASS zcl__a_set_to_delivered DEFINITION
  PUBLIC
  INHERITING FROM /bobf/cl_lib_a_supercl_simple
  FINAL
  CREATE PUBLIC .

PUBLIC SECTION.

  METHODS /bobf/if_frw_action~execute
    REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.



CLASS zcl__a_set_to_delivered IMPLEMENTATION.


  METHOD /bobf/if_frw_action~execute.
    DATA: lt_so TYPE ztiso_mob67.

    io_read->retrieve(
      EXPORTING
        iv_node                 = is_ctx-node_key
        it_key                  = it_key
      IMPORTING
        et_data                 = lt_so
    ).

    LOOP AT lt_so REFERENCE INTO DATA(lr_so).

      lr_so->delivery_status = 'D'.
      io_modify->update(
        EXPORTING
          iv_node           = is_ctx-node_key
          iv_key            = lr_so->key
          iv_root_key       = lr_so->root_key
          is_data           = lr_so
          it_changed_fields = VALUE #(
            ( zif_i_so_mob67_c=>sc_node_attribute-z_i_so_mob67-delivery_status )
          )
      ).
    ENDLOOP.

  ENDMETHOD.
ENDCLASS.

###Determinations

####SoIdの採番

CLASS zcl__d_set_so_id DEFINITION
  PUBLIC
  INHERITING FROM /bobf/cl_lib_d_supercl_simple
  FINAL
  CREATE PUBLIC .

PUBLIC SECTION.

  METHODS /bobf/if_frw_determination~execute
    REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.



CLASS zcl__d_set_so_id IMPLEMENTATION.


  METHOD /bobf/if_frw_determination~execute.
    DATA: lt_so TYPE ztiso_mob67,
          lv_so_max TYPE snwd_so_id.

    io_read->retrieve(
      EXPORTING
        iv_node                 = is_ctx-node_key
        it_key                  = it_key
      IMPORTING
        et_data                 = lt_so
    ).

    "Get max so
    SELECT MAX( so_id ) FROM zso_mob67
    INTO @lv_so_max.

    IF lv_so_max IS INITIAL.
      lv_so_max = 500000000.
    ENDIF.

    LOOP AT lt_so REFERENCE INTO DATA(lr_so).

      lv_so_max += 1.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = lv_so_max
        IMPORTING
          output = lr_so->so_id.

      io_modify->update(
        EXPORTING
          iv_node           = is_ctx-node_key
          iv_key            = lr_so->key
          iv_root_key       = lr_so->root_key
          is_data           = lr_so
          it_changed_fields = VALUE #(
            ( zif_i_so_mob67_c=>sc_node_attribute-z_i_so_mob67-so_id )
          )
      ).
    ENDLOOP.

  ENDMETHOD.
ENDCLASS.

####タイムスタンプの設定

CLASS zcl__d_set_timestamp DEFINITION
  PUBLIC
  INHERITING FROM /bobf/cl_lib_d_supercl_simple
  FINAL
  CREATE PUBLIC .

PUBLIC SECTION.

  METHODS /bobf/if_frw_determination~execute
    REDEFINITION .
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.



CLASS zcl__d_set_timestamp IMPLEMENTATION.


  METHOD /bobf/if_frw_determination~execute.
    DATA: lt_so TYPE ztiso_mob67.

    io_read->retrieve(
      EXPORTING
        iv_node                 = is_ctx-node_key
        it_key                  = it_key
      IMPORTING
        et_data                 = lt_so
    ).

    LOOP AT lt_so REFERENCE INTO DATA(lr_so).

     IF lr_so->created_at IS INITIAL.
       GET TIME STAMP FIELD lr_so->created_at.
       lr_so->created_by = sy-uname.
     ENDIF.
     GET TIME STAMP FIELD lr_so->changed_at.
     lr_so->changed_by = sy-uname.

      io_modify->update(
        EXPORTING
          iv_node           = is_ctx-node_key
          iv_key            = lr_so->key
          iv_root_key       = lr_so->root_key
          is_data           = lr_so
          it_changed_fields = VALUE #(
            ( zif_i_so_mob67_c=>sc_node_attribute-z_i_so_mob67-created_at )
            ( zif_i_so_mob67_c=>sc_node_attribute-z_i_so_mob67-created_by )
            ( zif_i_so_mob67_c=>sc_node_attribute-z_i_so_mob67-changed_at )
            ( zif_i_so_mob67_c=>sc_node_attribute-z_i_so_mob67-changed_by )
          )
      ).
    ENDLOOP.
  ENDMETHOD.
ENDCLASS.
2
0
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
Sign upLogin
2
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?