You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
895 lines
30 KiB
895 lines
30 KiB
using System;
|
|
using System.ComponentModel;
|
|
using System.Data;
|
|
using System.IO;
|
|
using System.Linq;
|
|
using System.Windows.Forms;
|
|
using Microsoft.VisualBasic;
|
|
using Microsoft.VisualBasic.CompilerServices;
|
|
|
|
namespace DPM2016
|
|
{
|
|
|
|
public partial class frmMain
|
|
{
|
|
private DPM2016.Generic_Event_Handler evh;
|
|
private DPM2016.DPMSecurity sec;
|
|
|
|
public frmMain()
|
|
{
|
|
evh = DPM2016.Globals.EVH;
|
|
InitializeComponent();
|
|
}
|
|
// Dim sec As New MySecurity
|
|
|
|
private void BeendenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
Close();
|
|
}
|
|
|
|
private void StammdatenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
|
|
}
|
|
|
|
private void SpaltentitelToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmSysadminTableSelector();
|
|
string tablename;
|
|
tablename = f.get_tablename();
|
|
if (string.IsNullOrEmpty(tablename))
|
|
return;
|
|
var db = new DPM2016.clsDB();
|
|
db.Generate_SpaltenData(tablename);
|
|
}
|
|
|
|
private void StammdatenToolStripMenuItem1_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmStammdaten();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
private void LocalizeString(object sender, DevComponents.DotNetBar.LocalizeEventArgs e)
|
|
{
|
|
if (e.Key == "monthcalendar_todaybutton")
|
|
{
|
|
e.LocalizedValue = "Heute";
|
|
}
|
|
|
|
if (e.Key == "monthcalendar_clearbutton")
|
|
{
|
|
e.LocalizedValue = "Löschen";
|
|
}
|
|
|
|
e.Handled = true;
|
|
}
|
|
|
|
private void ProcessControls(Control ctrlContainer, string ctrlname)
|
|
{
|
|
foreach (Control ctrl in ctrlContainer.Controls)
|
|
{
|
|
if ((ctrl.Name ?? "") == (ctrlname ?? ""))
|
|
{
|
|
ctrl.Visible = false;
|
|
}
|
|
if (ctrl.HasChildren)
|
|
{
|
|
ProcessControls(ctrl, ctrlname);
|
|
}
|
|
}
|
|
}
|
|
private void frmMain_Load(object sender, EventArgs e)
|
|
{
|
|
if (DPM2016.My.MySettingsProperty.Settings.SoftwareType == "PADM")
|
|
TarifToolStripMenuItem.Text = "Artikel";
|
|
DevComponents.DotNetBar.LocalizationKeys.LocalizeString += LocalizeString;
|
|
string[] args = Environment.GetCommandLineArgs();
|
|
try
|
|
{
|
|
if (args[1] == "dmstest")
|
|
{
|
|
DPM2016.My.MySettingsProperty.Settings.TempPath = Application.StartupPath + @"\Demo\";
|
|
DPM2016.My.MySettingsProperty.Settings.DocArchivPath = Application.StartupPath + @"\Demo";
|
|
DPM2016.My.MySettingsProperty.Settings.ConnectionString = "data source=shu00;initial catalog=shub_padm;;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29";
|
|
var db = new DPM2016.clsDB();
|
|
|
|
db.Get_Spaltendata();
|
|
DPM2016.Globals.Spaltendaten = db.dsDaten.Tables[0];
|
|
DPM2016.Globals.ActUser = 1;
|
|
var f = new DPM2016.dmstest();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
return;
|
|
}
|
|
if (args[1] == "PADM")
|
|
DPM2016.My.MySettingsProperty.Settings.SoftwareType = "PADM";
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
|
|
|
|
|
|
DPM2016.Globals.License.Read_LicenseFile(Application.StartupPath + @"\keyfile.key");
|
|
if (DPM2016.Globals.License.DemoMode)
|
|
{
|
|
var f = new DPM2016.frmDemoMode();
|
|
f.ShowDialog();
|
|
DPM2016.My.MySettingsProperty.Settings.TempPath = Application.StartupPath + @"\Demo";
|
|
DPM2016.My.MySettingsProperty.Settings.DocArchivPath = Application.StartupPath + @"\Demo";
|
|
DPM2016.Globals.License.Gueltigbis = DateTime.Now.AddDays(30d);
|
|
}
|
|
if (DPM2016.Globals.License.Gueltigbis < DateTime.Now)
|
|
{
|
|
Interaction.MsgBox("Ihre Lizenz ist abgelaufen. Sie können diese erneuern.");
|
|
Close();
|
|
Application.Exit();
|
|
return;
|
|
}
|
|
int ddif;
|
|
ddif = (int)DateAndTime.DateDiff(DateInterval.Day, DateTime.Now, DPM2016.Globals.License.Gueltigbis);
|
|
if (ddif < 15)
|
|
{
|
|
Interaction.MsgBox("Achtung. Ihre Lizenz ist noch " + ddif.ToString() + " Tage gültig. Erneuern Sie diese rechtzeitig.", Constants.vbInformation);
|
|
}
|
|
|
|
DPM2016.Globals.Mainweindow = this;
|
|
if (check_db_connection())
|
|
{
|
|
var db1 = new DPM2016.clsDB();
|
|
if (Strings.UCase(db1.Get_Option(40000)) == "TRUE")
|
|
{
|
|
DPM2016.Globals.Applicationtype = DPM2016.Globals.ApplicationTypes.Projektabrechnung;
|
|
DPM2016.Globals.Productname = "Projekt Administration";
|
|
PatientToolStripMenuItem.Text = "Kunden";
|
|
FirmenToolStripMenuItem.Visible = false;
|
|
}
|
|
if (Strings.UCase(db1.Get_Option(40002)) == "TRUE")
|
|
{
|
|
DPM2016.Globals.DruckBranche = true;
|
|
}
|
|
db1.Dispose();
|
|
|
|
|
|
var db = new DPM2016.clsDB();
|
|
|
|
db.Get_Spaltendata();
|
|
DPM2016.Globals.Spaltendaten = db.dsDaten.Tables[0];
|
|
if (DPM2016.frmLogin.Check_User())
|
|
{
|
|
// Dim f As New frmprodukt
|
|
// f.Show()
|
|
PatientToolStripMenuItem_Click(sender, e);
|
|
}
|
|
else
|
|
{
|
|
// Program.splashForm.Visible = False
|
|
try
|
|
{
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
|
|
DPM2016.Globals.ActUser = -99;
|
|
var f = new DPM2016.frmLogin();
|
|
f.ShowDialog();
|
|
if (f.DialogResult == DialogResult.Abort)
|
|
{
|
|
Application.Exit();
|
|
Close();
|
|
return;
|
|
}
|
|
PatientToolStripMenuItem_Click(sender, e);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
Interaction.MsgBox("Die Datenbank konnte nicht gefunden werden. Die Anwendung wird geschlossen.", Constants.vbExclamation);
|
|
Application.Exit();
|
|
Environment.Exit(0);
|
|
}
|
|
Label1.Text = DPM2016.Globals.Databasename;
|
|
Label1.Left = Width - 100 - Label1.Width;
|
|
Text = DPM2016.My.MySettingsProperty.Settings.SoftwareType + " - " + DPM2016.Globals.Databasename;
|
|
Refresh_Printerconfig();
|
|
// sec.Set_Form_Security(Me)
|
|
FinanzenToolStripMenuItem.Visible = true;
|
|
AuswertungenToolStripMenuItem.Visible = true;
|
|
StammdatenToolStripMenuItem.Visible = true;
|
|
|
|
|
|
// sec.Reset_Mainmenu(Me)
|
|
|
|
|
|
// Select Case Globals.Funktionsstufe
|
|
// Case 2
|
|
// Me.FinanzenToolStripMenuItem.Visible = False
|
|
// Me.AuswertungenToolStripMenuItem.Visible = False
|
|
// Me.StammdatenToolStripMenuItem.Visible = False
|
|
// End Select
|
|
|
|
Check_Tempdir();
|
|
DPM2016.IntTables.Inttables.Tables.Clear();
|
|
var db2 = new DPM2016.clsDB();
|
|
DPM2016.Globals.MailClient = db2.Get_Option(9805);
|
|
|
|
DPM2016.Globals.Hide_Gueltig_bis = Strings.UCase(db2.Get_Option(9100)) == "TRUE";
|
|
DPM2016.Globals.MenuString = db2.Get_Option(Conversions.ToInteger("9101"));
|
|
DPM2016.Globals.Recall_nach_Abschluss = Strings.UCase(db2.Get_Option(9102)) == "TRUE";
|
|
DPM2016.Globals.sec = new DPM2016.DPMSecurity();
|
|
|
|
if (Strings.UCase(db2.Get_Option(60020)) == "TRUE")
|
|
{
|
|
DPM2016.Globals.UseSecurityObjects = true;
|
|
|
|
Form argf = this;
|
|
DPM2016.Globals.sec.Set_Form_Security(ref argf);
|
|
}
|
|
if (db2.Get_Option(100000) == "True")
|
|
MobileToolStripMenuItem.Visible = true;
|
|
else
|
|
MobileToolStripMenuItem.Visible = false;
|
|
DPM2016.Globals.User_Lagerbestand = db2.Get_Option(Conversions.ToInteger("70010")) == "True";
|
|
if (DPM2016.Globals.License.DMS == false)
|
|
{
|
|
DokumenteToolStripMenuItem.Visible = false;
|
|
}
|
|
db2 = (DPM2016.clsDB)null;
|
|
}
|
|
|
|
public void Check_Tempdir()
|
|
{
|
|
string[] splitter;
|
|
splitter = DPM2016.My.MySettingsProperty.Settings.TempPath.Split('\\');
|
|
string root;
|
|
root = splitter[0] + @"\" + splitter[1];
|
|
if (!Directory.Exists(root))
|
|
{
|
|
Directory.CreateDirectory(root);
|
|
}
|
|
if (splitter.Length > 2)
|
|
{
|
|
for (int i = 2, loopTo = splitter.Length - 1; i <= loopTo; i++)
|
|
{
|
|
root = root + @"\" + splitter[i];
|
|
if (!Directory.Exists(root))
|
|
{
|
|
Directory.CreateDirectory(root);
|
|
}
|
|
|
|
}
|
|
}
|
|
for (int i = 2, loopTo1 = splitter.Length - 2; i <= loopTo1; i++)
|
|
{
|
|
|
|
}
|
|
|
|
if (!Directory.Exists(DPM2016.My.MySettingsProperty.Settings.TempPath))
|
|
{
|
|
Directory.CreateDirectory(DPM2016.My.MySettingsProperty.Settings.TempPath);
|
|
}
|
|
|
|
this.Delete_Files(DPM2016.My.MySettingsProperty.Settings.TempPath, 4);
|
|
try
|
|
{
|
|
if (DPM2016.Globals.License.DMS == true)
|
|
{
|
|
var db = new DPM2016.clsDB();
|
|
db.Get_Tabledata("dms", "", "Select * from dms_settings where nreintrag=6");
|
|
Delete_Files(Conversions.ToString(db.dsDaten.Tables[0].Rows[0][2]), -1);
|
|
}
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
|
|
|
|
}
|
|
|
|
public void Delete_Files(string path, int intervall)
|
|
{
|
|
try
|
|
{
|
|
string[] theFiles = Directory.GetFiles(path);
|
|
|
|
foreach (string currentFile in theFiles)
|
|
{
|
|
var theFileInfo = new FileInfo(currentFile);
|
|
|
|
var dateDiff = DateTime.Now.Subtract(theFileInfo.CreationTime.Date);
|
|
|
|
if (dateDiff.Days >= intervall)
|
|
{
|
|
File.Delete(currentFile);
|
|
}
|
|
}
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
|
|
}
|
|
public void Refresh_Printerconfig()
|
|
{
|
|
cbboxPrinterConfig.Items.Clear();
|
|
string ppath;
|
|
ppath = Application.StartupPath + @"\" + DPM2016.Globals.Auswertungsverzeicnis + @"\PrinterConfig";
|
|
var di = new DirectoryInfo(ppath);
|
|
cbboxPrinterConfig.Items.Clear();
|
|
cbboxPrinterConfig.Items.Add("");
|
|
|
|
foreach (var fi in di.GetFiles())
|
|
cbboxPrinterConfig.Items.Add(fi.Name);
|
|
|
|
}
|
|
public bool check_db_connection()
|
|
{
|
|
if (File.Exists(Application.StartupPath + @"\Connectionstrings.cfg"))
|
|
{
|
|
var f = new DPM2016.frmDBConnection();
|
|
f.BringToFront();
|
|
f.ShowDialog();
|
|
if (f.DialogResult == DialogResult.OK)
|
|
{
|
|
DPM2016.My.MySettingsProperty.Settings.ConnectionString = f.Connectionstring;
|
|
DPM2016.Globals.Spaltendaten.Clear();
|
|
DPM2016.Globals.SQLStatements.Clear();
|
|
DPM2016.IntTables.Inttables.Tables.Clear();
|
|
DPM2016.IntTables.orte.Clear();
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
return false;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
return true;
|
|
}
|
|
}
|
|
|
|
private void PatientToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
Cursor = Cursors.WaitCursor;
|
|
var f = new DPM2016.Patient();
|
|
f.MdiParent = this;
|
|
|
|
f.Show();
|
|
f.tsbtnfirst_Click(sender, e);
|
|
Cursor = Cursors.Default;
|
|
}
|
|
|
|
private void AuswertungenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmAuswertung();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void PruefzifferToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
string a;
|
|
a = Interaction.InputBox("Zahl");
|
|
Interaction.MsgBox(Pruefziffer(a));
|
|
}
|
|
|
|
public string Pruefziffer(string zahl)
|
|
{
|
|
string PruefzifferRet = default;
|
|
var ptab = new int[10, 10];
|
|
var pz = new int[10];
|
|
string s1, s2, s3;
|
|
|
|
long i1, i2;
|
|
|
|
s1 = "0,9,4,6,8,2,7,1,3,5";
|
|
s2 = s1;
|
|
for (i1 = 0L; i1 <= 9L; i1++)
|
|
{
|
|
for (i2 = 0L; i2 <= 9L; i2++)
|
|
ptab[(int)i1, (int)i2] = Conversions.ToInteger(Strings.Mid(s2, (int)(i2 * 2L + 1L), 1));
|
|
s3 = Strings.Left(s1, 1);
|
|
s1 = Strings.Right(s1, Strings.Len(s1) - 2);
|
|
s1 = s1 + "," + s3;
|
|
s2 = s1;
|
|
}
|
|
pz[0] = 0;
|
|
pz[1] = 9;
|
|
pz[2] = 8;
|
|
pz[3] = 7;
|
|
pz[4] = 6;
|
|
pz[5] = 5;
|
|
pz[6] = 4;
|
|
pz[7] = 3;
|
|
pz[8] = 2;
|
|
pz[9] = 1;
|
|
|
|
int i, x, y, z, e;
|
|
string xx;
|
|
y = 0;
|
|
var loopTo = Strings.Len(zahl);
|
|
for (i = 1; i <= loopTo; i++)
|
|
{
|
|
x = (int)Math.Round(Conversion.Val(Strings.Mid(zahl, i, 1)));
|
|
y = ptab[x, y];
|
|
}
|
|
PruefzifferRet = Conversion.Str(pz[y]);
|
|
return PruefzifferRet;
|
|
}
|
|
|
|
private void RechnungenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmFakturierung();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void AuswertungenToolStripMenuItem1_Click(object sender, EventArgs e)
|
|
{
|
|
|
|
}
|
|
|
|
private void FirmenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmFirma();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void DruckerToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmPrinterselect();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void ZahlungsdateiVerarbeitenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmZahlung();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void AuswertungenToolStripMenuItem2_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmAuswertung();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void AbmeldenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
if (Interaction.MsgBox("Möchten Sie sich abmelden?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbYes)
|
|
{
|
|
DPM2016.Globals.LogedIn = false;
|
|
while (DPM2016.Globals.LogedIn == false)
|
|
{
|
|
var f = new DPM2016.frmLogin();
|
|
f.ShowDialog();
|
|
}
|
|
Form argf = this;
|
|
DPM2016.Globals.sec.Reset_Mainmenu(ref argf);
|
|
Form argf1 = this;
|
|
DPM2016.Globals.sec.Set_Form_Security(ref argf1);
|
|
DruckerToolStripMenuItem.Visible = false;
|
|
EncryptToolStripMenuItem.Visible = false;
|
|
SepaToolStripMenuItem.Visible = false;
|
|
AgendaToolStripMenuItem.Visible = false;
|
|
|
|
|
|
}
|
|
}
|
|
|
|
private void EncryptToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var db = new DPM2016.clsDB();
|
|
db.Get_Tabledata("Privat");
|
|
foreach (DataRow r in db.dsDaten.Tables[0].Rows)
|
|
{
|
|
r["Name"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Name"]), DPM2016.Globals.encryptkey);
|
|
r["Vorname"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Vorname"]), DPM2016.Globals.encryptkey);
|
|
r["Strasse"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Strasse"]), DPM2016.Globals.encryptkey);
|
|
r["PLZ"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["PLZ"]), DPM2016.Globals.encryptkey);
|
|
r["Ort"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Ort"]), DPM2016.Globals.encryptkey);
|
|
r["Telp"] = DPM2016.Crypto.EncryptText(Conversions.ToString(r["Telp"]), DPM2016.Globals.encryptkey);
|
|
|
|
}
|
|
db.Update_Data();
|
|
}
|
|
|
|
private void ToolStripMenuItem3_Click(object sender, EventArgs e)
|
|
{
|
|
foreach (Form frm in MdiChildren)
|
|
frm.Close();
|
|
|
|
frmMain_Load(sender, e);
|
|
}
|
|
|
|
private void SepaToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
private void cbboxPrinterConfig_SelectedIndexChanged(object sender, EventArgs e)
|
|
{
|
|
if (Interaction.MsgBox("Druckereinstellungen anpassen?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbYes)
|
|
{
|
|
string ppath;
|
|
ppath = Application.StartupPath + @"\" + DPM2016.Globals.Auswertungsverzeicnis + @"\PrinterConfig\" + cbboxPrinterConfig.Text;
|
|
var f = new DPM2016.frmAuswertung();
|
|
DPM2016.frmAuswertungen.Chenge_Profile(ppath);
|
|
}
|
|
}
|
|
|
|
private void evh_Refresh_PrinterConfig()
|
|
{
|
|
Refresh_Printerconfig();
|
|
}
|
|
|
|
private void SecurityObjekgeToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
|
|
}
|
|
|
|
private void MahnungenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.Mahnungen();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void frmMain_Resize(object sender, EventArgs e)
|
|
{
|
|
Label1.Left = Width - 100 - Label1.Width;
|
|
}
|
|
|
|
private void SuchenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmSuche();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
|
|
}
|
|
|
|
private void RechnungskopienToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmRechnungskopien();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void CAMT054ToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
// 'Try
|
|
// Dim serializer As New XmlSerializer(GetType(Document))
|
|
// Dim reader As New IO.StreamReader("E:\Software-Projekte\DPM\CAMT\Dentis 2018-08-15 1531322859509.054\camt.054_SIC_04_038415740520_NN_0384157405201000_20180711_172739509_213.xml")
|
|
// Dim xdocument As Document = serializer.Deserialize(reader)
|
|
// Dim a As List(Of AccountNotification7) = xdocument.BkToCstmrDbtCdtNtfctn.Ntfctn.ToList
|
|
|
|
|
|
// For Each accountinformation As AccountNotification7 In a
|
|
// For Each r4 As ReportEntry4 In accountinformation.Ntry
|
|
// For Each ed As EntryDetails3 In r4.NtryDtls
|
|
// For Each td As EntryTransaction4 In ed.TxDtls
|
|
// MsgBox(td.Amt.Value.ToString)
|
|
// MsgBox(td.RmtInf.Strd(0).CdtrRefInf.Ref)
|
|
// Try
|
|
// MsgBox(td.Chrgs.TtlChrgsAndTaxAmt.Value)
|
|
// Catch
|
|
// End Try
|
|
|
|
// Next
|
|
// Next
|
|
// Next
|
|
// Next
|
|
|
|
// 'For i As Integer = 0 To a.Count - 1
|
|
// ' For ii As Integer = 0 To a(i).Ntry.Count - 1
|
|
// ' For iii As Integer = 0 To a(i).Ntry(ii).NtryDtls.Count - 1
|
|
// ' For iiii As Integer = 0 To a(i).Ntry(ii).NtryDtls
|
|
// ' MsgBox(a(i).Ntry(ii).NtryDtls(iii).)
|
|
// ' Next
|
|
// ' Next
|
|
// ' MsgBox(a(i).Ntry(0).NtryDtls
|
|
// 'Next
|
|
|
|
|
|
|
|
// reader.Close()
|
|
// reader.Dispose()
|
|
// 'Catch EX As Exception
|
|
// 'MsgBox(EX.Message)
|
|
// 'End Try
|
|
|
|
}
|
|
|
|
private void AgendaToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmAgenda();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void ÜberDPMToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
if (DPM2016.Globals.Applicationtype == DPM2016.Globals.ApplicationTypes.Projektabrechnung)
|
|
{
|
|
var f = new DPM2016.frmDemoMode("Über PADM");
|
|
f.ShowDialog();
|
|
}
|
|
else
|
|
{
|
|
var f = new DPM2016.frmDemoMode("Über DPM");
|
|
f.ShowDialog();
|
|
|
|
}
|
|
}
|
|
|
|
private void frmMain_Closing(object sender, CancelEventArgs e)
|
|
{
|
|
if (DPM2016.Globals.Filemanagement.Filecollection.Count > 0)
|
|
{
|
|
if (Interaction.MsgBox("Sie haben noch Dokumente, welche in Bearbeitung sind. Programm trotzdem beenden?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbNo)
|
|
{
|
|
e.Cancel = true;
|
|
}
|
|
}
|
|
}
|
|
|
|
private void DatenbankSicherungErstellenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
SaveFileDialog1.Filter = "Datenbank-Sicherungen (*.bak)|*.bak";
|
|
if (SaveFileDialog1.ShowDialog() == DialogResult.OK)
|
|
{
|
|
var db = new DPM2016.clsDB();
|
|
db.SaveDatabase(SaveFileDialog1.FileName);
|
|
}
|
|
|
|
}
|
|
|
|
private void DatenbankSicherungZurückladenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
if (Interaction.MsgBox("Sind Sie sicher, dass Sie einen gespeicherten Datenbestand wieder herstellen möchten?", (MsgBoxStyle)((int)Constants.vbYesNo + (int)Constants.vbQuestion)) == Constants.vbYes)
|
|
{
|
|
OpenFileDialog1.Filter = "Datenbank-Sicherungen (*.bak)|*.bak";
|
|
if (OpenFileDialog1.ShowDialog() == DialogResult.OK)
|
|
{
|
|
var db = new DPM2016.clsDB();
|
|
db.RestoreDatabase(OpenFileDialog1.FileName);
|
|
}
|
|
}
|
|
}
|
|
|
|
private void DatenbankSicherungErstellenToolStripMenuItem1_Click(object sender, EventArgs e)
|
|
{
|
|
Interaction.Shell(Application.StartupPath + @"\sqlbackup.cmd", AppWinStyle.NormalFocus);
|
|
}
|
|
|
|
private void TemporäreVorschaudateienLöschenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
if (string.IsNullOrEmpty(DPM2016.Globals.PreViewDir))
|
|
{
|
|
var db = new DPM2016.clsDB();
|
|
db.Get_Tabledata("dms", "", "Select * from dms_Settings where nreintrag=6");
|
|
DPM2016.Globals.PreViewDir = Conversions.ToString(db.dsDaten.Tables[0].Rows[0][2]);
|
|
if (!Directory.Exists(DPM2016.Globals.PreViewDir))
|
|
{
|
|
Directory.CreateDirectory(DPM2016.Globals.PreViewDir);
|
|
}
|
|
}
|
|
try
|
|
{
|
|
string directoryName = DPM2016.Globals.PreViewDir;
|
|
foreach (var deleteFile in Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly))
|
|
{
|
|
try
|
|
{
|
|
File.Delete(deleteFile);
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
|
|
}
|
|
}
|
|
catch
|
|
{
|
|
}
|
|
|
|
}
|
|
|
|
private void SQLScriptAusführenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmSQLCript();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void frmMain_FormClosing(object sender, FormClosingEventArgs e)
|
|
{
|
|
|
|
}
|
|
|
|
private void InterneTabellenLöschenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
DPM2016.IntTables.Inttables.Tables.Clear();
|
|
}
|
|
|
|
private void ProgrammEinstellungenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmProgrammeinstellungen();
|
|
f.MdiParent = this;
|
|
|
|
f.Show();
|
|
}
|
|
|
|
private void SpaltentitelToolStripMenuItem_Click_1(object sender, EventArgs e)
|
|
{
|
|
|
|
}
|
|
|
|
private void FormulareToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmAuswertungen();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void SecurityObjekteToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
|
|
}
|
|
|
|
private void ObjektListerToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var formselector = new DPM2016.frmFormSelector();
|
|
formselector.ListForms.Items.Clear();
|
|
formselector.ListForms.Items.Add(Name);
|
|
foreach (Form x in MdiChildren)
|
|
formselector.ListForms.Items.Add(x.Name);
|
|
formselector.ShowDialog();
|
|
var sec1 = new DPM2016.DPMSecurity();
|
|
string s = "";
|
|
foreach (object it in formselector.ListForms.SelectedItems)
|
|
{
|
|
if (Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(it, Name, false)))
|
|
{
|
|
switch (formselector.DialogResult)
|
|
{
|
|
case DialogResult.OK:
|
|
{
|
|
Form argf = this;
|
|
s = sec1.List_Form_Controls(ref argf);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
foreach (Form x in MdiChildren)
|
|
{
|
|
if (Conversions.ToBoolean(Operators.ConditionalCompareObjectEqual(x.Name, it, false)))
|
|
{
|
|
switch (formselector.DialogResult)
|
|
{
|
|
case DialogResult.OK:
|
|
{
|
|
s = sec1.List_Form_Controls(ref x);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
var f = new DPM2016.frmTexteditor();
|
|
f.TextBox1.Text = s;
|
|
f.Show();
|
|
}
|
|
|
|
private void TarifToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmProgrammeinstellungen();
|
|
f.MdiParent = this;
|
|
f.TabControl1.SelectTab(0);
|
|
|
|
f.Show();
|
|
}
|
|
|
|
private void MailtexteToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmProgrammeinstellungen();
|
|
f.MdiParent = this;
|
|
f.TabControl1.SelectTab(2);
|
|
|
|
f.Show();
|
|
}
|
|
|
|
private void AllgEinstellungenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmProgrammeinstellungen();
|
|
f.MdiParent = this;
|
|
f.TabControl1.SelectTab(3);
|
|
|
|
f.Show();
|
|
}
|
|
|
|
private void KontoToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmProgrammeinstellungen();
|
|
f.MdiParent = this;
|
|
f.TabControl1.SelectTab(1);
|
|
|
|
f.Show();
|
|
}
|
|
|
|
private void KundendatenTransferierenToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var mobile = new DPM2016.clsMobile();
|
|
mobile.Transfer_Patientenstamm();
|
|
|
|
|
|
}
|
|
|
|
private void DokumenteToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmDokumentList();
|
|
f.MdiParent = this;
|
|
f.Show();
|
|
}
|
|
|
|
private void TestToolStripMenuItem_Click(object sender, EventArgs e)
|
|
{
|
|
var f = new DPM2016.frmrtf();
|
|
f.Show();
|
|
}
|
|
|
|
|
|
// Private Sub SecurityObjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecurityObjekteToolStripMenuItem.Click
|
|
// Dim formselector As New frmFormSelector
|
|
// formselector.ListForms.Items.Clear()
|
|
// formselector.ListForms.Items.Add(Me.Name)
|
|
// For Each x As Form In Me.MdiChildren
|
|
// formselector.ListForms.Items.Add(x.Name)
|
|
// Next
|
|
// formselector.ShowDialog()
|
|
|
|
// For Each it As Object In formselector.ListForms.SelectedItems
|
|
// If it = Me.Name Then
|
|
// Select Case formselector.DialogResult
|
|
// Case Windows.Forms.DialogResult.Retry
|
|
// sec.Check_Obsoloet(Me)
|
|
// Case Windows.Forms.DialogResult.OK
|
|
// sec.List_Form_Controls(Me)
|
|
// Case Windows.Forms.DialogResult.Ignore
|
|
// sec.Delete_Obsoloet(Me)
|
|
// End Select
|
|
// Else
|
|
// For Each x As Form In Me.MdiChildren
|
|
// If x.Name = it Then
|
|
// Select Case formselector.DialogResult
|
|
// Case Windows.Forms.DialogResult.Retry
|
|
// sec.Check_Obsoloet(x)
|
|
// Case Windows.Forms.DialogResult.OK
|
|
// sec.List_Form_Controls(x)
|
|
// Case Windows.Forms.DialogResult.Ignore
|
|
// sec.Delete_Obsoloet(x)
|
|
// End Select
|
|
// End If
|
|
// Next
|
|
// End If
|
|
// Next
|
|
|
|
|
|
// Exit Sub
|
|
|
|
// End Sub
|
|
|
|
|
|
|
|
}
|
|
} |