Aufschubkontenbericht als XLSX

2024-11-18 14:58:50 +01:00
parent 8bc34cc102
commit 193a0848a4
4 changed files with 141 additions and 113 deletions
--- a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb
+++ b/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.cbx = New System.Windows.Forms.CheckBox()
+        Me.cbxExcel = 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.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
-        '
-        '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
+        Me.cbxExcel.AutoSize = True
+        Me.cbxExcel.Location = New System.Drawing.Point(148, 76)
+        Me.cbxExcel.Name = "cbxExcel"
+        Me.cbxExcel.Size = New System.Drawing.Size(126, 17)
+        Me.cbxExcel.TabIndex = 36
+        Me.cbxExcel.Text = "als EXCEL ausgeben"
+        Me.cbxExcel.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
--- a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
+++ b/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

--- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb
+++ b/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)
--- a/SDL/zoll/usrCntlZOLLAuswertungen.vb
+++ b/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 = ""