MDM Fakt.
This commit is contained in:
124
SDL/seriendruck/usrCntlFakturierung.Designer.vb
generated
124
SDL/seriendruck/usrCntlFakturierung.Designer.vb
generated
@@ -45,6 +45,12 @@ Partial Class usrcntlFakturierung
|
||||
Me.Button18 = New System.Windows.Forms.Button()
|
||||
Me.Label44 = New System.Windows.Forms.Label()
|
||||
Me.GBSammelrechnung = New System.Windows.Forms.GroupBox()
|
||||
Me.btnAbfdruck = New System.Windows.Forms.Button()
|
||||
Me.btnREJdruck = New System.Windows.Forms.Button()
|
||||
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.cbxMautanh = New System.Windows.Forms.CheckBox()
|
||||
@@ -79,22 +85,18 @@ Partial Class usrcntlFakturierung
|
||||
Me.Label63 = New System.Windows.Forms.Label()
|
||||
Me.Label45 = New System.Windows.Forms.Label()
|
||||
Me.Button14 = New System.Windows.Forms.Button()
|
||||
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GBMautberichte.SuspendLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GBSammelrechnung.SuspendLayout()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'GroupBox1
|
||||
@@ -312,6 +314,8 @@ Partial Class usrcntlFakturierung
|
||||
'
|
||||
'GBSammelrechnung
|
||||
'
|
||||
Me.GBSammelrechnung.Controls.Add(Me.btnAbfdruck)
|
||||
Me.GBSammelrechnung.Controls.Add(Me.btnREJdruck)
|
||||
Me.GBSammelrechnung.Controls.Add(Me.PictureBox8)
|
||||
Me.GBSammelrechnung.Controls.Add(Me.Label2)
|
||||
Me.GBSammelrechnung.Controls.Add(Me.PictureBox7)
|
||||
@@ -357,11 +361,71 @@ Partial Class usrcntlFakturierung
|
||||
Me.GBSammelrechnung.TabIndex = 14
|
||||
Me.GBSammelrechnung.TabStop = False
|
||||
'
|
||||
'btnAbfdruck
|
||||
'
|
||||
Me.btnAbfdruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnAbfdruck.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.btnAbfdruck.Location = New System.Drawing.Point(145, 346)
|
||||
Me.btnAbfdruck.Name = "btnAbfdruck"
|
||||
Me.btnAbfdruck.Size = New System.Drawing.Size(106, 32)
|
||||
Me.btnAbfdruck.TabIndex = 115
|
||||
Me.btnAbfdruck.Text = "ABf-Verbot öffnen"
|
||||
Me.btnAbfdruck.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnREJdruck
|
||||
'
|
||||
Me.btnREJdruck.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnREJdruck.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.btnREJdruck.Location = New System.Drawing.Point(10, 346)
|
||||
Me.btnREJdruck.Name = "btnREJdruck"
|
||||
Me.btnREJdruck.Size = New System.Drawing.Size(106, 32)
|
||||
Me.btnREJdruck.TabIndex = 114
|
||||
Me.btnREJdruck.Text = "RE Journal öffnen"
|
||||
Me.btnREJdruck.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PictureBox8
|
||||
'
|
||||
Me.PictureBox8.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox8.Location = New System.Drawing.Point(148, 212)
|
||||
Me.PictureBox8.Name = "PictureBox8"
|
||||
Me.PictureBox8.Size = New System.Drawing.Size(14, 14)
|
||||
Me.PictureBox8.TabIndex = 113
|
||||
Me.PictureBox8.TabStop = False
|
||||
Me.PictureBox8.Visible = False
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(168, 212)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(224, 17)
|
||||
Me.Label2.TabIndex = 112
|
||||
Me.Label2.Text = "2. PDFs erzeugt"
|
||||
'
|
||||
'PictureBox7
|
||||
'
|
||||
Me.PictureBox7.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(148, 195)
|
||||
Me.PictureBox7.Name = "PictureBox7"
|
||||
Me.PictureBox7.Size = New System.Drawing.Size(14, 14)
|
||||
Me.PictureBox7.TabIndex = 111
|
||||
Me.PictureBox7.TabStop = False
|
||||
Me.PictureBox7.Visible = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(168, 195)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(224, 17)
|
||||
Me.Label1.TabIndex = 110
|
||||
Me.Label1.Text = "1. Rechnungsnummern gesetzt"
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button3.Location = New System.Drawing.Point(123, 346)
|
||||
Me.Button3.Location = New System.Drawing.Point(529, 346)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(121, 32)
|
||||
Me.Button3.TabIndex = 109
|
||||
@@ -373,7 +437,7 @@ Partial Class usrcntlFakturierung
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.Button2.Location = New System.Drawing.Point(4, 346)
|
||||
Me.Button2.Location = New System.Drawing.Point(410, 346)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(106, 32)
|
||||
Me.Button2.TabIndex = 108
|
||||
@@ -718,44 +782,6 @@ Partial Class usrcntlFakturierung
|
||||
Me.Button14.Text = "Rechnungspos. berechnen"
|
||||
Me.Button14.UseVisualStyleBackColor = True
|
||||
'
|
||||
'PictureBox7
|
||||
'
|
||||
Me.PictureBox7.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox7.Location = New System.Drawing.Point(148, 195)
|
||||
Me.PictureBox7.Name = "PictureBox7"
|
||||
Me.PictureBox7.Size = New System.Drawing.Size(14, 14)
|
||||
Me.PictureBox7.TabIndex = 111
|
||||
Me.PictureBox7.TabStop = False
|
||||
Me.PictureBox7.Visible = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.Location = New System.Drawing.Point(168, 195)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(224, 17)
|
||||
Me.Label1.TabIndex = 110
|
||||
Me.Label1.Text = "1. Rechnungsnummern gesetzt"
|
||||
'
|
||||
'PictureBox8
|
||||
'
|
||||
Me.PictureBox8.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.PictureBox8.Location = New System.Drawing.Point(148, 212)
|
||||
Me.PictureBox8.Name = "PictureBox8"
|
||||
Me.PictureBox8.Size = New System.Drawing.Size(14, 14)
|
||||
Me.PictureBox8.TabIndex = 113
|
||||
Me.PictureBox8.TabStop = False
|
||||
Me.PictureBox8.Visible = False
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.Location = New System.Drawing.Point(168, 212)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(224, 17)
|
||||
Me.Label2.TabIndex = 112
|
||||
Me.Label2.Text = "2. PDFs erzeugt"
|
||||
'
|
||||
'usrcntlFakturierung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -775,14 +801,14 @@ Partial Class usrcntlFakturierung
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.GBSammelrechnung.ResumeLayout(False)
|
||||
Me.GBSammelrechnung.PerformLayout()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -846,4 +872,6 @@ Partial Class usrcntlFakturierung
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents PictureBox8 As PictureBox
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents btnREJdruck As Button
|
||||
Friend WithEvents btnAbfdruck As Button
|
||||
End Class
|
||||
|
||||
@@ -61,7 +61,8 @@ Public Class usrcntlFakturierung
|
||||
btnFakturierung.Enabled = True
|
||||
btnRechnugnsdaten.Enabled = True
|
||||
|
||||
|
||||
btnAbfdruck.Enabled = True
|
||||
btnREJdruck.Enabled = True
|
||||
|
||||
End If
|
||||
|
||||
@@ -1055,96 +1056,15 @@ Public Class usrcntlFakturierung
|
||||
End If
|
||||
|
||||
|
||||
If cbxRechnungsjournaldrucken.Checked Then REJournalExcel(Sachbearbeiter, rechnungsdatum, -1)
|
||||
|
||||
|
||||
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] = 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
|
||||
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] = 2 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
|
||||
If cbxAbfVerbotdrucken.Checked Then AbfVerbotExcel(Sachbearbeiter, rechnungsdatum, -1)
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Else
|
||||
|
||||
showPic(false, PictureBox8)
|
||||
MsgBox("Keine Sammelrechnung zum " & rechnungsdatum.ToShortDateString & " von " & Sachbearbeiter & " vorhanden!")
|
||||
@@ -1663,7 +1583,7 @@ Public Class usrcntlFakturierung
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click, Button3.Click
|
||||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click, Button3.Click, btnREJdruck.Click, btnAbfdruck.Click
|
||||
|
||||
Dim Sachbearbeiter = cboSachbearbeiter._value
|
||||
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
|
||||
@@ -1682,7 +1602,7 @@ Public Class usrcntlFakturierung
|
||||
|
||||
If rbkunde.Checked Then
|
||||
If KdSearchBox3.KdNr > 0 Then
|
||||
kdnr = KdSearchBox3.KdNr
|
||||
kdNr = KdSearchBox3.KdNr
|
||||
Else
|
||||
MsgBox("Kunde auswählen!")
|
||||
Exit Sub
|
||||
@@ -1703,6 +1623,15 @@ Public Class usrcntlFakturierung
|
||||
'Berechnet Banküberweisung/Bankspesen.
|
||||
showPic(Bankspesen(Sachbearbeiter, rechnungsdatum, kdNr), PictureBox5)
|
||||
|
||||
|
||||
Case "btnREJdruck"
|
||||
|
||||
REJournalExcel(Sachbearbeiter, rechnungsdatum, kdNr)
|
||||
|
||||
Case "btnAbfdruck"
|
||||
|
||||
AbfVerbotExcel(Sachbearbeiter, rechnungsdatum, kdNr)
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
@@ -1710,4 +1639,109 @@ Public Class usrcntlFakturierung
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub AbfVerbotExcel(Sachbearbeiter, rechnungsdatum, kdnr)
|
||||
|
||||
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] = 2 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 " & IIf(kdnr > 0, " AND Rechnungsausgang.RechnungsKundenNr = " & kdnr, "") & "
|
||||
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")
|
||||
|
||||
If dtEbfertigungsverbot.Rows.Count > 0 Then
|
||||
|
||||
|
||||
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)
|
||||
|
||||
Else
|
||||
MsgBox("Keine Daten für Abfertigungsverbot")
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub REJournalExcel(Sachbearbeiter, rechnungsdatum, kdnr)
|
||||
|
||||
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] = 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 Rechnungsausgang.RechnungsKundenNr = " & kdnr, "") & "
|
||||
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")
|
||||
|
||||
If dtRechnungsjournal.Rows.Count > 0 Then
|
||||
|
||||
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)
|
||||
|
||||
Else
|
||||
MsgBox("Keine Daten für Rechnungsjournal")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user