201020

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -1074,6 +1074,8 @@ Public Class frmSendungAnhangImport
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
         initSendungen()
 

Aviso/Anhänge/frmSendungAnhangUmbenennenUmkateg.vb

@@ -28,6 +28,8 @@
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", "Vollmacht"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATB-Nr", "ATB"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
+        cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
         cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
         txtBezeichnung.Text = nameOLD
         cboArt.changeItem(artOLD)

Aviso/Auswertung/frmAuswertung.Designer.vb

@@ -28,6 +28,7 @@ Partial Class frmAuswertung
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.pnlOptions = New System.Windows.Forms.Panel()
+        Me.Button5 = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
@@ -86,6 +87,7 @@ Partial Class frmAuswertung
         'pnlOptions
         '
         Me.pnlOptions.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlOptions.Controls.Add(Me.Button5)
         Me.pnlOptions.Controls.Add(Me.Panel1)
         Me.pnlOptions.Controls.Add(Me.Button3)
         Me.pnlOptions.Controls.Add(Me.Button2)
@@ -96,6 +98,18 @@ Partial Class frmAuswertung
         Me.pnlOptions.Size = New System.Drawing.Size(144, 552)
         Me.pnlOptions.TabIndex = 1
         '
+        'Button5
+        '
+        Me.Button5.Enabled = False
+        Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button5.ForeColor = System.Drawing.Color.White
+        Me.Button5.Location = New System.Drawing.Point(7, 180)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(131, 51)
+        Me.Button5.TabIndex = 3
+        Me.Button5.Text = "VERIMEX"
+        Me.Button5.UseVisualStyleBackColor = True
+        '
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.Button4)
@@ -118,6 +132,7 @@ Partial Class frmAuswertung
         '
         'Button3
         '
+        Me.Button3.Enabled = False
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.ForeColor = System.Drawing.Color.White
         Me.Button3.Location = New System.Drawing.Point(7, 123)
@@ -129,6 +144,7 @@ Partial Class frmAuswertung
         '
         'Button2
         '
+        Me.Button2.Enabled = False
         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button2.ForeColor = System.Drawing.Color.White
         Me.Button2.Location = New System.Drawing.Point(7, 66)
@@ -140,6 +156,7 @@ Partial Class frmAuswertung
         '
         'Button1
         '
+        Me.Button1.Enabled = False
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.ForeColor = System.Drawing.Color.White
         Me.Button1.Location = New System.Drawing.Point(7, 9)
@@ -189,4 +206,5 @@ Partial Class frmAuswertung
     Friend WithEvents Panel1 As System.Windows.Forms.Panel
     Friend WithEvents Button4 As System.Windows.Forms.Button
     Friend WithEvents Button10 As System.Windows.Forms.Button
+    Friend WithEvents Button5 As Button
 End Class

Aviso/Auswertung/frmAuswertung.vb

@@ -8,9 +8,18 @@ Public Class frmAuswertung
 
     Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles Me.Load
         clrPnlMain()
-        Dim usrCntl As New usrctlAuswertung
+
-        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+
-        pnlMain.Controls.Add(usrCntl)
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then
+            Button2.Enabled = True
+            Dim usrCntl As New usrctlAuswertung
+            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+            pnlMain.Controls.Add(usrCntl)
+        End If
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Kunden", Me) Then Button1.Enabled = True
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then Button3.Enabled = True
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then Button5.Enabled = True
 
     End Sub
 
@@ -681,6 +690,15 @@ Public Class frmAuswertung
         admin.doSQL("delete FROM [tblEmailBenachrichtigung] WHERE [eb_EMail] = '' ", "FMZOLL")
 
     End Sub
+
+    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then
+            clrPnlMain()
+            Dim usrCntl As New usrctlStatVERIMEX
+            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+            pnlMain.Controls.Add(usrCntl)
+        End If
+    End Sub
 End Class
 
 Public Class listMAZusammenf

Aviso/Auswertung/rptStat_VERIMEX_AbklTR.Designer.vb

