ATEZ NCTS

Aviso/Aviso.vbproj

@@ -108,7 +108,7 @@
     <PlatformTarget>x64</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />
@@ -540,10 +540,10 @@
     <Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmATEZNCTS.Designer.vb">
-      <DependentUpon>frmATEZNCTS.vb</DependentUpon>
+    <Compile Include="frmATEZ_NCTS.Designer.vb">
+      <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmATEZNCTS.vb">
+    <Compile Include="frmATEZ_NCTS.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="frmATZollEingereichtSetzen.Designer.vb">
@@ -1128,8 +1128,8 @@
     <EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
       <DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmATEZNCTS.resx">
-      <DependentUpon>frmATEZNCTS.vb</DependentUpon>
+    <EmbeddedResource Include="frmATEZ_NCTS.resx">
+      <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
       <DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>

Aviso/frmATEZNCTS.resx

@@ -1,123 +0,0 @@
-<?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>
-  <metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>True</value>
-  </metadata>
-</root>

Aviso/frmATEZ_NCTS.vb

@@ -1,8 +1,8 @@
-Imports DocumentFormat.OpenXml.Drawing.Charts
+Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
-Public Class frmATEZNCTS
+
+Public Class frmATEZ_NCTS
 
     Dim ART As String = ""
     Dim FilialenNr As Integer
@@ -18,32 +18,12 @@ Public Class frmATEZNCTS
     Dim AVISO As New cAviso
     Dim zusatz As String
     Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
+    Dim VermerkeDAL As New cVermerkeDAL
+    Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+
     Property BezugsNr As String = ""
     Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
 
-
-
-
-    Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional ZOLL_SYSTEM As String = "DAKOSY")
-
-        ' Dieser Aufruf ist für den Designer erforderlich.
-        InitializeComponent()
-        Me.DY = DY
-        Me.AVISO = AVISO
-        Me.ART = ART
-        Me.SENDUNG = SENDUNG
-        Me.JAHR = JAHR
-        Me.ZOLL_SYSTEM = ZOLL_SYSTEM
-
-        If SENDUNG IsNot Nothing Then
-            Me.FilialenNr = SENDUNG.FilialenNr
-            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
-        End If
-
-        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-
-    End Sub
-
     Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
@@ -63,56 +43,91 @@ Public Class frmATEZNCTS
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        lblInfo.Text = ""
         Dim failreDesc As String
 
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvAnhaenge.Rows
+
+            selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
+            If selectedDocuments Then Exit For
+        Next
+
+        If Not selectedDocuments Then
+            lblInfo.Text = "kein Anhang selektiert"
+            Cursor = Cursors.Default
+            Exit Sub
+        End If
+
         Dim atezData As New cATEZ_NCTS_DATA
         Dim atez As New cATEZ_NCTS_IN
 
         With atezData
 
+            .AvisoId = AVISO.AvisoID
+            .SendungsId = SENDUNG.tblSnd_SendungID
             .VERAG_LRN = lblBezugsnummer.Text
             .LicensePlateContainerNo = txtLKWId.Text
+            .DAKOSY_TemplateCode = cboStammreferenz._value
             .DAKOSY_IOPartner = txtDyNiederlassung.Text & txtDyNiederlassung.Text
             .DAKOSY_Division1 = ""
-            .DepartureCustomsOffice = ""
+            .DepartureCustomsOffice = sbAbgangZollstelle._value
+            .DestinationCustomsOffice = sbBestimmungsZollstelle._value
             .DatDeterminationLimit = txtDat.Text
             .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
-
-            .Carrier_Name = ""
-            .Carrier_Adress_City = ""
-            .Carrier_Adress_Country = ""
-            .Carrier_Adress_Postcode = ""
-            .Carrier_Adress_Street = ""
-            .Carrier_EORI = ""
-
-            .Guarantee_GRN = "" 'leer lassen
-
-
-
-            'Datenzuweisung machen!
+            .Carrier_Name = usrCntl_Carrier.kdFirma.Text
+            .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
+            .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
+            .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
+            .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
+            .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
+            .Guarantee_GRN = "" 'leer 
             .SAVE()
 
         End With
 
