IDS_Anhang, VM Formulare, MDM, Asfinag, UTA, MSE, RMC

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -44,6 +44,8 @@ Public Class cIDS
     Property UStVAn_ID As Object = Nothing
     Property VRNumber As Object = Nothing
     Property OBONumber As Object = Nothing
+    Property charged As Boolean = False
+    Property chargedDatetime As Object = Nothing
 
 
     Public hasEntry = False
@@ -105,6 +107,8 @@ Public Class cIDS
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VRNumber", VRNumber))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBONumber", OBONumber))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("charged", charged))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chargedDatetime", chargedDatetime))
         Return list
     End Function
 
@@ -301,6 +305,8 @@ Public Class cIDS
     Public ERROR_PFAD
     Public ZIEL_PFAD
     Public FTP_PFAD
+    Public ANLAGEN
+    Public ARCHIV
     Public API_STRING As String
     Public API As New DataTable
 
@@ -313,6 +319,8 @@ Public Class cIDS
         ARCHIV_PFAD = cIDS.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         VERARBEITUNG_PFAD = cIDS.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         ZIEL_PFAD = cIDS.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        ANLAGEN = cIDS.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+        ARCHIV = cIDS.Paramter.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
         If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then
             System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)