div. Änderngen (Barverkauf, ustva, etc.).

SDL/mdm/usrcntlFremdrechnungen.Designer.vb

@@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
         Me.btnSDL_Alle = New System.Windows.Forms.Button()
@@ -37,7 +37,12 @@ Partial Class usrcntlFremdrechnungen
         Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
         Me.btnSDL_RMC = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.lblCountOrigRechnungen = New System.Windows.Forms.Label()
         Me.cbxTest = New System.Windows.Forms.CheckBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -49,8 +54,6 @@ Partial Class usrcntlFremdrechnungen
         Me.cbxPDFhinterlegt = New System.Windows.Forms.CheckBox()
         Me.cbx = New System.Windows.Forms.CheckBox()
         Me.Label4 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.Label1 = New System.Windows.Forms.Label()
         Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
         Me.dat_Sum_Von = New System.Windows.Forms.DateTimePicker()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -65,7 +68,8 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.lblCountMissingInvoices = New System.Windows.Forms.Label()
         Me.FlowLayoutPanel.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -268,11 +272,24 @@ Partial Class usrcntlFremdrechnungen
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(155, 48)
         '
+        'PDFLöschenToolStripMenuItem
+        '
+        Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
+        Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem"
+        Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
+        Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
+        '
         'Panel1
         '
         Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.lblCountMissingInvoices)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label9)
+        Me.Panel1.Controls.Add(Me.Label8)
+        Me.Panel1.Controls.Add(Me.lblCountOrigRechnungen)
         Me.Panel1.Controls.Add(Me.cbxTest)
         Me.Panel1.Controls.Add(Me.Label7)
         Me.Panel1.Controls.Add(Me.txtKundenNrbis)
@@ -284,8 +301,6 @@ Partial Class usrcntlFremdrechnungen
         Me.Panel1.Controls.Add(Me.cbxPDFhinterlegt)
         Me.Panel1.Controls.Add(Me.cbx)
         Me.Panel1.Controls.Add(Me.Label4)
-        Me.Panel1.Controls.Add(Me.Label2)
-        Me.Panel1.Controls.Add(Me.Label1)
         Me.Panel1.Controls.Add(Me.dat_Sum_Bis)
         Me.Panel1.Controls.Add(Me.dat_Sum_Von)
         Me.Panel1.Controls.Add(Me.Button1)
@@ -301,10 +316,49 @@ Partial Class usrcntlFremdrechnungen
         Me.Panel1.Size = New System.Drawing.Size(260, 907)
         Me.Panel1.TabIndex = 23
         '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(124, 151)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(10, 13)
+        Me.Label2.TabIndex = 65
+        Me.Label2.Text = "-"
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(2, 3)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(42, 13)
+        Me.Label9.TabIndex = 64
+        Me.Label9.Text = "Anzahl:"
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(2, 45)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(90, 13)
+        Me.Label8.TabIndex = 63
+        Me.Label8.Text = "ITC nicht gesetzt:"
+        '
+        'lblCountOrigRechnungen
+        '
+        Me.lblCountOrigRechnungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblCountOrigRechnungen.BackColor = System.Drawing.Color.White
+        Me.lblCountOrigRechnungen.Location = New System.Drawing.Point(173, 45)
+        Me.lblCountOrigRechnungen.Name = "lblCountOrigRechnungen"
+        Me.lblCountOrigRechnungen.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblCountOrigRechnungen.Size = New System.Drawing.Size(74, 13)
+        Me.lblCountOrigRechnungen.TabIndex = 62
+        Me.lblCountOrigRechnungen.Text = "0"
+        Me.lblCountOrigRechnungen.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
         'cbxTest
         '
         Me.cbxTest.AutoSize = True
-        Me.cbxTest.Location = New System.Drawing.Point(146, 214)
+        Me.cbxTest.Location = New System.Drawing.Point(146, 274)
         Me.cbxTest.Name = "cbxTest"
         Me.cbxTest.Size = New System.Drawing.Size(61, 17)
         Me.cbxTest.TabIndex = 61
@@ -315,7 +369,7 @@ Partial Class usrcntlFremdrechnungen
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(121, 126)
+        Me.Label7.Location = New System.Drawing.Point(121, 193)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(10, 13)
         Me.Label7.TabIndex = 60
@@ -336,7 +390,7 @@ Partial Class usrcntlFremdrechnungen
         Me.txtKundenNrbis._Waehrung = False
         Me.txtKundenNrbis._WaehrungZeichen = False
         Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black