@@ -0,0 +1,447 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class rptStat_VERIMEX_AbklTR
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
+    Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptStat_VERIMEX_AbklTR))
+        Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.lblMitarbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblAnzLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblAnzSnd = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
+        Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
+        Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
+        Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
+        Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblKassenbuchNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblGeschaeftsjahr = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblMandantNiederlassung = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.lblFiliale = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblBarTitle = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.lblAnzLKWSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.lblAnzSndSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        CType(Me.lblMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAnzLKW, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAnzSnd, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblFiliale, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblBarTitle, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAnzLKWSum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblAnzSndSum, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'PageHeader
+        '
+        Me.PageHeader.Height = 0!
+        Me.PageHeader.Name = "PageHeader"
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblMitarbeiter, Me.lblAnzLKW, Me.lblAnzSnd})
+        Me.Detail.Height = 0.1795276!
+        Me.Detail.Name = "Detail"
+        '
+        'lblMitarbeiter
+        '
+        Me.lblMitarbeiter.Height = 0.1795276!
+        Me.lblMitarbeiter.HyperLink = Nothing
+        Me.lblMitarbeiter.Left = 0.005118111!
+        Me.lblMitarbeiter.Name = "lblMitarbeiter"
+        Me.lblMitarbeiter.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1"
+        Me.lblMitarbeiter.Text = "-"
+        Me.lblMitarbeiter.Top = 0!
+        Me.lblMitarbeiter.Width = 4.519686!
+        '
+        'lblAnzLKW
+        '
+        Me.lblAnzLKW.Height = 0.1795276!
+        Me.lblAnzLKW.HyperLink = Nothing
+        Me.lblAnzLKW.Left = 6.000001!
+        Me.lblAnzLKW.Name = "lblAnzLKW"
+        Me.lblAnzLKW.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
+        Me.lblAnzLKW.Text = "0,00"
+        Me.lblAnzLKW.Top = 0!
+        Me.lblAnzLKW.Width = 1.475196!
+        '
+        'lblAnzSnd
+        '
+        Me.lblAnzSnd.Height = 0.1795276!
+        Me.lblAnzSnd.HyperLink = Nothing
+        Me.lblAnzSnd.Left = 4.524804!
+        Me.lblAnzSnd.Name = "lblAnzSnd"
+        Me.lblAnzSnd.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
+        Me.lblAnzSnd.Text = "0"
+        Me.lblAnzSnd.Top = 0!
+        Me.lblAnzSnd.Width = 1.475198!
+        '
+        'PageFooter
+        '
+        Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
+        Me.PageFooter.Name = "PageFooter"
+        '
+        'Label28
+        '
+        Me.Label28.Height = 0.1330709!
+        Me.Label28.HyperLink = Nothing
+        Me.Label28.Left = 2.13937!
+        Me.Label28.Name = "Label28"
+        Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
+        Me.Label28.Text = "VERAG Spediton AG"
+        Me.Label28.Top = 0.08622044!
+        Me.Label28.Width = 2.649606!
+        '
+        'Line2
+        '
+        Me.Line2.Height = 0!
+        Me.Line2.Left = 0!
+        Me.Line2.LineWeight = 1.0!
+        Me.Line2.Name = "Line2"
+        Me.Line2.Top = 0.03070864!
+        Me.Line2.Width = 7.480313!
+        Me.Line2.X1 = 0!
+        Me.Line2.X2 = 7.480313!
+        Me.Line2.Y1 = 0.03070864!
+        Me.Line2.Y2 = 0.03070864!
+        '
+        'ReportInfo2
+        '
+        Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
+        Me.ReportInfo2.Height = 0.1330709!
+        Me.ReportInfo2.Left = 5.04252!
+        Me.ReportInfo2.Name = "ReportInfo2"
+        Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
+        Me.ReportInfo2.Top = 0.08622046!
+        Me.ReportInfo2.Width = 2.437842!
+        '
+        'lblDat
+        '
+        Me.lblDat.Height = 0.1330708!
+        Me.lblDat.HyperLink = Nothing
+        Me.lblDat.Left = 0.01023622!
+        Me.lblDat.Name = "lblDat"
+        Me.lblDat.Style = "font-size: 8pt; text-align: left"
+        Me.lblDat.Text = "Mittwoch, 02.11.2016"
+        Me.lblDat.Top = 0.08622044!
+        Me.lblDat.Width = 2.649606!
+        '
+        'ReportHeader1
+        '
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.Label1, Me.Label9, Me.lblSachbearbeiter, Me.lblKassenbuchNr, Me.lblGeschaeftsjahr, Me.lblMandantNiederlassung})
+        Me.ReportHeader1.Height = 0.6968505!
+        Me.ReportHeader1.Name = "ReportHeader1"
+        '
+        'picVERAG
+        '
+        Me.picVERAG.Height = 0.4169292!
+        Me.picVERAG.HyperLink = Nothing
+        Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
+        Me.picVERAG.Left = 5.281889!
+        Me.picVERAG.Name = "picVERAG"
+        Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+        Me.picVERAG.Top = 0!
+        Me.picVERAG.Width = 2.198425!
+        '
+        'Label3
+        '
+        Me.Label3.Height = 0.1377953!
+        Me.Label3.HyperLink = Nothing
+        Me.Label3.Left = 1.421085E-14!
+        Me.Label3.Name = "Label3"
+        Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
+        Me.Label3.Text = "Sachbearbeiter:"
+        Me.Label3.Top = 0.3830709!
+        Me.Label3.Width = 2.607087!
+        '
+        'lblUeberschrift
+        '
+        Me.lblUeberschrift.Height = 0.2311024!
+        Me.lblUeberschrift.HyperLink = Nothing
+        Me.lblUeberschrift.Left = 0.01023622!
+        Me.lblUeberschrift.Name = "lblUeberschrift"
+        Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.lblUeberschrift.Text = "Sendungserfassung TR 01.10.2016 bis 31.10.2016"
+        Me.lblUeberschrift.Top = 0.1338583!
+        Me.lblUeberschrift.Width = 5.032284!
+        '
+        'Label1
+        '
+        Me.Label1.Height = 0.1377952!
+        Me.Label1.HyperLink = Nothing
+        Me.Label1.Left = 2.607087!
+        Me.Label1.Name = "Label1"
+        Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
+        Me.Label1.Text = ""
+        Me.Label1.Top = 0.3830709!
+        Me.Label1.Width = 1.212598!
+        '
+        'Label9
+        '
+        Me.Label9.Height = 0.1377952!
+        Me.Label9.HyperLink = Nothing
+        Me.Label9.Left = 3.819686!
+        Me.Label9.Name = "Label9"
+        Me.Label9.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
+        Me.Label9.Text = ""
+        Me.Label9.Top = 0.3830709!
+        Me.Label9.Width = 1.212598!
+        '
+        'lblSachbearbeiter
+        '
+        Me.lblSachbearbeiter.Height = 0.1759843!
+        Me.lblSachbearbeiter.HyperLink = Nothing
+        Me.lblSachbearbeiter.Left = 0!
+        Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
+        Me.lblSachbearbeiter.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
+    ""
+        Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
+        Me.lblSachbearbeiter.Top = 0.5208663!
+        Me.lblSachbearbeiter.Width = 2.607087!
+        '
+        'lblKassenbuchNr
+        '
+        Me.lblKassenbuchNr.Height = 0.1759843!
+        Me.lblKassenbuchNr.HyperLink = Nothing
+        Me.lblKassenbuchNr.Left = 2.607087!
+        Me.lblKassenbuchNr.Name = "lblKassenbuchNr"
+        Me.lblKassenbuchNr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
+    "er"
+        Me.lblKassenbuchNr.Text = ""
+        Me.lblKassenbuchNr.Top = 0.5208663!
+        Me.lblKassenbuchNr.Width = 1.212598!
+        '
+        'lblGeschaeftsjahr
+        '
+        Me.lblGeschaeftsjahr.Height = 0.1759843!
+        Me.lblGeschaeftsjahr.HyperLink = Nothing
+        Me.lblGeschaeftsjahr.Left = 3.819686!
+        Me.lblGeschaeftsjahr.Name = "lblGeschaeftsjahr"
+        Me.lblGeschaeftsjahr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
+    "er"
+        Me.lblGeschaeftsjahr.Text = ""
+        Me.lblGeschaeftsjahr.Top = 0.5208663!
+        Me.lblGeschaeftsjahr.Width = 1.212598!
+        '
+        'lblMandantNiederlassung
+        '
+        Me.lblMandantNiederlassung.Height = 0.1759843!
+        Me.lblMandantNiederlassung.HyperLink = Nothing
+        Me.lblMandantNiederlassung.Left = 5.032284!
+        Me.lblMandantNiederlassung.Name = "lblMandantNiederlassung"
+        Me.lblMandantNiederlassung.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: righ" &
+    "t"
+        Me.lblMandantNiederlassung.Text = ""
+        Me.lblMandantNiederlassung.Top = 0.5208663!
+        Me.lblMandantNiederlassung.Width = 2.448032!
+        '
+        'ReportFooter1
+        '
+        Me.ReportFooter1.Height = 0!
+        Me.ReportFooter1.Name = "ReportFooter1"
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFiliale, Me.Label5, Me.lblBarTitle, Me.Label7})
+        Me.GroupHeader1.Height = 0.4982776!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'lblFiliale
+        '
+        Me.lblFiliale.Height = 0.1759843!
+        Me.lblFiliale.HyperLink = Nothing
+        Me.lblFiliale.Left = 0.01023622!
+        Me.lblFiliale.Name = "lblFiliale"
+        Me.lblFiliale.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
+    ""
+        Me.lblFiliale.Text = ""
+        Me.lblFiliale.Top = 0.1035433!
+        Me.lblFiliale.Width = 7.470079!
+        '
+        'Label5
+        '
+        Me.Label5.Height = 0.1795276!
+        Me.Label5.HyperLink = Nothing
+        Me.Label5.Left = 0.005118111!
+        Me.Label5.Name = "Label5"
+        Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.Label5.Text = "Mitarbeiter"
+        Me.Label5.Top = 0.3188977!
+        Me.Label5.Width = 4.519686!
+        '
+        'lblBarTitle
+        '
+        Me.lblBarTitle.Height = 0.1795276!
+        Me.lblBarTitle.HyperLink = Nothing
+        Me.lblBarTitle.Left = 6.000001!
+        Me.lblBarTitle.Name = "lblBarTitle"
+        Me.lblBarTitle.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.lblBarTitle.Text = "Anzahl LKWs"
+        Me.lblBarTitle.Top = 0.3188977!
+        Me.lblBarTitle.Width = 1.475196!
+        '
+        'Label7
+        '
+        Me.Label7.Height = 0.1795276!
+        Me.Label7.HyperLink = Nothing
+        Me.Label7.Left = 4.524804!
+        Me.Label7.Name = "Label7"
+        Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.Label7.Text = "Anzahl Sendungen"
+        Me.Label7.Top = 0.3188977!
+        Me.Label7.Width = 1.475197!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAnzLKWSum, Me.lblAnzSndSum, Me.Line1})
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'lblAnzLKWSum
+        '
+        Me.lblAnzLKWSum.Height = 0.1795276!
+        Me.lblAnzLKWSum.HyperLink = Nothing
+        Me.lblAnzLKWSum.Left = 6.0!
+        Me.lblAnzLKWSum.Name = "lblAnzLKWSum"
+        Me.lblAnzLKWSum.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.lblAnzLKWSum.Text = "Barzahlungsbetrag"
+        Me.lblAnzLKWSum.Top = 0.007874017!
+        Me.lblAnzLKWSum.Width = 1.475196!
+        '
+        'lblAnzSndSum
+        '
+        Me.lblAnzSndSum.Height = 0.1795276!
+        Me.lblAnzSndSum.HyperLink = Nothing
+        Me.lblAnzSndSum.Left = 4.524804!
+        Me.lblAnzSndSum.Name = "lblAnzSndSum"
+        Me.lblAnzSndSum.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.lblAnzSndSum.Text = "Anzahl"
+        Me.lblAnzSndSum.Top = 0.007874017!
+        Me.lblAnzSndSum.Width = 1.475197!
+        '
+        'Line1
+        '
+        Me.Line1.Height = 0!
+        Me.Line1.Left = 4.524804!
+        Me.Line1.LineWeight = 1.0!
+        Me.Line1.Name = "Line1"
+        Me.Line1.Top = 0!
+        Me.Line1.Width = 2.950393!
+        Me.Line1.X1 = 4.524804!
+        Me.Line1.X2 = 7.475197!
+        Me.Line1.Y1 = 0!
+        Me.Line1.Y2 = 0!
+        '
+        'rptStat_VERIMEX_AbklTR
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.3937008!
+        Me.PageSettings.Margins.Left = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Top = 0.3937008!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.480315!
+        Me.Sections.Add(Me.ReportHeader1)
+        Me.Sections.Add(Me.PageHeader)
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        Me.Sections.Add(Me.PageFooter)
+        Me.Sections.Add(Me.ReportFooter1)
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
+            "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
+            "lic", "Heading2", "Normal"))
+        Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
+        CType(Me.lblMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAnzLKW, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAnzSnd, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblFiliale, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblBarTitle, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAnzLKWSum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblAnzSndSum, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
+    Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
+    Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblKassenbuchNr As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblGeschaeftsjahr As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents lblMandantNiederlassung As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
+    Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
+    Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Public WithEvents lblMitarbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblAnzLKW As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblAnzSnd As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblAnzLKWSum As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblAnzSndSum As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblFiliale As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblBarTitle As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
+End Class

Aviso/Auswertung/rptStat_VERIMEX_AbklTR.vb

@@ -0,0 +1,6 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptStat_VERIMEX_AbklTR
+
+End Class

Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb

@@ -0,0 +1,163 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrctlStatVERIMEX
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Panel4 = New System.Windows.Forms.Panel()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.dgvAbklaerungTR = New System.Windows.Forms.DataGridView()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.datStatBis = New System.Windows.Forms.DateTimePicker()
+        Me.datStatVon = New System.Windows.Forms.DateTimePicker()
+        Me.Panel3.SuspendLayout()
+        Me.Panel4.SuspendLayout()
+        CType(Me.dgvAbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.Label9)
+        Me.Panel3.Controls.Add(Me.Panel4)
+        Me.Panel3.Location = New System.Drawing.Point(15, 17)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(701, 398)
+        Me.Panel3.TabIndex = 15
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label9.Location = New System.Drawing.Point(3, 8)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(139, 13)
+        Me.Label9.TabIndex = 18
+        Me.Label9.Text = "Sendungserfassung TR"
+        '
+        'Panel4
+        '
+        Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.Panel4.Controls.Add(Me.Button2)
+        Me.Panel4.Controls.Add(Me.dgvAbklaerungTR)
+        Me.Panel4.Controls.Add(Me.Label10)
+        Me.Panel4.Controls.Add(Me.Label6)
+        Me.Panel4.Controls.Add(Me.Button1)
+        Me.Panel4.Controls.Add(Me.datStatBis)
+        Me.Panel4.Controls.Add(Me.datStatVon)
+        Me.Panel4.Location = New System.Drawing.Point(3, 24)
+        Me.Panel4.Name = "Panel4"
+        Me.Panel4.Size = New System.Drawing.Size(670, 359)
+        Me.Panel4.TabIndex = 15
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(592, 11)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(75, 23)
+        Me.Button2.TabIndex = 20
+        Me.Button2.Text = "Bericht"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'dgvAbklaerungTR
+        '
+        Me.dgvAbklaerungTR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvAbklaerungTR.Location = New System.Drawing.Point(6, 38)
+        Me.dgvAbklaerungTR.Name = "dgvAbklaerungTR"
+        Me.dgvAbklaerungTR.Size = New System.Drawing.Size(661, 318)
+        Me.dgvAbklaerungTR.TabIndex = 19
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(181, 17)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(10, 13)
+        Me.Label10.TabIndex = 18
+        Me.Label10.Text = "-"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(3, 18)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(51, 13)
+        Me.Label6.TabIndex = 6
+        Me.Label6.Text = "Zeitraum:"
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(511, 11)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 11
+        Me.Button1.Text = "Excel"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'datStatBis
+        '
+        Me.datStatBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.datStatBis.Location = New System.Drawing.Point(197, 11)
+        Me.datStatBis.Name = "datStatBis"
+        Me.datStatBis.Size = New System.Drawing.Size(105, 20)
+        Me.datStatBis.TabIndex = 7
+        '
+        'datStatVon
+        '
+        Me.datStatVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.datStatVon.Location = New System.Drawing.Point(70, 12)
+        Me.datStatVon.Name = "datStatVon"
+        Me.datStatVon.Size = New System.Drawing.Size(105, 20)
+        Me.datStatVon.TabIndex = 8
+        '
+        'usrctlStatVERIMEX
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.Panel3)
+        Me.Name = "usrctlStatVERIMEX"
+        Me.Size = New System.Drawing.Size(844, 510)
+        Me.Panel3.ResumeLayout(False)
+        Me.Panel3.PerformLayout()
+        Me.Panel4.ResumeLayout(False)
+        Me.Panel4.PerformLayout()
+        CType(Me.dgvAbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Panel4 As Panel
+    Friend WithEvents dgvAbklaerungTR As DataGridView
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents datStatBis As DateTimePicker
+    Friend WithEvents datStatVon As DateTimePicker
+    Friend WithEvents Button2 As Button
+End Class

Aviso/Auswertung/usrctlStatVERIMEX.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Aviso/Auswertung/usrctlStatVERIMEX.vb

@@ -0,0 +1,91 @@
+Imports Gemeinsames
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class usrctlStatVERIMEX
+
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Sub init()
+        With dgvAbklaerungTR
+            Dim sqlstr = "SELECT  mit_vname + ' ' + mit_nname as Mitarbeiter ,count(*) as Sendungen ,count(distinct(avisoid)) as LKW
+                  FROM [tblSendungen] inner join aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbklaerungTR_MA
+                  where cast(Datum as date) BETWEEN '" & datStatVon.Value & "' and '" & datStatBis.Value & "'  and tblSnd_AbklaerungTR_MA is not null
+                  group by mit_vname,mit_nname"
+
+            dgvAbklaerungTR.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
+
+        End With
+    End Sub
+
+
+
+
+
+
+    Private Sub datStatVon_ValueChanged(sender As Object, e As EventArgs) Handles datStatVon.ValueChanged, datStatBis.ValueChanged
+        init()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.Cursor = Cursors.WaitCursor
+        SDL.cProgramFunctions.genExcelFromDGV_NEW(dgvAbklaerungTR, False)
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+
+
+        Dim print As New frmPrintLayout
+            print.Text = "Speditionsbericht"
+
+            Dim rpt As New rptStat_VERIMEX_AbklTR
+
+            rpt.DataSource = dgvAbklaerungTR.DataSource
+
+
+
+
+        If rpt.DataSource Is Nothing OrElse rpt.DataSource.rows.count = 0 Then
+            rpt.Dispose() : print.Dispose()
+            MsgBox("Keine Daten vorhanden!")
+            Exit Sub
+        End If
+
+        Dim sum = 0
+            rpt.lblUeberschrift.Text = "Sendungserfassung TR  " & datStatVon.Text & " bis " & datStatBis.Text
+            rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+            'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
+
+            'Dim cnt As Integer = 0
+            rpt.lblDat.Text = Now.ToLongDateString
+            Dim sumSnd As Integer = 0
+            Dim sumLKW As Integer = 0
+
+
+            AddHandler rpt.Detail.Format, Sub()
+                                              'rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
+                                              'rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
+                                              rpt.lblAnzSnd.Text = rpt.Fields.Item("Sendungen").Value
+                                              rpt.lblAnzLKW.Text = rpt.Fields.Item("LKW").Value
+
+                                              rpt.lblMitarbeiter.Text = rpt.Fields.Item("Mitarbeiter").Value
+
+                                              sumSnd += CInt(rpt.Fields.Item("Sendungen").Value)
+                                              sumLKW += CInt(rpt.Fields.Item("LKW").Value)
+                                          End Sub
+            AddHandler rpt.GroupHeader1.Format, Sub()
+                                                    '  If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")
+                                                    sumSnd = 0
+                                                    sumLKW = 0
+                                                End Sub
+            AddHandler rpt.GroupFooter1.Format, Sub()
+                                                    rpt.lblAnzSndSum.Text = sumSnd
+                                                    rpt.lblAnzLKWSum.Text = sumLKW
+                                                End Sub
+
+            print.Viewer.LoadDocument(rpt)
+            print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        print.Show()
+    End Sub
+End Class

Aviso/Aviso.vbproj

@@ -205,15 +205,15 @@
     </Reference>
     <Reference Include="Spire.License, Version=1.3.8.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\PDF Spire\6.8.5\Spire.License.dll</HintPath>
+      <HintPath>..\..\..\dll\PDF Spire\6.10\Spire.License.dll</HintPath>
     </Reference>
-    <Reference Include="Spire.Pdf, Version=6.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
+    <Reference Include="Spire.Pdf, Version=6.8.5.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\PDF Spire\6.8.5\Spire.Pdf.dll</HintPath>
+      <HintPath>..\..\..\dll\PDF Spire\6.10\Spire.Pdf.dll</HintPath>
     </Reference>
     <Reference Include="Spire.PdfViewer.Forms, Version=5.8.2.0, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\..\dll\PDF Spire\6.8.5\Spire.PdfViewer.Forms.dll</HintPath>
+      <HintPath>..\..\..\dll\PDF Spire\6.10\Spire.PdfViewer.Forms.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
@@ -314,6 +314,18 @@
     <Compile Include="Auswertung\frmStatFrima.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Auswertung\rptStat_VERIMEX_AbklTR.Designer.vb">
+      <DependentUpon>rptStat_VERIMEX_AbklTR.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Auswertung\rptStat_VERIMEX_AbklTR.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Auswertung\usrctlStatVERIMEX.Designer.vb">
+      <DependentUpon>usrctlStatVERIMEX.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Auswertung\usrctlStatVERIMEX.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
     <Compile Include="Auswertung\usrctlMAUebersicht.Designer.vb">
       <DependentUpon>usrctlMAUebersicht.vb</DependentUpon>
     </Compile>
@@ -792,6 +804,12 @@
     <EmbeddedResource Include="Auswertung\frmStatFrima.resx">
       <DependentUpon>frmStatFrima.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Auswertung\rptStat_VERIMEX_AbklTR.resx">
+      <DependentUpon>rptStat_VERIMEX_AbklTR.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Auswertung\usrctlStatVERIMEX.resx">
+      <DependentUpon>usrctlStatVERIMEX.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Auswertung\usrctlMAUebersicht.resx">
       <DependentUpon>usrctlMAUebersicht.vb</DependentUpon>
     </EmbeddedResource>
@@ -1136,6 +1154,9 @@
     <None Include="Resources\fragezeichen.png" />
     <None Include="Resources\info.png" />
     <None Include="Resources\logo.png" />
+    <None Include="Resources\abklaerungTR_Inaktiv.jpg" />
+    <None Include="Resources\abklaerungTR_Aktiv.jpg" />
+    <None Include="Resources\fragezeichen1.png" />
     <Content Include="Resources\UNISPED.png">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

Aviso/My Project/AssemblyInfo.vb

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

Aviso/My Project/Resources.Designer.vb

@@ -100,6 +100,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property abklaerungTR_Aktiv() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("abklaerungTR_Aktiv", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property abklaerungTR_Inaktiv() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("abklaerungTR_Inaktiv", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -529,6 +549,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property fragezeichen1() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("fragezeichen1", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1079,15 +1109,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property sdfgsdfgdf3dfdfgdfg() As String
-            Get
-                Return ResourceManager.GetString("sdfgsdfgdf3dfdfgdfg", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1408,7 +1429,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 3.5.4.5 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 3.5.5.3 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

Aviso/My Project/Resources.resx

@@ -121,8 +121,8 @@
   <data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Versionsinfo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Versionsinfo.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
@@ -136,9 +136,6 @@
   <data name="els" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\els.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="mitarbeiter_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mitarbeiter_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -181,11 +178,11 @@
   <data name="nellenquack" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\nellenquack.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="del_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\del_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -196,8 +193,8 @@
   <data name="person_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\person_add.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="tranparent30Perc" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\tranparent30Perc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -211,8 +208,8 @@
   <data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="pdf11" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\pdf11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -223,6 +220,9 @@
   <data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -232,9 +232,6 @@
   <data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -271,8 +268,8 @@
   <data name="searchGG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\searchGG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -295,35 +292,29 @@
   <data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\uid.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warning.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="_SUB" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\SUB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="search1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="dakosy_dy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\dakosy_dy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="beleg1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\beleg1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -352,9 +343,6 @@
   <data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -370,8 +358,8 @@
   <data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="SBG" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -382,12 +370,21 @@
   <data name="spedbuch_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="abklaerungTR_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\abklaerungTR_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -400,6 +397,9 @@
   <data name="android_note" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-note.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="verimex" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -415,8 +415,8 @@
   <data name="zoll_mmm" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zoll_mmm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="android_clock_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\android-clock_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -427,14 +427,17 @@
   <data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="fragezeichen" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\fragezeichen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -454,9 +457,6 @@
   <data name="abgeklaertAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\abgeklaertAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -472,20 +472,23 @@
   <data name="statistik" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statistik.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="avisoNewMsg" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\avisoNewMsg.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -496,12 +499,18 @@
   <data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </data>
   <data name="kasse_sw_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\kasse_sw_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="LateAviso_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\LateAviso_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="search1" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -514,23 +523,20 @@
   <data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="del_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\del_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>3.5.4.5</value>
+    <value>3.5.5.3</value>
-  </data>
-  <data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="statusBtn_vorgeschrieben_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\statusBtn_vorgeschrieben_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -541,8 +547,11 @@
   <data name="arrow_down_orange" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\arrow_down_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -550,8 +559,8 @@
   <data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -565,19 +574,16 @@
   <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="IMEX" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\IMEX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
+  <data name="fragezeichen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+    <value>..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="verimex" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="sdfgsdfgdf3dfdfgdfg" xml:space="preserve">
-    <value />
   </data>
 </root>

Aviso/frmEintragAviso.designer.vb

@@ -83,8 +83,6 @@ Partial Class frmEintragAviso
         Me.kdAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.kdAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.kdFrächter = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
-        Me.lblZA = New System.Windows.Forms.Label()
-        Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.sbLkwNationalitaet = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Label18 = New System.Windows.Forms.Label()
@@ -115,6 +113,10 @@ Partial Class frmEintragAviso
         Me.Label22 = New System.Windows.Forms.Label()
         Me.Label24 = New System.Windows.Forms.Label()
         Me.datVoraussichtlichesEintreffen = New System.Windows.Forms.DateTimePicker()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.cbxWarenort = New System.Windows.Forms.CheckBox()
+        Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.lblZA = New System.Windows.Forms.Label()
         Me.grp = New System.Windows.Forms.GroupBox()
         Me.txtDyRef = New System.Windows.Forms.TextBox()
         Me.picDy = New System.Windows.Forms.PictureBox()
@@ -139,21 +141,19 @@ Partial Class frmEintragAviso
         Me.cbxSendungsvorlagen = New System.Windows.Forms.CheckBox()
         Me.cbxAktenzettelDrucken = New System.Windows.Forms.CheckBox()
         Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.cbxWarenort = New System.Windows.Forms.CheckBox()
+        Me.UsrCntlEintragAvisoAtilla = New AVISO.usrCntlEintragAvisoAtilla()
-        Me.pnl = New System.Windows.Forms.Panel()
         Me.panAdmin.SuspendLayout()
         Me.grpAviso.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.pnl.SuspendLayout()
         Me.grp.SuspendLayout()
         CType(Me.picDy, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.grpAktVerzollung.SuspendLayout()
         Me.pnlSBG.SuspendLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.pnl.SuspendLayout()
         Me.SuspendLayout()
         '
         'btnOK
@@ -697,7 +697,7 @@ Partial Class frmEintragAviso
         Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboGrenzstelle.FormattingEnabled = True
-        Me.cboGrenzstelle.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "???"})
+        Me.cboGrenzstelle.Items.AddRange(New Object() {"", "SUB", "SBG", "WAI", "NKD", "SFD", "NEU", "AMB", "???"})
         Me.cboGrenzstelle.Location = New System.Drawing.Point(232, 139)
         Me.cboGrenzstelle.Name = "cboGrenzstelle"
         Me.cboGrenzstelle.Size = New System.Drawing.Size(74, 28)
@@ -911,41 +911,6 @@ Partial Class frmEintragAviso
         Me.kdFrächter.TIMER_SEARCH = True
         Me.kdFrächter.usrcntl = Nothing
         '
-        'lblZA
-        '
-        Me.lblZA.AutoSize = True
-        Me.lblZA.Location = New System.Drawing.Point(6, 5)
-        Me.lblZA.Name = "lblZA"
-        Me.lblZA.Size = New System.Drawing.Size(44, 13)
-        Me.lblZA.TabIndex = 0
-        Me.lblZA.Text = "Zollamt:"
-        '
-        'txtBestimmungszollstelle
-        '
-        Me.txtBestimmungszollstelle._allowFreitext = False
-        Me.txtBestimmungszollstelle._AllowSetValue = False
-        Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
-        Me.txtBestimmungszollstelle._autoSizeGross = False
-        Me.txtBestimmungszollstelle._hideIfListEmpty = True
-        Me.txtBestimmungszollstelle._value = Nothing
-        Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
-        Me.txtBestimmungszollstelle.dgvpos = "LEFT"
-        Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
-        Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
-        Me.txtBestimmungszollstelle.key_visible = False
-        Me.txtBestimmungszollstelle.KEYPARAM = Nothing
-        Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(52, 2)
-        Me.txtBestimmungszollstelle.MaxLength = 50
-        Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
-        Me.txtBestimmungszollstelle.searchActive = True
-        Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(239, 20)
-        Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
-        Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
-        Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
-        Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
-        Me.txtBestimmungszollstelle.TabIndex = 1
-        Me.txtBestimmungszollstelle.usrcntl = Nothing
-        '
         'Button4
         '
         Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
@@ -1322,6 +1287,64 @@ Partial Class frmEintragAviso
         Me.datVoraussichtlichesEintreffen.Value = New Date(2020, 1, 23, 0, 0, 0, 0)
         Me.datVoraussichtlichesEintreffen.Visible = False
         '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.PapayaWhip
+        Me.pnl.Controls.Add(Me.cbxWarenort)
+        Me.pnl.Controls.Add(Me.txtBestimmungszollstelle)
+        Me.pnl.Controls.Add(Me.lblZA)
+        Me.pnl.Location = New System.Drawing.Point(0, 170)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(402, 24)
+        Me.pnl.TabIndex = 23
+        Me.pnl.Visible = False
+        '
+        'cbxWarenort
+        '
+        Me.cbxWarenort.AutoSize = True
+        Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.cbxWarenort.Location = New System.Drawing.Point(300, 4)
+        Me.cbxWarenort.Name = "cbxWarenort"
+        Me.cbxWarenort.Size = New System.Drawing.Size(70, 17)
+        Me.cbxWarenort.TabIndex = 2
+        Me.cbxWarenort.Text = "Warenort"
+        Me.cbxWarenort.UseVisualStyleBackColor = True
+        '
+        'txtBestimmungszollstelle
+        '
+        Me.txtBestimmungszollstelle._allowFreitext = False
+        Me.txtBestimmungszollstelle._AllowSetValue = False
+        Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
+        Me.txtBestimmungszollstelle._autoSizeGross = False
+        Me.txtBestimmungszollstelle._hideIfListEmpty = True
+        Me.txtBestimmungszollstelle._value = Nothing
+        Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
+        Me.txtBestimmungszollstelle.dgvpos = "LEFT"
+        Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
+        Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
+        Me.txtBestimmungszollstelle.key_visible = False
+        Me.txtBestimmungszollstelle.KEYPARAM = Nothing
+        Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(52, 2)
+        Me.txtBestimmungszollstelle.MaxLength = 50
+        Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
+        Me.txtBestimmungszollstelle.searchActive = True
+        Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(239, 20)
+        Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
+        Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
+        Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
+        Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
+        Me.txtBestimmungszollstelle.TabIndex = 1
+        Me.txtBestimmungszollstelle.usrcntl = Nothing
+        '
+        'lblZA
+        '
+        Me.lblZA.AutoSize = True
+        Me.lblZA.Location = New System.Drawing.Point(6, 5)
+        Me.lblZA.Name = "lblZA"
+        Me.lblZA.Size = New System.Drawing.Size(44, 13)
+        Me.lblZA.TabIndex = 0
+        Me.lblZA.Text = "Zollamt:"
+        '
         'grp
         '
         Me.grp.Controls.Add(Me.optUnbekannt)
@@ -1646,15 +1669,6 @@ Partial Class frmEintragAviso
         Me.cboPrinter.TabIndex = 12
         Me.cboPrinter.Visible = False
         '
-        'UsrCntlEintragAvisoAtilla
-        '
-        Me.UsrCntlEintragAvisoAtilla.BackColor = System.Drawing.Color.White
-        Me.UsrCntlEintragAvisoAtilla.Location = New System.Drawing.Point(424, 49)
-        Me.UsrCntlEintragAvisoAtilla.Name = "UsrCntlEintragAvisoAtilla"
-        Me.UsrCntlEintragAvisoAtilla.Size = New System.Drawing.Size(360, 487)
-        Me.UsrCntlEintragAvisoAtilla.TabIndex = 6
-        Me.UsrCntlEintragAvisoAtilla.Visible = False
-        '
         'dgvAnhaenge
         '
         Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
@@ -1691,28 +1705,14 @@ Partial Class frmEintragAviso
         Me.clmnPfad.ReadOnly = True
         Me.clmnPfad.Visible = False
         '
-        'cbxWarenort
+        'UsrCntlEintragAvisoAtilla
         '
-        Me.cbxWarenort.AutoSize = True
+        Me.UsrCntlEintragAvisoAtilla.BackColor = System.Drawing.Color.White
-        Me.cbxWarenort.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.UsrCntlEintragAvisoAtilla.Location = New System.Drawing.Point(424, 49)
-        Me.cbxWarenort.Location = New System.Drawing.Point(300, 4)
+        Me.UsrCntlEintragAvisoAtilla.Name = "UsrCntlEintragAvisoAtilla"
-        Me.cbxWarenort.Name = "cbxWarenort"
+        Me.UsrCntlEintragAvisoAtilla.Size = New System.Drawing.Size(360, 487)
-        Me.cbxWarenort.Size = New System.Drawing.Size(70, 17)
+        Me.UsrCntlEintragAvisoAtilla.TabIndex = 6
-        Me.cbxWarenort.TabIndex = 2
+        Me.UsrCntlEintragAvisoAtilla.Visible = False
-        Me.cbxWarenort.Text = "Warenort"
-        Me.cbxWarenort.UseVisualStyleBackColor = True
-        '
-        'pnl
-        '
-        Me.pnl.BackColor = System.Drawing.Color.PapayaWhip
-        Me.pnl.Controls.Add(Me.cbxWarenort)
-        Me.pnl.Controls.Add(Me.txtBestimmungszollstelle)
-        Me.pnl.Controls.Add(Me.lblZA)
-        Me.pnl.Location = New System.Drawing.Point(0, 170)
-        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(402, 24)
-        Me.pnl.TabIndex = 23
-        Me.pnl.Visible = False
         '
         'frmEintragAviso
         '
@@ -1756,6 +1756,8 @@ Partial Class frmEintragAviso
         Me.grpAviso.ResumeLayout(False)
         Me.grpAviso.PerformLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.pnl.ResumeLayout(False)
+        Me.pnl.PerformLayout()
         Me.grp.ResumeLayout(False)
         Me.grp.PerformLayout()
         CType(Me.picDy, System.ComponentModel.ISupportInitialize).EndInit()
@@ -1764,8 +1766,6 @@ Partial Class frmEintragAviso
         Me.pnlSBG.ResumeLayout(False)
         Me.pnlSBG.PerformLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.pnl.ResumeLayout(False)
-        Me.pnl.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 

Aviso/frmEintragAviso.resx

@@ -216,12 +216,6 @@
   <metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
-  <metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-  <metadata name="clmnPfad.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

Aviso/frmEintragAviso.vb

@@ -121,9 +121,17 @@ Public Class frmEintragAviso
             Case "UNISPED"
                 Label1.Visible = True
                 cboImEx.Visible = True
-                '    lblDy.Visible = True
+            Case "AMBAR"
-                '    txtDyRef.Visible = True
+                txtSndFiskalAT.Visible = False
-                '    picDy.Visible = True
+                lblFiskAT.Visible = False
+                txtSndFiskalDE.Visible = False
+                lblFiskDE.Visible = False
+                Label1.Visible = True
+                cboImEx.Visible = True
+
+                txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
+
+                pnl.Visible = True
             Case "VERAG"
                 Label1.Visible = True
                 cboImEx.Visible = True
@@ -777,6 +785,12 @@ Public Class frmEintragAviso
                 myAviso.Grenzstelle = cboGrenzstelle.Text
                 ' MsgBox(myAviso.Grenzstelle)
             End If
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+                myAviso.Grenzstelle = "AMB"
+            End If
+
+
             '  myAviso.Buero = cboGrenzstelle.Text
             myAviso.ImEx = IIf(cboImEx.Visible, cboImEx.Text, "")
 
@@ -1121,6 +1135,7 @@ Public Class frmEintragAviso
                 Case "NKD" : filialeNr = 5303
                 Case "SFD" : filialeNr = 4839
                 Case "NEU" : filialeNr = 4819
+                Case "AMB" : filialeNr = 5701
                 Case "???", "" : If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale > 0 Then filialeNr = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_standartFiliale
             End Select
         ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then

Aviso/frmHauptfenster.Designer.vb

@@ -557,43 +557,43 @@ Partial Class frmHauptfenster
         'VERAGToolStripMenuItem
         '
         Me.VERAGToolStripMenuItem.Name = "VERAGToolStripMenuItem"
-        Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.VERAGToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.VERAGToolStripMenuItem.Text = "VERAG"
         '
         'ATILLAToolStripMenuItem
         '
         Me.ATILLAToolStripMenuItem.Name = "ATILLAToolStripMenuItem"
-        Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ATILLAToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.ATILLAToolStripMenuItem.Text = "ATILLA"
         '
         'IMEXToolStripMenuItem
         '
         Me.IMEXToolStripMenuItem.Name = "IMEXToolStripMenuItem"
-        Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.IMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.IMEXToolStripMenuItem.Text = "IMEX"
         '
         'UNISPEDToolStripMenuItem
         '
         Me.UNISPEDToolStripMenuItem.Name = "UNISPEDToolStripMenuItem"
-        Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UNISPEDToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.UNISPEDToolStripMenuItem.Text = "UNISPED"
         '
         'AMBARToolStripMenuItem
         '
         Me.AMBARToolStripMenuItem.Name = "AMBARToolStripMenuItem"
-        Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AMBARToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.AMBARToolStripMenuItem.Text = "AMBAR"
         '
         'FRONTOFFICEToolStripMenuItem
         '
         Me.FRONTOFFICEToolStripMenuItem.Name = "FRONTOFFICEToolStripMenuItem"
-        Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.FRONTOFFICEToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.FRONTOFFICEToolStripMenuItem.Text = "FRONTOFFICE"
         '
         'VERIMEXToolStripMenuItem
         '
         Me.VERIMEXToolStripMenuItem.Name = "VERIMEXToolStripMenuItem"
-        Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.VERIMEXToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
         Me.VERIMEXToolStripMenuItem.Text = "VERIMEX"
         '
         'StandortWechselnToolStripMenuItem
@@ -607,37 +607,37 @@ Partial Class frmHauptfenster
         'SUBToolStripMenuItem
         '
         Me.SUBToolStripMenuItem.Name = "SUBToolStripMenuItem"
-        Me.SUBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SUBToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
         Me.SUBToolStripMenuItem.Text = "SUB"
         '
         'SBGToolStripMenuItem
         '
         Me.SBGToolStripMenuItem.Name = "SBGToolStripMenuItem"
-        Me.SBGToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SBGToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
         Me.SBGToolStripMenuItem.Text = "SBG"
         '
         'WAIToolStripMenuItem
         '
         Me.WAIToolStripMenuItem.Name = "WAIToolStripMenuItem"
-        Me.WAIToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.WAIToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
         Me.WAIToolStripMenuItem.Text = "WAI"
         '
         'NKDToolStripMenuItem
         '
         Me.NKDToolStripMenuItem.Name = "NKDToolStripMenuItem"
-        Me.NKDToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NKDToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
         Me.NKDToolStripMenuItem.Text = "NKD"
         '
         'NEUToolStripMenuItem
         '
         Me.NEUToolStripMenuItem.Name = "NEUToolStripMenuItem"
-        Me.NEUToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NEUToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
         Me.NEUToolStripMenuItem.Text = "NEU"
         '
         'AMBToolStripMenuItem
         '
         Me.AMBToolStripMenuItem.Name = "AMBToolStripMenuItem"
-        Me.AMBToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AMBToolStripMenuItem.Size = New System.Drawing.Size(100, 22)
         Me.AMBToolStripMenuItem.Text = "AMB"
         Me.AMBToolStripMenuItem.Visible = False
         '
@@ -2401,7 +2401,7 @@ Partial Class frmHauptfenster
         Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboGrenzstelle.FormattingEnabled = True
-        Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU"})
+        Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"})
         Me.cboGrenzstelle.Location = New System.Drawing.Point(379, 30)
         Me.cboGrenzstelle.Name = "cboGrenzstelle"
         Me.cboGrenzstelle.Size = New System.Drawing.Size(67, 24)

Aviso/frmHauptfenster.vb

@@ -2482,12 +2482,12 @@ Public Class frmHauptfenster
     End Function
     Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
 
-        Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE
+        'Dim cRKSV_DE As New VERAG_PROG_ALLGEMEIN.cRKSV_DE
 
-        cRKSV_DE.SignRKSV_DE()
+        'cRKSV_DE.SignRKSV_DE()
 
 
-        Exit Sub
+        'Exit Sub
         'Me.Cursor = Cursors.WaitCursor
 
         Dim firma = ""
@@ -3910,7 +3910,7 @@ Public Class AvisoStatusFunctions
             antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
               "Status-Änderung")
             If antwort = vbNo Then Return False
-            SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=null  WHERE tblSnd_Vorgeschrieben is not null AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
+            'SQL.doSQL("UPDATE tblSendungen SET tblSnd_Vorgeschrieben=null  WHERE tblSnd_Vorgeschrieben is not null AND tblSnd_AvisoID='" & AvisoID & "'", "AVISO")
 
         End If
 
@@ -4949,6 +4949,35 @@ Public Class AvisoStatusFunctions
 
     End Function
 
+    Public Function setSendungAbklaerungTR(SendungsId, AvisoID) As Boolean
+
+        If SendungsId Is Nothing Then Return False
+        If Not IsNumeric(SendungsId) Then Return False
+        If AvisoID Is Nothing Then Return False
+        If Not IsNumeric(AvisoID) Then Return False
+
+        Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
+
+        SENDUNG_TMP.saveSachbearbeiter = True
+
+        If SENDUNG_TMP.tblSnd_AbklaerungTR Is Nothing Then
+            SENDUNG_TMP.tblSnd_AbklaerungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            SENDUNG_TMP.tblSnd_FilialeAbklaerung = VERAG_PROG_ALLGEMEIN.cAllgemein.getSTAMMFILIALE
+            'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
+            '    SENDUNG_TMP.tblSnd_QS_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+            'End If
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
+
+            SENDUNG_TMP.tblSnd_AbklaerungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        Else
+            SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing
+            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+        End If
+        Return SENDUNG_TMP.SAVE()
+
+    End Function
+
     Public Function setSendungFakturiert(SendungsId, AvisoID) As Boolean
 
         If SendungsId Is Nothing Then Return False

Aviso/frmSendungsdetailsNEU.vb

@@ -418,6 +418,8 @@ Public Class frmSendungsdetailsNEU
 
                                                           settoopTip(picKdAtrNr_Empfänger, txtEmpfaenger)
 
+                                                          fillUIDEORI(txtEmpfaenger)
+
                                                           txtKdAuftragsNrEmpfaenger.BackColor = Color.White
                                                           If txtEmpfaenger.KdData_KUNDE_ERW IsNot Nothing AndAlso txtEmpfaenger.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then
                                                               txtKdAuftragsNrEmpfaenger.BackColor = Color.FromArgb(255, 255, 128)
@@ -563,9 +565,26 @@ Public Class frmSendungsdetailsNEU
         End Try
     End Sub
 
+    Sub fillUIDEORI(kdSB As VERAG_PROG_ALLGEMEIN.KdSearchBox)
+        btnEORIPruef.Visible = False
+        btnUIDPruef.Visible = False
+        lblUID_Pruef.Text = "-"
+        lbleori_Pruef.Text = "-"
+        If kdSB IsNot Nothing Then
+            If kdSB.KdData_KUNDE IsNot Nothing AndAlso kdSB.KdData_KUNDE.EORITIN IsNot Nothing Then
+                lbleori_Pruef.Text = kdSB.KdData_KUNDE.EORITIN & If(kdSB.KdData_KUNDE.EORITIN_NL, "")
+                btnEORIPruef.Visible = True
+            End If
+            If kdSB.KdData_ADRESSEN IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdKz IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdNr IsNot Nothing Then
+                lblUID_Pruef.Text = kdSB.KdData_ADRESSEN.UstIdKz & kdSB.KdData_ADRESSEN.UstIdNr
+                btnUIDPruef.Visible = True
+            End If
+        End If
+    End Sub
+
     Sub settoopTip(pic As PictureBox, kdTXT As VERAG_PROG_ALLGEMEIN.KdSearchBox)
 
-        If kdTXT.KdData_KUNDE_ERW IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then
+        If kdTXT.KdData_KUNDE_ERW IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then
             ToolTip.SetToolTip(pic, kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr)
             pic.Visible = True
             pic.Cursor = Cursors.Hand
@@ -966,6 +985,10 @@ Public Class frmSendungsdetailsNEU
             Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
                 Case "FRONTOFFICE"
                     whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801) "
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
+                        whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701) "
+                    End If
+
                 Case Else
                     Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                         Case "ATILLA"
@@ -1062,6 +1085,8 @@ Public Class frmSendungsdetailsNEU
             'End If
 
 
+            fillUIDEORI(Nothing)
+
             If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then
                 txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr
             Else
@@ -1590,26 +1615,26 @@ Public Class frmSendungsdetailsNEU
             ' alle installierten Drucker ermitteln und 
             ' in in ein ArrayList-Objekt speichern
             Dim sPrinters As New ArrayList
-        For Each sPrinter As String In PrinterSettings.InstalledPrinters
+            For Each sPrinter As String In PrinterSettings.InstalledPrinters
-            sPrinters.Add(sPrinter)
+                sPrinters.Add(sPrinter)
-        Next
+            Next
 
-        ' Array sortieren
+            ' Array sortieren
-        sPrinters.Sort()
+            sPrinters.Sort()
 
-        ' printer()
+            ' printer()
 
-        ' jetzt alle Drucker in sortierter Reihenfolge in einer
+            ' jetzt alle Drucker in sortierter Reihenfolge in einer
-        ' ComboBox zur Auswahl anbieten
+            ' ComboBox zur Auswahl anbieten
-        Dim oPS As New System.Drawing.Printing.PrinterSettings
+            Dim oPS As New System.Drawing.Printing.PrinterSettings
-        Dim pList As List(Of PrinterList) = PROG.getPrinterList
+            Dim pList As List(Of PrinterList) = PROG.getPrinterList
-        For i As Integer = 0 To sPrinters.Count - 1
+            For i As Integer = 0 To sPrinters.Count - 1
-            If PROG.isPrinterOnlineByList(pList, sPrinters(i)) Then
+                If PROG.isPrinterOnlineByList(pList, sPrinters(i)) Then
-                setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i))
+                    setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i))
-            End If
+                End If
-        Next
+            Next
 
