irrer merge

MDM_Worker/cPLOSE_Inv_Data.vb

@@ -2,6 +2,7 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
 Imports System.Text.RegularExpressions
+Imports VERAG_PROG_ALLGEMEIN
 Public Class cPLOSE_Inv_Data
 
     Property plInv_Id As Integer
@@ -214,6 +215,7 @@ Public Class cPLOSE_Inv_Data
 
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Dim dtREohneDAID As DataTable = SQL.loadDgvBySql(REohneDAID, "FMZOLL")
+        Dim jahrEnd = jahr.ToString.Substring(2, 2)
 
         If dtREohneDAID.Rows.Count > 0 Then
 
@@ -229,16 +231,40 @@ Public Class cPLOSE_Inv_Data
 
                     If filename <> "" Then
 
-
-
                         filename2 = filename.Replace("-", "_")
 
+
+
                         If Regex.IsMatch(filename, "^[A-Za-z]") Then
                             Dim match As Match = Regex.Match(filename, "\d+")
                             If match.Success Then
                                 filename3 = filename.Substring(match.Index).Trim
                                 filename4 = filename.Replace("-", "_")
                             End If
+
+                        ElseIf filename.Contains("_dk") Then 'Sonderlogik Dänemark
+
+                            filename3 = filename.Replace(jahrEnd & "-", jahrEnd)
+                            filename4 = filename.Replace(jahrEnd & "-", jahrEnd)
+
+                        ElseIf filename.Contains("_fy") Then 'Sonderlogik Norwegen
+
+                            Dim indexOfFirst_ = filename.IndexOf("_fy")
+                            If filename.Length > indexOfFirst_ + 5 Then
+                                Dim month = filename.Substring(indexOfFirst_ + 3, 2)
+                                If IsNumeric(month) Then
+                                    Dim test = month.IndexOf(0)
+                                    Dim monthWithoutLeadingZero As String = month
+                                    If monthWithoutLeadingZero.IndexOf(0) = 0 Then monthWithoutLeadingZero = monthWithoutLeadingZero.Replace("0", "")
+                                    filename3 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero)
+                                    filename4 = filename.Replace(jahrEnd & month, jahrEnd & monthWithoutLeadingZero)
+                                End If
+
+                            End If
+
+
+
+
                         End If
 
                         Dim daId As Integer = 0
@@ -275,6 +301,62 @@ Public Class cPLOSE_Inv_Data
 
 
 