-        Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123)
+        Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 190)
         Me.txtKundenNrbis.MaxLineLength = -1
         Me.txtKundenNrbis.MaxLines_Warning = ""
         Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing
@@ -359,7 +413,7 @@ Partial Class usrcntlFremdrechnungen
         Me.txtKundenNrvon._Waehrung = False
         Me.txtKundenNrvon._WaehrungZeichen = False
         Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black
-        Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123)
+        Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 190)
         Me.txtKundenNrvon.MaxLineLength = -1
         Me.txtKundenNrvon.MaxLines_Warning = ""
         Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing
@@ -370,26 +424,28 @@ Partial Class usrcntlFremdrechnungen
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(8, 107)
+        Me.Label6.Location = New System.Drawing.Point(8, 174)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(58, 13)
         Me.Label6.TabIndex = 57
-        Me.Label6.Text = "KundenNr."
+        Me.Label6.Text = "KundenNr:"
         '
         'lblSumBto
         '
-        Me.lblSumBto.AutoSize = True
+        Me.lblSumBto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblSumBto.BackColor = System.Drawing.Color.White
-        Me.lblSumBto.Location = New System.Drawing.Point(190, 20)
+        Me.lblSumBto.Location = New System.Drawing.Point(173, 24)
         Me.lblSumBto.Name = "lblSumBto"
-        Me.lblSumBto.Size = New System.Drawing.Size(13, 13)
+        Me.lblSumBto.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblSumBto.Size = New System.Drawing.Size(74, 13)
         Me.lblSumBto.TabIndex = 56
         Me.lblSumBto.Text = "0"
+        Me.lblSumBto.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
         'Label5
         '
         Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(3, 20)
+        Me.Label5.Location = New System.Drawing.Point(2, 24)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(76, 13)
         Me.Label5.TabIndex = 55
@@ -400,7 +456,7 @@ Partial Class usrcntlFremdrechnungen
         Me.cbxMailoeffnen.AutoSize = True
         Me.cbxMailoeffnen.Checked = True
         Me.cbxMailoeffnen.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 237)
+        Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 297)
         Me.cbxMailoeffnen.Name = "cbxMailoeffnen"
         Me.cbxMailoeffnen.Size = New System.Drawing.Size(91, 17)
         Me.cbxMailoeffnen.TabIndex = 54
@@ -412,7 +468,7 @@ Partial Class usrcntlFremdrechnungen
         Me.cbxPDFhinterlegt.AutoSize = True
         Me.cbxPDFhinterlegt.Checked = True
         Me.cbxPDFhinterlegt.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 179)
+        Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 239)
         Me.cbxPDFhinterlegt.Name = "cbxPDFhinterlegt"
         Me.cbxPDFhinterlegt.Size = New System.Drawing.Size(101, 17)
         Me.cbxPDFhinterlegt.TabIndex = 53
@@ -423,7 +479,7 @@ Partial Class usrcntlFremdrechnungen
         'cbx
         '
         Me.cbx.AutoSize = True
-        Me.cbx.Location = New System.Drawing.Point(8, 161)
+        Me.cbx.Location = New System.Drawing.Point(8, 221)
         Me.cbx.Name = "cbx"
         Me.cbx.Size = New System.Drawing.Size(169, 17)
         Me.cbx.TabIndex = 52
@@ -433,44 +489,26 @@ Partial Class usrcntlFremdrechnungen
         'Label4
         '
         Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(2, 35)
+        Me.Label4.Location = New System.Drawing.Point(8, 132)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(91, 13)
+        Me.Label4.Size = New System.Drawing.Size(94, 13)
         Me.Label4.TabIndex = 51
-        Me.Label4.Text = "Rechnungsdatum"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(5, 83)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(20, 13)
-        Me.Label2.TabIndex = 50
-        Me.Label2.Text = "bis"
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(5, 57)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(28, 13)
-        Me.Label1.TabIndex = 49
-        Me.Label1.Text = "von:"
+        Me.Label4.Text = "Rechnungsdatum:"
         '
         'dat_Sum_Bis
         '
         Me.dat_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dat_Sum_Bis.Location = New System.Drawing.Point(60, 77)
+        Me.dat_Sum_Bis.Location = New System.Drawing.Point(146, 148)
         Me.dat_Sum_Bis.Name = "dat_Sum_Bis"
