StartOpt, Program

initATLASAufschubkonten/frmStartOptions.vb

@@ -6,11 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
-Imports com.sun.org.apache.bcel.internal.generic
-Imports com.sun.tools.javadoc
-Imports DAKOSY_Worker
 Imports javax
-Imports DocumentFormat.OpenXml.Wordprocessing
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -7320,6 +7316,9 @@ repeatRequest:
         dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
         dt_wrongEmails.Columns.Add("fehlerhafteMail-BCC", GetType(String))
 
+        'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
+        Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL")
+
         If dt IsNot Nothing Then
             For Each r As DataRow In dt.Rows
 
@@ -7328,17 +7327,22 @@ repeatRequest:
                 Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
 
                 If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then
-                    Dim ROW As DataRow = dt_wrongEmails.NewRow
-                    ROW("KdNr") = r.Item("AdressenNr")
-                    ROW("Art") = r.Item("kkd_kkaBez")
-                    ROW("Name") = r.Item("Name 1")
-                    ROW("Firma") = r.Item("Firma")
-                    ROW("fehlerhafteMail") = fehlerhafteMail
-                    ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
-                    ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
-                    dt_wrongEmails.Rows.Add(ROW)
+
+                    Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r_rechnung) r_rechnung.Field(Of Integer)("RechnungsKundenNr") = r.Item("AdressenNr"))
+                    If exists Then
+                        Dim ROW As DataRow = dt_wrongEmails.NewRow
+                        ROW("KdNr") = r.Item("AdressenNr")
+                        ROW("Art") = r.Item("kkd_kkaBez")
+                        ROW("Name") = r.Item("Name 1")
+                        ROW("Firma") = r.Item("Firma")
+                        ROW("fehlerhafteMail") = fehlerhafteMail
+                        ROW("fehlerhafteMail-CC") = fehlerhafteMailCC
+                        ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
+                        dt_wrongEmails.Rows.Add(ROW)
+                    End If
                 End If
 
+
             Next
 
             If dt_wrongEmails.Rows.Count > 0 Then
@@ -7353,5 +7357,74 @@ repeatRequest:
         End If
 
 
+    End Sub
+
+    Private Sub dtp_MDM_Einarbeitung_ValueChanged(sender As Object, e As EventArgs) Handles dtp_MDM_Einarbeitung.ValueChanged
+
+        Dim ok As Boolean = checkMDMdatum(dtp_MDM_Einarbeitung.Value)
+
+        showPic(ok, PictureBox27)
+
+
+
+        With dgv_MDMEinarbeitung
+
+            .ClearSelection()
+            .SET_SQL("SELECT [supplier],[completed],sum(ds_total) as DS ,sum(ds_count) as DS_importiert FROM [VERAG].[dbo].[tblMDMEinarbeitung]
+                            where cast(invoicedate as Date) = '" & dtp_MDM_Einarbeitung.Value & "'
+                            group by [supplier], completed", "FMZOLL")
+
+            .LOAD()
+            .RowTemplate.Height = 20
+            .AllowUserToOrderColumns = False
+
+        End With
+
+
+
+
+    End Sub
+
+    Private Function checkMDMdatum(abrDate As Date)
+
+
+        Dim checkDate As Boolean = False
+
+        If Not (abrDate.Day = 15 Or abrDate.Day = 30 Or abrDate.Day = 31 Or (abrDate.Month = 2 And abrDate.Day = 28)) Then
+
+            checkDate = False
+
+        Else
+            checkDate = True
+        End If
+
+        Return checkDate
+    End Function
+
+    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
+
+
+        Dim BezeichnungSetzen As String = "select Beschreibung_DE,Beschreibung_EN  FROM [tblVZPreisliste] where Beschreibung_DE = ''" 'hardcoded, weil erst zu diesem Zeitpunkt bekommen wir alle RMC-Rechnungen vollständig
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(BezeichnungSetzen, "FMZOLL")
+
+        If dtRechnnungsdaten.Rows.Count > 0 Then
+
+
+            For Each r As DataRow In dtRechnnungsdaten.Rows
+
+                Dim BezDE As String = SQL.getValueTxtBySql("Select Beschreibung_DE FROM [tblVZPreisliste] WHERE Beschreibung_EN= '" & r.Item("Beschreibung_EN") & "'", "FMZOLL",,, "")
+
+                If BezDE <> "" Then
+                    SQL.doSQL("Update [tblVZPreisliste]  SET Beschreibung_DE='" & BezDE & "'  where Beschreibung_EN = '" & r.Item("Beschreibung_EN") & "' AND Beschreibung_DE = ''  ", "FMZOLL")
+                End If
+
+
+            Next
+
+        End If
+
+
     End Sub
 End Class