MDM, UTA, FIbu

SDL/buchhaltung/frmLeistundenFIBUKonten.Designer.vb

@@ -287,6 +287,7 @@ Partial Class frmLeistundenFIBUKonten
         Me.btnAdd.Size = New System.Drawing.Size(24, 20)
         Me.btnAdd.TabIndex = 103
         Me.btnAdd.UseVisualStyleBackColor = True
+        Me.btnAdd.Visible = False
         '
         'btnDelete
         '

SDL/buchhaltung/frmLeistundenFIBUKonten.vb

@@ -115,8 +115,6 @@ Public Class frmLeistundenFIBUKonten
 
         If checkIfFirmaIsFilled(True) = False Then Exit Sub
 
-
-
         If Not mainPanel.Enabled Then mainPanel.Enabled = True
 
         For Each contr As Windows.Forms.Control In mainPanel.Controls

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1,5 +1,6 @@
 Imports System.Data.OleDb
 Imports System.IO
+Imports Challenge
 Imports TAlex.WPF.Helpers
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -632,17 +633,17 @@ Public Class frmMDMDatenverarbetiung
                                           rpt.lblKartennr.Text = "VERAG-KdNr: " & SQL.isDbnullEmpty(rpt.Fields.Item("AdressenNr").Value, "") & IIf(SQL.isDbnullEmpty(rpt.Fields.Item("Rabatt").Value, "") <> "", "  abgezogener Rabatt:" & SQL.isDbnullEmpty(rpt.Fields.Item("Rabatt").Value & "", ""), "")
 
                                           rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Liter").Value, 2, "")
