edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-07-12 22:37:31 +02:00
parent af6907451f 8b8d04d489
commit 9b4c894f30
7 changed files with 1553 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -225,7 +225,7 @@ Public Class frmGesamtsicherheitenNEU
drFirst.Item("Nr") = 0
drFirst.Item("Typ") = "Uebertrag vom"
drFirst.Item("Datum") = CDate(datumVon).ToShortDateString
drFirst.Item("Saldo") = SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum asc", "AVISO",,, currentGesSichRef.brgakto_betrag) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
drFirst.Item("Saldo") = SQL.getValueTxtBySql("SELECT TOP 1 isnull([gs_saldo],0) FROM [tblGesamtsicherheit] where gs_standort = '" & standort & "' AND gs_datum <'" & CDate(datumVon).ToShortDateString & "' order by gs_datum asc", "AVISO",,, currentGesSichRef.getReferenzbetrag(CDate(datumVon).ToShortDateString)) 'CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
dtSicherheiten.Rows.InsertAt(drFirst, 0)
@@ -1915,9 +1915,4 @@ Public Class frmGesamtsicherheitenNEU
End If
End Sub
Private Sub txtAnzahlPos_Leave(sender As Object, e As EventArgs) Handles txtAnzahlPos.Leave
If txtAnzahlPos.Text = "" Then
txtAnzahlPos.Text = 1
End If
End Sub
End Class

25
Aviso/frmHauptfenster.vb
View File

@@ -591,6 +591,31 @@ Public Class frmHauptfenster
End If
If False Then 'Bei Produktivstart bedingung auf True!!!!!
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
Dim timas As New cTimasAPI
Dim infoMessage As String = ""
Dim timeEntryExisting As Boolean = False
timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting)
If Not timeEntryExisting Then
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst" & vbNewLine & Now.ToString() & "als Startzeit erfassen?", vbYesNo)
If a = vbYes Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
MsgBox(info)
Else
End If
End If
End If
End If
End Sub
Sub initEAviso()

