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

Abrechnungslogik Sammelrechnungen MDM

Browse Source
This commit is contained in:
d.breimaier
2025-01-21 10:01:06 +01:00
parent dbb13dffb0
commit 627f48826e
11 changed files with 670 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1234,7 +1234,7 @@ Public Class frmMDMDatenverarbetiung
For Each csv As DataRow In distinctDT_CSV.Rows
Dim dt_CSV_selected = SQL.loadDgvBySql_Param("SELECT * FROM tblUTAImportNew where [Rechnungsdatum] = '" & DateTimePicker2.Text & "' and Kundennummer = " & csv.Item("Customer ID"), "FMZOLL")
Dim dt_CSV_selected = SQL.loadDgvBySql_Param("SELECT * FROM tblUTAImportNew where [Rechnungsdatum] = '" & DateTimePicker2.Text & "' and Kundennummer = " & csv.Item("Customer ID"), "FMZOLL")
dt_CSV_selected.ParentRelations.Clear()
dt_CSV_selected.ChildRelations.Clear()
dt_CSV_selected.Constraints.Clear()
@@ -1305,7 +1305,7 @@ Public Class frmMDMDatenverarbetiung
End If
If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang)
For Each f In Directory.GetFiles(dir)
File.Copy(f, dirAnhang & (New FileInfo(f)).Name)
File.Copy(f, dirAnhang & (New FileInfo(f)).Name, True)
Next
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
@@ -1457,7 +1457,7 @@ Public Class frmMDMDatenverarbetiung
End If
For Each f In Directory.GetFiles(dir)
File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name)
File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name, True)
Next
'IN FMZOLL / DB MautD einfügen --> Mautbericht
@@ -1603,7 +1603,7 @@ Public Class frmMDMDatenverarbetiung
End If
For Each f In Directory.GetFiles(dir)
File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name)
File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name, True)
Next
pbPloseAnh_Proz.Value = 100
@@ -4061,6 +4061,7 @@ Public Class frmMDMDatenverarbetiung
sum(trans.transaction_gross_amount) As [Summe Transaction Amount ( EUR )],
sum(trans.msts_fee_amount) As [Summe Admin Fee Amount ( EUR )],
sum(trans.msts_fee_amount) As [Summe Fees And Costs Amount ( EUR )],
sum(trans.msts_vat_amount) As [Summe VAT Amount ( EUR )],
sum(trans.transaction_gross_amount) As [Summe Total Amount ( EUR )]
From [VERAG].[dbo].[tblMSESettlements] as bills