+    End Function
+
+
+    Public Shared Function setWahrunginIvoiceFromTransactions(jahr As Integer, Optional message As Boolean = False, Optional kdNr As Integer = -1) As Boolean
+
+        If jahr > Now.Year Then Return False
+        If jahr < 2020 Then Return False
+
+
+        Dim REohneWaehrung As String = "SELECT [plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr],[plInv_SupplierCountry],[plInv_Lieferant]
+                                        FROM [VERAG].[dbo].[tblPLOSE_Inv_Data] 
+                                        where YEAR( [plInv_SupplierRechnungsDatum]) = " & jahr & " and plInv_Currency is null " & IIf(kdNr > 0, " and plInv_PLOSEKundennummer = " & kdNr, "") & "
+                                        Group by  [plInv_SupplierCountry],[plInv_Lieferant],[plInv_SupplierRechnungsDatum],[plInv_SupplierRechnungsNr]"
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dtREohneWahrung As DataTable = SQL.loadDgvBySql(REohneWaehrung, "FMZOLL")
+
+
+
+        If dtREohneWahrung.Rows.Count > 0 Then
+
+            If vbYes = MsgBox("Details der fehlenden Währungen anzeigen?", vbYesNo) Then
+                cProgramFunctions.genExcelFromDT_NEW(dtREohneWahrung,,, "Fehlende Währung in Rechnungen: " & jahr)
+            End If
+
+
+            If IIf(message, vbYes = MsgBox("Bei " & dtREohneWahrung.Rows.Count & " PLOSE-Rechnungen fehlt die Währungsbezeichnung in den Rechnungen." & vbNewLine & "Währung setzen?", vbYesNoCancel), True) Then
+
+                For Each r As DataRow In dtREohneWahrung.Rows
+
+                    Dim Waehrungtabelle As DataTable = SQL.loadDgvBySql("Select plose_WaehrungAbbuchung, plose_WaehrungLandDiesntleistung, plp_Land from tblPLOSE_Details INNER JOIN tblPLOSE_Produktbeschreibung ON [plp_ProductCode]=[plose_ProduktCode]  WHERE plose_RechnungsNr = '" & r.Item("plInv_SupplierRechnungsNr") & "' And plose_RechnungsDatum = '" & r.Item("plInv_SupplierRechnungsDatum") & "' group by plose_WaehrungAbbuchung, plose_WaehrungLandDiesntleistung, plp_Land", "FMZOLL")
+
+                    If Waehrungtabelle.Rows.Count = 1 Then
+                        If Waehrungtabelle.Rows(0).Item("plose_WaehrungAbbuchung") = Waehrungtabelle.Rows(0).Item("plose_WaehrungLandDiesntleistung") And Waehrungtabelle.Rows(0).Item("plp_Land").ToString.Trim = r.Item("plInv_SupplierCountry").ToString.Trim Then
+                            Dim Waehrung As String = IIf(IsDBNull(Waehrungtabelle.Rows(0).Item("plose_WaehrungAbbuchung")), "", Waehrungtabelle.Rows(0).Item("plose_WaehrungAbbuchung"))
+                            If Waehrung <> "" Then
+                                SQL.doSQL("UPDATE [tblPLOSE_Inv_Data] SET plInv_Currency = '" & Waehrung & "' WHERE plInv_Currency is null and [plInv_SupplierRechnungsDatum] = '" & r.Item("plInv_SupplierRechnungsDatum") & "' AND [plInv_SupplierRechnungsNr] = '" & r.Item("plInv_SupplierRechnungsNr") & "' and [plInv_SupplierCountry] ='" & r.Item("plInv_SupplierCountry") & "'", "FMZOLL")
+                            End If
+                        End If
+                    End If
+
+                Next
+
+
+                If message Then MsgBox("alle Währungen gesetzt!")
+                Return True
+            End If
+
+        Else
+            If message Then MsgBox("keine fehlenden Währungen vorhanden!")
+            Return False
+        End If
+
+
+
+
     End Function
 
 

UID/usrctlProcedures.vb

@@ -1940,6 +1940,12 @@ Public Class usrctlProcedures
         Return s.trim
     End Function
 
+    Function isleernothingremoveLinkebreaks(s) As Object
+        If s Is DBNull.Value Then Return Nothing
+        If s.ToString.Trim = "" Then Return Nothing
+        Return s.trim.ToString.Replace(vbLf, "")
+    End Function
+
     Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click, Button22.Click
 
         Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
@@ -3600,6 +3606,7 @@ Public Class usrctlProcedures
 
                                                 DYIMPORT.Packstückart = isleernothing((currentRow(99)))
                                                 DYIMPORT.Packstückbezeichnung = isleernothing((currentRow(100)))
+
                                                 'DYIMPORT.Zusätzliche_angaben = isleernothing((currentRow(101))) 
 
                                                 DYIMPORT.SonderAbgabeZoll = IIf(isleernothing((currentRow(102))) <> "", CDbl(isleernothing(currentRow(102))), 0)

initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb

@@ -375,8 +375,6 @@ Public Class frmMDMNachrichtenVerarbeitung
                         '------------------------------------------------------------------------------------------------------------------------------
 
 
-
-
                         Select Case i
                             Case 1
                                 '------------------------------------------
@@ -465,9 +463,7 @@ Public Class frmMDMNachrichtenVerarbeitung
                                         End If
                                     End If
 