-        Me.dat_Sum_Bis.Size = New System.Drawing.Size(103, 20)
+        Me.dat_Sum_Bis.Size = New System.Drawing.Size(98, 20)
         Me.dat_Sum_Bis.TabIndex = 48
         '
         'dat_Sum_Von
         '
         Me.dat_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.dat_Sum_Von.Location = New System.Drawing.Point(60, 51)
+        Me.dat_Sum_Von.Location = New System.Drawing.Point(11, 148)
         Me.dat_Sum_Von.Name = "dat_Sum_Von"
-        Me.dat_Sum_Von.Size = New System.Drawing.Size(103, 20)
+        Me.dat_Sum_Von.Size = New System.Drawing.Size(98, 20)
         Me.dat_Sum_Von.TabIndex = 46
         '
         'Button1
@@ -479,7 +517,7 @@ Partial Class usrcntlFremdrechnungen
         Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(11, 322)
+        Me.Button1.Location = New System.Drawing.Point(11, 382)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(50, 44)
         Me.Button1.TabIndex = 45
@@ -491,7 +529,7 @@ Partial Class usrcntlFremdrechnungen
         Me.cbxMax1000Eintrage.AutoSize = True
         Me.cbxMax1000Eintrage.Checked = True
         Me.cbxMax1000Eintrage.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 199)
+        Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 259)
         Me.cbxMax1000Eintrage.Name = "cbxMax1000Eintrage"
         Me.cbxMax1000Eintrage.Size = New System.Drawing.Size(117, 17)
         Me.cbxMax1000Eintrage.TabIndex = 41
@@ -500,20 +538,22 @@ Partial Class usrcntlFremdrechnungen
         '
         'lblEinträge
         '
-        Me.lblEinträge.AutoSize = True
+        Me.lblEinträge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblEinträge.BackColor = System.Drawing.Color.White
-        Me.lblEinträge.Location = New System.Drawing.Point(190, 3)
+        Me.lblEinträge.Location = New System.Drawing.Point(173, 3)
         Me.lblEinträge.Name = "lblEinträge"
-        Me.lblEinträge.Size = New System.Drawing.Size(58, 13)
+        Me.lblEinträge.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblEinträge.Size = New System.Drawing.Size(74, 13)
         Me.lblEinträge.TabIndex = 40
-        Me.lblEinträge.Text = "0 Einträge "
+        Me.lblEinträge.Text = "0"
+        Me.lblEinträge.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
         'Button4
         '
         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button4.Image = Global.SDL.My.Resources.Resources.checklist
         Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button4.Location = New System.Drawing.Point(8, 272)
+        Me.Button4.Location = New System.Drawing.Point(8, 332)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(118, 44)
         Me.Button4.TabIndex = 21
@@ -526,7 +566,7 @@ Partial Class usrcntlFremdrechnungen
         Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button5.Image = Global.SDL.My.Resources.Resources.email_big1
         Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button5.Location = New System.Drawing.Point(8, 222)
+        Me.Button5.Location = New System.Drawing.Point(8, 282)
         Me.Button5.Name = "Button5"
         Me.Button5.Size = New System.Drawing.Size(118, 44)
         Me.Button5.TabIndex = 22
@@ -537,9 +577,10 @@ Partial Class usrcntlFremdrechnungen
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(3, 3)
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.Location = New System.Drawing.Point(8, 107)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(32, 13)
+        Me.Label3.Size = New System.Drawing.Size(39, 13)
         Me.Label3.TabIndex = 25
         Me.Label3.Text = "Filter:"
         '
@@ -548,7 +589,7 @@ Partial Class usrcntlFremdrechnungen
         Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button8.Location = New System.Drawing.Point(132, 272)
+        Me.Button8.Location = New System.Drawing.Point(132, 332)
         Me.Button8.Name = "Button8"
         Me.Button8.Size = New System.Drawing.Size(118, 44)
         Me.Button8.TabIndex = 31
@@ -596,8 +637,8 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvLFRechnung.AllowUserToDeleteRows = False
         Me.dgvLFRechnung.AllowUserToResizeColumns = False
         Me.dgvLFRechnung.AllowUserToResizeRows = False
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White
         Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3)
@@ -614,8 +655,8 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvDetails.AllowUserToDeleteRows = False
         Me.dgvDetails.AllowUserToResizeColumns = False
         Me.dgvDetails.AllowUserToResizeRows = False
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.dgvDetails.BackgroundColor = System.Drawing.Color.White
         Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvDetails.Location = New System.Drawing.Point(-1, 3)
