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,97 +96,108 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
                 If dt.Rows.Count = 0 Then
                     MsgBox("Keine Differenzen gefunden!")
                 Else
-                    Dim rpt As New rptAufschubabgleich
-                    rpt.DataSource = dt
 
-                    Dim print As New frmPrintLayout
+                    If cbxExcel.Checked Then
 
-                    print.Text = "Abgabenliste"
+                        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
 
-                    If rpt.DataSource Is Nothing OrElse rpt.DataSource.rows.count = 0 Then
+
-                        rpt.Dispose() : print.Dispose()
+
-                        MsgBox("Keine Daten vorhanden!")
+                            Dim rpt As New rptAufschubabgleich
-                        Me.Cursor = Cursors.Default
+                            rpt.DataSource = dt
-                        Exit Sub
+
+                            Dim print As New frmPrintLayout
+
+                            print.Text = "Abgabenliste"
+
+                            If rpt.DataSource Is Nothing OrElse rpt.DataSource.rows.count = 0 Then
+                                rpt.Dispose() : print.Dispose()
+                                MsgBox("Keine Daten vorhanden!")
+                                Me.Cursor = Cursors.Default
+                                Exit Sub
+                            End If
+
+                            Select Case TMPFIRMA
+                                Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label8.Text = "IMEX Customs Service GmbH"
+                                Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "ATILLA Spedition"
+                                Case "UNISPED" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "UNISPED Spedition"
+                                Case "AMBAR" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "AMBAR"
+                                Case "FRONTOFFICE" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "FRONTOFFICE"
+                                Case Else
+                            End Select
+
+
+                            Dim sum = 0
+                            rpt.lblKontoBez.Text = srchAufschubnehmer
+                            rpt.lblFaelligkeit.Text = Faelligkeit
+                            ' rpt.lblAnzahl.Text = cnt
+                            rpt.lblDetails.Text = Now.ToLongDateString & ", " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+                            Dim sumBetrag As Double = 0
+                            Dim sumFakturiert As Double = 0
+                            Dim sumDifferenz As Double = 0
+
+                            Dim Anz = 0
+                            AddHandler rpt.Detail.Format, Sub()
+
+                                                              rpt.lblAKTO.Text = checkNull(rpt.Fields.Item("AKTO").Value)
+                                                              'rpt.lblFaelligkeit.Text = checkNull(rpt.Fields.Item("Faelligkeit").Value)
+                                                              rpt.lblATC.Text = checkNull(rpt.Fields.Item("ATC").Value)
+
+                                                              rpt.lblBUDatValue.Text = checkNull(rpt.Fields.Item("BUDat").Value)
+                                                              rpt.lblAbfertigungsort.Text = checkNull(rpt.Fields.Item("Abfertigungsort").Value)
+                                                              rpt.lblBetrag.Text = checkNull(rpt.Fields.Item("Betrag").Value)
+                                                              rpt.lblFakturiert.Text = checkNull(rpt.Fields.Item("Fakturiert").Value)
+                                                              rpt.lblDifferenz.Text = checkNull(rpt.Fields.Item("Differenz").Value)
+
+                                                              Dim tmp_betrag As Double = 0
+                                                              Dim tmp_fakturiert As Double = 0
+                                                              Dim tmp_differenz As Double = 0
+
+                                                              If IsNumeric(checkNull(rpt.Fields.Item("betrag").Value)) Then tmp_betrag = CDbl(rpt.Fields.Item("Betrag").Value())
+                                                              rpt.lblBetrag.Text = CDbl(tmp_betrag).ToString("N2", Globalization.CultureInfo.CurrentCulture)
+
+                                                              If IsNumeric(checkNull(rpt.Fields.Item("Fakturiert").Value)) Then tmp_fakturiert = CDbl(rpt.Fields.Item("Fakturiert").Value())
+                                                              rpt.lblFakturiert.Text = CDbl(tmp_fakturiert).ToString("N2", Globalization.CultureInfo.CurrentCulture)
+
+                                                              If IsNumeric(checkNull(rpt.Fields.Item("Differenz").Value)) Then tmp_differenz = CDbl(rpt.Fields.Item("Differenz").Value())
+                                                              rpt.lblDifferenz.Text = CDbl(tmp_differenz).ToString("N2", Globalization.CultureInfo.CurrentCulture)
+
+
+                                                              sumBetrag += tmp_betrag
+                                                              sumFakturiert += tmp_fakturiert
+                                                              sumDifferenz += tmp_differenz
+
+                                                              Anz += 1
+
+                                                              If Anz Mod 2 = 0 Then
+                                                                  rpt.Detail.BackColor = Color.FromArgb(240, 240, 240)
+                                                              Else
+                                                                  rpt.Detail.BackColor = Color.White
+                                                              End If
+
+                                                          End Sub
+
+                            AddHandler rpt.ReportFooter1.Format, Sub()
+
+                                                                     rpt.lblBetragSum.Text = sumBetrag.ToString("N2", CultureInfo.CurrentCulture)
+                                                                     rpt.lblFakturiertSum.Text = sumFakturiert.ToString("N2", CultureInfo.CurrentCulture)
+                                                                     rpt.lblDifferenzSum.Text = sumDifferenz.ToString("N2", CultureInfo.CurrentCulture)
+                                                                     rpt.lblAnzahl.Text = Anz.ToString("N0") & "(" & Anz.ToString("N0") & " im Datensatz)"
+
+                                                                 End Sub
+
+                            print.Viewer.LoadDocument(rpt)
+                            print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+                            print.Show()
+                        End If
                     End If
