mdm, div. Änderungen, etc.

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -45,8 +45,8 @@ Public Class cAdressen
     'Property SSMA_TimeStamp As Object = Nothing
     Property MWSTVorauszahlung As Object = Nothing
     Property PLOSEKundenNr As Object = Nothing
-
     Property weitereWölflKundenNr As Object = Nothing
+    Property IDSMautbericht_nachOrt As Object = Nothing
 
 
     Public hasEntry = False
@@ -143,6 +143,7 @@ Public Class cAdressen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("MWSTVorauszahlung", MWSTVorauszahlung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PLOSEKundenNr", PLOSEKundenNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("weitereWölflKundenNr", weitereWölflKundenNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("IDSMautbericht_nachOrt", IDSMautbericht_nachOrt))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb

@@ -252,5 +252,13 @@
     End Function
 
 
+    Public Class Paramter
+
+        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='MIC' AND [Param_name]='" & tcParam_name & "'  AND Param_testsystem = " & IIf(TESTSYSTEM, 1, 0), , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
+        End Function
+    End Class
+
 
 End Class

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -242,7 +242,7 @@ Public Class cSyska_Interface
                 If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
                     If FiBuSchnittstelleNr = 19 Then postfix = "MDM_"
                     Dim fileKD As System.IO.StreamWriter
-                    Dim DateinameKD = "AVISO_DEBI_" & postfix & Now.ToString("ddMMyyyy_HHmm") & ".txt"
+                    Dim DateinameKD = "AVISO_DEBI_" & Now.ToString("ddMMyyyy_HHmm") & postfix & ".txt"
                     fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))