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

MDM abrechnung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-01-22 11:23:00 +01:00
parent a1ee39be7a
commit 5c83a1649a
7 changed files with 256 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -247,7 +247,7 @@ Public Class frmAbrechnungsMaske
End If End If
End If End If
Else Else
sqlstr &= " And (Status = 0 or DruckDatumZeit is null) " sqlstr &= IIf(filterSR = "MSR", " And ((Status = 0 or Status = 2) or DruckDatumZeit is null)", " And (Status = 0 or DruckDatumZeit is null) ")
End If End If
If MyComboBox1._value <> "" Then If MyComboBox1._value <> "" Then

10
SDL/mdm/ASFINAG/rptASFINAG_Anhang.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

6
SDL/mdm/ASFINAG/rptASFINAG_Anhang.resx
View File

File diff suppressed because one or more lines are too long

155
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb generated
View File

File diff suppressed because one or more lines are too long

6
SDL/mdm/PLOSE/rptPLOSE_Anhang.resx
View File

File diff suppressed because one or more lines are too long

78
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

@@ -134,6 +134,7 @@ Partial Class usrCntlMDMAuswertungen
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Label61 = New System.Windows.Forms.Label() Me.Label61 = New System.Windows.Forms.Label()
Me.GroupBox19 = New System.Windows.Forms.GroupBox() Me.GroupBox19 = New System.Windows.Forms.GroupBox()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lblAnzahlMautberichte = New System.Windows.Forms.Label() Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label69 = New System.Windows.Forms.Label() Me.Label69 = New System.Windows.Forms.Label()
@@ -143,6 +144,8 @@ Partial Class usrCntlMDMAuswertungen
Me.Button18 = New System.Windows.Forms.Button() Me.Button18 = New System.Windows.Forms.Button()
Me.Label44 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label()
Me.GroupBox13 = New System.Windows.Forms.GroupBox() Me.GroupBox13 = New System.Windows.Forms.GroupBox()
Me.cbxAbfVerbotdrucken = New System.Windows.Forms.CheckBox()
Me.cbxRechnungsjournaldrucken = New System.Windows.Forms.CheckBox()
Me.Button20 = New System.Windows.Forms.Button() Me.Button20 = New System.Windows.Forms.Button()
Me.Label72 = New System.Windows.Forms.Label() Me.Label72 = New System.Windows.Forms.Label()
Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
@@ -210,7 +213,6 @@ Partial Class usrCntlMDMAuswertungen
Me.btnContractdaten = New System.Windows.Forms.Button() Me.btnContractdaten = New System.Windows.Forms.Button()
Me.Button15 = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -233,6 +235,7 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox18.SuspendLayout() Me.GroupBox18.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
Me.GroupBox19.SuspendLayout() Me.GroupBox19.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox13.SuspendLayout() Me.GroupBox13.SuspendLayout()
Me.GroupBox10.SuspendLayout() Me.GroupBox10.SuspendLayout()
Me.tbPLOSE.SuspendLayout() Me.tbPLOSE.SuspendLayout()
@@ -245,7 +248,6 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox15.SuspendLayout() Me.GroupBox15.SuspendLayout()
Me.GroupBox14.SuspendLayout() Me.GroupBox14.SuspendLayout()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GroupBox1 'GroupBox1
@@ -1503,6 +1505,16 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox19.TabIndex = 12 Me.GroupBox19.TabIndex = 12
Me.GroupBox19.TabStop = False Me.GroupBox19.TabStop = False
' '
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(471, 124)
Me.MyDatagridview1.TabIndex = 34
'
'lblAnzahlMautberichte 'lblAnzahlMautberichte
' '
Me.lblAnzahlMautberichte.AutoSize = True Me.lblAnzahlMautberichte.AutoSize = True
@@ -1537,7 +1549,7 @@ Partial Class usrCntlMDMAuswertungen
Me.Label68.Name = "Label68" Me.Label68.Name = "Label68"
Me.Label68.Size = New System.Drawing.Size(333, 20) Me.Label68.Size = New System.Drawing.Size(333, 20)
Me.Label68.TabIndex = 30 Me.Label68.TabIndex = 30
Me.Label68.Text = "Generiert Mautbericht und hängt sie an den Sammelrechnungen an." Me.Label68.Text = "Generiert Mautberichte"
' '
'cbxMautbericht 'cbxMautbericht
' '
@@ -1584,6 +1596,8 @@ Partial Class usrCntlMDMAuswertungen
' '
'GroupBox13 'GroupBox13
' '
Me.GroupBox13.Controls.Add(Me.cbxAbfVerbotdrucken)
Me.GroupBox13.Controls.Add(Me.cbxRechnungsjournaldrucken)
Me.GroupBox13.Controls.Add(Me.Button20) Me.GroupBox13.Controls.Add(Me.Button20)
Me.GroupBox13.Controls.Add(Me.Label72) Me.GroupBox13.Controls.Add(Me.Label72)
Me.GroupBox13.Controls.Add(Me.KdSearchBox3) Me.GroupBox13.Controls.Add(Me.KdSearchBox3)
@@ -1606,10 +1620,34 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox13.Controls.Add(Me.Button14) Me.GroupBox13.Controls.Add(Me.Button14)
Me.GroupBox13.Location = New System.Drawing.Point(14, 351) Me.GroupBox13.Location = New System.Drawing.Point(14, 351)
Me.GroupBox13.Name = "GroupBox13" Me.GroupBox13.Name = "GroupBox13"
Me.GroupBox13.Size = New System.Drawing.Size(697, 278) Me.GroupBox13.Size = New System.Drawing.Size(697, 326)
Me.GroupBox13.TabIndex = 10 Me.GroupBox13.TabIndex = 10
Me.GroupBox13.TabStop = False Me.GroupBox13.TabStop = False
' '
'cbxAbfVerbotdrucken
'
Me.cbxAbfVerbotdrucken.AutoSize = True
Me.cbxAbfVerbotdrucken.Checked = True
Me.cbxAbfVerbotdrucken.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAbfVerbotdrucken.Location = New System.Drawing.Point(166, 220)
Me.cbxAbfVerbotdrucken.Name = "cbxAbfVerbotdrucken"
Me.cbxAbfVerbotdrucken.Size = New System.Drawing.Size(157, 17)
Me.cbxAbfVerbotdrucken.TabIndex = 47
Me.cbxAbfVerbotdrucken.Text = "Abfertigungsverbot drucken"
Me.cbxAbfVerbotdrucken.UseVisualStyleBackColor = True
'
'cbxRechnungsjournaldrucken
'
Me.cbxRechnungsjournaldrucken.AutoSize = True
Me.cbxRechnungsjournaldrucken.Checked = True
Me.cbxRechnungsjournaldrucken.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxRechnungsjournaldrucken.Location = New System.Drawing.Point(6, 220)
Me.cbxRechnungsjournaldrucken.Name = "cbxRechnungsjournaldrucken"
Me.cbxRechnungsjournaldrucken.Size = New System.Drawing.Size(154, 17)
Me.cbxRechnungsjournaldrucken.TabIndex = 46
Me.cbxRechnungsjournaldrucken.Text = "Rechnungsjournal drucken"
Me.cbxRechnungsjournaldrucken.UseVisualStyleBackColor = True
'
'Button20 'Button20
' '
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1618,12 +1656,12 @@ Partial Class usrCntlMDMAuswertungen
Me.Button20.Name = "Button20" Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(121, 49) Me.Button20.Size = New System.Drawing.Size(121, 49)
Me.Button20.TabIndex = 43 Me.Button20.TabIndex = 43
Me.Button20.Text = "Mautanh. löschen" Me.Button20.Text = "Mautanh. aus RE entfernen"
Me.Button20.UseVisualStyleBackColor = True Me.Button20.UseVisualStyleBackColor = True
' '
'Label72 'Label72
' '
Me.Label72.Location = New System.Drawing.Point(97, 226) Me.Label72.Location = New System.Drawing.Point(96, 244)
Me.Label72.Name = "Label72" Me.Label72.Name = "Label72"
Me.Label72.Size = New System.Drawing.Size(541, 17) Me.Label72.Size = New System.Drawing.Size(541, 17)
Me.Label72.TabIndex = 42 Me.Label72.TabIndex = 42
@@ -1649,7 +1687,7 @@ Partial Class usrCntlMDMAuswertungen
Me.KdSearchBox3.KdNr = "-1" Me.KdSearchBox3.KdNr = "-1"
Me.KdSearchBox3.kdNrField = Nothing Me.KdSearchBox3.kdNrField = Nothing
Me.KdSearchBox3.KdNrNullInt = Nothing Me.KdSearchBox3.KdNrNullInt = Nothing
Me.KdSearchBox3.Location = New System.Drawing.Point(88, 248) Me.KdSearchBox3.Location = New System.Drawing.Point(87, 266)
Me.KdSearchBox3.Name = "KdSearchBox3" Me.KdSearchBox3.Name = "KdSearchBox3"
Me.KdSearchBox3.nurAktive = True Me.KdSearchBox3.nurAktive = True
Me.KdSearchBox3.searchActive = True Me.KdSearchBox3.searchActive = True
@@ -1661,7 +1699,7 @@ Partial Class usrCntlMDMAuswertungen
'rbkunde 'rbkunde
' '
Me.rbkunde.AutoSize = True Me.rbkunde.AutoSize = True
Me.rbkunde.Location = New System.Drawing.Point(10, 249) Me.rbkunde.Location = New System.Drawing.Point(9, 267)
Me.rbkunde.Name = "rbkunde" Me.rbkunde.Name = "rbkunde"
Me.rbkunde.Size = New System.Drawing.Size(59, 17) Me.rbkunde.Size = New System.Drawing.Size(59, 17)
Me.rbkunde.TabIndex = 40 Me.rbkunde.TabIndex = 40
@@ -1672,7 +1710,7 @@ Partial Class usrCntlMDMAuswertungen
' '
Me.rbAlleKunden.AutoSize = True Me.rbAlleKunden.AutoSize = True
Me.rbAlleKunden.Checked = True Me.rbAlleKunden.Checked = True
Me.rbAlleKunden.Location = New System.Drawing.Point(10, 226) Me.rbAlleKunden.Location = New System.Drawing.Point(9, 244)
Me.rbAlleKunden.Name = "rbAlleKunden" Me.rbAlleKunden.Name = "rbAlleKunden"
Me.rbAlleKunden.Size = New System.Drawing.Size(81, 17) Me.rbAlleKunden.Size = New System.Drawing.Size(81, 17)
Me.rbAlleKunden.TabIndex = 39 Me.rbAlleKunden.TabIndex = 39
@@ -1684,7 +1722,7 @@ Partial Class usrCntlMDMAuswertungen
' '
Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White
Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtPloseAnh_Einarbeitung.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(216, 186) Me.txtPloseAnh_Einarbeitung.Location = New System.Drawing.Point(209, 186)
Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung" Me.txtPloseAnh_Einarbeitung.Name = "txtPloseAnh_Einarbeitung"
Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13) Me.txtPloseAnh_Einarbeitung.Size = New System.Drawing.Size(106, 13)
Me.txtPloseAnh_Einarbeitung.TabIndex = 38 Me.txtPloseAnh_Einarbeitung.TabIndex = 38
@@ -1692,7 +1730,7 @@ Partial Class usrCntlMDMAuswertungen
'Label71 'Label71
' '
Me.Label71.AutoSize = True Me.Label71.AutoSize = True
Me.Label71.Location = New System.Drawing.Point(151, 186) Me.Label71.Location = New System.Drawing.Point(144, 186)
Me.Label71.Name = "Label71" Me.Label71.Name = "Label71"
Me.Label71.Size = New System.Drawing.Size(56, 13) Me.Label71.Size = New System.Drawing.Size(56, 13)
Me.Label71.TabIndex = 35 Me.Label71.TabIndex = 35
@@ -1700,14 +1738,14 @@ Partial Class usrCntlMDMAuswertungen
' '
'pbPloseAnh_Proz 'pbPloseAnh_Proz
' '
Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(154, 157) Me.pbPloseAnh_Proz.Location = New System.Drawing.Point(147, 157)
Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz" Me.pbPloseAnh_Proz.Name = "pbPloseAnh_Proz"
Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23) Me.pbPloseAnh_Proz.Size = New System.Drawing.Size(283, 23)
Me.pbPloseAnh_Proz.TabIndex = 36 Me.pbPloseAnh_Proz.TabIndex = 36
' '
'lblPloseAnh_Proz 'lblPloseAnh_Proz
' '
Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(368, 186) Me.lblPloseAnh_Proz.Location = New System.Drawing.Point(361, 186)
Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz" Me.lblPloseAnh_Proz.Name = "lblPloseAnh_Proz"
Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13) Me.lblPloseAnh_Proz.Size = New System.Drawing.Size(69, 13)
Me.lblPloseAnh_Proz.TabIndex = 37 Me.lblPloseAnh_Proz.TabIndex = 37
@@ -2309,16 +2347,6 @@ Partial Class usrCntlMDMAuswertungen
Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.Size = New System.Drawing.Size(1057, 54)
Me.pnl.TabIndex = 26 Me.pnl.TabIndex = 26
' '
'MyDatagridview1
'
Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.Size = New System.Drawing.Size(471, 124)
Me.MyDatagridview1.TabIndex = 34
'
'usrCntlMDMAuswertungen 'usrCntlMDMAuswertungen
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2365,6 +2393,7 @@ Partial Class usrCntlMDMAuswertungen
Me.TabPage2.PerformLayout() Me.TabPage2.PerformLayout()
Me.GroupBox19.ResumeLayout(False) Me.GroupBox19.ResumeLayout(False)
Me.GroupBox19.PerformLayout() Me.GroupBox19.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox13.ResumeLayout(False) Me.GroupBox13.ResumeLayout(False)
Me.GroupBox13.PerformLayout() Me.GroupBox13.PerformLayout()
Me.GroupBox10.ResumeLayout(False) Me.GroupBox10.ResumeLayout(False)
@@ -2388,7 +2417,6 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox14.PerformLayout() Me.GroupBox14.PerformLayout()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -2579,4 +2607,6 @@ Partial Class usrCntlMDMAuswertungen
Friend WithEvents Button20 As Button Friend WithEvents Button20 As Button
Friend WithEvents lblAnzahlMautberichte As Label Friend WithEvents lblAnzahlMautberichte As Label
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cbxAbfVerbotdrucken As CheckBox
Friend WithEvents cbxRechnungsjournaldrucken As CheckBox
End Class End Class

