neu

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -66,6 +66,7 @@ Public Class cSendungen
     Property tblSnd_WarenwertWaehrung As Object = Nothing
 
     Property ABRECHNUNG As New List(Of cSendungAbrechnung)
+    Property HANDLING As New List(Of cSendHandling)
 
     'Dim cDatenbank As New cDatenbank
 
@@ -274,6 +275,37 @@ Public Class cSendungen
         '  Return Nothing
     End Sub
 
+    Public Sub LOAD_HANDLING()
+        Try
+            Me.HANDLING.Clear()
+            Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+            Using cmd2 As New SqlCommand("SELECT * FROM tblSendhandling WHERE sndhdg_sendId=@sndhdg_sendId ", conn)
+                cmd2.Parameters.AddWithValue("@sndhdg_sendId", Me.tblSnd_SendungID)
+                Dim dr2 = cmd2.ExecuteReader()
+
+                While dr2.Read
+                    Dim a As New cSendHandling(Me.tblSnd_SendungID)
+
+                    a.sndhdg_id = SQL.checkNullReturnValue(dr2.Item("sndhdg_id"), Nothing)
+                    'a.sndhdg_sendId = SQL.checkNullReturnValue(dr2.Item("sndhdg_sendId"), Nothing)
+                    a.sndhdg_abrArt = SQL.checkNullReturnValue(dr2.Item("sndhdg_abrArt"), Nothing)
+                    a.sndhdg_nr = SQL.checkNullReturnValue(dr2.Item("sndhdg_nr"), Nothing)
+
+                    Me.HANDLING.Add(a)
+                End While
+                dr2.Close()
+            End Using
+
+            conn.Close()
+            'End Using
+            'Return Nothing
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        '  Return Nothing
+    End Sub
+
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SendungID", tblSnd_SendungID, , True)) 'UPDATE INSERT ISPRIMARY!
@@ -398,6 +430,20 @@ Public Class cSendungen
     End Function
 
 
+    Public Function SAVE_HANDLING() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        '   Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+        SAVE_HANDLING = False
+        Dim sqlstr = " DELETE FROM tblSendHandling WHERE sndhdg_sendId=" & Me.tblSnd_SendungID
+        '   MsgBox(sqlstr)
+        If SQL.doSQL(sqlstr, "AVISO") Then
+            SAVE_HANDLING = True
+            For Each a In HANDLING
+                If Not a.INSERT() Then SAVE_HANDLING = False
+            Next
+        End If
+
+        '   Return b
+    End Function
 
 
     Public Shared Function SET_SpedbuchEntry(tblSnd_SendungID As Integer, tblSnd_SpeditionsbuchEingetragen As Boolean) As String
@@ -483,4 +529,61 @@ Public Class cSendungAbrechnung
 
 
 
+End Class
+
+
+Public Class cSendHandling
+    Property sndhdg_id As Integer = Nothing
+    Property sndhdg_sendId As Integer = Nothing
+    Property sndhdg_abrArt As String = Nothing
+    Property sndhdg_nr As String = Nothing
+
+
+    Dim SQL As New SQL
+
+    Sub New(sndhdg_sendId)
+        Me.sndhdg_sendId = sndhdg_sendId
+    End Sub
+
+    Sub New(sndhdg_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert)
+        Me.sndhdg_sendId = sndhdg_sendId
+        Me.sndhdg_abrArt = sndhdg_abrArt
+        Me.sndhdg_nr = sndhdg_nr
+    End Sub
+
+    Sub New(sndhdg_sendId, sndhdg_abrArt, sndhdg_nr)
+        Me.sndhdg_sendId = sndhdg_sendId
+        Me.sndhdg_abrArt = sndhdg_abrArt
+        Me.sndhdg_nr = sndhdg_nr
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_id", sndhdg_id, , True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_sendId", sndhdg_sendId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_abrArt", sndhdg_abrArt))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndhdg_nr", sndhdg_nr))
+        Return list
+    End Function
+
+    Public Function INSERT() As Boolean
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return SQL.doSQLVarList(" INSERT INTO [tblSendHandling]  (" & str & ") VALUES(" & values & ")  ", "AVISO", , list)
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return False
+    End Function
+
+
 End Class