-
                                     frmStartOptions.moveFile_DateBack(d, ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
-                                    'frmStartOptions.copyFile_DateBack(d, ZIEL_PFAD & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
                                     addDGVEinarbeitung("PDF", DS.da_name)
                                     dgvEinarbeitung.Refresh()
 

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -352,6 +352,8 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                     Select Case invEndung
                                         Case "SP" : country = "ES" 'SPANIEN
                                         Case "DA" : country = "DK" 'DÄNEMARK
+                                        Case "P1" : country = "PL" 'Portugal
+
                                             'Case "RO" : country = "RO" 'RUMÄNIEN
                                             'Case "PL" : country = "PL" 'POLEN
                                             'Case "LV" : country = "LV" 'LETTLAND

initATLASAufschubkonten/frmStartOptions.vb

@@ -5,7 +5,7 @@ Imports System.Net.Security
 Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Xml
-Imports io.konik.zugferd
+Imports com.sun.org.apache.xerces.internal.impl.dv.xs
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -94,6 +94,7 @@ Public Class frmStartOptions
         cbxMSEalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
         cbxMSEneu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
         cbxPlose.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
+        cbxPloseNeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE_NEU")
         cbxITalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
         cbxUTAalt.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
         cbxUTANeu.Checked = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
@@ -798,12 +799,13 @@ Public Class frmStartOptions
                 Dim IDSneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IDS_neu")
                 Dim MSEalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_alt")
                 Dim MSEneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_MSE_neu")
-                Dim PLOSE = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
+                Dim PLOSEalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE")
                 Dim IT = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_IT")
                 Dim UTAalt = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_alt")
                 Dim UTAneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_UTA_neu")
+                Dim PLOSEneu = Paramslist.GET_PARAMETER_VALUE_BOOL("Schnittstelle_PLOSE_NEU")
 
-                cMDMFunctionsAllgemein.setSchnittstellen(PLOSE, IT, MSEalt, MSEneu, IDSalt, IDSneu, UTAalt, UTAneu)
+                cMDMFunctionsAllgemein.setSchnittstellen(PLOSEalt, IT, MSEalt, MSEneu, IDSalt, IDSneu, UTAalt, UTAneu, PLOSEneu)
 
                 If cMDMFunctionsAllgemein.Update_UStVASummenNeuBerechnen() Then
                     ok = cMDMFunctionsAllgemein.UStVAKunden_SummenNeuBerechnen(,, dt, sendMail)
@@ -1285,6 +1287,8 @@ Public Class frmStartOptions
 
         End Try
     End Sub
+
+
     Sub sendMailZollbelegGESTELLUNGSADRESSE(pfad As String, nga_id As Object, art As String, ByRef list As List(Of Integer), BezugsNr As String, SND As VERAG_PROG_ALLGEMEIN.cSendungen)
         Try
             If nga_id IsNot Nothing Then
@@ -3978,17 +3982,17 @@ Public Class frmStartOptions
                                 End If
                                 SDL.Sachbearbeiter = "ASFINAG"
 
-                                Dim Validto = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
+                                Dim Validto = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
 
-                                SDL.KartenNr = SQL.checkNullStr(oRDR.GetValue("CardNumber"))
+                                SDL.KartenNr = SQl.checkNullStr(oRDR.GetValue("CardNumber"))
                                 If Validto <> "" Then
                                     SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(oRDR.GetValue("CardNumber"), 1, 2), Mid(Validto, 3, 2), 1)))
                                 End If
-                                SDL.OBUID = SQL.checkNullStr(oRDR.GetValue("OBUID"))
+                                SDL.OBUID = SQl.checkNullStr(oRDR.GetValue("OBUID"))
-                                SDL.Vertragsabschlussdatum = SQL.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
+                                SDL.Vertragsabschlussdatum = SQl.checkNullStr(oRDR.GetValue("DatumVertragsabschluss"))
-                                SDL.Kategorie = SQL.checkNullStr(oRDR.GetValue("Kategorie"))
+                                SDL.Kategorie = SQl.checkNullStr(oRDR.GetValue("Kategorie"))
-                                SDL.Schadstoffklasse = SQL.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
+                                SDL.Schadstoffklasse = SQl.checkNullStr(oRDR.GetValue("Schadstoffklasse"))
-                                SDL.Status = SQL.checkNullStr(oRDR.GetValue("Status"))
+                                SDL.Status = SQl.checkNullStr(oRDR.GetValue("Status"))
                                 SDL.SAVE()
                             End If
 
@@ -4034,21 +4038,21 @@ Public Class frmStartOptions
                         End If
                         SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
 
-                        Dim Validto = SQL.checkNullStr(row.Item("contractDate"))
+                        Dim Validto = SQl.checkNullStr(row.Item("contractDate"))
 