-        Dim test = atez.authenticate()
-        If test <> "200" Then
-            failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!"
-            MsgBox(failreDesc)
+        If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value)
+        If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value)
+        If sbDurchgangszollstelle3._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle3._value)
+        If sbDurchgangszollstelle4._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle4._value)
+        If sbDurchgangszollstelle5._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle5._value)
+        If sbDurchgangszollstelle6._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle6._value)
+
+
+        If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value)
+        If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value)
+        If sbRoute3._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute3._value)
+        If sbRoute4._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute4._value)
+        If sbRoute5._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute5._value)
+        If sbRoute6._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute6._value)
+        If sbRoute7._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute7._value)
+        If sbRoute8._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute8._value)
+        If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value)
+
+
+        Dim authResp = atez.authenticate()
+        If authResp <> "200" Then
+            failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
+            lblInfo.Text = failreDesc
             Exit Sub
         End If
 
 
         If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten")
 
-        atez.SendRequestWithAuthHeader("application/json", failreDesc)
+        Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
 
         If failreDesc <> "" Then
             atezData.status = failreDesc
             atezData.SAVE()
-            MsgBox(failreDesc)
+            lblInfo.Text = failreDesc
+
         Else
             atezData.status = "Sent"
+            atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
             atezData.SAVE()
+            Me.Close()
         End If
     End Sub
 
@@ -157,25 +172,102 @@ Public Class frmATEZNCTS
         getBezugsnr(BezugsNr)
         txtLKWId.Text = AVISO.LKW_Nr
 
-        sbAbgangZollstelle._value = SENDUNG.NCTS_Bestimmungszollstelle
-        sbBestimmungsZollstelle._value = SENDUNG.NCTS_Bestimmungszollstelle
-
-        usrCntl_Carrier.KundenNr = SENDUNG.tblSnd_FrachtfuehrerKdNr
+        cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
+        txtTransporttemp.Text = AVISO.TransportTemperatur
 
+        If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
+            usrCntl_Carrier.kdFirma.initKdBox(Me)
+            usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr
+        End If
 
+        If AVISO.Grenzstelle.Replace("???", "") = "" Then
+            sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle)
+        Else
 
+            Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+            If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+                If GRZ.grz_ZollamtDST IsNot Nothing Then
+                    sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+                End If
+            End If
+        End If
 
+        sbDurchgangszollstelle1.SET_VALUE(If(AVISO.Durchgangszollstelle1, ""))
+        sbDurchgangszollstelle2.SET_VALUE(If(AVISO.Durchgangszollstelle2, ""))
+        sbDurchgangszollstelle3.SET_VALUE(If(AVISO.Durchgangszollstelle3, ""))
+        sbDurchgangszollstelle4.SET_VALUE(If(AVISO.Durchgangszollstelle4, ""))
+        sbDurchgangszollstelle5.SET_VALUE(If(AVISO.Durchgangszollstelle5, ""))
+        sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, ""))
 
     End Sub
 
     Sub initAttachment()
-        dgvAnhaenge.Rows.Clear()
+        Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
 