-        setCboSelected(oPS.PrinterName)
+            setCboSelected(oPS.PrinterName)
 
             If False Then
 
@@ -2557,6 +2582,8 @@ Public Class frmSendungsdetailsNEU
                         If cboFiliale._value <> "5601" Then sperren = True
                     Case "VERIMEX"
                         If cboFiliale._value = "5601" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER
+                    Case "AMBAR"
+                        If cboFiliale._value <> "5701" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER
                     Case "VERAG"
                         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then
                             If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True
@@ -3832,6 +3859,7 @@ Public Class frmSendungsdetailsNEU
 
         Select Case firmaTmp
             Case "IMEX" : Mail.To = "info@imex-group.at"
+            Case "AMBAR" : Mail.To = "info@imex-group.at"
             Case "UNISPED" : Mail.To = "office@unisped.at"
             Case "VERAG" : Mail.To = "quickstop@verag.ag"
         End Select
@@ -3858,9 +3886,7 @@ Public Class frmSendungsdetailsNEU
         open_Mail_NeuerLKW("VERAG")
     End Sub
 
-    Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
 
-    End Sub
 
     Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
         ' Me.loadDataInLIST()
@@ -3882,4 +3908,70 @@ Public Class frmSendungsdetailsNEU
     Private Sub cboFiliale_Leave(sender As Object, e As EventArgs) Handles cboFiliale.Leave
         initFraechterAvisererFromAkt()
     End Sub
