Namespace EDOKA
    Public Class DB_Connection
        Shared Sub New()
            Try
                'Edoka
                oread = IO.File.OpenText(args(1) + "edokaconn.cfg")
                sConnectionString_edoka = oread.ReadLine
                Globals.sConnectionString_edoka = sConnectionString_edoka
                Console.WriteLine("EDOKA_HOST Connected")
                oread.Close()

                'ZV
                oread = IO.File.OpenText(args(1) + "edokazvconn.cfg")
                sConnectionString_ZV = oread.ReadLine
                Globals.sConnectionString_ZV = sConnectionString_ZV
                Console.WriteLine("EDOKA_ZV Connected")
                oread.Close()

                'UVM
                oread = IO.File.OpenText(args(1) + "edokauvmconn.cfg")
                sConnectionstring_UVM = oread.ReadLine
                Globals.sConnectionstring_UVM = sConnectionstring_UVM
                Console.WriteLine("EDOKA_UVM Connected")
                oread.Close()

                'Banklagernd
                oread = IO.File.OpenText(args(1) + "edokablconn.cfg")
                sConnectionstring_BL = oread.ReadLine
                Globals.sConnectionstring_BL = sConnectionstring_BL
                Console.WriteLine("EDOKA-Banklagernd Connected")
                oread.Close()


                'Journale
                oread = IO.File.OpenText(args(1) + "journaleconn.cfg")
                sConnectionString_journale = oread.ReadLine
                'sConnectionString_journale = Crypto.DecryptText(sConnectionString, "HutterundMueller")
                'sConnectionString_journale = Left(sConnectionString, Len(sConnectionString) - 1)
                Globals.sConnectionString_journale = sConnectionString_journale
                Console.WriteLine("EDOKA_Journale Connected")
                oread.Close()

                Globals.conn_edoka.sConnectionString = sConnectionString_edoka
                Globals.conn_journale.sConnectionString = sConnectionString_journale
                Globals.conn_ams.sConnectionString = sConnectionString_ams
                Globals.conn_zv.sConnectionString = sConnectionString_ZV
                Globals.conn_uvm.sConnectionString = sConnectionstring_UVM
                Globals.conn_bl.sConnectionString = sConnectionstring_BL
            Catch ex As Exception
                Throw ex
            End Try
        End Sub
    End Class
End Namespace