neu

ADMINUPDATER/UPDATERfrm.vb

@@ -16,7 +16,7 @@ Public Class UPDATERfrm
 
 
     Dim F As String = "F:\Programme\ADMIN\" ' WDH TERM
-    Dim F_PROD As String = "\\192.168.0.91\f\Programme\ADMIN\" ' VERAG
+    Dim F_PROD As String = "\\share01\Programme\ADMIN\" ' VERAG
     ' Dim F As String = "\\192.168.0.90\f\Programme\ADMIN\" 'DEVELOPER
     Dim F_ATILLA As String = "\\172.16.0.99\Daten\Programme\ADMIN\" ' ATILLA
     Dim F_IMEX As String = "\\192.168.1.20\Daten\VERAG Programme\ADMIN\" ' IMEX

DAKOSY_Worker/cDakosyFunftions.vb

@@ -113,7 +113,7 @@ Public Class cDakosyFunftions
 
 
     Shared Sub getSFTPLoginData(ByRef DY_server, ByRef DY_name, ByRef DY_pwd, ByRef DY_port, ByRef DY_PFAD_IN, ByRef DY_PFAD_OUT, ByRef DY_PFAD_IN_KD, FIRMA_DY)
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+        If False Then 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
             DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
             DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)
             DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, FIRMA_DY)

DAKOSY_Worker/cZOLL_IMPORT.vb

@@ -530,6 +530,11 @@ Public Class cZOLL_IMPORT
             If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then SPEDITIONSBUCH.Abfertigungsanzahl = SENDUNG.tblSnd_anzahlHandling
             If SPEDITIONSBUCH.PersonalnummerQS <= 0 Then SPEDITIONSBUCH.PersonalnummerQS = SENDUNG.tblSnd_QS_MA
 
+            If SENDUNG.tblSnd_FilialeAbklaerung IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_FilialeAbklaerung) AndAlso SENDUNG.tblSnd_FilialeAbklaerung > 0 Then
+                SPEDITIONSBUCH.FilialenNrAbklaerung = SENDUNG.tblSnd_FilialeAbklaerung
+                'Else
+                '    SPEDITIONSBUCH.FilialenNrHandling = SPEDITIONSBUCH.FilialenNr
+            End If
 
             SENDUNG.LOAD_ABRECHNUNG()
             Dim FindPOS = SENDUNG.ABRECHNUNG.Find(Function(x) x.sndabr_beteiligter = "AUFTR" And x.sndabr_wert = "ERSTATTUNG")

DienstplanTV/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -61,7 +61,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
         '''</summary>
         Friend ReadOnly Property connStringAdmin() As String
             Get

DienstplanTV/My Project/Resources.resx

@@ -118,6 +118,6 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="connStringAdmin" xml:space="preserve">
-    <value>Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
   </data>
 </root>

MailSender/App.config

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup> 
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
     </startup>
 </configuration>

MailSender/MAILSender.vb

@@ -11,32 +11,33 @@ Module Mail
     Dim last_sent As String = sPath & "last_sent.txt" '" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
     Dim betragOpTr = 1000
     Sub Main()
+        Try
+            VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
 
+            Dim PARAM = ""
+            Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
+            If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
+                PARAM = parameter(1)
+                'For i = 1 To parameter.Count - 1
+                ' 'If parameter(i) = "HISTORY" Then PARAM = True
+                ' Next
+            End If
 
-        Dim PARAM = ""
+            System.Console.WriteLine("MailSender gestartet ...")
-        Dim parameter() As String = Environment.GetCommandLineArgs().ToArray
+            ' If IO.File.Exists(options) Then
-        If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist
-            PARAM = parameter(1)
-            'For i = 1 To parameter.Count - 1
-            ' 'If parameter(i) = "HISTORY" Then PARAM = True
-            ' Next
-        End If
 
-        System.Console.WriteLine("MailSender gestartet ...")
+            'If Not IO.File.Exists(last_sent) Then
-        ' If IO.File.Exists(options) Then
+            'IO.File.Create(last_sent)
+            '  End If
 
-        'If Not IO.File.Exists(last_sent) Then
+            ' Dim o As String = getOption()
-        'IO.File.Create(last_sent)
+            If PARAM = "" Then
-        '  End If
+                System.Console.WriteLine("OPTION nicht erkannt!")
-
+                Exit Sub
-        ' Dim o As String = getOption()
+            End If
-        If PARAM = "" Then
+            Dim cnt = 0
-            System.Console.WriteLine("OPTION nicht erkannt!")
+            '  MsgBox(DoesProcessExists("MailSender"))
-            Exit Sub
+            While DoesProcessExists("MailSender") Or cnt > 20
-        End If
-        Dim cnt = 0
-        '  MsgBox(DoesProcessExists("MailSender"))
-        While DoesProcessExists("MailSender") Or cnt > 20
             System.Console.WriteLine("MailSender wurde nicht beendet, warten ...")
             Threading.Thread.Sleep(1000)
             cnt += 1
@@ -177,7 +178,13 @@ Module Mail
         System.Console.WriteLine("Programm beendet in 2")
         Threading.Thread.Sleep(1000)
         System.Console.WriteLine("Programm beendet in 1")
-        Threading.Thread.Sleep(1000)
+            Threading.Thread.Sleep(1000)
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
+        End Try
     End Sub
 
     Function getOption() As String
@@ -940,11 +947,22 @@ Module Mail
             Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
             Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
 
-            sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl  FROM Speditionsbuch INNER JOIN [BUCHHALTUNG\SQLEXPRESS].AVISO.dbo.AVISO on Aviso.avisoid=Speditionsbuch.AvisoID WHERE  PersonalnummerQS is not null "
+            'sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl  FROM Speditionsbuch INNER JOIN [SQLGUIDE01.verag.ost.dmn].AVISO.dbo.AVISO on Aviso.avisoid=Speditionsbuch.AvisoID  "
+             'sqlstr &= " WHERE  PersonalnummerQS is not null "
+              'sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) "
+            'sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " &
+            '                                        " GROUP BY Aviso.[Grenzstelle]" &
+            '                                        " ORDER BY Anzahl DESC"
+
+            sqlstr &= " SELECT [Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl  FROM Speditionsbuch "
+            sqlstr &= " WHERE  FilialenNrAbklaerung ='4803' " 'QS SUB
+            ' sqlstr &= " WHERE  Filiale  "
             sqlstr &= " and FilialenNr NOT IN ( 4801,4806,5501 ) "
+
             sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " &
-                                                    " GROUP BY Aviso.[Grenzstelle]" &
+                                                    " GROUP BY [Grenzstelle]" &
                                                     " ORDER BY Anzahl DESC"
+
             Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
 
             Dim exclApp As Object 'as Application
@@ -996,10 +1014,17 @@ Module Mail
             Dim von = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year)
             Dim bis = CDate("01." & Now.Month & "." & Now.Year).AddDays(-1)
 
-            sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch INNER JOIN [BUCHHALTUNG\SQLEXPRESS].AVISO.dbo.AVISO on Aviso.avisoid=Speditionsbuch.AvisoID WHERE Abfertigungsart IN (26,28) "
+            'sqlstr &= " SELECT Aviso.[Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch INNER JOIN [SQLGUIDE01.verag.ost.dmn].AVISO.dbo.AVISO on Aviso.avisoid=Speditionsbuch.AvisoID WHERE Abfertigungsart IN (26,28) "
-            sqlstr &= " AND Aviso.[Grenzstelle] <> 'SFD' and FilialenNr NOT IN ( 4801,4806 ) "
+            'sqlstr &= " AND Aviso.[Grenzstelle] <> 'SFD' and FilialenNr NOT IN ( 4801,4806 ) "
+            'sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " &
+            '                                        " GROUP BY Aviso.[Grenzstelle]" &
+            '                                        " ORDER BY Anzahl DESC"
+
+
+            sqlstr &= " SELECT [Grenzstelle], SUM(Speditionsbuch.Abfertigungsanzahl) as Anzahl FROM Speditionsbuch WHERE Abfertigungsart IN (26,28) "
+            sqlstr &= " AND [Grenzstelle] <> 'SFD' and FilialenNr NOT IN ( 4801,4806 ) "
             sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " &
-                                                    " GROUP BY Aviso.[Grenzstelle]" &
+                                                    " GROUP BY [Grenzstelle]" &
                                                     " ORDER BY Anzahl DESC"
             Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
 
@@ -1084,7 +1109,7 @@ Module Mail
 
                     sqlstr &= "  SELECT  count(*)"
                     sqlstr &= "  FROM tblEABelegnummer as EAB  inner join tblEABelegposition as POS on  EAB.Mandant=POS.Mandant and EAB.[Niederlassung]=POS.[Niederlassung] and EAB.[Benutzer]=POS.[Benutzer] and EAB.[BelegDat]=POS.[BelegDat] and EAB.[BelegNr]=POS.[BelegNr]"
-                    sqlstr &= " where LeistungsNr=480	and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0 "
+                    sqlstr &= "  where LeistungsNr=480	and [EAB].BelegDat between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' and gebucht=1 and storniert=0  and EAB.Mandant='IMEX' "
 
                     Dim anzahl = 0
 
@@ -1303,9 +1328,9 @@ Module Mail
     Public Function loadDgvBySqlFMZOLL(ByVal sql As String) As DataTable
         Try
             Dim myTable = New DataTable()
-            Dim conn As New SqlConnection
+            Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL
-            conn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
+            'conn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=test;Password=BmWr501956;"
-            conn.Open()
+            'conn.Open()
 
             Using cmd As New SqlCommand(sql, conn)
                 Dim dr As SqlDataReader = cmd.ExecuteReader()
@@ -1324,9 +1349,9 @@ Module Mail
     Public Function loadDgvBySqlSDL(ByVal sql As String) As DataTable
         Try
             Dim myTable = New DataTable()
-            Dim conn As New SqlConnection
+            Dim conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL
-            conn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=test;Password=BmWr501956;"
+            'conn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=SDL;Integrated Security=false;User ID=test;Password=BmWr501956;"
-            conn.Open()
+            'conn.Open()
 
             Using cmd As New SqlCommand(sql, conn)
                 Dim dr As SqlDataReader = cmd.ExecuteReader()

MailSender/MailSender.vbproj

@@ -11,12 +11,12 @@
     <AssemblyName>MailSender</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>Console</MyType>
-    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
     <TargetFrameworkProfile>
     </TargetFrameworkProfile>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <PlatformTarget>AnyCPU</PlatformTarget>
+    <PlatformTarget>x86</PlatformTarget>
     <DebugSymbols>true</DebugSymbols>
     <DebugType>full</DebugType>
     <DefineDebug>true</DefineDebug>
@@ -151,8 +151,6 @@
     <ProjectReference Include="..\UID\ADMIN.vbproj">
       <Project>{6eb4d3a4-3cf2-4651-9af9-ad5f727df403}</Project>
       <Name>ADMIN</Name>
-      <Private>True</Private>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
     </ProjectReference>
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

ServerListender/AtlasAufschubDatenEinlesen.vb

@@ -141,7 +141,7 @@ Module AtlasAufschubDatenEinlesen
 
 
         Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
         cn.Open()
         Using cn
             Using cmd As New SqlCommand(sql, cn)

UID/Mitarbeiter/frmMitarbDetails.vb

@@ -711,7 +711,7 @@
             End Try
 
             Try
-                cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID]  FROM [ezoll].[dbo].[zzPersonal] ORDER BY UserID ", False, "EZOLL", True)
+                cboEZOLL_SB.fillWithSQL("SELECT [PersonalID],[UserID]  FROM [zzPersonal] ORDER BY UserID ", False, "EZOLL", True)
             Catch ex As Exception
                 MsgBox("EZOLL Problem")
                 tbcntr.SelectedIndex = 0

UID/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.1.1")>
+<Assembly: AssemblyVersion("1.0.1.2")>
-<Assembly: AssemblyFileVersion("1.0.1.0")> 
+<Assembly: AssemblyFileVersion("1.0.1.2")>

UID/My Project/Resources.Designer.vb

@@ -375,6 +375,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''</summary>
+        Friend ReadOnly Property hjhjkghjklghjkhz678678568() As String
+            Get
+                Return ResourceManager.GetString("hjhjkghjklghjkhz678678568", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -395,15 +404,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property llllllll() As String
-            Get
-                Return ResourceManager.GetString("llllllll", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -644,7 +644,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.9.7 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.9.9 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

UID/My Project/Resources.resx

@@ -188,7 +188,7 @@
     <value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>1.9.7</value>
+    <value>1.9.9</value>
   </data>
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,7 +298,7 @@
   <data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="llllllll" xml:space="preserve">
+  <data name="hjhjkghjklghjkhz678678568" xml:space="preserve">
     <value />
   </data>
 </root>

UID/usrctlProcedures.vb

@@ -734,7 +734,7 @@ Public Class usrctlProcedures
                 Dim dr As SqlDataReader
 
                 Dim cn As New SqlConnection()
-                cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+                cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
 
 
                 cn.Open()
@@ -788,7 +788,7 @@ Public Class usrctlProcedures
 
                     Try
                         Dim cn As New SqlConnection()
-                        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+                        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
                         cn.Open()
 
                         Using cmd As New SqlCommand("SELECT COUNT(*)  FROM [AVISO].[dbo].[Aviso]  where  [Ankunft] between @DatVon and @DatBis and Grenzstelle='SUB'", cn)
@@ -1032,7 +1032,7 @@ Public Class usrctlProcedures
                                 Dim sql = "DELETE FROM Firmen WHERE FirmaID = '" & Blatt.Range("A" & index).Value.ToString & "'"
 
                                 Dim cn As New SqlConnection()
-                                cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+                                cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=AVISO;Integrated Security=false;User ID=sa;Password=BmWr501956;"
                                 cn.Open()
                                 Using cmd As New SqlCommand(sql, cn)
                                     Try

VERAGMonitoring/App.config

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
     </startup>
 </configuration>

VERAGMonitoring/AtlasAufschubDatenEinlesen.vb

@@ -105,7 +105,7 @@ Module AtlasAufschubDatenEinlesen
 
 
         Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
         cn.Open()
         Using cn
             Using cmd As New SqlCommand(sql, cn)

VERAGMonitoring/My Project/Application.Designer.vb

@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.34209
+'     Laufzeitversion:4.0.30319.42000
 '
 '     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
 '     der Code erneut generiert wird.
@@ -14,8 +14,8 @@ Option Explicit On
 
 Namespace My
     
-    'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden.  Wenn Sie Änderungen vornehmen möchten
-    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
     ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
     ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
     '

VERAGMonitoring/My Project/Resources.Designer.vb

@@ -71,7 +71,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.2.7 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.3.1 ähnelt.
         '''</summary>
         Friend ReadOnly Property version() As String
             Get