@@ -634,12 +675,26 @@ Partial Class usrcntlFremdrechnungen
         Me.Panel4.Size = New System.Drawing.Size(1356, 108)
         Me.Panel4.TabIndex = 11
         '
-        'PDFLöschenToolStripMenuItem
+        'Label1
         '
-        Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
-        Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem"
-        Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
-        Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 66)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(116, 13)
+        Me.Label1.TabIndex = 66
+        Me.Label1.Text = "fehlende Rechnungen:"
+        '
+        'lblCountMissingInvoices
+        '
+        Me.lblCountMissingInvoices.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblCountMissingInvoices.BackColor = System.Drawing.Color.White
+        Me.lblCountMissingInvoices.Location = New System.Drawing.Point(173, 66)
+        Me.lblCountMissingInvoices.Name = "lblCountMissingInvoices"
+        Me.lblCountMissingInvoices.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.lblCountMissingInvoices.Size = New System.Drawing.Size(74, 13)
+        Me.lblCountMissingInvoices.TabIndex = 67
+        Me.lblCountMissingInvoices.Text = "0"
+        Me.lblCountMissingInvoices.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
         'usrcntlFremdrechnungen
         '
@@ -690,10 +745,7 @@ Partial Class usrcntlFremdrechnungen
     Friend WithEvents btnSDL_RMC As Button
     Friend WithEvents dgvLFRechnung As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents Label4 As Label
-    Friend WithEvents Label2 As Label
-    Friend WithEvents Label1 As Label
     Friend WithEvents cbx As CheckBox
-    Friend WithEvents dat_Sum_Bis As DateTimePicker
     Friend WithEvents dat_Sum_Von As DateTimePicker
     Friend WithEvents dgvDetails As VERAG_PROG_ALLGEMEIN.MyDatagridview
     Friend WithEvents cbxPDFhinterlegt As CheckBox
@@ -706,4 +758,11 @@ Partial Class usrcntlFremdrechnungen
     Friend WithEvents Label6 As Label
     Friend WithEvents cbxTest As CheckBox
     Friend WithEvents PDFLöschenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents lblCountOrigRechnungen As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents dat_Sum_Bis As DateTimePicker
+    Friend WithEvents lblCountMissingInvoices As Label
+    Friend WithEvents Label1 As Label
 End Class

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -2,6 +2,7 @@
 Imports System.Reflection
 Imports com.sun.tools.corba.se.idl
 Imports DocumentFormat.OpenXml.VariantTypes
+Imports MDM_Worker
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -19,6 +20,8 @@ Public Class usrcntlFremdrechnungen
 
     Dim dtkeineMWST As DataTable
     Dim dtKundeMWST As DataTable
+    Dim countbtcNotSet As Integer = 0
+    Dim countMissingInvoices As Integer = 0
 
 
     Private Sub usrCntlDaten_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -56,6 +59,14 @@ Public Class usrcntlFremdrechnungen
         txtKundenNrvon.Enabled = kdNr <= 0
         txtKundenNrbis.Enabled = kdNr <= 0
 
+        If kdNr > 0 Then
+            txtKundenNrvon.Text = kdNr
+            txtKundenNrbis.Text = kdNr
+        End If
+
+
+
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
             cbxTest.Visible = True
         End If
@@ -612,9 +623,6 @@ Public Class usrcntlFremdrechnungen
 
     End Function
 
-
-
-
     Function getSDLNrButton(SDLNrTmp) As Object
         Select Case SDLNrTmp
             Case "IDS" : Return btnSDL_IDS
@@ -629,42 +637,97 @@ Public Class usrcntlFremdrechnungen
         End Select
     End Function
     Private Sub btnSDL_Alle_Click(sender As Object, e As EventArgs) Handles btnSDL_Alle.Click
+
         'SET_SDL("ALLE")
 
+        Dim btcNotSet As Integer = 0
+
+        Dim uta As cUTA
+        Dim ids As cIDS
+        Dim rmc As cRMC
+        Dim ploseRE As cPLOSE_Inv_Data
+        Dim mse As cMSEAPI
+
+
+
         If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
             SET_SDL("ALLE", txtKundenNrvon.Text, txtKundenNrbis.Text)
+            btcNotSet += ids.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            btcNotSet += uta.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            btcNotSet += rmc.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            btcNotSet += ploseRE.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            btcNotSet += mse.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
 
         ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
