edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Aufschubkontenbericht als XLSX

Browse Source
This commit is contained in:
d.breimaier
2024-11-18 14:58:50 +01:00
parent 8bc34cc102
commit 193a0848a4
4 changed files with 141 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb generated
View File

@@ -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

179
SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
View File

@@ -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)

14
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -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)

4
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

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