+
+    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles btnUIDPruef.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            If lblUID_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
+
+            Dim UID_ERG As Integer = -1
+            Dim path = SDL.cFinanzOnlineWebService.genUID_Formular(lblUID_Pruef.Text, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, UID_ERG)
+
+            btnUIDPruef.BackgroundImage = My.Resources.fragezeichen
+            Select Case UID_ERG
+                Case 0 : btnUIDPruef.BackgroundImage = My.Resources.ok
+                    'If path <> "" AndAlso IO.File.Exists(path) Then   'ADD
+                    '    Dim fi As New IO.FileInfo(path)
+                    '    Dim filename = fi.Name
+                    '    If filename = "" Then
+                    '        MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path)
+                    '    Else
+                    '        If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "UID", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
+                    '            initAnhang()
+                    '        End If
+                    '    End If
+                    'End If
+                    initAnhang()
+                Case 1 : btnUIDPruef.BackgroundImage = My.Resources.del
+            End Select
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles btnEORIPruef.Click
+        MsgBox("Noch nicht verfügbar!")
+        Exit sub
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            If lbleori_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
+
+            Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & lbleori_Pruef.Text.Replace(" ", "") & "&Expand=true"
+            Dim path = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
+
+            btnEORIPruef.BackgroundImage = My.Resources.fragezeichen
+            MsgBox("1:" & path)
+
+            If path <> "" AndAlso IO.File.Exists(path) Then   'ADD
+                Dim fi As New IO.FileInfo(path)
+                Dim filename = fi.Name
+                If filename = "" Then
+                    MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path)
+                Else
+                    MsgBox("2:" & path)
+                    If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "EORI", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
+                        initAnhang()
+                    End If
+                End If
+            End If
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+
 End Class