-                        SDL.KartenNr = SQL.checkNullStr(row.Item("cardNumber"))
+                        SDL.KartenNr = SQl.checkNullStr(row.Item("cardNumber"))
                         If Validto <> "" Then
                             'MsgBox(Mid(row.Item("ValidTo"), 1, 2) & " " & Mid(row.Item("ValidTo"), 3, 2))
                             SDL.GültigBis = DateAdd("d", -1, DateAdd("m", 1, DateSerial("20" & Mid(row.Item("ValidTo"), 1, 2), Mid(row.Item("ValidTo"), 3, 2), 1))) 'noch im DETAIL checken!
                         End If
 
-                        SDL.OBUID = SQL.checkNullStr(row.Item("OBUID"))
+                        SDL.OBUID = SQl.checkNullStr(row.Item("OBUID"))
-                        SDL.Vertragsabschlussdatum = SQL.checkNullStr(row.Item("contractDate"))
+                        SDL.Vertragsabschlussdatum = SQl.checkNullStr(row.Item("contractDate"))
-                        SDL.Kategorie = SQL.checkNullStr(row.Item("vehicleCategory"))
+                        SDL.Kategorie = SQl.checkNullStr(row.Item("vehicleCategory"))
-                        SDL.Schadstoffklasse = SQL.checkNullStr(row.Item("emissionCategory"))
+                        SDL.Schadstoffklasse = SQl.checkNullStr(row.Item("emissionCategory"))
-                        SDL.Status = SQL.checkNullStr(row.Item("status"))
+                        SDL.Status = SQl.checkNullStr(row.Item("status"))
-                        SDL.Nationalitaet = SQL.checkNullStr(row.Item("nationality"))
+                        SDL.Nationalitaet = SQl.checkNullStr(row.Item("nationality"))
-                        SDL.CO2Kategorie = SQL.checkNullStr(row.Item("CO2EmissionsClass"))
+                        SDL.CO2Kategorie = SQl.checkNullStr(row.Item("CO2EmissionsClass"))
                         SDL.SAVE()
                     End If
 
@@ -4155,7 +4159,7 @@ Public Class frmStartOptions
     Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
         '  Dim bool = getUID_PruefungIMEX(MyTextBox1.Text)
-        Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
+        Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag;d.breimaier@verag.ag",, MyTextBox2._value, cbxVermerk.Checked)
         showPic(bool, PictureBox12)
     End Sub
     Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked
@@ -4956,7 +4960,7 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
+    Private Sub LinkLabel52_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles RMC_import.LinkClicked
 
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -4966,17 +4970,17 @@ Public Class frmStartOptions
         Me.Visible = True
     End Sub
 
-    Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel53.LinkClicked
+    Private Sub LinkLabel53_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTA_imports.LinkClicked
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
-        Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, False, cbxDateienlöschenUTA.Checked)
+        Dim f As New frmNachrichtenVerarbeitung_MDM_divers("UTA", False, cbxDateienlöschenUTA.Checked, False)
         f.year = txtUTAYear.Text
         f.UtaTestkunden = False
         f.ShowDialog()
         Me.Visible = True
     End Sub
 
-    Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel54.LinkClicked
+    Private Sub LinkLabel54_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Transaktions.LinkClicked
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
         Dim mse As New cMSEAPI("MSE")
@@ -5022,7 +5026,7 @@ Public Class frmStartOptions
         Me.Visible = True
     End Sub
 
-    Private Sub LinkLabel55_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel55.LinkClicked
+    Private Sub MSE_RE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_RE.LinkClicked
 
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -5080,7 +5084,7 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub LinkLabel56_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel56.LinkClicked
+    Private Sub MSETransakt_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSETransakt.LinkClicked
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
         Dim mse As New cMSEAPI("MSE")
@@ -5189,7 +5193,7 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub LinkLabel58_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel58.LinkClicked
+    Private Sub MSE_Kunden_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Kunden.LinkClicked
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
         Dim mse As New cMSEAPI("MSE")
@@ -5217,10 +5221,10 @@ Public Class frmStartOptions
         Me.Visible = True
     End Sub
 
-    Private Sub LinkLabel59_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel59.LinkClicked, LinkLabel61.LinkClicked, LinkLabel62.LinkClicked
+    Private Sub MSETransID_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSETransID.LinkClicked, MSE_missingTrans.LinkClicked, MSE_not_billed_Trans.LinkClicked
 
 
-        If sender Is LinkLabel59 Then
+        If sender Is MSETransID Then
             If Not IsNumeric(txtTransactionID.Text) Then
                 MsgBox("ID muss 10stellige Nr sein!")
                 Me.Visible = True
