ATEZ

2023-09-08 11:42:27 +02:00
parent dd2e765796
commit c49af33568
13 changed files with 2725 additions and 109 deletions
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -24,10 +24,10 @@ Partial Class frmSendungsdetailsNEU
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 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 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 DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.pnl = New System.Windows.Forms.Panel()
        Me.Panel4 = New System.Windows.Forms.Panel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -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()
@@ -169,7 +170,6 @@ Partial Class frmSendungsdetailsNEU
        Me.btnKassenbuchEintrag = New System.Windows.Forms.Button()
        Me.btnLeihgeld = New System.Windows.Forms.Button()
        Me.Panel6 = New System.Windows.Forms.Panel()
-        Me.Button19 = New System.Windows.Forms.Button()
        Me.txtFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.Panel12 = New System.Windows.Forms.Panel()
        Me.lblErr_FraechterKdNr = New System.Windows.Forms.Label()
@@ -415,6 +415,9 @@ 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.cntxAPI = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ATEZToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.DigicustToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnl.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.TabControl1.SuspendLayout()
@@ -474,6 +477,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ctxtWeitereFormulare.SuspendLayout()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.ContextMenuStrip2.SuspendLayout()
+        Me.cntxAPI.SuspendLayout()
        Me.SuspendLayout()
        '
        'pnl
@@ -612,13 +616,28 @@ 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(121, 5)
+        Me.Button19.Name = "Button19"
+        Me.Button19.Size = New System.Drawing.Size(72, 34)
+        Me.Button19.TabIndex = 8
+        Me.Button19.Text = "API"
+        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)
        Me.Button17.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button17.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
        Me.Button17.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button17.Location = New System.Drawing.Point(724, 5)
+        Me.Button17.Location = New System.Drawing.Point(746, 5)
        Me.Button17.Name = "Button17"
        Me.Button17.Size = New System.Drawing.Size(76, 34)
        Me.Button17.TabIndex = 5
@@ -632,7 +651,7 @@ Partial Class frmSendungsdetailsNEU
        Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image)
        Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnQuckScan.Location = New System.Drawing.Point(595, 5)
+        Me.btnQuckScan.Location = New System.Drawing.Point(633, 5)
        Me.btnQuckScan.Name = "btnQuckScan"
        Me.btnQuckScan.Size = New System.Drawing.Size(107, 34)
        Me.btnQuckScan.TabIndex = 4
@@ -739,7 +758,7 @@ 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(159, 5)
+        Me.btnPDFZusammenfueren.Location = New System.Drawing.Point(199, 5)
        Me.btnPDFZusammenfueren.Name = "btnPDFZusammenfueren"
        Me.btnPDFZusammenfueren.Size = New System.Drawing.Size(153, 34)
        Me.btnPDFZusammenfueren.TabIndex = 1
@@ -752,7 +771,7 @@ 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(321, 5)
+        Me.btnMailVorlage.Location = New System.Drawing.Point(361, 5)
        Me.btnMailVorlage.Name = "btnMailVorlage"
        Me.btnMailVorlage.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0)
        Me.btnMailVorlage.Size = New System.Drawing.Size(134, 34)
@@ -766,10 +785,10 @@ Partial Class frmSendungsdetailsNEU
        Me.btnOptionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnOptionen.Image = CType(resources.GetObject("btnOptionen.Image"), System.Drawing.Image)
        Me.btnOptionen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnOptionen.Location = New System.Drawing.Point(805, 5)
+        Me.btnOptionen.Location = New System.Drawing.Point(828, 5)
        Me.btnOptionen.Name = "btnOptionen"
        Me.btnOptionen.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0)
-        Me.btnOptionen.Size = New System.Drawing.Size(129, 34)
+        Me.btnOptionen.Size = New System.Drawing.Size(106, 34)
        Me.btnOptionen.TabIndex = 6
        Me.btnOptionen.Text = "Optionen"
        Me.btnOptionen.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -780,7 +799,7 @@ Partial Class frmSendungsdetailsNEU
        Me.btnImportAssi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnImportAssi.Image = CType(resources.GetObject("btnImportAssi.Image"), System.Drawing.Image)
        Me.btnImportAssi.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnImportAssi.Location = New System.Drawing.Point(461, 5)
