SammelRechnung, cDatenserver fix, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -4101,7 +4101,7 @@ Public Class cFakturierung
     Public Shared Function GET_SR_SQLDT(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Optional whereKdNr As String = "", Optional SB As String = "", Optional AvisoIds As List(Of Integer) = Nothing, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional AUTOMailversand As String = "") As DataTable
         If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") "
         Dim whereAbfArt = ""
-        If Abfertigungsart <> "" Then whereAbfArt = " AND (SELECT TOP 1 Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & Abfertigungsart & "'  "
+        If Abfertigungsart <> "" Then whereAbfArt = " AND (SELECT TOP 1 Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr) IN (" & Abfertigungsart & ") "
         Dim whereAutoMailversand = ""
         If AUTOMailversand <> "" Then whereAutoMailversand = " AND isnull(Rechnungsausgang.Automailversand,0) = 1 "
 
@@ -4120,7 +4120,6 @@ Public Class cFakturierung
         Return dt
     End Function
 
-
     Public Shared Function CHECK_SR_SQLDT(dt As DataTable) As Boolean
         For Each r In dt.Rows
             If r("Rechnungsart") <> "RU" Then 'Sofern es sich nicht um eine unvollständige RG handelt, muss der Steuerpflichtige Gesamtbetrag <> 0 sein.

SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmFaktSammelRgDrucken
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmFaktSammelRgDrucken
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFaktSammelRgDrucken))
@@ -32,15 +32,10 @@ Partial Class frmFaktSammelRgDrucken
         Me.RadioButton2 = New System.Windows.Forms.RadioButton()
         Me.RadioButton1 = New System.Windows.Forms.RadioButton()
         Me.RadioButton = New System.Windows.Forms.RadioButton()
-        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lbl = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtRechnungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtZeitraumBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.btn = New System.Windows.Forms.Button()
         Me.Button9 = New System.Windows.Forms.Button()
         Me.Button8 = New System.Windows.Forms.Button()
@@ -48,18 +43,16 @@ Partial Class frmFaktSammelRgDrucken
         Me.cbxSammelbericht = New System.Windows.Forms.CheckBox()
         Me.lkl = New System.Windows.Forms.LinkLabel()
         Me.cbxZusammenfassen = New System.Windows.Forms.CheckBox()
-        Me.cboSB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblSB = New System.Windows.Forms.Label()
         Me.cbxEVOLOG = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.cbxTransFerry = New System.Windows.Forms.CheckBox()
         Me.Label5 = New System.Windows.Forms.Label()
-        Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.cbxMWST = New System.Windows.Forms.CheckBox()
+        Me.cbxAUTOMail = New System.Windows.Forms.CheckBox()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.pnlAUTOMailversand = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
         Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox()
         Me.Button7 = New System.Windows.Forms.Button()
@@ -68,11 +61,21 @@ Partial Class frmFaktSammelRgDrucken
         Me.Label7 = New System.Windows.Forms.Label()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
-        Me.cbxAUTOMail = New System.Windows.Forms.CheckBox()
+        Me.cboFaktGrp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.cboSB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.txtZeitraumBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtRechnungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.btnNurImport = New System.Windows.Forms.Button()
+        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
+        Me.btnKeine = New System.Windows.Forms.Button()
+        Me.lblAbfertigungsarten = New System.Windows.Forms.Label()
+        Me.btnNurExport = New System.Windows.Forms.Button()
         Me.pnl.SuspendLayout()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlAUTOMailversand.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnl
@@ -176,19 +179,6 @@ Partial Class frmFaktSammelRgDrucken
         Me.RadioButton.Text = "1 täglich"
         Me.RadioButton.UseVisualStyleBackColor = True
         '
-        'cboFirma
-        '
-        Me.cboFirma._allowedValuesFreiText = Nothing
-        Me.cboFirma._allowFreiText = False
-        Me.cboFirma._value = ""
-        Me.cboFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboFirma.FormattingEnabled = True
-        Me.cboFirma.Location = New System.Drawing.Point(252, 17)
-        Me.cboFirma.Name = "cboFirma"
-        Me.cboFirma.Size = New System.Drawing.Size(183, 21)
-        Me.cboFirma.TabIndex = 2
-        '
         'lbl
         '
         Me.lbl.AutoSize = True