@@ -5252,7 +5256,7 @@ Public Class frmStartOptions
 
             Dim dtTransactionID = New DataTable
 
-            If sender Is LinkLabel59 Then
+            If sender Is MSETransID Then
                 dtTransactionID.Columns.Add("transaction_id", GetType(String))
                 dtTransactionID.Columns.Add("found", GetType(Boolean))
                 dtTransactionID.Columns.Add("batch_seq_nr", GetType(Integer))
@@ -5262,7 +5266,7 @@ Public Class frmStartOptions
                 R("batch_seq_nr") = 0
                 dtTransactionID.Rows.Add(R)
 
-            ElseIf sender Is LinkLabel61 Then
+            ElseIf sender Is MSE_missingTrans Then
 
                 dtTransactionID = SQL.loadDgvBySql("select [transaction_id], CAST(1 AS BIT) as found, 0 as batch_seq_nr  FROM [VERAG].[dbo].[tblMSESettlements] where [invoice_date] = '" & Date.Parse(datVon.Value).ToShortDateString & "' AND [transaction_id] not in (select [transaction_id] from [VERAG].[dbo].[tblMSETransactions])", "FMZOLL")
                 If dtTransactionID.Rows.Count = 0 Then
@@ -5276,7 +5280,7 @@ Public Class frmStartOptions
                     Exit Sub
                 End If
 
-            ElseIf sender Is LinkLabel62 Then
+            ElseIf sender Is MSE_not_billed_Trans Then
 
 
                 dtTransactionID = SQL.loadDgvBySql("select bills.[transaction_id], CAST(1 AS BIT) as found, trans.batch_seq_nr FROM [VERAG].[dbo].[tblMSESettlements] as bills 
@@ -5331,7 +5335,7 @@ Public Class frmStartOptions
         Me.Visible = True
     End Sub
 
-    Private Sub LinkLabel60_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel60.LinkClicked
+    Private Sub LinkLabel60_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles MSE_Settlements.LinkClicked
 
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
@@ -5402,7 +5406,7 @@ Public Class frmStartOptions
                 Exit Sub
             End If
 
-            cMDMFunctionsAllgemein.setSchnittstellen(cbxPlose.Checked, cbxITalt.Checked, cbxMSEalt.Checked, cbxMSEneu.Checked, cbxIDSalt.Checked, cbxIDSneu.Checked, cbxUTAalt.Checked, cbxUTANeu.Checked)
+            cMDMFunctionsAllgemein.setSchnittstellen(cbxPlose.Checked, cbxITalt.Checked, cbxMSEalt.Checked, cbxMSEneu.Checked, cbxIDSalt.Checked, cbxIDSneu.Checked, cbxUTAalt.Checked, cbxUTANeu.Checked, cbxPloseNeu.Checked)
 
             If sender Is Button23 Then
 
@@ -5441,14 +5445,14 @@ Public Class frmStartOptions
         showPic(ok, PictureBox25)
     End Sub
 
-    Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel64.LinkClicked, LinkLabel67.LinkClicked, LinkLabel69.LinkClicked
+    Private Sub LinkLabel64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTA_Laender.LinkClicked, IDS_Laendercode.LinkClicked, Laender_Steuercode.LinkClicked
 
         Dim iso2Laneder = ""
 
         Select Case sender.Name
-            Case "LinkLabel64" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
+            Case "UTA_Laender" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
-            Case "LinkLabel67" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
+            Case "IDS_Laendercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
-            Case "LinkLabel69" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
+            Case "Laender_Steuercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
 
         End Select
 
@@ -5458,9 +5462,9 @@ Public Class frmStartOptions
         If dtiso2Laneder.Rows.Count > 0 Then
             For Each r As DataRow In dtiso2Laneder.Rows
                 Select Case sender.Name
-                    Case "LinkLabel64" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
+                    Case "UTA_Laender" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
-                    Case "LinkLabel67" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
+                    Case "IDS_Laendercode" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder]  set  Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
-                    Case "LinkLabel69" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set  LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
+                    Case "Laender_Steuercode" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set  LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
                 End Select
 
 
@@ -5474,7 +5478,7 @@ Public Class frmStartOptions
 
 
 