+                End If
 
-                    Select Case TMPFIRMA
-                        Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label8.Text = "IMEX Customs Service GmbH"
-                        Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "ATILLA Spedition"
-                        Case "UNISPED" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "UNISPED Spedition"
-                        Case "AMBAR" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "AMBAR"
-                        Case "FRONTOFFICE" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "FRONTOFFICE"
-                        Case Else
-                    End Select
-
-
-                    Dim sum = 0
-                    rpt.lblKontoBez.Text = srchAufschubnehmer
-                    rpt.lblFaelligkeit.Text = Faelligkeit
-                    ' rpt.lblAnzahl.Text = cnt
-                    rpt.lblDetails.Text = Now.ToLongDateString & ", " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
-
-                    Dim sumBetrag As Double = 0
-                    Dim sumFakturiert As Double = 0
-                    Dim sumDifferenz As Double = 0
-
-                    Dim Anz = 0
-                    AddHandler rpt.Detail.Format, Sub()
-
-                                                      rpt.lblAKTO.Text = checkNull(rpt.Fields.Item("AKTO").Value)
-                                                      'rpt.lblFaelligkeit.Text = checkNull(rpt.Fields.Item("Faelligkeit").Value)
-                                                      rpt.lblATC.Text = checkNull(rpt.Fields.Item("ATC").Value)
-
-                                                      rpt.lblBUDatValue.Text = checkNull(rpt.Fields.Item("BUDat").Value)
-                                                      rpt.lblAbfertigungsort.Text = checkNull(rpt.Fields.Item("Abfertigungsort").Value)
-                                                      rpt.lblBetrag.Text = checkNull(rpt.Fields.Item("Betrag").Value)
-                                                      rpt.lblFakturiert.Text = checkNull(rpt.Fields.Item("Fakturiert").Value)
-                                                      rpt.lblDifferenz.Text = checkNull(rpt.Fields.Item("Differenz").Value)
-
-                                                      Dim tmp_betrag As Double = 0
-                                                      Dim tmp_fakturiert As Double = 0
-                                                      Dim tmp_differenz As Double = 0
-
-                                                      If IsNumeric(checkNull(rpt.Fields.Item("betrag").Value)) Then tmp_betrag = CDbl(rpt.Fields.Item("Betrag").Value())
-                                                      rpt.lblBetrag.Text = CDbl(tmp_betrag).ToString("N2", Globalization.CultureInfo.CurrentCulture)
-
-                                                      If IsNumeric(checkNull(rpt.Fields.Item("Fakturiert").Value)) Then tmp_fakturiert = CDbl(rpt.Fields.Item("Fakturiert").Value())
-                                                      rpt.lblFakturiert.Text = CDbl(tmp_fakturiert).ToString("N2", Globalization.CultureInfo.CurrentCulture)
-
-                                                      If IsNumeric(checkNull(rpt.Fields.Item("Differenz").Value)) Then tmp_differenz = CDbl(rpt.Fields.Item("Differenz").Value())
-                                                      rpt.lblDifferenz.Text = CDbl(tmp_differenz).ToString("N2", Globalization.CultureInfo.CurrentCulture)
-
-
-                                                  sumBetrag += tmp_betrag
-                                                  sumFakturiert += tmp_fakturiert
-                                                  sumDifferenz += tmp_differenz
-
-                                                  Anz += 1
-
-                                                  If Anz Mod 2 = 0 Then
-                                                      rpt.Detail.BackColor = Color.FromArgb(240, 240, 240)
-                                                  Else
-                                                      rpt.Detail.BackColor = Color.White
-                                                  End If
-
-                                              End Sub
-
-                AddHandler rpt.ReportFooter1.Format, Sub()
-
-                                                         rpt.lblBetragSum.Text = sumBetrag.ToString("N2", CultureInfo.CurrentCulture)
-                                                         rpt.lblFakturiertSum.Text = sumFakturiert.ToString("N2", CultureInfo.CurrentCulture)
-                                                         rpt.lblDifferenzSum.Text = sumDifferenz.ToString("N2", CultureInfo.CurrentCulture)
-                                                         rpt.lblAnzahl.Text = Anz.ToString("N0") & "(" & Anz.ToString("N0") & " im Datensatz)"
-
-                                                     End Sub
-
-                print.Viewer.LoadDocument(rpt)
-                print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
-                print.Show()
             End If
 
-        End If
-
 
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)

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 = ""