|
|
|
|
@@ -1601,12 +1601,11 @@ namespace Volian.Controls.Library
|
|
|
|
|
//B2024-024 create import file for parent/child procedure set
|
|
|
|
|
void MultiUnitImportProcedure_Click(object sender, EventArgs e)
|
|
|
|
|
{
|
|
|
|
|
//RevisionInfo ri = (sender as MenuItem).Tag as RevisionInfo;
|
|
|
|
|
RevisionInfo ri = RevisionInfo.Get(int.Parse((sender as MenuItem).Tag.ToString()));
|
|
|
|
|
RevisionConfig rc = ri.MyConfig as RevisionConfig;
|
|
|
|
|
// bug fix: B2016-183 - add the child's name (ex Unit 1) to the export file name for Parent/Child procedures.
|
|
|
|
|
int applIdx = rc.Applicability_Index;
|
|
|
|
|
string str = (applIdx > 0) ? _currentPri.MyDocVersion.UnitNames[applIdx - 1] + "_" : ""; // if parent/child get the defined child name to inlcude the export filename
|
|
|
|
|
string str = (applIdx > 0) ? _currentPri.MyDocVersion.UnitNames[applIdx - 1] + "_" : ""; // if parent/child get the defined child name to include the export filename
|
|
|
|
|
System.Xml.XmlDocument xd = new System.Xml.XmlDocument();
|
|
|
|
|
xd.LoadXml(ri.LatestVersion.ApprovedXML);
|
|
|
|
|
string PEIPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + @"\VEPROMS\PEI_" + Database.VEPROMS_SqlConnection.Database;
|
|
|
|
|
@@ -1615,8 +1614,13 @@ namespace Volian.Controls.Library
|
|
|
|
|
// B2022-048: Crash when creating Procedure to Import from versions. Couldn't handle '/' in proc number.
|
|
|
|
|
string fNametmp = xd.SelectSingleNode("procedure/content/@number").InnerText.Replace(" ", "_").Replace(@"\u8209?", "-").Replace(@"\u9586?", "_").Replace("/", "-") + ".pxml";
|
|
|
|
|
// B2022-112: If applicability, need to resolve the '<' and '>' characters. Just use the UnitNames, i.e. str, from above.
|
|
|
|
|
if (applIdx > 0) fNametmp = Regex.Replace(fNametmp, @"\<U-ID\>", str, RegexOptions.IgnoreCase);
|
|
|
|
|
string fileName = PEIPath + "\\" + str + "Approved_Rev_" + ri.RevisionNumber.Replace(" ", "_").Replace("\\", "-").Replace("/", "-") + "_" + fNametmp;
|
|
|
|
|
if (applIdx > 0)
|
|
|
|
|
{
|
|
|
|
|
fNametmp = Regex.Replace(fNametmp, @"\<U-ID\>", str, RegexOptions.IgnoreCase);
|
|
|
|
|
fNametmp = Regex.Replace(fNametmp, @"\<U-NAME\>", str, RegexOptions.IgnoreCase);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
string fileName = PEIPath + "\\" + str + "Approved_Rev_" + ri.RevisionNumber.Replace(" ", "_").Replace("\\", "-").Replace("/", "-") + "_" + fNametmp;
|
|
|
|
|
xd.Save(fileName);
|
|
|
|
|
FlexibleMessageBox.Show("Approved procedure saved to import file " + fileName, "Creating Export of Approved Procedure", MessageBoxButtons.OK, MessageBoxIcon.Information);
|
|
|
|
|
}
|
|
|
|
|
|