internal static void ListTableInModules()
{
IKBService kbserv = UIServices.KB;
KBModel model = kbserv.CurrentModel.GetDesignModel();
string title = "KBDoctor - List tables in modules";
IOutputService output = CommonServices.Output;
output.StartSection(title);
string outputFile = Functions.CreateOutputFile(kbserv, title);
KBDoctorXMLWriter writer = new KBDoctorXMLWriter(outputFile, Encoding.UTF8);
writer.AddHeader(title);
writer.AddTableHeader(new string[] {
"Name", "Description", "Visibility", "Best", "Best Module", "Modules", "Transaction", "Trn(NoGenerate)", "Referenced Modules", "Referenced"
});
SelectObjectOptions selectObjectOption = new SelectObjectOptions();
selectObjectOption.MultipleSelection = true;
selectObjectOption.ObjectTypes.Add(KBObjectDescriptor.Get <Module>());
foreach (KBObject module in UIServices.SelectObjectDialog.SelectObjects(selectObjectOption))
{
foreach (Table t in Table.GetAll(module.Model))
{
if (TablesHelper.TableModule(module.Model, t) == module)
{
string objNameLink = Functions.linkObject(t);
output.AddLine("Processing... " + t.Name);
int countAttr = 0;
int countKeyAttr = 0;
int widthKey = 0;
int width = 0;
int widthVariable = 0;
int widthFixed = 0;
ObjectVisibility objVisibility = TableVisibility(t);
KBObject trnBest = GenexusBLServices.Tables.GetBestAssociatedTransaction(model, t.Key);
Module mdlTrnBest = trnBest.Module;
string trnGen = "";
string trnNoGen = "";
List <string> mdlList = new List <string>();
foreach (Transaction trn in t.AssociatedTransactions)
{
string trnstr = Functions.linkObject(trn) + "(" + ((trn.IsPublic) ? "Public" : "Private") + ") <br/> ";
if (trn.GetPropertyValue <bool>(Properties.TRN.GenerateObject))
{
trnGen += trnstr;
}
else
{
trnNoGen += trnstr;
}
if (!mdlList.Contains(trn.Module.Name))
{
mdlList.Add(trn.Module.Name);
}
}
IList <KBObject> objList = (from r in model.GetReferencesTo(t.Key, LinkType.UsedObject)
where r.ReferenceType == ReferenceType.WeakExternal // las referencias a tablas que agrega el especificador son de este tipo
//where ReferenceTypeInfo.HasUpdateAccess(r.LinkTypeInfo)
select model.Objects.Get(r.From)).ToList();
IList <KBObject> objList2 = objList.Where(r => r.Module != mdlTrnBest).ToList();
string objListQNames = null;
objList2.ToList().ForEach(v => objListQNames += " " + Functions.linkObject(v));
List <string> mdlReferencedList = new List <string>();
foreach (KBObject o in objList)
{
if (!mdlReferencedList.Contains(o.Module.Name))
{
mdlReferencedList.Add(o.Module.Name);
}
}
string mdlListstr = String.Join(" ", mdlList.ToArray());
string mdlReferencedListstr = String.Join(" ", mdlReferencedList.ToArray());
writer.AddTableData(new string[] {
objNameLink, t.Description, objVisibility.ToString(), trnBest.QualifiedName.ToString(), mdlTrnBest.Name,
mdlListstr, trnGen, trnNoGen, mdlReferencedListstr, objListQNames
});
}
}
}
writer.AddFooter();
writer.Close();
KBDoctorHelper.ShowKBDoctorResults(outputFile);
bool success = true;
output.EndSection(title, success);
}
public static void MarkPublicObjects()
{
IKBService kbserv = UIServices.KB;
IOutputService output = CommonServices.Output;
bool success = true;
string title = "KBDoctor - Mark Public Object";
output.StartSection(title);
string outputFile = Functions.CreateOutputFile(kbserv, title);
KBDoctorXMLWriter writer = new KBDoctorXMLWriter(outputFile, Encoding.UTF8);
writer.AddHeader(title);
writer.AddTableHeader(new string[] { "Object", "Type", "Description", "Visibility" });
MakeAllObjectPublic(kbserv, output);
foreach (KBObject obj in kbserv.CurrentModel.Objects.GetAll())
{
output.AddLine("Object " + obj.Name);
ICallableObject callableObject = obj as ICallableObject;
if (((callableObject != null) || obj is ExternalObject || obj is SDT || obj is DataSelector) && (!(obj is Transaction)))
{
ObjectVisibility objVisibility = obj.GetPropertyValue <ObjectVisibility>("ObjectVisibility");
ObjectVisibility newObjVisibility = RecoverVisibility(obj);
if (objVisibility != newObjVisibility)
{
obj.SetPropertyValue("ObjectVisibility", newObjVisibility);
Functions.SaveObject(output, obj);
string objNameLink = Functions.linkObject(obj);
writer.AddTableData(new string[] { objNameLink, obj.TypeDescriptor.Name, obj.Description, newObjVisibility.ToString() });
output.AddLine("....Change Object " + obj.Name);
}
}
}
output.AddLine("");
output.EndSection(title, success);
writer.AddFooter();
writer.Close();
KBDoctorHelper.ShowKBDoctorResults(outputFile);
}