+        Me.btnImportAssi.Location = New System.Drawing.Point(501, 5)
        Me.btnImportAssi.Name = "btnImportAssi"
        Me.btnImportAssi.Size = New System.Drawing.Size(129, 34)
        Me.btnImportAssi.TabIndex = 3
@@ -1473,18 +1492,18 @@ Partial Class frmSendungsdetailsNEU
        Me.gridVermerke.AllowUserToAddRows = False
        Me.gridVermerke.AllowUserToDeleteRows = False
        Me.gridVermerke.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle13.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
        Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle14.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
+        DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14
        Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
        Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gridVermerke.Location = New System.Drawing.Point(0, 0)
@@ -1493,8 +1512,8 @@ Partial Class frmSendungsdetailsNEU
        Me.gridVermerke.ReadOnly = True
        Me.gridVermerke.RowHeadersVisible = False
        Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle15
        Me.gridVermerke.RowTemplate.Height = 20
        Me.gridVermerke.RowTemplate.ReadOnly = True
        Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2239,8 +2258,8 @@ Partial Class frmSendungsdetailsNEU
        'clmnPreis
        '
        Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle4.Format = "C2"
-        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle16.Format = "C2"
+        Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle16
        Me.clmnPreis.HeaderText = "Preis"
        Me.clmnPreis.MaxInputLength = 15
        Me.clmnPreis.Name = "clmnPreis"
@@ -2435,21 +2454,6 @@ Partial Class frmSendungsdetailsNEU
        Me.Panel6.Size = New System.Drawing.Size(775, 325)
        Me.Panel6.TabIndex = 1
        '
-        '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
-        '
        'txtFrachtfuehrer
        '
        Me.txtFrachtfuehrer._AlleFirmenCLUSTER = False
@@ -4805,7 +4809,7 @@ Partial Class frmSendungsdetailsNEU
        Me.cntxtAnh.ImageScalingSize = New System.Drawing.Size(24, 24)
        Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem, Me.HervorhebenToolStripMenuItem})
        Me.cntxtAnh.Name = "cntxtAnh"
-        Me.cntxtAnh.Size = New System.Drawing.Size(294, 214)
+        Me.cntxtAnh.Size = New System.Drawing.Size(294, 236)
        '
        'MarkiertePDFsDruckenToolStripMenuItem
        '
@@ -5347,6 +5351,24 @@ Partial Class frmSendungsdetailsNEU
        Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
        Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
        '
+        'cntxAPI
+        '
+        Me.cntxAPI.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATEZToolStripMenuItem, Me.DigicustToolStripMenuItem})
+        Me.cntxAPI.Name = "cntxAPI"
+        Me.cntxAPI.Size = New System.Drawing.Size(118, 48)
+        '
+        'ATEZToolStripMenuItem
+        '
+        Me.ATEZToolStripMenuItem.Name = "ATEZToolStripMenuItem"
+        Me.ATEZToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.ATEZToolStripMenuItem.Text = "ATEZ"
+        '
+        'DigicustToolStripMenuItem
+        '
+        Me.DigicustToolStripMenuItem.Name = "DigicustToolStripMenuItem"
+        Me.DigicustToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.DigicustToolStripMenuItem.Text = "Digicust"
+        '
        'frmSendungsdetailsNEU
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -5441,6 +5463,7 @@ Partial Class frmSendungsdetailsNEU
        Me.ctxtWeitereFormulare.ResumeLayout(False)
        Me.ContextMenuStrip1.ResumeLayout(False)
        Me.ContextMenuStrip2.ResumeLayout(False)
+        Me.cntxAPI.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub
@@ -5832,4 +5855,7 @@ Partial Class frmSendungsdetailsNEU
    Friend WithEvents AntragQualitätskontrolleToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem31 As ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem32 As ToolStripMenuItem
+    Friend WithEvents cntxAPI As ContextMenuStrip
+    Friend WithEvents ATEZToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents DigicustToolStripMenuItem As ToolStripMenuItem
 End Class