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

fakt, Mahnungen, Fakt-Abrechnung

Browse Source
This commit is contained in:
d.breimaier
2025-05-27 09:50:15 +02:00
parent b58744fa1d
commit 7b783d6104
13 changed files with 382 additions and 859 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/seriendruck/usrCntlFakturierung.Designer.vb generated
View File

@@ -94,6 +94,8 @@ Partial Class usrcntlFakturierung
Me.btnRePos = New System.Windows.Forms.Button()
Me.Validation1 = New SDL.EORI.validation()
Me.btnWikiStatusmails = New System.Windows.Forms.Button()
Me.Label10 = New System.Windows.Forms.Label()
Me.lblAnzRE = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
Me.GBMautberichte.SuspendLayout()
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -337,6 +339,8 @@ Partial Class usrcntlFakturierung
'
'GBSammelrechnung
'
Me.GBSammelrechnung.Controls.Add(Me.lblAnzRE)
Me.GBSammelrechnung.Controls.Add(Me.Label10)
Me.GBSammelrechnung.Controls.Add(Me.Label9)
Me.GBSammelrechnung.Controls.Add(Me.Label8)
Me.GBSammelrechnung.Controls.Add(Me.PictureBox9)
@@ -882,6 +886,24 @@ Partial Class usrcntlFakturierung
Me.btnWikiStatusmails.TabIndex = 72
Me.btnWikiStatusmails.UseVisualStyleBackColor = True
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(434, 63)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(126, 13)
Me.Label10.TabIndex = 122
Me.Label10.Text = "Anzahl RE offen/erledigt:"
'
'lblAnzRE
'
Me.lblAnzRE.AutoSize = True
Me.lblAnzRE.Location = New System.Drawing.Point(608, 62)
Me.lblAnzRE.Name = "lblAnzRE"
Me.lblAnzRE.Size = New System.Drawing.Size(30, 13)
Me.lblAnzRE.TabIndex = 123
Me.lblAnzRE.Text = "0 / 0"
'
'usrcntlFakturierung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -985,4 +1007,6 @@ Partial Class usrcntlFakturierung
Friend WithEvents Label6 As Label
Friend WithEvents Label9 As Label
Friend WithEvents btnWikiStatusmails As Button
Friend WithEvents lblAnzRE As Label
Friend WithEvents Label10 As Label
End Class

16
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1722,9 +1722,14 @@ Public Class usrcntlFakturierung
If rechnungsdatum > Today() Then Return False
Dim rechnungenMitStatus0 As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) From Rechnungsausgang
Dim rechnungenMitStatus0 As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(distinct(RechnungsKundenNr)) From Rechnungsausgang
Where [Status] = 0 And [Sammelrechnung] = 6 And UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL",, 0))
Dim rechnungenErledigt As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(distinct(RechnungsKundenNr)) From Rechnungsausgang
Where [Status] <> 0 And [Sammelrechnung] = 6 And UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL",, 0))
lblAnzRE.Text = rechnungenMitStatus0 & " /" & rechnungenErledigt & " (" & rechnungenMitStatus0 + rechnungenErledigt & ")"
Return rechnungenMitStatus0 > 0
End Function
@@ -1853,7 +1858,7 @@ Public Class usrcntlFakturierung
Private Sub REJournalExcel(Sachbearbeiter, rechnungsdatum, kdnr)
Dim dtRechnungsjournal As DataTable = (New SQL).loadDgvBySql("SELECT
Dim dtRechnungsjournal As DataTable = (New SQL).loadDgvBySql("SELECT count(distinct(Rechnungsausgang.RechnungsKundenNr)) as Anzahl,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
Rechnungsausgang.RechnungsNr,
@@ -1894,7 +1899,7 @@ Public Class usrcntlFakturierung
If dtRechnungsjournal.Rows.Count > 0 Then
createSumFunciton(dtRechnungsjournal)
cProgramFunctions.genExcelFromDT_NEW(dtRechnungsjournal, {"I1:I" & (dtRechnungsjournal.Rows.Count + 1), "J1:J" & (dtRechnungsjournal.Rows.Count + 1), "K1:K" & (dtRechnungsjournal.Rows.Count + 1)},, "RECHNUNGSJOURNAL VOM " & rechnungsdatum.ToShortDateString,,, True)
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")
@@ -1906,7 +1911,7 @@ Public Class usrcntlFakturierung
Private Sub REJournaByCountrylExcel(Sachbearbeiter, rechnungsdatum, kdnr)
Dim dtLaender As DataTable = (New SQL).loadDgvBySql("SELECT
Dim dtLaender As DataTable = (New SQL).loadDgvBySql("SELECT count(distinct(Rechnungsausgang.RechnungsKundenNr)) as Anzahl,
Rechnungsausgang.Buchungsjahr,
Rechnungsausgang.Währungscode,
Rechnungsausgang.RechnungsLandKz,
@@ -1948,13 +1953,16 @@ Public Class usrcntlFakturierung
Dim SteuerpflichtigerBetrag As Double = 0
Dim SteuerfreierBetrag As Double = 0
Dim Anzahl As Integer = 0
For Each row In dt.Rows
If Not IsDBNull(row("SteuerpflichtigerGesamtbetrag")) AndAlso IsNumeric(row("SteuerpflichtigerGesamtbetrag")) Then SteuerpflichtigerBetrag += CDbl(row("SteuerpflichtigerGesamtbetrag"))
If Not IsDBNull(row("SteuerfreierGesamtbetrag")) AndAlso IsNumeric(row("SteuerfreierGesamtbetrag")) Then SteuerfreierBetrag += CDbl(row("SteuerfreierGesamtbetrag"))
If Not IsDBNull(row("Anzahl")) AndAlso IsNumeric(row("Anzahl")) Then Anzahl += CInt(row("Anzahl"))
Next
Dim drLast = dt.NewRow
If dt.Columns.Contains("Anzahl") Then drLast.Item("Anzahl") = Anzahl
If dt.Columns.Contains("Währungscode") Then drLast.Item("Währungscode") = DBNull.Value
If dt.Columns.Contains("RechnungsLandKz") Then drLast.Item("RechnungsLandKz") = DBNull.Value
If dt.Columns.Contains("RechnungsNr") Then drLast.Item("RechnungsNr") = DBNull.Value