ATR

VERAG_PROG_ALLGEMEIN/Classes/cOriginalATR.vb

@@ -11,6 +11,8 @@ Public Class cOrigianlATR
     Property atr_mitId As Integer
     Property atr_absender As Object = Nothing
     Property atr_empfaenger As Object = Nothing
+    Property atr_empfaengerkdnr As Integer = -1
+    Property atr_absenderkdnr As Integer = -1
     Property atr_austellungsdatum As Object = Nothing
     Property atr_AvisoId As Object = Nothing
     Property atr_SendungsId As Object = Nothing
@@ -19,12 +21,20 @@ Public Class cOrigianlATR
     Property atr_DHL_ReferenzNr As Object = Nothing
     Property atr_location As Object = Nothing
     Property atr_info As Object = Nothing
+    Property atr_erhalenDatum As Object = Nothing
+    Property atr_erhalten_Art As Object = Nothing
+    Property atr_FilialenNr As Integer = -1
+    Property atr_AbfertigungsNr As Integer = -1
+    Property atr_anhID As Integer = -1
 
 
     Public hasEntry = False
 
     Dim SQL As New SQL
 
+    Sub New()
+
+    End Sub
     Sub New(atr_id)
         Me.atr_id = atr_id
         LOAD()
@@ -33,7 +43,6 @@ Public Class cOrigianlATR
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_id", atr_id,, True))
 
-
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_documentNr", atr_documentNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erfassungsdatum", atr_erfassungsdatum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_Sachbearbeiter", atr_Sachbearbeiter))
@@ -48,6 +57,15 @@ Public Class cOrigianlATR
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_DHL_ReferenzNr", atr_DHL_ReferenzNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_location", atr_location))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_info", atr_info))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erhalenDatum", atr_erhalenDatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_erhalten_Art", atr_erhalten_Art))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_FilialenNr", atr_FilialenNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_AbfertigungsNr", atr_AbfertigungsNr))
+
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_absenderkdnr", atr_absenderkdnr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_empfaengerkdnr", atr_empfaengerkdnr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atr_anhID", atr_anhID))
+
 
         Return list
     End Function
@@ -68,6 +86,12 @@ Public Class cOrigianlATR
 
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
+    Public Function DELETE() As Boolean
+
+        Dim sqlstr = " DELETE tblOriginalATR  WHERE atr_id='" & atr_id & "'"
+
+        Return SQL.doSQL(sqlstr, "FMZOLL")
+    End Function
 
     Public Sub LOAD()
         Try