ustva, fakt. etc.

SDL/Fakturierung/frmAbrechnungsMaskeEinzeln.vb

@@ -45,6 +45,8 @@
             UsrCntlFaktAbrechnung1.txtAbfertigungsnummer.Text = AbfertigungsNr
             UsrCntlFaktAbrechnung1.cboSpedBuchUnterNr.Focus()
 
+            UsrCntlFaktAbrechnung1.btnDatenLaden.PerformClick()
+
             Select Case BelegKZ
                 Case "AR" : UsrCntlFaktAbrechnung1.cboRgGS.SelectedIndex = 0
                 Case "AG" : UsrCntlFaktAbrechnung1.cboRgGS.SelectedIndex = 1

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1255,11 +1255,11 @@ Public Class usrCntlFaktAbrechnung
             '.Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
 
 
-            .Columns("BGebLeistungsNr").Visible = False
+            .Columns("BGebLeistungsNr").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
-            .Columns("BGebProzent").Visible = False
+            .Columns("BGebProzent").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
-            .Columns("BGebMinBetrag").Visible = False
+            .Columns("BGebMinBetrag").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
-            .Columns("Steuerpflichtig").Visible = False
+            .Columns("Steuerpflichtig").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
-            .Columns("BerechnungsartPosInkludiert").Visible = False
+            .Columns("BerechnungsartPosInkludiert").Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
             ' .Columns("Geändert am").Visible = False
             '.Columns("Sachbearbeiter").Visible = False
 
@@ -1277,9 +1277,18 @@ Public Class usrCntlFaktAbrechnung
                 If RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
                     steuerpflichtigTMP = (RECHNUNG.ForceSteuerschlüssel > 0)
                 End If
-                dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP,
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+
+                    dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), r("BGebLeistungsNr"), r("BGebProzent"), r("BGebMinBetrag"), steuerpflichtigTMP,
                                 DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"))
 
+                Else
+                    dgvOfferteDetailsUebersicht.Rows.Add(r("LeistungsNr"), r("LeistungsBez"), r("Anzahl"), r("Preis"), r("BerechnungsartNr"), DBNull.Value, DBNull.Value, DBNull.Value, steuerpflichtigTMP,
+                                DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value, r("BerechnungsartPosInkludiert"))
+                End If
+
+
 
 
             Next
@@ -1338,6 +1347,7 @@ Public Class usrCntlFaktAbrechnung
                                 Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
 
                             End If
+
                         End If
                     End If
                 Next
@@ -1424,7 +1434,6 @@ Public Class usrCntlFaktAbrechnung
                 setMWSTABRfromSPEDinPOS(r, POS, landNr, landBez)
                 '-----------------------MWST-Abrechnung! +  Kompat. zu FM-Zoll
 
-
                 If POS.Anzahl = 0 And POS.BerechnungsartNr = 8 And POS.Preis <> 0 Then
                     POS.Preis = 0 'Wenn Anzahl =0 bei Berart 8, dann Preis auch 0
                 End If
@@ -1456,7 +1465,6 @@ Public Class usrCntlFaktAbrechnung
                 ' POS.Fremdwährung = r.Cells("Fremdwährung").Value
                 POS.BGebLeistungsNr = r.Cells("BGebLeistungsNr").Value
                 POS.BGebProzent = r.Cells("BGebProzent").Value
-                '   POS.BGebBgl = r.Cells("BGebBgl").Value
                 POS.BGebMinBetrag = r.Cells("BGebMinBetrag").Value
 
                 ' Property RePosZeitstempel As Object = Nothing
@@ -1477,6 +1485,7 @@ Public Class usrCntlFaktAbrechnung
 
                 'End If
                 RECHNUNG.POSITIONEN.Add(POS) 'ALLE HINENLADEN! --> Sonst Proglem mit SVS/VP/KA
+
             Next
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -2276,6 +2285,7 @@ Public Class usrCntlFaktAbrechnung
             If If(POS.Anzahl, 0) < 0 Then ' falls Anzahl negativ ist
                 POS.Anzahl *= -1
             End If
+
         Next
 
 
@@ -2295,6 +2305,7 @@ Public Class usrCntlFaktAbrechnung
 
         Call przBS415(RECHNUNG)       ' Bankspesen errechnen
 