119
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -85,15 +85,17 @@ Public Class usrCntlMDMAuswertungen
PathMautberichte = (New SQL).getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='GESAMTMAUT' AND [Param_name]='ANLAGE_PFAD' AND Param_testsystem = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 1, 0), "FMZOLL") PathMautberichte = (New SQL).getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='GESAMTMAUT' AND [Param_name]='ANLAGE_PFAD' AND Param_testsystem = " & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 1, 0), "FMZOLL")
Dim count = 0 Dim countCSV = 0
Dim countPDF = 0
If Directory.Exists(PathMautberichte) Then If Directory.Exists(PathMautberichte) Then
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
For Each f In Directory.GetFiles(PathMautberichte) For Each f In Directory.GetFiles(PathMautberichte)
If f.ToString.ToLower.EndsWith("_maut.csv") Or f.ToString.ToLower.EndsWith("_maut.pdf") Then count += 1 If f.ToString.ToLower.EndsWith("_maut.csv") Then countCSV += 1
If f.ToString.ToLower.EndsWith("_maut.pdf") Then countPDF += 1
Next Next
End If End If
End If End If
lblAnzahlMautberichte.Text = count & "x Mautberichte" lblAnzahlMautberichte.Text = countCSV + countPDF & "x Mautberichte (" & countCSV & "x CSV " & countPDF & "x PDF )"
End Sub End Sub
@@ -1147,7 +1149,7 @@ Public Class usrCntlMDMAuswertungen
End If End If
'Druckinformationen 'Druckinformationen
If Not setStatus4(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then If Not setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
MsgBox("Fehler beim Setzen der Druckinformationen") MsgBox("Fehler beim Setzen der Druckinformationen")
Else Else
MsgBox("Erledigt.") MsgBox("Erledigt.")
@@ -1683,12 +1685,10 @@ Public Class usrCntlMDMAuswertungen
End Function End Function
Private Function setStatus4(Sachbearbeiter As String, rechnungsdatum As Date, dtSammelRechnugen As DataTable) As Boolean Private Function setStatus2(Sachbearbeiter As String, rechnungsdatum As Date, dtSammelRechnugen As DataTable) As Boolean
Dim cnt = 0 Dim cnt = 0
'strParameter = ParameterBereitstellen(Me![Firma_ID], 0, 6, Me![fldSachbearbeiter], Year(Me!fldRechnungsDatum), Me![fldRechnungsDatum], varDatumZeit)
'Return (New SQL).doSQL("UPDATE [Rechnungsausgang] SET [Status] = 4 WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
Dim reIsSet As Boolean = False Dim reIsSet As Boolean = False
If dtSammelRechnugen.Rows.Count > 0 Then If dtSammelRechnugen.Rows.Count > 0 Then
For Each re In dtSammelRechnugen.Rows For Each re In dtSammelRechnugen.Rows
@@ -2254,6 +2254,10 @@ Public Class usrCntlMDMAuswertungen
If distinctDT_PDF.Rows.Count > 1 Then If distinctDT_PDF.Rows.Count > 1 Then
For Each pdf As DataRow In distinctDT_PDF.Rows For Each pdf As DataRow In distinctDT_PDF.Rows
'If pdf.Item(0) = 401026 Then
' MsgBox("Test")
'End If
Dim dt_PDF_selected = dtBerichtkunden_PDF.Select("[Customer No] ='" & pdf.Item(0) & "'").CopyToDataTable Dim dt_PDF_selected = dtBerichtkunden_PDF.Select("[Customer No] ='" & pdf.Item(0) & "'").CopyToDataTable
createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte) createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte)
@@ -2271,15 +2275,17 @@ Public Class usrCntlMDMAuswertungen
End Select End Select
Dim count = 0 Dim countCSV = 0
Dim countPDF = 0
If Directory.Exists(PathMautberichte) Then If Directory.Exists(PathMautberichte) Then
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
For Each f In Directory.GetFiles(PathMautberichte) For Each f In Directory.GetFiles(PathMautberichte)
If f.ToString.ToLower.EndsWith("_maut.csv") Or f.ToString.ToLower.EndsWith("_maut.pdf") Then count += 1 If f.ToString.ToLower.EndsWith("_maut.csv") Then countCSV += 1
If f.ToString.ToLower.EndsWith("_maut.pdf") Then countPDF += 1
Next Next
End If End If
End If End If
lblAnzahlMautberichte.Text = count & "x Mautberichte" lblAnzahlMautberichte.Text = countCSV + countPDF & "x Mautberichte (" & countCSV & "x CSV " & countPDF & "x PDF )"
Catch ex As System.Exception Catch ex As System.Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -2300,7 +2306,7 @@ Public Class usrCntlMDMAuswertungen
rpt.txtKunde.Text = kdnr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr).FullName rpt.txtKunde.Text = kdnr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr).FullName
rpt.lblRgDatum.Text = anhangsdatum.ToShortDateString rpt.lblRgDatum.Text = anhangsdatum.ToShortDateString
rpt.GroupHeaderKz.DataField = "LicencePlateNumber" rpt.GroupHeaderKz.DataField = "Licence Plate Number"
rpt.txtNettoKzSum.Visible = False rpt.txtNettoKzSum.Visible = False
@@ -2451,7 +2457,7 @@ Public Class usrCntlMDMAuswertungen
Dim Sachbearbeiter = cboSachbearbeiter._value Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text) Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
Dim rechnungsstatus As Integer = 2
If rechnungsdatum > Today() Then If rechnungsdatum > Today() Then
MsgBox("Rechnungsdatum liegt in der Zukunft, nicht möglich") MsgBox("Rechnungsdatum liegt in der Zukunft, nicht möglich")
Exit Sub Exit Sub
@@ -2488,7 +2494,7 @@ Public Class usrCntlMDMAuswertungen
Dim SQLString = "SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status] Dim SQLString = "SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status]
FROM Rechnungsausgang FROM Rechnungsausgang
WHERE [Status] = 2 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null " & IIf(kdnr > 0, " AND RechnungsKundenNr = " & kdnr, "") & " WHERE [Status] = " & rechnungsstatus & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null " & IIf(kdnr > 0, " AND RechnungsKundenNr = " & kdnr, "") & "
group by [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status] group by [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status]
ORDER BY [Firma_ID], [Status], RechnungsNr" ORDER BY [Firma_ID], [Status], RechnungsNr"
@@ -2534,9 +2540,94 @@ Public Class usrCntlMDMAuswertungen
lblPloseAnh_Proz.Text = "100.00 %" lblPloseAnh_Proz.Text = "100.00 %"
Process.Start(pathPDF) Process.Start(pathPDF)
If cbxRechnungsjournaldrucken.Checked Then
Dim dtRechnungsjournal As DataTable = (New SQL).loadDgvBySql("SELECT
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
MIN(Rechnungsausgang.KundenNrZentrale) AS KundenNrZentrale,
MIN(Rechnungsausgang.RechnungsKundenNr) AS RechnungsKundenNr,
MIN(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1],
MAX(Rechnungsausgang.Abfertigungsdatum) AS Abfertigungsdatum,
SUM(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS SteuerpflichtigerGesamtbetrag,
SUM(RechnungsausgangPositionen.SteuerfreierBetrag) AS SteuerfreierGesamtbetrag,
MIN(Rechnungsausgang.[Steuersatz %]) AS [Steuersatz %],
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
FROM
Rechnungsausgang
INNER JOIN
Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr
INNER JOIN
RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
WHERE
[Status] = " & rechnungsstatus & " AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
GROUP BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
ORDER BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr", "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dtRechnungsjournal, {"J1:J" & (dtRechnungsjournal.Rows.Count + 1), "K1:K" & (dtRechnungsjournal.Rows.Count + 1), "L1:L" & (dtRechnungsjournal.Rows.Count + 1)},, "RECHNUNGSJOURNAL VOM" & rechnungsdatum.ToShortDateString,,, True)
End If
If cbxAbfVerbotdrucken.Checked Then
Dim dtEbfertigungsverbot As DataTable = (New SQL).loadDgvBySql("SELECT
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
MIN(Rechnungsausgang.KundenNrZentrale) AS KundenNrZentrale,
MIN(Rechnungsausgang.RechnungsKundenNr) AS RechnungsKundenNr,
MIN(Rechnungsausgang.[RechnungsName 1]) AS [RechnungsName 1],
MAX(Rechnungsausgang.Abfertigungsdatum) AS Abfertigungsdatum,
SUM(RechnungsausgangPositionen.SteuerpflichtigerBetrag) AS SteuerpflichtigerGesamtbetrag,
SUM(RechnungsausgangPositionen.SteuerfreierBetrag) AS SteuerfreierGesamtbetrag,
MIN(Rechnungsausgang.[Steuersatz %]) AS [Steuersatz %],
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
FROM
Rechnungsausgang
INNER JOIN
Filialen ON Rechnungsausgang.FilialenNr = Filialen.FilialenNr
INNER JOIN
Kunden ON Rechnungsausgang.RechnungsKundenNr = Kunden.KundenNr
INNER JOIN
RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
WHERE
Kunden.Abfertigungsverbot = 1 AND [Status] = " & rechnungsstatus & " AND Rechnungsausgang.[Sammelrechnung] = 6 AND UPPER(Rechnungsausgang.[Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
GROUP BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsNr,
Rechnungsausgang.RechnungsDatum,
Rechnungsausgang.Status,
Rechnungsausgang.DruckDatumZeit,
Rechnungsausgang.Sachbearbeiter
ORDER BY
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsNr;", "FMZOLL")
cProgramFunctions.genExcelFromDT_NEW(dtEbfertigungsverbot, {"I1:I" & (dtEbfertigungsverbot.Rows.Count + 1), "J1:J" & (dtEbfertigungsverbot.Rows.Count + 1), "K1:K" & (dtEbfertigungsverbot.Rows.Count + 1)},, "RECHNUNGEN VOM " & rechnungsdatum.ToShortDateString & " MIT ABFERTIGUNGSVERBOT",,, True)
End If
Else Else
MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!") MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!")
End If End If