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("Nr") = 0
drFirst.Item("Typ") = "Uebertrag vom" drFirst.Item("Typ") = "Uebertrag vom"
drFirst.Item("Datum") = CDate(datumVon).ToShortDateString 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) dtSicherheiten.Rows.InsertAt(drFirst, 0)
@@ -1915,9 +1915,4 @@ Public Class frmGesamtsicherheitenNEU
End If End If
End Sub 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 End Class

25
Aviso/frmHauptfenster.vb
View File

@@ -591,6 +591,31 @@ Public Class frmHauptfenster
End If 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 End Sub
Sub initEAviso() 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.dgvAnhang = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.btnDirektAnfuegen = New System.Windows.Forms.Button() Me.btnDirektAnfuegen = New System.Windows.Forms.Button()
Me.Panel19 = New System.Windows.Forms.Panel() Me.Panel19 = New System.Windows.Forms.Panel()
Me.Button19 = New System.Windows.Forms.Button()
Me.Button17 = New System.Windows.Forms.Button() Me.Button17 = New System.Windows.Forms.Button()
Me.btnQuckScan = New System.Windows.Forms.Button() Me.btnQuckScan = New System.Windows.Forms.Button()
Me.Panel21 = New System.Windows.Forms.Panel() Me.Panel21 = New System.Windows.Forms.Panel()
@@ -202,10 +203,35 @@ Partial Class frmSendungsdetailsNEU
Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnAvisierer = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.Button1 = 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.lblSonstigesKosten = New System.Windows.Forms.Label()
Me.btnAufschub_Atr = New System.Windows.Forms.Button() Me.btnAufschub_Atr = New System.Windows.Forms.Button()
Me.btnAufschub_Empf = New System.Windows.Forms.Button() Me.btnAufschub_Empf = New System.Windows.Forms.Button()
Me.btnAufschub_VERAG = 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.Panel15 = New System.Windows.Forms.Panel()
Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.txtAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtAuftraggeber = 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.lblEmpfAufschubEust = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblFrachtfuehrer = New System.Windows.Forms.Label() Me.lblFrachtfuehrer = New System.Windows.Forms.Label()
Me.pnlT1 = New System.Windows.Forms.Panel() Me.pnlT1 = New System.Windows.Forms.Panel()
Me.UsrCntlSND_NCTSGestellungsadresse1 = New AVISO.usrCntlSND_NCTSGestellungsadresse()
Me.Label43 = New System.Windows.Forms.Label() Me.Label43 = New System.Windows.Forms.Label()
Me.lblAbsender = New System.Windows.Forms.Label() Me.lblAbsender = New System.Windows.Forms.Label()
Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAbsenderKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -385,32 +412,6 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
Me.NurÖffnenToolStripMenuItem = 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.pnl.SuspendLayout()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
@@ -593,6 +594,7 @@ Partial Class frmSendungsdetailsNEU
' '
'Panel19 'Panel19
' '
Me.Panel19.Controls.Add(Me.Button19)
Me.Panel19.Controls.Add(Me.Button17) Me.Panel19.Controls.Add(Me.Button17)
Me.Panel19.Controls.Add(Me.btnQuckScan) Me.Panel19.Controls.Add(Me.btnQuckScan)
Me.Panel19.Controls.Add(Me.Panel21) Me.Panel19.Controls.Add(Me.Panel21)
@@ -607,6 +609,21 @@ Partial Class frmSendungsdetailsNEU
Me.Panel19.Size = New System.Drawing.Size(1206, 45) Me.Panel19.Size = New System.Drawing.Size(1206, 45)
Me.Panel19.TabIndex = 0 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 'Button17
' '
Me.Button17.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPDFZusammenfueren.Image = Global.AVISO.My.Resources.Resources.pdf11 Me.btnPDFZusammenfueren.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.btnPDFZusammenfueren.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.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.TabIndex = 1
Me.btnPDFZusammenfueren.Text = "PDF zusammenführen" Me.btnPDFZusammenfueren.Text = "PDF zusammenführen"
Me.btnPDFZusammenfueren.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnPDFZusammenfueren.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -747,10 +764,10 @@ Partial Class frmSendungsdetailsNEU
Me.btnMailVorlage.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnMailVorlage.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMailVorlage.Image = Global.AVISO.My.Resources.Resources.email_big1 Me.btnMailVorlage.Image = Global.AVISO.My.Resources.Resources.email_big1
Me.btnMailVorlage.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Name = "btnMailVorlage"
Me.btnMailVorlage.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0) 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.TabIndex = 2
Me.btnMailVorlage.Text = "Mail Vorlage" Me.btnMailVorlage.Text = "Mail Vorlage"
Me.btnMailVorlage.TextAlign = System.Drawing.ContentAlignment.MiddleRight 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.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" 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" Me.ToolStripMenuItem8.Text = "T1"
' '
'ToolStripMenuItem9 'ToolStripMenuItem9
@@ -910,7 +927,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9" 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" Me.ToolStripMenuItem9.Text = "T2"
' '
'ToolStripMenuItem10 'ToolStripMenuItem10
@@ -918,7 +935,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10" 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.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False Me.ToolStripMenuItem10.Visible = False
' '
@@ -956,7 +973,7 @@ Partial Class frmSendungsdetailsNEU
' '
Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20" 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" Me.ToolStripMenuItem20.Text = "EZA"
' '
'ToolStripMenuItem18 'ToolStripMenuItem18
@@ -965,7 +982,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18" 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" Me.ToolStripMenuItem18.Text = "T1"
' '
'ToolStripMenuItem19 'ToolStripMenuItem19
@@ -974,7 +991,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19" 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" Me.ToolStripMenuItem19.Text = "T2"
' '
'ToolStripMenuItem21 'ToolStripMenuItem21
@@ -991,7 +1008,7 @@ Partial Class frmSendungsdetailsNEU
' '
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem22.Name = "ToolStripMenuItem22" 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" Me.ToolStripMenuItem22.Text = "MIC Import senden"
' '
'ToolStripMenuItem23 'ToolStripMenuItem23
@@ -999,7 +1016,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23" 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" Me.ToolStripMenuItem23.Text = "MIC Transit senden"
' '
'ToolStripMenuItem24 'ToolStripMenuItem24
@@ -1008,7 +1025,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1 Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24" 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" Me.ToolStripMenuItem24.Text = "MIC Export senden"
' '
'ToolStripMenuItem12 'ToolStripMenuItem12
@@ -2889,6 +2906,66 @@ Partial Class frmSendungsdetailsNEU
Me.Button1.Text = "BAR - Beleg" Me.Button1.Text = "BAR - Beleg"
Me.Button1.UseVisualStyleBackColor = False 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 'lblSonstigesKosten
' '
Me.lblSonstigesKosten.AutoSize = True Me.lblSonstigesKosten.AutoSize = True
@@ -2956,6 +3033,246 @@ Partial Class frmSendungsdetailsNEU
Me.btnAufschub_VERAG.UseVisualStyleBackColor = False Me.btnAufschub_VERAG.UseVisualStyleBackColor = False
Me.btnAufschub_VERAG.Visible = 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 'Panel15
' '
Me.Panel15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) 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.Size = New System.Drawing.Size(549, 92)
Me.pnlT1.TabIndex = 86 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 'Label43
' '
Me.Label43.AutoSize = True Me.Label43.AutoSize = True
@@ -4625,6 +4950,7 @@ Partial Class frmSendungsdetailsNEU
' '
Me.BindingNavigatorPositionItem.AccessibleName = "Position" Me.BindingNavigatorPositionItem.AccessibleName = "Position"
Me.BindingNavigatorPositionItem.AutoSize = False Me.BindingNavigatorPositionItem.AutoSize = False
Me.BindingNavigatorPositionItem.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23) Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
Me.BindingNavigatorPositionItem.Text = "0" Me.BindingNavigatorPositionItem.Text = "0"
@@ -4795,7 +5121,7 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) 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.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.Name = "cntxtAnh"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 386) Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 364)
' '
'ToolStripMenuItem15 'ToolStripMenuItem15
' '
@@ -4904,14 +5230,14 @@ Partial Class frmSendungsdetailsNEU
' '
Me.ToolStripMenuItem29.Image = CType(resources.GetObject("ToolStripMenuItem29.Image"), System.Drawing.Image) Me.ToolStripMenuItem29.Image = CType(resources.GetObject("ToolStripMenuItem29.Image"), System.Drawing.Image)
Me.ToolStripMenuItem29.Name = "ToolStripMenuItem29" 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)" Me.ToolStripMenuItem29.Text = "Aktuelle Sendung (Anhänge wählen)"
' '
'ToolStripMenuItem30 'ToolStripMenuItem30
' '
Me.ToolStripMenuItem30.Image = CType(resources.GetObject("ToolStripMenuItem30.Image"), System.Drawing.Image) Me.ToolStripMenuItem30.Image = CType(resources.GetObject("ToolStripMenuItem30.Image"), System.Drawing.Image)
Me.ToolStripMenuItem30.Name = "ToolStripMenuItem30" 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)" Me.ToolStripMenuItem30.Text = "Alle Sendungen (LKW)"
' '
'ToolStripMenuItem25 'ToolStripMenuItem25
@@ -4995,314 +5321,6 @@ Partial Class frmSendungsdetailsNEU
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30) Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" 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 'frmSendungsdetailsNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5784,4 +5802,5 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents ToolStripMenuItem28 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem28 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
Friend WithEvents Button19 As Button
End Class End Class

