C2025-017 Added an option to print (generate) all of the current Approved versions of PDFs and place them in a user specified folder
This commit is contained in:
202
PROMS/VEPROMS User Interface/dlgPrintAllApprovedProcedures.cs
Normal file
202
PROMS/VEPROMS User Interface/dlgPrintAllApprovedProcedures.cs
Normal file
@@ -0,0 +1,202 @@
|
||||
using System;
|
||||
using System.Collections.Generic;
|
||||
using System.ComponentModel;
|
||||
using System.Data;
|
||||
using System.Drawing;
|
||||
using System.Linq;
|
||||
using System.Text;
|
||||
using System.Threading.Tasks;
|
||||
using System.Windows.Forms;
|
||||
using System.IO;
|
||||
using VEPROMS.CSLA.Library;
|
||||
using JR.Utils.GUI.Forms;
|
||||
|
||||
namespace VEPROMS
|
||||
{
|
||||
public partial class dlgPrintAllApprovedProcedures : DevComponents.DotNetBar.Office2007Form
|
||||
{
|
||||
private static readonly log4net.ILog _MyLog = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType);
|
||||
private StringBuilder NotApproved;
|
||||
private DocVersionInfo _DocVersionInfo = null;
|
||||
private int unitId = 0;
|
||||
public dlgPrintAllApprovedProcedures(DocVersionInfo dvi)
|
||||
{
|
||||
InitializeComponent();
|
||||
_DocVersionInfo = dvi;
|
||||
unitId = (_DocVersionInfo.DocVersionConfig.SelectedSlave < 0) ? 0 : _DocVersionInfo.DocVersionConfig.SelectedSlave; // set unitId to zero if not Parent/Child
|
||||
NotApproved = new StringBuilder();
|
||||
txbApprovedPDFsPath.Text = BuildInitialPDFPath(); // set to default approved PDF path
|
||||
}
|
||||
// create an approved PDFs path based on the user's Documents folder and the tree path to the working draft
|
||||
private string BuildInitialPDFPath()
|
||||
{
|
||||
// start with the SearchDVPath which is the node path staring with the top of the PROMS Procedure tree (VEPROMS)
|
||||
string rtnstr = _DocVersionInfo.ActiveParent.SearchDVPath;
|
||||
|
||||
// remove top tree node (VEPROMS) and put a " - " between each tree node name
|
||||
rtnstr = rtnstr.Substring(rtnstr.IndexOf("\a") + 1).Replace("\a", " - ");
|
||||
|
||||
// add the user's path to the My Documments folder to the start of the path
|
||||
rtnstr = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) + "\\" + rtnstr;
|
||||
|
||||
// check if we are printing Approved Child Procedures
|
||||
// if SelectedSlave is > 0 then we are printing Approved Child Procedures and
|
||||
// subtract one from the index (unitId) into the list of child names (UnitNames)
|
||||
if (unitId > 0)
|
||||
rtnstr += "\\" + _DocVersionInfo.UnitNames[unitId - 1]; // append Child name to path
|
||||
return rtnstr;
|
||||
}
|
||||
|
||||
private void ppBtnPDFLoc_Click(object sender, EventArgs e)
|
||||
{
|
||||
if (txbApprovedPDFsPath.Text.Length > 0)
|
||||
ApprovedPDFsFolderDlg.SelectedPath = txbApprovedPDFsPath.Text;
|
||||
DialogResult dr = ApprovedPDFsFolderDlg.ShowDialog();
|
||||
if (dr == DialogResult.OK)
|
||||
{
|
||||
txbApprovedPDFsPath.Text = ApprovedPDFsFolderDlg.SelectedPath;
|
||||
}
|
||||
}
|
||||
|
||||
private bool FolderIsWritable(string dirPath)
|
||||
{
|
||||
try
|
||||
{
|
||||
using (FileStream fs = File.Create(Path.Combine(dirPath, Path.GetRandomFileName()), 1, FileOptions.DeleteOnClose))
|
||||
{ }
|
||||
return true;
|
||||
}
|
||||
catch
|
||||
{
|
||||
return false;
|
||||
}
|
||||
}
|
||||
|
||||
private void btnPrntAllAprv_Click(object sender, EventArgs e)
|
||||
{
|
||||
try
|
||||
{
|
||||
// Create folder if needed, clear the folder
|
||||
if (!Directory.Exists(txbApprovedPDFsPath.Text))
|
||||
Directory.CreateDirectory(txbApprovedPDFsPath.Text);
|
||||
|
||||
// check if the folder location is writable
|
||||
if (!FolderIsWritable(txbApprovedPDFsPath.Text))
|
||||
{
|
||||
MessageBox.Show("Cannot Write to this folder.\n\nSelect a different location.", "Invalid Folder Access", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
||||
btnPrntAllAprv.Enabled = false;
|
||||
}
|
||||
else
|
||||
{
|
||||
int pdfCount = 0;
|
||||
DeleteExistingPDFs(); // delete existing PDFs in the target folder
|
||||
// Get the Child index for Parent/Child procedure - if not Parent/Child this will be zero
|
||||
foreach (ProcedureInfo myProc in _DocVersionInfo.Procedures)
|
||||
{
|
||||
RevisionInfoList ril = RevisionInfoList.GetByItemID(myProc.ItemID);
|
||||
if (ril.Count == 0)
|
||||
{
|
||||
NotApproved.AppendLine(string.Format("No approved Version for {0}", (myProc.PDFNumber.Length > 0) ? myProc.PDFNumber : myProc.DisplayText));
|
||||
}
|
||||
else
|
||||
{
|
||||
bool foundApproved = false;
|
||||
foreach (RevisionInfo revinfo in ril)
|
||||
{
|
||||
// if not Parent/Child, "unitId" and "Applicability_index" will be zero
|
||||
if (unitId == revinfo.MyConfig.Applicability_Index)
|
||||
{
|
||||
if (revinfo.LatestVersion.MyStage.IsApproved > 0)
|
||||
{
|
||||
foundApproved = true;
|
||||
ItemInfo ii = ItemInfo.Get(revinfo.ItemID);
|
||||
ii.MyDocVersion.DocVersionConfig.SelectedSlave = unitId;
|
||||
ProcedureInfo prcInfo = ProcedureInfo.Get(ii.ItemID);
|
||||
SaveApprovedPDFToFolder(revinfo, prcInfo.PDFNumber);// save PDF to folder
|
||||
pdfCount++;
|
||||
break; // got the latest Approved - jump out of foreach revision info loop
|
||||
}
|
||||
}
|
||||
}
|
||||
if (!foundApproved) NotApproved.AppendLine(string.Format("No approved Version for {0}", myProc.PDFNumber));
|
||||
|
||||
}
|
||||
}
|
||||
// if no Approved PDFs were save, display general message and exit
|
||||
if (pdfCount == 0)
|
||||
{
|
||||
string msg = "There are no Approved Procedure PDFs in this procedure set.\n\n Approved Procedures PDFs are created when a procedure is approved using the PROMS Approval function.";
|
||||
FlexibleMessageBox.Show(msg, "Print PDFs Completed", MessageBoxButtons.OK, MessageBoxIcon.Warning);
|
||||
}
|
||||
else // we saved some approved PDFs tell user how many were saved and list procedures that were not approved
|
||||
{
|
||||
string msg = string.Format("{0} PDFs were saved at\n\n{1}", pdfCount, txbApprovedPDFsPath.Text);
|
||||
if (NotApproved.Length > 0)
|
||||
{
|
||||
msg += string.Format("\n\n--------------------------------------------\n\nPDFs for the Following were not Generated:\n\n{0}", NotApproved.ToString());
|
||||
}
|
||||
FlexibleMessageBox.Show(msg, "Print PDFs Completed", MessageBoxButtons.OK, MessageBoxIcon.Information);
|
||||
}
|
||||
}
|
||||
}
|
||||
catch (Exception ex)
|
||||
{
|
||||
_MyLog.Error("Print All Approved PDFs", ex);// save error in PROMS error log
|
||||
MessageBox.Show(ex.Message, ex.GetType().FullName, MessageBoxButtons.OK, MessageBoxIcon.Error);
|
||||
}
|
||||
this.Close(); // close dialog
|
||||
}
|
||||
private void SaveApprovedPDFToFolder(RevisionInfo revInfo,string PDFName)
|
||||
{
|
||||
byte[] buffer = revInfo.LatestVersion.PDF;
|
||||
string PDFFilePath = string.Format("{0}\\{1}.PDF", txbApprovedPDFsPath.Text, PDFName);
|
||||
try
|
||||
{
|
||||
FileStream fs = new FileStream(PDFFilePath, FileMode.Create);
|
||||
fs.Write(buffer, 0, buffer.Length);
|
||||
fs.Close();
|
||||
}
|
||||
catch (Exception ex)
|
||||
{
|
||||
string str = string.Format("Could not create {0}", PDFFilePath);
|
||||
NotApproved.AppendLine(str); // save to list of procedure that were not approved
|
||||
_MyLog.Info(str, ex);// save error in PROMS error log
|
||||
}
|
||||
|
||||
}
|
||||
private void DeleteExistingPDFs()
|
||||
{
|
||||
DirectoryInfo di = new DirectoryInfo(txbApprovedPDFsPath.Text);
|
||||
FileInfo[] fis;
|
||||
//DirectoryInfo[] diAry = di.GetDirectories(txbApprovedPDFsPath.Text);
|
||||
//DirectoryInfo di_fmtgen;
|
||||
// remove all of the PDF fils
|
||||
//di_fmtgen = diAry[0];
|
||||
try
|
||||
{
|
||||
fis = di.GetFiles("*.pdf");
|
||||
foreach (FileInfo fi in fis)
|
||||
{
|
||||
if (fi.IsReadOnly) fi.IsReadOnly = false;
|
||||
fi.Delete();
|
||||
}
|
||||
}
|
||||
catch (Exception ex)
|
||||
{
|
||||
string str = string.Format("Cannot delete files in {0}", txbApprovedPDFsPath.Text);
|
||||
MessageBox.Show(str, "Error deleting files", MessageBoxButtons.OK, MessageBoxIcon.Error);
|
||||
_MyLog.Info(str, ex); // save error in PROMS error log
|
||||
|
||||
}
|
||||
}
|
||||
private void txbApprovedPDFsPath_TextChanged(object sender, EventArgs e)
|
||||
{
|
||||
btnPrntAllAprv.Enabled = txbApprovedPDFsPath.Text.Length > 0;
|
||||
}
|
||||
|
||||
private void btnCancel_Click(object sender, EventArgs e)
|
||||
{
|
||||
this.Close();
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user