ATEZ Anpassungen

Aviso/frmATEZ_NCTS.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmATEZ_NCTS
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATEZ_NCTS))
         Me.Button1 = New System.Windows.Forms.Button()
         Me.pnlHead = New System.Windows.Forms.Panel()
@@ -61,7 +62,7 @@ Partial Class frmATEZ_NCTS
         Me.Label4 = New System.Windows.Forms.Label()
         Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Label3 = New System.Windows.Forms.Label()
-        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
@@ -69,6 +70,8 @@ Partial Class frmATEZ_NCTS
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtDyNiederlassung = New System.Windows.Forms.Label()
         Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.cboProzedur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.pnlHead.SuspendLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -93,6 +96,8 @@ Partial Class frmATEZ_NCTS
         '
         Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.Label2)
+        Me.pnlHead.Controls.Add(Me.cboProzedur)
         Me.pnlHead.Controls.Add(Me.lblInfo)
         Me.pnlHead.Controls.Add(Me.Label6)
         Me.pnlHead.Controls.Add(Me.Label8)
@@ -921,6 +926,31 @@ Partial Class frmATEZ_NCTS
         Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
         Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(10, 36)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(52, 13)
+        Me.Label2.TabIndex = 150
+        Me.Label2.Text = "Prozedur:"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboProzedur
+        '
+        Me.cboProzedur._allowedValuesFreiText = Nothing
+        Me.cboProzedur._allowFreiText = False
+        Me.cboProzedur._value = ""
+        Me.cboProzedur.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
+        Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.cboProzedur.FormattingEnabled = True
+        Me.cboProzedur.Location = New System.Drawing.Point(151, 33)
+        Me.cboProzedur.Name = "cboProzedur"
+        Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
+        Me.cboProzedur.TabIndex = 149
+        '
         'frmATEZ_NCTS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -985,4 +1015,6 @@ Partial Class frmATEZ_NCTS
     Friend WithEvents Label1 As Label
     Friend WithEvents txtDyNiederlassung As Label
     Friend WithEvents lblBezugsnummer As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents cboProzedur As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

Aviso/frmATEZ_NCTS.vb

@@ -103,6 +103,7 @@ Public Class frmATEZ_NCTS
                 .VERAG_LRN = lblBezugsnummer.Text
                 .LicensePlateContainerNo = txtLKWId.Text
                 .DAKOSY_TemplateCode = cboStammreferenz._value
+                .DAKOSY_Procedure = cboProzedur._value
                 .DAKOSY_IOPartner = txtDyMandant.Text
                 .DAKOSY_Division3 = txtDyNiederlassung.Text
                 .DepartureCustomsOffice = sbAbgangZollstelle._value
@@ -240,6 +241,17 @@ Public Class frmATEZ_NCTS
         initSeachboxes()
         initAttachment()
 
+
+        cboProzedur.Items.Clear()
+        cboProzedur.Items.Add(New MyListItem("T1", "T1"))
+        cboProzedur.Items.Add(New MyListItem("T2", "T2"))
+        cboProzedur.Items.Add(New MyListItem("TIR", "TIR"))
+
+        Select Case FIRMA_DY
+            Case "ATILLA" : cboProzedur.changeItem("T2")
+            Case Else : cboProzedur.changeItem("T1")
+        End Select
+
         If openExisting Then
 
             If id > 0 Then
@@ -256,6 +268,7 @@ Public Class frmATEZ_NCTS
 
                 cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1", False, "FMZOLL", True)
                 cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
+                cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
 
                 txtLKWId.Text = atez_data.LicensePlateContainerNo
 

Aviso/frmSendungsdetailsNEU.vb

@@ -407,8 +407,8 @@ Public Class frmSendungsdetailsNEU
                 '   ToolStripMenuItem13.Enabled = True
             End If
 
-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me) Then
-                Button19.Visible = True
+                Button20.Visible = True
             End If
 
 
@@ -6278,70 +6278,7 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click, ToolStripMenuItem12.Click
 
-        Try
-            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
-                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
-                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
-                frmAttilaATEZNCTS.Show(Me)
-            End If
-
-        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
-        End Try
-        Me.Cursor = Cursors.Default
-
-
-
-
-
-
-        Exit Sub
-        MsgBox("Funktion noch nicht implementiert!")
-        Dim failreDesc As String = ""
-
-        If dgvAnhang.SelectedRows.Count = 0 Then
-            failreDesc = "Bitte zu schickenden Anhang markieren!"
-            MsgBox(failreDesc)
-            Exit Sub
-        End If
-
-        Dim atezData As New cATEZ_NCTS_DATA
-        Dim atez As New cATEZ_NCTS_IN
-
-        With atezData
-
-            .VERAG_LRN = AVISO.AvisoID
-            .LicensePlateContainerNo = AVISO.LKW_Nr
-            .DAKOSY_Division1 = "test"
-            'Datenzuweisung machen!
-            .SAVE()
-
-        End With
-
-        Dim test = atez.authenticate()
-        If test <> "200" Then
-            failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!"
-            MsgBox(failreDesc)
-            Exit Sub
-        End If
-
-
-        'If Not atez.setData(atezData, dgvAnhang) Then MsgBox("Fehler beim Erstellen der Daten")
-
-        'atez.SendRequestWithAuthHeader("application/json", failreDesc)
-
-        'If failreDesc <> "" Then
-        '    atezData.status = failreDesc
-        '    atezData.SAVE()
-        '    MsgBox(failreDesc)
-        'Else
-        '    atezData.status = "Sent"
-        '    atezData.SAVE()
-        'End If
-
-    End Sub
 
     Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
         'MsgBox("Funktion noch nicht implementiert!")
@@ -6404,4 +6341,23 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
+    Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
+        SAVE_ME()
+
+        Try
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
+                frmAttilaATEZNCTS.Show(Me)
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+
+        initTab()
+
+
+    End Sub
 End Class