719
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -38,6 +38,7 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
Me.Panel19 = New System.Windows.Forms.Panel()
Me.Button19 = New System.Windows.Forms.Button()
Me.Button17 = New System.Windows.Forms.Button()
Me.btnQuckScan = New System.Windows.Forms.Button()
Me.Panel21 = New System.Windows.Forms.Panel()
@@ -202,10 +203,35 @@ Partial Class frmSendungsdetailsNEU
Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox()
Me.lblSonstigesKosten = New System.Windows.Forms.Label()
Me.btnAufschub_Atr = New System.Windows.Forms.Button()
Me.btnAufschub_Empf = New System.Windows.Forms.Button()
Me.btnAufschub_VERAG = New System.Windows.Forms.Button()
Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox()
Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox()
Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox()
Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox()
Me.Panel15 = New System.Windows.Forms.Panel()
Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
@@ -218,6 +244,7 @@ Partial Class frmSendungsdetailsNEU
Me.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblFrachtfuehrer = New System.Windows.Forms.Label()
Me.pnlT1 = New System.Windows.Forms.Panel()
Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse()
Me.Label43 = New System.Windows.Forms.Label()
Me.lblAbsender = New System.Windows.Forms.Label()
Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -385,32 +412,6 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cntlFrachtfuehrer_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlEmpfaenger_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlAuftraggeber_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Sonst = New AVISO.usrcntlCheckBox()
Me.cntlFrachtf_Clear = New AVISO.usrcntlCheckBox()
Me.cntlFrachtf_Abf = New AVISO.usrcntlCheckBox()
Me.cntlFrachtf_Eust = New AVISO.usrcntlCheckBox()
Me.cntlFrachtf_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Clear = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Abf = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Eust = New AVISO.usrcntlCheckBox()
Me.cntlAbsender_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Clear = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Abf = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Eust = New AVISO.usrcntlCheckBox()
Me.cntlEmpf_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Clear = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Abf = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Eust = New AVISO.usrcntlCheckBox()
Me.cntlAuftr_Zoll = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Clear = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Abf = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Eust = New AVISO.usrcntlCheckBox()
Me.cntlAvisierer_Zoll = New AVISO.usrcntlCheckBox()
Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -593,6 +594,7 @@ Partial Class frmSendungsdetailsNEU
'
'Panel19
'
Me.Panel19.Controls.Add(Me.Button19)
Me.Panel19.Controls.Add(Me.Button17)
Me.Panel19.Controls.Add(Me.btnQuckScan)
Me.Panel19.Controls.Add(Me.Panel21)
@@ -607,6 +609,21 @@ Partial Class frmSendungsdetailsNEU
Me.Panel19.Size = New System.Drawing.Size(1206, 45)
Me.Panel19.TabIndex = 0
'
'Button19
'
Me.Button19.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button19.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button19.Location = New System.Drawing.Point(81, 5)
Me.Button19.Name = "Button19"
Me.Button19.Size = New System.Drawing.Size(72, 34)
Me.Button19.TabIndex = 8
Me.Button19.Text = "ATEZ"
Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button19.UseVisualStyleBackColor = True
Me.Button19.Visible = False
'
'Button17
'
Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -734,9 +751,9 @@ Partial Class frmSendungsdetailsNEU
Me.btnPDFZusammenfueren.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPDFZusammenfueren.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.btnPDFZusammenfueren.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPDFZusammenfueren.Location = New System.Drawing.Point(117, 5)
Me.btnPDFZusammenfueren.Location = New System.Drawing.Point(159, 5)
Me.btnPDFZusammenfueren.Name = "btnPDFZusammenfueren"
Me.btnPDFZusammenfueren.Size = New System.Drawing.Size(156, 34)
Me.btnPDFZusammenfueren.Size = New System.Drawing.Size(153, 34)
Me.btnPDFZusammenfueren.TabIndex = 1
Me.btnPDFZusammenfueren.Text = "PDF zusammenführen"
Me.btnPDFZusammenfueren.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -747,10 +764,10 @@ Partial Class frmSendungsdetailsNEU
Me.btnMailVorlage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMailVorlage.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.btnMailVorlage.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMailVorlage.Location = New System.Drawing.Point(279, 5)
Me.btnMailVorlage.Location = New System.Drawing.Point(321, 5)
Me.btnMailVorlage.Name = "btnMailVorlage"
Me.btnMailVorlage.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0)
Me.btnMailVorlage.Size = New System.Drawing.Size(144, 34)
Me.btnMailVorlage.Size = New System.Drawing.Size(134, 34)
Me.btnMailVorlage.TabIndex = 2
Me.btnMailVorlage.Text = "Mail Vorlage"
Me.btnMailVorlage.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -902,7 +919,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(93, 22)
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem8.Text = "T1"
'
'ToolStripMenuItem9
@@ -910,7 +927,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(93, 22)
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem9.Text = "T2"
'
'ToolStripMenuItem10
@@ -918,7 +935,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(93, 22)
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(101, 30)
Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False
'
@@ -956,7 +973,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(95, 22)
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem20.Text = "EZA"
'
'ToolStripMenuItem18
@@ -965,7 +982,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(95, 22)
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem18.Text = "T1"
'
'ToolStripMenuItem19
@@ -974,7 +991,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(95, 22)
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem19.Text = "T2"
'
'ToolStripMenuItem21
@@ -991,7 +1008,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22"
Me.ToolStripMenuItem22.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem22.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem22.Text = "MIC Import senden"
'
'ToolStripMenuItem23
@@ -999,7 +1016,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem23.Text = "MIC Transit senden"
'
'ToolStripMenuItem24
@@ -1008,7 +1025,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(176, 22)
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem24.Text = "MIC Export senden"
'
'ToolStripMenuItem12
@@ -2889,6 +2906,66 @@ Partial Class frmSendungsdetailsNEU
Me.Button1.Text = "BAR - Beleg"
Me.Button1.UseVisualStyleBackColor = False
'
'cntlFrachtfuehrer_Sonst
'
Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST"
Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF"
Me.cntlFrachtfuehrer_Sonst._readOnly = True
Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168)
Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst"
Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtfuehrer_Sonst.TabIndex = 82
Me.cntlFrachtfuehrer_Sonst.TabStop = False
Me.cntlFrachtfuehrer_Sonst.value = ""
'
'cntlAbsender_Sonst
'
Me.cntlAbsender_Sonst._abrArt = "SONST"
Me.cntlAbsender_Sonst._beteiligter = "ABS"
Me.cntlAbsender_Sonst._readOnly = True
Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133)
Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst"
Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Sonst.TabIndex = 68
Me.cntlAbsender_Sonst.TabStop = False
Me.cntlAbsender_Sonst.value = ""
'
'cntlEmpfaenger_Sonst
'
Me.cntlEmpfaenger_Sonst._abrArt = "SONST"
Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF"
Me.cntlEmpfaenger_Sonst._readOnly = True
Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94)
Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst"
Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpfaenger_Sonst.TabIndex = 53
Me.cntlEmpfaenger_Sonst.TabStop = False
Me.cntlEmpfaenger_Sonst.value = ""
'
'cntlAuftraggeber_Sonst
'
Me.cntlAuftraggeber_Sonst._abrArt = "SONST"
Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR"
Me.cntlAuftraggeber_Sonst._readOnly = True
Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57)
Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst"
Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftraggeber_Sonst.TabIndex = 36
Me.cntlAuftraggeber_Sonst.TabStop = False
Me.cntlAuftraggeber_Sonst.value = ""
'
'cntlAvisierer_Sonst
'
Me.cntlAvisierer_Sonst._abrArt = "SONST"
Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER"
Me.cntlAvisierer_Sonst._readOnly = True
Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20)
Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst"
Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Sonst.TabIndex = 21
Me.cntlAvisierer_Sonst.TabStop = False
Me.cntlAvisierer_Sonst.value = ""
'
'lblSonstigesKosten
'
Me.lblSonstigesKosten.AutoSize = True
@@ -2956,6 +3033,246 @@ Partial Class frmSendungsdetailsNEU
Me.btnAufschub_VERAG.UseVisualStyleBackColor = False
Me.btnAufschub_VERAG.Visible = False
'
'cntlFrachtf_Clear
'
Me.cntlFrachtf_Clear._abrArt = "CLEARING"
Me.cntlFrachtf_Clear._beteiligter = "FRACHTF"
Me.cntlFrachtf_Clear._readOnly = False
Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168)
Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear"
Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Clear.TabIndex = 81
Me.cntlFrachtf_Clear.TabStop = False
Me.cntlFrachtf_Clear.value = ""
'
'cntlFrachtf_Abf
'
Me.cntlFrachtf_Abf._abrArt = "ABFKOST"
Me.cntlFrachtf_Abf._beteiligter = "FRACHTF"
Me.cntlFrachtf_Abf._readOnly = False
Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168)
Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf"
Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Abf.TabIndex = 80
Me.cntlFrachtf_Abf.TabStop = False
Me.cntlFrachtf_Abf.value = ""
'
'cntlFrachtf_Eust
'
Me.cntlFrachtf_Eust._abrArt = "EUST"
Me.cntlFrachtf_Eust._beteiligter = "FRACHTF"
Me.cntlFrachtf_Eust._readOnly = False
Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168)
Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust"
Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Eust.TabIndex = 79
Me.cntlFrachtf_Eust.TabStop = False
Me.cntlFrachtf_Eust.value = ""
'
'cntlFrachtf_Zoll
'
Me.cntlFrachtf_Zoll._abrArt = "ZOLL"
Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF"
Me.cntlFrachtf_Zoll._readOnly = False
Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168)
Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll"
Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Zoll.TabIndex = 78
Me.cntlFrachtf_Zoll.TabStop = False
Me.cntlFrachtf_Zoll.value = ""
'
'cntlAbsender_Clear
'
Me.cntlAbsender_Clear._abrArt = "CLEARING"
Me.cntlAbsender_Clear._beteiligter = "ABS"
Me.cntlAbsender_Clear._readOnly = False
Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133)
Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear"
Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Clear.TabIndex = 67
Me.cntlAbsender_Clear.TabStop = False
Me.cntlAbsender_Clear.value = ""
'
'cntlAbsender_Abf
'
Me.cntlAbsender_Abf._abrArt = "ABFKOST"
Me.cntlAbsender_Abf._beteiligter = "ABS"
Me.cntlAbsender_Abf._readOnly = False
Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133)
Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf"
Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Abf.TabIndex = 66
Me.cntlAbsender_Abf.TabStop = False
Me.cntlAbsender_Abf.value = ""
'
'cntlAbsender_Eust
'
Me.cntlAbsender_Eust._abrArt = "EUST"
Me.cntlAbsender_Eust._beteiligter = "ABS"
Me.cntlAbsender_Eust._readOnly = False
Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133)
Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust"
Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Eust.TabIndex = 65
Me.cntlAbsender_Eust.TabStop = False
Me.cntlAbsender_Eust.value = ""
'
'cntlAbsender_Zoll
'
Me.cntlAbsender_Zoll._abrArt = "ZOLL"
Me.cntlAbsender_Zoll._beteiligter = "ABS"
Me.cntlAbsender_Zoll._readOnly = False
Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133)
Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll"
Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Zoll.TabIndex = 64
Me.cntlAbsender_Zoll.TabStop = False
Me.cntlAbsender_Zoll.value = ""
'
'cntlEmpf_Clear
'
Me.cntlEmpf_Clear._abrArt = "CLEARING"
Me.cntlEmpf_Clear._beteiligter = "EMPF"
Me.cntlEmpf_Clear._readOnly = False
Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94)
Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear"
Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Clear.TabIndex = 52
Me.cntlEmpf_Clear.TabStop = False
Me.cntlEmpf_Clear.value = ""
'
'cntlEmpf_Abf
'
Me.cntlEmpf_Abf._abrArt = "ABFKOST"
Me.cntlEmpf_Abf._beteiligter = "EMPF"
Me.cntlEmpf_Abf._readOnly = False
Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94)
Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf"
Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Abf.TabIndex = 51
Me.cntlEmpf_Abf.TabStop = False
Me.cntlEmpf_Abf.value = ""
'
'cntlEmpf_Eust
'
Me.cntlEmpf_Eust._abrArt = "EUST"
Me.cntlEmpf_Eust._beteiligter = "EMPF"
Me.cntlEmpf_Eust._readOnly = False
Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94)
Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust"
Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Eust.TabIndex = 50
Me.cntlEmpf_Eust.TabStop = False
Me.cntlEmpf_Eust.value = ""
'
'cntlEmpf_Zoll
'
Me.cntlEmpf_Zoll._abrArt = "ZOLL"
Me.cntlEmpf_Zoll._beteiligter = "EMPF"
Me.cntlEmpf_Zoll._readOnly = False
Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94)
Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll"
Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Zoll.TabIndex = 49
Me.cntlEmpf_Zoll.TabStop = False
Me.cntlEmpf_Zoll.value = ""
'
'cntlAuftr_Clear
'
Me.cntlAuftr_Clear._abrArt = "CLEARING"
Me.cntlAuftr_Clear._beteiligter = "AUFTR"
Me.cntlAuftr_Clear._readOnly = False
Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57)
Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear"
Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Clear.TabIndex = 35
Me.cntlAuftr_Clear.TabStop = False
Me.cntlAuftr_Clear.value = ""
'
'cntlAuftr_Abf
'
Me.cntlAuftr_Abf._abrArt = "ABFKOST"
Me.cntlAuftr_Abf._beteiligter = "AUFTR"
Me.cntlAuftr_Abf._readOnly = False
Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57)
Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf"
Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Abf.TabIndex = 34
Me.cntlAuftr_Abf.TabStop = False
Me.cntlAuftr_Abf.value = ""
'
'cntlAuftr_Eust
'
Me.cntlAuftr_Eust._abrArt = "EUST"
Me.cntlAuftr_Eust._beteiligter = "AUFTR"
Me.cntlAuftr_Eust._readOnly = False
Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57)
Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust"
Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Eust.TabIndex = 33
Me.cntlAuftr_Eust.TabStop = False
Me.cntlAuftr_Eust.value = ""
'
'cntlAuftr_Zoll
'
Me.cntlAuftr_Zoll._abrArt = "ZOLL"
Me.cntlAuftr_Zoll._beteiligter = "AUFTR"
Me.cntlAuftr_Zoll._readOnly = False
Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57)
Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll"
Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Zoll.TabIndex = 32
Me.cntlAuftr_Zoll.TabStop = False
Me.cntlAuftr_Zoll.value = ""
'
'cntlAvisierer_Clear
'
Me.cntlAvisierer_Clear._abrArt = "CLEARING"
Me.cntlAvisierer_Clear._beteiligter = "AVISIERER"
Me.cntlAvisierer_Clear._readOnly = False
Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20)
Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear"
Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Clear.TabIndex = 20
Me.cntlAvisierer_Clear.TabStop = False
Me.cntlAvisierer_Clear.value = ""
'
'cntlAvisierer_Abf
'
Me.cntlAvisierer_Abf._abrArt = "ABFKOST"
Me.cntlAvisierer_Abf._beteiligter = "AVISIERER"
Me.cntlAvisierer_Abf._readOnly = False
Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20)
Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf"
Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Abf.TabIndex = 19
Me.cntlAvisierer_Abf.TabStop = False
Me.cntlAvisierer_Abf.value = ""
'
'cntlAvisierer_Eust
'
Me.cntlAvisierer_Eust._abrArt = "EUST"
Me.cntlAvisierer_Eust._beteiligter = "AVISIERER"
Me.cntlAvisierer_Eust._readOnly = False
Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20)
Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust"
Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Eust.TabIndex = 18
Me.cntlAvisierer_Eust.TabStop = False
Me.cntlAvisierer_Eust.value = ""
'
'cntlAvisierer_Zoll
'
Me.cntlAvisierer_Zoll._abrArt = "ZOLL"
Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER"
Me.cntlAvisierer_Zoll._readOnly = False
Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20)
Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll"
Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Zoll.TabIndex = 17
Me.cntlAvisierer_Zoll.TabStop = False
Me.cntlAvisierer_Zoll.value = ""
'
'Panel15
'
Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -3146,6 +3463,14 @@ Partial Class frmSendungsdetailsNEU
Me.pnlT1.Size = New System.Drawing.Size(549, 92)
Me.pnlT1.TabIndex = 86
'
'UsrCntlSND_NCTSGestellungsadresse1
'
Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1"
Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 92)
Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0
'
'Label43
'
Me.Label43.AutoSize = True
@@ -4625,6 +4950,7 @@ Partial Class frmSendungsdetailsNEU
'
Me.BindingNavigatorPositionItem.AccessibleName = "Position"
Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
Me.BindingNavigatorPositionItem.Text = "0"
@@ -4795,7 +5121,7 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem26, Me.ToolStripMenuItem27, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.WarenortAMBARToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem})
Me.ContextMenuStrip1.Name = "cntxtAnh"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 386)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 364)
'
'ToolStripMenuItem15
'
@@ -4904,14 +5230,14 @@ Partial Class frmSendungsdetailsNEU
'
Me.ToolStripMenuItem29.Image = CType(resources.GetObject("ToolStripMenuItem29.Image"), System.Drawing.Image)
Me.ToolStripMenuItem29.Name = "ToolStripMenuItem29"
Me.ToolStripMenuItem29.Size = New System.Drawing.Size(275, 30)
Me.ToolStripMenuItem29.Size = New System.Drawing.Size(267, 22)
Me.ToolStripMenuItem29.Text = "Aktuelle Sendung (Anhänge wählen)"
'
'ToolStripMenuItem30
'
Me.ToolStripMenuItem30.Image = CType(resources.GetObject("ToolStripMenuItem30.Image"), System.Drawing.Image)
Me.ToolStripMenuItem30.Name = "ToolStripMenuItem30"
Me.ToolStripMenuItem30.Size = New System.Drawing.Size(275, 30)
Me.ToolStripMenuItem30.Size = New System.Drawing.Size(267, 22)
Me.ToolStripMenuItem30.Text = "Alle Sendungen (LKW)"
'
'ToolStripMenuItem25
@@ -4995,314 +5321,6 @@ Partial Class frmSendungsdetailsNEU
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
'
'cntlFrachtfuehrer_Sonst
'
Me.cntlFrachtfuehrer_Sonst._abrArt = "SONST"
Me.cntlFrachtfuehrer_Sonst._beteiligter = "FRACHTF"
Me.cntlFrachtfuehrer_Sonst._readOnly = True
Me.cntlFrachtfuehrer_Sonst.Location = New System.Drawing.Point(632, 168)
Me.cntlFrachtfuehrer_Sonst.Name = "cntlFrachtfuehrer_Sonst"
Me.cntlFrachtfuehrer_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtfuehrer_Sonst.TabIndex = 82
Me.cntlFrachtfuehrer_Sonst.TabStop = False
Me.cntlFrachtfuehrer_Sonst.value = ""
'
'cntlAbsender_Sonst
'
Me.cntlAbsender_Sonst._abrArt = "SONST"
Me.cntlAbsender_Sonst._beteiligter = "ABS"
Me.cntlAbsender_Sonst._readOnly = True
Me.cntlAbsender_Sonst.Location = New System.Drawing.Point(632, 133)
Me.cntlAbsender_Sonst.Name = "cntlAbsender_Sonst"
Me.cntlAbsender_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Sonst.TabIndex = 68
Me.cntlAbsender_Sonst.TabStop = False
Me.cntlAbsender_Sonst.value = ""
'
'cntlEmpfaenger_Sonst
'
Me.cntlEmpfaenger_Sonst._abrArt = "SONST"
Me.cntlEmpfaenger_Sonst._beteiligter = "EMPF"
Me.cntlEmpfaenger_Sonst._readOnly = True
Me.cntlEmpfaenger_Sonst.Location = New System.Drawing.Point(632, 94)
Me.cntlEmpfaenger_Sonst.Name = "cntlEmpfaenger_Sonst"
Me.cntlEmpfaenger_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpfaenger_Sonst.TabIndex = 53
Me.cntlEmpfaenger_Sonst.TabStop = False
Me.cntlEmpfaenger_Sonst.value = ""
'
'cntlAuftraggeber_Sonst
'
Me.cntlAuftraggeber_Sonst._abrArt = "SONST"
Me.cntlAuftraggeber_Sonst._beteiligter = "AUFTR"
Me.cntlAuftraggeber_Sonst._readOnly = True
Me.cntlAuftraggeber_Sonst.Location = New System.Drawing.Point(632, 57)
Me.cntlAuftraggeber_Sonst.Name = "cntlAuftraggeber_Sonst"
Me.cntlAuftraggeber_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftraggeber_Sonst.TabIndex = 36
Me.cntlAuftraggeber_Sonst.TabStop = False
Me.cntlAuftraggeber_Sonst.value = ""
'
'cntlAvisierer_Sonst
'
Me.cntlAvisierer_Sonst._abrArt = "SONST"
Me.cntlAvisierer_Sonst._beteiligter = "AVISIERER"
Me.cntlAvisierer_Sonst._readOnly = True
Me.cntlAvisierer_Sonst.Location = New System.Drawing.Point(632, 20)
Me.cntlAvisierer_Sonst.Name = "cntlAvisierer_Sonst"
Me.cntlAvisierer_Sonst.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Sonst.TabIndex = 21
Me.cntlAvisierer_Sonst.TabStop = False
Me.cntlAvisierer_Sonst.value = ""
'
'cntlFrachtf_Clear
'
Me.cntlFrachtf_Clear._abrArt = "CLEARING"
Me.cntlFrachtf_Clear._beteiligter = "FRACHTF"
Me.cntlFrachtf_Clear._readOnly = False
Me.cntlFrachtf_Clear.Location = New System.Drawing.Point(600, 168)
Me.cntlFrachtf_Clear.Name = "cntlFrachtf_Clear"
Me.cntlFrachtf_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Clear.TabIndex = 81
Me.cntlFrachtf_Clear.TabStop = False
Me.cntlFrachtf_Clear.value = ""
'
'cntlFrachtf_Abf
'
Me.cntlFrachtf_Abf._abrArt = "ABFKOST"
Me.cntlFrachtf_Abf._beteiligter = "FRACHTF"
Me.cntlFrachtf_Abf._readOnly = False
Me.cntlFrachtf_Abf.Location = New System.Drawing.Point(569, 168)
Me.cntlFrachtf_Abf.Name = "cntlFrachtf_Abf"
Me.cntlFrachtf_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Abf.TabIndex = 80
Me.cntlFrachtf_Abf.TabStop = False
Me.cntlFrachtf_Abf.value = ""
'
'cntlFrachtf_Eust
'
Me.cntlFrachtf_Eust._abrArt = "EUST"
Me.cntlFrachtf_Eust._beteiligter = "FRACHTF"
Me.cntlFrachtf_Eust._readOnly = False
Me.cntlFrachtf_Eust.Location = New System.Drawing.Point(538, 168)
Me.cntlFrachtf_Eust.Name = "cntlFrachtf_Eust"
Me.cntlFrachtf_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Eust.TabIndex = 79
Me.cntlFrachtf_Eust.TabStop = False
Me.cntlFrachtf_Eust.value = ""
'
'cntlFrachtf_Zoll
'
Me.cntlFrachtf_Zoll._abrArt = "ZOLL"
Me.cntlFrachtf_Zoll._beteiligter = "FRACHTF"
Me.cntlFrachtf_Zoll._readOnly = False
Me.cntlFrachtf_Zoll.Location = New System.Drawing.Point(507, 168)
Me.cntlFrachtf_Zoll.Name = "cntlFrachtf_Zoll"
Me.cntlFrachtf_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlFrachtf_Zoll.TabIndex = 78
Me.cntlFrachtf_Zoll.TabStop = False
Me.cntlFrachtf_Zoll.value = ""
'
'cntlAbsender_Clear
'
Me.cntlAbsender_Clear._abrArt = "CLEARING"
Me.cntlAbsender_Clear._beteiligter = "ABS"
Me.cntlAbsender_Clear._readOnly = False
Me.cntlAbsender_Clear.Location = New System.Drawing.Point(600, 133)
Me.cntlAbsender_Clear.Name = "cntlAbsender_Clear"
Me.cntlAbsender_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Clear.TabIndex = 67
Me.cntlAbsender_Clear.TabStop = False
Me.cntlAbsender_Clear.value = ""
'
'cntlAbsender_Abf
'
Me.cntlAbsender_Abf._abrArt = "ABFKOST"
Me.cntlAbsender_Abf._beteiligter = "ABS"
Me.cntlAbsender_Abf._readOnly = False
Me.cntlAbsender_Abf.Location = New System.Drawing.Point(569, 133)
Me.cntlAbsender_Abf.Name = "cntlAbsender_Abf"
Me.cntlAbsender_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Abf.TabIndex = 66
Me.cntlAbsender_Abf.TabStop = False
Me.cntlAbsender_Abf.value = ""
'
'cntlAbsender_Eust
'
Me.cntlAbsender_Eust._abrArt = "EUST"
Me.cntlAbsender_Eust._beteiligter = "ABS"
Me.cntlAbsender_Eust._readOnly = False
Me.cntlAbsender_Eust.Location = New System.Drawing.Point(538, 133)
Me.cntlAbsender_Eust.Name = "cntlAbsender_Eust"
Me.cntlAbsender_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Eust.TabIndex = 65
Me.cntlAbsender_Eust.TabStop = False
Me.cntlAbsender_Eust.value = ""
'
'cntlAbsender_Zoll
'
Me.cntlAbsender_Zoll._abrArt = "ZOLL"
Me.cntlAbsender_Zoll._beteiligter = "ABS"
Me.cntlAbsender_Zoll._readOnly = False
Me.cntlAbsender_Zoll.Location = New System.Drawing.Point(507, 133)
Me.cntlAbsender_Zoll.Name = "cntlAbsender_Zoll"
Me.cntlAbsender_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlAbsender_Zoll.TabIndex = 64
Me.cntlAbsender_Zoll.TabStop = False
Me.cntlAbsender_Zoll.value = ""
'
'cntlEmpf_Clear
'
Me.cntlEmpf_Clear._abrArt = "CLEARING"
Me.cntlEmpf_Clear._beteiligter = "EMPF"
Me.cntlEmpf_Clear._readOnly = False
Me.cntlEmpf_Clear.Location = New System.Drawing.Point(600, 94)
Me.cntlEmpf_Clear.Name = "cntlEmpf_Clear"
Me.cntlEmpf_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Clear.TabIndex = 52
Me.cntlEmpf_Clear.TabStop = False
Me.cntlEmpf_Clear.value = ""
'
'cntlEmpf_Abf
'
Me.cntlEmpf_Abf._abrArt = "ABFKOST"
Me.cntlEmpf_Abf._beteiligter = "EMPF"
Me.cntlEmpf_Abf._readOnly = False
Me.cntlEmpf_Abf.Location = New System.Drawing.Point(569, 94)
Me.cntlEmpf_Abf.Name = "cntlEmpf_Abf"
Me.cntlEmpf_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Abf.TabIndex = 51
Me.cntlEmpf_Abf.TabStop = False
Me.cntlEmpf_Abf.value = ""
'
'cntlEmpf_Eust
'
Me.cntlEmpf_Eust._abrArt = "EUST"
Me.cntlEmpf_Eust._beteiligter = "EMPF"
Me.cntlEmpf_Eust._readOnly = False
Me.cntlEmpf_Eust.Location = New System.Drawing.Point(538, 94)
Me.cntlEmpf_Eust.Name = "cntlEmpf_Eust"
Me.cntlEmpf_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Eust.TabIndex = 50
Me.cntlEmpf_Eust.TabStop = False
Me.cntlEmpf_Eust.value = ""
'
'cntlEmpf_Zoll
'
Me.cntlEmpf_Zoll._abrArt = "ZOLL"
Me.cntlEmpf_Zoll._beteiligter = "EMPF"
Me.cntlEmpf_Zoll._readOnly = False
Me.cntlEmpf_Zoll.Location = New System.Drawing.Point(507, 94)
Me.cntlEmpf_Zoll.Name = "cntlEmpf_Zoll"
Me.cntlEmpf_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlEmpf_Zoll.TabIndex = 49
Me.cntlEmpf_Zoll.TabStop = False
Me.cntlEmpf_Zoll.value = ""
'
'cntlAuftr_Clear
'
Me.cntlAuftr_Clear._abrArt = "CLEARING"
Me.cntlAuftr_Clear._beteiligter = "AUFTR"
Me.cntlAuftr_Clear._readOnly = False
Me.cntlAuftr_Clear.Location = New System.Drawing.Point(600, 57)
Me.cntlAuftr_Clear.Name = "cntlAuftr_Clear"
Me.cntlAuftr_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Clear.TabIndex = 35
Me.cntlAuftr_Clear.TabStop = False
Me.cntlAuftr_Clear.value = ""
'
'cntlAuftr_Abf
'
Me.cntlAuftr_Abf._abrArt = "ABFKOST"
Me.cntlAuftr_Abf._beteiligter = "AUFTR"
Me.cntlAuftr_Abf._readOnly = False
Me.cntlAuftr_Abf.Location = New System.Drawing.Point(569, 57)
Me.cntlAuftr_Abf.Name = "cntlAuftr_Abf"
Me.cntlAuftr_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Abf.TabIndex = 34
Me.cntlAuftr_Abf.TabStop = False
Me.cntlAuftr_Abf.value = ""
'
'cntlAuftr_Eust
'
Me.cntlAuftr_Eust._abrArt = "EUST"
Me.cntlAuftr_Eust._beteiligter = "AUFTR"
Me.cntlAuftr_Eust._readOnly = False
Me.cntlAuftr_Eust.Location = New System.Drawing.Point(538, 57)
Me.cntlAuftr_Eust.Name = "cntlAuftr_Eust"
Me.cntlAuftr_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Eust.TabIndex = 33
Me.cntlAuftr_Eust.TabStop = False
Me.cntlAuftr_Eust.value = ""
'
'cntlAuftr_Zoll
'
Me.cntlAuftr_Zoll._abrArt = "ZOLL"
Me.cntlAuftr_Zoll._beteiligter = "AUFTR"
Me.cntlAuftr_Zoll._readOnly = False
Me.cntlAuftr_Zoll.Location = New System.Drawing.Point(507, 57)
Me.cntlAuftr_Zoll.Name = "cntlAuftr_Zoll"
Me.cntlAuftr_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlAuftr_Zoll.TabIndex = 32
Me.cntlAuftr_Zoll.TabStop = False
Me.cntlAuftr_Zoll.value = ""
'
'cntlAvisierer_Clear
'
Me.cntlAvisierer_Clear._abrArt = "CLEARING"
Me.cntlAvisierer_Clear._beteiligter = "AVISIERER"
Me.cntlAvisierer_Clear._readOnly = False
Me.cntlAvisierer_Clear.Location = New System.Drawing.Point(600, 20)
Me.cntlAvisierer_Clear.Name = "cntlAvisierer_Clear"
Me.cntlAvisierer_Clear.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Clear.TabIndex = 20
Me.cntlAvisierer_Clear.TabStop = False
Me.cntlAvisierer_Clear.value = ""
'
'cntlAvisierer_Abf
'
Me.cntlAvisierer_Abf._abrArt = "ABFKOST"
Me.cntlAvisierer_Abf._beteiligter = "AVISIERER"
Me.cntlAvisierer_Abf._readOnly = False
Me.cntlAvisierer_Abf.Location = New System.Drawing.Point(569, 20)
Me.cntlAvisierer_Abf.Name = "cntlAvisierer_Abf"
Me.cntlAvisierer_Abf.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Abf.TabIndex = 19
Me.cntlAvisierer_Abf.TabStop = False
Me.cntlAvisierer_Abf.value = ""
'
'cntlAvisierer_Eust
'
Me.cntlAvisierer_Eust._abrArt = "EUST"
Me.cntlAvisierer_Eust._beteiligter = "AVISIERER"
Me.cntlAvisierer_Eust._readOnly = False
Me.cntlAvisierer_Eust.Location = New System.Drawing.Point(538, 20)
Me.cntlAvisierer_Eust.Name = "cntlAvisierer_Eust"
Me.cntlAvisierer_Eust.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Eust.TabIndex = 18
Me.cntlAvisierer_Eust.TabStop = False
Me.cntlAvisierer_Eust.value = ""
'
'cntlAvisierer_Zoll
'
Me.cntlAvisierer_Zoll._abrArt = "ZOLL"
Me.cntlAvisierer_Zoll._beteiligter = "AVISIERER"
Me.cntlAvisierer_Zoll._readOnly = False
Me.cntlAvisierer_Zoll.Location = New System.Drawing.Point(507, 20)
Me.cntlAvisierer_Zoll.Name = "cntlAvisierer_Zoll"
Me.cntlAvisierer_Zoll.Size = New System.Drawing.Size(21, 20)
Me.cntlAvisierer_Zoll.TabIndex = 17
Me.cntlAvisierer_Zoll.TabStop = False
Me.cntlAvisierer_Zoll.value = ""
'
'UsrCntlSND_NCTSGestellungsadresse1
'
Me.UsrCntlSND_NCTSGestellungsadresse1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlSND_NCTSGestellungsadresse1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlSND_NCTSGestellungsadresse1.Name = "UsrCntlSND_NCTSGestellungsadresse1"
Me.UsrCntlSND_NCTSGestellungsadresse1.Size = New System.Drawing.Size(549, 92)
Me.UsrCntlSND_NCTSGestellungsadresse1.TabIndex = 0
'
'frmSendungsdetailsNEU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5784,4 +5802,5 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents ToolStripMenuItem28 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
Friend WithEvents Button19 As Button
End Class