VERAGMonitoring/My Project/Resources.resx

@@ -118,7 +118,7 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="version" xml:space="preserve">
-    <value>1.2.7</value>
+    <value>1.3.1</value>
   </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">

VERAGMonitoring/My Project/Settings.Designer.vb

@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.34209
+'     Laufzeitversion:4.0.30319.42000
 '
 '     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
 '     der Code erneut generiert wird.
@@ -15,21 +15,21 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
         
         Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
         
-#Region "Funktion zum automatischen Speichern von My.Settings"
+#Region "Automatische My.Settings-Speicherfunktion"
 #If _MyType = "WindowsForms" Then
     Private Shared addedHandler As Boolean
 
     Private Shared addedHandlerLockObject As New Object
 
     <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
         If My.Application.SaveMySettingsOnExit Then
             My.Settings.Save()
         End If

VERAGMonitoring/VERAGMonitoring.vbproj

@@ -11,7 +11,7 @@
     <AssemblyName>VERAGMonitoring</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
     <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
@@ -23,6 +23,7 @@
     <OutputPath>bin\Debug\</OutputPath>
     <DocumentationFile>VERAGMonitoring.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -33,6 +34,7 @@
     <OutputPath>bin\Release\</OutputPath>
     <DocumentationFile>VERAGMonitoring.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup>
     <OptionExplicit>On</OptionExplicit>
@@ -208,7 +210,12 @@
     <Content Include="admin_monitoring.ico" />
     <None Include="Resources\refresh.png" />
   </ItemGroup>
-  <ItemGroup />
+  <ItemGroup>
+    <ProjectReference Include="..\..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
+      <Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
+      <Name>VERAG_PROG_ALLGEMEIN</Name>
+    </ProjectReference>
+  </ItemGroup>
   <ItemGroup>
     <COMReference Include="Microsoft.Office.Core">
       <Guid>{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}</Guid>

VERAGMonitoring/cSqlDb.vb

@@ -4,38 +4,38 @@ Imports System.Data.SqlClient
 
 
 Public Class cSqlDb
