Nachrichtenverarbeitung RMC

initATLASAufschubkonten/frmStartOptions.vb

@@ -80,6 +80,11 @@ Public Class frmStartOptions
         cboSYSKAFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360 GmbH", "19"))
         cboSYSKAFirma.changeItem("")
 
+        cbxRMC.Items.Clear()
+        cbxRMC.fillWithSQL("SELECT api_program FROM tblAPIEinstellungen WHERE api_program like 'RMC%'", False, "ADMIN", True)
+        cbxRMC.changeItem("")
+
+
         txtGJ_UNISPED.Text = Now.Year
 
         txtEZOLLAnhDat._value = Now.ToShortDateString
@@ -3703,6 +3708,7 @@ Public Class frmStartOptions
                 End If
 
             Case "buchungenAMBAR"
+
                 VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(24, CheckBox7.Checked, If(cbxSyskaWdh.Checked, txtSyskaWdhDateiname.Text, ""), True)
         End Select
 
@@ -4360,5 +4366,11 @@ Public Class frmStartOptions
 
     Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
 
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
+        If cbxRMC._value = "" Then Exit Sub
+        Dim f As New frmRMCNachrichtenVerarbeitung(cbxRMC._value)
+        f.ShowDialog()
+        Me.Visible = True
     End Sub
 End Class