neu

cNCTSPartnerWorker/cNCTS_TR.vb

@@ -167,6 +167,21 @@ Public Class cNCTS_TR
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
 
+    Function GET_SHIPMENTS(Partnersystem, VorpapierArt, VorpapierNr) As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL)
+        GET_SHIPMENTS = New List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL)
+        Dim dt = SQL.loadDgvBySql("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and  [PrePaperNr]='" & VorpapierNr & "'", "FMZOLL")
+        MsgBox("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and  [PrePaperNr]='" & VorpapierNr & "'")
+        If dt IsNot Nothing Then
+            For Each r In dt.Rows
+                Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(CInt(r("shTr_id")))
+                If SH IsNot Nothing Then
+                    GET_SHIPMENTS.Add(SH)
+                End If
+            Next
+        End If
+
+    End Function
+
     Sub New()
 
     End Sub