worker_verwahrung, Plose

MDM_Worker/cPLOSE.vb

@@ -1,8 +1,7 @@
 
 Imports System.Data.SqlClient
-    Imports System.Reflection
-
-    Public Class cPLOSE
+Imports System.Reflection
+Public Class cPLOSE
 
     Property plose_Id As Integer
 
@@ -534,7 +533,7 @@ Imports System.Data.SqlClient
 
 
 
-    Public Shared Function UPDATE_ARCHIV(von As Date, bis As Date, KundenNr As Integer) As Boolean
+    Public Shared Function UPDATE_ARCHIV(von As Date, bis As Date, KundenNr As Integer, UStVAn_ID As Integer) As Boolean
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -542,12 +541,13 @@ Imports System.Data.SqlClient
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("von", von))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bis", bis))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
 
 
             Return SQL.doSQLVarList("
 
                     UPDATE [tblPLOSE_Details] 
-                        set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE()
+                        set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID
                     FROM [tblPLOSE_Details]  INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
                         INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
                     WHERE cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@KundenNr
@@ -561,6 +561,33 @@ Imports System.Data.SqlClient
         Return ""
     End Function
 
+
+
+
+    Public ANLAGEN
+
+    Dim Dateiname = ""
+
+    Public Function initImportPfade() As Boolean
+
+        ANLAGEN = cPLOSE.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+
+        Return True
+
+    End Function
+
+
+    Public Class Paramter
+
+        Shared apiSettingsloaded As Boolean = False
+        Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
+            Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblPartnersystem_Paramter] WHERE  Param_system='PLOSE' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+        End Function
+    End Class
+
+
 End Class
 Public Class cPLOSE_USTV_ANTR
     Property plose_RechnungsDatum As Object = Nothing '                  VARCHAR(3)     NULL,
@@ -582,4 +609,5 @@ Public Class cPLOSE_USTV_ANTR
         LIST.Sort(Function(x, y) x.plose_RechnungsDatum.CompareTo(y.plose_RechnungsDatum))
     End Sub
 
-End Class
+End Class
+