From 193a0848a4eeea9f0e82b9b8b04836da4a70e412 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 18 Nov 2024 14:58:50 +0100 Subject: [PATCH] Aufschubkontenbericht als XLSX --- ...Aufschub_AbgabenKontrolleTRIER.Designer.vb | 57 +++--- ...wertungenAufschub_AbgabenKontrolleTRIER.vb | 179 ++++++++++-------- SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb | 14 +- SDL/zoll/usrCntlZOLLAuswertungen.vb | 4 + 4 files changed, 141 insertions(+), 113 deletions(-) diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb index 10605aec..102f3ea6 100644 --- 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 diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb index 235d9190..c3e9aa71 100644 --- a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb +++ b/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!") - Me.Cursor = Cursors.Default - Exit Sub + + + Dim rpt As New rptAufschubabgleich + rpt.DataSource = dt + + 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) diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index 5bceabb7..fcdf236f 100644 --- 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) diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index 1f625d58..f517f7a6 100644 --- 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 = ""