Aufschubkontenbericht als XLSX

SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb

@@ -24,11 +24,12 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
     Private Sub InitializeComponent()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
+        Me.cbx = New System.Windows.Forms.CheckBox()
+        Me.lnlCnt = New System.Windows.Forms.Label()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.lblErr = New System.Windows.Forms.Label()
         Me.Label14 = New System.Windows.Forms.Label()
-        Me.lnlCnt = New System.Windows.Forms.Label()
+        Me.cbxExcel = New System.Windows.Forms.CheckBox()
-        Me.cbx = New System.Windows.Forms.CheckBox()
         Me.GroupBox2.SuspendLayout()
         Me.SuspendLayout()
         '
@@ -45,6 +46,7 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         '
         'GroupBox2
         '
+        Me.GroupBox2.Controls.Add(Me.cbxExcel)
         Me.GroupBox2.Controls.Add(Me.cbx)
         Me.GroupBox2.Controls.Add(Me.lnlCnt)
         Me.GroupBox2.Controls.Add(Me.Button3)
@@ -56,6 +58,28 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         Me.GroupBox2.TabIndex = 15
         Me.GroupBox2.TabStop = False
         '
+        'cbx
+        '
+        Me.cbx.AutoSize = True
+        Me.cbx.Checked = True
+        Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbx.Location = New System.Drawing.Point(148, 56)
+        Me.cbx.Name = "cbx"
+        Me.cbx.Size = New System.Drawing.Size(150, 17)
+        Me.cbx.TabIndex = 35
+        Me.cbx.Text = "Nur Differenzen ausgeben"
+        Me.cbx.UseVisualStyleBackColor = True
+        '
+        'lnlCnt
+        '
+        Me.lnlCnt.ForeColor = System.Drawing.Color.Black
+        Me.lnlCnt.Location = New System.Drawing.Point(9, 56)
+        Me.lnlCnt.Name = "lnlCnt"
+        Me.lnlCnt.Size = New System.Drawing.Size(121, 13)
+        Me.lnlCnt.TabIndex = 34
+        Me.lnlCnt.Text = "-"
+        Me.lnlCnt.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
         'Button3
         '
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -88,27 +112,15 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         Me.Label14.Text = "Prüft die ausgewähle Liste der Abgaben von Trier mit den fakturierten Datensätzen" &
     " ab." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bei Differenz wird der Eintrag angezeigt."
         '
-        'lnlCnt
+        'cbxExcel
         '
-        Me.lnlCnt.ForeColor = System.Drawing.Color.Black
+        Me.cbxExcel.AutoSize = True
-        Me.lnlCnt.Location = New System.Drawing.Point(9, 56)
+        Me.cbxExcel.Location = New System.Drawing.Point(148, 76)
-        Me.lnlCnt.Name = "lnlCnt"
+        Me.cbxExcel.Name = "cbxExcel"
-        Me.lnlCnt.Size = New System.Drawing.Size(121, 13)
+        Me.cbxExcel.Size = New System.Drawing.Size(126, 17)
-        Me.lnlCnt.TabIndex = 34
+        Me.cbxExcel.TabIndex = 36
-        Me.lnlCnt.Text = "-"
+        Me.cbxExcel.Text = "als EXCEL ausgeben"
-        Me.lnlCnt.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.cbxExcel.UseVisualStyleBackColor = True
-        '
-        'cbx
-        '
-        Me.cbx.AutoSize = True
-        Me.cbx.Checked = True
-        Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbx.Location = New System.Drawing.Point(148, 56)
-        Me.cbx.Name = "cbx"
-        Me.cbx.Size = New System.Drawing.Size(150, 17)
-        Me.cbx.TabIndex = 35
-        Me.cbx.Text = "Nur Differenzen ausgeben"
-        Me.cbx.UseVisualStyleBackColor = True
         '
         'usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
         '
@@ -132,4 +144,5 @@ Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
     Friend WithEvents Button3 As System.Windows.Forms.Button
     Friend WithEvents lnlCnt As Label
     Friend WithEvents cbx As CheckBox
+    Friend WithEvents cbxExcel As CheckBox
 End Class

SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb

@@ -96,6 +96,15 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                 If dt.Rows.Count = 0 Then
                     MsgBox("Keine Differenzen gefunden!")
                 Else
+
+                    If cbxExcel.Checked Then
+
+                        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+                            VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"F1:F" & (dt.Rows.Count + 1), "G1:G" & (dt.Rows.Count + 1), "H1:H" & (dt.Rows.Count + 1)},,,, True)
+                        Else
+
+
+
                             Dim rpt As New rptAufschubabgleich
                             rpt.DataSource = dt
 
@@ -184,6 +193,8 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                             print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
                             print.Show()
                         End If
+                    End If
+                End If
 
             End If
 

SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb

@@ -1302,7 +1302,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.tbcntr.Location = New System.Drawing.Point(0, 57)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(1313, 1829)
+        Me.tbcntr.Size = New System.Drawing.Size(1296, 1829)
         Me.tbcntr.TabIndex = 22
         '
         'TabPage1
@@ -1345,7 +1345,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(1305, 1803)
+        Me.TabPage1.Size = New System.Drawing.Size(1288, 1803)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Bürgschaften"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -2562,7 +2562,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
-        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(716, 235)
+        Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
         Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
         '
         'TabPage3
@@ -2608,7 +2608,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
         Me.TabPage4.Location = New System.Drawing.Point(4, 22)
         Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Size = New System.Drawing.Size(1322, 1803)
+        Me.TabPage4.Size = New System.Drawing.Size(1288, 1803)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Aufschubdaten"
         Me.TabPage4.UseVisualStyleBackColor = True
@@ -2637,7 +2637,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.TabPage5.Location = New System.Drawing.Point(4, 22)
         Me.TabPage5.Name = "TabPage5"
         Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(1322, 1803)
+        Me.TabPage5.Size = New System.Drawing.Size(1305, 1803)
         Me.TabPage5.TabIndex = 4
         Me.TabPage5.Text = "UNISPED"
         Me.TabPage5.UseVisualStyleBackColor = True
@@ -2845,7 +2845,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
         Me.pnl.Location = New System.Drawing.Point(0, 0)
         Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(1313, 57)
+        Me.pnl.Size = New System.Drawing.Size(1296, 57)
         Me.pnl.TabIndex = 23
         '
         'usrCntlZOLLAuswertungen
@@ -2857,7 +2857,7 @@ Partial Class usrCntlZOLLAuswertungen
         Me.Controls.Add(Me.tbcntr)
         Me.Controls.Add(Me.pnl)
         Me.Name = "usrCntlZOLLAuswertungen"
-        Me.Size = New System.Drawing.Size(1313, 1174)
+        Me.Size = New System.Drawing.Size(1296, 1174)
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
         Me.grpDurmaz.ResumeLayout(False)

SDL/zoll/usrCntlZOLLAuswertungen.vb

@@ -1023,6 +1023,10 @@ Public Class usrCntlZOLLAuswertungen
         End Select
     End Sub
 
+    Private Sub UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1_Load(sender As Object, e As EventArgs) Handles UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Load
+
+    End Sub
+
 
     'Private Sub Button5_Click(sender As Object, e As EventArgs, Optional exportPDF As String = "", Optional exportEXCEL As String = "") Handles Button5.Click
     '    Dim sqlStr = ""