// Draft enabled sales order. Two design decisions carry the model:
// 1. Currency and organization are immutable after creation (repricing triggered via items only).
// 2. Aggregate calculation (Reprice) is an internal action and not part of the public API.
managed implementation in class zbp_i_order unique;
strict ( 2 );
with draft;

// Full authorization signature; matches the behavior pool checks exactly.
define own authorization context {
  'ZORD_OP';
  'ZORD_SORG';
}

define behavior for ZI_Order alias Order
persistent table zorder
draft table zorder_d
lock master
total etag LastChangedAt
authorization master ( global, instance )
etag master LocalLastChangedAt
{
  // Reject authorization-relevant values before they enter the RAP buffer.
  create ( precheck );
  update ( features:instance, precheck );
  delete ( features:instance );

  association _Item { create ( features:instance, authorization:update ); with draft; }

  field ( numbering:managed, readonly ) OrderUUID;
  field ( mandatory:create, readonly:update ) SalesOrganization, CurrencyCode;
  field ( mandatory:create, features:instance ) CustomerID;
  field ( readonly ) Status, NetAmount, TaxAmount, GrossAmount,
                     CreatedBy, CreatedAt, LocalLastChangedAt, LastChangedAt;

  determination Initialize on modify { create; }
  internal action Reprice;
  validation ValidateCustomer on save { create; update; field CustomerID; }
  validation ValidateCredit on save { create; update; field CustomerID; }

  determine action ( authorization:update ) CheckHeader {
    validation ValidateCustomer;
    validation ValidateCredit;
  }

  action ( features:instance, authorization:update ) Release result [1] $self;
  action ( features:instance, authorization:update ) Cancel result [1] $self;

  draft action Edit ( features:instance );
  draft action Activate optimized;
  draft action Discard;
  draft action Resume with additional implementation;
  draft determine action Prepare {
    validation ValidateCustomer;
    validation ValidateCredit;
    validation Item~ValidateItem;
  }

  side effects {
    determine action CheckHeader
      executed on field CustomerID affects messages;
    action Release affects field Status,
      permissions(action Release), permissions(action Cancel);
    action Cancel affects field Status,
      permissions(action Release), permissions(action Cancel);
  }

  mapping for zorder {
    OrderUUID          = order_uuid;
    CustomerID         = customer_id;
    SalesOrganization  = sales_organization;
    CurrencyCode       = currency_code;
    Status             = status;
    NetAmount          = net_amount;
    TaxAmount          = tax_amount;
    GrossAmount        = gross_amount;
    CreatedBy          = created_by;
    CreatedAt          = created_at;
    LocalLastChangedAt = local_last_changed_at;
    LastChangedAt      = last_changed_at;
  }
}

define behavior for ZI_OrderItem alias Item
persistent table zorder_i
draft table zorder_i_d
lock dependent by _Order
authorization dependent by _Order
etag master LocalLastChangedAt
{
  update ( features:instance );
  delete ( features:instance );

  association _Order { with draft; }

  field ( numbering:managed, readonly ) ItemUUID;
  field ( readonly ) OrderUUID, NetAmount, LocalLastChangedAt;
  field ( mandatory ) ProductID, Quantity, UnitPrice;

  // Item pricing delegates aggregate pricing to internal Order~Reprice via EML.
  determination RepriceOrder on modify { create; update; delete; field Quantity, UnitPrice; }
  validation ValidateItem on save { create; update; field ProductID, Quantity, UnitPrice; }
  determine action ( authorization:update ) CheckItem { validation ValidateItem; }

  side effects {
    field Quantity affects field NetAmount, field _Order.NetAmount,
      field _Order.TaxAmount, field _Order.GrossAmount;
    field UnitPrice affects field NetAmount, field _Order.NetAmount,
      field _Order.TaxAmount, field _Order.GrossAmount;
    determine action CheckItem
      executed on field ProductID, field Quantity, field UnitPrice affects messages;
  }

  mapping for zorder_i {
    ItemUUID           = item_uuid;
    OrderUUID          = order_uuid;
    ProductID          = product_id;
    Quantity           = quantity;
    UnitPrice          = unit_price;
    NetAmount          = net_amount;
    LocalLastChangedAt = local_last_changed_at;
  }
}