Aviso/usrcntlAktDetails.Designer.vb

@@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 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 DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -153,6 +153,8 @@ Partial Class usrcntlAktDetails
         Me.btnLöschen = New System.Windows.Forms.Button()
         Me.btnÄndern = New System.Windows.Forms.Button()
         Me.btnTV = New System.Windows.Forms.Button()
+        Me.txtMAinfo_AbklaerungTR = New System.Windows.Forms.TextBox()
+        Me.picMAinfo_AbklaerungTR = New System.Windows.Forms.PictureBox()
         Me.pnlDetailsRechts.SuspendLayout()
         Me.Panel3.SuspendLayout()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -186,6 +188,7 @@ Partial Class usrcntlAktDetails
         Me.conMenuVermerke.SuspendLayout()
         Me.cntxtFormulare.SuspendLayout()
         Me.pnlOptionen.SuspendLayout()
+        CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'pnlDetailsRechts
@@ -570,44 +573,44 @@ Partial Class usrcntlAktDetails
         Me.dgvSendungen.AllowUserToAddRows = False
         Me.dgvSendungen.AllowUserToDeleteRows = False
         Me.dgvSendungen.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
         Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
         Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3
+        Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle23
         Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill
         Me.dgvSendungen.Location = New System.Drawing.Point(0, 0)
         Me.dgvSendungen.MultiSelect = False
         Me.dgvSendungen.Name = "dgvSendungen"
         Me.dgvSendungen.ReadOnly = True
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
+        Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle24
         Me.dgvSendungen.RowHeadersVisible = False
         Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5
