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



    }
}