+
         'Me![SteuerpflichtigerGesamtbetrag] = 0.0#
         'Me![SteuerfreierGesamtbetrag] = 0.0#
         'Me![Abfertigungskosten] = 0.0#
@@ -2509,6 +2520,58 @@ Public Class usrCntlFaktAbrechnung
     End Function
 
 
+    Private Sub prBearbGeb(POS_ As cRechnungsausgangPositionen, OFFERTE As cOfferte, RE As cRechnungsausgang, BGebLeistungsNr As Integer, BGebProzent As Double, BGebBgl As Integer)
+
+        If POS_.Anzahl <> 0 Then
+
+            If (BGebLeistungsNr > 0 AndAlso BGebProzent > 0 AndAlso BGebBgl <> 0) Then
+
+                Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
+                For Each o In OFFERTE.POSITIONEN
+                    If o.LeistungsNr = BGebLeistungsNr Then
+
+                        'Falls schon vorhanden...
+                        Dim POS = RE.POSITIONEN.Find(Function(x) x.LeistungsNr = BGebLeistungsNr) 'And x.BerechnungsartNr = 9)
+                        If POS Is Nothing Then
+                            POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
+                            POS.Preis = 0
+                            POS.SteuerpflichtigerBetrag = 0
+                            POS.SteuerfreierBetrag = 0
+                            Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
+                            POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
+
+                            POS.LeistungsNr = o.LeistungsNr
+                            POS.LeistungsBez = o.LeistungsBez
+
+                            POS.BerechnungsartNr = o.BerechnungsartNr
+                            POS.Anzahl = 1
+                            '   POS.BGebLeistungsNr = BGebLeistungsNr
+
+                            RE.POSITIONEN.Add(POS)
+                        End If
+
+                        POS.Preis += Betrag
+
+                        If POS.Steuerpflichtig Then
+                            POS.SteuerpflichtigerBetrag += Betrag
+                        Else
+                            POS.SteuerfreierBetrag += Betrag
+                        End If
+
+                    End If
+                Next
+                'Catch ex As Exception
+                '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                'End Try
+                '    Return False
+                'End Function
+
+            End If
+        End If
+
+
+    End Sub
+
 
     Private Sub przBerechneWert()
         Try
@@ -4370,7 +4433,7 @@ Nächste_Textzeile_lesen:
                 If LandBez <> "" AndAlso LandNr <> "" Then
                     If SPEDBUCH.Packstücke.ToString.Replace("Mehrwertsteuerrückerstattung " & LandNr, "MWSt-Rückerstattung " & LandBez).StartsWith(LeistungsBez.ToString) Then isMWST = True
                 Else
-                    If SPEDBUCH.Packstücke.ToString().StartsWith(LeistungsBez.ToString) Then isMWST = True
+                    If SPEDBUCH.Packstücke.ToString().Replace("Mehrwertsteuerrückerstattung ", "MWSt-Rückerstattung ").StartsWith(LeistungsBez.ToString) Then isMWST = True
                 End If
 
                 If isMWST Then
@@ -4380,8 +4443,18 @@ Nächste_Textzeile_lesen:
                         POS.Preis = IIf(SPEDBUCH.Rechnungsbetrag Is Nothing, 0, SPEDBUCH.Rechnungsbetrag) * -1
                     End If
 
+                    If r.Cells("BGebLeistungsNr").Value IsNot Nothing AndAlso r.Cells("BGebProzent").Value IsNot Nothing Then
+
+                        Dim OffertNr As Integer = IIf(IsNumeric(RECHNUNG.OffertenNr), RECHNUNG.OffertenNr, (SPEDBUCH.Abfertigungsart - 100))
+                        If OffertNr < 0 Then OffertNr = 15
+
+                        Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(RECHNUNG.KundenNrZentrale, OffertNr, True)
+                        Call prBearbGeb(POS, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, POS.Preis * If(RECHNUNG.Vorzeichen = "-", -1, 1))
+
+                    End If
+
+                End If
                 End If