48
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -6261,4 +6261,52 @@ Public Class frmSendungsdetailsNEU
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
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
End Class

69
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -28,6 +28,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -38,7 +39,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetailsATILLANeu))
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -49,7 +49,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tbVermerke = New System.Windows.Forms.TabPage()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.tbZollanmeldungen = New System.Windows.Forms.TabPage()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView()
@@ -141,11 +140,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.SGSNCTSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtZollantrag = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NCTSATEZToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MarkiertePDFsDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -261,17 +262,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True
'
'UsrCntlVermerkeATilla1
'
Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'tbZollanmeldungen
'
Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
@@ -359,7 +349,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'Button7
'
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button7.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image)
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(457, 3)
Me.Button7.Name = "Button7"
@@ -458,7 +448,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'btn
'
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.btn.Image = CType(resources.GetObject("btn.Image"), System.Drawing.Image)
Me.btn.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn.Location = New System.Drawing.Point(396, 3)
Me.btn.Name = "btn"
@@ -573,7 +563,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'
Me.Button11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button11.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button11.Image = CType(resources.GetObject("Button11.Image"), System.Drawing.Image)
Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button11.Location = New System.Drawing.Point(97, 1)
Me.Button11.Name = "Button11"
@@ -587,7 +577,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image)
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(172, 1)
Me.Button4.Name = "Button4"
@@ -601,7 +591,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button10.Image = CType(resources.GetObject("Button10.Image"), System.Drawing.Image)
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(295, 1)
Me.Button10.Name = "Button10"
@@ -691,7 +681,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button9.ForeColor = System.Drawing.Color.Black
Me.Button9.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.Button9.Image = CType(resources.GetObject("Button9.Image"), System.Drawing.Image)
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.Location = New System.Drawing.Point(465, 2)
Me.Button9.Name = "Button9"
@@ -958,7 +948,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button5.ForeColor = System.Drawing.Color.Black
Me.Button5.Image = Global.AVISO.My.Resources.Resources.gear2
Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.Location = New System.Drawing.Point(408, 36)
Me.Button5.Name = "Button5"
@@ -1002,7 +992,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnAktUebernehmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAktUebernehmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnAktUebernehmen.ForeColor = System.Drawing.Color.Black
Me.btnAktUebernehmen.Image = Global.AVISO.My.Resources.Resources.personCheck_small
Me.btnAktUebernehmen.Image = CType(resources.GetObject("btnAktUebernehmen.Image"), System.Drawing.Image)
Me.btnAktUebernehmen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAktUebernehmen.Location = New System.Drawing.Point(408, 79)
Me.btnAktUebernehmen.Name = "btnAktUebernehmen"
@@ -1554,40 +1544,47 @@ Partial Class usrcntlAktDetailsATILLANeu
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(152, 6)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
'
'NCTST2ToolStripMenuItem
'
Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem"
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand"
'
'AESToolStripMenuItem
'
Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem"
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
'
'SGSNCTSToolStripMenuItem
'
Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem"
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS"
Me.SGSNCTSToolStripMenuItem.Visible = False
'
'cntxtZollantrag
'
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.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(156, 82)
Me.cntxtZollantrag.Size = New System.Drawing.Size(181, 126)
Me.cntxtZollantrag.Text = "Zollantrag"
'
'NCTSATEZToolStripMenuItem
'
Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem"
Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ"
Me.NCTSATEZToolStripMenuItem.Visible = False
'
'cntxt
'
Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -1597,7 +1594,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'
'MarkiertePDFsDruckenToolStripMenuItem
'
Me.MarkiertePDFsDruckenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdfprint
Me.MarkiertePDFsDruckenToolStripMenuItem.Image = CType(resources.GetObject("MarkiertePDFsDruckenToolStripMenuItem.Image"), System.Drawing.Image)
Me.MarkiertePDFsDruckenToolStripMenuItem.Name = "MarkiertePDFsDruckenToolStripMenuItem"
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken"
@@ -1610,7 +1607,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Image = CType(resources.GetObject("LöschenToolStripMenuItem.Image"), System.Drawing.Image)
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.LöschenToolStripMenuItem.Text = "Löschen"
@@ -1621,6 +1618,17 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)"
'
'UsrCntlVermerkeATilla1
'
Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'usrcntlAktDetailsATILLANeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1789,4 +1797,5 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Panel15 As Panel
Friend WithEvents btnAnIndonesien As Button
Friend WithEvents Label11 As Label
Friend WithEvents NCTSATEZToolStripMenuItem As ToolStripMenuItem
End Class

1025
Aviso/usrcntlAktDetailsATILLANeu.resx
View File

File diff suppressed because it is too large Load Diff

46
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1612,4 +1612,50 @@ Public Class usrcntlAktDetailsATILLANeu
End If
End Sub
Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
If dgvanhaenge.SelectedRows.Count = 0 Then
MsgBox("Bitte zu schickenden Anhänge markieren!")
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
End Class