function GetInfo () { var AppletBO = TheApplication().GetBusObject("Repository Applet"); var AppletBC = AppletBO.GetBusComp("Repository Applet"); var WebTemplate = AppletBO.GetBusComp("Repository Applet Web Template"); var WebTemplateItem = AppletBO.GetBusComp("Repository Applet Web Template Item"); var FinalStr = ""; var flagbreak = 0; var listcolname = ""; var BusCompBO = TheApplication().GetBusObject("Repository Business Component"); var BusCompBC = BusCompBO.GetBusComp("Repository Business Component"); var count = 0; var isRecordBC = 0; var appletfield= ""; var bcfield = ""; var controlname = ""; var picklist = ""; AppletBC.ClearToQuery(); AppletBC.SetViewMode(3); AppletBC.ActivateField("Business Component"); AppletBC.SetSearchSpec("Repository Name","Siebel Repository"); AppletBC.SetSearchSpec("Name","Opportunity List Applet"); AppletBC.ExecuteQuery(); if(AppletBC.FirstRecord()) { WebTemplate.SetSearchSpec("Name","Edit List"); WebTemplate.ExecuteQuery(); WebTemplateItem.ActivateField("Control"); WebTemplateItem.SetSearchSpec("Inactive","N"); WebTemplateItem.SetSearchSpec("Type","List Item"); WebTemplateItem.ExecuteQuery(); var isRecordTemplateItem = WebTemplateItem.FirstRecord(); var AppletListBC = AppletBO.GetBusComp("Repository List"); AppletListBC.SetSearchSpec("Name","List"); AppletListBC.ExecuteQuery(); if(AppletListBC.FirstRecord()) { var AppletListCol = AppletBO.GetBusComp("Repository List Column"); AppletListCol.ActivateField("Display Name"); AppletListCol.ActivateField("Field"); AppletListCol.ActivateField("Runtime"); AppletListCol.SetSearchSpec("Inactive", "N"); AppletListCol.ExecuteQuery(); var isRecordApplet = AppletListCol.FirstRecord(); BusCompBC.ClearToQuery(); BusCompBC.SetViewMode(3); BusCompBC.SetSearchSpec("Name", AppletBC.GetFieldValue("Business Component")); BusCompBC.SetSearchSpec("Repository Name", "Siebel Repository"); BusCompBC.ExecuteQuery(); if(BusCompBC.FirstRecord()) { var BusCompField = BusCompBO.GetBusComp("Repository Field"); BusCompField.ActivateField("Type"); BusCompField.ActivateField("Name"); BusCompField.ActivateField("Picklist"); BusCompField.ExecuteQuery(); while(isRecordTemplateItem) { controlname = WebTemplateItem.GetFieldValue("Control"); isRecordApplet = AppletListCol.FirstRecord(); while(isRecordApplet) { listcolname = AppletListCol.GetFieldValue("Name"); if(controlname == listcolname) { isRecordBC = BusCompField.FirstRecord(); while(isRecordBC) { bcfield = BusCompField.GetFieldValue("Name"); appletfield = AppletListCol.GetFieldValue("Field") if(bcfield == appletfield) { if(BusCompField.GetFieldValue("PickList") != "") picklist = "Y"; else picklist = "N"; FinalStr = FinalStr + AppletListCol.GetFieldValue("Display Name") + "," + BusCompField.GetFieldValue("Type") + "," + AppletListCol.GetFieldValue("Runtime") + "," + picklist + "\x0a\x0d" ; count++; flagbreak = 1; break; } isRecordBC = BusCompField.NextRecord(); } } if(flagbreak == 1) { flagbreak = 0; break; } isRecordApplet = AppletListCol.NextRecord(); } isRecordTemplateItem = WebTemplateItem.NextRecord(); } TheApplication().RaiseErrorText(count + FinalStr); } } } }