@@ -225,87 +215,6 @@ Partial Class frmFaktSammelRgDrucken
         Me.Label3.TabIndex = 10
         Me.Label3.Text = "Kunden:"
         '
-        'cboPrinter
-        '
-        Me.cboPrinter._allowedValuesFreiText = Nothing
-        Me.cboPrinter._allowFreiText = False
-        Me.cboPrinter._value = ""
-        Me.cboPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboPrinter.FormattingEnabled = True
-        Me.cboPrinter.Location = New System.Drawing.Point(12, 443)
-        Me.cboPrinter.Name = "cboPrinter"
-        Me.cboPrinter.Size = New System.Drawing.Size(118, 21)
-        Me.cboPrinter.TabIndex = 17
-        '
-        'txtRechnungsdatum
-        '
-        Me.txtRechnungsdatum._DateTimeOnly = False
-        Me.txtRechnungsdatum._numbersOnly = False
-        Me.txtRechnungsdatum._numbersOnlyKommastellen = ""
-        Me.txtRechnungsdatum._numbersOnlyTrennzeichen = True
-        Me.txtRechnungsdatum._Prozent = False
-        Me.txtRechnungsdatum._ShortDateNew = True
-        Me.txtRechnungsdatum._ShortDateOnly = False
-        Me.txtRechnungsdatum._TimeOnly = False
-        Me.txtRechnungsdatum._TimeOnly_Seconds = False
-        Me.txtRechnungsdatum._value = ""
-        Me.txtRechnungsdatum._Waehrung = False
-        Me.txtRechnungsdatum._WaehrungZeichen = True
-        Me.txtRechnungsdatum.ForeColor = System.Drawing.Color.Black
-        Me.txtRechnungsdatum.Location = New System.Drawing.Point(252, 42)
-        Me.txtRechnungsdatum.MaxLength = 10
-        Me.txtRechnungsdatum.MaxLineLength = -1
-        Me.txtRechnungsdatum.MaxLines_Warning = ""
-        Me.txtRechnungsdatum.MaxLines_Warning_Label = Nothing
-        Me.txtRechnungsdatum.Name = "txtRechnungsdatum"
-        Me.txtRechnungsdatum.Size = New System.Drawing.Size(100, 20)
-        Me.txtRechnungsdatum.TabIndex = 4
-        '
-        'txtZeitraumBis
-        '
-        Me.txtZeitraumBis._DateTimeOnly = False
-        Me.txtZeitraumBis._numbersOnly = False
-        Me.txtZeitraumBis._numbersOnlyKommastellen = ""
-        Me.txtZeitraumBis._numbersOnlyTrennzeichen = True
-        Me.txtZeitraumBis._Prozent = False
-        Me.txtZeitraumBis._ShortDateNew = True
-        Me.txtZeitraumBis._ShortDateOnly = False
-        Me.txtZeitraumBis._TimeOnly = False
-        Me.txtZeitraumBis._TimeOnly_Seconds = False
-        Me.txtZeitraumBis._value = ""
-        Me.txtZeitraumBis._Waehrung = False
-        Me.txtZeitraumBis._WaehrungZeichen = True
-        Me.txtZeitraumBis.ForeColor = System.Drawing.Color.Black
-        Me.txtZeitraumBis.Location = New System.Drawing.Point(252, 64)
-        Me.txtZeitraumBis.MaxLength = 10
-        Me.txtZeitraumBis.MaxLineLength = -1
-        Me.txtZeitraumBis.MaxLines_Warning = ""
-        Me.txtZeitraumBis.MaxLines_Warning_Label = Nothing
-        Me.txtZeitraumBis.Name = "txtZeitraumBis"
-        Me.txtZeitraumBis.Size = New System.Drawing.Size(100, 20)
-        Me.txtZeitraumBis.TabIndex = 8
-        '
-        'MyDatagridview1
-        '
-        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
-        Me.MyDatagridview1.AllowUserToAddRows = False
-        Me.MyDatagridview1.AllowUserToDeleteRows = False
-        Me.MyDatagridview1.AllowUserToResizeColumns = False
-        Me.MyDatagridview1.AllowUserToResizeRows = False
-        Me.MyDatagridview1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
-        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.MyDatagridview1.Location = New System.Drawing.Point(252, 91)
-        Me.MyDatagridview1.Name = "MyDatagridview1"
-        Me.MyDatagridview1.ReadOnly = True
-        Me.MyDatagridview1.RowHeadersVisible = False
-        Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.MyDatagridview1.Size = New System.Drawing.Size(547, 373)
-        Me.MyDatagridview1.TabIndex = 18
-        '
         'btn
         '
         Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -376,10 +285,9 @@ Partial Class frmFaktSammelRgDrucken
         '
         'lkl
         '