+        Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle25
         Me.dgvSendungen.RowTemplate.Height = 20
         Me.dgvSendungen.RowTemplate.ReadOnly = True
         Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -847,44 +850,44 @@ Partial Class usrcntlAktDetails
         Me.gridVermerke.AllowUserToAddRows = False
         Me.gridVermerke.AllowUserToDeleteRows = False
         Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle26.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
         Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle27.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle27.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
         Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle28
         Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridVermerke.Location = New System.Drawing.Point(0, 30)
         Me.gridVermerke.MultiSelect = False
         Me.gridVermerke.Name = "gridVermerke"
         Me.gridVermerke.ReadOnly = True
-        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle29
         Me.gridVermerke.RowHeadersVisible = False
         Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle30
         Me.gridVermerke.RowTemplate.Height = 20
         Me.gridVermerke.RowTemplate.ReadOnly = True
         Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1032,10 +1035,12 @@ Partial Class usrcntlAktDetails
         '
         'pnlMAInfo
         '
-        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben)
+        Me.pnlMAInfo.Controls.Add(Me.picMAinfo_AbklaerungTR)
         Me.pnlMAInfo.Controls.Add(Me.picMAinfo_Vorgeschrieben)
-        Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs)
         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, 159)
         Me.pnlMAInfo.Name = "pnlMAInfo"
