neu

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -874,6 +874,15 @@ Public Class cQSAufträge
     Property QS_Abfertigungsart_Anzahl As Integer = 0
 End Class
 
+
+
+Public Class cAvisoVorpapier
+    Property vp_AvisoId As Integer
+    Property vp_Art As String = "T1"
+    Property vp_Nr As String = ""
+End Class
+
+
 Public Class cAviso
     Property AvisoID As Integer
     Property Datum As Date
@@ -933,6 +942,7 @@ Public Class cAviso
     Property Warenort As Boolean = False
 
 
+    Public VORPAPIERE As New List(Of cAvisoVorpapier)
 
     Shared Function getAvisoById(hID, Optional hSQL = "") As cAviso
         Dim AVISODAL As New cAvisoDAL
@@ -978,6 +988,22 @@ Public Class cAviso
     End Sub
 
 
+    Sub LOAD_Vorpapiere()
+        If AvisoID <= 0 Then Exit Sub
+        VORPAPIERE.Clear()
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dt = SQL.loadDgvBySql("SELECT * FROM tblAvisoVorpapier WHERE vp_AvisoId='" & AvisoID & "'", "AVISO")
+        If dt IsNot Nothing Then
+            For Each r In dt.Rows
+                Dim VP As New cAvisoVorpapier
+                VP.vp_AvisoId = AvisoID
+                VP.vp_Nr = r("vp_Nr")
+                VP.vp_Art = r("vp_Art")
+                VORPAPIERE.Add(VP)
+            Next
+        End If
+    End Sub
+
 
 
 End Class
@@ -1448,6 +1474,22 @@ Public Class cAvisoDAL
     End Function
 
 
+
+    Public Function SpeichernAvisoVorpapiere(ByVal AvisoId As Integer, VORPAPIERE As List(Of cAvisoVorpapier)) As Boolean
+        SpeichernAvisoVorpapiere = True
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        If SQL.doSQL("DELETE tblAvisoVorpapier WHERE [vp_AvisoId]='" & AvisoId & "'", "AVISO") Then
+            For Each VP In VORPAPIERE
+                If Not SQL.doSQL("INSERT INTO tblAvisoVorpapier (vp_AvisoId, vp_Art,vp_Nr) VALUES ('" & AvisoId & "','" & VP.vp_Art & "','" & VP.vp_Nr & "') ", "AVISO") Then SpeichernAvisoVorpapiere = False
+            Next
+        Else
+            SpeichernAvisoVorpapiere = True = False
+        End If
+
+    End Function
+
+
+
     Public Function setQSAufträge(ByVal daten As List(Of cQSAufträge)) As Boolean
         For Each d As cQSAufträge In daten
             Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()