-        Me.lkl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lkl.AutoSize = True
         Me.lkl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.lkl.Location = New System.Drawing.Point(704, 72)
+        Me.lkl.Location = New System.Drawing.Point(706, 72)
         Me.lkl.Name = "lkl"
         Me.lkl.Size = New System.Drawing.Size(95, 13)
         Me.lkl.TabIndex = 9
@@ -397,20 +305,6 @@ Partial Class frmFaktSammelRgDrucken
         Me.cbxZusammenfassen.Text = "zusammenfassen"
         Me.cbxZusammenfassen.UseVisualStyleBackColor = True
         '
-        'cboSB
-        '
-        Me.cboSB._allowedValuesFreiText = Nothing
-        Me.cboSB._allowFreiText = False
-        Me.cboSB._value = ""
-        Me.cboSB.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboSB.FormattingEnabled = True
-        Me.cboSB.Location = New System.Drawing.Point(532, 19)
-        Me.cboSB.Name = "cboSB"
-        Me.cboSB.Size = New System.Drawing.Size(267, 21)
-        Me.cboSB.TabIndex = 6
-        Me.cboSB.Visible = False
-        '
         'lblSB
         '
         Me.lblSB.AutoSize = True
@@ -475,40 +369,6 @@ Partial Class frmFaktSammelRgDrucken
         Me.Label5.TabIndex = 23
         Me.Label5.Text = "Fakt.Gruppe:"
         '
-        'cboFaktGrp
-        '
-        Me.cboFaktGrp._allowedValuesFreiText = Nothing
-        Me.cboFaktGrp._allowFreiText = False
-        Me.cboFaktGrp._value = ""
-        Me.cboFaktGrp.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboFaktGrp.FormattingEnabled = True
-        Me.cboFaktGrp.Location = New System.Drawing.Point(532, 42)
-        Me.cboFaktGrp.Name = "cboFaktGrp"
-        Me.cboFaktGrp.Size = New System.Drawing.Size(166, 21)
-        Me.cboFaktGrp.TabIndex = 24
-        '
-        'Label6
-        '
-        Me.Label6.Location = New System.Drawing.Point(444, 68)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(82, 17)
-        Me.Label6.TabIndex = 25
-        Me.Label6.Text = "Abfertigungsart:"
-        '
-        'cboAbfertigungsart
-        '
-        Me.cboAbfertigungsart._allowedValuesFreiText = Nothing
-        Me.cboAbfertigungsart._allowFreiText = False
-        Me.cboAbfertigungsart._value = ""
-        Me.cboAbfertigungsart.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboAbfertigungsart.FormattingEnabled = True
-        Me.cboAbfertigungsart.Location = New System.Drawing.Point(532, 64)
-        Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(166, 21)
-        Me.cboAbfertigungsart.TabIndex = 26
-        '
         'Button2
         '
         Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -527,11 +387,10 @@ Partial Class frmFaktSammelRgDrucken
         '
         'cbxMWST
         '
-        Me.cbxMWST.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.cbxMWST.AutoSize = True
         Me.cbxMWST.Checked = True
         Me.cbxMWST.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.cbxMWST.Location = New System.Drawing.Point(707, 46)
