14.08.2019

DAKOSY_Worker/cDakosy_Statusmeldungen.vb

@@ -17,7 +17,8 @@ Public Class cDakosy_Statusmeldungen
     Property dySt_ts As Date = Now
     Property dySt_ergDetails As Object = Nothing
     Property dySt_ergZoellner As Object = Nothing
-      
+    Property dySt_pfad As Object = Nothing
+
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -44,6 +45,7 @@ Public Class cDakosy_Statusmeldungen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ts", dySt_ts))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ergDetails", dySt_ergDetails))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_ergZoellner", dySt_ergZoellner))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySt_pfad", dySt_pfad))
         Return list
     End Function
 
@@ -65,6 +67,7 @@ Public Class cDakosy_Statusmeldungen
     End Function
 
 
+
     Shared Function LOADByDakosyTransaktionsID(dySt_DakosyTransaktionsID As String) As cDakosy_Statusmeldungen
         Try
             Dim STATUS As New cDakosy_Statusmeldungen
@@ -113,6 +116,17 @@ Public Class cDakosy_Statusmeldungen
         Return id > 0
     End Function
 
+
+
+    Public Function updatePfad(pfad As String) As Boolean
+        Me.dySt_pfad = pfad
+        Return Me.SAVE
+    End Function
+
+
+
+
+
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
@@ -183,12 +197,11 @@ Public Class cDakosy_Statusmeldungen
     End Function
 
 
-    Shared Function InsertStatusMeldung(DY As cDakosy_Zollanmeldungen, dySt_status As Integer, Optional dySt_ergCode As String = "", Optional dySt_ergMitteilung As String = "", Optional dySt_ergZeitpunkt As Object = Nothing)
-        Return InsertStatusMeldung(DY.dy_Id, DY.dy_BezugsNr, DY.dy_ART, dySt_status, dySt_ergCode, dySt_ergMitteilung, dySt_ergZeitpunkt)
+    Shared Function InsertStatusMeldung(DY As cDakosy_Zollanmeldungen, dySt_status As Integer, Optional dySt_ergCode As String = "", Optional dySt_ergMitteilung As String = "", Optional dySt_ergZeitpunkt As Object = Nothing, Optional ByRef statusTMP As cDakosy_Statusmeldungen = Nothing)
+        Return InsertStatusMeldung(DY.dy_Id, DY.dy_BezugsNr, DY.dy_ART, dySt_status, dySt_ergCode, dySt_ergMitteilung, dySt_ergZeitpunkt, statusTMP)
     End Function
-    Shared Function InsertStatusMeldung(dySt_dyId As Integer, dySt_BezugsNr As String, dy_ART As String, dySt_status As Integer, Optional dySt_ergCode As String = "", Optional dySt_ergMitteilung As String = "", Optional dySt_ergZeitpunkt As Object = Nothing)
+    Shared Function InsertStatusMeldung(dySt_dyId As Integer, dySt_BezugsNr As String, dy_ART As String, dySt_status As Integer, Optional dySt_ergCode As String = "", Optional dySt_ergMitteilung As String = "", Optional dySt_ergZeitpunkt As Object = Nothing, Optional ByRef statusTMP As cDakosy_Statusmeldungen = Nothing)
         Try
-
             Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = New DAKOSY_Worker.cDakosy_Statusmeldungen
             STATUS.dySt_BezugsNr = dySt_BezugsNr
             STATUS.dySt_artMitteilung = "VB"
@@ -208,13 +221,14 @@ Public Class cDakosy_Statusmeldungen
                 Case "NCTS"
                     Dim NCTS As cDakosyNCTSOut = cDakosyNCTSOut.LOADByAnmIDFull(dySt_dyId, False)
                     ' cDakosyNCTSOut.UPDATE_StatusById(STATUS.dySt_status)
-                    If NCTS IsNot Nothing Then NCTS.UPDATE_STATUS(STATUS.dySt_status)
+                    If NCTS IsNot Nothing Then NCTS.UPDATE_Status(STATUS.dySt_status)
                 Case "AES"
                     Dim AES As cDakosyAES = cDakosyAES.LOADByAnmIDFull(dySt_dyId, False)
                     ' cDakosyNCTSOut.UPDATE_StatusById(STATUS.dySt_status)
-                    If AES IsNot Nothing Then AES.UPDATE_STATUS(STATUS.dySt_status)
+                    If AES IsNot Nothing Then AES.UPDATE_Status(STATUS.dySt_status)
 
             End Select
+            statusTMP = STATUS
             Return True
 
         Catch ex As Exception