-        If ATT Is Nothing Then
-            Exit Sub
-        End If
+CASE WHEN  [anh_Art] = 'ATR-EUR1' then 'EUR'
+                                                when [anh_Art] = 'Rechnung' then 'INVOICE'
+                                                when [anh_Art] = 'eFatura' then 'INVOICE'
+                                                when [anh_Art] = 'CMR' then 'CMR'
+                                                when [anh_Art] = 'Ausfuhr' then 'OTHER'
+                                                when [anh_Art] = 'Vorpapier' then 'OTHER'
+                                                when [anh_Art] = 'Packliste' then 'PACK'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Dispoliste' then 'OTHER'
+                                                when [anh_Art] = 'Vorkasse' then 'OTHER'
+                                                when [anh_Art] = 'Überweisungsbeleg' then 'OTHER'
+                                                when [anh_Art] = 'Vollmacht' then 'OTHER'
+                                                when [anh_Art] = 'ATB' then 'OTHER'
+                                                when [anh_Art] = 'ATA' then 'CarnetATA'
+                                                when [anh_Art] = 'Sonstiges' then 'OTHER'
+                                                when [anh_Art] ='' then 'OTHER' End
+                                                [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <=0 And anh_Typ = 'PDF'
+                                        Order BY  [anh_Reihenfolge], anh_Datum desc, [anh_id]"
+
+        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+        Dim col As DataColumn
+        col = dt.Columns.Add("anh_selekt", GetType(Boolean))
+        col.SetOrdinal(0)
+
+        dgvAnhaenge.DataSource = dt
+
+        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
+
+        With dgvAnhaenge
+
+            .Enabled = True
+            .ReadOnly = False
+
+            .RowTemplate.MinimumHeight = 30
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_selekt").MinimumWidth = 50
+            .Columns("anh_selekt").HeaderText = "ausgewählt"
+            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Datum").MinimumWidth = 50
+            .Columns("anh_Datum").HeaderText = "Datum"
+            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("anh_Art").MinimumWidth = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Typ").Width = 60
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        End With
 
-        dgvAnhaenge.ClearSelection()
     End Sub
 
 
@@ -205,4 +297,35 @@ Public Class frmATEZNCTS
         sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
         sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display  FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
     End Sub
+
+    Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
+        Dim frmRoutenauswahl As New frmRoutenauswahl
+        If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
+            If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
+
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 0 Then sbDurchgangszollstelle1.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(0)) Else sbDurchgangszollstelle1.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 1 Then sbDurchgangszollstelle2.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(1)) Else sbDurchgangszollstelle2.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 2 Then sbDurchgangszollstelle3.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(2)) Else sbDurchgangszollstelle3.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 3 Then sbDurchgangszollstelle4.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(3)) Else sbDurchgangszollstelle4.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 4 Then sbDurchgangszollstelle5.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(4)) Else sbDurchgangszollstelle5.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 5 Then sbDurchgangszollstelle6.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(5)) Else sbDurchgangszollstelle6.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 6 Then sbDurchgangszollstelle7.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(6)) Else sbDurchgangszollstelle7.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 7 Then sbDurchgangszollstelle8.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(7)) Else sbDurchgangszollstelle8.SET_VALUE("")
+            If frmRoutenauswahl.ZOLLAEMTER.Count > 8 Then sbDurchgangszollstelle9.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(8)) Else sbDurchgangszollstelle9.SET_VALUE("")
+
+
+        End If
+    End Sub
+
+    Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged
+        txtDat._value = CDate(sender.value).ToShortDateString
+    End Sub
 End Class

Aviso/usrcntlAktDetailsATILLANeu.Designer.vb

@@ -44,6 +44,11 @@ Partial Class usrcntlAktDetailsATILLANeu
         Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle25 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()
@@ -67,6 +72,10 @@ Partial Class usrcntlAktDetailsATILLANeu
         Me.Button11 = New System.Windows.Forms.Button()
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button10 = New System.Windows.Forms.Button()
+        Me.tbATEZ = New System.Windows.Forms.TabPage()
+        Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView()
+        Me.Panel10 = New System.Windows.Forms.Panel()
+        Me.Label12 = New System.Windows.Forms.Label()
         Me.Panel7 = New System.Windows.Forms.Panel()
         Me.gridVermerke = New System.Windows.Forms.DataGridView()
         Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
@@ -165,6 +174,9 @@ Partial Class usrcntlAktDetailsATILLANeu
         Me.tbAnhaenge.SuspendLayout()
         CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel5.SuspendLayout()
