MDM abrechnung, etc.
This commit is contained in:
@@ -247,7 +247,7 @@ Public Class frmAbrechnungsMaske
|
||||
End If
|
||||
End If
|
||||
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
|
||||
|
||||
If MyComboBox1._value <> "" Then
|
||||
|
||||
10
SDL/mdm/ASFINAG/rptASFINAG_Anhang.Designer.vb
generated
10
SDL/mdm/ASFINAG/rptASFINAG_Anhang.Designer.vb
generated
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
155
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb
generated
155
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb
generated
File diff suppressed because one or more lines are too long
File diff suppressed because one or more lines are too long
78
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
generated
78
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
generated
@@ -134,6 +134,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.Label61 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox19 = New System.Windows.Forms.GroupBox()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
|
||||
Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label69 = New System.Windows.Forms.Label()
|
||||
@@ -143,6 +144,8 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.Button18 = New System.Windows.Forms.Button()
|
||||
Me.Label44 = New System.Windows.Forms.Label()
|
||||
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.Label72 = New System.Windows.Forms.Label()
|
||||
Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
|
||||
@@ -210,7 +213,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.btnContractdaten = New System.Windows.Forms.Button()
|
||||
Me.Button15 = New System.Windows.Forms.Button()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -233,6 +235,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.GroupBox18.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.GroupBox19.SuspendLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox13.SuspendLayout()
|
||||
Me.GroupBox10.SuspendLayout()
|
||||
Me.tbPLOSE.SuspendLayout()
|
||||
@@ -245,7 +248,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.GroupBox15.SuspendLayout()
|
||||
Me.GroupBox14.SuspendLayout()
|
||||
Me.pnl.SuspendLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'GroupBox1
|
||||
@@ -1503,6 +1505,16 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.GroupBox19.TabIndex = 12
|
||||
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
|
||||
'
|
||||
Me.lblAnzahlMautberichte.AutoSize = True
|
||||
@@ -1537,7 +1549,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.Label68.Name = "Label68"
|
||||
Me.Label68.Size = New System.Drawing.Size(333, 20)
|
||||
Me.Label68.TabIndex = 30
|
||||
Me.Label68.Text = "Generiert Mautbericht und hängt sie an den Sammelrechnungen an."
|
||||
Me.Label68.Text = "Generiert Mautberichte"
|
||||
'
|
||||
'cbxMautbericht
|
||||
'
|
||||
@@ -1584,6 +1596,8 @@ Partial Class usrCntlMDMAuswertungen
|
||||
'
|
||||
'GroupBox13
|
||||
'
|
||||
Me.GroupBox13.Controls.Add(Me.cbxAbfVerbotdrucken)
|
||||
Me.GroupBox13.Controls.Add(Me.cbxRechnungsjournaldrucken)
|
||||
Me.GroupBox13.Controls.Add(Me.Button20)
|
||||
Me.GroupBox13.Controls.Add(Me.Label72)
|
||||
Me.GroupBox13.Controls.Add(Me.KdSearchBox3)
|
||||
@@ -1606,10 +1620,34 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.GroupBox13.Controls.Add(Me.Button14)
|
||||
Me.GroupBox13.Location = New System.Drawing.Point(14, 351)
|
||||
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.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
|
||||
'
|
||||
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
@@ -1618,12 +1656,12 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.Button20.Name = "Button20"
|
||||
Me.Button20.Size = New System.Drawing.Size(121, 49)
|
||||
Me.Button20.TabIndex = 43
|
||||
Me.Button20.Text = "Mautanh. löschen"
|
||||
Me.Button20.Text = "Mautanh. aus RE entfernen"
|
||||
Me.Button20.UseVisualStyleBackColor = True
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(541, 17)
|
||||
Me.Label72.TabIndex = 42
|
||||
@@ -1649,7 +1687,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.KdSearchBox3.KdNr = "-1"
|
||||
Me.KdSearchBox3.kdNrField = 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.nurAktive = True
|
||||
Me.KdSearchBox3.searchActive = True
|
||||
@@ -1661,7 +1699,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
'rbkunde
|
||||
'
|
||||
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.Size = New System.Drawing.Size(59, 17)
|
||||
Me.rbkunde.TabIndex = 40
|
||||
@@ -1672,7 +1710,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
'
|
||||
Me.rbAlleKunden.AutoSize = 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.Size = New System.Drawing.Size(81, 17)
|
||||
Me.rbAlleKunden.TabIndex = 39
|
||||
@@ -1684,7 +1722,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
'
|
||||
Me.txtPloseAnh_Einarbeitung.BackColor = System.Drawing.Color.White
|
||||
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.Size = New System.Drawing.Size(106, 13)
|
||||
Me.txtPloseAnh_Einarbeitung.TabIndex = 38
|
||||
@@ -1692,7 +1730,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
'Label71
|
||||
'
|
||||
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.Size = New System.Drawing.Size(56, 13)
|
||||
Me.Label71.TabIndex = 35
|
||||
@@ -1700,14 +1738,14 @@ Partial Class usrCntlMDMAuswertungen
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(283, 23)
|
||||
Me.pbPloseAnh_Proz.TabIndex = 36
|
||||
'
|
||||
'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.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblPloseAnh_Proz.TabIndex = 37
|
||||
@@ -2309,16 +2347,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.pnl.Size = New System.Drawing.Size(1057, 54)
|
||||
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
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -2365,6 +2393,7 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.TabPage2.PerformLayout()
|
||||
Me.GroupBox19.ResumeLayout(False)
|
||||
Me.GroupBox19.PerformLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GroupBox13.ResumeLayout(False)
|
||||
Me.GroupBox13.PerformLayout()
|
||||
Me.GroupBox10.ResumeLayout(False)
|
||||
@@ -2388,7 +2417,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Me.GroupBox14.PerformLayout()
|
||||
Me.pnl.ResumeLayout(False)
|
||||
Me.pnl.PerformLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -2579,4 +2607,6 @@ Partial Class usrCntlMDMAuswertungen
|
||||
Friend WithEvents Button20 As Button
|
||||
Friend WithEvents lblAnzahlMautberichte As Label
|
||||
Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents cbxAbfVerbotdrucken As CheckBox
|
||||
Friend WithEvents cbxRechnungsjournaldrucken As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -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")
|
||||
|
||||
Dim count = 0
|
||||
Dim countCSV = 0
|
||||
Dim countPDF = 0
|
||||
If Directory.Exists(PathMautberichte) Then
|
||||
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
|
||||
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
|
||||
End If
|
||||
End If
|
||||
lblAnzahlMautberichte.Text = count & "x Mautberichte"
|
||||
lblAnzahlMautberichte.Text = countCSV + countPDF & "x Mautberichte (" & countCSV & "x CSV " & countPDF & "x PDF )"
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1147,7 +1149,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
End If
|
||||
|
||||
'Druckinformationen
|
||||
If Not setStatus4(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
|
||||
If Not setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
|
||||
MsgBox("Fehler beim Setzen der Druckinformationen")
|
||||
Else
|
||||
MsgBox("Erledigt.")
|
||||
@@ -1683,12 +1685,10 @@ Public Class usrCntlMDMAuswertungen
|
||||
|
||||
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
|
||||
'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
|
||||
If dtSammelRechnugen.Rows.Count > 0 Then
|
||||
For Each re In dtSammelRechnugen.Rows
|
||||
@@ -2254,6 +2254,10 @@ Public Class usrCntlMDMAuswertungen
|
||||
If distinctDT_PDF.Rows.Count > 1 Then
|
||||
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
|
||||
|
||||
createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte)
|
||||
@@ -2271,15 +2275,17 @@ Public Class usrCntlMDMAuswertungen
|
||||
End Select
|
||||
|
||||
|
||||
Dim count = 0
|
||||
Dim countCSV = 0
|
||||
Dim countPDF = 0
|
||||
If Directory.Exists(PathMautberichte) Then
|
||||
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
|
||||
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
|
||||
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
|
||||
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.lblRgDatum.Text = anhangsdatum.ToShortDateString
|
||||
|
||||
rpt.GroupHeaderKz.DataField = "LicencePlateNumber"
|
||||
rpt.GroupHeaderKz.DataField = "Licence Plate Number"
|
||||
|
||||
|
||||
rpt.txtNettoKzSum.Visible = False
|
||||
@@ -2451,7 +2457,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
|
||||
Dim Sachbearbeiter = cboSachbearbeiter._value
|
||||
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
|
||||
|
||||
Dim rechnungsstatus As Integer = 2
|
||||
If rechnungsdatum > Today() Then
|
||||
MsgBox("Rechnungsdatum liegt in der Zukunft, nicht möglich")
|
||||
Exit Sub
|
||||
@@ -2488,7 +2494,7 @@ Public Class usrCntlMDMAuswertungen
|
||||
|
||||
Dim SQLString = "SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status]
|
||||
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]
|
||||
ORDER BY [Firma_ID], [Status], RechnungsNr"
|
||||
|
||||
@@ -2534,9 +2540,94 @@ Public Class usrCntlMDMAuswertungen
|
||||
lblPloseAnh_Proz.Text = "100.00 %"
|
||||
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
|
||||
|
||||
MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!")
|
||||
MsgBox("Datei von " & rechnungsdatum.ToShortDateString & " konnte nicht erstellt werden!")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user