SEndungsdetails ATilla

AVISOUPDATER/UPDATERfrm.vb

@@ -35,8 +35,10 @@ Public Class UPDATERfrm
             CopyIncremental = False
         End If
 
-        If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" Then
+        If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" OrElse
-            MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
+            System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO_INSTALL\" Then
+            MsgBox("Programm kann im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " nicht geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
+            Me.Close()
             Exit Sub
         End If
 

Aviso/Aviso.vbproj

@@ -76,7 +76,8 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>aviso.ico</ApplicationIcon>
+    <ApplicationIcon>
+    </ApplicationIcon>
   </PropertyGroup>
   <PropertyGroup />
   <PropertyGroup>
@@ -596,7 +597,6 @@
     </Compile>
     <Compile Include="cBinding.vb" />
     <Compile Include="cEasyBinding.vb" />
-    <Compile Include="CHMRC.vb" />
     <Compile Include="Classes\cSendungsoptions.vb" />
     <Compile Include="cProgramFunctions.vb" />
     <Compile Include="cServerClient.vb" />

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -319,7 +319,12 @@ Public Class frmAvisoWeiterleiten
             End If
         ElseIf sender Is btnAMBAR Then
             addBtn(flpFirma, "F", "AMBAR", "AMBAR", True)
-
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='AMBAR' order by team_id", "ADMIN")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpTeams, "T", t("team_id"), t("team_bezeichnung"),, "AMBAR")
+                Next
+            End If
         ElseIf sender Is Button2 Then
             addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG")
 

Aviso/GVMS/frmGVMS.vb

@@ -338,7 +338,7 @@
             Dim dt = SQL.loadDgvBySql("SELECT distinct([gvms_notification_boxid]) FROM [tblGVMS] where gvms_GMR is null and gvms_notification_boxid is not null", "FMZOLL")
             If dt IsNot Nothing Then
                 For Each row In dt.Rows
-                    cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
+                    VERAG_PROG_ALLGEMEIN.cHMRC.GET_NOTIFICATIONS(row("gvms_notification_boxid"))
                 Next
             End If
         Catch ex As Exception
@@ -377,7 +377,7 @@
         If MyDatagridview1.SelectedRows.Count() = 1 Then
             Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
             If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
-                cHMRC.DELETE_GMR(GVMS)
+                VERAG_PROG_ALLGEMEIN.cHMRC.DELETE_GMR(GVMS)
             End If
         ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
         Else
@@ -387,7 +387,7 @@
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        cHMRC.GET_GVMS_LIST()
+        VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_LIST()
 
     End Sub
 
@@ -395,7 +395,7 @@
         If MyDatagridview1.SelectedRows.Count() = 1 Then
             Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
             If GVMS.hasEntry AndAlso If(GVMS.gvms_GMR, "") <> "" Then
-                cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
+                VERAG_PROG_ALLGEMEIN.cHMRC.GET_GVMS_GMR(GVMS.gvms_GMR)
             End If
         ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
         Else
@@ -404,14 +404,14 @@
     End Sub
 
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
-        cHMRC.getGVMS_RefData()
+        VERAG_PROG_ALLGEMEIN.cHMRC.getGVMS_RefData()
     End Sub
 
     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
         If MyDatagridview1.SelectedRows.Count() = 1 Then
             Dim GVMS = New VERAG_PROG_ALLGEMEIN.cGVMS(MyDatagridview1.SelectedRows(0).Cells("gvms_id").Value)
             If GVMS.hasEntry AndAlso If(GVMS.gvms_notification_boxid, "") <> "" AndAlso If(GVMS.gvms_notification_id, "") <> "" Then
-                cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
+                VERAG_PROG_ALLGEMEIN.cHMRC.Acknowledge_NOTIFICATIONS(GVMS.gvms_notification_boxid, GVMS.gvms_notification_id)
             End If
         ElseIf MyDatagridview1.SelectedRows.Count() = 0 Then
         Else

Aviso/GVMS/frmGVMSNew.vb

@@ -221,9 +221,9 @@ Public Class frmGVMSNew
 
         If GVMS.SAVE() Then
             If If(GVMS.gvms_GMR, "") <> "" Then
-                cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
+                VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS, GVMS.gvms_GMR) 'UPDATE
             Else
-                cHMRC.SEND_GVMS(GVMS)
+                VERAG_PROG_ALLGEMEIN.cHMRC.SEND_GVMS(GVMS)
             End If
 
             Return True

Aviso/My Project/AssemblyInfo.vb

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

Aviso/My Project/Resources.Designer.vb