+        Me.tbATEZ.SuspendLayout()
+        CType(Me.dgvATEZNCTS, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel10.SuspendLayout()
         CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.pnlVermerkeTop.SuspendLayout()
         Me.Panel8.SuspendLayout()
@@ -244,6 +256,7 @@ Partial Class usrcntlAktDetailsATILLANeu
         Me.tbcntr.Controls.Add(Me.tbZollanmeldungen)
         Me.tbcntr.Controls.Add(Me.tbSpedBuch)
         Me.tbcntr.Controls.Add(Me.tbAnhaenge)
+        Me.tbcntr.Controls.Add(Me.tbATEZ)
         Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
         Me.tbcntr.Location = New System.Drawing.Point(0, 0)
         Me.tbcntr.Name = "tbcntr"
@@ -601,6 +614,90 @@ Partial Class usrcntlAktDetailsATILLANeu
         Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button10.UseVisualStyleBackColor = True
         '
+        'tbATEZ
+        '
+        Me.tbATEZ.Controls.Add(Me.dgvATEZNCTS)
+        Me.tbATEZ.Controls.Add(Me.Panel10)
+        Me.tbATEZ.Location = New System.Drawing.Point(4, 22)
+        Me.tbATEZ.Name = "tbATEZ"
+        Me.tbATEZ.Size = New System.Drawing.Size(567, 157)
+        Me.tbATEZ.TabIndex = 4
+        Me.tbATEZ.Text = "ATEZ NCTS"
+        Me.tbATEZ.UseVisualStyleBackColor = True
+        '
+        'dgvATEZNCTS
+        '
+        Me.dgvATEZNCTS.AllowUserToAddRows = False
+        Me.dgvATEZNCTS.AllowUserToDeleteRows = False
+        Me.dgvATEZNCTS.AllowUserToResizeRows = False
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
+        Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvATEZNCTS.DefaultCellStyle = DataGridViewCellStyle18
+        Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvATEZNCTS.Location = New System.Drawing.Point(0, 31)
+        Me.dgvATEZNCTS.MultiSelect = False
+        Me.dgvATEZNCTS.Name = "dgvATEZNCTS"
+        Me.dgvATEZNCTS.ReadOnly = True
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvATEZNCTS.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
+        Me.dgvATEZNCTS.RowHeadersVisible = False
+        Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.dgvATEZNCTS.RowTemplate.Height = 20
+        Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
+        Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.dgvATEZNCTS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvATEZNCTS.ShowCellErrors = False
+        Me.dgvATEZNCTS.ShowRowErrors = False
+        Me.dgvATEZNCTS.Size = New System.Drawing.Size(567, 126)
+        Me.dgvATEZNCTS.TabIndex = 104
+        Me.dgvATEZNCTS.TabStop = False
+        '
+        'Panel10
+        '
+        Me.Panel10.Controls.Add(Me.Label12)
+        Me.Panel10.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel10.Location = New System.Drawing.Point(0, 0)
+        Me.Panel10.Name = "Panel10"
+        Me.Panel10.Size = New System.Drawing.Size(567, 31)
+        Me.Panel10.TabIndex = 105
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label12.ForeColor = System.Drawing.SystemColors.WindowText
+        Me.Label12.Location = New System.Drawing.Point(3, 15)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(76, 13)
+        Me.Label12.TabIndex = 98
+        Me.Label12.Text = "ATEZ NCTS"
+        '
         'Panel7
         '
         Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -617,44 +714,44 @@ Partial Class usrcntlAktDetailsATILLANeu
         Me.gridVermerke.AllowUserToAddRows = False
         Me.gridVermerke.AllowUserToDeleteRows = False
         Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle21.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
         Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle22.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
         Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle23
         Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridVermerke.Location = New System.Drawing.Point(0, 29)
         Me.gridVermerke.MultiSelect = False
         Me.gridVermerke.Name = "gridVermerke"
         Me.gridVermerke.ReadOnly = True
-        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
+        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle24
         Me.gridVermerke.RowHeadersVisible = False
         Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
+        DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle25
         Me.gridVermerke.RowTemplate.Height = 20
         Me.gridVermerke.RowTemplate.ReadOnly = True
         Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1544,29 +1641,29 @@ Partial Class usrcntlAktDetailsATILLANeu
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(152, 6)
         '
         'NCTST2ToolStripMenuItem
         '
         Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem"
-        Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
         Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand"
         '
         'AESToolStripMenuItem
         '
         Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem"
-        Me.AESToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.AESToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
         Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6)
         '
         'SGSNCTSToolStripMenuItem
         '
         Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem"
-        Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
         Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS"
         Me.SGSNCTSToolStripMenuItem.Visible = False
         '
@@ -1575,14 +1672,15 @@ Partial Class usrcntlAktDetailsATILLANeu
         Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtZollantrag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.NCTST2ToolStripMenuItem, Me.AESToolStripMenuItem, Me.ToolStripSeparator1, Me.SGSNCTSToolStripMenuItem, Me.NCTSATEZToolStripMenuItem})
         Me.cntxtZollantrag.Name = "cntxtZollantrag"
-        Me.cntxtZollantrag.Size = New System.Drawing.Size(181, 126)
+        Me.cntxtZollantrag.Size = New System.Drawing.Size(156, 104)
         Me.cntxtZollantrag.Text = "Zollantrag"
         '
         'NCTSATEZToolStripMenuItem
         '
         Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem"
-        Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
         Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ"
+        Me.NCTSATEZToolStripMenuItem.Visible = False
         '
         'cntxt
         '
@@ -1656,6 +1754,10 @@ Partial Class usrcntlAktDetailsATILLANeu
         Me.tbAnhaenge.ResumeLayout(False)
         CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel5.ResumeLayout(False)