-    Private Sub LinkLabel65_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel65.LinkClicked
+    Private Sub IDS_import_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_import.LinkClicked
         Me.Visible = False
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
         Dim f As New frmNachrichtenVerarbeitung_MDM_divers("IDS", False, False, cbxIDSUmbenenen.Checked, True)
@@ -5485,7 +5489,7 @@ Public Class frmStartOptions
 
 
 
-    Private Sub LinkLabel66_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel66.LinkClicked
+    Private Sub ATCNRinRE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles ATCNRinRE.LinkClicked
 
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
         If txtMRNPrefix.Text = "" Then Exit Sub
@@ -5537,14 +5541,26 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub LinkLabel70_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel70.LinkClicked
+    Private Sub IDS_RE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_RE.LinkClicked
-
-
-        Dim fehlendeRechungsdaten As String = "select upper(Invoicenumber) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].[tblIDSInvoicesNew] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null"
-
-
 
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+nochmal:
+
+        Select Case checkDatefromIDSInvioces("tblIDSInvoicesNew")
+            Case 0 : Exit Sub
+            Case 1 : GoTo nochmal
+            Case 2 : GoTo weiter
+        End Select
+
+
+
+weiter:
+
+
+        Dim fehlendeRechungsdaten As String = "select upper(Invoicenumber) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].[tblIDSInvoicesNew] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and Year(YearMonthDay) >= " & txtIDSYear.Text
+
+
         Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(fehlendeRechungsdaten, "FMZOLL")
 
         If dtRechnnungsdaten.Rows.Count > 0 Then
@@ -5581,9 +5597,9 @@ Public Class frmStartOptions
 
 
             Next
-            MsgBox("alle Rechnungsdaten gesetzt!")
+            MsgBox("alle Daten in tblIDSInvoicesNew gesetzt!")
         Else
-            MsgBox("keine fehlenden Rechnunngsdaten vorhanden!")
+            MsgBox("keine fehlenden Daten in tblIDSInvoicesNew vorhanden!")
         End If
 
 
@@ -5637,7 +5653,7 @@ Public Class frmStartOptions
     End Sub
 
 
-    Private Sub LinkLabel72_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel72.LinkClicked
+    Private Sub PlosePdfRE_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles PlosePdfRE.LinkClicked
         If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
         Dim kdNrPlose As Integer = -1
         If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text
@@ -5646,13 +5662,22 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub LinkLabel90_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
+    Private Sub IDS_REDetails_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles IDS_REDetails.LinkClicked
 
-        Exit Sub
 
-        Dim fehlendeRechungsdatenOhneDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] not like 'DEVR%'"
+nochmal:
 
-        Dim fehlendeRechungsdatenMitDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] like 'DEVR%'"
+        Select Case checkDatefromIDSInvioces("tblIDSInvoicesNewSplittedByCountry")
+            Case 0 : Exit Sub
+            Case 1 : GoTo nochmal
+            Case 2 : GoTo weiter
+        End Select
+weiter:
+
+
+        Dim fehlendeRechungsdatenOhneDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] not like 'DEVR%' and Year(YearMonthDay) >= " & txtIDSYear.Text
+
+        Dim fehlendeRechungsdatenMitDVR As String = "select upper([Invoicenumber]) as Invoicenumber, CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and [Invoicenumber] like 'DEVR%' and Year(YearMonthDay) >= " & txtIDSYear.Text
 
         Dim fehlendeRechungsdatenTotalInvoiceID As String = "select CustomerCode, cast(YearMonthDay as Date) as YearMonthDay FROM [VERAG].[dbo].tblIDSInvoicesNewSplittedByCountry where TotalInvoiceId is null"
 
@@ -5699,9 +5724,9 @@ Public Class frmStartOptions
 
 
             Next
-            MsgBox("alle Rechnungspositionsdaten gesetzt!")
+            MsgBox("alle Daten der tblIDSInvoicesNewSplittedByCountry Ohne DVR gesetzt!")
         Else
-            MsgBox("keine fehlenden Rechnungspositionsdaten vorhanden!")
+            MsgBox("keine fehlenden Daten der tblIDSInvoicesNewSplittedByCountry Ohne DVR vorhanden!")
         End If
 
 
@@ -5739,9 +5764,9 @@ Public Class frmStartOptions
 
 
             Next