+        Me.cbxMWST.Location = New System.Drawing.Point(712, 46)
         Me.cbxMWST.Name = "cbxMWST"
         Me.cbxMWST.Size = New System.Drawing.Size(94, 17)
         Me.cbxMWST.TabIndex = 28
@@ -539,6 +398,22 @@ Partial Class frmFaktSammelRgDrucken
         Me.cbxMWST.ThreeState = True
         Me.cbxMWST.UseVisualStyleBackColor = True
         '
+        'cbxAUTOMail
+        '
+        Me.cbxAUTOMail.AutoSize = True
+        Me.cbxAUTOMail.Location = New System.Drawing.Point(555, 44)
+        Me.cbxAUTOMail.Name = "cbxAUTOMail"
+        Me.cbxAUTOMail.Size = New System.Drawing.Size(116, 17)
+        Me.cbxAUTOMail.TabIndex = 30
+        Me.cbxAUTOMail.Text = "AUTO Mailversand"
+        Me.cbxAUTOMail.UseVisualStyleBackColor = True
+        Me.cbxAUTOMail.Visible = False
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
+        '
         'pnlAUTOMailversand
         '
         Me.pnlAUTOMailversand.BackColor = System.Drawing.Color.AliceBlue
@@ -647,35 +522,189 @@ Partial Class frmFaktSammelRgDrucken
         Me.Button3.Text = "aktivieren"
         Me.Button3.UseVisualStyleBackColor = True
         '
-        'cbxAUTOMail
+        'cboFaktGrp
         '
-        Me.cbxAUTOMail.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cboFaktGrp._allowedValuesFreiText = Nothing
-        Me.cbxAUTOMail.AutoSize = True
+        Me.cboFaktGrp._allowFreiText = False
-        Me.cbxAUTOMail.Location = New System.Drawing.Point(550, 44)
+        Me.cboFaktGrp._value = ""
-        Me.cbxAUTOMail.Name = "cbxAUTOMail"
+        Me.cboFaktGrp.FormattingEnabled = True
-        Me.cbxAUTOMail.Size = New System.Drawing.Size(116, 17)
+        Me.cboFaktGrp.Location = New System.Drawing.Point(532, 42)
-        Me.cbxAUTOMail.TabIndex = 30
+        Me.cboFaktGrp.Name = "cboFaktGrp"
-        Me.cbxAUTOMail.Text = "AUTO Mailversand"
+        Me.cboFaktGrp.Size = New System.Drawing.Size(171, 21)
-        Me.cbxAUTOMail.UseVisualStyleBackColor = True
+        Me.cboFaktGrp.TabIndex = 24
-        Me.cbxAUTOMail.Visible = False
         '
-        'ContextMenuStrip1
+        'cboSB
         '