-            End If
         End If
     End Sub
 

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.9.7")>
+<Assembly: AssemblyVersion("1.3.9.8")>
-<Assembly: AssemblyFileVersion("1.3.9.7")>
+<Assembly: AssemblyFileVersion("1.3.9.8")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -835,7 +835,7 @@ Public Class frmMDM_USTVAntrag
                         End If
 
                         If USTV_POS.INSERT() Then
-                            If bytSchnittstellenNr = 11 Then 'wegel bei welcher Einlesselogik, sollen immer [tblPLOSE_Details] und [tblPLOSE_Inv_Data] aktualisiert werden!
+                            If bytSchnittstellenNr = 11 Then 'egal bei welcher Einlesselogik, sollen immer [tblPLOSE_Details] und [tblPLOSE_Inv_Data] aktualisiert werden!
                                 MDM_Worker.cPLOSE.UPDATE_ARCHIV_NEULOGIK(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
                                 MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID, USTV_POS.UStVPo_ReNr, True)
                             Else

SDL/USTV/usrCntlUSTV.vb

@@ -895,7 +895,7 @@ Public Class usrCntlUSTV
 
         End If
 
-        Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS Steuerbetrag, 'EUR' as Waehrung 
+        Dim qryUStVVorschau_VERAG As String = "SELECT 'VERAG' as LF, tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum) AS Jahr, MONTH(tblTrdinInvoice.Rechnungsdatum) as Monat, SUm(tblTrdinInvoice.SteuerbetragLokal) AS Steuerbetrag, 'EUR' as Waehrung, SUm(tblTrdinInvoice.SteuerbetragLokal) AS Steuerbetrag_EUR
                                                 FROM tblTrdinInvoice
                                                 INNER JOIN tblSteuernummern ON tblTrdinInvoice.RechnungsKundenNr = tblSteuernummern.AdressenNr 
                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -909,7 +909,7 @@ Public Class usrCntlUSTV
                                             GROUP BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr,[Länderverzeichnis für die Außenhandelsstatistik].LandKz, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum) 
                                             /*ORDER BY tblTrdinInvoice.RechnungsKundenNr, tblSteuernummern.LandNr, YEAR(tblTrdinInvoice.Rechnungsdatum), MONTH(tblTrdinInvoice.Rechnungsdatum)*/"
 
-        Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS_alt' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS Steuerbetrag, 'EUR' as Waehrung  FROM tblDieselArchiv
+        Dim qryUStVVorschau_IDS_ALT As String = "SELECT 'IDS_alt' as LF, tblDieselArchiv.KdNrVERAG AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblDieselArchiv.[Year Month Day]) AS Jahr, Month(tblDieselArchiv.[Year Month Day]) AS Monat, SUM(tblDieselArchiv.[VAT Amount]) AS Steuerbetrag, 'EUR' as Waehrung, SUM(tblDieselArchiv.[VAT Amount]) AS Steuerbetrag_EUR  FROM tblDieselArchiv
                                                  INNER JOIN tblSteuernummern ON tblDieselArchiv.KdNrVERAG = tblSteuernummern.AdressenNr
                                                  INNER JOIN tbl_IDS_Länder ON tbl_IDS_Länder.LandNr = tblSteuernummern.LandNr  AND tblDieselArchiv.[Outlet Country Code] = tbl_IDS_Länder.OutletCountryCode
                                                  INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -925,7 +925,7 @@ Public Class usrCntlUSTV
                                                  /*ORDER BY tblDieselArchiv.KdNrVERAG, tblSteuernummern.LandNr, Year(tblDieselArchiv.[Year Month Day]), Month(tblDieselArchiv.[Year Month Day])*/
 "
 
-        Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE_alt' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat,  CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
+        Dim qryUStVVorschau_MSE_ALT As String = "SELECT 'MSE_alt' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblMSETransactionsArchiv.[Invoice Date]) AS Jahr, Month(tblMSETransactionsArchiv.[Invoice Date]) AS Monat,  CAST(ROUND(SUM(tblMSETransactionsArchiv.[Original VAT Amount]) / dbo.fktEUROKurs(tblMSETransactionsArchiv.[Original Currency], tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS Steuerbetrag, 'EUR' as Waehrung, tblMSETransactionsArchiv.[Invoice Date]), 2) AS DECIMAL(18, 2)) AS Steuerbetrag_EUR FROM tblSteuernummern
                                                  INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                  INNER JOIN tblMSETransactionsArchiv ON Adressen.MSEKundenNr = tblMSETransactionsArchiv.[Customer ID]
                                                  INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblMSETransactionsArchiv.[Transaction Country] = [Länderverzeichnis für die Außenhandelsstatistik].LandKz AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -947,7 +947,7 @@ Public Class usrCntlUSTV
                                                      AND SUM(tblMSETransactionsArchiv.[Original VAT Amount]) <> 0
                                                  /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblMSETransactionsArchiv.[Invoice Date], tblMSETransactionsArchiv.[Invoice ID]*/"
 