-    Public Shared Function GetNewOpenConnection() As SqlConnection
+    '    Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection
-        Dim cn As New SqlConnection()
+    '        Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
+    '        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
-        cn.Open()
+    '        cn.Open()
-        Return cn
+    '        Return cn
-    End Function
+    '    End Function
-    Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
+    '    Public Shared Function GetNewOpenConnectionFMZOLL() As SqlConnection
-        Dim cn As New SqlConnection()
+    '        Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" ' FMZOLL
+    '        cn.ConnectionString = "Data Source=192.168.0.91\SQLFMZOLL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" ' FMZOLL
-        'cn.ConnectionString = "Data Source=192.168.0.50\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'DEVELOPER
+    '        'cn.ConnectionString = "Data Source=192.168.0.50\DEVSQL;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'DEVELOPER
-        cn.Open()
+    '        cn.Open()
-        Return cn
+    '        Return cn
-    End Function
+    '    End Function
-    Public Shared Function GetNewOpenConnectionZOLARIS() As SqlConnection
+    '    Public Shared Function GetNewOpenConnectionZOLARIS() As SqlConnection
-        Dim cn As New SqlConnection()
+    '        Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
+    '        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ezoll;Integrated Security=false;User ID=sa;Password=BmWr501956;" 'BUCHHALTUNG
-        cn.Open()
+    '        cn.Open()
-        Return cn
+    '        Return cn
-    End Function
+    '    End Function
 
-    Public Shared Function GetNewOpenConnectionAtlasSUB() As SqlConnection
+    '    Public Shared Function GetNewOpenConnectionAtlasSUB() As SqlConnection
-        Dim cn As New SqlConnection()
+    '        Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=sa;" 'VERAG-ATLAS1
+    '        cn.ConnectionString = "Data Source=192.168.0.95\SQLATLAS;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=sa;" 'VERAG-ATLAS1
-        cn.Open()
+    '        cn.Open()
-        Return cn
+    '        Return cn
-    End Function
+    '    End Function
-    Public Shared Function GetNewOpenConnectionAtlasSBG() As SqlConnection
+    '    Public Shared Function GetNewOpenConnectionAtlasSBG() As SqlConnection
-        Dim cn As New SqlConnection()
+    '        Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=????;" 'verag-atlas3
+    '        cn.ConnectionString = "Data Source=192.168.133.98;Initial Catalog=atlas;Integrated Security=false;User ID=sa;Password=????;" 'verag-atlas3
-        cn.Open()
+    '        cn.Open()
-        Return cn
+    '        Return cn
-    End Function
+    '    End Function
 End Class
 
 
@@ -49,7 +49,7 @@ Public Class cLogin
     Public Function getAktuelleVersion() As String
         Dim sql As String = "SELECT prog_aktuelleVersion FROM tblProgramme WHERE prog_codename=@codename"
         Dim dr As SqlDataReader
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
             Using cmd As New SqlCommand(sql, conn)
                 cmd.Parameters.AddWithValue("@codename", "MONITORING")
                 dr = cmd.ExecuteReader()
@@ -126,7 +126,7 @@ Public Class cBrgDb
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                     Using cmd As New SqlCommand(sql & where, conn)
                         cmd.Parameters.AddWithValue("@datumVon", datumVon)
                         cmd.Parameters.AddWithValue("@datumBis", datumBis)
@@ -150,7 +150,7 @@ Public Class cBrgDb
     Public Function loadDgv(sql As String) As DataTable
         Try
             Dim myTable = New DataTable()
-            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                 Using cmd As New SqlCommand(sql, conn)
                     Dim dr As SqlDataReader = cmd.ExecuteReader()
                     myTable.Load(dr)
@@ -170,7 +170,7 @@ Public Class cBrgDb
     Public Function delBrgAufschubEinzahlung(id As String) As Boolean
         Try
             Dim myTable = New DataTable()
-            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                 Using cmd As New SqlCommand("DELETE FROM tblBrgAufschub  WHERE brgak_id= '" & id & "'", conn)
                     cmd.ExecuteReader()
                     Return True
@@ -193,7 +193,7 @@ Public Class cBrgDb
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                     Using cmd As New SqlCommand(sql, conn)
                         Dim dr As SqlDataReader = cmd.ExecuteReader()
                         myTable.Load(dr)
@@ -219,7 +219,7 @@ Public Class cBrgDb
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
                     Using cmd As New SqlCommand(sql, conn)
                         Dim dr As SqlDataReader = cmd.ExecuteReader()
                         myTable.Load(dr)
@@ -243,7 +243,7 @@ Public Class cBrgDb
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
                     Using cmd As New SqlCommand(sql, conn)
                         Dim dr As SqlDataReader = cmd.ExecuteReader()
                         myTable.Load(dr)
@@ -269,7 +269,7 @@ Public Class cBrgDb
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
                     Using cmd As New SqlCommand(sql, conn)
                         Dim dr As SqlDataReader = cmd.ExecuteReader()
                         myTable.Load(dr)