+        Me.tbATEZ.ResumeLayout(False)
+        CType(Me.dgvATEZNCTS, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel10.ResumeLayout(False)
+        Me.Panel10.PerformLayout()
         CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
         Me.pnlVermerkeTop.ResumeLayout(False)
         Me.pnlVermerkeTop.PerformLayout()
@@ -1797,4 +1899,8 @@ Partial Class usrcntlAktDetailsATILLANeu
     Friend WithEvents btnAnIndonesien As Button
     Friend WithEvents Label11 As Label
     Friend WithEvents NCTSATEZToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents tbATEZ As TabPage
+    Friend WithEvents dgvATEZNCTS As DataGridView
+    Friend WithEvents Panel10 As Panel
+    Friend WithEvents Label12 As Label
 End Class

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -144,11 +144,39 @@ Public Class usrcntlAktDetailsATILLANeu
 
     End Sub
 
+    Sub initdgvATEZ()
+        With dgvATEZNCTS
+            .Columns.Clear()
+            .ReadOnly = False
+            .DataSource = SQL.loadDgvBySql("select [Id],'ATEZ' as Art ,[VERAG_LRN] as BezugsNr,[erstellung] as Erstellung,[Status] as Status FROM [tblATEZ_NCTS]  WHERE AvisoId='" & AvisoID & "'", "FMZOLL")
+            If .Columns.Count <= 0 Then Exit Sub
+            'Ä.Columns("txtStatus").ReadOnly = False
+            .Columns("Id").Visible = False
+
+            .Columns("Art").HeaderText = "Art"
+            .Columns("Art").Width = 80
+
+            .Columns("Status").HeaderText = "Art"
+            .Columns("Status").Width = 80
+
+            .Columns("BezugsNr").HeaderText = "BezugsNr"
+            .Columns("BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("Erstellung").HeaderText = "Erstellt"
+            .Columns("Erstellung").Width = 100
+            .Columns("Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
+            .Columns("Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .ReadOnly = False
+        End With
+
+    End Sub
+
     Sub initdgvZollAnmeldungen()
         With dgvZollAnmeldungen
             .Columns.Clear()
             .ReadOnly = False
-            .DataSource = SQL.loadDgvBySql("SELECT  [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
+            .DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
             If .Columns.Count <= 0 Then Exit Sub
             'Ä.Columns("txtStatus").ReadOnly = False
             .Columns("dy_Id").Visible = False
@@ -176,6 +204,7 @@ Public Class usrcntlAktDetailsATILLANeu
         End With
 
     End Sub
+
     Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting
         Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name
             Case "txtStatus" 'Dauer
@@ -229,6 +258,13 @@ Public Class usrcntlAktDetailsATILLANeu
             SGSNCTSToolStripMenuItem.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then
+            NCTSATEZToolStripMenuItem.Visible = True
+            tbATEZ.Visible = True
+        Else
+            tbATEZ.Visible = False
+        End If
+
 
         timer.Interval = 100
         reload(AvisoID)
@@ -1472,6 +1508,8 @@ Public Class usrcntlAktDetailsATILLANeu
             initdgvZollAnmeldungen()
         ElseIf tbcntr.SelectedTab Is tbVermerke Then
             If loaded Then Vermerke_anzeigen()
+        ElseIf tbcntr.SelectedTab Is tbATEZ Then
+            initdgvATEZ()
         End If
     End Sub
 
@@ -1609,32 +1647,14 @@ Public Class usrcntlAktDetailsATILLANeu
     End Sub
 
     Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
-        Dim ATTACHMENTS_LIST As New List(Of String)
+
         Try
 
-            If dgvanhaenge.SelectedRows.Count = 0 Then
-                MsgBox("Bitte zu schickenden Anhänge markieren!")
-                Exit Sub
-            Else
-                For Each row As DataGridViewRow In dgvanhaenge.SelectedRows
-                    Dim anh_id = row.Cells("anh_id").Value
-                    ATTACHMENTS_LIST.Add(anh_id)
-                Next
-
-            End If
-
 
             If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
                 Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
 
-
-                Dim frmAttilaATEZNCTS = New frmATEZNCTS(AVISO, SND, Now.ToString("yy"))
-                frmAttilaATEZNCTS.ATT = ATTACHMENTS_LIST
-
-                AddHandler frmAttilaATEZNCTS.FormClosed, Sub()
-                                                             'initdgvZollAnmeldungen()
-                                                         End Sub
-
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
                 frmAttilaATEZNCTS.Show(Me)
 
             End If
@@ -1645,4 +1665,6 @@ Public Class usrcntlAktDetailsATILLANeu
         Me.Cursor = Cursors.Default
 
     End Sub
+
+
 End Class