-        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.cboSB._allowedValuesFreiText = Nothing
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 26)
+        Me.cboSB._allowFreiText = False
+        Me.cboSB._value = ""
+        Me.cboSB.FormattingEnabled = True
+        Me.cboSB.Location = New System.Drawing.Point(532, 19)
+        Me.cboSB.Name = "cboSB"
+        Me.cboSB.Size = New System.Drawing.Size(272, 21)
+        Me.cboSB.TabIndex = 6
+        Me.cboSB.Visible = False
+        '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToAddRows = False
+        Me.MyDatagridview1.AllowUserToDeleteRows = False
+        Me.MyDatagridview1.AllowUserToResizeColumns = False
+        Me.MyDatagridview1.AllowUserToResizeRows = False
+        Me.MyDatagridview1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Location = New System.Drawing.Point(252, 91)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.ReadOnly = True
+        Me.MyDatagridview1.RowHeadersVisible = False
+        Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.MyDatagridview1.Size = New System.Drawing.Size(574, 373)
+        Me.MyDatagridview1.TabIndex = 18
+        '
+        'txtZeitraumBis
+        '
+        Me.txtZeitraumBis._DateTimeOnly = False
+        Me.txtZeitraumBis._numbersOnly = False
+        Me.txtZeitraumBis._numbersOnlyKommastellen = ""
+        Me.txtZeitraumBis._numbersOnlyTrennzeichen = True
+        Me.txtZeitraumBis._Prozent = False
+        Me.txtZeitraumBis._ShortDateNew = True
+        Me.txtZeitraumBis._ShortDateOnly = False
+        Me.txtZeitraumBis._TimeOnly = False
+        Me.txtZeitraumBis._TimeOnly_Seconds = False
+        Me.txtZeitraumBis._value = ""
+        Me.txtZeitraumBis._Waehrung = False
+        Me.txtZeitraumBis._WaehrungZeichen = True
+        Me.txtZeitraumBis.ForeColor = System.Drawing.Color.Black
+        Me.txtZeitraumBis.Location = New System.Drawing.Point(252, 64)
+        Me.txtZeitraumBis.MaxLength = 10
+        Me.txtZeitraumBis.MaxLineLength = -1
+        Me.txtZeitraumBis.MaxLines_Warning = ""
+        Me.txtZeitraumBis.MaxLines_Warning_Label = Nothing
+        Me.txtZeitraumBis.Name = "txtZeitraumBis"
+        Me.txtZeitraumBis.Size = New System.Drawing.Size(100, 20)
+        Me.txtZeitraumBis.TabIndex = 8
+        '
+        'txtRechnungsdatum
+        '
+        Me.txtRechnungsdatum._DateTimeOnly = False
+        Me.txtRechnungsdatum._numbersOnly = False
+        Me.txtRechnungsdatum._numbersOnlyKommastellen = ""
+        Me.txtRechnungsdatum._numbersOnlyTrennzeichen = True
+        Me.txtRechnungsdatum._Prozent = False
+        Me.txtRechnungsdatum._ShortDateNew = True
+        Me.txtRechnungsdatum._ShortDateOnly = False
+        Me.txtRechnungsdatum._TimeOnly = False
+        Me.txtRechnungsdatum._TimeOnly_Seconds = False
+        Me.txtRechnungsdatum._value = ""
+        Me.txtRechnungsdatum._Waehrung = False
+        Me.txtRechnungsdatum._WaehrungZeichen = True
+        Me.txtRechnungsdatum.ForeColor = System.Drawing.Color.Black
+        Me.txtRechnungsdatum.Location = New System.Drawing.Point(252, 42)
+        Me.txtRechnungsdatum.MaxLength = 10
+        Me.txtRechnungsdatum.MaxLineLength = -1
+        Me.txtRechnungsdatum.MaxLines_Warning = ""
+        Me.txtRechnungsdatum.MaxLines_Warning_Label = Nothing
+        Me.txtRechnungsdatum.Name = "txtRechnungsdatum"
+        Me.txtRechnungsdatum.Size = New System.Drawing.Size(100, 20)
+        Me.txtRechnungsdatum.TabIndex = 4
+        '
+        'cboPrinter
+        '
+        Me.cboPrinter._allowedValuesFreiText = Nothing
+        Me.cboPrinter._allowFreiText = False
+        Me.cboPrinter._value = ""
+        Me.cboPrinter.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cboPrinter.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboPrinter.FormattingEnabled = True
+        Me.cboPrinter.Location = New System.Drawing.Point(12, 443)
+        Me.cboPrinter.Name = "cboPrinter"
+        Me.cboPrinter.Size = New System.Drawing.Size(118, 21)
+        Me.cboPrinter.TabIndex = 17
+        '
+        'cboFirma
+        '
+        Me.cboFirma._allowedValuesFreiText = Nothing
+        Me.cboFirma._allowFreiText = False
+        Me.cboFirma._value = ""
+        Me.cboFirma.FormattingEnabled = True
+        Me.cboFirma.Location = New System.Drawing.Point(252, 17)
+        Me.cboFirma.Name = "cboFirma"
+        Me.cboFirma.Size = New System.Drawing.Size(183, 21)
+        Me.cboFirma.TabIndex = 2
+        '
+        'btnNurImport
+        '
+        Me.btnNurImport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNurImport.Location = New System.Drawing.Point(836, 437)
+        Me.btnNurImport.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnNurImport.Name = "btnNurImport"
+        Me.btnNurImport.Size = New System.Drawing.Size(75, 26)
+        Me.btnNurImport.TabIndex = 47
+        Me.btnNurImport.Text = "Import"
+        Me.btnNurImport.UseVisualStyleBackColor = True
+        '
+        'MyListBox1
+        '
+        Me.MyListBox1._value = ""
+        Me.MyListBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.MyListBox1.FormattingEnabled = True
+        Me.MyListBox1.Location = New System.Drawing.Point(836, 93)
+        Me.MyListBox1.Name = "MyListBox1"
+        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple
+        Me.MyListBox1.Size = New System.Drawing.Size(225, 342)
+        Me.MyListBox1.TabIndex = 44
+        '
+        'btnKeine
+        '
+        Me.btnKeine.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnKeine.Location = New System.Drawing.Point(985, 437)
+        Me.btnKeine.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnKeine.Name = "btnKeine"
+        Me.btnKeine.Size = New System.Drawing.Size(75, 26)
+        Me.btnKeine.TabIndex = 45
+        Me.btnKeine.Text = "Keine"
+        Me.btnKeine.UseVisualStyleBackColor = True
+        '
+        'lblAbfertigungsarten
+        '
+        Me.lblAbfertigungsarten.AutoSize = True
+        Me.lblAbfertigungsarten.Location = New System.Drawing.Point(833, 77)
+        Me.lblAbfertigungsarten.Name = "lblAbfertigungsarten"
+        Me.lblAbfertigungsarten.Size = New System.Drawing.Size(93, 13)
+        Me.lblAbfertigungsarten.TabIndex = 43
+        Me.lblAbfertigungsarten.Text = "Abfertigungsarten:"
+        '
+        'btnNurExport
+        '
+        Me.btnNurExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnNurExport.Location = New System.Drawing.Point(911, 437)
+        Me.btnNurExport.Margin = New System.Windows.Forms.Padding(0)
+        Me.btnNurExport.Name = "btnNurExport"
+        Me.btnNurExport.Size = New System.Drawing.Size(75, 26)
+        Me.btnNurExport.TabIndex = 48
+        Me.btnNurExport.Text = "Export"
+        Me.btnNurExport.UseVisualStyleBackColor = True
         '
         'frmFaktSammelRgDrucken
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(811, 472)
+        Me.ClientSize = New System.Drawing.Size(1069, 472)
+        Me.Controls.Add(Me.btnNurExport)
+        Me.Controls.Add(Me.btnNurImport)
+        Me.Controls.Add(Me.MyListBox1)
+        Me.Controls.Add(Me.btnKeine)
+        Me.Controls.Add(Me.lblAbfertigungsarten)
         Me.Controls.Add(Me.cbxAUTOMail)
         Me.Controls.Add(Me.pnlAUTOMailversand)
         Me.Controls.Add(Me.cbxMWST)
         Me.Controls.Add(Me.Button2)