@@ -1709,7 +1709,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 6.0 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 7.1 ähnelt.
         '''</summary>
         Public ReadOnly Property UpdaterVersion() As String
             Get

Aviso/My Project/Resources.resx

@@ -545,7 +545,7 @@
     <value>..\Resources\mitarbeiter_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="UpdaterVersion" xml:space="preserve">
-    <value>6.0</value>
+    <value>7.1</value>
   </data>
   <data name="DGS_Instructions_Import" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\resources\dgs_instructions_import.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

Aviso/frmEintragAviso.vb

@@ -1078,29 +1078,32 @@ Public Class frmEintragAviso
             '   Dim FIRMA_CBO = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
 
             Select Case FIRMA_TMP
-                Case "ATILLA"
+                'Case "ATILLA"
-                    Try
+                '    Try
-                        'ATILLA AKTENZETTEL DRUCKEN
+                '        'ATILLA AKTENZETTEL DRUCKEN
-                        If Neuanlage Then
+                '        If Neuanlage Then
-                            If ATILLA_NEUERAKTENDECKEL Then
+                '            If ATILLA_NEUERAKTENDECKEL Then
-                                Dim abfnr_tmp As Object = DBNull.Value
+                '                Dim abfnr_tmp As Object = DBNull.Value
-                                Dim sndId = -1
+                '                Dim sndId = -1
-                                Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
+                '                Dim filiale_tmp As Integer = 4801 'VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
-                                If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
+                '                If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
-                                getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
+                '                getFilialeAndAbfertNrATILLA(1, abfnr_tmp, filiale_tmp) ' FilialeNr u AbfNr werden geladen
-                                If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT 
+
-                                    TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
+                '                MsgBox(filiale_tmp & "/" & abfnr_tmp)
-                                    loadInSND(TMP_SND_Atilla)
+
-                                End If
+                '                If AvisoDAL.insertSendungEmpty(tmpId, 1, filiale_tmp, abfnr_tmp, 0, Nothing, , , , sndId) Then ' INSERT 
-                            End If
+                '                    TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
-                        Else
+                '                    loadInSND(TMP_SND_Atilla)
-                            loadInSND(TMP_SND_Atilla)
+                '                End If
-                        End If
+                '            End If
-                        If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
+                '        Else
-                    Catch ex As Exception
+                '            loadInSND(TMP_SND_Atilla)
-                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                '        End If
-                    End Try
+                '        If cbxAktenzettelDrucken.Checked Then SendungOptions.PrintSendungATILLA("PRINT", TMP_SND_Atilla, myAviso, cboPrinter.Text)
-                Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX"
+                '    Catch ex As Exception
+                '        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                '    End Try
+                Case "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE", "VERIMEX", "ATILLA"
                     Dim anzahlSendungen = ADMIN.getValueTxtBySql("SELECT count(*) FROM tblSendungen WHERE tblSnd_AvisoID=" & tmpId, "AVISO") ' bei Neuanlage=0
 
                     'Die Sendungen eintragen:
@@ -1112,6 +1115,11 @@ Public Class frmEintragAviso
                                     showSendungsdetails = True ' Damit der benutzer gleich die Sendungen sieht und ggf löschen kann.
                                 Else
                                     Dim filiale_tmp As Integer = VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE
+                                    Select Case FIRMA_TMP
+                                        Case "ATILLA"
+                                            filiale_tmp = 4801
+                                            If cboGrenzstelle._value = "NEU" Then filiale_tmp = 4802
+                                    End Select
 
                                     Dim gesAnzSnd = initSndAnzahl()
 
@@ -1136,7 +1144,17 @@ Public Class frmEintragAviso
                                             tblSnd_Auftraggeber = kdAvisierer.Text
                                         End If
 
-                                        AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, fremd) ' INSERT 
+                                        Dim sndId = -1
+
+                                        If AvisoDAL.insertSendungEmpty(tmpId, cnt, filiale_tmp, abfnr_tmp, 0, abfArt, tblSnd_AuftraggeberKdNr, tblSnd_Auftraggeber, remd, sndId) Then ' INSERT 
+
+                                            If FIRMA_TMP = "ATILLA" Then
+                                                TMP_SND_Atilla = New VERAG_PROG_ALLGEMEIN.cSendungen(sndId)
+                                                loadInSND(TMP_SND_Atilla)
+
+                                            End If
+
+                                        End If
 
                                     Next
                                 End If
@@ -1259,9 +1277,9 @@ Public Class frmEintragAviso
 
     Sub loadInSND(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
         If SND IsNot Nothing Then
-            SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
+            ' SND.tblSnd_Warenbezeichnung = (UsrCntlEintragAvisoAtilla.txtWarenbezeichnung.Text)
-            SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
+            '   SND.tblSnd_Colli = (UsrCntlEintragAvisoAtilla.txtColli.Text)
-            SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
+            '  SND.tblSnd_Gewicht = (UsrCntlEintragAvisoAtilla.txtGewicht.Text)
             SND.tblSnd_Anmerkung = (UsrCntlEintragAvisoAtilla.txtAnmerkung.Text)
 
 

Aviso/frmHauptfenster.vb

@@ -397,7 +397,7 @@ Public Class frmHauptfenster
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "ATILLA" ' Case "VERAG", "IMEX"
-                lblErweitereSuche.Visible = False
+                ' lblErweitereSuche.Visible = False
                 MDMParkplatzkartenToolStripMenuItem.Visible = False
 
                 '  SplitContainer3.Panel1Collapsed = True
@@ -5231,6 +5231,7 @@ Public Class AvisoStatusFunctions
 
     Public Sub sendAnkunftBenachrichtigung(AvisoId)
         'VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, -1, 3, "T", TeamID, "*ANKUNFT*", 0, "", "AUTO: LKW Ankunft - nicht vorgeschrieben!")
+
         Dim alreadySent As New List(Of Integer)
         Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
         For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId).Rows
@@ -5342,7 +5343,9 @@ Public Class AvisoStatusFunctions
         End If
 
         'E-Mail
-        sendAnkunftBenachrichtigung(Aviso.AvisoID)
+        If Aviso.FIRMA <> "ATILLA" Then
+            sendAnkunftBenachrichtigung(Aviso.AvisoID)
+        End If
 
         If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
             Rücksetzen = True
@@ -6246,54 +6249,55 @@ Public Class AvisoStatusFunctions
 
         If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben Then
             'Prüfung 
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+            If False Then
-                If value Then
+                'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
-                    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+                '    If value Then
-                    If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
+                '        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-                        If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
+                '        If SQL.getValueTxtBySql("SELECT isnull(count(*),0) FROM Speditionsbuch WHERE AvisoID=" & AvisoID, "FMZOLL") = 0 Then
-                            Return False
+                '            If vbYes <> MsgBox("Keine Speditionbucheinträge vorhanden!" & vbNewLine & vbNewLine & "Möchten Sie trotzdem fortfahren?", vbYesNoCancel) Then
-                        End If
+                '                Return False
-                    End If
+                '            End If
+                '        End If
 
-                    Aviso.Abgeschlossen = value
+                '        Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
+                '        AvisoDAL.SpeichernAviso(Aviso)
-                    AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                '        AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
-                Else
+                '    Else
-                    Aviso.Abgeschlossen = value
+                '        Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
+                '        AvisoDAL.SpeichernAviso(Aviso)
-                    AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                '        AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
-                End If
+                '    End If
             Else
-                If value Then
+                    If value Then
-                    For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
+                        For Each r In AvisoDAL.loadDataTableBySQL("SELECT tblSnd_SpeditionsbuchEingetragen FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoID & " AND [tblSnd_Fremdspedition]=0").Rows
-                        If Not CBool(r(0)) Then
+                            If Not CBool(r(0)) Then
-                            MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
+                                MsgBox("Sie müssen erst alle Sendungen ins Speditionsbuch eintragen!")
-                            Return False
+                                Return False
-                        End If
+                            End If
-                    Next
+                        Next
-                    Aviso.Abgeschlossen = value
+                        Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
+                        AvisoDAL.SpeichernAviso(Aviso)
 
-                    '--> Nicht mehr benötigt, alte Archiv Software IMEX
+                        '--> Nicht mehr benötigt, alte Archiv Software IMEX
-                    'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+                        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-                    '    Case "IMEX" : createNLC(Aviso)
+                        '    Case "IMEX" : createNLC(Aviso)
-                    'End Select
+                        'End Select
 
-                    AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                        AvisoDAL.addAenderung(AvisoID, "AKT abgeschlossen", "auf 'AKT ABGESCHLOSSEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
 
-                    'Benachrichtigungen erledigen
+                        'Benachrichtigungen erledigen
-                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
+                        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.BESTAETIGEN_BENACHRICHTIGUNG_ALL(Aviso.AvisoID, False)
-                Else
+                    Else
-                    Aviso.Abgeschlossen = value
+                        Aviso.Abgeschlossen = value
-                    AvisoDAL.SpeichernAviso(Aviso)
+                        AvisoDAL.SpeichernAviso(Aviso)
-                    AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                        AvisoDAL.addAenderung(AvisoID, "AKT erneut geöffnet", "auf 'AKT OFFEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+                    End If
                 End If
-            End If
 
 
-            Return True
+                Return True
-        Else
+            Else
-            MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
+                MsgBox("LKW-Status muss auf 'Freigegeben' sein.", vbInformation)
             Return False
         End If
 

Aviso/frmLogin.vb

@@ -62,6 +62,17 @@ Public Class frmLogin
         lblVersion.ContextMenuStrip = ctxUpdate
         If Application.ProductVersion.StartsWith("0") Then lblVersion.Text += " BETA"
 
+
+        If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO\" OrElse
+            System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\AVISO_INSTALL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\AVISO_INSTALL\" Then
+            MsgBox("Programm kann im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " nicht gestartet werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
+            Application.Exit()
+            Me.Close()
+            Exit Sub
+        End If
+
+
+
         If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
 
         Dim pfadDatei As String = Application.StartupPath & "\Standort.txt"

Aviso/frmSendungsdetailsNEU.resx

@@ -117,7 +117,45 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>404, 17</value>
+  </metadata>
+  <metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>765, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
+        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
+        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
+        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
+        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
+        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
+        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
+        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
+        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
+        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
+        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
+        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
+</value>
+  </data>
+  <data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
+        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
+        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
+        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
+        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
+        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
+        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
+        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
+        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
+        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
+        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
+        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
+</value>
+  </data>
   <data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1531,6 +1569,9 @@
         mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
 </value>
   </data>
+  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>296, 17</value>
+  </metadata>
   <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1762,44 +1803,6 @@
         rGp33g/w9ql7NoGnXyWw0LUP726+A48ybH5BknCWWY7Lq2TVaSzNVMvnjcLjoYqrHD5NUxOdyqYOtXoR
         rY7H4jHYSnSdT2lHL8uwNOUI/FU+hyHGUMfjc2xVDEQxsJvDOOIVCrQdKLqYyNPBKNaFOo4UMPToVZT5
         eWpiMRXkm9o//9k=
-</value>
-  </data>
-  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>404, 17</value>
-  </metadata>
-  <metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>765, 17</value>
-  </metadata>
-  <data name="FlatButton4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
-        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
-        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
-        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
-        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
-        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
-        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
-        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
-        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
-        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
-        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
-        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
-</value>
-  </data>
-  <data name="FlatButton1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        /9j/4AAQSkZJRgABAQEAAAAAAAD/7gAOQWRvYmUAZAAAAAAB/9sAQwABAQEBAQEBAQEBAQEBAQEBAQEB
-        AQECAQEBAQECAgICAgICAgICAgIDAgICAwMDAwMDBQUFBQUFBQUFBQUFBQUF/9sAQwEBAQECAQIDAgID
-        BAQDBAQFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUFBQUF/8AAEQgA
-        GQAZAwERAAIRAQMRAf/EABgAAAMBAQAAAAAAAAAAAAAAAAAICQcK/8QAKRAAAQUAAgIABAcBAAAAAAAA
-        AQIDBAUGAAcRITESIxVBYSIyEzMIFv/EABQBAQAAAAAAAAAAAAAAAAAAAAD/xAAUEQEAAAAAAAAAAAAA
-        AAAAAAAA/9oADAMBAAIRAxEAPwDsSKq/7Vudfqtf2Ky3W77t1EhyJ2zp6WBFraLTW8SKwzFh3EeKwhmM
-        w202htsDwB64CSWH+lrc3ilVadknOB9Pyx5/c+5cunIwP6vrN6dDCVKHw+kQPz4DTyLim0vTGs7ByGt7
-        VhTIWM1NlDU73LrX3qq7qoLzqUqQ5dracLLyQfCklJ/EEHxwKNcCflzQva7Adn5eM8iPKtd/3dGjOrHl
-        CX/+uu1oCvY9FQAPASxnqXraJBDWh1mqq9RFZSzZZtvKOy5ItAAC0w4glhxLi/61FYBHs+OAxOYzVhjv
-        8072rtGHIkiXkewbJuHJAEuJGnQZBabeAJSFhAHzAHgVN4Eiu2d5aQqnXZPF6TM12hk9sdyt3a5uzqc/
-        ZU0FWpt3EJ+SbMjvIVJS6FIUgeQkefXkHgLI1adyMwzAa7QpUxShaP4h3HSftc+Pv7r54GoZDeaeu697
-        KyW71mPsIEnA6z7BMPYFReXTtvJirbbhIRHnPvuh4LUUeR6ICR8QOBcDgHAOAcA4H//Z
 </value>
   </data>
   <data name="btnDelQS.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -2074,6 +2077,9 @@
   <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
+  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>404, 17</value>
+  </metadata>
   <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>596, 17</value>
   </metadata>

Aviso/frmSendungsdetailsNEU.vb

@@ -177,8 +177,42 @@ Public Class frmSendungsdetailsNEU
             Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG_LIST(CURRENT_INDEX).FilialenNr,, "")
             lblErr_AvisiererKdNr.Visible = False
             lblErr_EmpfKdNr.Visible = False
+            lblErr_Auftrageber.Visible = False
             lblErr_FraechterKdNr.Visible = False
 
+            If showErr Then
+
+                lblFilialeAbfNr.Visible = False
+                lblAbfArtLand.Visible = False
+            End If
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+
+
+                If cboFiliale._value = "" Then
+                    rtbValidierung.Text &= "Wählen Sie eine FilialenNr!" & vbNewLine : pnlValidation.Visible = True
+                    If showErr Then lblFilialeAbfNr.Visible = True : Return False
+                End If
+
+                If btnNeueAbfertigungNrVergeben.Visible OrElse txtAbfertigungsnummer.Text = "" Then
+                    rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Nummer!" & vbNewLine : pnlValidation.Visible = True
+                    If showErr Then lblFilialeAbfNr.Visible = True : Return False
+                End If
+                If cboAbfertigungsart._value = "" Then
+                    rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Art!" & vbNewLine : pnlValidation.Visible = True
+                    If showErr Then lblAbfArtLand.Visible = True : Return False
+                End If
+                If cboAbfertigungsLand._value = "" Then
+                    rtbValidierung.Text &= "Wählen Sie eine Abfertigungs-Land!" & vbNewLine : pnlValidation.Visible = True
+                    If showErr Then lblAbfArtLand.Visible = True : Return False
+                End If
+                If txtAuftraggeber.Text = "" Then
+                    rtbValidierung.Text &= "Wählen Sie einen Auftraggeber!" & vbNewLine : pnlValidation.Visible = True
+                    If showErr Then lblErr_Auftrageber.Visible = True : Return False
+                End If
+
+
+            End If
 
             '--------------------------------------------------
 
@@ -202,6 +236,7 @@ Public Class frmSendungsdetailsNEU
                 Case Else
                     If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Aviserer KdNr fehlt" & vbNewLine : pnlValidation.Visible = True ' lblErr_AvisiererKdNr.Visible = True : Return False
                     If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr <= 0 Then rtbValidierung.Text &= "- Empfänger KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
+                    If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr <= 0 Then rtbValidierung.Text &= "- Auftraggeber KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_EmpfKdNr.Visible = True : Return False
                     If CInt(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr, "0")) <= 0 Then rtbValidierung.Text &= "- Frächter KdNr fehlt" & vbNewLine : pnlValidation.Visible = True 'lblErr_FraechterKdNr.Visible = True : Return False
             End Select
             If Not SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then
@@ -474,6 +509,7 @@ Public Class frmSendungsdetailsNEU
 'rtbAnmerkungDispoliste.Visible = False
 
                 Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
+                    TabControl1.SelectedTab = tbAnhang
                 Case "VERIMEX"
                     TabControl1.SelectedTab = tbAnhang
                 Case "UNISPED"
@@ -1035,7 +1071,7 @@ Public Class frmSendungsdetailsNEU
                                       MsgBox("Diese Sendung kann nicht gelöscht werden!")
                                       Exit Sub
                                   Else
-                                      If SAVE_ME() Then ' Änderungen speichern
+                                      If True Then 'SAVE_ME() Then ' Änderungen speichern
 
                                           Dim sendBez = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ".  "
                                           sendBez &= ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
@@ -1283,12 +1319,14 @@ Public Class frmSendungsdetailsNEU
                     whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5701,5801,7001) "
                     If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
                         whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) "
+                    ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
+                        whereFiliale = " AND FilialenNr IN (4801,4802,4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701,7001) "
                     End If
 
                 Case Else
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                         Case "ATILLA"
-                            whereFiliale = " AND FilialenNr IN (4801) "
+                            whereFiliale = " AND FilialenNr IN (4801,4802) "
                         Case "AMBAR"
                             whereFiliale = " AND FilialenNr IN (5701) "
                         Case Else

Aviso/usrCntlSND_ATBGestellung.Designer.vb

@@ -53,9 +53,10 @@ Partial Class usrCntlSND_ATBGestellung
         '
         'btnGesSicherheit
         '
-        Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 3)
+        Me.btnGesSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnGesSicherheit.Location = New System.Drawing.Point(397, 3)
         Me.btnGesSicherheit.Name = "btnGesSicherheit"
-        Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49)
+        Me.btnGesSicherheit.Size = New System.Drawing.Size(149, 49)
         Me.btnGesSicherheit.TabIndex = 25
         Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)"
         Me.btnGesSicherheit.UseVisualStyleBackColor = True

Aviso/usrcntlAktDetails.Designer.vb

@@ -28,12 +28,12 @@ Partial Class usrcntlAktDetails
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
         Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -45,22 +45,28 @@ Partial Class usrcntlAktDetails
         Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
         Me.Label11 = New System.Windows.Forms.Label()
         Me.lnlSendungText = New System.Windows.Forms.Label()
+        Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pnlSBG = New System.Windows.Forms.Panel()
         Me.lblSndFremd = New System.Windows.Forms.Label()
         Me.Label21 = New System.Windows.Forms.Label()
+        Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.Label19 = New System.Windows.Forms.Label()
         Me.lblFiskde = New System.Windows.Forms.Label()
+        Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.lblFiskAT = New System.Windows.Forms.Label()
+        Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxSammelakt = New System.Windows.Forms.CheckBox()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.btn = New System.Windows.Forms.Button()
         Me.dgvSendungen = New System.Windows.Forms.DataGridView()
         Me.Panel7 = New System.Windows.Forms.Panel()
-        Me.btnQuckScan = New System.Windows.Forms.Button()
         Me.picArrowDown = New System.Windows.Forms.PictureBox()
         Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.Button9 = New System.Windows.Forms.Button()
+        Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
+        Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
         Me.Button2 = New System.Windows.Forms.Button()
         Me.cbxVPSplit = New System.Windows.Forms.CheckBox()
         Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button()
@@ -69,12 +75,13 @@ Partial Class usrcntlAktDetails
         Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button()
         Me.btnAlleAkendeckel = New System.Windows.Forms.Button()
         Me.btnDipoListe = New System.Windows.Forms.Button()
+        Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.btnSA_Gestellung = New System.Windows.Forms.Button()
         Me.btnLZDruck = New System.Windows.Forms.Button()
         Me.btnDipoListeEmail = New System.Windows.Forms.Button()
         Me.btnDispohaft = New System.Windows.Forms.Button()
-        Me.Button18 = New System.Windows.Forms.Button()
+        Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
         Me.gridVermerke = New System.Windows.Forms.DataGridView()
         Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
         Me.Panel1 = New System.Windows.Forms.Panel()
@@ -88,16 +95,19 @@ Partial Class usrcntlAktDetails
         Me.tbAnhang = New System.Windows.Forms.TabPage()
         Me.addVermerk = New System.Windows.Forms.Button()
         Me.pnlMAInfo = New System.Windows.Forms.Panel()
-        Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
+        Me.pnlMaDetails = New System.Windows.Forms.Panel()
-        Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox()
         Me.txtMAinfo_TRVorgeschrieben = New System.Windows.Forms.TextBox()
         Me.picMAinfo_AbklaerungTR = New System.Windows.Forms.PictureBox()
-        Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
         Me.picMAinfo_Vorgeschrieben = New System.Windows.Forms.PictureBox()
         Me.picMAinfo_VorbereitetQs = New System.Windows.Forms.PictureBox()
         Me.txtMAinfo_AbklaerungTR = New System.Windows.Forms.TextBox()
         Me.txtMAinfo_Vorgeschrieben = New System.Windows.Forms.TextBox()
         Me.txtMAinfo_VorbereitetQs = New System.Windows.Forms.TextBox()
+        Me.btnQuckScan = New System.Windows.Forms.Button()
+        Me.lblSNDChat_MsgCnt = New System.Windows.Forms.Label()
+        Me.picMAinfo_TRVorgeschrieben = New System.Windows.Forms.PictureBox()
+        Me.Button18 = New System.Windows.Forms.Button()
+        Me.picAVISOMessengerSNDChat = New System.Windows.Forms.PictureBox()
         Me.Panel8 = New System.Windows.Forms.Panel()
         Me.btnQRVerwahrung = New System.Windows.Forms.Button()
         Me.lblAktUebernommen = New System.Windows.Forms.Label()
@@ -176,15 +186,6 @@ Partial Class usrcntlAktDetails
         Me.btnÄndern = New System.Windows.Forms.Button()
         Me.btnTV = New System.Windows.Forms.Button()
         Me.Button10 = New System.Windows.Forms.Button()
-        Me.Button9 = New System.Windows.Forms.Button()
-        Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
-        Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
-        Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components)
         Me.pnlDetailsRechts.SuspendLayout()
         Me.Panel3.SuspendLayout()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -202,11 +203,12 @@ Partial Class usrcntlAktDetails
         Me.Panel1.SuspendLayout()
         Me.tbcntlVermerke.SuspendLayout()
         Me.pnlMAInfo.SuspendLayout()
-        CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnlMaDetails.SuspendLayout()
         CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel8.SuspendLayout()
         CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlAbgeschlossen.SuspendLayout()
@@ -270,10 +272,8 @@ Partial Class usrcntlAktDetails
         '
         'SplitContainer.Panel2
         '
-        Me.SplitContainer.Panel2.Controls.Add(Me.btnQuckScan)
         Me.SplitContainer.Panel2.Controls.Add(Me.picArrowDown)
         Me.SplitContainer.Panel2.Controls.Add(Me.Panel4)
-        Me.SplitContainer.Panel2.Controls.Add(Me.Button18)
         Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
         Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
         Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk)
@@ -381,6 +381,32 @@ Partial Class usrcntlAktDetails
         Me.lnlSendungText.TabIndex = 2
         Me.lnlSendungText.Text = "Sendung"
         '
+        'txtSendungen
+        '
+        Me.txtSendungen._DateTimeOnly = False
+        Me.txtSendungen._numbersOnly = True
+        Me.txtSendungen._numbersOnlyKommastellen = ""
+        Me.txtSendungen._numbersOnlyTrennzeichen = True
+        Me.txtSendungen._Prozent = False
+        Me.txtSendungen._ShortDateNew = False
+        Me.txtSendungen._ShortDateOnly = False
+        Me.txtSendungen._TimeOnly = False
+        Me.txtSendungen._TimeOnly_Seconds = False
+        Me.txtSendungen._value = ""
+        Me.txtSendungen._Waehrung = False
+        Me.txtSendungen._WaehrungZeichen = True
+        Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSendungen.ForeColor = System.Drawing.Color.Black
+        Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
+        Me.txtSendungen.MaxLineLength = -1
+        Me.txtSendungen.MaxLines_Warning = ""
+        Me.txtSendungen.MaxLines_Warning_Label = Nothing
+        Me.txtSendungen.Name = "txtSendungen"
+        Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
+        Me.txtSendungen.TabIndex = 1
+        Me.txtSendungen.Text = "1"
+        Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'pnlSBG
         '
         Me.pnlSBG.Controls.Add(Me.lblSndFremd)
@@ -417,6 +443,33 @@ Partial Class usrcntlAktDetails
         Me.Label21.Text = "1"
         Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'txtSndFremd
+        '
+        Me.txtSndFremd._DateTimeOnly = False
+        Me.txtSndFremd._numbersOnly = True
+        Me.txtSndFremd._numbersOnlyKommastellen = ""
+        Me.txtSndFremd._numbersOnlyTrennzeichen = True
+        Me.txtSndFremd._Prozent = False
+        Me.txtSndFremd._ShortDateNew = False
+        Me.txtSndFremd._ShortDateOnly = False
+        Me.txtSndFremd._TimeOnly = False
+        Me.txtSndFremd._TimeOnly_Seconds = False
+        Me.txtSndFremd._value = ""
+        Me.txtSndFremd._Waehrung = False
+        Me.txtSndFremd._WaehrungZeichen = True
+        Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
+        Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
+        Me.txtSndFremd.MaxLineLength = -1
+        Me.txtSndFremd.MaxLines_Warning = ""
+        Me.txtSndFremd.MaxLines_Warning_Label = Nothing
+        Me.txtSndFremd.Name = "txtSndFremd"
+        Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
+        Me.txtSndFremd.TabIndex = 83
+        Me.txtSndFremd.Text = "0"
+        Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        Me.txtSndFremd.Visible = False
+        '
         'Label20
         '
         Me.Label20.AutoSize = True
@@ -444,6 +497,32 @@ Partial Class usrcntlAktDetails
         Me.lblFiskde.TabIndex = 6
         Me.lblFiskde.Text = "Fiskal DE"
         '
+        'txtSndFiskalDE
+        '
+        Me.txtSndFiskalDE._DateTimeOnly = False
+        Me.txtSndFiskalDE._numbersOnly = True
+        Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
+        Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
+        Me.txtSndFiskalDE._Prozent = False
+        Me.txtSndFiskalDE._ShortDateNew = False
+        Me.txtSndFiskalDE._ShortDateOnly = False
+        Me.txtSndFiskalDE._TimeOnly = False
+        Me.txtSndFiskalDE._TimeOnly_Seconds = False
+        Me.txtSndFiskalDE._value = ""
+        Me.txtSndFiskalDE._Waehrung = False
+        Me.txtSndFiskalDE._WaehrungZeichen = True
+        Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
+        Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
+        Me.txtSndFiskalDE.MaxLineLength = -1
+        Me.txtSndFiskalDE.MaxLines_Warning = ""
+        Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
+        Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
+        Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
+        Me.txtSndFiskalDE.TabIndex = 5
+        Me.txtSndFiskalDE.Text = "0"
+        Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'lblFiskAT
         '
         Me.lblFiskAT.AutoSize = True
@@ -453,6 +532,32 @@ Partial Class usrcntlAktDetails
         Me.lblFiskAT.TabIndex = 4
         Me.lblFiskAT.Text = "Fiskal AT"
         '
+        'txtSndFiskalAT
+        '
+        Me.txtSndFiskalAT._DateTimeOnly = False
+        Me.txtSndFiskalAT._numbersOnly = True
+        Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
+        Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
+        Me.txtSndFiskalAT._Prozent = False
+        Me.txtSndFiskalAT._ShortDateNew = False
+        Me.txtSndFiskalAT._ShortDateOnly = False
+        Me.txtSndFiskalAT._TimeOnly = False
+        Me.txtSndFiskalAT._TimeOnly_Seconds = False
+        Me.txtSndFiskalAT._value = ""
+        Me.txtSndFiskalAT._Waehrung = False
+        Me.txtSndFiskalAT._WaehrungZeichen = True
+        Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
+        Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
+        Me.txtSndFiskalAT.MaxLineLength = -1
+        Me.txtSndFiskalAT.MaxLines_Warning = ""
+        Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
+        Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
+        Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
+        Me.txtSndFiskalAT.TabIndex = 3
+        Me.txtSndFiskalAT.Text = "0"
+        Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
         'cbxSammelakt
         '
         Me.cbxSammelakt.AutoSize = True
@@ -573,21 +678,6 @@ Partial Class usrcntlAktDetails
         Me.Panel7.Size = New System.Drawing.Size(1, 65)
         Me.Panel7.TabIndex = 15
         '
-        'btnQuckScan
-        '
-        Me.btnQuckScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
-        Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnQuckScan.Location = New System.Drawing.Point(468, 167)
-        Me.btnQuckScan.Name = "btnQuckScan"
-        Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
-        Me.btnQuckScan.TabIndex = 107
-        Me.btnQuckScan.Text = "Quick-Scan"
-        Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnQuckScan.UseVisualStyleBackColor = True
-        Me.btnQuckScan.Visible = False
-        '
         'picArrowDown
         '
         Me.picArrowDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -630,6 +720,51 @@ Partial Class usrcntlAktDetails
         Me.Panel4.TabIndex = 102
         Me.Panel4.Visible = False
         '
+        'Button9
+        '
+        Me.Button9.BackColor = System.Drawing.Color.White
+        Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1
+        Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button9.Location = New System.Drawing.Point(5, 147)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(123, 36)
+        Me.Button9.TabIndex = 119
+        Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel"
+        Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button9.UseVisualStyleBackColor = False
+        Me.Button9.Visible = False
+        '
+        'cbxLZDeFisk
+        '
+        Me.cbxLZDeFisk._value = ""
+        Me.cbxLZDeFisk.AutoSize = True
+        Me.cbxLZDeFisk.Checked_value = False
+        Me.cbxLZDeFisk.CheckedValue = False
+        Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+        Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
+        Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
+        Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
+        Me.cbxLZDeFisk.TabIndex = 118
+        Me.cbxLZDeFisk.Text = "DE Fisk"
+        Me.cbxLZDeFisk.UseVisualStyleBackColor = True
+        '
+        'cbxLZT1
+        '
+        Me.cbxLZT1._value = ""
+        Me.cbxLZT1.AutoSize = True
+        Me.cbxLZT1.Checked_value = False
+        Me.cbxLZT1.CheckedValue = False
+        Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
+        Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
+        Me.cbxLZT1.Name = "cbxLZT1"
+        Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
+        Me.cbxLZT1.TabIndex = 114
+        Me.cbxLZT1.Text = "T1"
+        Me.cbxLZT1.UseVisualStyleBackColor = True
+        Me.cbxLZT1.Visible = False
+        '
         'Button2
         '
         Me.Button2.BackColor = System.Drawing.Color.White
@@ -755,6 +890,17 @@ Partial Class usrcntlAktDetails
         Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnDipoListe.UseVisualStyleBackColor = False
         '
+        'cboFormulareRgAn
+        '
+        Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
+        Me.cboFormulareRgAn._allowFreiText = False
+        Me.cboFormulareRgAn._value = ""
+        Me.cboFormulareRgAn.FormattingEnabled = True
+        Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
+        Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
+        Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
+        Me.cboFormulareRgAn.TabIndex = 108
+        '
         'Label4
         '
         Me.Label4.AutoSize = True
@@ -829,20 +975,21 @@ Partial Class usrcntlAktDetails
         Me.btnDispohaft.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
         Me.btnDispohaft.UseVisualStyleBackColor = False
         '
-        'Button18
+        'cbxLZRg
         '
-        Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cbxLZRg._value = ""
-        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cbxLZRg.AutoSize = True
-        Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
+        Me.cbxLZRg.Checked = True
-        Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.cbxLZRg.Checked_value = False
-        Me.Button18.Location = New System.Drawing.Point(447, 200)
+        Me.cbxLZRg.CheckedValue = False
-        Me.Button18.Name = "Button18"
+        Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.Button18.Size = New System.Drawing.Size(128, 34)
+        Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.Button18.TabIndex = 103
+        Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
-        Me.Button18.Text = "Import-Assistent ..."
+        Me.cbxLZRg.Name = "cbxLZRg"
-        Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
-        Me.Button18.UseVisualStyleBackColor = True
+        Me.cbxLZRg.TabIndex = 115
-        Me.Button18.Visible = False
+        Me.cbxLZRg.Text = "RG"
+        Me.cbxLZRg.UseVisualStyleBackColor = True
         '
         'gridVermerke
         '
@@ -895,7 +1042,7 @@ Partial Class usrcntlAktDetails
         Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.gridVermerke.ShowCellErrors = False
         Me.gridVermerke.ShowRowErrors = False
-        Me.gridVermerke.Size = New System.Drawing.Size(575, 185)
+        Me.gridVermerke.Size = New System.Drawing.Size(575, 163)
         Me.gridVermerke.TabIndex = 70
         Me.gridVermerke.TabStop = False
         '
@@ -1036,46 +1183,33 @@ Partial Class usrcntlAktDetails
         '
         'pnlMAInfo
         '
+        Me.pnlMAInfo.Controls.Add(Me.pnlMaDetails)
+        Me.pnlMAInfo.Controls.Add(Me.btnQuckScan)
         Me.pnlMAInfo.Controls.Add(Me.lblSNDChat_MsgCnt)
         Me.pnlMAInfo.Controls.Add(Me.picMAinfo_TRVorgeschrieben)
-        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_TRVorgeschrieben)
+        Me.pnlMAInfo.Controls.Add(Me.Button18)
-        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_AbklaerungTR)
         Me.pnlMAInfo.Controls.Add(Me.picAVISOMessengerSNDChat)
-        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_Vorgeschrieben)
-        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_VorbereitetQs)
-        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_AbklaerungTR)
-        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
-        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs)
         Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.pnlMAInfo.Location = New System.Drawing.Point(0, 215)
+        Me.pnlMAInfo.Location = New System.Drawing.Point(0, 193)
         Me.pnlMAInfo.Name = "pnlMAInfo"
-        Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34)
+        Me.pnlMAInfo.Size = New System.Drawing.Size(575, 56)
         Me.pnlMAInfo.TabIndex = 106
         '
-        'lblSNDChat_MsgCnt
+        'pnlMaDetails
         '
-        Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.pnlMaDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-        Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
+        Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_TRVorgeschrieben)
-        Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
+        Me.pnlMaDetails.Controls.Add(Me.picMAinfo_AbklaerungTR)
-        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(53, 21)
+        Me.pnlMaDetails.Controls.Add(Me.picMAinfo_Vorgeschrieben)
-        Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
+        Me.pnlMaDetails.Controls.Add(Me.picMAinfo_VorbereitetQs)
-        Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(22, 11)
+        Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_AbklaerungTR)
-        Me.lblSNDChat_MsgCnt.TabIndex = 111
+        Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
-        Me.lblSNDChat_MsgCnt.Text = "99"
+        Me.pnlMaDetails.Controls.Add(Me.txtMAinfo_VorbereitetQs)
-        Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.pnlMaDetails.Location = New System.Drawing.Point(76, 2)
-        Me.lblSNDChat_MsgCnt.Visible = False
+        Me.pnlMaDetails.Name = "pnlMaDetails"
-        '
+        Me.pnlMaDetails.Size = New System.Drawing.Size(497, 24)
-        'picMAinfo_TRVorgeschrieben
+        Me.pnlMaDetails.TabIndex = 113
-        '
-        Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
-        Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 3)
-        Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben"
-        Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21)
-        Me.picMAinfo_TRVorgeschrieben.TabIndex = 111
-        Me.picMAinfo_TRVorgeschrieben.TabStop = False
-        Me.picMAinfo_TRVorgeschrieben.Visible = False
         '
         'txtMAinfo_TRVorgeschrieben
         '
@@ -1084,7 +1218,7 @@ Partial Class usrcntlAktDetails
         Me.txtMAinfo_TRVorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
         Me.txtMAinfo_TRVorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.txtMAinfo_TRVorgeschrieben.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(481, 5)
+        Me.txtMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(404, 1)
         Me.txtMAinfo_TRVorgeschrieben.MaxLength = 0
         Me.txtMAinfo_TRVorgeschrieben.Name = "txtMAinfo_TRVorgeschrieben"
         Me.txtMAinfo_TRVorgeschrieben.ReadOnly = True
@@ -1098,30 +1232,17 @@ Partial Class usrcntlAktDetails
         '
         Me.picMAinfo_AbklaerungTR.BackgroundImage = Global.AVISO.My.Resources.Resources.abklaerungTR_Inaktiv
         Me.picMAinfo_AbklaerungTR.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(76, 4)
+        Me.picMAinfo_AbklaerungTR.Location = New System.Drawing.Point(-1, 0)
         Me.picMAinfo_AbklaerungTR.Name = "picMAinfo_AbklaerungTR"
         Me.picMAinfo_AbklaerungTR.Size = New System.Drawing.Size(26, 21)
         Me.picMAinfo_AbklaerungTR.TabIndex = 109
         Me.picMAinfo_AbklaerungTR.TabStop = False
         '
-        'picAVISOMessengerSNDChat
-        '
-        Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
-        Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(30, 1)
-        Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
-        Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(32, 30)
-        Me.picAVISOMessengerSNDChat.TabIndex = 110
-        Me.picAVISOMessengerSNDChat.TabStop = False
-        Me.picAVISOMessengerSNDChat.Visible = False
-        '
         'picMAinfo_Vorgeschrieben
         '
         Me.picMAinfo_Vorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
         Me.picMAinfo_Vorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(326, 4)
+        Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(249, 0)
         Me.picMAinfo_Vorgeschrieben.Name = "picMAinfo_Vorgeschrieben"
         Me.picMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(26, 21)
         Me.picMAinfo_Vorgeschrieben.TabIndex = 107
@@ -1131,7 +1252,7 @@ Partial Class usrcntlAktDetails
         '
         Me.picMAinfo_VorbereitetQs.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorbereitet_InAktiv
         Me.picMAinfo_VorbereitetQs.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(200, 4)
+        Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(123, 0)
         Me.picMAinfo_VorbereitetQs.Name = "picMAinfo_VorbereitetQs"
         Me.picMAinfo_VorbereitetQs.Size = New System.Drawing.Size(26, 21)
         Me.picMAinfo_VorbereitetQs.TabIndex = 0
@@ -1144,7 +1265,7 @@ Partial Class usrcntlAktDetails
         Me.txtMAinfo_AbklaerungTR.Cursor = System.Windows.Forms.Cursors.Hand
         Me.txtMAinfo_AbklaerungTR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.txtMAinfo_AbklaerungTR.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(105, 6)
+        Me.txtMAinfo_AbklaerungTR.Location = New System.Drawing.Point(28, 2)
         Me.txtMAinfo_AbklaerungTR.MaxLength = 0
         Me.txtMAinfo_AbklaerungTR.Name = "txtMAinfo_AbklaerungTR"
         Me.txtMAinfo_AbklaerungTR.ReadOnly = True
@@ -1160,7 +1281,7 @@ Partial Class usrcntlAktDetails
         Me.txtMAinfo_Vorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
         Me.txtMAinfo_Vorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.txtMAinfo_Vorgeschrieben.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(355, 6)
+        Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(278, 2)
         Me.txtMAinfo_Vorgeschrieben.MaxLength = 0
         Me.txtMAinfo_Vorgeschrieben.Name = "txtMAinfo_Vorgeschrieben"
         Me.txtMAinfo_Vorgeschrieben.ReadOnly = True
@@ -1176,7 +1297,7 @@ Partial Class usrcntlAktDetails
         Me.txtMAinfo_VorbereitetQs.Cursor = System.Windows.Forms.Cursors.Hand
         Me.txtMAinfo_VorbereitetQs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
         Me.txtMAinfo_VorbereitetQs.ForeColor = System.Drawing.Color.Black
-        Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(230, 6)
+        Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(153, 2)
         Me.txtMAinfo_VorbereitetQs.MaxLength = 0
         Me.txtMAinfo_VorbereitetQs.Name = "txtMAinfo_VorbereitetQs"
         Me.txtMAinfo_VorbereitetQs.ReadOnly = True
@@ -1185,6 +1306,75 @@ Partial Class usrcntlAktDetails
         Me.txtMAinfo_VorbereitetQs.TabStop = False
         Me.txtMAinfo_VorbereitetQs.Text = "-"
         '
+        'btnQuckScan
+        '
+        Me.btnQuckScan.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnQuckScan.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
+        Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnQuckScan.Location = New System.Drawing.Point(313, 26)
+        Me.btnQuckScan.Name = "btnQuckScan"
+        Me.btnQuckScan.Size = New System.Drawing.Size(137, 30)
+        Me.btnQuckScan.TabIndex = 107
+        Me.btnQuckScan.Text = "Quick-Scan (LKW)"
+        Me.btnQuckScan.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnQuckScan.UseVisualStyleBackColor = True
+        Me.btnQuckScan.Visible = False
+        '
+        'lblSNDChat_MsgCnt
+        '
+        Me.lblSNDChat_MsgCnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.lblSNDChat_MsgCnt.BackColor = System.Drawing.Color.Red
+        Me.lblSNDChat_MsgCnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold)
+        Me.lblSNDChat_MsgCnt.ForeColor = System.Drawing.Color.White
+        Me.lblSNDChat_MsgCnt.Location = New System.Drawing.Point(63, 41)
+        Me.lblSNDChat_MsgCnt.Name = "lblSNDChat_MsgCnt"
+        Me.lblSNDChat_MsgCnt.Size = New System.Drawing.Size(35, 15)
+        Me.lblSNDChat_MsgCnt.TabIndex = 111
+        Me.lblSNDChat_MsgCnt.Text = "99"
+        Me.lblSNDChat_MsgCnt.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.lblSNDChat_MsgCnt.Visible = False
+        '
+        'picMAinfo_TRVorgeschrieben
+        '
+        Me.picMAinfo_TRVorgeschrieben.BackgroundImage = Global.AVISO.My.Resources.Resources.statusBtn_vorgeschrieben_InAktiv
+        Me.picMAinfo_TRVorgeschrieben.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picMAinfo_TRVorgeschrieben.Location = New System.Drawing.Point(451, 1)
+        Me.picMAinfo_TRVorgeschrieben.Name = "picMAinfo_TRVorgeschrieben"
+        Me.picMAinfo_TRVorgeschrieben.Size = New System.Drawing.Size(26, 21)
+        Me.picMAinfo_TRVorgeschrieben.TabIndex = 111
+        Me.picMAinfo_TRVorgeschrieben.TabStop = False
+        Me.picMAinfo_TRVorgeschrieben.Visible = False
+        '
+        'Button18
+        '
+        Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
+        Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button18.Location = New System.Drawing.Point(447, 26)
+        Me.Button18.Name = "Button18"
+        Me.Button18.Size = New System.Drawing.Size(128, 30)
+        Me.Button18.TabIndex = 103
+        Me.Button18.Text = "Import-Assistent ..."
+        Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button18.UseVisualStyleBackColor = True
+        Me.Button18.Visible = False
+        '
+        'picAVISOMessengerSNDChat
+        '
+        Me.picAVISOMessengerSNDChat.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.picAVISOMessengerSNDChat.BackgroundImage = Global.AVISO.My.Resources.Resources.aviso_messenger
+        Me.picAVISOMessengerSNDChat.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picAVISOMessengerSNDChat.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.picAVISOMessengerSNDChat.Location = New System.Drawing.Point(37, 10)
+        Me.picAVISOMessengerSNDChat.Name = "picAVISOMessengerSNDChat"
+        Me.picAVISOMessengerSNDChat.Size = New System.Drawing.Size(40, 35)
+        Me.picAVISOMessengerSNDChat.TabIndex = 110
+        Me.picAVISOMessengerSNDChat.TabStop = False
+        Me.picAVISOMessengerSNDChat.Visible = False
+        '
         'Panel8
         '
         Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -2246,183 +2436,6 @@ Partial Class usrcntlAktDetails
         Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.Button10.UseVisualStyleBackColor = False
         '
-        'Button9
-        '
-        Me.Button9.BackColor = System.Drawing.Color.White
-        Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1
-        Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button9.Location = New System.Drawing.Point(5, 147)
-        Me.Button9.Name = "Button9"
-        Me.Button9.Size = New System.Drawing.Size(123, 36)
-        Me.Button9.TabIndex = 119
-        Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel"
-        Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button9.UseVisualStyleBackColor = False
-        Me.Button9.Visible = False
-        '
-        'txtSendungen
-        '
-        Me.txtSendungen._DateTimeOnly = False
-        Me.txtSendungen._numbersOnly = True
-        Me.txtSendungen._numbersOnlyKommastellen = ""
-        Me.txtSendungen._numbersOnlyTrennzeichen = True
-        Me.txtSendungen._Prozent = False
-        Me.txtSendungen._ShortDateNew = False
-        Me.txtSendungen._ShortDateOnly = False
-        Me.txtSendungen._TimeOnly = False
-        Me.txtSendungen._TimeOnly_Seconds = False
-        Me.txtSendungen._value = ""
-        Me.txtSendungen._Waehrung = False
-        Me.txtSendungen._WaehrungZeichen = True
-        Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSendungen.ForeColor = System.Drawing.Color.Black
-        Me.txtSendungen.Location = New System.Drawing.Point(22, 17)
-        Me.txtSendungen.MaxLineLength = -1
-        Me.txtSendungen.MaxLines_Warning = ""
-        Me.txtSendungen.MaxLines_Warning_Label = Nothing
-        Me.txtSendungen.Name = "txtSendungen"
-        Me.txtSendungen.Size = New System.Drawing.Size(32, 26)
-        Me.txtSendungen.TabIndex = 1
-        Me.txtSendungen.Text = "1"
-        Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'txtSndFremd
-        '
-        Me.txtSndFremd._DateTimeOnly = False
-        Me.txtSndFremd._numbersOnly = True
-        Me.txtSndFremd._numbersOnlyKommastellen = ""
-        Me.txtSndFremd._numbersOnlyTrennzeichen = True
-        Me.txtSndFremd._Prozent = False
-        Me.txtSndFremd._ShortDateNew = False
-        Me.txtSndFremd._ShortDateOnly = False
-        Me.txtSndFremd._TimeOnly = False
-        Me.txtSndFremd._TimeOnly_Seconds = False
-        Me.txtSndFremd._value = ""
-        Me.txtSndFremd._Waehrung = False
-        Me.txtSndFremd._WaehrungZeichen = True
-        Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSndFremd.ForeColor = System.Drawing.Color.Black
-        Me.txtSndFremd.Location = New System.Drawing.Point(149, 5)
-        Me.txtSndFremd.MaxLineLength = -1
-        Me.txtSndFremd.MaxLines_Warning = ""
-        Me.txtSndFremd.MaxLines_Warning_Label = Nothing
-        Me.txtSndFremd.Name = "txtSndFremd"
-        Me.txtSndFremd.Size = New System.Drawing.Size(32, 26)
-        Me.txtSndFremd.TabIndex = 83
-        Me.txtSndFremd.Text = "0"
-        Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        Me.txtSndFremd.Visible = False
-        '
-        'txtSndFiskalDE
-        '
-        Me.txtSndFiskalDE._DateTimeOnly = False
-        Me.txtSndFiskalDE._numbersOnly = True
-        Me.txtSndFiskalDE._numbersOnlyKommastellen = ""
-        Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True
-        Me.txtSndFiskalDE._Prozent = False
-        Me.txtSndFiskalDE._ShortDateNew = False
-        Me.txtSndFiskalDE._ShortDateOnly = False
-        Me.txtSndFiskalDE._TimeOnly = False
-        Me.txtSndFiskalDE._TimeOnly_Seconds = False
-        Me.txtSndFiskalDE._value = ""
-        Me.txtSndFiskalDE._Waehrung = False
-        Me.txtSndFiskalDE._WaehrungZeichen = True
-        Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black
-        Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34)
-        Me.txtSndFiskalDE.MaxLineLength = -1
-        Me.txtSndFiskalDE.MaxLines_Warning = ""
-        Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing
-        Me.txtSndFiskalDE.Name = "txtSndFiskalDE"
-        Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26)
-        Me.txtSndFiskalDE.TabIndex = 5
-        Me.txtSndFiskalDE.Text = "0"
-        Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'txtSndFiskalAT
-        '
-        Me.txtSndFiskalAT._DateTimeOnly = False
-        Me.txtSndFiskalAT._numbersOnly = True
-        Me.txtSndFiskalAT._numbersOnlyKommastellen = ""
-        Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True
-        Me.txtSndFiskalAT._Prozent = False
-        Me.txtSndFiskalAT._ShortDateNew = False
-        Me.txtSndFiskalAT._ShortDateOnly = False
-        Me.txtSndFiskalAT._TimeOnly = False
-        Me.txtSndFiskalAT._TimeOnly_Seconds = False
-        Me.txtSndFiskalAT._value = ""
-        Me.txtSndFiskalAT._Waehrung = False
-        Me.txtSndFiskalAT._WaehrungZeichen = True
-        Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black
-        Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5)
-        Me.txtSndFiskalAT.MaxLineLength = -1
-        Me.txtSndFiskalAT.MaxLines_Warning = ""
-        Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing
-        Me.txtSndFiskalAT.Name = "txtSndFiskalAT"
-        Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26)
-        Me.txtSndFiskalAT.TabIndex = 3
-        Me.txtSndFiskalAT.Text = "0"
-        Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
-        'cbxLZDeFisk
-        '
-        Me.cbxLZDeFisk._value = ""
-        Me.cbxLZDeFisk.AutoSize = True
-        Me.cbxLZDeFisk.Checked_value = False
-        Me.cbxLZDeFisk.CheckedValue = False
-        Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93)
-        Me.cbxLZDeFisk.Name = "cbxLZDeFisk"
-        Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17)
-        Me.cbxLZDeFisk.TabIndex = 118
-        Me.cbxLZDeFisk.Text = "DE Fisk"
-        Me.cbxLZDeFisk.UseVisualStyleBackColor = True
-        '
-        'cbxLZT1
-        '
-        Me.cbxLZT1._value = ""
-        Me.cbxLZT1.AutoSize = True
-        Me.cbxLZT1.Checked_value = False
-        Me.cbxLZT1.CheckedValue = False
-        Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.cbxLZT1.Location = New System.Drawing.Point(172, 93)
-        Me.cbxLZT1.Name = "cbxLZT1"
-        Me.cbxLZT1.Size = New System.Drawing.Size(37, 17)
-        Me.cbxLZT1.TabIndex = 114
-        Me.cbxLZT1.Text = "T1"
-        Me.cbxLZT1.UseVisualStyleBackColor = True
-        Me.cbxLZT1.Visible = False
-        '
-        'cboFormulareRgAn
-        '
-        Me.cboFormulareRgAn._allowedValuesFreiText = Nothing
-        Me.cboFormulareRgAn._allowFreiText = False
-        Me.cboFormulareRgAn._value = ""
-        Me.cboFormulareRgAn.FormattingEnabled = True
-        Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2)
-        Me.cboFormulareRgAn.Name = "cboFormulareRgAn"
-        Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21)
-        Me.cboFormulareRgAn.TabIndex = 108
-        '
-        'cbxLZRg
-        '
-        Me.cbxLZRg._value = ""
-        Me.cbxLZRg.AutoSize = True
-        Me.cbxLZRg.Checked = True
-        Me.cbxLZRg.Checked_value = False
-        Me.cbxLZRg.CheckedValue = False
-        Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
-        Me.cbxLZRg.Location = New System.Drawing.Point(134, 93)
-        Me.cbxLZRg.Name = "cbxLZRg"
-        Me.cbxLZRg.Size = New System.Drawing.Size(41, 17)
-        Me.cbxLZRg.TabIndex = 115
-        Me.cbxLZRg.Text = "RG"
-        Me.cbxLZRg.UseVisualStyleBackColor = True
-        '
         'usrcntlAktDetails
         '
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -2452,12 +2465,13 @@ Partial Class usrcntlAktDetails
         Me.Panel1.ResumeLayout(False)
         Me.tbcntlVermerke.ResumeLayout(False)
         Me.pnlMAInfo.ResumeLayout(False)
-        Me.pnlMAInfo.PerformLayout()
+        Me.pnlMaDetails.ResumeLayout(False)
-        CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnlMaDetails.PerformLayout()
         CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.picMAinfo_Vorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.picMAinfo_VorbereitetQs, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picMAinfo_TRVorgeschrieben, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picAVISOMessengerSNDChat, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel8.ResumeLayout(False)
         Me.Panel8.PerformLayout()
         CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2641,4 +2655,5 @@ Partial Class usrcntlAktDetails
     Friend WithEvents btnAnIndonesien As Button
     Friend WithEvents Label1 As Label
     Friend WithEvents Button9 As Button
+    Friend WithEvents pnlMaDetails As Panel
 End Class

Aviso/usrcntlAktDetails.resx

@@ -118,6 +118,19 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
+        kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
+        WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
+        oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
+        LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
+        sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
+        ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
+        sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
+        TkSuQmCC
+</value>
+  </data>
   <data name="btnQuckScan.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@@ -175,19 +188,6 @@
         kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
         fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
         mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAZ1JREFUOE+l
-        kTlLA0EYhvMTtLIyjbHzwsKI2rgeSSF4gUVEPIIgqIiCQSxsRJSYgC6mCBaKF4IW7tqYJsEjaFBEC0nU
-        WGoniKlMxNfMhFmS7BjdtXiGnW+/9+Fd1gBAN/GuCRDeO0Zv2Uy19FeIKDG/irf2EUSt/Tit60yOdQpD
-        oWtF9mDpw3FtB3bLGyGazF/cQC6ILBKJIhAI4r65F4GaNuyUCVg2mTFnrOCHfoLKwimZfOjD1vY+tksF
-        LBVVUZkmYUxuQDj8CL//DJJ8hI2tPTjdHjimZxUZ2eOGsyGy91MHntercSClZAuuFSpjsF1VOBsqO5mk
-        sidPJe6cJZh3ilwZISOcTXozJruaKcbJhJErI2Rc0onJgqrZJZGNG+EbLIBky0+uqXOqAYH3mbQZk3Xz
-        ZQTVQGm2pq0ZI+Pya7NfZATl4b/NGPTQ+wN40OPzwhtXNyvULCOkHoJevGwMJ/7TjGHA4dTX684Yzhd7
-        sDlu/WDNDmx5yff8UC4MTZYW3IgD2HW0wm0X4LLXJ/Q0Y1AhQRyySLwFbcDwDUJWbE0CgQrjAAAAAElF
-        TkSuQmCC
 </value>
   </data>
   <metadata name="conMenuVermerke.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

Aviso/usrcntlAktDetails.vb

@@ -157,20 +157,22 @@ Public Class usrcntlAktDetails
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("LKW_CHAT") Then
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("LKW_CHAT", Me.FindForm) Then
+                If pnlMaDetails.Visible Then
 
-                picAVISOMessengerSNDChat.Visible = True
+                    picAVISOMessengerSNDChat.Visible = True
-                lblSNDChat_MsgCnt.Visible = False
+                    lblSNDChat_MsgCnt.Visible = False
-                Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID)
+                    Dim newMsgSnd = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT_SendungsID(SendungsID)
-                If newMsgSnd > 0 Then
+                    If newMsgSnd > 0 Then
-                    lblSNDChat_MsgCnt.Text = newMsgSnd
+                        lblSNDChat_MsgCnt.Text = newMsgSnd
-                    lblSNDChat_MsgCnt.Visible = True
+                        lblSNDChat_MsgCnt.Visible = True
-                    lblSNDChat_MsgCnt.BringToFront()
+                        lblSNDChat_MsgCnt.BringToFront()
+                    End If
+                    'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
+                    '    lblSNDChat_MsgCnt.Text = "!!"
+                    '    lblSNDChat_MsgCnt.Visible = True
+                    '    lblSNDChat_MsgCnt.BringToFront()
+                    'End If
                 End If
-                'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
-                '    lblSNDChat_MsgCnt.Text = "!!"
-                '    lblSNDChat_MsgCnt.Visible = True
-                '    lblSNDChat_MsgCnt.BringToFront()
-                'End If
             End If
         End If
 
@@ -264,6 +266,7 @@ Public Class usrcntlAktDetails
             btnErfasst.Visible = True
         End If
 
+        Button18.Visible = True
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
             btnOptionen.Enabled = False
@@ -783,11 +786,29 @@ Public Class usrcntlAktDetails
         lblInfoAviso.Visible = False
         infotxt = ""
 
+        'If dgvSendungen.SelectedRows.Count > 0 Then
+        '    btnQuckScan.Text = "Quick-Scan" & vbNewLine & dgvSendungen.SelectedRows(0).Cells("AbfertigungsNr").Value
+        'Else
+        '    btnQuckScan.Text = "Quick-Scan" & vbNewLine & "LKW"
+        'End If     
+        If dgvSendungen.SelectedRows.Count > 0 Then
+            btnQuckScan.Text = "Quick-Scan (SND)"
+        Else
+            btnQuckScan.Text = "Quick-Scan (LKW)"
+        End If
+
         ' If setAkive_AuswahlID() = -1 Then Exit Sub
         If AvisoID <= 0 Then Exit Sub
-        pnlMAInfo.Visible = False
+        pnlMaDetails.Visible = False
-        Button18.Visible = False
+        picAVISOMessengerSNDChat.Visible = False
-        btnQuckScan.Visible = False
+        lblSNDChat_MsgCnt.Visible = False
+        'Button18.Visible = False
+        btnQuckScan.Visible = True
+
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+        '    btnQuckScan.Visible = True
+        'End If
+
         Select Case tbcntlVermerke.SelectedIndex
             Case 0, 1, 2 : Vermerke_anzeigen2(rowindex)
             Case 3
@@ -805,7 +826,7 @@ Public Class usrcntlAktDetails
                     WhereWO = " AND  isnull(anh_SendungsId,0) <> 0 "
                 End If
 
-                Button18.Visible = True
+                '   Button18.Visible = True
                 Dim hSQL As String '= " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge] 
                 '      WHERE [anh_AvisoId]='" & AvisoID & "'  " & AktSndAnhaenge & " " & WhereWO & "
                 '                               ORDER BY  anh_SendungsId desc,
@@ -920,7 +941,7 @@ Public Class usrcntlAktDetails
 
         'Hier werden die passenden Vermerke zum Aviso angezeigt
         Dim sendwhere = ""
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "ATILLA" Then
+        If True Then
             If gridVermerke.Columns("tblSnd_PosUnterNr") IsNot Nothing Then gridVermerke.Columns("tblSnd_PosUnterNr").Visible = False
             Select Case tbcntlVermerke.SelectedIndex
                 Case 0
@@ -959,13 +980,12 @@ Public Class usrcntlAktDetails
                         sendwhere = " AND VermerkArt='S'  AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
 
 
-                        initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
 
                         '---------------------------------------------------------
                         'MA INFO
                         '---------------------------------------------------------
                         'AbklaerungTR
-                        pnlMAInfo.Visible = True
+                        pnlMaDetails.Visible = True
                         If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then
                             picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Aktiv
                             txtMAinfo_AbklaerungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value & "'", "ADMIN", "-")
@@ -975,14 +995,14 @@ Public Class usrcntlAktDetails
                         'AbfertigungTR
                         'pnlMAInfoXX.Visible = True
                         'If dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR").Value IsNot DBNull.Value Then
-                        '    picMAinfo_AbfertigungTR.BackgroundImage = My.Resources.AbfertigungTR_Aktiv
+                        '    picMAinfo_AbfertigungTR.BackgroundImpicAVISOMessengerSNDChatage = My.Resources.AbfertigungTR_Aktiv
                         '    txtMAinfo_AbfertigungTR.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value & "'", "ADMIN", "-")
                         '    txtMAinfo_AbfertigungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbfertigungTR_MA").Value
                         'End If
 
 
                         'Vorbereitet
-                        pnlMAInfo.Visible = True
+                        pnlMaDetails.Visible = True
                         If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
                             picMAinfo_VorbereitetQs.BackgroundImage = My.Resources.statusBtn_vorbereitet_Aktiv
                             txtMAinfo_VorbereitetQs.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_QS_MA").Value & "'", "ADMIN", "-")
@@ -990,7 +1010,7 @@ Public Class usrcntlAktDetails
                         End If
                         '---------------------------------------------------------
                         'Vorgeschrieben
-                        pnlMAInfo.Visible = True
+                        pnlMaDetails.Visible = True
                         If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
                             picMAinfo_Vorgeschrieben.BackgroundImage = My.Resources.statusBtn_vorgeschrieben_Aktiv
                             txtMAinfo_Vorgeschrieben.Text = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & dgvSendungen.SelectedRows(0).Cells("tblSnd_VG_MA").Value & "'", "ADMIN", "-")
@@ -1032,6 +1052,12 @@ Public Class usrcntlAktDetails
 
         ' Dim hSQL As String = "SELECT [VermerkID],[AvisoID],[Datum],[Mitarbeiter],[Hinweis_Vermerk],[VermerkeCode],[MitarbeiterId] FROM Vermerke WHERE AvisoID = " & AvisoID & " " & sendwhere & " ORDER BY Datum DESC"
 
+        picAVISOMessengerSNDChat.Visible = pnlMaDetails.Visible
+        ' lblSNDChat_MsgCnt.Visible = pnlMaDetails.Visibl
+        If dgvSendungen.SelectedRows.Count > 0 Then
+
+            initSND_CHAT(dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
+        End If
 
         Dim hSQL = usrcntlAktDetails.vermerkehSQL
         hSQL = hSQL.Replace("[[AvisoId]]", AvisoID)
@@ -3758,9 +3784,17 @@ Public Class usrcntlAktDetails
     Private Sub btnQuckScan_Click(sender As Object, e As EventArgs) Handles btnQuckScan.Click
         Try
             Me.Cursor = Cursors.WaitCursor
-            If frmSendungAnhangImport.quickScan(AvisoID) Then
+            If gridVermerke.SelectedRows.Count > 0 Then
-                Vermerke_anzeigen()
+                If frmSendungAnhangImport.quickScan(AvisoID, gridVermerke.SelectedRows(0).Cells("SendungID").Value) Then
+                    Vermerke_anzeigen()
+                End If
+            Else
+                If frmSendungAnhangImport.quickScan(AvisoID) Then
+                    Vermerke_anzeigen()
+                End If
             End If
+
+
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Fehler QuickScan")
         End Try