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

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -13,6 +13,8 @@ Public Class cMSEAPI
     Dim apiSettingsloaded As Boolean = False
     Dim test As Boolean = False
     Dim PDFRECHNUNGENPFAD As String = ""
+    Public ANLAGEN
+    Public ARCHIV
 
 
     Sub New(program As String)
@@ -31,12 +33,13 @@ Public Class cMSEAPI
             End If
 
             PDFRECHNUNGENPFAD = Me.GET_PARAM_ByName("PDFRECHNUNGEN-PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            ANLAGEN = Me.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+            ARCHIV = Me.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
 
         End If
 
     End Sub
 
-
     Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblPartnersystem_Paramter] WHERE  Param_system='MSE' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
@@ -1392,7 +1395,7 @@ Public Class cMSEAPI
     End Function
 
 
-    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, mse_kdNr As Integer, country As String) As Boolean
+    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, mse_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -1401,11 +1404,12 @@ Public Class cMSEAPI
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mse_kdNr", mse_kdNr))
             list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("country", country))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
 
 
             Return SQL.doSQLVarList("
 
-                    UPDATE [tblMSEInvoices] set archiv=1, [archiviertDatum]=GETDATE()
+                    UPDATE [tblMSEInvoices] set archiv=1, [archiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID 
                     WHERE cast(invoice_date as date) = @reDat and invoice_id = @reNr and customer_number=@mse_kdNr and country = @country
                 ", "FMZOLL",, list)
 
@@ -1433,6 +1437,7 @@ Public Class cMSEInvoices
     Property daId As Object = Nothing
     Property archiv As Boolean = False
     Property archiviertDatum As Object = Nothing
+    Property UStVAn_ID As Object = Nothing
 
     Public hasEntry = False
 
@@ -1462,6 +1467,7 @@ Public Class cMSEInvoices
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_nr", invoice_nr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
 
         Return list
     End Function