-        Me.Controls.Add(Me.Label6)
-        Me.Controls.Add(Me.cboAbfertigungsart)
         Me.Controls.Add(Me.Label5)
         Me.Controls.Add(Me.cboFaktGrp)
         Me.Controls.Add(Me.Button1)
@@ -707,9 +736,9 @@ Partial Class frmFaktSammelRgDrucken
         Me.Text = "Sammelrechnungen drucken"
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlAUTOMailversand.ResumeLayout(False)
         Me.pnlAUTOMailversand.PerformLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -746,8 +775,6 @@ Partial Class frmFaktSammelRgDrucken
     Friend WithEvents cbxTransFerry As CheckBox
     Friend WithEvents Label5 As Label
     Friend WithEvents cboFaktGrp As VERAG_PROG_ALLGEMEIN.MyComboBox
-    Friend WithEvents Label6 As Label
-    Friend WithEvents cboAbfertigungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Button2 As Button
     Friend WithEvents RadioButton5 As RadioButton
     Friend WithEvents cbxMWST As CheckBox
@@ -761,4 +788,9 @@ Partial Class frmFaktSammelRgDrucken
     Friend WithEvents Button7 As Button
     Friend WithEvents cbxMailoeffnen As CheckBox
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
+    Friend WithEvents btnNurImport As Button
+    Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox
+    Friend WithEvents btnKeine As Button
+    Friend WithEvents lblAbfertigungsarten As Label
+    Friend WithEvents btnNurExport As Button
 End Class

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -1,4 +1,6 @@
 Imports com.sun.tools.javadoc
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
+Imports GrapeCity.Viewer.Common.Model
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -28,7 +30,7 @@ Public Class frmFaktSammelRgDrucken
     End Sub
 
     Private Sub RadioButton_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton.CheckedChanged, RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged, RadioButton6.CheckedChanged, RadioButton5.CheckedChanged