-
             SET_SDL("ALLE")
 
+            btcNotSet += ids.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            btcNotSet += uta.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            btcNotSet += rmc.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            btcNotSet += ploseRE.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            btcNotSet += mse.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
         End If
     End Sub
 
     Private Sub btnSDL_IDS_Click(sender As Object, e As EventArgs) Handles btnSDL_IDS.Click
         'SET_SDL("IDS")
 
+        Dim ids As New cIDS
         If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
             SET_SDL("IDS", txtKundenNrvon.Text, txtKundenNrbis.Text)
+            Dim btcNotSet As Integer = ids.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = ids.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
 
         ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
 
             SET_SDL("IDS")
+            Dim btcNotSet As Integer = ids.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
 
+            Dim missingInvoices As Integer = ids.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
         End If
 
+
     End Sub
 
     Private Sub btnSDL_UTA_Click(sender As Object, e As EventArgs) Handles btnSDL_UTA.Click
         'SET_SDL("UTA")
 
+        Dim uta As cUTA
 
         If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
             SET_SDL("UTA", txtKundenNrvon.Text, txtKundenNrbis.Text)
+            Dim btcNotSet As Integer = uta.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = uta.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
 
         ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
 
             SET_SDL("UTA")
+            Dim btcNotSet As Integer = uta.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = uta.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
 
         End If
     End Sub
@@ -686,14 +749,29 @@ Public Class usrcntlFremdrechnungen
     Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click
         'SET_SDL("PLOSE")
 
-
+        Dim ploseRE As cPLOSE_Inv_Data
         If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
             SET_SDL("PLOSE", txtKundenNrvon.Text, txtKundenNrbis.Text)
 
-        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
+            Dim btcNotSet As Integer = ploseRE.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
 
+            Dim missingInvoices As Integer = ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
+
+        ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
             SET_SDL("PLOSE")
 
+            Dim btcNotSet As Integer = ploseRE.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = ploseRE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
+
         End If
     End Sub
 
@@ -701,13 +779,28 @@ Public Class usrcntlFremdrechnungen
     Private Sub btnSDL_MautMSE_Click(sender As Object, e As EventArgs) Handles btnSDL_MautMSE.Click
         'SET_SDL("MSE")
 
+        Dim MSE As cMSEAPI
 
         If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
             SET_SDL("MSE", txtKundenNrvon.Text, txtKundenNrbis.Text)
+            Dim btcNotSet As Integer = MSE.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = MSE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value, , txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
 
         ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
 
             SET_SDL("MSE")
+            Dim btcNotSet As Integer = MSE.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = MSE.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
 
         End If
     End Sub
@@ -755,12 +848,28 @@ Public Class usrcntlFremdrechnungen
 
     Private Sub btnSDL_RMC_Click(sender As Object, e As EventArgs) Handles btnSDL_RMC.Click
 
+        Dim rmc As cRMC
         If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then
             SET_SDL("RMC", txtKundenNrvon.Text, txtKundenNrbis.Text)
 
+            Dim btcNotSet As Integer = rmc.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value,, txtKundenNrvon.Text, txtKundenNrbis.Text)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
+
         ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then
 
             SET_SDL("RMC")
+            Dim btcNotSet As Integer = rmc.countBackToCustomerNotSet(New VERAG_PROG_ALLGEMEIN.SQL)
+            lblCountOrigRechnungen.Text = btcNotSet
+            countbtcNotSet = btcNotSet
+
+            Dim missingInvoices As Integer = rmc.checkPDFInvoices(dat_Sum_Von.Value, dat_Sum_Bis.Value)
+            lblCountMissingInvoices.Text = missingInvoices
+            countMissingInvoices = missingInvoices
 
         End If
 
@@ -880,6 +989,11 @@ Public Class usrcntlFremdrechnungen
             Exit Sub
         End If
 
+        If countbtcNotSet > 0 Then
+            MsgBox("ACHTUNG!" & vbNewLine & "es wurden bei " & countbtcNotSet & " Rechnungen die Werte für das Rücksenden der Originalrechnung nicht gesetzt!" & vbNewLine & "Bitte an Administrator wenden")
+            Exit Sub
+        End If
+
 
         If groups.Count > 0 Then
 
@@ -1638,4 +1752,6 @@ Public Class usrcntlFremdrechnungen
 
 
     End Sub
+
+
 End Class