C2023-002: When using RO Update Values feature, display message when other users are in Proms and don’t do update

This commit is contained in:
2023-01-18 16:31:35 +00:00
parent 7be346b6c8
commit 3661876626
6 changed files with 74 additions and 32 deletions

View File

@@ -29,13 +29,16 @@ namespace VEPROMS
get { return _CheckedOutProcedures; }
set { _CheckedOutProcedures = value; }
}
public frmBatchRefreshCheckedOut()
private int RType = -1; // C2023-002: Flag type of checkout, docversion -1 or procedures 0
public frmBatchRefreshCheckedOut(int type)
{
RType = type;
InitializeComponent();
}
private void frmBatchRefreshCheckedOut_FormClosing(object sender, FormClosingEventArgs e)
{
Owner.Show();
DialogResult = DialogResult.Cancel;
}
private void frmBatchRefreshCheckedOut_Load(object sender, EventArgs e)
{
@@ -50,20 +53,23 @@ namespace VEPROMS
p.BorderStyle = BorderStyle.FixedSingle;
p.Dock = DockStyle.Top;
p.Height = 28;
Button b = new Button();
//b.FlatStyle = FlatStyle.Popup;
b.Dock = DockStyle.Right;
b.Text = "Force Check In";
b.Tag = pi;
b.Click += new EventHandler(ForceCheckIn_Click);
p.Controls.Add(b);
b = new Button();
//b.FlatStyle = FlatStyle.Popup;
b.Dock = DockStyle.Right;
b.Text = "Send Email";
b.Tag = pi;
b.Click += new EventHandler(SendEmail_Click);
p.Controls.Add(b);
if (RType != 1) // C2023-002: only put out ForceCheckin & sendemail buttons if on procedures (can't check in a docversion)
{
Button b = new Button();
//b.FlatStyle = FlatStyle.Popup;
b.Dock = DockStyle.Right;
b.Text = "Force Check In";
b.Tag = pi;
b.Click += new EventHandler(ForceCheckIn_Click);
p.Controls.Add(b);
b = new Button();
//b.FlatStyle = FlatStyle.Popup;
b.Dock = DockStyle.Right;
b.Text = "Send Email";
b.Tag = pi;
b.Click += new EventHandler(SendEmail_Click);
p.Controls.Add(b);
}
Label l = new Label();
l.Dock = DockStyle.Fill;
l.TextAlign = ContentAlignment.MiddleLeft;