-        lblSB.Visible = False : cboSB.Visible = False : btn.Enabled = True : Button9.Enabled = True : Button8.Enabled = True : cbxMWST.Visible = False : pnlAUTOMailversand.Visible = False : cbxAUTOMail.Visible = False
+        lblSB.Visible = False : cboSB.Visible = False : btn.Enabled = True : Button9.Enabled = True : Button8.Enabled = True : cbxMWST.Visible = False : pnlAUTOMailversand.Visible = False : cbxAUTOMail.Visible = False : MyListBox1.Enabled = True : btnNurExport.Enabled = True : btnNurImport.Enabled = True : btnKeine.Enabled = True
 
         cboSB.changeItem("")
         If DirectCast(sender, RadioButton).Checked Then Sammelrechung = sender.tag
@@ -54,6 +56,8 @@ Public Class frmFaktSammelRgDrucken
             Case 6 : txtZeitraumBis.Text = Now.AddDays(-1).ToShortDateString : lblSB.Visible = True : cboSB.Visible = True
                 cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) : btn.Enabled = False : Button9.Enabled = False : Button2.Enabled = False
                 cbxMWST.Visible = True : pnlAUTOMailversand.Visible = True : cbxAUTOMail.Visible = True : Label5.Visible = False : cboFaktGrp.Visible = False
+                MyListBox1.Enabled = False : btnNurExport.Enabled = False : btnNurImport.Enabled = False : btnKeine.Enabled = False
+
 
             Case 7 : txtZeitraumBis.Text = Now.ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
         End Select
@@ -67,7 +71,11 @@ Public Class frmFaktSammelRgDrucken
         With MyDatagridview1
             Dim whereAbfArt = ""
             Dim whereMWST = ""
-            If cboAbfertigungsart._value <> "" AndAlso Sammelrechung <> 6 Then whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & cboAbfertigungsart._value & "'  "
+            Dim abfertigungsarten = getValues()
+
+            If Sammelrechung <> 6 AndAlso abfertigungsarten <> "" Then
+                whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr) IN (" & abfertigungsarten & ") "
+            End If
             If cbxMWST.CheckState.Indeterminate Then
                 whereMWST = ""
             Else
@@ -160,11 +168,21 @@ Public Class frmFaktSammelRgDrucken
         End With
     End Sub
 
+    Function getValues() As String
+        Dim s As String = ""
+        For Each i In MyListBox1.SelectedItems
+            s += DirectCast(i, VERAG_PROG_ALLGEMEIN.MyListItem).Value & ", "
+        Next
+        If s.EndsWith(", ") Then
+            s = s.Substring(0, s.Length - 2)
+        End If
+        Return s
+    End Function
+
     Private Sub frmFaktSammelRgDrucken_Load(sender As Object, e As EventArgs) Handles Me.Load
         txtZeitraumBis.Text = Now.ToShortDateString
         txtRechnungsdatum.Text = Now.ToShortDateString
-
+        MyListBox1.fillWithSQL(" SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", , "FMZOLL")
-        cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart  ", True, "FMZOLL", True)
 
         Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
@@ -177,7 +195,7 @@ Public Class frmFaktSammelRgDrucken
         If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso (CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Or VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username = "ADMIN" Or VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_username = "DANIEL") Then
             FirmaTmp = "VERAG360"
             RadioButton5.Enabled = True
-            cboAbfertigungsart.changeItem("10")
+            MyListBox1.SetSelected(10, True)
 
         Else
             RadioButton5.Enabled = False
