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

Sammelrechnung kosm. Korrekturen, USTVA

Browse Source
This commit is contained in:
d.breimaier
2025-02-27 17:20:39 +01:00
parent 560aae3c32
commit 051cf0fce7
7 changed files with 33 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -38,10 +38,12 @@ Public Class usrcntlFakturierung
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")
cbxMautanh.Checked = False
'PathMautberichte = "C:\Users\d.breimaier\Desktop\MDM\Mautgesamtberichte\"
Dim countCSV = 0
Dim countPDF = 0
countCSV = 0
countPDF = 0
If Directory.Exists(PathMautberichte) Then
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
For Each f In Directory.GetFiles(PathMautberichte)
@@ -49,11 +51,12 @@ Public Class usrcntlFakturierung
If f.ToString.ToLower.EndsWith("_maut.pdf") Then countPDF += 1
Next
End If
Else
MsgBox("Mautbericht-Pfad " & PathMautberichte & " nicht verfügbar!")
End If
lblAnzahlMautberichte.Text = countCSV + countPDF & "x Mautberichte (" & countCSV & "x CSV " & countPDF & "x PDF )"
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_FAKTURIERUNG", "SDL") = 0 Then
btnMDMSammelrechnung.Enabled = True
@@ -1119,9 +1122,7 @@ Public Class usrcntlFakturierung
If cbxDateMautbericht._value = "" Then Exit Sub
Try
If Not Directory.Exists(PathMautberichte) Then MsgBox("Pfad " & PathMautberichte & " nicht verfügbar" & vbNewLine & "Vorgang wird abgebrochen!") : Exit Sub
Select Case cbxMautbericht._value
'nur intern
@@ -1274,8 +1275,8 @@ Public Class usrcntlFakturierung
End Select
Dim countCSV = 0
Dim countPDF = 0
countCSV = 0
countPDF = 0
If Directory.Exists(PathMautberichte) Then
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
For Each f In Directory.GetFiles(PathMautberichte)
@@ -1521,7 +1522,7 @@ Public Class usrcntlFakturierung
.Columns.Clear()
.SET_SQL("SELECT [Datenquelle] as Lieferant,sum([Net Amount]) as Netto,sum([VAT Amount]) as VAT,sum([Total Amount]) as Brutto
.SET_SQL("SELECT [Datenquelle] as Lieferant,format(sum([Net Amount]),'#,#.00', 'de-de') as Netto,format(sum([VAT Amount]), '#,#.00', 'de-de') as VAT,format(sum([Total Amount]), '#,#.00', 'de-de') as Brutto
FROM [VERAG].[dbo].[tblMautbericht]
where cast([Billingdate] as date) = '" & cbxDateMautbericht._value & "'
group by [Datenquelle]", "FMZOLL")
@@ -1591,7 +1592,7 @@ Public Class usrcntlFakturierung
MsgBox("Anzahl CSV-Anhänge: " & rechnungenMitGesamtmautanhantCSV & vbNewLine & "Anzahl PDF-Anhänge: " & rechnungenMitGesamtmautanhantPDF)
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
If Not Directory.GetFiles(PathMautberichte).Count = (countCSV + countPDF) Then Exit Sub
If Directory.GetFiles(PathMautberichte).Count = (countCSV + countPDF) OrElse (rechnungenMitGesamtmautanhantCSV = "0" AndAlso rechnungenMitGesamtmautanhantPDF = "0") Then Exit Sub
End If
@@ -1874,4 +1875,5 @@ Public Class usrcntlFakturierung
Next
Return False
End Function
End Class