/// <summary>
/// generate code for cascading deletions etc
/// </summary>
/// <param name="AStore"></param>
/// <param name="AFilePath"></param>
/// <param name="ANamespaceName"></param>
/// <param name="AFileName"></param>
/// <returns></returns>
public static Boolean WriteTypedDataCascading(TDataDefinitionStore AStore, string AFilePath, string ANamespaceName, string AFileName)
{
Console.WriteLine("writing namespace " + ANamespaceName);
string templateDir = TAppSettingsManager.GetValue("TemplateDir", true);
ProcessTemplate Template = new ProcessTemplate(templateDir + Path.DirectorySeparatorChar +
"ORM" + Path.DirectorySeparatorChar +
"DataCascading.cs");
Template.AddToCodelet("NAMESPACE", ANamespaceName);
// load default header with license and copyright
Template.SetCodelet("GPLFILEHEADER", ProcessTemplate.LoadEmptyFileComment(templateDir));
foreach (TTable currentTable in AStore.GetTables())
{
ProcessTemplate snippet = Template.GetSnippet("TABLECASCADING");
if (InsertMainProcedures(AStore, currentTable, Template, snippet))
{
Template.AddToCodelet("USINGNAMESPACES",
CodeGenerationAccess.GetNamespace(currentTable.strGroup), false);
Template.AddToCodelet("USINGNAMESPACES",
CodeGenerationAccess.GetNamespace(currentTable.strGroup).Replace(
".Data;", ".Data.Access;").
Replace("Ict.Petra.Shared.", "Ict.Petra.Server."), false);
Template.InsertSnippet("TABLECASCADINGLOOP", snippet);
}
}
Template.FinishWriting(AFilePath + AFileName + "-generated.cs", ".cs", true);
return(true);
}
/// <summary>
/// code for cascading functions
/// </summary>
/// <param name="AStore"></param>
/// <param name="ACurrentTable"></param>
/// <param name="ATemplate"></param>
/// <param name="ASnippet"></param>
/// <returns>false if no cascading available</returns>
private static bool InsertMainProcedures(TDataDefinitionStore AStore,
TTable ACurrentTable,
ProcessTemplate ATemplate,
ProcessTemplate ASnippet)
{
string csvListPrimaryKeyFields;
string formalParametersPrimaryKey;
string actualParametersPrimaryKey;
Tuple <string, string, string>[] formalParametersPrimaryKeySeparate;
string actualParametersPrimaryKeyFromPKArray = String.Empty;
ASnippet.AddToCodelet("TABLENAME", TTable.NiceTableName(ACurrentTable.strName));
ASnippet.AddToCodelet("THISTABLELABEL", ACurrentTable.strLabel);
PrepareCodeletsPrimaryKey(ACurrentTable,
out csvListPrimaryKeyFields,
out formalParametersPrimaryKey,
out actualParametersPrimaryKey,
out formalParametersPrimaryKeySeparate);
for (int Counter = 0; Counter < formalParametersPrimaryKeySeparate.Length; Counter++)
{
actualParametersPrimaryKeyFromPKArray +=
"(" + formalParametersPrimaryKeySeparate[Counter].Item1 + ")" +
"APrimaryKeyValues[" + Counter.ToString() + "], ";
}
// Strip off trailing ", "
actualParametersPrimaryKeyFromPKArray = actualParametersPrimaryKeyFromPKArray.Substring(0,
actualParametersPrimaryKeyFromPKArray.Length - 2);
ASnippet.AddToCodelet("CSVLISTPRIMARYKEYFIELDS", csvListPrimaryKeyFields);
ASnippet.AddToCodelet("FORMALPARAMETERSPRIMARYKEY", formalParametersPrimaryKey);
ASnippet.AddToCodelet("ACTUALPARAMETERSPRIMARYKEY", actualParametersPrimaryKey);
ASnippet.AddToCodelet("ACTUALPARAMETERSPRIMARYKEYFROMPKARRAY", actualParametersPrimaryKeyFromPKArray);
for (int Counter = 0; Counter < ACurrentTable.GetPrimaryKey().strThisFields.Count; Counter++)
{
ProcessTemplate PKInfoDictBuilding = ASnippet.GetSnippet("PRIMARYKEYINFODICTBUILDING");
PKInfoDictBuilding.SetCodelet("PKCOLUMNLABEL", formalParametersPrimaryKeySeparate[Counter].Item3);
PKInfoDictBuilding.SetCodelet("PKCOLUMNCONTENT", formalParametersPrimaryKeySeparate[Counter].Item2);
ASnippet.InsertSnippet("PRIMARYKEYINFODICTBUILDING", PKInfoDictBuilding);
}
ASnippet.AddToCodelet("PRIMARYKEYCOLUMNCOUNT", ACurrentTable.GetPrimaryKey().strThisFields.Count.ToString());
foreach (TConstraint constraint in ACurrentTable.FReferenced)
{
if (AStore.GetTable(constraint.strThisTable).HasPrimaryKey())
{
string csvListOtherPrimaryKeyFields;
string notUsed;
Tuple <string, string, string>[] formalParametersPrimaryKeySeparate2;
TTable OtherTable = AStore.GetTable(constraint.strThisTable);
PrepareCodeletsPrimaryKey(OtherTable,
out csvListOtherPrimaryKeyFields,
out notUsed,
out notUsed,
out formalParametersPrimaryKeySeparate2);
// check if other foreign key exists that references the same table, e.g.
// PBankAccess.LoadViaPPartnerPartnerKey
// PBankAccess.LoadViaPPartnerContactPartnerKey
string DifferentField = CodeGenerationAccess.FindOtherConstraintSameOtherTable(
OtherTable.grpConstraint,
constraint);
string LoadViaProcedureName = TTable.NiceTableName(ACurrentTable.strName);
string MyOtherTableName = "My" + TTable.NiceTableName(constraint.strThisTable);
if (DifferentField.Length != 0)
{
LoadViaProcedureName += TTable.NiceFieldName(DifferentField);
MyOtherTableName += TTable.NiceFieldName(DifferentField);
}
// for the moment, don't implement it for too big tables, e.g. s_user)
if ((ACurrentTable.HasPrimaryKey() || (ACurrentTable.FReferenced.Count <= CASCADING_DELETE_MAX_REFERENCES)) &&
((constraint.strThisTable != "a_ledger") &&
(!LoadViaProcedureName.StartsWith("SUser"))))
{
ProcessTemplate snippetDelete = ASnippet.GetSnippet("DELETEBYPRIMARYKEYCASCADING");
snippetDelete.SetCodelet("OTHERTABLENAME", TTable.NiceTableName(constraint.strThisTable));
snippetDelete.SetCodelet("MYOTHERTABLENAME", MyOtherTableName);
snippetDelete.SetCodelet("VIAPROCEDURENAME", "Via" + LoadViaProcedureName);
snippetDelete.SetCodelet("CSVLISTOTHERPRIMARYKEYFIELDS", csvListOtherPrimaryKeyFields);
snippetDelete.SetCodelet("OTHERTABLEALSOCASCADING", "true");
ASnippet.InsertSnippet("DELETEBYPRIMARYKEYCASCADING", snippetDelete);
snippetDelete = ASnippet.GetSnippet("DELETEBYTEMPLATECASCADING");
snippetDelete.SetCodelet("OTHERTABLENAME", TTable.NiceTableName(constraint.strThisTable));
snippetDelete.SetCodelet("MYOTHERTABLENAME", MyOtherTableName);
snippetDelete.SetCodelet("VIAPROCEDURENAME", "Via" + LoadViaProcedureName);
snippetDelete.SetCodelet("CSVLISTOTHERPRIMARYKEYFIELDS", csvListOtherPrimaryKeyFields);
snippetDelete.SetCodelet("OTHERTABLEALSOCASCADING", "true");
ASnippet.InsertSnippet("DELETEBYTEMPLATECASCADING", snippetDelete);
}
if ((constraint.strThisTable != "a_ledger") &&
(!LoadViaProcedureName.StartsWith("SUser")))
{
ProcessTemplate snippetCount = ASnippet.GetSnippet("COUNTBYPRIMARYKEYCASCADING");
snippetCount.SetCodelet("OTHERTABLENAME", TTable.NiceTableName(constraint.strThisTable));
snippetCount.SetCodelet("MYOTHERTABLENAME", MyOtherTableName);
snippetCount.SetCodelet("VIAPROCEDURENAME", "Via" + LoadViaProcedureName);
snippetCount.SetCodelet("CSVLISTOTHERPRIMARYKEYFIELDS", csvListOtherPrimaryKeyFields);
snippetCount.SetCodelet("OTHERTABLEALSOCASCADING", "true");
for (int Counter = 0; Counter < OtherTable.GetPrimaryKey().strThisFields.Count; Counter++)
{
ProcessTemplate PKInfoDictBuilding2 = ASnippet.GetSnippet("PRIMARYKEYINFODICTBUILDING");
PKInfoDictBuilding2.SetCodelet("PKCOLUMNLABEL", formalParametersPrimaryKeySeparate2[Counter].Item3);
PKInfoDictBuilding2.SetCodelet("PKCOLUMNCONTENT", "\"\"");
snippetCount.InsertSnippet("PRIMARYKEYINFODICTBUILDING2", PKInfoDictBuilding2);
}
snippetCount.SetCodelet("PRIMARYKEYCOLUMNCOUNT2", OtherTable.GetPrimaryKey().strThisFields.Count.ToString());
ASnippet.InsertSnippet("COUNTBYPRIMARYKEYCASCADING", snippetCount);
snippetCount = ASnippet.GetSnippet("COUNTBYTEMPLATECASCADING");
snippetCount.SetCodelet("OTHERTABLENAME", TTable.NiceTableName(constraint.strThisTable));
snippetCount.SetCodelet("OTHERTABLELABEL", OtherTable.strLabel);
snippetCount.SetCodelet("MYOTHERTABLENAME", MyOtherTableName);
snippetCount.SetCodelet("VIAPROCEDURENAME", "Via" + LoadViaProcedureName);
snippetCount.SetCodelet("CSVLISTOTHERPRIMARYKEYFIELDS", csvListOtherPrimaryKeyFields);
snippetCount.SetCodelet("OTHERTABLEALSOCASCADING", "true");
for (int Counter = 0; Counter < OtherTable.GetPrimaryKey().strThisFields.Count; Counter++)
{
ProcessTemplate PKInfoDictBuilding2 = ASnippet.GetSnippet("PRIMARYKEYINFODICTBUILDING");
PKInfoDictBuilding2.SetCodelet("PKCOLUMNLABEL", formalParametersPrimaryKeySeparate2[Counter].Item3);
PKInfoDictBuilding2.SetCodelet("PKCOLUMNCONTENT", "\"\"");
snippetCount.InsertSnippet("PRIMARYKEYINFODICTBUILDING2", PKInfoDictBuilding2);
}
snippetCount.SetCodelet("PRIMARYKEYCOLUMNCOUNT2", OtherTable.GetPrimaryKey().strThisFields.Count.ToString());
ASnippet.InsertSnippet("COUNTBYTEMPLATECASCADING", snippetCount);
}
}
}
return(true);
}