@@ -355,8 +373,8 @@ Public Class frmFaktSammelRgDrucken
 
         End If
 
-
+        Dim abfertigungsarten = getValues()
-        Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, RG_DRUCK, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value, MDMKopiedrucken)
+        Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, RG_DRUCK, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value, abfertigungsarten, MDMKopiedrucken)
         f.ShowDialog(Me)
         MyDatagridview1.GetOrder()
         initDGV()
@@ -391,7 +409,10 @@ Public Class frmFaktSammelRgDrucken
             Dim listPDFs As New List(Of String)
             Dim SonstAnlagen As New List(Of String)
             Dim RechnungsNrisSet As Boolean = False
-            RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value)
+
+            Dim abfertigungsarten = getValues()
+
+            RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value, abfertigungsarten)
 
             '-------------- für PDF-Sammel-Rechnung -------------- 
 
@@ -531,7 +552,7 @@ Public Class frmFaktSammelRgDrucken
         initDGV()
     End Sub
 
-    Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged
+    Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs)
         initDGV()
     End Sub
 
@@ -694,20 +715,49 @@ Public Class frmFaktSammelRgDrucken
 
 
     Private Sub mnuItem_Clicked(sender As Object, e As EventArgs)
-        ContextMenuStrip1.Hide()
-        Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
 
-        If item IsNot Nothing Then
+    End Sub
 
-            If item.Name <> "" AndAlso IsNumeric(item.Name) Then
+    Private Sub btnNurAbf_Click(sender As Object, e As EventArgs) Handles btnNurImport.Click, btnNurExport.Click
 
-                Dim f As New SDL.frmAbrechnungsMaskeEinzeln(item.Name)
+        Dim where As String = ""
-                f.Show(Me)
 
+        Select Case sender.Name
+            Case "btnNurImport" : where = "Typ = 'I'"
+            Case Else : where = "Typ = 'E'"
+        End Select
 
-            End If
+        Dim dt = (New SQL).loadDgvBySql("SELECT Abfertigungsart FROM [Abfertigungsarten] where 1 = 1 AND " & where, "FMZOLL")
+        MyListBox1.ClearSelected()
+        If dt IsNot Nothing Then
+            For Each r In dt.Rows
+                For i = 0 To MyListBox1.Items.Count - 1
+                    If DirectCast(MyListBox1.Items(i), VERAG_PROG_ALLGEMEIN.MyListItem).Value = r("Abfertigungsart") Then
+                        MyListBox1.SetSelected(i, True)
+                    End If
+                Next
+            Next
+
+            initDGV()
 
         End If
 
+
+    End Sub
+
+    Private Sub btnAlle_Click(sender As Object, e As EventArgs)
+        For i = 0 To MyListBox1.Items.Count - 1
+            MyListBox1.SetSelected(i, True)
+        Next
+        initDGV()
+
+    End Sub
+
+    Private Sub btnKeine_Click(sender As Object, e As EventArgs) Handles btnKeine.Click
+        For i = 0 To MyListBox1.Items.Count - 1
+            MyListBox1.SetSelected(i, False)
+        Next
+        initDGV()
+
     End Sub
 End Class

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.4.8.5")>
+<Assembly: AssemblyVersion("1.4.8.6")>
-<Assembly: AssemblyFileVersion("1.4.8.5")>
+<Assembly: AssemblyFileVersion("1.4.8.6")>

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -1401,10 +1401,10 @@ Public Class cFormularManager
                         If size.Width <= 0 OrElse size.Height <= 0 Then Continue For
                         ' --- Druckeinstellungen ---
                         doc.PrintSettings.PrinterName = printerName
-                        doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.ActualSize, False)
+                    doc.PageSettings.Size = Spire.Pdf.PdfPageSize.A4
-                        doc.PrintSettings.Landscape = True
+                    doc.PageSettings.Orientation = Spire.Pdf.PdfPageOrientation.Landscape
-                        doc.PrintSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 827, 1169)
+                    doc.PrintSettings.SelectSinglePageLayout(PdfSinglePageScalingMode.FitSize, True)
-                        doc.Print()
+                    doc.Print()
 
                     End Using