-        Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA_alt' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Waehrung FROM tblSteuernummern
+        Dim qryUStVVorschau_UTA_ALT As String = "SELECT 'UTA_alt' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAArchiv.Rechnungsdatum) as Jahr,Month(tblUTAArchiv.Rechnungsdatum) as Monat , SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Waehrung, SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag_EUR FROM tblSteuernummern
                                                 INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                 INNER JOIN tblUTAArchiv ON Adressen.UTAKundenNr = tblUTAArchiv.Kundennummer
                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAArchiv.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -968,7 +968,7 @@ Public Class usrCntlUSTV
                                                     AND SUM(tblUTAArchiv.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) <> 0
                                                 /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAArchiv.Rechnungsdatum*/"
 
-        Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS Steuerbetrag, 'EUR' as Waehrung 
+        Dim qryUStVVorschau_IDS_NEU As String = "SELECT 'IDS' as LF, [tblIDSTransactionsNew].KdNrVERAG AS RechnungsKundenNr,tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year([tblIDSTransactionsNew].[YearMonthDay]) AS Jahr, Month([tblIDSTransactionsNew].[YearMonthDay]) AS Monat, SUM([tblIDSTransactionsNew].[VATAmount]) AS Steuerbetrag, 'EUR' as Waehrung,  SUM([tblIDSTransactionsNew].[VATAmount]) AS Steuerbetrag_EUR 
                                                  FROM   tblIDSTransactionsNew 
 					                             INNER JOIN dbo.tblSteuernummern ON [tblIDSTransactionsNew].KdNrVERAG = dbo.tblSteuernummern.AdressenNr
 					                             INNER JOIN dbo.tbl_IDS_Länder ON dbo.tblSteuernummern.LandNr = dbo.tbl_IDS_Länder.LandNr AND [tblIDSTransactionsNew].[OutletCountryCode] = dbo.tbl_IDS_Länder.OutletCountryCode