@@ -298,7 +298,36 @@ Public Class cBrgDb
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
+                    Using cmd As New SqlCommand(sql, conn)
+                        Dim dr As SqlDataReader = cmd.ExecuteReader()
+                        myTable.Load(dr)
+                        dr.Close()
+                    End Using
+                    conn.Close()
+                End Using
+                Return myTable  'While Schleife wird hier verlassen
+            Catch ex As Exception
+                Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle),
+                                              "Problem in Function 'loadDgvBySqlZOLARIS'")
+            End Try
+        End While
+
+        Return Nothing
+    End Function
+
+
+
+    Public Function loadDgvBySqlFromBrgKt_NCTS_TR_Details(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As DataTable
+        Dim sql As String = "SELECT ncts_MRN,ncts_Status,(nctsSA_AbgabenBetrag), ncts_dyaAnmID, ncts_ArtAnmeldung,nctsSA_GRN,ncts_Empfaenger_eori,ncts_Empfaenger_NLNR,ncts_Empfaenger_Name,ncts_Bearbeiter"
+        sql &= "  ,[ncts_ObjectName],[ncts_Trans_DatumZeit] as Transaktionsdatum,[ncts_dyaArt],[ncts_ANR],[ncts_MRN],[ncts_ObjectAlias],[ncts_GesamtRohmasse],[ncts_GesamtAnzahlPackstuecke] "
+        sql &= " from tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId"
+        sql &= " where ncts_Status between '" & statusVon & "' and '" & statusBis & "' AND nctsSA_GRN='" & buergschaft & "' " & where
+        'MsgBox(sql)
+        While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
+            Try
+                Dim myTable = New DataTable()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
                     Using cmd As New SqlCommand(sql, conn)
                         Dim dr As SqlDataReader = cmd.ExecuteReader()
                         myTable.Load(dr)
@@ -325,7 +354,7 @@ Public Class cBrgDb
         While True  'Endlosschleife; wird verlassen durch Return oder Application.Exit()
             Try
                 Dim myTable = New DataTable()
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
                     Using cmd As New SqlCommand(sql, conn)
                         Dim dr As SqlDataReader = cmd.ExecuteReader()
                         myTable.Load(dr)
@@ -346,7 +375,7 @@ Public Class cBrgDb
     Public Function checkUser(pcname, brgusr_name) As Boolean
         Dim sql As String = " SELECT * FROM tblBrgUser WHERE brgusr_name = @brgusr_name "
         Dim dr As SqlDataReader
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
             Using cmd As New SqlCommand(sql, conn)
                 cmd.Parameters.AddWithValue("@brgusr_name", pcname & "\" & brgusr_name)
                 dr = cmd.ExecuteReader()
@@ -374,7 +403,7 @@ Public Class cBrgDb
 
     Public Function insertBrgAufschubEinzahlung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
         Try
-            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                 Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " &
                                             " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art) VALUES" &
                                             " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'einzahlung') ", conn)
@@ -401,7 +430,7 @@ Public Class cBrgDb
 
     Public Function insertBrgAufschubAusgleichsbetrag(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
         Try
-            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                 Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " &
                                             " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art) VALUES" &
                                             " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'Ausgleichsbetrag') ", conn)
@@ -429,7 +458,7 @@ Public Class cBrgDb
 
     Public Function deleteBrgAufschubAusgleichsbetrag(brgak_brgaktoId) As Boolean
         Try
-            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                 Using cmd As New SqlCommand("DELETE FROM tblBrgAufschub " &
                                             " WHERE brgak_art='Ausgleichsbetrag' AND brgak_brgaktoId=@brgak_brgaktoId", conn)
                     cmd.Parameters.AddWithValue("@brgak_brgaktoId", brgak_brgaktoId)
@@ -451,7 +480,7 @@ Public Class cBrgDb
 
     Public Function insertBrgAufschubZuBelastung(brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc) As Boolean
         Try
-            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                 Using cmd As New SqlCommand("INSERT INTO tblBrgAufschub " &
                                             " (brgak_datum, brgak_betrag, brgak_brgaktoId, brgak_filename, brgak_atc, brgak_art) VALUES" &
                                             " (@brgak_datum, @brgak_betrag, @brgak_brgaktoId, @brgak_filename, @brgak_atc,'belastung') ", conn)
@@ -492,6 +521,16 @@ Public Class cBrgDb
 
 
     End Function
+
+
+    Public Function getBrgSumFromFMZOLL_NCTS_TR(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String
+
+        Dim tmp_DY As String = getBrgSumFrom_NCTS_TR(datumVon, datumBis, statusVon, statusBis, buergschaft, where)
+        Return CDbl(tmp_DY)
+
+
+    End Function
+
     Public Function getBrgSumFromFMZOLL_Zabis_SUBEN(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String
         Return Nothing
         Dim sql As String = "SELECT SUM(veoerz_sicbtg) " &
@@ -500,7 +539,7 @@ Public Class cBrgDb
         '  Dim daten As New List(Of cEntry)
         Dim dr As SqlDataReader
         Dim daten As New List(Of cBuergschaft)
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
             Using cmd As New SqlCommand(sql, conn)
                 dr = cmd.ExecuteReader()
                 Try
@@ -532,7 +571,39 @@ Public Class cBrgDb
         'MsgBox(sql)
         Dim dr As SqlDataReader
         Dim daten As New List(Of cBuergschaft)
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
+            Using cmd As New SqlCommand(sql, conn)
+                dr = cmd.ExecuteReader()
+                Try
+                    Dim cnt As Integer = 0
+                    If dr.Read Then
+                        If Not dr.GetValue(0) Is DBNull.Value Then
+                            '   MsgBox(dr.GetValue(0))
+                            Return dr.GetValue(0)
+
+                        End If
+                    End If
+                    Return "0"
+                Catch ex As Exception
+                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler")
+                Finally
+                    dr.Close()
+                End Try
+            End Using
+        End Using
+        Return Nothing
+    End Function
+
+
+    Public Function getBrgSumFrom_NCTS_TR(ByVal datumVon As DateTime, ByVal datumBis As DateTime, ByVal statusVon As String, ByVal statusBis As String, ByVal buergschaft As String, Optional where As String = "") As String
+        'Return Nothing
+        Dim sql As String = "SELECT sum(nctsSA_AbgabenBetrag)"
+        sql &= " from tblNCTS_TR_Sicherheitsangaben inner join [tblNCTS_TR] on ncts_Id = nctsSA_NctsId"
+        sql &= " where [ncts_Eroeffnung] BETWEEN '" & datumVon.ToShortDateString & " 00:00:00' AND '" & datumBis.ToShortDateString & " 23:23:59' AND ncts_Status BETWEEN '" & statusVon & "' AND '" & statusBis & "'  AND nctsSA_GRN = '" & buergschaft & "' " & where
+        'MsgBox(sql)
+        Dim dr As SqlDataReader
+        Dim daten As New List(Of cBuergschaft)
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
             Using cmd As New SqlCommand(sql, conn)
                 dr = cmd.ExecuteReader()
                 Try
@@ -564,7 +635,7 @@ Public Class cBrgDb
         'MsgBox(sql)
         Dim dr As SqlDataReader
         Dim daten As New List(Of cBuergschaft)
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
             Using cmd As New SqlCommand(sql, conn)
                 dr = cmd.ExecuteReader()
                 Try
@@ -595,7 +666,7 @@ Public Class cBrgDb
         '  Dim daten As New List(Of cEntry)
         Dim dr As SqlDataReader
         Dim daten As New List(Of cBuergschaft)
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
             Using cmd As New SqlCommand(sql, conn)
                 dr = cmd.ExecuteReader()
                 Try
@@ -628,7 +699,7 @@ Public Class cBrgDb
         '  Dim daten As New List(Of cEntry)
         Dim dr As SqlDataReader
         Dim daten As New List(Of cBuergschaft)
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
             Using cmd As New SqlCommand(sql, conn)
                 dr = cmd.ExecuteReader()
                 Try
@@ -696,7 +767,7 @@ Public Class cBrgDb
             '  Dim daten As New List(Of cEntry)
             Dim dr As SqlDataReader
             Dim daten As New List(Of cBuergschaft)
-            Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+            Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
                 Using cmd As New SqlCommand(sql, conn)
                     cmd.Parameters.AddWithValue("@datumVon", datumVon)
                     cmd.Parameters.AddWithValue("@datumBis", datumBis)
@@ -734,7 +805,7 @@ Public Class cBrgDb
         Dim dr As SqlDataReader
         Dim daten As New List(Of cBuergschaft)
         Dim cMonitoringBrg As New cMonitoringBrg
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
             Using cmd As New SqlCommand(sql, conn)
                 dr = cmd.ExecuteReader()
                 Try
@@ -810,7 +881,7 @@ Public Class cBrgDb
                          " brgusrset_aufschub_imex_de_summe=@brgusrset_aufschub_imex_de_summe,brgusrset_aufschub_imex_de_warn1=@brgusrset_aufschub_imex_de_warn1,brgusrset_aufschub_imex_de_warn2=@brgusrset_aufschub_imex_de_warn2,brgusrset_gvvAt_imex_de_summe =@brgusrset_gvvAt_imex_de_summe,brgusrset_gvvAt_imex_tag_warn1=@brgusrset_gvvAt_imex_tag_warn1,brgusrset_gvvAt_imex_tag_warn2=@brgusrset_gvvAt_imex_tag_warn2,brgusrset_gvvAt_imex_woche_warn1=@brgusrset_gvvAt_imex_woche_warn1,brgusrset_gvvAt_imex_woche_warn2=@brgusrset_gvvAt_imex_woche_warn2   " &
                             " WHERE brgusrset_id=@brgusrset_id "
 
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
             Using cmd As New SqlCommand(sql, conn)
                 'msgbo
                 cmd.Parameters.AddWithValue("@brgusrset_id", d.brgusrset_id)
@@ -871,7 +942,7 @@ Public Class cBrgDb
         '  Dim daten As New List(Of cEntry)
         Dim dr As SqlDataReader
         Dim daten As New List(Of cBuergschaft)
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionFMZOLL()
             Using cmd As New SqlCommand(sql, conn)
                 dr = cmd.ExecuteReader()
                 Try
@@ -910,9 +981,11 @@ Public Class cBrgDb
                                 " End " &
                            " commit tran "
 
-        Dim cn As New SqlConnection()
+        'Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
-        cn.Open()
+        'cn.Open()
+
+        Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
         Using cn
             Using cmd As New SqlCommand(sql, cn)
                 cmd.Parameters.AddWithValue("@brgmld_date", brgmld_date)
@@ -935,7 +1008,7 @@ Public Class cBrgDb
         Dim sql As String = " SELECT * FROM tblBrgMeldungen WHERE brgmld_date = @brgmld_date AND brgmld_kto=@brgmld_kto AND brgmld_user=@brgmld_user AND brgmld_stufe=@brgmld_stufe  "
 
         Dim dr As SqlDataReader
-        Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN()
             Using cmd As New SqlCommand(sql, conn)
                 cmd.Parameters.AddWithValue("@brgmld_date", brgmld_date)
                 cmd.Parameters.AddWithValue("@brgmld_kto", brgmld_kto)

VERAGMonitoring/frmBelastAufheben.vb

@@ -68,7 +68,7 @@ Public Class frmBelastAufheben
                           " SET brgAT_Aufgehoben=@brgAT_Aufgehoben, brgAT_AufgehobenDatum=@brgAT_AufgehobenDatum " &
                              " WHERE brgAT_id=@brgAT_id "
                 ', brgAT_Aufgehoben_mitID=@brgAT_Aufgehoben_mitID " &
-                Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
+                Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
                     Using cmd As New SqlCommand(sql, conn)
                         'msgbo
 

VERAGMonitoring/frmKtoStandAkt.vb

@@ -29,6 +29,9 @@
         Dim bis As Date = CDate(datKto.Value)
         Dim betrag As Double = 0.0
         Dim oItem As MyListItem = CType(cboBrg.SelectedItem, MyListItem)
+
+
+
         If BRG.deleteBrgAufschubAusgleichsbetrag(oItem.Value) Then
             Select Case DirectCast(cboBrg.SelectedItem, MyListItem).Value
                 Case 1

VERAGMonitoring/frmMain.vb

@@ -16,7 +16,10 @@ Public Class frmMain
         Try : ico.Visible = Not Visible : Catch : End Try
     End Sub
 
+
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
         'auf UPDATES prüfen:
         Dim LOGIN As New cLogin
         If CInt(LOGIN.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.version.Replace(".", "")) Then
@@ -202,6 +205,8 @@ Public Class frmMain
             Dim AtWoche_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
             'TELOTEC AT WOCHE
             Dim AtWoche_TELOTEC As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
+            'TELOTEC AT WOCHE
+            Dim AtWoche_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddDays(-6).ToShortDateString, Now.ToShortDateString, "50", "60", brg_AT)
             'AT WOCHE
             Dim woche_at As Double = AtWoche_atlas + AtWoche_zolaris + AtWoche_TELOTEC
             setLabel(lblAtWoche, String.Format("{0:C}", CDbl(woche_at)))
@@ -212,8 +217,10 @@ Public Class frmMain
             Dim AtTag_atlas As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
             'TELOTEC AT TAG
             Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
+            'NCTS_TR AT TAG
+            Dim AtTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", brg_AT)
             'AT TAG
-            Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec
+            Dim tag_at As Double = AtTag_zolaris + AtTag_atlas + AtTag_telotec + AtTag_nctsTR
             setLabel(lblAtTag, String.Format("{0:C}", CDbl(tag_at)))
         Else
             setLabel(lblAtWoche, "0.0")
@@ -379,6 +386,7 @@ Public Class frmMain
                                                 'betragBrg += zolaris
                                                 'MsgBox(zolaris)
                                                 setLabel(lblAufschubBrg_at_VeragCS, String.Format("{0:C}", CDbl(betragBrg)))
+                                                '   MsgBox(betragBrg & " -  " & cMonitoringBrg.brgusrset_aufschub_CS_at_warn1)
                                                 setAlarm2("Aufschubkonto AT - VERAG Customs Sercvie GmbH - HZA Salzburg", "3", Me.lblAufschubBrg_at_VeragCS, cMonitoringBrg.brgusrset_aufschub_CS_at_warn1, cMonitoringBrg.brgusrset_aufschub_CS_at_warn2, cMonitoringBrg.brgusrset_aufschub_CS_at_summe, lblAufschubStatus_at_VeragCS)
 
 
@@ -548,7 +556,7 @@ Public Class frmMain
                 stufe = 2
             End If
 
-            If wert < 0 Then
+            If wert < summe Then
                 lblStatus.Text = "ÜBER"
                 lblStatus.ForeColor = Color.White
                 lblStatus.BackColor = Color.DarkRed
@@ -584,6 +592,7 @@ Public Class frmMain
                 End If
             End If
         Next
+        Return False
     End Function
 
 

VERAGMonitoring/frmShowData.Designer.vb

@@ -31,10 +31,11 @@ Partial Class frmShowData
         Me.TabPage2 = New System.Windows.Forms.TabPage()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.TabPage4 = New System.Windows.Forms.TabPage()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
-        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.NCTS_TR = New System.Windows.Forms.TabPage()
         CType(Me.dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         Me.tbcntr.SuspendLayout()
@@ -92,6 +93,7 @@ Partial Class frmShowData
         Me.tbcntr.Controls.Add(Me.TabPage1)
         Me.tbcntr.Controls.Add(Me.TabPage3)
         Me.tbcntr.Controls.Add(Me.TabPage4)
+        Me.tbcntr.Controls.Add(Me.NCTS_TR)
         Me.tbcntr.Location = New System.Drawing.Point(0, 31)
         Me.tbcntr.Name = "tbcntr"
         Me.tbcntr.SelectedIndex = 0
@@ -127,6 +129,16 @@ Partial Class frmShowData
         Me.TabPage3.Text = "EZOLL"
         Me.TabPage3.UseVisualStyleBackColor = True
         '
+        'TabPage4
+        '
+        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage4.Name = "TabPage4"
+        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage4.Size = New System.Drawing.Size(1045, 0)
+        Me.TabPage4.TabIndex = 3
+        Me.TabPage4.Text = "TELOTEC"
+        Me.TabPage4.UseVisualStyleBackColor = True
+        '
         'Button1
         '
         Me.Button1.Location = New System.Drawing.Point(599, 5)
@@ -157,15 +169,15 @@ Partial Class frmShowData
         Me.Label1.TabIndex = 0
         Me.Label1.Text = "Datensätze:"
         '
-        'TabPage4
+        'NCTS_TR
         '
-        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
+        Me.NCTS_TR.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage4.Name = "TabPage4"
+        Me.NCTS_TR.Name = "NCTS_TR"
-        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
+        Me.NCTS_TR.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage4.Size = New System.Drawing.Size(1045, 0)
+        Me.NCTS_TR.Size = New System.Drawing.Size(1045, 0)
-        Me.TabPage4.TabIndex = 3
+        Me.NCTS_TR.TabIndex = 4
-        Me.TabPage4.Text = "TELOTEC"
+        Me.NCTS_TR.Text = "NCTS_TR"
-        Me.TabPage4.UseVisualStyleBackColor = True
+        Me.NCTS_TR.UseVisualStyleBackColor = True
         '
         'frmShowData
         '
@@ -196,4 +208,5 @@ Partial Class frmShowData
     Friend WithEvents datBIS As System.Windows.Forms.DateTimePicker
     Friend WithEvents datVON As System.Windows.Forms.DateTimePicker
     Friend WithEvents TabPage4 As TabPage
+    Friend WithEvents NCTS_TR As TabPage
 End Class

VERAGMonitoring/frmShowData.vb

@@ -119,6 +119,16 @@ Public Class frmShowData
                             dgv.Columns("Betrag").DefaultCellStyle.Format = "N2"
                             dgv.Columns("Betrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
                         End If
+                    Case 4 'NCTS_TR TELOTEC
+                        dgv.DataSource = BRG.loadDgvBySqlFromBrgKt_NCTS_TR_Details(datVON.Value.ToShortDateString, datBIS.Value.ToShortDateString, "50", "50", BRG_GRN)
+                        If dgv.Columns.Count > 0 Then
+                            dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Format = "N2"
+                            dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Format = "N2"
+                            dgv.Columns("ncts_GesamtAnzahlPackstuecke").DefaultCellStyle.Format = "N0"
+                            dgv.Columns("nctsSA_AbgabenBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                            dgv.Columns("ncts_GesamtRohmasse").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                            dgv.Columns("ncts_GesamtAnzahlPackstuecke").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                        End If
                 End Select
             Case "AUFSCHUB"
         End Select

cNCTSPartnerWorker/MAVI/cMAVIGetMsgType.vb

@@ -39,7 +39,17 @@ Public Class cMAVIGetMsgType
 
     Shared Function isTRNCTS_BestaetigungZollXML_ARR_INF(doc As XmlDocument) As Boolean
         If doc.HasChildNodes Then
-            If doc.GetElementsByTagName("ARR_INF").Count > 0 Then
+            If doc.GetElementsByTagName("ARR_INF").Count > 0 Or doc.GetElementsByTagName("ARRINF").Count > 0 Then
+                Return True
+            End If
+        End If
+        Return False
+    End Function
+
+
+    Shared Function isTRNCTS_BestaetigungZollXML_GUA_INF(doc As XmlDocument) As Boolean
+        If doc.HasChildNodes Then
+            If doc.GetElementsByTagName("GUA_INF").Count > 0 Or doc.GetElementsByTagName("GUAINF").Count > 0 Then
                 Return True
             End If
         End If

cNCTSPartnerWorker/cNCTS_TR.vb

@@ -174,7 +174,7 @@ Public Class cNCTS_TR
     Function GET_SHIPMENTS(Partnersystem, VorpapierArt, VorpapierNr) As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL)
         GET_SHIPMENTS = New List(Of VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL)
         Dim dt = SQL.loadDgvBySql("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and  [PrePaperNr]='" & VorpapierNr & "'", "FMZOLL")
-        MsgBox("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and  [PrePaperNr]='" & VorpapierNr & "'")
+        '   MsgBox("Select [shTr_id] FROM [tblTR_Shipment] where shTr_Partnersystem='" & Partnersystem & "' AND [PrePaperCode]='" & VorpapierArt & "' and  [PrePaperNr]='" & VorpapierNr & "'")
         If dt IsNot Nothing Then
             For Each r In dt.Rows
                 Dim SH As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(CInt(r("shTr_id")))
@@ -431,6 +431,8 @@ Public Class cNCTS_TR
     End Function
 
 
+
+
     Shared Function LOADByAnmIDFull(ncts_dyaAnmID As String, loadALL As Boolean) As cNCTS_TR
         Try
             Dim NCTS As New cNCTS_TR
@@ -527,13 +529,14 @@ Public Class cNCTS_TR
     End Function
 
     Shared Function LOADByBezugsNr_or_GUID_or_MRN(bezugsNr As String, GUID As String, MRN As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False, Optional Partnersystem As String = "") As cNCTS_TR
-        LOADByBezugsNr_or_GUID_or_MRN = New cNCTS_TR
+        LOADByBezugsNr_or_GUID_or_MRN = Nothing
 
         If bezugsNr <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByBezugsNr(bezugsNr, loadALL, checkValidStatus, Partnersystem)
-        If LOADByBezugsNr_or_GUID_or_MRN.ncts_Id <= 0 Then
+
+        If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then
             If GUID <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByGUID(GUID, loadALL, checkValidStatus, Partnersystem)
         End If
-        If LOADByBezugsNr_or_GUID_or_MRN.ncts_Id <= 0 Then
+        If LOADByBezugsNr_or_GUID_or_MRN Is Nothing Then
             If MRN <> "" Then LOADByBezugsNr_or_GUID_or_MRN = LOADByMRN(MRN, loadALL, checkValidStatus, Partnersystem)
         End If
     End Function
@@ -588,7 +591,7 @@ Public Class cNCTS_TR
                 '    Using cmd As New SqlCommand("SELECT TOP 1 * FROM (SELECT * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " ) AS T order by ncts_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc)  desc,ncts_LetzteBearbeitung desc ", conn)
                 'Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] WHERE ncts_dyaAnmID=ncts_dyaAnmID order by dySt_ts desc)  desc,ncts_LetzteBearbeitung desc ", conn)
                 Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc", conn)
-                    'MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE " & bezugsNr & " " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_status desc, (SELECT top 1 dySt_ts  FROM [tblDakosy_Statusmeldungen] inner join tblDakosy_Zollanmeldungen on dy_id = dySt_dyId WHERE ncts_dyaAnmID=dy_id order by dySt_ts desc)  desc,ncts_LetzteBearbeitung desc ")
+                    '    MsgBox("SELECT TOP 1 * FROM tblNCTS_TR WHERE ncts_ObjectName LIKE '" & bezugsNr & "' " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & If(Partnersystem <> "", " AND ncts_Partnersystem ='" & Partnersystem & "' ", "") & " order by ncts_LetzteBearbeitung desc")
                     cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then

initATLASAufschubkonten/AtlasAufschubDatenEinlesen.vb

@@ -132,9 +132,9 @@ Module AtlasAufschubDatenEinlesen
 
 
 
-        Dim cn As New SqlConnection()
+        Dim cn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
-        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
-        cn.Open()
+        'cn.Open()
         Using cn
             Using cmd As New SqlCommand(sql, cn)
                 cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)

initATLASAufschubkonten/EZollAufschubEinlesen.vb

@@ -146,7 +146,7 @@ Public Class EZollAufschubEinlesen
                             End While
                             Return daten
                         Catch ex As Exception
-                            writeLog("ERROR", "Fehler beim Laden der DB aus EZOLL: " & ex.Message)
+                            writeLog("ERROR", "Fehler beim Laden der DB aus EZOLL: " & ex.Message & ex.StackTrace)
                         Finally
                             dr.Close()
                         End Try
@@ -156,7 +156,7 @@ Public Class EZollAufschubEinlesen
                 Return daten
             End While
         Catch ex As Exception
-            writeLog("ERROR", "Fehler bei der Verbindung zur DB EZOLL: " & ex.Message)
+            writeLog("ERROR", "Fehler bei der Verbindung zur DB EZOLL: " & ex.Message & ex.StackTrace)
         End Try
         Return Nothing
     End Function
@@ -178,7 +178,7 @@ Public Class EZollAufschubEinlesen
                             " End " &
                             " commit tran "
 
-        Using conn As SqlConnection = GetNewOpenConnectionADMIN()
+        Using conn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN ' GetNewOpenConnectionADMIN()
             Using cmd As New SqlCommand(sql, conn)
 
                 Select Case daten.Abgabenart
@@ -216,9 +216,9 @@ Public Class EZollAufschubEinlesen
         cn.Open()
         Return cn
     End Function
-    Public Shared Function GetNewOpenConnectionADMIN() As SqlConnection
+    Public Shared Function GetNewOpenConnectionADMIN_OLD() As SqlConnection
         Dim cn As New SqlConnection()
-        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
         cn.Open()
         Return cn
     End Function

initATLASAufschubkonten/cBuergschaften.vb

@@ -152,10 +152,10 @@ Public Class cBuergschaften
         'MsgBox("start")
         Dim cnt As Integer = 0
         Dim dr As SqlDataReader
-        Dim sql As String = "SELECT  * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme"
+        Dim sql As String = "SELECT  * FROM  ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme"
         If Not history Then sql &= " WHERE [AnmeldungsDatum] > DATEADD(DAY, - 10, GETDATE())" 'letzten 10 Tage
 
-        Dim sqlConn As SqlConnection = GetNewOpenConnectionBUCHHALTUNG()
+        Dim sqlConn As SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionEZOLL
         '    setLabel(frmAtlasAufschub.lbBrgAtlasSuben, "einlesen ...")
 
         Using conn As SqlConnection = sqlConn

initATLASAufschubkonten/cMAVIWorker.vb

@@ -178,6 +178,38 @@ Public Class cMAVIWorker
                 End If
 
 
+
+
+                Dim Eroeffnung = Nothing
+                If doc.GetElementsByTagName("AccDatHEA158").Count > 0 Then
+                    Try
+                        Eroeffnung = Date.ParseExact(doc.GetElementsByTagName("AccDatHEA158")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+                End If
+
+
+
+                Dim ncts_Befoerderungsmittel_KennzeichenAbgang = Nothing
+                If doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78").Count > 0 Then
+                    ncts_Befoerderungsmittel_KennzeichenAbgang = doc.GetElementsByTagName("IdeOfMeaOfTraAtDHEA78")(0).InnerText
+                End If
+                Dim ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = Nothing
+                If doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85").Count > 0 Then
+                    ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = doc.GetElementsByTagName("IdeOfMeaOfTraCroHEA85")(0).InnerText
+                End If
+
+
+                Dim Wiedergestellungsdatum = Nothing
+                If doc.GetElementsByTagName("DatLimERS69").Count > 0 Then
+                    Try
+                        Wiedergestellungsdatum = Date.ParseExact(doc.GetElementsByTagName("DatLimERS69")(0).InnerText, "yyyyMMdd", System.Globalization.DateTimeFormatInfo.InvariantInfo)
+                    Catch ex As Exception
+                    End Try
+                End If
+
+
+
                 readNCTS_BestaetigungZollXML_CC029B = LRN
 
 
@@ -192,8 +224,11 @@ Public Class cMAVIWorker
                     NCTS.ncts_ObjectName = LRN
 
                     NCTS.ncts_Partnersystem = "MAVI"
-                    NCTS.ncts_Eroeffnung = Now.ToShortDateString
+                    NCTS.ncts_MRN = MRN
-
+                    NCTS.ncts_Eroeffnung = If(Eroeffnung Is Nothing, Now.ToShortDateString, Eroeffnung)
+                    NCTS.ncts_Wiedergestellungsdatum = Wiedergestellungsdatum
+                    NCTS.ncts_Befoerderungsmittel_KennzeichenAbgang = ncts_Befoerderungsmittel_KennzeichenAbgang
+                    NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend
                     'If doc.GetElementsByTagName("GuaRefNumGRNREF1").Count > 0 AndAlso doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
                     '    Dim BRG As New cNCTSPartnerWorker.cNCTS_TR_Sicherheitsangaben
                     '    BRG.nctsSA_GRN = doc.GetElementsByTagName("GuaRefNumGRNREF1")(0).InnerText
@@ -274,6 +309,7 @@ Public Class cMAVIWorker
                     '  NCTS.ncts_GUID = Guid
                     NCTS.ncts_MRN = MRN
                     NCTS.ncts_Erledigung = TMSTMP.ToShortDateString
+                    readNCTS_ErledigungsmitteilungXML_CC045A=MRN
 
                     NCTS.ncts_Partnersystem = "MAVI"
 
@@ -315,7 +351,7 @@ Public Class cMAVIWorker
             Dim xw = New XmlTextWriter(sw)
             doc.WriteTo(xw)
             Dim XmlString = sw.ToString()
-            If XmlString.Contains("<ARR_INF") Then
+            If XmlString.Contains("<ARR_INF") Or XmlString.Contains("<ARRINF") Then
                 '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
                 '  MsgBox(xmlCC015B)
                 '  Dim p = Path.GetTempFileName
@@ -340,8 +376,8 @@ Public Class cMAVIWorker
                     NCTS.ncts_GUID = GUID
 
                     NCTS.ncts_Partnersystem = "MAVI"
-                    NCTS.ncts_Ankunft = TMSTMP.toshortdatestring
+                    NCTS.ncts_Ankunft = TMSTMP.ToShortDateString
-
+                    readNCTS_BestaetigungZollXML_ARR_INF = GUID
 
                     If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
                     NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
@@ -374,6 +410,93 @@ Public Class cMAVIWorker
     End Function
 
 
+    Public Shared Function readNCTS_BestaetigungZollXML_GUA_INF(FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument) As String
+        Try
+            readNCTS_BestaetigungZollXML_GUA_INF = ""
+            Dim sw = New StringWriter()
+            Dim xw = New XmlTextWriter(sw)
+            doc.WriteTo(xw)
+            Dim XmlString = sw.ToString()
+            If XmlString.Contains("<GUA_INF") Or XmlString.Contains("<GUAINF") Then
+                '   Dim xmlCC015B = XmlString.Substring(XmlString.IndexOf("<CC015B>"), XmlString.IndexOf("</CC015B>") + 9 - XmlString.IndexOf("<CC015B>"))
+                '  MsgBox(xmlCC015B)
+                '  Dim p = Path.GetTempFileName
+
+
+                Dim GUID = ""
+                If doc.GetElementsByTagName("GUID").Count > 0 Then
+                    GUID = doc.GetElementsByTagName("GUID")(0).InnerText
+                End If
+
+                Dim TMSTMP As Date
+                If doc.GetElementsByTagName("TMSTMP").Count > 0 Then
+                    If IsDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText) Then
+                        TMSTMP = CDate(doc.GetElementsByTagName("TMSTMP")(0).InnerText)
+                    End If
+
+                    Dim AnsprechpTMP_Email = ""
+
+                    Dim NCTS As cNCTSPartnerWorker.cNCTS_TR = cNCTSPartnerWorker.cNCTS_TR.LOADByGUID(GUID, True,, "MAVI")
+                    If NCTS Is Nothing Then NCTS = New cNCTSPartnerWorker.cNCTS_TR
+                    'NCTS.ncts_ObjectName = LRN 
+                    NCTS.ncts_GUID = GUID
+
+                    NCTS.ncts_Partnersystem = "MAVI"
+                    readNCTS_BestaetigungZollXML_GUA_INF = GUID
+
+                    'If If(NCTS.ncts_Status, 0) <= 53 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_53
+                    'NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
+
+
+                    Dim GRN = ""
+                    '  Dim CurREF8 = ""
+                    Dim AmoConREF7 = ""
+
+                    If doc.GetElementsByTagName("GRN").Count > 0 Then
+                        GRN = doc.GetElementsByTagName("GRN")(0).InnerText
+                    End If
+                    If doc.GetElementsByTagName("AmoConREF7").Count > 0 Then
+                        AmoConREF7 = doc.GetElementsByTagName("AmoConREF7")(0).InnerText
+                    End If
+
+                    For Each GUA In NCTS.ncts_SICHERHEITSANGABEN
+                        If GUA.nctsSA_GRN = GRN Then
+                            GUA.nctsSA_AbgabenBetrag = AmoConREF7
+                        End If
+                    Next
+
+
+
+
+                    If NCTS.SAVE_ALL() Then
+                        '    If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
+                    Else
+                        readNCTS_BestaetigungZollXML_GUA_INF = ""
+                    End If
+
+
+
+                    'Try
+                    '    System.IO.File.Delete(p)
+                    'Catch ex As Exception
+                    '    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                    'End Try
+
+                    FORM.addDGVEinarbeitung("NCTS: Garantie_Info", readNCTS_BestaetigungZollXML_GUA_INF)
+
+                    '    End Using
+
+                End If
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            readNCTS_BestaetigungZollXML_GUA_INF = ""
+        End Try
+    End Function
+
+
+
 
     Shared Function getDatumXMLNothing(dateTmp) As Object
         If dateTmp IsNot Nothing AndAlso dateTmp.ToString.Trim <> "" AndAlso IsDate(dateTmp) Then

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -43,6 +43,7 @@ Public Class frmDYNachrichtenVerarbeitung
         'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_Ablage\"
         Me.ERROR_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ERROR_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
         'VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\TESTSYSTEM\Nachrichtendaten_ERROR\"
+
         If Not IO.Directory.Exists(VERARBEITUNGS_PFAD) Then IO.Directory.CreateDirectory(VERARBEITUNGS_PFAD)
         If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD)
         If Not IO.Directory.Exists(ERROR_PFAD) Then IO.Directory.CreateDirectory(ERROR_PFAD)
@@ -5082,7 +5083,8 @@ Public Class frmDYNachrichtenVerarbeitung
                                 Dim MailTo = "eu@verag.ag"
                                 Select Case EZA_TMP.eza_firma
                                     Case "IMEX" : MailTo = "info@imex-group.at"
-                                    Case "ATILLA" : MailTo = "info@imex-group.at"
+                                    Case "UNISPED" : MailTo = "office@unisped.at"
+                                    Case "ATILLA" : MailTo = "atilla@verag.ag"
                                     Case "VERAG"
                                         Select Case EZA_TMP.eza_niederlassung
                                             Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5273,7 +5275,8 @@ Public Class frmDYNachrichtenVerarbeitung
                                 Dim MailTo = "eu@verag.ag"
                                 Select Case EZA_TMP.eza_firma
                                     Case "IMEX" : MailTo = "info@imex-group.at"
-                                    Case "ATILLA" : MailTo = "info@imex-group.at"
+                                    Case "ATILLA" : MailTo = "atilla@verag.ag"
+                                    Case "UNISPED" : MailTo = "office@unisped.at"
                                     Case "VERAG"
                                         Select Case EZA_TMP.eza_niederlassung
                                             Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5464,7 +5467,8 @@ Public Class frmDYNachrichtenVerarbeitung
                                 Dim MailTo = "eu@verag.ag"
                                 Select Case EZA_TMP.eza_firma
                                     Case "IMEX" : MailTo = "info@imex-group.at"
-                                    Case "ATILLA" : MailTo = "info@imex-group.at"
+                                    Case "ATILLA" : MailTo = "atilla@verag.ag"
+                                    Case "UNISPED" : MailTo = "office@unisped.at"
                                     Case "VERAG"
                                         Select Case EZA_TMP.eza_niederlassung
                                             Case "WAI" : MailTo = "waidhaus@verag.com"
@@ -5596,9 +5600,11 @@ Public Class frmDYNachrichtenVerarbeitung
 
 
 
-        Dim cn As New System.Data.SqlClient.SqlConnection()
+        Dim cn As System.Data.SqlClient.SqlConnection = VERAG_PROG_ALLGEMEIN.SQL.GetNewOpenConnectionADMIN
-        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+
-        cn.Open()
+        'Dim cn As New System.Data.SqlClient.SqlConnection()
+        'cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        'cn.Open()
         Using cn
             Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
                 cmd.Parameters.AddWithValue("@brgak_datum", brgak_datum)

initATLASAufschubkonten/frmRoutineManager.vb

@@ -101,7 +101,7 @@ Public Class frmRoutineManager
             setLabel(lblStatusEZOLL, "OK", "green")
             ' frmAtlasAufschub.lblStatusEZOLL.ForeColor = Color.Green
         Catch ex As Exception
-            writeLog("ERROR", "Fehler EZollAufschub: " & ex.Message)
+            writeLog("ERROR", "Fehler EZollAufschub: " & ex.Message & ex.StackTrace)
             setLabel(lblStatusEZOLL, "ERROR", "red")
             '  frmAtlasAufschub.lblStatusEZOLL.ForeColor = Color.Red
         Finally

initATLASAufschubkonten/frmStartOptions.vb

@@ -89,6 +89,20 @@ Public Class frmStartOptions
                 f.Show()
                 AddHandler f.FormClosed, AddressOf closeMe
 
+            Case "NCTSTR_EINARBEITUNG_TEST"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+            Case "NCTSTR_EINARBEITUNG_PROD"
+                VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True)
+                Me.Visible = False
+                f.Show()
+                AddHandler f.FormClosed, AddressOf closeMe
+
+
             Case "DY_EINARBEITUNG_UNISPED"
                 VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
                 VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
@@ -185,7 +199,7 @@ Public Class frmStartOptions
     Sub importFileFromEZOLL(datum As Date)
 
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-        Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN    FROM [ezoll].[dbo].[zzAktivitaet]     INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID 
+        Dim dt As DataTable = sql.loadDgvBySql("SELECT [zzAktivitaet].LizenzNr,[zzAktivitaet].Operatorid,[zzAktivitaet].AnmID,MsgTyp,[zzAktivitaet].ErstelltAm,pfad,LRN,CRN    FROM [zzAktivitaet]     INNER JOIN zsAnmRefs On zsAnmrefs.AnmID=zzAktivitaet.AnmID 
                                                 where MsgTyp IN ('EZ922','EZ923','TR109') and ErstelltAm>='" & datum.ToShortDateString & " 00:00:00'  and pfad is not null", "EZOLL")
         If dt IsNot Nothing Then
             For Each row In dt.Rows
@@ -1197,4 +1211,11 @@ Public Class frmStartOptions
 
     End Function
 
+    Private Sub LinkLabel29_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel29.LinkClicked
+        Me.Visible = False
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+        Dim f As New frmTRNCTS_NachrichtenVerarbeitung
+        f.ShowDialog()
+        Me.Visible = True
+    End Sub
 End Class

initATLASAufschubkonten/frmTCNachrichtenVerarbeitung.vb

@@ -889,7 +889,7 @@ Public Class frmTCNachrichtenVerarbeitung
 
 
         Dim cn As New System.Data.SqlClient.SqlConnection()
-        cn.ConnectionString = "Data Source=BUCHHALTUNG\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
+        cn.ConnectionString = "Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
         cn.Open()
         Using cn
             Using cmd As New System.Data.SqlClient.SqlCommand(sql, cn)

initATLASAufschubkonten/frmTRNCTS_NachrichtenVerarbeitung.vb

@@ -99,6 +99,39 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
     Function getNachrichtenDatenFromMAVIServices() As Integer
         Dim cnt = 0
         Try
+            Dim SERVER_Path = ""
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+
+                SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\"
+            Else
+
+                SERVER_Path = "\\ftps.verag.ag\FTP\MAVI\IN\"
+            End If
+
+
+            For Each f In IO.Directory.GetFiles(SERVER_Path)
+                Dim fi As New IO.FileInfo(f)
+                If Not fi.Name.StartsWith(".") Then
+                    Dim zielPfad = VERARBEITUNGS_PFAD & "\" & fi.Name
+                    While IO.File.Exists(zielPfad)
+                        zielPfad = VERARBEITUNGS_PFAD & "\" & Now.ToString("yyyyMMdd_HHmmss_") & fi.Name
+                    End While
+                    IO.File.Copy(f, zielPfad)
+                    If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+                        If IO.File.Exists(zielPfad) Then IO.File.Delete(f)
+                    End If
+
+                    ListBox3.Items.Add(frmStartOptions.cut_file((New FileInfo(zielPfad)).Name)) 'zur Liste hinzufügen
+
+                    cnt += 1
+                End If
+            Next
+
+
+            Return cnt
+
+
             Dim NCTSTR_server = ""
             Dim NCTSTR_name = ""
             Dim NCTSTR_pwd = ""
@@ -120,7 +153,7 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
                 Do While reader.Peek <> -1
                     Dim fName = reader.ReadLine
 
-
+                    MsgBox(fName)
                 Loop
             End Using
 
@@ -261,96 +294,105 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
             Exit Sub
         End If
 
-        For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
-            Try
-                Dateiname = d
-                cWorker_NCTS.Dateiname = d
-                If IO.File.Exists(d) Then
-                    Dim found = False
-                    Dim fi As FileInfo = New FileInfo(d)
 
-                    '   EDIFACT
+        For NACHRICHTENTYP = 1 To 10 'Nach Nachrichtentyp abarbeteiten
-                    ' If fi.Extension = ".edi" Then
-                    Dim alreadyMoved = False
-                    If fi.Extension.ToLower = ".xml" Then
-                        Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
 
-                        Dim doc As New XmlDocument()
+            For Each d In System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD)
-                        Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
+                Try
+                    Dateiname = d
+                    cWorker_NCTS.Dateiname = d
+                    If IO.File.Exists(d) Then
+                        Dim found = False
+                        Dim fi As FileInfo = New FileInfo(d)
 
-                        doc.LoadXml(SanitizeXmlString(XML_Code))
+                        '   EDIFACT
-                        Dim VERSION As String = ""
+                        ' If fi.Extension = ".edi" Then
+                        Dim alreadyMoved = False
 
-                        '------------------------------------------------------------------------------------------------------------------------------
+                        Dim NACHRICHTENTYP_notfound = False
-                        '                                                                  eZOLL
+
-                        '------------------------------------------------------------------------------------------------------------------------------
+                        If fi.Extension.ToLower = ".xml" Then
+                            Dim xmlWriterSettings As XmlWriterSettings = New XmlWriterSettings With {.Encoding = System.Text.Encoding.UTF8, .CheckCharacters = True}
+
+                            Dim doc As New XmlDocument()
+                            Dim XML_Code = System.IO.File.ReadAllText(d, System.Text.UTF8Encoding.Default)
+
+                            doc.LoadXml(SanitizeXmlString(XML_Code))
+                            Dim VERSION As String = ""
+
+                            '------------------------------------------------------------------------------------------------------------------------------
+                            '                                                                  eZOLL
+                            '------------------------------------------------------------------------------------------------------------------------------
 
 
-                        '------------------------------------------
+                            '------------------------------------------
-                        '------------------ Anmeldung ------------------
+                            '------------------ Anmeldung ------------------
-                        '------------------------------------------
+                            '------------------------------------------
-                        'MAVI: CC015B - Versandanmeldung Final
+                            'MAVI: CC015B - Versandanmeldung Final
 
-                        'NCTS: Versandanmeldung
+                            Select Case NACHRICHTENTYP
-                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
+                                Case 1
-                            MsgBox("CC015B")
+                                    'NCTS: Versandanmeldung
-                            If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
+                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B(doc) Then
-                        End If
+                                        If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B(Me, doc) <> "" Then found = True
+                                    End If
 
-                        'NCTS: Versandanmeldung - Ergänzung GUID
+                                Case 2
-                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
+                                    'NCTS: Versandanmeldung - Ergänzung GUID
-                            MsgBox("CC015B_RES")
+                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_VersandanmeldungXML_CC015B_RES(doc) Then
-                            If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True
+                                        If cMAVIWorker.readNCTS_VersandanmeldungXML_CC015B_RES(Me, doc) <> "" Then found = True
+                                    End If
+                                Case 3
+                                    'NCTS: BestätigungZoll
+                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
+                                        If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
+                                    End If
+                                Case 4
+                                    'NCTS: Guarantee
+                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
+                                        If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True
+                                    End If
+                                Case 5
+                                    'NCTS: Ankunftsanzeige
+                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
+                                        If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True
+                                    End If
+
+                                Case 6
+                                    'NCTS: Erledigungsmitteilung
+                                    If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
+                                        If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
+                                    End If
+
+                                Case 10
+                                    NACHRICHTENTYP_notfound = True ' alle nciht zu verarbeitenden
+                            End Select
                         End If
 
 
-
+                        If found Then
-                        'NCTS: BestätigungZoll
+                            If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
-                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_CC029B(doc) Then
+                            frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
-                            MsgBox("CC029B")
+                            cntDatenEingelesen += 1
-                            If cMAVIWorker.readNCTS_BestaetigungZollXML_CC029B(Me, doc) <> "" Then found = True
+                        Else
-                        End If
+                            If NACHRICHTENTYP_notfound Then
-
+                                frmStartOptions.moveFile(d, ERROR_PFAD) ' nciht gefunden, oder durch ERROR nicht eingearbt,.
-                        ''NCTS: Guarantee
+                                dsNichtErkannt += 1
-                        'If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_GUA_INF(doc) Then
-                        '    MsgBox("GUA_INF")
-                        '    If cMAVIWorker.readNCTS_BestaetigungZollXML_GUA_INF(Me, doc) <> "" Then found = True
-                        'End If
-
-                        'NCTS: Ankunftsanzeige
-                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_BestaetigungZollXML_ARR_INF(doc) Then
-                            MsgBox("ARR_INF")
-                            If cMAVIWorker.readNCTS_BestaetigungZollXML_ARR_INF(Me, doc) <> "" Then found = True
-                        End If
-
-
-                        'NCTS: Erledigungsmitteilung
-                        If Not found And cNCTSPartnerWorker.cMAVIGetMsgType.isTRNCTS_ErledigungsmitteilungXML_CC045A(doc) Then
-                            MsgBox("CC045A")
-                            If cMAVIWorker.readNCTS_ErledigungsmitteilungXML_CC045A(Me, doc) <> "" Then found = True
-                        End If
-                    End If
-
-
-                    If True Then
-                        If Not alreadyMoved Then
-                            If found Then
-                                If Not IO.Directory.Exists(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then IO.Directory.CreateDirectory(ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
-                                frmStartOptions.moveFile(d, ZIEL_PFAD & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
-                            Else
-                                frmStartOptions.moveFile(d, ERROR_PFAD)
                             End If
+
                         End If
+                     '   If found Then Else dsNichtErkannt += 1
 
+                        Me.Refresh()
                     End If
+                Catch ex As Exception
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                End Try
+            Next
+
 
-                    Me.Refresh()
-                    If found Then cntDatenEingelesen += 1 Else dsNichtErkannt += 1
-                End If
-            Catch ex As Exception
-                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-            End Try
         Next
+
     End Sub
 
 
@@ -362,7 +404,6 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
             Dim xw = New XmlTextWriter(sw)
             doc.WriteTo(xw)
             Dim XmlString = sw.ToString()
-            MsgBox(XmlString)
         End If
         Return False
     End Function
@@ -522,8 +563,8 @@ Public Class frmTRNCTS_NachrichtenVerarbeitung
         End If
     End Sub
 
+    Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint
 
-
+    End Sub
-
 End Class