neu

initATLASAufschubkonten/frmStartOptions.vb

@@ -51,6 +51,13 @@ Public Class frmStartOptions
         MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC"))
         MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF"))
 
+        cboBMDUnispedFirma.Items.Clear()
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Österreich", "21"))
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland", "22"))
+        cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23"))
+        cboBMDUnispedFirma.changeItem("")
+
         Dim PARAM = ""
         Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
         If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de          r Pfad zum programm ist
@@ -112,6 +119,12 @@ Public Class frmStartOptions
                 AddHandler f.FormClosed, AddressOf closeMe
 
 
+            Case "MDM_EINARBEITUNG"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim f As New frmMDMNachrichtenVerarbeitung(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
             Case "TC_EINARBEITUNG"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
                 Dim f As New frmTCNachrichtenVerarbeitung(True)
@@ -612,7 +625,7 @@ Public Class frmStartOptions
                                         getEZB_Waehrungskurse = True
                                     Next
                                 End If
-
+                                VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.UPDATE_Waehrungstabelle(datum) ' Waehrungstabelle befüllen
 
                             End If
 
@@ -1218,4 +1231,18 @@ Public Class frmStartOptions
         f.ShowDialog()
         Me.Visible = True
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
+        If cboBMDUnispedFirma._value = "" Then
+            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked, False)
+        Else
+            VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_Buchungen(cboBMDUnispedFirma._value, CheckBox4.Checked)
+        End If
+    End Sub
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False
+        VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked,, False)
+    End Sub
 End Class