mdm-importcheck, IDS-Preise

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -1,7 +1,5 @@
 Imports System.Data.OleDb
 Imports System.IO
-Imports com.sun.xml.internal.rngom
-Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports itextsharp.text.pdf
 Imports MDM_Worker
 Imports VERAG_PROG_ALLGEMEIN
@@ -76,22 +74,76 @@ Public Class frmMDMDatenverarbetiung
         txtAnzahl.Text = ""
         txtPruefsummeNetto.Text = ""
         Button1.Enabled = True
+        pb_importOK.Visible = False
 
         Select Case LIEFERANT
-            Case "PLOSE" : initDgv_PLOSE()
+            Case "PLOSE" : checkImport(LIEFERANT) : initDgv_PLOSE()
                 btnDatenLaden.Text = "Daten laden"
-            Case "UTA" : initDgv_UTA()
+            Case "UTA" : checkImport(LIEFERANT) : initDgv_UTA()
                 btnDatenLaden.Text = "Daten laden"
-            Case "ASFINAG" : initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked)
+            Case "ASFINAG" : checkImport(LIEFERANT) : initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked)
                 btnDatenLaden.Text = "Daten laden"
-            Case "IDS" : initDgv_IDS()
+            Case "IDS" : checkImport(LIEFERANT) : initDgv_IDS()
                 btnDatenLaden.Text = "Daten laden"
                 Button1.Enabled = False
-            Case "MSE" : initDgv_MSE()
+            Case "MSE" : checkImport(LIEFERANT) : initDgv_MSE()
                 btnDatenLaden.Text = "Daten laden"
         End Select
     End Sub
 
+    Private Sub checkImport(LIEFERANT As String)
+
+        'autom Import bei Asfinag, Plose und MSE
+        '(noch) manueller Import bei UTA (weil immer so spät kommt) und IDS (wegen Nacharbeitung)
+
+        pb_importOK.Visible = True
+        Dim Import_OK As Boolean = False
+
+        Dim sqlstr As String = ""
+
+        Select Case LIEFERANT
+            Case "PLOSE"
+                sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'"
+            Case "ASFINAG"
+                sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and YEAR(invoicedate) = " & Today().Year
+            Case Else
+                sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate  ='" & DateTimePicker2.Text & "'"
+        End Select
+
+        Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
+
+        If dt.Rows.Count > 0 Then
+            Dim hasImcompleIports As Boolean = dt.AsEnumerable().Any(Function(row) row.Field(Of Boolean)("completed") = False)
+            If hasImcompleIports Then
+                pb_importOK.BackgroundImage = SDL.My.Resources.Resources.del
+            Else
+                If LIEFERANT = "IDS" Then 'IDS Bedard aktuell noch einer Nachbearbeitung!
+                    Dim nacharbeitungNotCompleted As Boolean = dt.AsEnumerable().Any(Function(row) row.Field(Of Boolean)("nacharbeitung_completed") = False)
+
+                    If nacharbeitungNotCompleted Then
+                        Import_OK = False
+                    Else
+                        Import_OK = True
+                    End If
+
+                Else
+                    Import_OK = True
+                End If
+
+            End If
+        Else
+            Import_OK = False
+        End If
+
+
+        If Import_OK Then
+            pb_importOK.BackgroundImage = SDL.My.Resources.Resources.ok
+        Else
+            pb_importOK.BackgroundImage = SDL.My.Resources.Resources.del
+        End If
+
+    End Sub
+
     Private Sub btnREerstellen_Click_1(sender As Object, e As EventArgs) Handles btnREerstellen.Click
 
         Dim errorTmp = False
@@ -120,7 +172,7 @@ Public Class frmMDMDatenverarbetiung
                 End If
             Case "IDS"
                 If cbxIDSmitVerag.Checked Then
-                    MsgBox("Abrechnung ohne VERAG/VERAG360 !")
+                    MsgBox("Abrechnung ohne VERAG/VERAG360!")
                     Exit Sub
                 End If
                 showIDSContextMenu()
@@ -1049,6 +1101,7 @@ Public Class frmMDMDatenverarbetiung
                 cbxASFINAGAbgerechnet.Visible = True
                 cbxBelegeerstellt.Visible = True
                 pnlAsfinag.Visible = True
+                checkImport(LIEFERANT)
                 Exit Sub
             Case "IDS"
                 Panel5.Visible = True
@@ -4857,4 +4910,5 @@ RabattBerechnen:
     Private Sub cbxIDSmitVerag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxIDSmitVerag.CheckedChanged
         initDgv_IDS()
     End Sub
+
 End Class