@@ -1044,18 +1049,16 @@ Partial Class usrcntlAktDetails
         '
         'txtMAinfo_Vorgeschrieben
         '
-        Me.txtMAinfo_Vorgeschrieben.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.txtMAinfo_Vorgeschrieben.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtMAinfo_Vorgeschrieben.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtMAinfo_Vorgeschrieben.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.txtMAinfo_Vorgeschrieben.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        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(280, 6)
+        Me.txtMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(336, 6)
         Me.txtMAinfo_Vorgeschrieben.MaxLength = 0
         Me.txtMAinfo_Vorgeschrieben.Name = "txtMAinfo_Vorgeschrieben"
         Me.txtMAinfo_Vorgeschrieben.ReadOnly = True
-        Me.txtMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(160, 16)
+        Me.txtMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(105, 14)
         Me.txtMAinfo_Vorgeschrieben.TabIndex = 108
         Me.txtMAinfo_Vorgeschrieben.TabStop = False
         Me.txtMAinfo_Vorgeschrieben.Text = "-"
@@ -1064,7 +1067,7 @@ Partial Class usrcntlAktDetails
         '
         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(243, 4)
+        Me.picMAinfo_Vorgeschrieben.Location = New System.Drawing.Point(304, 4)
         Me.picMAinfo_Vorgeschrieben.Name = "picMAinfo_Vorgeschrieben"
         Me.picMAinfo_Vorgeschrieben.Size = New System.Drawing.Size(26, 21)
         Me.picMAinfo_Vorgeschrieben.TabIndex = 107
@@ -1072,18 +1075,16 @@ Partial Class usrcntlAktDetails
         '
         'txtMAinfo_VorbereitetQs
         '
-        Me.txtMAinfo_VorbereitetQs.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.txtMAinfo_VorbereitetQs.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtMAinfo_VorbereitetQs.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtMAinfo_VorbereitetQs.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.txtMAinfo_VorbereitetQs.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        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(79, 6)
+        Me.txtMAinfo_VorbereitetQs.Location = New System.Drawing.Point(192, 6)
         Me.txtMAinfo_VorbereitetQs.MaxLength = 0
         Me.txtMAinfo_VorbereitetQs.Name = "txtMAinfo_VorbereitetQs"
         Me.txtMAinfo_VorbereitetQs.ReadOnly = True
-        Me.txtMAinfo_VorbereitetQs.Size = New System.Drawing.Size(158, 16)
+        Me.txtMAinfo_VorbereitetQs.Size = New System.Drawing.Size(105, 14)
         Me.txtMAinfo_VorbereitetQs.TabIndex = 106
         Me.txtMAinfo_VorbereitetQs.TabStop = False
         Me.txtMAinfo_VorbereitetQs.Text = "-"
