Data Provider の使用例: TabbedView の使用方法

構造化データタイプ (たとえば TabbedView Web コンポーネントで必要なもの) をプロシージャーを使用してロードする方法は、次のとおりです:

Event Start
    ...     &Tabs = new()
    &TabsItem = new()
    &TabsItem.Code = 'General'
    &TabsItem.Description = 'General info'
    &TabsItem.Link = link(ViewCustomer, CustomerId, 'General'
    &TabsItem.WebComponent = create(CustomerGeneral, CustomerId)
    &Tabs.add(&TabsItem)
    &TabsItem = new()
    &TabsItem.Code = 'Invoices'
    &TabsItem.Description = 'Invoices'
    &TabsItem.Link = link(ViewCustomer, CustomerId, 'Invoices'
    &TabsItem.WebComponent = create(CustomerInvoices, CustomerId)
    &Tabs.add(&TabsItem)
    ...     TabWC.Object = Create(TabbedView, &Tabs)
EndEvent

データプロバイダーを使用して宣言する方法は、次のとおりです:

LoadCustomerTabs
Tabs
{ 
   TabOptionsItem
   {
      Code           = 'General'
      Description    = 'General info'
      Link           = link(ViewCustomer, CustomerId, 'General'
      WebComponent   = create(CustomerGeneral, CustomerId)
   } 
   TabOptionsItem
   {
      Code           = 'Invoices'
      Description    = 'Invoices'
      Link           = link(ViewCustomer, CustomerId, 'Invoices'
      WebComponent   = create(CustomerInvoices, CustomerId)
   }
}

イベントの開始は次のようになります:

Event Start
   &Tabs = LoadCustomerTabs()
   TabWC.Object = Create(TabbedView, &Tabs)
Endevent