Configuring Siebel Business Applications > Reference Materials for Configuring Siebel Business Application > Extensive Code Examples Used in This Book >

Script for the Query Method when Configuring a Hierarchical List Applet

The code in this topic creates test data for the query result. To retrieve data from an external system, the query script you use must contain code that is specific to your requirements. To retrieve the desired data, you must define your own custom algorithm. For more information about using a virtual business component, see Integration Platform Technologies: Siebel Enterprise Application Integration. For more information about this example, see Example of Configuring a Hierarchical List Applet to Use External Data.

For the example in this book, use the following script for the Query of the Hierarchical List Service business service:

function Query( Inputs, Outputs )

{

var row;

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "1");

row.SetProperty("Description", "Haus");

row.SetProperty("Amount", "740000");

row.SetProperty ("Parent Row Id", "");

row.SetProperty("Has Children", "Y");

row.SetProperty("Is Expanded", "Y");

row.SetProperty("Outline Number", "1");

row.SetProperty("Last Child Info", "1");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "1.1");

row.SetProperty("Description", "T1");

row.SetProperty("Amount", "240000");

row.SetProperty("Parent Row Id", "1");

row.SetProperty("Has Children", "Y");

row.SetProperty("Is Expanded", "Y");

row.SetProperty("Outline Number", "1.1");

row.SetProperty("Last Child Info", "10");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "1.1.1");

row.SetProperty("Description", "Kurant");

row.SetProperty("Amount", "200000");

row.SetProperty("Parent Row Id", "1.1");

row.SetProperty("Has Children", "N");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "1.1.1");

row.SetProperty("Last Child Info", "100");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "1.1.2");

row.SetProperty("Description", "Blanko");

row.SetProperty("Amount", "40000");

row.SetProperty("Parent Row Id", "1.1");

row.SetProperty("Has Children", "N");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "1.1.2");

row.SetProperty("Last Child Info", "101");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "1.2");

row.SetProperty("Description", "T3");

row.SetProperty("Amount", "500000");

row.SetProperty("Parent Row Id", "1");

row.SetProperty("Has Children", "Y");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "1.2");

row.SetProperty("Last Child Info", "11");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "1.2.1");

row.SetProperty("Description", "Kurant");

row.SetProperty("Amount", "500000");

row.SetProperty("Parent Row Id", "1.2");

row.SetProperty("Has Children", "N");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "1.2.1");

row.SetProperty("Last Child Info", "111");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "2");

row.SetProperty("Description", "Auto");

row.SetProperty("Amount", "13500");

row.SetProperty ("Parent Row Id", "");

row.SetProperty("Has Children", "Y");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "2");

row.SetProperty("Last Child Info", "1");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "2.1");

row.SetProperty("Description", "T4");

row.SetProperty("Amount", "240000");

row.SetProperty("Parent Row Id", "2");

row.SetProperty("Has Children", "Y");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "2.1");

row.SetProperty("Last Child Info", "10");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "2.1.1");

row.SetProperty("Description", "Blanko");

row.SetProperty("Amount", "40000");

row.SetProperty("Parent Row Id", "2.1");

row.SetProperty("Has Children", "N");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "2.1.1");

row.SetProperty("Last Child Info", "101");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "3");

row.SetProperty("Description", "Nieren");

row.SetProperty("Amount", "8000");

row.SetProperty ("Parent Row Id", "");

row.SetProperty("Has Children", "Y");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "3");

row.SetProperty("Last Child Info", "1");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "3.1");

row.SetProperty("Description", "T1");

row.SetProperty("Amount", "8000");

row.SetProperty("Parent Row Id", "3");

row.SetProperty("Has Children", "N");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "3.1");

row.SetProperty("Last Child Info", "11");

Outputs.AddChild( row );

row = TheApplication().NewPropertySet();

row.SetProperty("Id", "3.1.1");

row.SetProperty("Description", "Kurant");

row.SetProperty("Amount", "8000");

row.SetProperty("Parent Row Id", "3.1");

row.SetProperty("Has Children", "");

row.SetProperty("Is Expanded", "N");

row.SetProperty("Outline Number", "");

row.SetProperty("Last Child Info", "");

Outputs.AddChild( row );

return( CancelOperation );

}