-            MsgBox("alle Rechnungspositionsdaten gesetzt!")
+            MsgBox("alle Daten der tblIDSInvoicesNewSplittedByCountry mit DVR gesetzt!")
         Else
-            MsgBox("keine fehlenden Rechnungspositionsdaten vorhanden!")
+            MsgBox("keine fehlenden Daten der tblIDSInvoicesNewSplittedByCountry mit DVR vorhanden!")
         End If
 
 
@@ -5785,7 +5810,7 @@ Public Class frmStartOptions
 
     End Sub
 
-    Private Sub LinkLabel74_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel74.LinkClicked
+    Private Sub UTAREPdf_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles UTAREPdf.LinkClicked
 
         Dim utaDate As New Date
 
@@ -5824,7 +5849,7 @@ Public Class frmStartOptions
 
 
     End Sub
-    Private Sub LinkLabel73_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel73.LinkClicked
+    Private Sub KN8_DESTAT_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles KN8_DESTAT.LinkClicked
         Me.Cursor = Cursors.WaitCursor
         Try
             Dim erg = VERAG_PROG_ALLGEMEIN.cTariffKN8_Interface.UPDATE_KN8_DESTAT()
@@ -5837,4 +5862,65 @@ Public Class frmStartOptions
     Private Sub Button27_Click_1(sender As Object, e As EventArgs) Handles Button27.Click
         cErrorHandler.sendERRORperMail(My.Application.Info.AssemblyName, "TEST", "", "error@verag.ag", "", "Error_Test")
     End Sub
+
+    Private Sub LinkLabel52_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel52.LinkClicked
+
+        If txtPloseJahr.Text.ToString.Length <> 4 Then MsgBox("Bitte Jahr eingeben!") : Exit Sub
+        Dim kdNrPlose As Integer = -1
+        If txtPLoseKdNr.Text <> "" AndAlso IsNumeric(txtPLoseKdNr.Text) Then kdNrPlose = txtPLoseKdNr.Text
+
+        cPLOSE_Inv_Data.setWahrunginIvoiceFromTransactions(txtPloseJahr.Text, True, kdNrPlose)
+
+    End Sub
+
+
+    Private Function checkDatefromIDSInvioces(table As String) As Integer
+
+
+
+        Dim sql As New SQL
+
+        Dim fehlendeRechungsdatenDatum As String = "select distinct(cast(YearMonthDay as Date)) as YearMonthDay FROM [VERAG].[dbo].[" & table & "] where TransactionVolume is null and AmminclVAT is null and TotalNetAmount is null and VATAmount is null and Year(YearMonthDay) >= " & txtIDSYear.Text
+
+        Dim dtRechnnungsdatenfalschesDatum As DataTable = sql.loadDgvBySql(fehlendeRechungsdatenDatum, "FMZOLL")
+
+        For Each row As DataRow In dtRechnnungsdatenfalschesDatum.Rows
+
+            If Not IsDBNull(row.Item("YearMonthDay")) AndAlso row.Item("YearMonthDay") IsNot Nothing AndAlso IsDate(row.Item("YearMonthDay")) Then
+
+                Dim abrDate As Date = row.Item("YearMonthDay")
+
+                If Not (abrDate.Day = 15 Or abrDate.Day = 30 Or abrDate.Day = 31 Or (abrDate.Month = 2 And abrDate.Day = 28)) Then
+
+                    If Not vbYes = MsgBox("Die IDS-Rechnungen besitzen das Datum: " & abrDate.ToShortDateString & "!" & vbNewLine & "Soll das Datum auf geändert werden", vbYesNoCancel) Then
+                        Return 0
+                    Else
+                        Dim f As New frmDatumsabfrage("IDS-falsches Rechnungsdatum: " & abrDate.ToShortDateString, True)
+                        f.ShowDialog()
+                        If f.DialogResult = DialogResult.OK Then
+                            If sql.doSQL("Update [" & table & "] set YearMonthDay = '" & f.Datum.ToShortDateString & "' where cast(YearMonthDay as Date) = '" & abrDate.ToShortDateString & "'", "FMZOLL") Then
+                                Return 1
+                            Else
+                                Return 0
+                            End If
+                        Else
+                            Return 0
+                        End If
+                    End If
+
+                End If
+
+            End If
+        Next
+
+        Return 2
+
+
+
+
+    End Function
+
+
+
+
 End Class