-                                          rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(CDbl(rpt.Fields.Item("Netto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value) / CDbl(rpt.Fields.Item("Liter").Value), 2, "")
+                                          rpt.lblMWST.Text = SQL.isDbnullEmptyDbl((CDbl(rpt.Fields.Item("Netto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value)) / CDbl(rpt.Fields.Item("Liter").Value), 4, "")
-                                          rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "")
+                                          rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(CDbl(rpt.Fields.Item("Brutto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value), 2, "")
 
 
                                           rpt.lblSumNet.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Liter").Value, 2, "")
-                                          rpt.lblSumVat.Text = SQL.isDbnullEmptyDbl(CDbl(rpt.Fields.Item("Netto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value) / CDbl(rpt.Fields.Item("Liter").Value), 2, "")
+                                          rpt.lblSumVat.Text = SQL.isDbnullEmptyDbl((CDbl(rpt.Fields.Item("Netto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value)) / CDbl(rpt.Fields.Item("Liter").Value), 4, "")
-                                          rpt.lblSumBrt.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "")
+                                          rpt.lblSumBrt.Text = SQL.isDbnullEmptyDbl(CDbl(rpt.Fields.Item("Brutto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value), 2, "")
 
                                           sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Liter").Value, 4, 0)
-                                          sumMWST += SQL.isDbnullEmptyDbl(CDbl(rpt.Fields.Item("Netto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value) / CDbl(rpt.Fields.Item("Liter").Value), 4, 0)
+                                          'sumMWST  += SQL.isDbnullEmptyDbl((CDbl(rpt.Fields.Item("Netto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value)) / CDbl(rpt.Fields.Item("Liter").Value), 4, 0)
-                                          sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0)
+                                          sumBrutto += SQL.isDbnullEmptyDbl(CDbl(rpt.Fields.Item("Brutto").Value) - CDbl(rpt.Fields.Item("Rabatt").Value), 4, 0)
 
 
                                       End Sub
@@ -651,7 +652,7 @@ Public Class frmMDMDatenverarbetiung
         AddHandler rpt.ReportFooter1.Format, Sub()
 
                                                  rpt.lblSumNetto.Text = sumNetto.ToString("N2")
-                                                 rpt.lblSumMwst.Text = sumMWST.ToString("N2")
+                                                 'rpt.lblSumMwst.Text = sumMWST.ToString("N2")
                                                  rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
 
                                              End Sub
@@ -879,6 +880,7 @@ Public Class frmMDMDatenverarbetiung
 
             lblTTRSum.Visible = True
             txtTTRSum.Visible = True
+            txtTTRSum._WaehrungZeichen = True
 
             lblTTRSum.Text = "Tr-Kosten"
 
@@ -1013,12 +1015,13 @@ Public Class frmMDMDatenverarbetiung
             Next
 
             txtAnzahl.Text = .Rows.Count
-            txtPruefsummeNetto.Text = CDbl(sumTr).ToString("C2")
+            txtPruefsummeNetto.Text = CDbl(sumFee).ToString("C2")
             txtPruefsummeBrutto.Text = CDbl(sumGes).ToString("C2")
-            txtTTRSum.Text = CDbl(sumFee).ToString("C2")
+            txtTTRSum.Text = CDbl(sumTr).ToString("C2")
 
             lblTTRSum.Visible = True
             txtTTRSum.Visible = True
+            txtTTRSum._WaehrungZeichen = False
 
             lblTTRSum.Text = "Liter"
 
@@ -4184,6 +4187,7 @@ Public Class frmMDMDatenverarbetiung
                         lblTTRSum.Visible = True
                         txtTTRSum.Visible = True
                         lblTTRSum.Text = "Prüfsumme TTR:"
+                        txtTTRSum._WaehrungZeichen = True
                     Else
                         lblTTRSum.Visible = False
                         txtTTRSum.Visible = False
@@ -4204,11 +4208,6 @@ Public Class frmMDMDatenverarbetiung
     End Function
 
     Private Function setRechenwerteIDS() As Boolean
-        'Abrechnungsdatum setzen
-
-        'Return False
-
-
 
         If Not LIEFERANT = "IDS" Then Return False
 
@@ -4225,6 +4224,7 @@ Public Class frmMDMDatenverarbetiung
             For Each row In MyDatagridview1.Rows
 
                 Dim kundeOhneRabatt = True
+                Dim seachedCustomer = False
 
                 Dim trans As New VERAG_PROG_ALLGEMEIN.cIDS(row.Cells("transaction_id").value)
                 trans.Rechenwert = 0
@@ -4244,6 +4244,9 @@ Public Class frmMDMDatenverarbetiung
 
                         If kundeOhneRabatt Then GoTo RabattBerechnen 'kundeOhneRabatt -> gleich zu Rabattberechnen!
 
+                        If trans.CustomerCode = 60003367 And trans.OutletCountry = "Austria" Then
+                            seachedCustomer = True
+                        End If
 
                         'Rechenwert für Land/Station/Kunde/Produkt ermitteln
                         Dim sqlStringLandStationKundeProdukt = "select Top(1) Rechenwert, Kz, KategorieNr FROM tbl_IDS_Rechenwerte WHERE OutletCountryCode=" & row.Cells("OutletCountryCode").Value & " AND OutletCode=" & row.Cells("OutletCode").Value & " And CustomerCode=" & row.Cells("KundeCustomerCode").Value & " AND ProductTypeCode=" & row.Cells("ProductTypeCode").Value & " ORDER BY Zeitstempel DESC"
@@ -4279,7 +4282,7 @@ Public Class frmMDMDatenverarbetiung
 
                     ' Rechenwert für Land/Station/Produkt ermitteln
 
-                    Dim sqlStringLandStationProdukt = "select Top(1) Rechenwert, Kz, KategorieNr FROM tbl_IDS_Rechenwerte WHERE OutletCountryCode=" & row.Cells("OutletCountryCode").Value & " AND OutletCode=" & row.Cells("OutletCode").Value & " AND ProductTypeCode=" & row.Cells("ProductTypeCode").Value & " ORDER BY Zeitstempel DESC"
+                    Dim sqlStringLandStationProdukt = "select Top(1) Rechenwert, Kz, KategorieNr FROM tbl_IDS_Rechenwerte WHERE OutletCountryCode=" & row.Cells("OutletCountryCode").Value & " AND OutletCode=" & row.Cells("OutletCode").Value & " AND ProductTypeCode=" & row.Cells("ProductTypeCode").Value & " AND CustomerCode is null  ORDER BY Zeitstempel DESC"
                     Dim dtLandStationProdukt As DataTable = SQL.loadDgvBySql(sqlStringLandStationProdukt, "FMZOLL")
                     If dtLandStationProdukt.Rows.Count > 0 Then
                         For Each r In dtLandStationProdukt.Rows
@@ -4294,7 +4297,7 @@ Public Class frmMDMDatenverarbetiung
 
                     ' Rechenwert für Land/Produkt ermitteln
 
-                    Dim sqlStringLandProdukt = "Select Top(1) Rechenwert, Kz, KategorieNr FROM tbl_IDS_Rechenwerte  WHERE OutletCountryCode=" & row.Cells("OutletCountryCode").Value & " And OutletCode Is Null And ProductTypeCode=" & row.Cells("ProductTypeCode").Value & " ORDER BY Zeitstempel DESC"
+                    Dim sqlStringLandProdukt = "Select Top(1) Rechenwert, Kz, KategorieNr FROM tbl_IDS_Rechenwerte  WHERE OutletCountryCode=" & row.Cells("OutletCountryCode").Value & " And OutletCode Is Null And ProductTypeCode=" & row.Cells("ProductTypeCode").Value & " AND CustomerCode is null  ORDER BY Zeitstempel DESC"
                     Dim dtLandProdukt As DataTable = SQL.loadDgvBySql(sqlStringLandProdukt, "FMZOLL")
                     If dtLandProdukt.Rows.Count > 0 Then
                         For Each r In dtLandProdukt.Rows
@@ -4349,10 +4352,15 @@ RabattBerechnen:
                     Select Case trans.Kz
 
                         Case "P" 'Rechenwert ist Preis pro Liter
-                            trans.Rabattbetrag = trans.TotalNetAmount - (trans.Rechenwert * trans.TransactionVolume * 100 + 0.5) / 100
+
+                            trans.Rabattbetrag = trans.TotalNetAmount - Math.Floor(trans.Rechenwert * trans.TransactionVolume * 100 + 0.5) / 100
+                            trans.RabattbetragOrig = trans.Rabattbetrag
+                            trans.Rabattbetrag = trans.Rabattbetrag
 
                         Case "R" 'Rechenwert ist Rabatt pro Liter
-                            trans.Rabattbetrag = (trans.Rechenwert * trans.TransactionVolume * 100 + 0.5) / 100
+                            trans.Rabattbetrag = Math.Floor(trans.Rechenwert * trans.TransactionVolume * 100 + 0.5) / 100
+                            trans.RabattbetragOrig = trans.Rabattbetrag
+                            trans.Rabattbetrag = trans.Rabattbetrag
 
                     End Select
 
@@ -4363,6 +4371,8 @@ RabattBerechnen:
 
                     If trans.TransactionVolume <> 0 Then
                         trans.RabattbetragProLiter = trans.Rabattbetrag / trans.TransactionVolume
+                        trans.RabattbetragProLiterOrig = trans.RabattbetragProLiter
+                        trans.RabattbetragProLiter = trans.RabattbetragProLiter
                     End If
 
                     trans.Zeitstempel = Now()
@@ -4653,19 +4663,24 @@ RabattBerechnen:
             Exit Sub
         End If
 
-        If vbYes = MsgBox("Wollen Sie die Rechenwerte in der IDS-Tabelle zurücksetzen?", vbYesNoCancel) Then
+        If vbYes = MsgBox("Wollen Sie die Rechenwerte und Rabattbeträge in der IDS-Tabelle zurücksetzen?", vbYesNoCancel) Then
+            Me.Cursor = Cursors.WaitCursor
             Dim i As Integer = 0
             For Each row In MyDatagridview1.Rows
                 Dim trans As New VERAG_PROG_ALLGEMEIN.cIDS(row.Cells("transaction_id").Value)
                 trans.Rechenwert = 0
+                trans.Rabattbetrag = 0
+                trans.RabattbetragProLiter = 0
                 trans.Kz = "R"
                 trans.Zeitstempel = Now()
                 trans.KdNrVERAG = Nothing
                 trans.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                 If trans.SAVE() Then i += 1
             Next
+            initDgv_IDS()
+            Me.Cursor = Cursors.Default
+            MsgBox(i & " Rechenwerte und Rabattbeträge wurden zurückgesetzt!")
 
-            MsgBox(i & " Rechenwerte wurden zurückgesetzt!")
         End If
 
     End Sub

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -31,6 +31,8 @@ Public Class cIDS
     Property Kz As Object = Nothing
     Property Rabattbetrag As Object = Nothing
     Property RabattbetragProLiter As Object = Nothing
+    Property RabattbetragOrig As Object = Nothing
+    Property RabattbetragProLiterOrig As Object = Nothing
     Property Zeitstempel As Object = Nothing
     Property Sachbearbeiter As Object = Nothing
     Property KdNrVERAG As Object = Nothing
@@ -90,6 +92,8 @@ Public Class cIDS
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kz", Kz))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rabattbetrag", Rabattbetrag))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RabattbetragProLiter", RabattbetragProLiter))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RabattbetragOrig", RabattbetragOrig))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RabattbetragProLiterOrig", RabattbetragProLiterOrig))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zeitstempel", Zeitstempel))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdNrVERAG", KdNrVERAG))

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -2,6 +2,30 @@
 
 Public Class cMDMFunctionsAllgemein
 
+    Public Shared ploseSchnittstelle As Boolean = False
+    Public Shared ITSchnittstelle As Boolean = False
+    Public Shared MSEAlteSchnittstelle As Boolean = False
+    Public Shared MSENeueSchnittstelle As Boolean = False
+    Public Shared IDSAlteSchnittstelle As Boolean = False
+    Public Shared IDSNeueSchnittstelle As Boolean = False
+    Public Shared UTAAlteSchnittstelle As Boolean = False
+    Public Shared UTANeueSchnittstelle As Boolean = False
+
+    Shared Function setSchnittstellen(plose As Boolean, IT As Boolean, MSEalt As Boolean, MSENeu As Boolean, IDSAlt As Boolean, IDSNeu As Boolean, UTAAlt As Boolean, UTANeu As Boolean)
+
+        ploseSchnittstelle = plose
+        ITSchnittstelle = IT
+        MSEAlteSchnittstelle = MSEalt
+        MSENeueSchnittstelle = MSENeu
+        IDSAlteSchnittstelle = IDSAlt
+        IDSNeueSchnittstelle = IDSNeu
+        UTAAlteSchnittstelle = UTAAlt
+        UTANeueSchnittstelle = UTANeu
+
+    End Function
+
+
+
     Shared Function Update_UStVASummenNeuBerechnen(KundenNr As Integer) As Boolean
         Try
 
@@ -153,13 +177,12 @@ Public Class cMDMFunctionsAllgemein
 
                     'Neuberechnung der Vorschausummen (also alle noch nicht verrechneten Transaktionen , die aber schon eingelesen wurden)
                     curUStV_SummeVorschaubetragEUR_VERAG = UStVKunden_Summen_lesen_Vorschau_VERAG(r.Item("KundenNr"), invoiceDate)
-                    curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), invoiceDate)
+                    curUStV_SummeVorschaubetragEUR_IDS = UStVKunden_Summen_lesen_Vorschau_IDS(r.Item("KundenNr"), invoiceDate, IDSAlteSchnittstelle, IDSNeueSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate)
+                    curUStV_SummeVorschaubetragEUR_IT = UStVKunden_Summen_lesen_Vorschau_IT(r.Item("KundenNr"), invoiceDate, ITSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), invoiceDate)
+                    curUStV_SummeVorschaubetragEUR_MSE = UStVKunden_Summen_lesen_Vorschau_MSE(r.Item("KundenNr"), invoiceDate, MSEAlteSchnittstelle, MSENeueSchnittstelle)
-                    curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), invoiceDate)
+                    curUStV_SummeVorschaubetragEUR_UTA = UStVKunden_Summen_lesen_Vorschau_UTA(r.Item("KundenNr"), invoiceDate, UTAAlteSchnittstelle, UTANeueSchnittstelle)
 
-                    'temporär deaktiviert!
+                    curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate, ploseSchnittstelle)
-                    'curUStV_SummeVorschaubetragEUR_PLOSE = UStVKunden_Summen_lesen_Vorschau_PLOSE(r.Item("KundenNr"), invoiceDate) 
 
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_VERAG
                     curUStV_SummeVorschaubetragEUR += curUStV_SummeVorschaubetragEUR_IDS
@@ -251,20 +274,20 @@ Public Class cMDMFunctionsAllgemein
 
 
                         Dim ro As DataRow = dt.NewRow
-                            ro("KundenNr") = IIf(KundenNr > 0, KundenNr, r.Item("KundenNr"))
+                        ro("KundenNr") = IIf(KundenNr > 0, KundenNr, r.Item("KundenNr"))
-                            ro("VorschaubetragEUR") = curUStV_SummeVorschaubetragEUR
+                        ro("VorschaubetragEUR") = curUStV_SummeVorschaubetragEUR
-                            ro("VorschaubetragEUR_VERAG") = curUStV_SummeVorschaubetragEUR_VERAG
+                        ro("VorschaubetragEUR_VERAG") = curUStV_SummeVorschaubetragEUR_VERAG
-                            ro("VorschaubetragEUR_IDS") = curUStV_SummeVorschaubetragEUR_IDS
+                        ro("VorschaubetragEUR_IDS") = curUStV_SummeVorschaubetragEUR_IDS
-                            ro("VorschaubetragEUR_IT") = curUStV_SummeVorschaubetragEUR_IT
+                        ro("VorschaubetragEUR_IT") = curUStV_SummeVorschaubetragEUR_IT
-                            ro("VorschaubetragEUR_MSE") = curUStV_SummeVorschaubetragEUR_MSE
+                        ro("VorschaubetragEUR_MSE") = curUStV_SummeVorschaubetragEUR_MSE
-                            ro("VorschaubetragEUR_UTA") = curUStV_SummeVorschaubetragEUR_UTA
+                        ro("VorschaubetragEUR_UTA") = curUStV_SummeVorschaubetragEUR_UTA
-                            ro("VorschaubetragEUR_PLOSE") = curUStV_SummeVorschaubetragEUR_PLOSE
+                        ro("VorschaubetragEUR_PLOSE") = curUStV_SummeVorschaubetragEUR_PLOSE
-                            ro("UmsatzsteuerbetragEUR") = curUStV_SummeUmsatzsteuerbetragEUR
+                        ro("UmsatzsteuerbetragEUR") = curUStV_SummeUmsatzsteuerbetragEUR
-                            ro("ErstattungsbetragEUR") = curUStV_SummeErstattungsbetragEUR
+                        ro("ErstattungsbetragEUR") = curUStV_SummeErstattungsbetragEUR
-                            ro("3470BetragEUR") = curUStV_Summe3470BetragEUR
+                        ro("3470BetragEUR") = curUStV_Summe3470BetragEUR
-                            ro("VZBetragEUR") = curUStV_SummeVZBetragEUR
+                        ro("VZBetragEUR") = curUStV_SummeVZBetragEUR
-                            dt.Rows.Add(ro)
+                        dt.Rows.Add(ro)
-                        End If
+                    End If
 
                 Next
             End If
@@ -325,7 +348,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_IDS(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSummeAlteSchnittstelle As Boolean, calcSummeNeueSchnittstelle As Boolean) As Double
 
         '1300     dtmRechnungsdatum = IIf(Date > DateSerial(Year(Date), 6, 30), DateSerial(Year(Date), 1, 1), DateSerial(Year(Date) - 1, 1, 1))
         '1310     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -345,7 +368,8 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeAlteSchnittstelle As Double = 0
             Dim summeNeueSchnittstelle As Double = 0
-            Dim sqlFMZollDaten = "SELECT dbo.tblDieselArchiv.KdNrVERAG AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblDieselArchiv.[VAT Amount]) AS Vorschaubetrag
+            If calcSummeAlteSchnittstelle Then
+                Dim sqlFMZollDaten = "SELECT dbo.tblDieselArchiv.KdNrVERAG AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblDieselArchiv.[VAT Amount]) AS Vorschaubetrag
                     FROM   dbo.tblDieselArchiv INNER JOIN
                                     dbo.tblSteuernummern ON dbo.tblDieselArchiv.KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
                                     dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND dbo.tblDieselArchiv.[Outlet Country Code] = dbo.tbl_IDS_Länder.OutletCountryCode
@@ -355,17 +379,18 @@ Public Class cMDMFunctionsAllgemein
                     ORDER BY dbo.tblDieselArchiv.KdNrVERAG, dbo.tblSteuernummern.LandNr"
 
 
-            Dim dtIT As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
+                Dim dtIT As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
 
-            For Each r As DataRow In dtIT.Rows
+                For Each r As DataRow In dtIT.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
+                    If UST_org <> 0 Then
-                    summeAlteSchnittstelle += UST_org
+                        summeAlteSchnittstelle += UST_org
-                End If
+                    End If
-            Next
+                Next
+            End If
 
-            'temoprär deaktiviert!!
+
-            If False Then
+            If calcSummeNeueSchnittstelle Then
                 Dim sqlFMZollDatenNEU = "SELECT [tblIDSTransactionsNew].KdNrVERAG AS AdressenNr, dbo.tblSteuernummern.LandNr, SUM([tblIDSTransactionsNew].[VAT Amount]) AS Vorschaubetrag
                     FROM   tblIDSTransactionsNew INNER JOIN
                                     dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr INNER JOIN
@@ -396,7 +421,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_PLOSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumme As Boolean) As Double
 
         '1300     dtmRechnungsdatum = IIf(Date > DateSerial(Year(Date), 6, 30), DateSerial(Year(Date), 1, 1), DateSerial(Year(Date) - 1, 1, 1))
         '1310     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -417,19 +442,23 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeSchnittstelle As Double = 0
 
-            Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details]  INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
+            If calcSumme Then
+
+                Dim sqlPLOSE = "select plose_POLSEKundennummer, sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] FROM [tblPLOSE_Details]  INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
                     WHERE plose_Archiv <> 1 AND plose_Fakturiert = 1 AND plose_LieferantCode IN (0,1,7) AND cast(plose_RechnungsDatum as date) >= '" & invoiceDate.ToShortDateString & "' and AdressenNr =  " & varUStVAn_KuNr & "
                     group by  plose_POLSEKundennummer"
 
 
-            Dim dtPLOSE As DataTable = sql.loadDgvBySql(sqlPLOSE, "FMZOLL")
+                Dim dtPLOSE As DataTable = sql.loadDgvBySql(sqlPLOSE, "FMZOLL")
+
+                For Each r As DataRow In dtPLOSE.Rows
+                    Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
+                    If UST_org <> 0 Then
+                        summeSchnittstelle += UST_org
+                    End If
+                Next
+            End If
 
-            For Each r As DataRow In dtPLOSE.Rows
-                Dim UST_org = CDbl(r.Item("plose_MWSTBetragWaehrungAbbuchung"))
-                If UST_org <> 0 Then
-                    summeSchnittstelle += UST_org
-                End If
-            Next
 
             Return summeSchnittstelle
 
@@ -442,7 +471,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_IT(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSum As Boolean) As Double
 
         '        Dim qdf As DAO.QueryDef
         '        Dim rst As DAO.Recordset
@@ -479,7 +508,10 @@ Public Class cMDMFunctionsAllgemein
         Try
             Dim summechnittstelle As Double = 0
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-            Dim sqlITSumme = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum AS Rechnungsdatum, 
+
+            If calcSum Then
+
+                Dim sqlITSumme = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum AS Rechnungsdatum, 
                                     dbo.tblMautITArchiv.Code_Adressat_des_Kontoauszugs AS Rechnungsnummer, 
                                     SUM(CAST(ROUND((dbo.tblMautITArchiv.Betrag_mit_Preisnachlass_oder_Preisnachlass - dbo.tblMautITArchiv.Nicht_mehrwertsteuerpflichtiger_Betrag) / 1.22 * 0.22, 2) AS money)) 
                                     AS Vorschaubetrag
@@ -490,15 +522,16 @@ Public Class cMDMFunctionsAllgemein
                                     AND (dbo.tblMautITArchiv.Verrechnungsdatum >= '" & invoiceDate.ToShortDateString & "')
                     GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMautITArchiv.Verrechnungsdatum, dbo.tblMautITArchiv.Code_Adressat_des_Kontoauszugs"
 
-            Dim dtIT As DataTable = sql.loadDgvBySql(sqlITSumme, "FMZOLL")
+                Dim dtIT As DataTable = sql.loadDgvBySql(sqlITSumme, "FMZOLL")
 
-            For Each r As DataRow In dtIT.Rows
+                For Each r As DataRow In dtIT.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
+                    If UST_org <> 0 Then
-                    Dim WaehrungsCode As String = r.Item("Währungscode")
+                        Dim WaehrungsCode As String = r.Item("Währungscode")
-                    summechnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
+                        summechnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
-                End If
+                    End If
-            Next
+                Next
+            End If
 
             Return summechnittstelle
 
@@ -511,7 +544,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_MSE(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
         'Return 0
         '        dtmRechnungsdatum = IIf(Date > DateSerial(Year(Of Date), 6, 30), DateSerial(Year(Of Date), 1, 1), DateSerial(Year(Of Date)() - 1, 1, 1))
         '1850     strParameter = ParameterBereitstellen(varUStVAn_KuNr, dtmRechnungsdatum)
@@ -535,7 +568,8 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeNeueSchnittstelle As Double = 0
             Dim summeAlteSchnittstelle As Double = 0
-            Dim sqlFMZollDatenALT = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date] AS Rechnungsdatum, SUM(dbo.tblMSETransactionsArchiv.[Original VAT Amount]) AS Vorschaubetrag, dbo.tblMSETransactionsArchiv.[Original Currency] AS Währungscode 
+            If calcSumalteSchnittstelle Then
+                Dim sqlFMZollDatenALT = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date] AS Rechnungsdatum, SUM(dbo.tblMSETransactionsArchiv.[Original VAT Amount]) AS Vorschaubetrag, dbo.tblMSETransactionsArchiv.[Original Currency] AS Währungscode 
                     FROM   dbo.tblSteuernummern INNER JOIN
                                    dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
                                     dbo.tblMSETransactionsArchiv ON dbo.Adressen.MSEKundenNr = dbo.tblMSETransactionsArchiv.[Customer ID] INNER JOIN
@@ -546,38 +580,40 @@ Public Class cMDMFunctionsAllgemein
                     GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency] 
                     ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, dbo.tblMSETransactionsArchiv.[Invoice Date], dbo.tblMSETransactionsArchiv.[Original Currency] "
 
-            Dim dtMSEAlt As DataTable = sql.loadDgvBySql(sqlFMZollDatenALT, "FMZOLL")
+                Dim dtMSEAlt As DataTable = sql.loadDgvBySql(sqlFMZollDatenALT, "FMZOLL")
 
-            For Each r As DataRow In dtMSEAlt.Rows
+                For Each r As DataRow In dtMSEAlt.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
+                    If UST_org <> 0 Then
-                    Dim WaehrungsCode As String = r.Item("Währungscode")
+                        Dim WaehrungsCode As String = r.Item("Währungscode")
-                    summeAlteSchnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
+                        summeAlteSchnittstelle += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(UST_org, WaehrungsCode, "EUR")
-                End If
+                    End If
-            Next
+                Next
+            End If
 
 
-            Dim sqlFMZollDatenNEU = "select * from ( select cust.[customer_id],bills.invoice_date, bills.invoice_number, bills.specification_page_name, trans.transaction_country, trans.original_currency ,sum(USteuer_EUR) as UST_EUR, sum(original_vat_amount) as UST
+            If calcSumneueSchnittstelle Then
+                Dim sqlFMZollDatenNEU = "select * from ( select cust.[customer_id],bills.invoice_date, bills.invoice_number, bills.specification_page_name, trans.transaction_country, trans.original_currency ,sum(USteuer_EUR) as UST_EUR, sum(original_vat_amount) as UST
                     FROM [VERAG].[dbo].[tblMSESettlements] as bills 
                     left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                     left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id 
                     left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.invoice_id = bills.invoice_number 
-                    where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and trans.charged = 1  and cust.[partner_customer_number] = " & varUStVAn_KuNr & " 
+                    left join dbo.tblSteuernummern on dbo.tblSteuernummern.AdressenNr = trans.partner_haulier_id 
+                    where bills.invoice_date >= '" & invoiceDate.ToShortDateString & "' and inv.archiv <> 1 and dbo.tblSteuernummern.UStV = 1 and trans.charged = 1  and cust.[partner_customer_number] = " & varUStVAn_KuNr & " 
                     group by bills.invoice_date, bills.invoice_number, cust.[customer_id], bills.specification_page_name, trans.transaction_country,trans.original_currency) as temp"
 
-            Dim dtMSENeut As DataTable = sql.loadDgvBySql(sqlFMZollDatenNEU, "FMZOLL")
+                Dim dtMSENeut As DataTable = sql.loadDgvBySql(sqlFMZollDatenNEU, "FMZOLL")
 
-            For Each r As DataRow In dtMSENeut.Rows
+                For Each r As DataRow In dtMSENeut.Rows
-                Dim UST_org = CDbl(r.Item("UST_EUR"))
+                    Dim UST_org = CDbl(r.Item("UST_EUR"))
-                If UST_org <> 0 Then
+                    If UST_org <> 0 Then
-                    summeNeueSchnittstelle += UST_org
+                        summeNeueSchnittstelle += UST_org
-                End If
+                    End If
-            Next
+                Next
+            End If
 
-            Return summeAlteSchnittstelle
+            Return summeAlteSchnittstelle + summeNeueSchnittstelle
 
-            'temporär deaktiviert
-            'Return summeAlteSchnittstelle + summeNeueSchnittstelle
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
@@ -590,7 +626,7 @@ Public Class cMDMFunctionsAllgemein
 
     End Function
 
-    Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, invoiceDate As Date) As Double
+    Shared Function UStVKunden_Summen_lesen_Vorschau_UTA(varUStVAn_KuNr As Integer, invoiceDate As Date, calcSumalteSchnittstelle As Boolean, calcSumneueSchnittstelle As Boolean) As Double
         'Return 0
         '        Dim qdf As DAO.QueryDef
         '        Dim rst As DAO.Recordset
@@ -635,8 +671,8 @@ Public Class cMDMFunctionsAllgemein
             Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
             Dim summeAlteSchnittstelle As Double = 0
             Dim summeNeueSchnittstelle As Double = 0
-
+            If calcSumalteSchnittstelle Then
-            Dim sqlFMZollDaten = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
+                Dim sqlFMZollDaten = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
                         FROM   dbo.tblSteuernummern INNER JOIN
                                         dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
                                         dbo.tblUTAArchiv ON dbo.Adressen.UTAKundenNr = dbo.tblUTAArchiv.Kundennummer INNER JOIN
@@ -647,19 +683,20 @@ Public Class cMDMFunctionsAllgemein
                         GROUP BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr
                         ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"
 
-            Dim dtUTAAlt As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
+                Dim dtUTAAlt As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
 
-            For Each r As DataRow In dtUTAAlt.Rows
+                For Each r As DataRow In dtUTAAlt.Rows
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
+                    If UST_org <> 0 Then
-                    summeAlteSchnittstelle += UST_org
+                        summeAlteSchnittstelle += UST_org
-                End If
+                    End If
 
-            Next
+                Next
 
+            End If
+            If calcSumneueSchnittstelle Then
 
-
+                Dim sqlNeueSchnittstelle = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
-            Dim sqlNeueSchnittstelle = "SELECT dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr, SUM(dbo.tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Vorschaubetrag
                         FROM   dbo.tblSteuernummern INNER JOIN
                                         dbo.Adressen ON dbo.tblSteuernummern.AdressenNr = dbo.Adressen.AdressenNr INNER JOIN
                                         dbo.tblUTAImportNew ON dbo.Adressen.UTAKundenNr = dbo.tblUTAImportNew.Kundennummer INNER JOIN
@@ -671,24 +708,23 @@ Public Class cMDMFunctionsAllgemein
                         ORDER BY dbo.tblSteuernummern.AdressenNr, dbo.tblSteuernummern.LandNr"
 
 
-            Dim dtUTANeut As DataTable = sql.loadDgvBySql(sqlFMZollDaten, "FMZOLL")
+                Dim dtUTANeut As DataTable = sql.loadDgvBySql(sqlNeueSchnittstelle, "FMZOLL")
 
-            For Each r As DataRow In dtUTANeut.Rows
+                For Each r As DataRow In dtUTANeut.Rows
 
-                Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
+                    Dim UST_org = CDbl(r.Item("Vorschaubetrag"))
-                If UST_org <> 0 Then
+                    If UST_org <> 0 Then
-                    summeNeueSchnittstelle += UST_org
+                        summeNeueSchnittstelle += UST_org
-                End If
+                    End If
-            Next
+                Next
+
+            End If
 
             If Math.Round(summeAlteSchnittstelle, 2) = Math.Round(summeNeueSchnittstelle, 2) Then
                 Return summeNeueSchnittstelle
             End If
 
-            Return summeAlteSchnittstelle
+            Return summeAlteSchnittstelle + summeNeueSchnittstelle
-
-            'temporär deaktiviert
-            'Return summeAlteSchnittstelle + summeNeueSchnittstelle
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)

VERAG_PROG_ALLGEMEIN/Classes/cParameter.vb

@@ -32,13 +32,13 @@ Public Class cParameterList
         'LIST.Add(l)
     End Sub
 
-    Public Sub LOAD_LIST(KundenNr, Optional firma = Nothing)
+    Public Sub LOAD_LIST(ProgId, Optional firma = Nothing)
         Try
             LIST.Clear()
             Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN
                 Using cmd As New SqlCommand("SELECT * FROM [tblParameter] WHERE progId IN (0,@ProgId) " & If(firma IsNot Nothing, " AND firma=@firma", ""), conn)
                     cmd.Parameters.AddWithValue("@ProgId", ProgId)
-                    cmd.Parameters.AddWithValue("@firma", firma)
+                    If firma IsNot Nothing Then cmd.Parameters.AddWithValue("@firma", firma)
                     '  cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
                     Dim dr = cmd.ExecuteReader()
                     While dr.Read

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -833,7 +833,7 @@ Public Class cUTA
 
     End Class
 
-    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer) As Boolean
+    Public Function readAndSaveUTA(objFileRead As StreamReader, fi As FileInfo, cnt As Integer, Optional onlyTestkunedn As Boolean = False) As Boolean
 
 
         Dim booHeaderVorhanden = False
@@ -1052,14 +1052,17 @@ Public Class cUTA
                                 .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ] = 0 - .[Gesamtbetrag_in_Lieferlandwährung_Umsatzsteuer_informativ]
                         End Select
 
-                        'nur KundenNr 100964 und 825040 speichern:
+                        If onlyTestkunedn Then
-                        If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
+                            'nur KundenNr 100964 und 825040 speichern:
+                            If .[Kundennummer] = 100964 Or .[Kundennummer] = 825040 Then
+                                .SAVE()
+                            End If
+                        Else
                             .SAVE()
                         End If
 
 
 
-
                         'Dim clfArchiv As New cUTA.UTAArchiv(.Belegdatum, .UTA_Beleg_ID)
                         'clfArchiv.Übertragungsnummer = .Übertragungsnummer
                         'clfArchiv.ErstellDatumUhrzeit = .ErstellDatumUhrzeit