MDM, Chat, etc.

SDL/kassenbuch/frmNacherfassungLeihgeld.vb

@@ -669,7 +669,6 @@ Public Class frmNacherfassungLeihgeld
 
 
         Dim BELEG_Prov As New EABeleg(PERSONAL.Mandant, PERSONAL.Niederlassung, PERSONAL.ID)
-        'lblRgNr.Text = "12345 / TR"
         BELEG_Prov.BelegDat = BELEG.BelegDat
         BELEG_Prov.Beleg_TYP = "K"
         BELEG_Prov.KundenNr = BELEG.FrachtführerKundenNr
@@ -736,7 +735,6 @@ Public Class frmNacherfassungLeihgeld
         If f.ShowDialog() Then
             barBetrag = f.BELEG.rksv_umsatz
             BelegNrProvision = f.BELEG.rksv_BelegId
-
             printProvision = f.printErfolgreich
         End If
         ' f.Close()
@@ -781,8 +779,8 @@ Public Class frmNacherfassungLeihgeld
             VALUES.Frachtfuehrer_KdNr = BELEG.FrachtführerKundenNr
             VALUES.Frachtfuehrer_Firma = BELEG.Frachtführer
             VALUES.KdAuftrNr = If(BELEG.Auftraggeber_KdAuftragsnummer, "")
-
             VALUES.Auftraggeber_Leistung1 = "Leihgeld"
+
             Dim betrag As Double = 0
             For Each p In BELEG.POS
                 betrag += p.Preis

SDL/mdm/usrCntlMDMAuswertungen.Designer.vb

@@ -129,6 +129,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.TabPage3 = New System.Windows.Forms.TabPage()
         Me.Label66 = New System.Windows.Forms.Label()
         Me.GroupBox20 = New System.Windows.Forms.GroupBox()
+        Me.cbxNurUnter50EUR = New System.Windows.Forms.CheckBox()
         Me.cboQuartal = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtLeistungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -201,7 +202,6 @@ Partial Class usrCntlMDMAuswertungen
         Me.btnContractdaten = New System.Windows.Forms.Button()
         Me.Button15 = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.cbxNurUnter50EUR = New System.Windows.Forms.CheckBox()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1461,6 +1461,18 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox20.TabIndex = 14
         Me.GroupBox20.TabStop = False
         '
+        'cbxNurUnter50EUR
+        '
+        Me.cbxNurUnter50EUR.AutoSize = True
+        Me.cbxNurUnter50EUR.Checked = True
+        Me.cbxNurUnter50EUR.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxNurUnter50EUR.Location = New System.Drawing.Point(391, 46)
+        Me.cbxNurUnter50EUR.Name = "cbxNurUnter50EUR"
+        Me.cbxNurUnter50EUR.Size = New System.Drawing.Size(111, 17)
+        Me.cbxNurUnter50EUR.TabIndex = 17
+        Me.cbxNurUnter50EUR.Text = "Nur unter 50 EUR"
+        Me.cbxNurUnter50EUR.UseVisualStyleBackColor = True
+        '
         'cboQuartal
         '
         Me.cboQuartal._allowedValuesFreiText = Nothing
@@ -1492,7 +1504,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.txtLeistungsNr.MaxLines_Warning = ""
         Me.txtLeistungsNr.MaxLines_Warning_Label = Nothing
         Me.txtLeistungsNr.Name = "txtLeistungsNr"
-        Me.txtLeistungsNr.Size = New System.Drawing.Size(93, 20)
+        Me.txtLeistungsNr.Size = New System.Drawing.Size(141, 20)
         Me.txtLeistungsNr.TabIndex = 15
         Me.txtLeistungsNr.Text = "327"
         '
@@ -1550,7 +1562,7 @@ Partial Class usrCntlMDMAuswertungen
         'Label64
         '
         Me.Label64.AutoSize = True
-        Me.Label64.Location = New System.Drawing.Point(153, 50)
+        Me.Label64.Location = New System.Drawing.Point(145, 50)
         Me.Label64.Name = "Label64"
         Me.Label64.Size = New System.Drawing.Size(27, 13)
         Me.Label64.TabIndex = 8
@@ -2242,18 +2254,6 @@ Partial Class usrCntlMDMAuswertungen
         Me.pnl.Size = New System.Drawing.Size(1057, 54)
         Me.pnl.TabIndex = 26
         '
-        'cbxNurUnter50EUR
-        '
-        Me.cbxNurUnter50EUR.AutoSize = True
-        Me.cbxNurUnter50EUR.Checked = True
-        Me.cbxNurUnter50EUR.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxNurUnter50EUR.Location = New System.Drawing.Point(414, 73)
-        Me.cbxNurUnter50EUR.Name = "cbxNurUnter50EUR"
-        Me.cbxNurUnter50EUR.Size = New System.Drawing.Size(111, 17)
-        Me.cbxNurUnter50EUR.TabIndex = 17
-        Me.cbxNurUnter50EUR.Text = "Nur unter 50 EUR"
-        Me.cbxNurUnter50EUR.UseVisualStyleBackColor = True
-        '
         'usrCntlMDMAuswertungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1532,7 +1532,7 @@ Public Class usrCntlMDMAuswertungen
             End If
 
             Dim rmc As cRMC
-            Dim dt = rmc.getRMCQuartalsAbrechnungen(New VERAG_PROG_ALLGEMEIN.SQL, cboQuartal._value.Trim(), Jahr, txtLeistungsNr.Text,,, cbxNurUnter50EUR.Checked)
+            Dim dt = rmc.getRMCQuartalsAbrechnungen(New VERAG_PROG_ALLGEMEIN.SQL, IIf(cboQuartal._value.Trim() <> "", cboQuartal._value.Trim(), 0), Jahr, txtLeistungsNr.Text,,, cbxNurUnter50EUR.Checked)
 
             If dt.Rows.Count > 0 Then
                 cProgramFunctions.genExcelFromDT_NEW(dt)