plose, etc.

UID/ADMIN.vbproj

@@ -1158,6 +1158,10 @@
       <Project>{50e8e49b-4fd9-4dd4-b159-bdc2b7d0e94f}</Project>
       <Name>DAKOSY_Worker_lib</Name>
     </ProjectReference>
+    <ProjectReference Include="..\MDM_Worker\MDM_Worker_lib.vbproj">
+      <Project>{2E4DBC09-E57B-4AC5-8554-6117D71F993B}</Project>
+      <Name>MDM_Worker_lib</Name>
+    </ProjectReference>
     <ProjectReference Include="..\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj">
       <Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
       <Name>TELOTEC_Worker_lib</Name>

UID/usrctlProcedures.Designer.vb

@@ -182,6 +182,7 @@ Partial Class usrctlProcedures
         Me.Button57 = New System.Windows.Forms.Button()
         Me.Button58 = New System.Windows.Forms.Button()
         Me.Button59 = New System.Windows.Forms.Button()
+        Me.Button60 = New System.Windows.Forms.Button()
         Me.tbTRStat.SuspendLayout()
         Me.TabPage3.SuspendLayout()
         Me.TabPage1.SuspendLayout()
@@ -824,6 +825,7 @@ Partial Class usrctlProcedures
         '
         'TabPage6
         '
+        Me.TabPage6.Controls.Add(Me.Button60)
         Me.TabPage6.Controls.Add(Me.Label23)
         Me.TabPage6.Controls.Add(Me.Button54)
         Me.TabPage6.Controls.Add(Me.Label19)
@@ -1728,6 +1730,15 @@ Partial Class usrctlProcedures
         Me.Button59.Text = "Firmenlogo in DB"
         Me.Button59.UseVisualStyleBackColor = True
         '
+        'Button60
+        '
+        Me.Button60.Location = New System.Drawing.Point(336, 63)
+        Me.Button60.Name = "Button60"
+        Me.Button60.Size = New System.Drawing.Size(106, 49)
+        Me.Button60.TabIndex = 74
+        Me.Button60.Text = "Plose PDF-Zuweisung"
+        Me.Button60.UseVisualStyleBackColor = True
+        '
         'usrctlProcedures
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1977,4 +1988,5 @@ Partial Class usrctlProcedures
     Friend WithEvents Button57 As Button
     Friend WithEvents Button58 As Button
     Friend WithEvents Button59 As Button
+    Friend WithEvents Button60 As Button
 End Class

UID/usrctlProcedures.resx

@@ -123,4 +123,10 @@
   <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="Column1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="Column2.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>

UID/usrctlProcedures.vb

@@ -16,6 +16,7 @@ Imports DAKOSY_Worker
 Imports DAKOSY_Worker.FreierVerkehrAktVeredelUmwandlung_004
 Imports GrapeCity
 Imports itextsharp.text.pdf
+Imports MDM_Worker
 Imports Microsoft.Office.Interop
 Imports Newtonsoft.Json.Linq
 Imports PdfSharp.Drawing
@@ -5044,6 +5045,79 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
         Return Nothing
     End Function
 
+    Private Sub Button60_Click(sender As Object, e As EventArgs) Handles Button60.Click
+
+        Dim cnt = 0
+
+        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim kdnr_tmp = ""
+        Try
+
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked
+
+            Dim fd As New OpenFileDialog
+            If fd.ShowDialog = DialogResult.OK Then
+                If fd.FileName.ToLower.EndsWith(".csv") Then
+
+                    Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default)
+                        MyReader.TextFieldType = FileIO.FieldType.Delimited
+                        MyReader.SetDelimiters(";")
+                        Dim currentRow As String()
+                        While Not MyReader.EndOfData
+                            Try
+                                currentRow = MyReader.ReadFields()
+
+                                'If currentRow.Length > 2 Then
+
+
+                                If currentRow.Length > 2 Then
+                                    If Not (currentRow(0).Trim() = "PloseCode") Then
+                                        If currentRow.Length > 15 Then
+
+
+                                            If isleernothing(currentRow(0)) IsNot Nothing AndAlso IsNumeric(currentRow(0)) AndAlso
+                                                isleernothing(currentRow(7)) IsNot Nothing AndAlso IsDate(currentRow(7)) AndAlso
+                                                isleernothing(currentRow(8)) IsNot Nothing AndAlso (currentRow(8) <> "") AndAlso
+                                                isleernothing(currentRow(14)) IsNot Nothing AndAlso (currentRow(14) <> "") Then
+
+                                                Dim plInv_SupplierRechnungsDatum = sql.isleernothingDateFormatstring(currentRow(7))
+
+
+                                                Dim ploseInv As New cPLOSE_Inv_Data(fd.SafeFileName, currentRow(0), currentRow(8), plInv_SupplierRechnungsDatum)
+
+                                                If ploseInv.hasEntry Then
+                                                    ploseInv.plInv_PdfFileName = currentRow(14)
+                                                    ploseInv.SAVE()
+                                                End If
+
+                                            End If
+
+
+                                        End If
+
+                                    End If
+
+
+                                    cnt += 1
+
+                                End If
+
+
+                            Catch ex As Exception
+                                MsgBox(kdnr_tmp & "  " & ex.Message & ex.StackTrace)
+                            End Try
+                        End While
+                    End Using
+                End If
+            End If
+
+        Catch ex As Exception
+            MessageBox.Show("Datei nicht vorhanden.")
+        Finally
+        End Try
+
+    End Sub
+
     'Private Sub Button26_Click(sender As Object, e As EventArgs)
     '    For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
     '        Dim fi As New FileInfo(d)
@@ -5065,6 +5139,14 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
     '    Next
 
     'End Sub
+
+    Function isleernothingDateFormatstring(o) As Object
+        If o Is Nothing Then Return o
+        If o.ToString = "" Then Return Nothing
+        If IsDate(o) Then Return CDate(o).ToShortDateString
+        Return Nothing
+    End Function
+
 End Class