48
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -6261,4 +6261,52 @@ Public Class frmSendungsdetailsNEU
End Try End Try
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub 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 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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 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 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 DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim 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 DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 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 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 DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 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() 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.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tbVermerke = New System.Windows.Forms.TabPage() Me.tbVermerke = New System.Windows.Forms.TabPage()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.tbZollanmeldungen = New System.Windows.Forms.TabPage() Me.tbZollanmeldungen = New System.Windows.Forms.TabPage()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView() Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView()
@@ -141,11 +140,13 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.SGSNCTSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SGSNCTSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtZollantrag = New System.Windows.Forms.ContextMenuStrip(Me.components) 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.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.MarkiertePDFsDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MarkiertePDFsDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.pnlDetailsRechts.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -261,17 +262,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Text = "Vermerk eintragen" Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True 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 'tbZollanmeldungen
' '
Me.tbZollanmeldungen.Controls.Add(Me.Panel1) Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
@@ -359,7 +349,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'Button7 'Button7
' '
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.Location = New System.Drawing.Point(457, 3) Me.Button7.Location = New System.Drawing.Point(457, 3)
Me.Button7.Name = "Button7" Me.Button7.Name = "Button7"
@@ -458,7 +448,7 @@ Partial Class usrcntlAktDetailsATILLANeu
'btn 'btn
' '
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn.Location = New System.Drawing.Point(396, 3) Me.btn.Location = New System.Drawing.Point(396, 3)
Me.btn.Name = "btn" 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.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.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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button11.Location = New System.Drawing.Point(97, 1) Me.Button11.Location = New System.Drawing.Point(97, 1)
Me.Button11.Name = "Button11" 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.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.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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(172, 1) Me.Button4.Location = New System.Drawing.Point(172, 1)
Me.Button4.Name = "Button4" 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.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.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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(295, 1) Me.Button10.Location = New System.Drawing.Point(295, 1)
Me.Button10.Name = "Button10" Me.Button10.Name = "Button10"
@@ -691,7 +681,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button9.ForeColor = System.Drawing.Color.Black 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.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.Location = New System.Drawing.Point(465, 2) Me.Button9.Location = New System.Drawing.Point(465, 2)
Me.Button9.Name = "Button9" Me.Button9.Name = "Button9"
@@ -958,7 +948,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Button5.ForeColor = System.Drawing.Color.Black 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.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.Location = New System.Drawing.Point(408, 36) Me.Button5.Location = New System.Drawing.Point(408, 36)
Me.Button5.Name = "Button5" Me.Button5.Name = "Button5"
@@ -1002,7 +992,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.btnAktUebernehmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAktUebernehmen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAktUebernehmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.btnAktUebernehmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnAktUebernehmen.ForeColor = System.Drawing.Color.Black 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.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAktUebernehmen.Location = New System.Drawing.Point(408, 79) Me.btnAktUebernehmen.Location = New System.Drawing.Point(408, 79)
Me.btnAktUebernehmen.Name = "btnAktUebernehmen" Me.btnAktUebernehmen.Name = "btnAktUebernehmen"
@@ -1554,40 +1544,47 @@ Partial Class usrcntlAktDetailsATILLANeu
'ToolStripSeparator2 'ToolStripSeparator2
' '
Me.ToolStripSeparator2.Name = "ToolStripSeparator2" Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(152, 6) Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
' '
'NCTST2ToolStripMenuItem 'NCTST2ToolStripMenuItem
' '
Me.NCTST2ToolStripMenuItem.Name = "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" Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand"
' '
'AESToolStripMenuItem 'AESToolStripMenuItem
' '
Me.AESToolStripMenuItem.Name = "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" Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
' '
'SGSNCTSToolStripMenuItem 'SGSNCTSToolStripMenuItem
' '
Me.SGSNCTSToolStripMenuItem.Name = "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.Text = "SGS - NCTS"
Me.SGSNCTSToolStripMenuItem.Visible = False Me.SGSNCTSToolStripMenuItem.Visible = False
' '
'cntxtZollantrag 'cntxtZollantrag
' '
Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24) 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.Name = "cntxtZollantrag"
Me.cntxtZollantrag.Size = New System.Drawing.Size(156, 82) Me.cntxtZollantrag.Size = New System.Drawing.Size(181, 126)
Me.cntxtZollantrag.Text = "Zollantrag" 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 'cntxt
' '
Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxt.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -1597,7 +1594,7 @@ Partial Class usrcntlAktDetailsATILLANeu
' '
'MarkiertePDFsDruckenToolStripMenuItem '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.Name = "MarkiertePDFsDruckenToolStripMenuItem"
Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(279, 30) Me.MarkiertePDFsDruckenToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken" Me.MarkiertePDFsDruckenToolStripMenuItem.Text = "Markierte PDFs drucken"
@@ -1610,7 +1607,7 @@ Partial Class usrcntlAktDetailsATILLANeu
' '
'LöschenToolStripMenuItem '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.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(279, 30) Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.LöschenToolStripMenuItem.Text = "Löschen" 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.Size = New System.Drawing.Size(279, 30)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)" 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 'usrcntlAktDetailsATILLANeu
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1789,4 +1797,5 @@ Partial Class usrcntlAktDetailsATILLANeu
Friend WithEvents Panel15 As Panel Friend WithEvents Panel15 As Panel
Friend WithEvents btnAnIndonesien As Button Friend WithEvents btnAnIndonesien As Button
Friend WithEvents Label11 As Label Friend WithEvents Label11 As Label
Friend WithEvents NCTSATEZToolStripMenuItem As ToolStripMenuItem
End Class 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 If
End Sub 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 End Class