TicketItem オブジェクトの生成

次に、どの映画のチケットが注文されているかについての情報を保持する、新規の TicketItem オブジェクトを生成します。

 // Create a new TicketItem object
 Set itm = ##class(Cinema.TicketItem).%New()

このコードは、AddShow メソッドに追加されます。

—Utils.AddShow—

Utils.AddShow

ClassMethod AddShow(ShowID As %String)
{
    // Get an order object
    If $data(%session.Data("Order")) {
        Set ord = ##class(Cinema.TicketOrder).%OpenId(%session.Data("Order"))
    }
    Else {
        Set ord=##class(Cinema.TicketOrder).%New()
        // ...
    }

    // Create a new TicketItem object
    Set itm = ##class(Cinema.TicketItem).%New()

    // ...
    // Save incomplete order and remember its Id in %session.
    Do ord.%Save()
    Set %session.Data("Order") = ord.%Id()
}