@@ -984,7 +984,7 @@ Public Class usrCntlUSTV
                                                                                   [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year([tblIDSTransactionsNew].[YearMonthDay]) , Month([tblIDSTransactionsNew].[YearMonthDay])
                                                                               /* ORDER BY [tblIDSTransactionsNew].KdNrVERAG, tblSteuernummern.LandNr, Year([tblIDSTransactionsNew].[YearMonthDay]), Month([tblIDSTransactionsNew].[YearMonthDay])*/"
 
-        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as Steuerbetrag, 'EUR' as Waehrung 
+        Dim qryUStVVorschau_MSE_NEU As String = " select 'MSE' as LF,cust.[partner_customer_number] as RechnungsKundenNr,'' as LandNr ,trans.transaction_country as LandKZ ,Year(bills.invoice_date) as Jahr,Month(bills.invoice_date) as Monat, sum(USteuer_EUR) as Steuerbetrag, 'EUR' as Waehrung, sum(USteuer_EUR) as Steuerbetrag_EUR 
                                                   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 
@@ -1004,7 +1004,7 @@ Public Class usrCntlUSTV
 
 
 
-        Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Wahrung  FROM tblSteuernummern
+        Dim qryUStVVorschau_UTA_NEU As String = "SELECT 'UTA' as LF,tblSteuernummern.AdressenNr AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, Year(tblUTAImportNew.Rechnungsdatum) as Jahr,Month(tblUTAImportNew.Rechnungsdatum) as Monat , SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag, 'EUR' as Wahrung, SUM(tblUTAImportNew.Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) AS Steuerbetrag_EUR  FROM tblSteuernummern
                                                 INNER JOIN Adressen ON tblSteuernummern.AdressenNr = Adressen.AdressenNr
                                                 INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer
                                                 INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblUTAImportNew.Lieferland = [Länderverzeichnis für die Außenhandelsstatistik].LandKz_ISO_3 AND tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -1026,7 +1026,7 @@ Public Class usrCntlUSTV
                                                 /*ORDER BY tblSteuernummern.AdressenNr, tblSteuernummern.LandNr, tblUTAImportNew.Rechnungsdatum*/"
 
 
-        Dim qryUStVVorschau_PLOSE_NEUE_LOGIK As String = "SELECT 'PLOSE' as LF, tblPLOSE_Inv_Data.plInv_PLOSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Jahr, Month(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Monat, SUM(tblPLOSE_Inv_Data.[plInv_MWSTBetrag]) AS Steuerbetrag, isnull(plInv_Currency,'') as Wahrung  FROM tblPLOSE_Inv_Data
+        Dim qryUStVVorschau_PLOSE_NEUE_LOGIK As String = "SELECT 'PLOSE' as LF, tblPLOSE_Inv_Data.plInv_PLOSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Jahr, Month(tblPLOSE_Inv_Data.[plInv_SupplierRechnungsDatum]) AS Monat, SUM(tblPLOSE_Inv_Data.[plInv_MWSTBetrag]) AS Steuerbetrag, isnull(plInv_Currency,'') as Wahrung, CAST(ROUND(SUM(tblPLOSE_Inv_Data.[plInv_MWSTBetrag]) / dbo.fktEUROKurs(plInv_Currency, max(tblPLOSE_Inv_Data.plInv_SupplierRechnungsDatum)), 2) AS DECIMAL(18, 2)) AS Steuerbetrag_EUR  FROM tblPLOSE_Inv_Data
                                                  INNER JOIN Adressen ON tblPLOSE_Inv_Data.plInv_PLOSEKundennummer = Adressen.PLOSEKundenNr
 												 INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr and [tblPLOSE_Inv_Data].plInv_SupplierCountry = tblSteuernummern.LandKZ
                                                  INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] ON tblSteuernummern.LandNr = [Länderverzeichnis für die Außenhandelsstatistik].LandNr
@@ -1043,7 +1043,7 @@ Public Class usrCntlUSTV
 
 
         'plose_MWSTBetragWaehrungAbbuchung ist IMMER in EUR!!!!
-        Dim qryUStVVorschau_PLOSE_ALTE_LOGIK As String = "  SELECT 'PLOSE_alt' as LF, tblPLOSE_Details.plose_POLSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Details.plose_RechnungsDatum) AS Jahr, Month(tblPLOSE_Details.plose_RechnungsDatum) AS Monat, SUM(tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung) AS Steuerbetrag, 'EUR' as Wahrung  FROM tblPLOSE_Details
+        Dim qryUStVVorschau_PLOSE_ALTE_LOGIK As String = "  SELECT 'PLOSE_alt' as LF, tblPLOSE_Details.plose_POLSEKundennummer AS RechnungsKundenNr, tblSteuernummern.LandNr, [Länderverzeichnis für die Außenhandelsstatistik].LandKz, year(tblPLOSE_Details.plose_RechnungsDatum) AS Jahr, Month(tblPLOSE_Details.plose_RechnungsDatum) AS Monat, SUM(tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung) AS Steuerbetrag, 'EUR' as Wahrung, SUM(tblPLOSE_Details.plose_MWSTBetragWaehrungAbbuchung) AS Steuerbetrag_EUR  FROM tblPLOSE_Details
                                                  INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode]
                                                  INNER JOIN Adressen ON tblPLOSE_Details.plose_POLSEKundennummer = Adressen.PLOSEKundenNr
 												 INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr AND tblSteuernummern.LandKZ = tblPLOSE_Produktbeschreibung.plp_Land
@@ -1063,7 +1063,7 @@ Public Class usrCntlUSTV
 
 
         Dim union As String = " UNION ALL "