@@ -1092,7 +1093,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(42, 4)
+        Me.picMAinfo_VorbereitetQs.Location = New System.Drawing.Point(160, 4)
         Me.picMAinfo_VorbereitetQs.Name = "picMAinfo_VorbereitetQs"
         Me.picMAinfo_VorbereitetQs.Size = New System.Drawing.Size(26, 21)
         Me.picMAinfo_VorbereitetQs.TabIndex = 0
@@ -1883,6 +1884,32 @@ Partial Class usrcntlAktDetails
         Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnTV.UseVisualStyleBackColor = False
         '
+        'txtMAinfo_AbklaerungTR
+        '
+        Me.txtMAinfo_AbklaerungTR.BackColor = System.Drawing.Color.WhiteSmoke
+        Me.txtMAinfo_AbklaerungTR.BorderStyle = System.Windows.Forms.BorderStyle.None
+        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(68, 6)
+        Me.txtMAinfo_AbklaerungTR.MaxLength = 0
+        Me.txtMAinfo_AbklaerungTR.Name = "txtMAinfo_AbklaerungTR"
+        Me.txtMAinfo_AbklaerungTR.ReadOnly = True
+        Me.txtMAinfo_AbklaerungTR.Size = New System.Drawing.Size(90, 14)
+        Me.txtMAinfo_AbklaerungTR.TabIndex = 110
+        Me.txtMAinfo_AbklaerungTR.TabStop = False
+        Me.txtMAinfo_AbklaerungTR.Text = "-"
+        '
+        'picMAinfo_AbklaerungTR
+        '
+        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(36, 4)
+        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
+        '
         'usrcntlAktDetails
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -1939,6 +1966,7 @@ Partial Class usrcntlAktDetails
         Me.conMenuVermerke.ResumeLayout(False)
         Me.cntxtFormulare.ResumeLayout(False)
         Me.pnlOptionen.ResumeLayout(False)
+        CType(Me.picMAinfo_AbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2062,4 +2090,6 @@ Partial Class usrcntlAktDetails
     Friend WithEvents txtMAinfo_VorbereitetQs As TextBox
     Friend WithEvents picMAinfo_VorbereitetQs As PictureBox
     Friend WithEvents MitarbeiterAnzeigenToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents txtMAinfo_AbklaerungTR As TextBox
+    Friend WithEvents picMAinfo_AbklaerungTR As PictureBox
 End Class

Aviso/usrcntlAktDetails.vb

@@ -402,7 +402,7 @@ Public Class usrcntlAktDetails
         With dgvSendungen
             '    Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1)
             .Columns.Clear()
-            .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'')  as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-'  END)  FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2 " &
+            .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'')  as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-'  END)  FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren,tblSnd_Fakturiert, AbfertigungsNr as AbfertigungsNr2, tblSnd_AbklaerungTR, tblSnd_AbklaerungTR_MA " &
                                                       " FROM tblSendungen  WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID
 
             '   If .RowCount = 0 Then .Columns.Clear() : Exit Sub
@@ -417,6 +417,8 @@ Public Class usrcntlAktDetails
             .Columns("tblSnd_Fremdspedition").Visible = False
             .Columns("tblSnd_FremdspeditionText").Visible = False
             .Columns("tblSnd_Vorgeschrieben").Visible = False
+            .Columns("tblSnd_AbklaerungTR").Visible = False
+            .Columns("tblSnd_AbklaerungTR_MA").Visible = False
             .Columns("tblSnd_Vorbereitet").Visible = False
             .Columns("LetzterMitarbeiter").Visible = False
             .Columns("LetzterMitarbeiterId").Visible = False
@@ -432,7 +434,7 @@ Public Class usrcntlAktDetails
             '  .Columns("QS_Abfertigungsart_Bezeichnung").Width = 130
             '  .Columns("QS_Abfertigungsart_Bezeichnung").HeaderText = "Art"
 
-            .Columns("tblSnd_Empfaenger").MinimumWidth = 150
+            .Columns("tblSnd_Empfaenger").MinimumWidth = 130
             .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
             .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
@@ -477,6 +479,15 @@ Public Class usrcntlAktDetails
             'c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
             'c.ToolTipText = "Vermerk eintragen"
             '.Columns.Add(c)
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbklaerungTR", "AVISO") Then
+                c = New DataGridViewImageColumn
+                c.Name = "StatusAbklaerungTR"
+                c.Image = My.Resources.abklaerungTR_Inaktiv : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                c.ToolTipText = "Status 'AbklärungTR' eintragen"
+                c.HeaderText = "TR"
+                .Columns.Add(c)
+            End If
 
             c = New DataGridViewImageColumn
             c.Name = "StatusVorbereitetQS"
@@ -741,6 +752,10 @@ Public Class usrcntlAktDetails
                     txtMAinfo_Vorgeschrieben.Text = "-"
                     txtMAinfo_Vorgeschrieben.Tag = ""
 
+                    picMAinfo_AbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Inaktiv
+                    txtMAinfo_AbklaerungTR.Text = "-"
+                    txtMAinfo_AbklaerungTR.Tag = ""
+
                     If dgvSendungen.SelectedRows.Count > 0 Then
                         sendwhere = " AND VermerkArt='S'  AND SendungID=" & dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
 
@@ -748,6 +763,14 @@ Public Class usrcntlAktDetails
                         '---------------------------------------------------------
                         'MA INFO
                         '---------------------------------------------------------
+                        'AbklaerungTR
+                        pnlMAInfo.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", "-")
+                            txtMAinfo_AbklaerungTR.Tag = dgvSendungen.SelectedRows(0).Cells("tblSnd_AbklaerungTR_MA").Value
+                        End If
+
                         'Vorbereitet
                         pnlMAInfo.Visible = True
                         If dgvSendungen.SelectedRows(0).Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
@@ -1613,6 +1636,14 @@ Public Class usrcntlAktDetails
                 '        initDgvSendungen()
                 '        Me.Cursor = Cursors.Default
                 '    End If
+            Case "StatusAbklaerungTR"
+                sendAktiv = False
+                Me.Cursor = Cursors.WaitCursor
+                If FUNC.setSendungAbklaerungTR(SendungsId, AvisoID) Then
+                    initDgvSendungen()
+                End If
+
+                Me.Cursor = Cursors.Default
 
             Case "StatusVorgeschrieben"
                 sendAktiv = False
@@ -1729,6 +1760,8 @@ Public Class usrcntlAktDetails
         If Not loaded Then Return False
         If dgvSendungen.DataSource Is Nothing Then Return False
         If dgvSendungen.Columns("tblSnd_Vorbereitet") Is Nothing Then Return False
+        If dgvSendungen.Columns("tblSnd_AbklaerungTR") Is Nothing Then Return False
+        'If dgvSendungen.Columns("StatusAbklaerungTR") Is Nothing Then Return False
         If dgvSendungen.Columns("StatusVorbereitetQS") Is Nothing Then Return False
         If dgvSendungen.Columns("SenungUebernehmen") Is Nothing Then Return False
         If dgvSendungen.Columns("SenungWeiterleiten") Is Nothing Then Return False
@@ -1748,6 +1781,16 @@ Public Class usrcntlAktDetails
                     DirectCast(r.Cells("SpeditionsbuchEintragen"), DataGridViewImageCell).Value = My.Resources.speditionsbuchAktiv
                 End If
 
+                If dgvSendungen.Columns("StatusAbklaerungTR") IsNot Nothing Then
+                    If r.Cells("tblSnd_AbklaerungTR").Value IsNot DBNull.Value Then
+
+                        DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).Value = My.Resources.abklaerungTR_Aktiv
+                        DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abklärung-TR' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_AbklaerungTR").Value & ")"
+                    Else
+                        DirectCast(r.Cells("StatusAbklaerungTR"), DataGridViewImageCell).ToolTipText = "Status 'Abklärung-TR' eintragen"
+                    End If
+                End If
+
                 If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
                     DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
                     DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
@@ -2883,7 +2926,7 @@ Public Class usrcntlAktDetails
         ArrowDown_ShowHide()
     End Sub
 
-    Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_VorbereitetQs.Click, txtMAinfo_Vorgeschrieben.Click
+    Private Sub txtMAinfo_VorbereitetQs_TextChanged(sender As Object, e As EventArgs) Handles txtMAinfo_VorbereitetQs.Click, txtMAinfo_Vorgeschrieben.Click, txtMAinfo_AbklaerungTR.Click
         If sender.tag IsNot DBNull.Value AndAlso sender.tag IsNot Nothing Then
             If IsNumeric(sender.tag) Then
                 Dim f As New VERAG_PROG_ALLGEMEIN.frmMitarbeitersuche(sender.tag)
@@ -2901,5 +2944,6 @@ Public Class usrcntlAktDetails
         MA.Show()
 
     End Sub
+
 End Class