-        Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT & union & qryUStVVorschau_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK
+        Dim sqlQery = qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK 'qryUStVVorschau_VERAG & union & qryUStVVorschau_IDS_ALT & union & qryUStVVorschau_UTA_ALT & union & qryUStVVorschau_IDS_NEU & union & qryUStVVorschau_UTA_NEU & union & qryUStVVorschau_MSE_NEU & union & qryUStVVorschau_MSE_ALT & union & qryUStVVorschau_PLOSE_ALTE_LOGIK & union & qryUStVVorschau_PLOSE_NEUE_LOGIK
 
 
 

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -623,7 +623,8 @@ Public Class ustCntlUSTV_AntragPosition
         Dim filter As String = "UstV_aktiv = 1"
         If Antrag_LandKz <> "" Then
             If cbxAntragsfilter.Checked Then filter &= " and left(UstV_Leistender_UstNr,2)='" & Antrag_LandKz & "'"
-            sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt  FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})
+            sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender]) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt  FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})
+            'sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt  FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"})
         End If
     End Sub
 

SDL/frmMain.vb

@@ -143,16 +143,17 @@ Public Class frmMain
         setProfileImage()
 
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
+            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
                 Dim timas As New cTimasAPI("timas")
-                Dim infoMessage As String = ""
+                Dim infoMessage As New DataTable
                 Dim timeEntryExisting As Boolean = False
                 Dim isEndpointRunning As Boolean = True
-                timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting,, isEndpointRunning)
+                timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
                 If Not timeEntryExisting AndAlso isEndpointRunning Then
-                    Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
+                    Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
                     If a = vbYes Then
+
                         If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasMehrereFirmen Then
                             Dim f As New frmZEButtons("in", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasFirmen)
                             f.ShowDialog()
@@ -162,7 +163,11 @@ Public Class frmMain
                             timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
                             MsgBox(info)
                         End If
+
+                    Else
+
                     End If
+
                 End If
 
             End If

SDL/kunden/usrCntlCBAM.vb

@@ -1342,9 +1342,9 @@
     End Sub
 
     Private Sub btnCBAM_DS_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC.Click
-        btnCBAM_DS_DAKOSY_Deteil.Enabled = False
+        btnCBAM_DS_TELOTEC_Detail.Enabled = False
-        btnCBAM_DS_DAKOSY_Copy.Enabled = False
+        btnCBAM_DS_TELOTEC_Copy.Enabled = False
-        btnCBAM_DS_DAKOSY_Deteil.Tag = ""
+        btnCBAM_DS_TELOTEC_Detail.Tag = ""
 
         Try
             Dim EORI = txtEori.Text
@@ -1365,7 +1365,7 @@
 	                              ,dec_TotNet Eigenmasse 
                                   ,Locs_Disp VersendungsLand
                                   , Locs_Dest Bestimmungsland
-                                  ,ValData_InvVal Rechnungspreis
+                                  ,Item_ItVal Rechnungspreis
                                   ,ValData_InvCurr Rechnungswaehrung
 	                              ,ConeeTra_TIN as Empfänger
 	                              ,ConeeTra_Na as Empfänger_
@@ -1422,10 +1422,9 @@
             Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600)
             If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                 Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value,, False)
-                btnCBAM_DS_DAKOSY_Deteil.Tag = path
+                btnCBAM_DS_TELOTEC_Detail.Tag = path
-                btnCBAM_DS_DAKOSY_Deteil.Enabled = True
+                btnCBAM_DS_TELOTEC_Detail.Enabled = True
-                btnCBAM_DS_DAKOSY_Copy.Enabled = True
+                btnCBAM_DS_TELOTEC_Copy.Enabled = True
-                btnCBAM_DS_DAKOSY_Spedb.Enabled = True
                 Me.Cursor = Cursors.Default
 
             End If

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -29,20 +29,6 @@ Public Class cMDMFunctionsAllgemein
         UTAAlteSchnittstelle = UTAAlt
         UTANeueSchnittstelle = UTANeu
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-
-
-            ploseAlteLogikSchnittstelle = True
-            ploseNeueLogikSchnittstelle = True
-            ITSchnittstelle = False
-            MSEAlteSchnittstelle = True
-            MSENeueSchnittstelle = True
-            IDSAlteSchnittstelle = True
-            IDSNeueSchnittstelle = True
-            UTAAlteSchnittstelle = True
-            UTANeueSchnittstelle = True
-        End If
-
     End Function