Merge branch 'master' of https://dev.azure.com/VeragAG/_git/AVISO
This commit is contained in:
321
Aviso/ATEZ/frmATEZ_EZA.Designer.vb
generated
Normal file
321
Aviso/ATEZ/frmATEZ_EZA.Designer.vb
generated
Normal file
@@ -0,0 +1,321 @@
|
|||||||
|
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||||
|
Partial Class frmATEZ_EZA
|
||||||
|
Inherits System.Windows.Forms.Form
|
||||||
|
|
||||||
|
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||||
|
<System.Diagnostics.DebuggerNonUserCode()>
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
Try
|
||||||
|
If disposing AndAlso components IsNot Nothing Then
|
||||||
|
components.Dispose()
|
||||||
|
End If
|
||||||
|
Finally
|
||||||
|
MyBase.Dispose(disposing)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Wird vom Windows Form-Designer benötigt.
|
||||||
|
Private components As System.ComponentModel.IContainer
|
||||||
|
|
||||||
|
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||||
|
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||||
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
|
Private Sub InitializeComponent()
|
||||||
|
Me.components = New System.ComponentModel.Container()
|
||||||
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATEZ_EZA))
|
||||||
|
Me.btnSend = New System.Windows.Forms.Button()
|
||||||
|
Me.pnlHead = New System.Windows.Forms.Panel()
|
||||||
|
Me.lblInfo = New System.Windows.Forms.Label()
|
||||||
|
Me.Label8 = New System.Windows.Forms.Label()
|
||||||
|
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
|
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
|
Me.Label3 = New System.Windows.Forms.Label()
|
||||||
|
Me.Label9 = New System.Windows.Forms.Label()
|
||||||
|
Me.sbAdressierteZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||||
|
Me.txtDyMandant = New System.Windows.Forms.Label()
|
||||||
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
|
||||||
|
Me.lblBezugsnummer = New System.Windows.Forms.Label()
|
||||||
|
Me.Button3 = New System.Windows.Forms.Button()
|
||||||
|
Me.Label6 = New System.Windows.Forms.Label()
|
||||||
|
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||||
|
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
|
Me.lblAnh = New System.Windows.Forms.Label()
|
||||||
|
Me.pnlHead.SuspendLayout()
|
||||||
|
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
|
Me.SuspendLayout()
|
||||||
|
'
|
||||||
|
'btnSend
|
||||||
|
'
|
||||||
|
Me.btnSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.btnSend.BackColor = System.Drawing.Color.White
|
||||||
|
Me.btnSend.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||||
|
Me.btnSend.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.btnSend.Image = Global.AVISO.My.Resources.Resources.Declarant
|
||||||
|
Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||||
|
Me.btnSend.Location = New System.Drawing.Point(395, 348)
|
||||||
|
Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
|
||||||
|
Me.btnSend.Name = "btnSend"
|
||||||
|
Me.btnSend.Size = New System.Drawing.Size(192, 58)
|
||||||
|
Me.btnSend.TabIndex = 26
|
||||||
|
Me.btnSend.Text = "An ATEZ senden >>"
|
||||||
|
Me.btnSend.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||||
|
Me.btnSend.UseVisualStyleBackColor = False
|
||||||
|
'
|
||||||
|
'pnlHead
|
||||||
|
'
|
||||||
|
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||||
|
Me.pnlHead.BackColor = System.Drawing.Color.White
|
||||||
|
Me.pnlHead.Controls.Add(Me.lblInfo)
|
||||||
|
Me.pnlHead.Controls.Add(Me.Label8)
|
||||||
|
Me.pnlHead.Controls.Add(Me.cboStammreferenz)
|
||||||
|
Me.pnlHead.Controls.Add(Me.txtLKWId)
|
||||||
|
Me.pnlHead.Controls.Add(Me.Label3)
|
||||||
|
Me.pnlHead.Controls.Add(Me.Label9)
|
||||||
|
Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
|
||||||
|
Me.pnlHead.Controls.Add(Me.txtDyMandant)
|
||||||
|
Me.pnlHead.Controls.Add(Me.Label1)
|
||||||
|
Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
|
||||||
|
Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
|
||||||
|
Me.pnlHead.Location = New System.Drawing.Point(3, 2)
|
||||||
|
Me.pnlHead.Name = "pnlHead"
|
||||||
|
Me.pnlHead.Size = New System.Drawing.Size(584, 151)
|
||||||
|
Me.pnlHead.TabIndex = 112
|
||||||
|
'
|
||||||
|
'lblInfo
|
||||||
|
'
|
||||||
|
Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblInfo.ForeColor = System.Drawing.Color.Red
|
||||||
|
Me.lblInfo.Location = New System.Drawing.Point(3, 32)
|
||||||
|
Me.lblInfo.Name = "lblInfo"
|
||||||
|
Me.lblInfo.Size = New System.Drawing.Size(460, 21)
|
||||||
|
Me.lblInfo.TabIndex = 148
|
||||||
|
'
|
||||||
|
'Label8
|
||||||
|
'
|
||||||
|
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label8.AutoSize = True
|
||||||
|
Me.Label8.Location = New System.Drawing.Point(9, 61)
|
||||||
|
Me.Label8.Name = "Label8"
|
||||||
|
Me.Label8.Size = New System.Drawing.Size(80, 13)
|
||||||
|
Me.Label8.TabIndex = 146
|
||||||
|
Me.Label8.Text = "Stammreferenz:"
|
||||||
|
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
'
|
||||||
|
'cboStammreferenz
|
||||||
|
'
|
||||||
|
Me.cboStammreferenz._allowedValuesFreiText = Nothing
|
||||||
|
Me.cboStammreferenz._allowFreiText = False
|
||||||
|
Me.cboStammreferenz._value = ""
|
||||||
|
Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||||
|
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
|
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.cboStammreferenz.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||||
|
Me.cboStammreferenz.FormattingEnabled = True
|
||||||
|
Me.cboStammreferenz.Location = New System.Drawing.Point(151, 56)
|
||||||
|
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||||
|
Me.cboStammreferenz.Size = New System.Drawing.Size(255, 24)
|
||||||
|
Me.cboStammreferenz.TabIndex = 145
|
||||||
|
'
|
||||||
|
'txtLKWId
|
||||||
|
'
|
||||||
|
Me.txtLKWId._DateTimeOnly = False
|
||||||
|
Me.txtLKWId._numbersOnly = False
|
||||||
|
Me.txtLKWId._numbersOnlyKommastellen = ""
|
||||||
|
Me.txtLKWId._numbersOnlyTrennzeichen = True
|
||||||
|
Me.txtLKWId._Prozent = False
|
||||||
|
Me.txtLKWId._ShortDateNew = False
|
||||||
|
Me.txtLKWId._ShortDateOnly = False
|
||||||
|
Me.txtLKWId._TimeOnly = False
|
||||||
|
Me.txtLKWId._TimeOnly_Seconds = False
|
||||||
|
Me.txtLKWId._value = ""
|
||||||
|
Me.txtLKWId._Waehrung = False
|
||||||
|
Me.txtLKWId._WaehrungZeichen = True
|
||||||
|
Me.txtLKWId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||||
|
Me.txtLKWId.ForeColor = System.Drawing.Color.Black
|
||||||
|
Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
|
||||||
|
Me.txtLKWId.MaxLineLength = -1
|
||||||
|
Me.txtLKWId.MaxLines_Warning = ""
|
||||||
|
Me.txtLKWId.MaxLines_Warning_Label = Nothing
|
||||||
|
Me.txtLKWId.Name = "txtLKWId"
|
||||||
|
Me.txtLKWId.Size = New System.Drawing.Size(255, 23)
|
||||||
|
Me.txtLKWId.TabIndex = 144
|
||||||
|
'
|
||||||
|
'Label3
|
||||||
|
'
|
||||||
|
Me.Label3.Location = New System.Drawing.Point(10, 91)
|
||||||
|
Me.Label3.Name = "Label3"
|
||||||
|
Me.Label3.Size = New System.Drawing.Size(103, 17)
|
||||||
|
Me.Label3.TabIndex = 113
|
||||||
|
Me.Label3.Text = "LKW-KZ:"
|
||||||
|
'
|
||||||
|
'Label9
|
||||||
|
'
|
||||||
|
Me.Label9.Location = New System.Drawing.Point(10, 117)
|
||||||
|
Me.Label9.Name = "Label9"
|
||||||
|
Me.Label9.Size = New System.Drawing.Size(103, 17)
|
||||||
|
Me.Label9.TabIndex = 110
|
||||||
|
Me.Label9.Text = "Adressierte-Zollstelle:"
|
||||||
|
'
|
||||||
|
'sbAdressierteZollstelle
|
||||||
|
'
|
||||||
|
Me.sbAdressierteZollstelle._allowFreitext = False
|
||||||
|
Me.sbAdressierteZollstelle._AllowSetValue = False
|
||||||
|
Me.sbAdressierteZollstelle._allowSpaceAsSplitter = False
|
||||||
|
Me.sbAdressierteZollstelle._autoSizeGross = False
|
||||||
|
Me.sbAdressierteZollstelle._hideIfListEmpty = True
|
||||||
|
Me.sbAdressierteZollstelle._value = ""
|
||||||
|
Me.sbAdressierteZollstelle.conn_art = "FMZOLL"
|
||||||
|
Me.sbAdressierteZollstelle.dgvpos = "LEFT"
|
||||||
|
Me.sbAdressierteZollstelle.DISPLAY_PARAM = Nothing
|
||||||
|
Me.sbAdressierteZollstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||||
|
Me.sbAdressierteZollstelle.INVISIBLE_COLUMNS = Nothing
|
||||||
|
Me.sbAdressierteZollstelle.key_visible = False
|
||||||
|
Me.sbAdressierteZollstelle.KEYPARAM = Nothing
|
||||||
|
Me.sbAdressierteZollstelle.Location = New System.Drawing.Point(151, 112)
|
||||||
|
Me.sbAdressierteZollstelle.Name = "sbAdressierteZollstelle"
|
||||||
|
Me.sbAdressierteZollstelle.searchActive = True
|
||||||
|
Me.sbAdressierteZollstelle.Size = New System.Drawing.Size(255, 23)
|
||||||
|
Me.sbAdressierteZollstelle.SQL_ORDER_BY = Nothing
|
||||||
|
Me.sbAdressierteZollstelle.SQL_SELECT = Nothing
|
||||||
|
Me.sbAdressierteZollstelle.SQL_WHERE = Nothing
|
||||||
|
Me.sbAdressierteZollstelle.SQL_WhereParamList = Nothing
|
||||||
|
Me.sbAdressierteZollstelle.TabIndex = 111
|
||||||
|
Me.sbAdressierteZollstelle.usrcntl = Nothing
|
||||||
|
'
|
||||||
|
'txtDyMandant
|
||||||
|
'
|
||||||
|
Me.txtDyMandant.BackColor = System.Drawing.Color.White
|
||||||
|
Me.txtDyMandant.Location = New System.Drawing.Point(2, 7)
|
||||||
|
Me.txtDyMandant.Name = "txtDyMandant"
|
||||||
|
Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
|
||||||
|
Me.txtDyMandant.TabIndex = 109
|
||||||
|
Me.txtDyMandant.Text = "VERG"
|
||||||
|
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||||
|
'
|
||||||
|
'Label1
|
||||||
|
'
|
||||||
|
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.Label1.AutoSize = True
|
||||||
|
Me.Label1.BackColor = System.Drawing.Color.White
|
||||||
|
Me.Label1.Location = New System.Drawing.Point(296, 20)
|
||||||
|
Me.Label1.Name = "Label1"
|
||||||
|
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||||
|
Me.Label1.TabIndex = 106
|
||||||
|
Me.Label1.Text = "Bezugsnummer:"
|
||||||
|
'
|
||||||
|
'txtDyNiederlassung
|
||||||
|
'
|
||||||
|
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
|
||||||
|
Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 7)
|
||||||
|
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
||||||
|
Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
|
||||||
|
Me.txtDyNiederlassung.TabIndex = 108
|
||||||
|
Me.txtDyNiederlassung.Text = "SUB"
|
||||||
|
'
|
||||||
|
'lblBezugsnummer
|
||||||
|
'
|
||||||
|
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
|
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
|
||||||
|
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.lblBezugsnummer.Location = New System.Drawing.Point(384, 14)
|
||||||
|
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
||||||
|
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
|
||||||
|
Me.lblBezugsnummer.TabIndex = 107
|
||||||
|
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
||||||
|
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
|
'
|
||||||
|
'Button3
|
||||||
|
'
|
||||||
|
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button3.Location = New System.Drawing.Point(409, 159)
|
||||||
|
Me.Button3.Name = "Button3"
|
||||||
|
Me.Button3.Size = New System.Drawing.Size(178, 23)
|
||||||
|
Me.Button3.TabIndex = 152
|
||||||
|
Me.Button3.Text = "alle Anhänge auswählen"
|
||||||
|
Me.Button3.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Label6
|
||||||
|
'
|
||||||
|
Me.Label6.Location = New System.Drawing.Point(9, 168)
|
||||||
|
Me.Label6.Name = "Label6"
|
||||||
|
Me.Label6.Size = New System.Drawing.Size(135, 13)
|
||||||
|
Me.Label6.TabIndex = 147
|
||||||
|
Me.Label6.Text = "Dokumente:"
|
||||||
|
'
|
||||||
|
'dgvAnhaenge
|
||||||
|
'
|
||||||
|
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
|
||||||
|
Me.dgvAnhaenge.AllowUserToAddRows = False
|
||||||
|
Me.dgvAnhaenge.AllowUserToDeleteRows = False
|
||||||
|
Me.dgvAnhaenge.AllowUserToResizeColumns = False
|
||||||
|
Me.dgvAnhaenge.AllowUserToResizeRows = False
|
||||||
|
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
|
||||||
|
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
|
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
|
||||||
|
Me.dgvAnhaenge.Location = New System.Drawing.Point(3, 184)
|
||||||
|
Me.dgvAnhaenge.Name = "dgvAnhaenge"
|
||||||
|
Me.dgvAnhaenge.ReadOnly = True
|
||||||
|
Me.dgvAnhaenge.RowHeadersVisible = False
|
||||||
|
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||||
|
Me.dgvAnhaenge.Size = New System.Drawing.Size(584, 158)
|
||||||
|
Me.dgvAnhaenge.TabIndex = 112
|
||||||
|
'
|
||||||
|
'columnName
|
||||||
|
'
|
||||||
|
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||||
|
Me.columnName.HeaderText = "Name"
|
||||||
|
Me.columnName.Name = "columnName"
|
||||||
|
Me.columnName.ReadOnly = True
|
||||||
|
'
|
||||||
|
'lblAnh
|
||||||
|
'
|
||||||
|
Me.lblAnh.Location = New System.Drawing.Point(0, 345)
|
||||||
|
Me.lblAnh.Name = "lblAnh"
|
||||||
|
Me.lblAnh.Size = New System.Drawing.Size(135, 13)
|
||||||
|
Me.lblAnh.TabIndex = 151
|
||||||
|
Me.lblAnh.Visible = False
|
||||||
|
'
|
||||||
|
'frmATEZ_EZA
|
||||||
|
'
|
||||||
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
|
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||||
|
Me.ClientSize = New System.Drawing.Size(589, 409)
|
||||||
|
Me.Controls.Add(Me.Button3)
|
||||||
|
Me.Controls.Add(Me.lblAnh)
|
||||||
|
Me.Controls.Add(Me.pnlHead)
|
||||||
|
Me.Controls.Add(Me.Label6)
|
||||||
|
Me.Controls.Add(Me.btnSend)
|
||||||
|
Me.Controls.Add(Me.dgvAnhaenge)
|
||||||
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
|
Me.Name = "frmATEZ_EZA"
|
||||||
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||||
|
Me.Text = "ATEZ EZA"
|
||||||
|
Me.pnlHead.ResumeLayout(False)
|
||||||
|
Me.pnlHead.PerformLayout()
|
||||||
|
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
|
||||||
|
Me.ResumeLayout(False)
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
Friend WithEvents btnSend As Button
|
||||||
|
Friend WithEvents pnlHead As Panel
|
||||||
|
Friend WithEvents lblInfo As Label
|
||||||
|
Friend WithEvents Label6 As Label
|
||||||
|
Friend WithEvents Label8 As Label
|
||||||
|
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||||
|
Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
|
Friend WithEvents Label3 As Label
|
||||||
|
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||||
|
Friend WithEvents columnName As DataGridViewTextBoxColumn
|
||||||
|
Friend WithEvents Label9 As Label
|
||||||
|
Friend WithEvents sbAdressierteZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||||
|
Friend WithEvents txtDyMandant As Label
|
||||||
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents txtDyNiederlassung As Label
|
||||||
|
Friend WithEvents lblBezugsnummer As Label
|
||||||
|
Friend WithEvents lblAnh As Label
|
||||||
|
Friend WithEvents Button3 As Button
|
||||||
|
End Class
|
||||||
813
Aviso/ATEZ/frmATEZ_EZA.vb
Normal file
813
Aviso/ATEZ/frmATEZ_EZA.vb
Normal file
@@ -0,0 +1,813 @@
|
|||||||
|
|
||||||
|
Imports DAKOSY_Worker.eZollTypes
|
||||||
|
Imports SDL
|
||||||
|
Imports VERAG_PROG_ALLGEMEIN
|
||||||
|
|
||||||
|
|
||||||
|
Public Class frmATEZ_EZA
|
||||||
|
|
||||||
|
Dim ART As String = ""
|
||||||
|
Dim FilialenNr As Integer
|
||||||
|
Dim AbfertigungsNr As Integer
|
||||||
|
Dim JAHR As Integer = Now.ToString("yy")
|
||||||
|
Public isSTAMMREF As Boolean = False
|
||||||
|
Public STAMMREF As String = ""
|
||||||
|
Public CopyFromZA_Id As Integer = -1
|
||||||
|
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||||
|
Dim ZOLL_SYSTEM = "DAKOSY"
|
||||||
|
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing
|
||||||
|
Public ATT As List(Of String)
|
||||||
|
Dim AVISO As New cAviso
|
||||||
|
Dim zusatz As String
|
||||||
|
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
|
||||||
|
Dim VermerkeDAL As New cVermerkeDAL
|
||||||
|
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
|
||||||
|
Dim openExisting As Boolean = False
|
||||||
|
Dim id As Integer = -1
|
||||||
|
Dim dgv As DataGridView = Nothing
|
||||||
|
Dim atez_data As cATEZ_NCTS_DATA
|
||||||
|
Dim atez = New cATEZ_NCTS_IN("atez_ncts")
|
||||||
|
Dim allSelected As Boolean = False
|
||||||
|
|
||||||
|
Property BezugsNr As String = ""
|
||||||
|
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
|
||||||
|
|
||||||
|
Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
|
||||||
|
If _dgv IsNot Nothing Then Me.dgv = _dgv
|
||||||
|
Me.AVISO = AVISO
|
||||||
|
Me.SENDUNG = SENDUNG
|
||||||
|
Me.JAHR = JAHR
|
||||||
|
|
||||||
|
If SENDUNG IsNot Nothing Then
|
||||||
|
Me.FilialenNr = SENDUNG.FilialenNr
|
||||||
|
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
|
||||||
|
End If
|
||||||
|
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
|
||||||
|
|
||||||
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
|
InitializeComponent()
|
||||||
|
openExisting = True
|
||||||
|
id = _id
|
||||||
|
|
||||||
|
Me.AVISO = AVISO
|
||||||
|
Me.SENDUNG = SENDUNG
|
||||||
|
Me.JAHR = JAHR
|
||||||
|
|
||||||
|
If SENDUNG IsNot Nothing Then
|
||||||
|
Me.FilialenNr = SENDUNG.FilialenNr
|
||||||
|
Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click
|
||||||
|
Try
|
||||||
|
|
||||||
|
|
||||||
|
'If Button1.Text = "JSON" Then
|
||||||
|
' If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
|
||||||
|
' atez.setJsonPDF(atez_data, dgvAnhaenge)
|
||||||
|
|
||||||
|
' Dim data As New DataObject()
|
||||||
|
' data.SetData(DataFormats.Text, atez_data.json)
|
||||||
|
' Clipboard.SetDataObject(data)
|
||||||
|
' Me.Cursor = Cursors.Default
|
||||||
|
' MsgBox("JSON-Daten in Zwischenablage gespeichert")
|
||||||
|
' Exit Sub
|
||||||
|
'End If
|
||||||
|
|
||||||
|
'If atez_data.status = "Sent" Then
|
||||||
|
' Exit Sub
|
||||||
|
'End If
|
||||||
|
|
||||||
|
''auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
|
||||||
|
''If Not checkAttachment() Then
|
||||||
|
'' Exit Sub
|
||||||
|
''End If
|
||||||
|
|
||||||
|
|
||||||
|
If Not checkMandatoryField() Then
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Me.Cursor = Cursors.WaitCursor
|
||||||
|
|
||||||
|
lblInfo.Text = ""
|
||||||
|
|
||||||
|
|
||||||
|
txtDyMandant.Text = "VERA" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
' txtDyMandant.Text = "VERG" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
' atez.setJsonPDF(atez_data, dgvAnhaenge)
|
||||||
|
|
||||||
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
'----ATEZ EZA------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
Dim procedureCodeRequested As Integer
|
||||||
|
Select Case SENDUNG.tblSnd_Abfertigungsart_ID
|
||||||
|
Case 26, 27
|
||||||
|
procedureCodeRequested = 42
|
||||||
|
Case Else
|
||||||
|
procedureCodeRequested = 40
|
||||||
|
End Select
|
||||||
|
|
||||||
|
Dim ioReference = lblBezugsnummer.Text & Now.ToString("ddMMyyyy_HHmmss")
|
||||||
|
'
|
||||||
|
'.DAKOSY_TemplateCode = cboStammreferenz._value
|
||||||
|
'If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
|
||||||
|
|
||||||
|
'.documents = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument) From {
|
||||||
|
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test.txt", .fileType = "invoice"},
|
||||||
|
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test2.txt", .fileType = "atr"},
|
||||||
|
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test3.txt", .fileType = "cmr"}
|
||||||
|
'},
|
||||||
|
|
||||||
|
Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
|
||||||
|
.referenceNo = ioReference,
|
||||||
|
.regimeType = "IM",
|
||||||
|
.customer = "AVISO",
|
||||||
|
.additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
|
||||||
|
.transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With {
|
||||||
|
.ioPartner = txtDyMandant.Text,
|
||||||
|
.ioDivision3 = txtDyNiederlassung.Text,
|
||||||
|
.ioReference = ioReference
|
||||||
|
},
|
||||||
|
.declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From {
|
||||||
|
New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With {
|
||||||
|
.objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With {
|
||||||
|
.objectName = lblBezugsnummer.Text & "_TEST",
|
||||||
|
.objectAlias = ioReference,
|
||||||
|
.declarationType = "EZA-D"
|
||||||
|
},
|
||||||
|
.headerData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubHeaderData With {
|
||||||
|
.agentContact = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAgentContact With {
|
||||||
|
.contactPersonName = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname, ""),
|
||||||
|
.contactPersonPhoneNumber = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr, "+43 7711/2777 0"),
|
||||||
|
.contactPersonPosition = "Zolldeklarant/in"
|
||||||
|
},
|
||||||
|
.declarantIsConsignee = True,
|
||||||
|
.representationRelationshipCode = "",
|
||||||
|
.inputTaxDeduction = "",'"true",
|
||||||
|
.procedureCodeRequested = procedureCodeRequested.ToString,
|
||||||
|
.goodsStatus = "",'"EU",
|
||||||
|
.costs = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubCost) From {
|
||||||
|
New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubCost With {.costAmount = If(SENDUNG.tblSnd_Warenwert IsNot Nothing, CDbl(SENDUNG.tblSnd_Warenwert).ToString("F2", System.Globalization.CultureInfo.InvariantCulture), 0), .costCurrency = If(SENDUNG.tblSnd_WarenwertWaehrung, "")}
|
||||||
|
},
|
||||||
|
.transportMeansArrivalIdentity = txtLKWId.Text,
|
||||||
|
.transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
If If(AVISO.Zollstelle, "").length >= 4 Then
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice = AVISO.Zollstelle.ToString.Substring(AVISO.Zollstelle.ToString.Length - 4)
|
||||||
|
'MsgBox(ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice)
|
||||||
|
End If
|
||||||
|
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).objectIdentification.username = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "ANDREAS")
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).objectIdentification.referenceNumberOverlay = If(cboStammreferenz._value <> "", cboStammreferenz._value, "*OWN")
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceType = "T1"
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).headerData.previousAdministrativeReferenceNumber = SENDUNG.tblSnd_Vorpapier
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
' .destinationCountry = "DE",
|
||||||
|
|
||||||
|
' .dispatchCountry = "DE",
|
||||||
|
|
||||||
|
', .destinationFederalState = "07"
|
||||||
|
' .destinationCountry = "DE",
|
||||||
|
' .departureCountry = "TR"
|
||||||
|
' .previousAdministrativeReferenceType = "T1",' SENDUNG.tblSnd_Vorpapier
|
||||||
|
'.previousAdministrativeReferenceNumber = "25TR160100001472M0",
|
||||||
|
|
||||||
|
',
|
||||||
|
'.addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress) From {
|
||||||
|
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress With {.addressType = "CZ", .participantEORI = "EORI12345", .participantSubsidiaryNumber = "001", .companyName = "SISECAM DIS TIC.A.S.", .streetAndNumber = "D-100 KARAYOLU CD.YAYLA MH.NO.70/C", .countryCode = "TR", .postalCode = "34949", .city = "TUZLA ISTANBUL"},
|
||||||
|
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress With {.addressType = "CN", .participantEORI = "EORI67890", .participantSubsidiaryNumber = "002", .companyName = "POLYNT COMPOSITES GERMANY GMBH", .streetAndNumber = "KIESELSTRASSE 2", .countryCode = "DE", .postalCode = "56357", .city = "MIEHLEN"}
|
||||||
|
|
||||||
|
ATEZ_RH_EZA.documents = New List(Of cRelayHub.cRelayHubDocument)
|
||||||
|
For Each r As DataGridViewRow In dgvAnhaenge.Rows
|
||||||
|
Dim isSelected As Boolean = If(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value)
|
||||||
|
|
||||||
|
If isSelected Then
|
||||||
|
|
||||||
|
Dim bd As New Chilkat.BinData
|
||||||
|
Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument
|
||||||
|
If r.Cells("anh_Art").Value IsNot DBNull.Value Then
|
||||||
|
Select Case r.Cells("anh_Art").Value
|
||||||
|
Case "Rechnung", "Konsi-Rechnung", "eFatura", "INVOICE" : DOC.fileType = "invoice"
|
||||||
|
Case "CMR" : DOC.fileType = "cmr"
|
||||||
|
Case "Ausfuhr", "EXPORT" : DOC.fileType = "tr_export_declaration"
|
||||||
|
Case "ATR" : DOC.fileType = "atr"
|
||||||
|
Case "Vorpapier", "T1" : DOC.fileType = "transit_declaration"
|
||||||
|
Case Else : DOC.fileType = "invoice"
|
||||||
|
' Case Else : DOC.fileType = "additional_data" --> DARF NCIHT -_> additional_data ist das verwednete Datenformat
|
||||||
|
End Select
|
||||||
|
End If
|
||||||
|
'invoice' | 'atr' | 'cmr' | 'transit_declaration' | 'tr_export_declaration' | 'additional_data', received 'PDF'
|
||||||
|
|
||||||
|
DOC.type = "base64"
|
||||||
|
DOC.filename = r.Cells("anh_Name").Value
|
||||||
|
|
||||||
|
Try
|
||||||
|
Dim dateiBytes As Byte() = IO.File.ReadAllBytes((VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)))
|
||||||
|
|
||||||
|
Dim base64String As String = Convert.ToBase64String(dateiBytes)
|
||||||
|
|
||||||
|
DOC.base64String = base64String
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
|
||||||
|
' Fehlerbehandlung, z. B. Datei nicht gefunden oder keine Zugriffsrechte
|
||||||
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ATEZ_RH_EZA.documents.Add(DOC)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).addresses = New List(Of cRelayHub.cRelayHubAddress)
|
||||||
|
|
||||||
|
If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then
|
||||||
|
Dim AD As New cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr)
|
||||||
|
Dim KD As New cKunde(SENDUNG.tblSnd_EmpfaengerKdNr)
|
||||||
|
Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
|
||||||
|
CN.addressType = "CN"
|
||||||
|
CN.participantEORI = If(KD.EORITIN, "")
|
||||||
|
CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
|
||||||
|
CN.companyName = AD.Name_1
|
||||||
|
CN.streetAndNumber = AD.Straße
|
||||||
|
CN.postalCode = AD.PLZ
|
||||||
|
CN.city = AD.Ort
|
||||||
|
CN.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
|
||||||
|
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CN)
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationCountry = CN.countryCode
|
||||||
|
ATEZ_RH_EZA.destinationCountry = CN.countryCode
|
||||||
|
|
||||||
|
If If(CN.countryCode, "") = "DE" AndAlso CN.postalCode IsNot Nothing AndAlso CN.postalCode <> "" Then
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationFederalState = VERAG_PROG_ALLGEMEIN.cDEBundeslaenderPLZ.LOADBundeslandCode_ByPLZ(CN.postalCode)
|
||||||
|
ElseIf If(CN.countryCode, "") <> "" Then
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).headerData.destinationFederalState = "25"
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
If SENDUNG.tblSnd_AbsenderKdNr > 0 Then
|
||||||
|
Dim AD As New cAdressen(SENDUNG.tblSnd_AbsenderKdNr)
|
||||||
|
Dim KD As New cKunde(SENDUNG.tblSnd_AbsenderKdNr)
|
||||||
|
Dim CZ As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
|
||||||
|
CZ.addressType = "CZ"
|
||||||
|
CZ.participantEORI = If(KD.EORITIN, "")
|
||||||
|
CZ.participantSubsidiaryNumber = If(KD.EORITIN_NL, "")
|
||||||
|
CZ.companyName = AD.Name_1
|
||||||
|
CZ.streetAndNumber = AD.Straße
|
||||||
|
CZ.postalCode = AD.PLZ
|
||||||
|
CZ.city = AD.Ort
|
||||||
|
CZ.countryCode = SDL.cProgramFunctions.getISO2Land(AD.LandKz)
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).addresses.Add(CZ)
|
||||||
|
ATEZ_RH_EZA.additionalData.declaration(0).headerData.departureCountry = CZ.countryCode
|
||||||
|
ATEZ_RH_EZA.dispatchCountry = CZ.countryCode
|
||||||
|
End If
|
||||||
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
|
||||||
|
|
||||||
|
|
||||||
|
'With atez_data
|
||||||
|
|
||||||
|
' .AvisoId = AVISO.AvisoID
|
||||||
|
' .SendungsId = SENDUNG.tblSnd_SendungID
|
||||||
|
' .VERAG_LRN = lblBezugsnummer.Text
|
||||||
|
' .LicensePlateContainerNo = txtLKWId.Text
|
||||||
|
' .DAKOSY_TemplateCode = cboStammreferenz._value
|
||||||
|
' If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
|
||||||
|
' .DAKOSY_Procedure = cboProzedur._value
|
||||||
|
' .DAKOSY_IOPartner = txtDyMandant.Text
|
||||||
|
' .DAKOSY_Division3 = txtDyNiederlassung.Text
|
||||||
|
' .DepartureCustomsOffice = sbAbgangZollstelle._value
|
||||||
|
' .DestinationCustomsOffice = sbBestimmungsZollstelle._value
|
||||||
|
' .DatDeterminationLimit = txtDat.Text
|
||||||
|
' .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
|
||||||
|
' .Carrier_Name = usrCntl_Carrier.kdFirma.Text
|
||||||
|
' .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
|
||||||
|
' .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
|
||||||
|
' .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
|
||||||
|
' .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
|
||||||
|
' .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
|
||||||
|
' .Guarantee_GRN = "" 'leer
|
||||||
|
' .erstellerId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||||
|
|
||||||
|
' If .selectedDocuments <> "" Then .selectedDocuments = ""
|
||||||
|
|
||||||
|
' For Each doc As DataGridViewRow In dgvAnhaenge.Rows
|
||||||
|
' Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
|
||||||
|
' If isSelected Then
|
||||||
|
' .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
|
||||||
|
' End If
|
||||||
|
' Next
|
||||||
|
|
||||||
|
' .SAVE()
|
||||||
|
|
||||||
|
' End With
|
||||||
|
|
||||||
|
' saveDurchgangszollstelle(atez_data)
|
||||||
|
'saveRoute(atez_data)
|
||||||
|
'setDurchgangszolstellen()
|
||||||
|
'setRoute()
|
||||||
|
'If sendAtezData(atez_data, atez) Then
|
||||||
|
' AvisoStatusFunctions.insertSendungsVermerk(SENDUNG.tblSnd_SendungID, SENDUNG.tblSnd_AvisoID, "An ATEZ gesendet", 109)
|
||||||
|
' Me.Close()
|
||||||
|
'Else
|
||||||
|
' Me.Close()
|
||||||
|
'End If
|
||||||
|
|
||||||
|
|
||||||
|
Me.Cursor = Cursors.Default
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
|
Me.Cursor = Cursors.Default
|
||||||
|
End Try
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
'Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
|
||||||
|
|
||||||
|
' Dim failreDesc As String
|
||||||
|
|
||||||
|
' Dim authResp = atez.authenticate("NCTS")
|
||||||
|
' If authResp <> "200" Then
|
||||||
|
|
||||||
|
' failreDesc = "Authentifizierung fehlgeschlagen"
|
||||||
|
' lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
|
||||||
|
' Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
|
||||||
|
|
||||||
|
' If resultAuthentifizierung = vbYes Then
|
||||||
|
' atezData.status = "Draft"
|
||||||
|
' atezData.fehlerbeschreibung = failreDesc
|
||||||
|
' Return atezData.SAVE()
|
||||||
|
' Else
|
||||||
|
' atezData.status = "Failure"
|
||||||
|
' atezData.fehlerbeschreibung = failreDesc
|
||||||
|
' Return atezData.SAVE()
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' Return False
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' atezData.sessionId = atez.sessionID
|
||||||
|
|
||||||
|
|
||||||
|
' If Not atez.setJsonNCTS(atezData) Then
|
||||||
|
' MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
|
||||||
|
' atezData.status = "Failure"
|
||||||
|
' atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
|
||||||
|
' Return atezData.SAVE
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' If checkAttachment() Then
|
||||||
|
' If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
|
||||||
|
' MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
|
||||||
|
' atezData.status = "Failure"
|
||||||
|
' atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
|
||||||
|
' Return atezData.SAVE
|
||||||
|
' End If
|
||||||
|
' End If
|
||||||
|
|
||||||
|
|
||||||
|
' Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
|
||||||
|
|
||||||
|
' If failreDesc <> "" Then
|
||||||
|
' If atezData.status = "Draft" Then
|
||||||
|
' MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
|
||||||
|
' atezData.fehlerbeschreibung = failreDesc
|
||||||
|
' Return atezData.SAVE()
|
||||||
|
|
||||||
|
' End If
|
||||||
|
' Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
|
||||||
|
' If result = vbYes Then
|
||||||
|
' atezData.status = "Draft"
|
||||||
|
' atezData.fehlerbeschreibung = failreDesc
|
||||||
|
' Return atezData.SAVE()
|
||||||
|
' Else
|
||||||
|
' atezData.status = "Failure"
|
||||||
|
' atezData.fehlerbeschreibung = failreDesc
|
||||||
|
' Return atezData.SAVE()
|
||||||
|
' End If
|
||||||
|
|
||||||
|
' lblInfo.Text = "Fehler in der API "
|
||||||
|
|
||||||
|
' Else
|
||||||
|
|
||||||
|
' If azetId = "-1" Then
|
||||||
|
' atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
|
||||||
|
' Else
|
||||||
|
' atezData.fehlerbeschreibung = ""
|
||||||
|
' End If
|
||||||
|
' atezData.status = "Sent"
|
||||||
|
' atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
|
||||||
|
' Return atezData.SAVE()
|
||||||
|
|
||||||
|
' End If
|
||||||
|
|
||||||
|
'End Function
|
||||||
|
|
||||||
|
Function getBezugsnr(ByRef BezugsNr)
|
||||||
|
Dim BezugsNrTmp = ""
|
||||||
|
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
|
||||||
|
BezugsNr = BezugsNrTmp
|
||||||
|
zusatz = "A"
|
||||||
|
|
||||||
|
If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
|
||||||
|
BezugsNr = BezugsNrTmp & "/" & zusatz
|
||||||
|
For Each r As DataGridViewRow In dgv.Rows
|
||||||
|
If r.Cells("BezugsNr").Value = BezugsNr Then
|
||||||
|
|
||||||
|
If zusatz.Length = 1 Then
|
||||||
|
zusatz = Chr(Asc(zusatz.ToString) + 1)
|
||||||
|
Else
|
||||||
|
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If zusatz = "Z" Then zusatz = "AA"
|
||||||
|
End If
|
||||||
|
BezugsNr = BezugsNrTmp & "/" & zusatz
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing
|
||||||
|
BezugsNr = BezugsNrTmp & "/" & zusatz
|
||||||
|
|
||||||
|
If zusatz.Length = 1 Then
|
||||||
|
zusatz = Chr(Asc(zusatz.ToString) + 1)
|
||||||
|
Else
|
||||||
|
zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If zusatz = "Z" Then zusatz = "AA"
|
||||||
|
End While
|
||||||
|
|
||||||
|
lblBezugsnummer.Text = BezugsNr
|
||||||
|
Return BezugsNr
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||||
|
|
||||||
|
Select Case FIRMA_DY
|
||||||
|
Case "VERAG" : txtDyMandant.Text = "VERG"
|
||||||
|
txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||||
|
|
||||||
|
Select Case FilialenNr
|
||||||
|
Case "5103" : txtDyNiederlassung.Text = "WAI"
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
|
|
||||||
|
Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW"
|
||||||
|
Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
|
||||||
|
Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
|
||||||
|
Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
initSeachboxes()
|
||||||
|
lblAnh.Visible = True
|
||||||
|
|
||||||
|
|
||||||
|
If openExisting Then
|
||||||
|
|
||||||
|
If id > 0 Then
|
||||||
|
atez_data = New cATEZ_NCTS_DATA(id)
|
||||||
|
initAttachment()
|
||||||
|
If atez_data.atezId <> "" Then
|
||||||
|
lblInfo.Text = "Atez-ID " & atez_data.atezId
|
||||||
|
Else
|
||||||
|
lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
lblBezugsnummer.Text = atez_data.VERAG_LRN
|
||||||
|
|
||||||
|
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
|
||||||
|
cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
|
||||||
|
'cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
|
||||||
|
|
||||||
|
txtLKWId.Text = atez_data.LicensePlateContainerNo
|
||||||
|
|
||||||
|
'sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
|
||||||
|
sbAdressierteZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
If atez_data.status = "Draft" Then
|
||||||
|
btnSend.Text = "An ATEZ senden -->"
|
||||||
|
pnlHead.Enabled = True
|
||||||
|
btnSend.Enabled = True
|
||||||
|
'initAttachment()
|
||||||
|
|
||||||
|
Else
|
||||||
|
btnSend.Text = "JSON"
|
||||||
|
pnlHead.Enabled = False
|
||||||
|
dgvAnhaenge.ReadOnly = True
|
||||||
|
btnSend.Enabled = True
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Else
|
||||||
|
btnSend.Enabled = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
Else
|
||||||
|
atez_data = New cATEZ_NCTS_DATA()
|
||||||
|
initAttachment()
|
||||||
|
'Button1.Text = "An ATEZ senden -->"
|
||||||
|
pnlHead.Enabled = True
|
||||||
|
|
||||||
|
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
|
||||||
|
cboStammreferenz.changeItem("")
|
||||||
|
|
||||||
|
getBezugsnr(BezugsNr)
|
||||||
|
txtLKWId.Text = AVISO.LKW_Nr
|
||||||
|
|
||||||
|
' sbBestimmungsZollstelle.SET_VALUE(SENDUNG.NCTS_Bestimmungszollstelle)
|
||||||
|
|
||||||
|
If AVISO.Grenzstelle.Replace("???", "") = "" Then
|
||||||
|
sbAdressierteZollstelle.SET_VALUE(AVISO.Zollstelle)
|
||||||
|
Else
|
||||||
|
|
||||||
|
Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
|
||||||
|
If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
|
||||||
|
If GRZ.grz_ZollamtDST IsNot Nothing Then
|
||||||
|
sbAdressierteZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End If
|
||||||
|
'initAttachment()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Sub initAttachment()
|
||||||
|
Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
|
||||||
|
|
||||||
|
case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
|
||||||
|
|
||||||
|
CASE WHEN [anh_Art] = 'ATR-EUR1' then 'EUR'
|
||||||
|
when [anh_Art] = 'Rechnung' then 'INVOICE'
|
||||||
|
when [anh_Art] = 'eFatura' then 'INVOICE'
|
||||||
|
when [anh_Art] = 'CMR' then 'CMR'
|
||||||
|
when [anh_Art] = 'Ausfuhr' then 'OTHER'
|
||||||
|
when [anh_Art] = 'Vorpapier' then 'OTHER'
|
||||||
|
when [anh_Art] = 'Packliste' then 'PACK'
|
||||||
|
when [anh_Art] = 'Auftrag' then 'OTHER'
|
||||||
|
when [anh_Art] = 'Auftrag' then 'OTHER'
|
||||||
|
when [anh_Art] = 'Dispoliste' then 'OTHER'
|
||||||
|
when [anh_Art] = 'Vorkasse' then 'OTHER'
|
||||||
|
when [anh_Art] = 'Überweisungsbeleg' then 'OTHER'
|
||||||
|
when [anh_Art] = 'Vollmacht' then 'OTHER'
|
||||||
|
when [anh_Art] = 'ATB' then 'OTHER'
|
||||||
|
when [anh_Art] = 'ATA' then 'CarnetATA'
|
||||||
|
when [anh_Art] = 'Sonstiges' then 'OTHER'
|
||||||
|
when [anh_Art] ='' then 'OTHER' End
|
||||||
|
[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
|
||||||
|
WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
|
||||||
|
ORDER BY anh_SendungsId desc,
|
||||||
|
case
|
||||||
|
when [anh_Art] = 'ATR-EUR1' then 0
|
||||||
|
when [anh_Art] = 'Rechnung' then 1
|
||||||
|
when [anh_Art] = 'eFatura' then 1.1
|
||||||
|
when [anh_Art] = 'CMR' then 2
|
||||||
|
when [anh_Art] = 'Ausfuhr' then 3
|
||||||
|
when [anh_Art] = 'Vorpapier' then 4
|
||||||
|
when [anh_Art] = 'Packliste' then 5
|
||||||
|
when [anh_Art] = 'Auftrag' then 6
|
||||||
|
when [anh_Art] = 'Auftrag' then 7
|
||||||
|
when [anh_Art] = 'Dispoliste' then 8
|
||||||
|
when [anh_Art] = 'Vorkasse' then 9
|
||||||
|
when [anh_Art] = 'Überweisungsbeleg' then 10
|
||||||
|
when [anh_Art] = 'Vollmacht' then 11
|
||||||
|
when [anh_Art] = 'ATB' then 12
|
||||||
|
when [anh_Art] = 'ATA' then 13
|
||||||
|
when [anh_Art] = 'Sonstiges' then 99
|
||||||
|
when [anh_Art] ='' then 15
|
||||||
|
|
||||||
|
END, [anh_Reihenfolge],[anh_id]"
|
||||||
|
|
||||||
|
Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
|
||||||
|
|
||||||
|
Dim col As DataColumn
|
||||||
|
col = dt.Columns.Add("anh_selekt", GetType(Boolean))
|
||||||
|
col.SetOrdinal(0)
|
||||||
|
dgvAnhaenge.Columns.Clear()
|
||||||
|
dgvAnhaenge.DataSource = dt
|
||||||
|
If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
|
||||||
|
|
||||||
|
With dgvAnhaenge
|
||||||
|
|
||||||
|
.Enabled = True
|
||||||
|
.ReadOnly = False
|
||||||
|
|
||||||
|
.RowTemplate.MinimumHeight = 30
|
||||||
|
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
|
||||||
|
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigenconMenuVermerke
|
||||||
|
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
|
||||||
|
|
||||||
|
.Columns("anh_selekt").Width = 25
|
||||||
|
.Columns("anh_selekt").HeaderText = ""
|
||||||
|
.Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
|
|
||||||
|
.Columns("anh_Datum").MinimumWidth = 50
|
||||||
|
.Columns("anh_Datum").HeaderText = "Datum"
|
||||||
|
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
|
.Columns("anh_Datum").ReadOnly = True
|
||||||
|
|
||||||
|
|
||||||
|
.Columns("anh_Name").MinimumWidth = 150
|
||||||
|
.Columns("anh_Name").HeaderText = "Name"
|
||||||
|
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||||
|
.Columns("anh_Name").ReadOnly = True
|
||||||
|
|
||||||
|
.Columns("anh_Art").MinimumWidth = 50
|
||||||
|
.Columns("anh_Art").HeaderText = "Art"
|
||||||
|
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
|
.Columns("anh_Art").ReadOnly = True
|
||||||
|
|
||||||
|
.Columns("anh_Typ").Width = 50
|
||||||
|
.Columns("anh_Typ").HeaderText = "Typ"
|
||||||
|
.Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
|
.Columns("anh_Typ").ReadOnly = True
|
||||||
|
|
||||||
|
.Columns("anh_size").Width = 50
|
||||||
|
.Columns("anh_size").HeaderText = "Größe in MB"
|
||||||
|
.Columns("anh_size").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||||
|
.Columns("anh_size").ReadOnly = True
|
||||||
|
|
||||||
|
End With
|
||||||
|
|
||||||
|
For Each doc As DataGridViewRow In dgvAnhaenge.Rows
|
||||||
|
|
||||||
|
If Not IsDBNull(doc.Cells("anh_size").Value) AndAlso doc.Cells("anh_size").Value > 0 Then
|
||||||
|
Dim size = (doc.Cells("anh_size").Value)
|
||||||
|
If size < 1 Then
|
||||||
|
doc.DefaultCellStyle.BackColor = Color.LightGreen
|
||||||
|
ElseIf size > 1 AndAlso size < 5 Then
|
||||||
|
doc.DefaultCellStyle.BackColor = Color.LightYellow
|
||||||
|
Else
|
||||||
|
doc.DefaultCellStyle.BackColor = Color.IndianRed
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
If atez_data IsNot Nothing AndAlso atez_data.selectedDocuments <> "" Then
|
||||||
|
|
||||||
|
For Each doc As DataGridViewRow In dgvAnhaenge.Rows
|
||||||
|
If atez_data.selectedDocuments.Contains(doc.Cells("anh_docId").Value) Then doc.Cells("anh_selekt").Value = True
|
||||||
|
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
Sub initSeachboxes()
|
||||||
|
|
||||||
|
sbAdressierteZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||||
|
'sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Public Function checkAttachment() As Boolean
|
||||||
|
|
||||||
|
Dim selectedDocuments As Boolean = False
|
||||||
|
|
||||||
|
For Each Row In dgvAnhaenge.Rows
|
||||||
|
|
||||||
|
selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
|
||||||
|
If selectedDocuments Then Exit For
|
||||||
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
'If Not selectedDocuments Then
|
||||||
|
' lblInfo.Text = "kein Anhang selektiert"
|
||||||
|
' Cursor = Cursors.Default
|
||||||
|
' Return selectedDocuments
|
||||||
|
'End If
|
||||||
|
|
||||||
|
Return selectedDocuments
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function checkMandatoryField() As Boolean
|
||||||
|
|
||||||
|
|
||||||
|
'TODO
|
||||||
|
Return True
|
||||||
|
|
||||||
|
|
||||||
|
End Function
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick
|
||||||
|
Try
|
||||||
|
|
||||||
|
If dgvAnhaenge.SelectedRows.Count > 0 Then
|
||||||
|
Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhaenge.SelectedRows(0).Cells("anh_docId").Value)
|
||||||
|
If Not IO.File.Exists(docPath) Then
|
||||||
|
MsgBox("Die Datei existiert nicht!")
|
||||||
|
Else
|
||||||
|
If docPath.ToString.ToLower.EndsWith(".msg") Then ' MSG - Mails --> lokale Kopie, sonst Fehler (bereits von Benutzer soUndSo geöffnet)
|
||||||
|
Dim docPathTMP = VERAG_PROG_ALLGEMEIN.cFormularManager.getTMPPath_MSG()
|
||||||
|
System.IO.File.Copy(docPath, docPathTMP)
|
||||||
|
Process.Start(docPathTMP)
|
||||||
|
Else
|
||||||
|
Process.Start(docPath)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub dgvAnhaenge_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellClick
|
||||||
|
|
||||||
|
Dim countAnh As Double = 0
|
||||||
|
If dgvAnhaenge.RowCount > 0 Then
|
||||||
|
|
||||||
|
If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then
|
||||||
|
|
||||||
|
If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
|
||||||
|
countAnh += IIf(dgvAnhaenge.CurrentRow.Cells("anh_size").Value IsNot DBNull.Value, dgvAnhaenge.CurrentRow.Cells("anh_size").Value, 0)
|
||||||
|
End If
|
||||||
|
|
||||||
|
For Each Row As DataGridViewRow In dgvAnhaenge.Rows
|
||||||
|
If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
|
||||||
|
countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
lblAnh.Text = "Anhang in MB: " & countAnh.ToString
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||||
|
If dgvAnhaenge.RowCount > 0 Then
|
||||||
|
Dim countAnh As Double = 0
|
||||||
|
For Each Row As DataGridViewRow In dgvAnhaenge.Rows
|
||||||
|
If allSelected Then
|
||||||
|
Row.Cells("anh_selekt").Value = True
|
||||||
|
countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
|
||||||
|
Else
|
||||||
|
Row.Cells("anh_selekt").Value = False
|
||||||
|
countAnh = 0
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
allSelected = Not allSelected
|
||||||
|
lblAnh.Text = "Anhang in MB: " & countAnh.ToString
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
@@ -29,7 +29,6 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.Label2 = New System.Windows.Forms.Label()
|
Me.Label2 = New System.Windows.Forms.Label()
|
||||||
Me.cboProzedur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
Me.cboProzedur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
Me.lblInfo = New System.Windows.Forms.Label()
|
Me.lblInfo = New System.Windows.Forms.Label()
|
||||||
Me.Label6 = New System.Windows.Forms.Label()
|
|
||||||
Me.Label8 = New System.Windows.Forms.Label()
|
Me.Label8 = New System.Windows.Forms.Label()
|
||||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||||
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||||
@@ -70,10 +69,11 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.Label1 = New System.Windows.Forms.Label()
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
|
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
|
||||||
Me.lblBezugsnummer = New System.Windows.Forms.Label()
|
Me.lblBezugsnummer = New System.Windows.Forms.Label()
|
||||||
|
Me.Button3 = New System.Windows.Forms.Button()
|
||||||
|
Me.Label6 = New System.Windows.Forms.Label()
|
||||||
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||||
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
Me.lblAnh = New System.Windows.Forms.Label()
|
Me.lblAnh = New System.Windows.Forms.Label()
|
||||||
Me.Button3 = New System.Windows.Forms.Button()
|
|
||||||
Me.pnlHead.SuspendLayout()
|
Me.pnlHead.SuspendLayout()
|
||||||
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
@@ -84,25 +84,25 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.Button1.BackColor = System.Drawing.Color.White
|
Me.Button1.BackColor = System.Drawing.Color.White
|
||||||
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
|
||||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
|
Me.Button1.Image = Global.AVISO.My.Resources.Resources.Transcode
|
||||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||||
Me.Button1.Location = New System.Drawing.Point(222, 772)
|
Me.Button1.Location = New System.Drawing.Point(395, 773)
|
||||||
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
|
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
|
||||||
Me.Button1.Name = "Button1"
|
Me.Button1.Name = "Button1"
|
||||||
Me.Button1.Size = New System.Drawing.Size(159, 42)
|
Me.Button1.Size = New System.Drawing.Size(192, 58)
|
||||||
Me.Button1.TabIndex = 26
|
Me.Button1.TabIndex = 26
|
||||||
Me.Button1.Text = "An ATEZ senden -->"
|
Me.Button1.Text = "An ATEZ senden >>"
|
||||||
|
Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||||
Me.Button1.UseVisualStyleBackColor = False
|
Me.Button1.UseVisualStyleBackColor = False
|
||||||
'
|
'
|
||||||
'pnlHead
|
'pnlHead
|
||||||
'
|
'
|
||||||
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||||
Me.pnlHead.BackColor = System.Drawing.Color.White
|
Me.pnlHead.BackColor = System.Drawing.Color.White
|
||||||
Me.pnlHead.Controls.Add(Me.Button3)
|
|
||||||
Me.pnlHead.Controls.Add(Me.Label2)
|
Me.pnlHead.Controls.Add(Me.Label2)
|
||||||
Me.pnlHead.Controls.Add(Me.cboProzedur)
|
Me.pnlHead.Controls.Add(Me.cboProzedur)
|
||||||
Me.pnlHead.Controls.Add(Me.lblInfo)
|
Me.pnlHead.Controls.Add(Me.lblInfo)
|
||||||
Me.pnlHead.Controls.Add(Me.Label6)
|
|
||||||
Me.pnlHead.Controls.Add(Me.Label8)
|
Me.pnlHead.Controls.Add(Me.Label8)
|
||||||
Me.pnlHead.Controls.Add(Me.cboStammreferenz)
|
Me.pnlHead.Controls.Add(Me.cboStammreferenz)
|
||||||
Me.pnlHead.Controls.Add(Me.txtLKWId)
|
Me.pnlHead.Controls.Add(Me.txtLKWId)
|
||||||
@@ -113,11 +113,9 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.pnlHead.Controls.Add(Me.lblC)
|
Me.pnlHead.Controls.Add(Me.lblC)
|
||||||
Me.pnlHead.Controls.Add(Me.txtTransporttemp)
|
Me.pnlHead.Controls.Add(Me.txtTransporttemp)
|
||||||
Me.pnlHead.Controls.Add(Me.cbxTemperatur)
|
Me.pnlHead.Controls.Add(Me.cbxTemperatur)
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle5)
|
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle9)
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle9)
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle8)
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle8)
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle7)
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle7)
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle6)
|
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle4)
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle4)
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle3)
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle3)
|
||||||
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle2)
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle2)
|
||||||
@@ -143,16 +141,18 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.pnlHead.Controls.Add(Me.Label1)
|
Me.pnlHead.Controls.Add(Me.Label1)
|
||||||
Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
|
Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
|
||||||
Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
|
Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
|
||||||
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle5)
|
||||||
|
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle6)
|
||||||
Me.pnlHead.Location = New System.Drawing.Point(3, 2)
|
Me.pnlHead.Location = New System.Drawing.Point(3, 2)
|
||||||
Me.pnlHead.Name = "pnlHead"
|
Me.pnlHead.Name = "pnlHead"
|
||||||
Me.pnlHead.Size = New System.Drawing.Size(584, 601)
|
Me.pnlHead.Size = New System.Drawing.Size(584, 574)
|
||||||
Me.pnlHead.TabIndex = 112
|
Me.pnlHead.TabIndex = 112
|
||||||
'
|
'
|
||||||
'Label2
|
'Label2
|
||||||
'
|
'
|
||||||
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.Label2.AutoSize = True
|
Me.Label2.AutoSize = True
|
||||||
Me.Label2.Location = New System.Drawing.Point(10, 47)
|
Me.Label2.Location = New System.Drawing.Point(10, 59)
|
||||||
Me.Label2.Name = "Label2"
|
Me.Label2.Name = "Label2"
|
||||||
Me.Label2.Size = New System.Drawing.Size(52, 13)
|
Me.Label2.Size = New System.Drawing.Size(52, 13)
|
||||||
Me.Label2.TabIndex = 150
|
Me.Label2.TabIndex = 150
|
||||||
@@ -168,7 +168,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.cboProzedur.FormattingEnabled = True
|
Me.cboProzedur.FormattingEnabled = True
|
||||||
Me.cboProzedur.Location = New System.Drawing.Point(151, 44)
|
Me.cboProzedur.Location = New System.Drawing.Point(151, 56)
|
||||||
Me.cboProzedur.Name = "cboProzedur"
|
Me.cboProzedur.Name = "cboProzedur"
|
||||||
Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
|
Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
|
||||||
Me.cboProzedur.TabIndex = 149
|
Me.cboProzedur.TabIndex = 149
|
||||||
@@ -177,24 +177,16 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblInfo.ForeColor = System.Drawing.Color.Red
|
Me.lblInfo.ForeColor = System.Drawing.Color.Red
|
||||||
Me.lblInfo.Location = New System.Drawing.Point(3, 20)
|
Me.lblInfo.Location = New System.Drawing.Point(3, 32)
|
||||||
Me.lblInfo.Name = "lblInfo"
|
Me.lblInfo.Name = "lblInfo"
|
||||||
Me.lblInfo.Size = New System.Drawing.Size(460, 21)
|
Me.lblInfo.Size = New System.Drawing.Size(460, 21)
|
||||||
Me.lblInfo.TabIndex = 148
|
Me.lblInfo.TabIndex = 148
|
||||||
'
|
'
|
||||||
'Label6
|
|
||||||
'
|
|
||||||
Me.Label6.Location = New System.Drawing.Point(10, 573)
|
|
||||||
Me.Label6.Name = "Label6"
|
|
||||||
Me.Label6.Size = New System.Drawing.Size(135, 13)
|
|
||||||
Me.Label6.TabIndex = 147
|
|
||||||
Me.Label6.Text = "Dokumente:"
|
|
||||||
'
|
|
||||||
'Label8
|
'Label8
|
||||||
'
|
'
|
||||||
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.Label8.AutoSize = True
|
Me.Label8.AutoSize = True
|
||||||
Me.Label8.Location = New System.Drawing.Point(389, 76)
|
Me.Label8.Location = New System.Drawing.Point(389, 88)
|
||||||
Me.Label8.Name = "Label8"
|
Me.Label8.Name = "Label8"
|
||||||
Me.Label8.Size = New System.Drawing.Size(57, 13)
|
Me.Label8.Size = New System.Drawing.Size(57, 13)
|
||||||
Me.Label8.TabIndex = 146
|
Me.Label8.TabIndex = 146
|
||||||
@@ -210,7 +202,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||||
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.cboStammreferenz.FormattingEnabled = True
|
Me.cboStammreferenz.FormattingEnabled = True
|
||||||
Me.cboStammreferenz.Location = New System.Drawing.Point(445, 73)
|
Me.cboStammreferenz.Location = New System.Drawing.Point(445, 85)
|
||||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||||
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
||||||
Me.cboStammreferenz.TabIndex = 145
|
Me.cboStammreferenz.TabIndex = 145
|
||||||
@@ -230,22 +222,21 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.txtLKWId._Waehrung = False
|
Me.txtLKWId._Waehrung = False
|
||||||
Me.txtLKWId._WaehrungZeichen = True
|
Me.txtLKWId._WaehrungZeichen = True
|
||||||
Me.txtLKWId.ForeColor = System.Drawing.Color.Black
|
Me.txtLKWId.ForeColor = System.Drawing.Color.Black
|
||||||
Me.txtLKWId.Location = New System.Drawing.Point(151, 74)
|
Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
|
||||||
Me.txtLKWId.MaxLineLength = -1
|
Me.txtLKWId.MaxLineLength = -1
|
||||||
Me.txtLKWId.MaxLines_Warning = ""
|
Me.txtLKWId.MaxLines_Warning = ""
|
||||||
Me.txtLKWId.MaxLines_Warning_Label = Nothing
|
Me.txtLKWId.MaxLines_Warning_Label = Nothing
|
||||||
Me.txtLKWId.Name = "txtLKWId"
|
Me.txtLKWId.Name = "txtLKWId"
|
||||||
Me.txtLKWId.Size = New System.Drawing.Size(100, 20)
|
Me.txtLKWId.Size = New System.Drawing.Size(196, 20)
|
||||||
Me.txtLKWId.TabIndex = 144
|
Me.txtLKWId.TabIndex = 144
|
||||||
'
|
'
|
||||||
'usrCntl_Carrier
|
'usrCntl_Carrier
|
||||||
'
|
'
|
||||||
Me.usrCntl_Carrier._Titel = "Frächter:"
|
Me.usrCntl_Carrier._Titel = "Frächter:"
|
||||||
Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White
|
Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White
|
||||||
Me.usrCntl_Carrier.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
Me.usrCntl_Carrier.Location = New System.Drawing.Point(9, 222)
|
||||||
Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 227)
|
|
||||||
Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
|
Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
|
||||||
Me.usrCntl_Carrier.Size = New System.Drawing.Size(561, 132)
|
Me.usrCntl_Carrier.Size = New System.Drawing.Size(565, 137)
|
||||||
Me.usrCntl_Carrier.TabIndex = 143
|
Me.usrCntl_Carrier.TabIndex = 143
|
||||||
'
|
'
|
||||||
'txtDat
|
'txtDat
|
||||||
@@ -264,7 +255,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.txtDat._WaehrungZeichen = True
|
Me.txtDat._WaehrungZeichen = True
|
||||||
Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
|
||||||
Me.txtDat.ForeColor = System.Drawing.Color.Black
|
Me.txtDat.ForeColor = System.Drawing.Color.Black
|
||||||
Me.txtDat.Location = New System.Drawing.Point(151, 148)
|
Me.txtDat.Location = New System.Drawing.Point(151, 160)
|
||||||
Me.txtDat.MaxLength = 10
|
Me.txtDat.MaxLength = 10
|
||||||
Me.txtDat.MaxLineLength = -1
|
Me.txtDat.MaxLineLength = -1
|
||||||
Me.txtDat.MaxLines_Warning = ""
|
Me.txtDat.MaxLines_Warning = ""
|
||||||
@@ -279,7 +270,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.dtpDat.CustomFormat = "''"
|
Me.dtpDat.CustomFormat = "''"
|
||||||
Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||||
Me.dtpDat.Location = New System.Drawing.Point(151, 148)
|
Me.dtpDat.Location = New System.Drawing.Point(151, 160)
|
||||||
Me.dtpDat.Margin = New System.Windows.Forms.Padding(0)
|
Me.dtpDat.Margin = New System.Windows.Forms.Padding(0)
|
||||||
Me.dtpDat.Name = "dtpDat"
|
Me.dtpDat.Name = "dtpDat"
|
||||||
Me.dtpDat.Size = New System.Drawing.Size(110, 24)
|
Me.dtpDat.Size = New System.Drawing.Size(110, 24)
|
||||||
@@ -287,7 +278,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
'Label7
|
'Label7
|
||||||
'
|
'
|
||||||
Me.Label7.Location = New System.Drawing.Point(10, 148)
|
Me.Label7.Location = New System.Drawing.Point(10, 160)
|
||||||
Me.Label7.Name = "Label7"
|
Me.Label7.Name = "Label7"
|
||||||
Me.Label7.Size = New System.Drawing.Size(134, 17)
|
Me.Label7.Size = New System.Drawing.Size(134, 17)
|
||||||
Me.Label7.TabIndex = 140
|
Me.Label7.TabIndex = 140
|
||||||
@@ -296,7 +287,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'lblC
|
'lblC
|
||||||
'
|
'
|
||||||
Me.lblC.AutoSize = True
|
Me.lblC.AutoSize = True
|
||||||
Me.lblC.Location = New System.Drawing.Point(251, 179)
|
Me.lblC.Location = New System.Drawing.Point(251, 191)
|
||||||
Me.lblC.Name = "lblC"
|
Me.lblC.Name = "lblC"
|
||||||
Me.lblC.Size = New System.Drawing.Size(18, 13)
|
Me.lblC.Size = New System.Drawing.Size(18, 13)
|
||||||
Me.lblC.TabIndex = 139
|
Me.lblC.TabIndex = 139
|
||||||
@@ -317,7 +308,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.txtTransporttemp._Waehrung = False
|
Me.txtTransporttemp._Waehrung = False
|
||||||
Me.txtTransporttemp._WaehrungZeichen = True
|
Me.txtTransporttemp._WaehrungZeichen = True
|
||||||
Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
|
Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
|
||||||
Me.txtTransporttemp.Location = New System.Drawing.Point(151, 175)
|
Me.txtTransporttemp.Location = New System.Drawing.Point(151, 187)
|
||||||
Me.txtTransporttemp.MaxLineLength = -1
|
Me.txtTransporttemp.MaxLineLength = -1
|
||||||
Me.txtTransporttemp.MaxLines_Warning = ""
|
Me.txtTransporttemp.MaxLines_Warning = ""
|
||||||
Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
|
Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
|
||||||
@@ -329,7 +320,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
Me.cbxTemperatur.AutoSize = True
|
Me.cbxTemperatur.AutoSize = True
|
||||||
Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.cbxTemperatur.Location = New System.Drawing.Point(13, 175)
|
Me.cbxTemperatur.Location = New System.Drawing.Point(13, 187)
|
||||||
Me.cbxTemperatur.Name = "cbxTemperatur"
|
Me.cbxTemperatur.Name = "cbxTemperatur"
|
||||||
Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
|
Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
|
||||||
Me.cbxTemperatur.TabIndex = 137
|
Me.cbxTemperatur.TabIndex = 137
|
||||||
@@ -351,7 +342,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle5.key_visible = False
|
Me.sbDurchgangszollstelle5.key_visible = False
|
||||||
Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(207, 427)
|
Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(206, 415)
|
||||||
Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
|
Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
|
||||||
Me.sbDurchgangszollstelle5.searchActive = True
|
Me.sbDurchgangszollstelle5.searchActive = True
|
||||||
Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 20)
|
Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 20)
|
||||||
@@ -376,7 +367,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle9.key_visible = False
|
Me.sbDurchgangszollstelle9.key_visible = False
|
||||||
Me.sbDurchgangszollstelle9.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle9.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(376, 446)
|
Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(376, 434)
|
||||||
Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
|
Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
|
||||||
Me.sbDurchgangszollstelle9.searchActive = True
|
Me.sbDurchgangszollstelle9.searchActive = True
|
||||||
Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 20)
|
Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 20)
|
||||||
@@ -401,7 +392,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle8.key_visible = False
|
Me.sbDurchgangszollstelle8.key_visible = False
|
||||||
Me.sbDurchgangszollstelle8.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle8.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(207, 446)
|
Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(207, 434)
|
||||||
Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
|
Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
|
||||||
Me.sbDurchgangszollstelle8.searchActive = True
|
Me.sbDurchgangszollstelle8.searchActive = True
|
||||||
Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 20)
|
Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 20)
|
||||||
@@ -426,7 +417,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle7.key_visible = False
|
Me.sbDurchgangszollstelle7.key_visible = False
|
||||||
Me.sbDurchgangszollstelle7.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle7.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 446)
|
Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 434)
|
||||||
Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
|
Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
|
||||||
Me.sbDurchgangszollstelle7.searchActive = True
|
Me.sbDurchgangszollstelle7.searchActive = True
|
||||||
Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 20)
|
Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 20)
|
||||||
@@ -451,10 +442,10 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle6.key_visible = False
|
Me.sbDurchgangszollstelle6.key_visible = False
|
||||||
Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(376, 427)
|
Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(375, 415)
|
||||||
Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
|
Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
|
||||||
Me.sbDurchgangszollstelle6.searchActive = True
|
Me.sbDurchgangszollstelle6.searchActive = True
|
||||||
Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(198, 20)
|
Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(199, 20)
|
||||||
Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
|
Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
|
||||||
Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
|
Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
|
||||||
Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
|
Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
|
||||||
@@ -476,10 +467,10 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle4.key_visible = False
|
Me.sbDurchgangszollstelle4.key_visible = False
|
||||||
Me.sbDurchgangszollstelle4.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle4.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 427)
|
Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 415)
|
||||||
Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
|
Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
|
||||||
Me.sbDurchgangszollstelle4.searchActive = True
|
Me.sbDurchgangszollstelle4.searchActive = True
|
||||||
Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(197, 20)
|
Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(195, 20)
|
||||||
Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing
|
Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing
|
||||||
Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
|
Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
|
||||||
Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
|
Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
|
||||||
@@ -501,7 +492,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle3.key_visible = False
|
Me.sbDurchgangszollstelle3.key_visible = False
|
||||||
Me.sbDurchgangszollstelle3.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle3.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(376, 408)
|
Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(376, 396)
|
||||||
Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
|
Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
|
||||||
Me.sbDurchgangszollstelle3.searchActive = True
|
Me.sbDurchgangszollstelle3.searchActive = True
|
||||||
Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 20)
|
Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 20)
|
||||||
@@ -526,7 +517,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle2.key_visible = False
|
Me.sbDurchgangszollstelle2.key_visible = False
|
||||||
Me.sbDurchgangszollstelle2.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle2.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(207, 408)
|
Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(207, 396)
|
||||||
Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
|
Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
|
||||||
Me.sbDurchgangszollstelle2.searchActive = True
|
Me.sbDurchgangszollstelle2.searchActive = True
|
||||||
Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 20)
|
Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 20)
|
||||||
@@ -551,7 +542,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
|
Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbDurchgangszollstelle1.key_visible = False
|
Me.sbDurchgangszollstelle1.key_visible = False
|
||||||
Me.sbDurchgangszollstelle1.KEYPARAM = Nothing
|
Me.sbDurchgangszollstelle1.KEYPARAM = Nothing
|
||||||
Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 408)
|
Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 396)
|
||||||
Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
|
Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
|
||||||
Me.sbDurchgangszollstelle1.searchActive = True
|
Me.sbDurchgangszollstelle1.searchActive = True
|
||||||
Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 20)
|
Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 20)
|
||||||
@@ -564,7 +555,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
'Label5
|
'Label5
|
||||||
'
|
'
|
||||||
Me.Label5.Location = New System.Drawing.Point(10, 392)
|
Me.Label5.Location = New System.Drawing.Point(10, 380)
|
||||||
Me.Label5.Name = "Label5"
|
Me.Label5.Name = "Label5"
|
||||||
Me.Label5.Size = New System.Drawing.Size(135, 13)
|
Me.Label5.Size = New System.Drawing.Size(135, 13)
|
||||||
Me.Label5.TabIndex = 127
|
Me.Label5.TabIndex = 127
|
||||||
@@ -574,7 +565,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
Me.lklRoutenauswahl.AutoSize = True
|
Me.lklRoutenauswahl.AutoSize = True
|
||||||
Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||||
Me.lklRoutenauswahl.Location = New System.Drawing.Point(493, 487)
|
Me.lklRoutenauswahl.Location = New System.Drawing.Point(493, 475)
|
||||||
Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
|
Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
|
||||||
Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
|
Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
|
||||||
Me.lklRoutenauswahl.TabIndex = 117
|
Me.lklRoutenauswahl.TabIndex = 117
|
||||||
@@ -595,7 +586,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute5.key_visible = False
|
Me.sbRoute5.key_visible = False
|
||||||
Me.sbRoute5.KEYPARAM = Nothing
|
Me.sbRoute5.KEYPARAM = Nothing
|
||||||
Me.sbRoute5.Location = New System.Drawing.Point(205, 522)
|
Me.sbRoute5.Location = New System.Drawing.Point(205, 510)
|
||||||
Me.sbRoute5.Name = "sbRoute5"
|
Me.sbRoute5.Name = "sbRoute5"
|
||||||
Me.sbRoute5.searchActive = True
|
Me.sbRoute5.searchActive = True
|
||||||
Me.sbRoute5.Size = New System.Drawing.Size(183, 20)
|
Me.sbRoute5.Size = New System.Drawing.Size(183, 20)
|
||||||
@@ -620,7 +611,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute9.key_visible = False
|
Me.sbRoute9.key_visible = False
|
||||||
Me.sbRoute9.KEYPARAM = Nothing
|
Me.sbRoute9.KEYPARAM = Nothing
|
||||||
Me.sbRoute9.Location = New System.Drawing.Point(387, 541)
|
Me.sbRoute9.Location = New System.Drawing.Point(387, 529)
|
||||||
Me.sbRoute9.Name = "sbRoute9"
|
Me.sbRoute9.Name = "sbRoute9"
|
||||||
Me.sbRoute9.searchActive = True
|
Me.sbRoute9.searchActive = True
|
||||||
Me.sbRoute9.Size = New System.Drawing.Size(187, 20)
|
Me.sbRoute9.Size = New System.Drawing.Size(187, 20)
|
||||||
@@ -645,7 +636,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute8.key_visible = False
|
Me.sbRoute8.key_visible = False
|
||||||
Me.sbRoute8.KEYPARAM = Nothing
|
Me.sbRoute8.KEYPARAM = Nothing
|
||||||
Me.sbRoute8.Location = New System.Drawing.Point(205, 541)
|
Me.sbRoute8.Location = New System.Drawing.Point(205, 529)
|
||||||
Me.sbRoute8.Name = "sbRoute8"
|
Me.sbRoute8.Name = "sbRoute8"
|
||||||
Me.sbRoute8.searchActive = True
|
Me.sbRoute8.searchActive = True
|
||||||
Me.sbRoute8.Size = New System.Drawing.Size(183, 20)
|
Me.sbRoute8.Size = New System.Drawing.Size(183, 20)
|
||||||
@@ -670,7 +661,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute7.key_visible = False
|
Me.sbRoute7.key_visible = False
|
||||||
Me.sbRoute7.KEYPARAM = Nothing
|
Me.sbRoute7.KEYPARAM = Nothing
|
||||||
Me.sbRoute7.Location = New System.Drawing.Point(13, 541)
|
Me.sbRoute7.Location = New System.Drawing.Point(13, 529)
|
||||||
Me.sbRoute7.Name = "sbRoute7"
|
Me.sbRoute7.Name = "sbRoute7"
|
||||||
Me.sbRoute7.searchActive = True
|
Me.sbRoute7.searchActive = True
|
||||||
Me.sbRoute7.Size = New System.Drawing.Size(195, 20)
|
Me.sbRoute7.Size = New System.Drawing.Size(195, 20)
|
||||||
@@ -695,7 +686,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute6.key_visible = False
|
Me.sbRoute6.key_visible = False
|
||||||
Me.sbRoute6.KEYPARAM = Nothing
|
Me.sbRoute6.KEYPARAM = Nothing
|
||||||
Me.sbRoute6.Location = New System.Drawing.Point(387, 522)
|
Me.sbRoute6.Location = New System.Drawing.Point(387, 510)
|
||||||
Me.sbRoute6.Name = "sbRoute6"
|
Me.sbRoute6.Name = "sbRoute6"
|
||||||
Me.sbRoute6.searchActive = True
|
Me.sbRoute6.searchActive = True
|
||||||
Me.sbRoute6.Size = New System.Drawing.Size(187, 20)
|
Me.sbRoute6.Size = New System.Drawing.Size(187, 20)
|
||||||
@@ -720,7 +711,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute4.key_visible = False
|
Me.sbRoute4.key_visible = False
|
||||||
Me.sbRoute4.KEYPARAM = Nothing
|
Me.sbRoute4.KEYPARAM = Nothing
|
||||||
Me.sbRoute4.Location = New System.Drawing.Point(13, 522)
|
Me.sbRoute4.Location = New System.Drawing.Point(13, 510)
|
||||||
Me.sbRoute4.Name = "sbRoute4"
|
Me.sbRoute4.Name = "sbRoute4"
|
||||||
Me.sbRoute4.searchActive = True
|
Me.sbRoute4.searchActive = True
|
||||||
Me.sbRoute4.Size = New System.Drawing.Size(195, 20)
|
Me.sbRoute4.Size = New System.Drawing.Size(195, 20)
|
||||||
@@ -745,7 +736,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute3.key_visible = False
|
Me.sbRoute3.key_visible = False
|
||||||
Me.sbRoute3.KEYPARAM = Nothing
|
Me.sbRoute3.KEYPARAM = Nothing
|
||||||
Me.sbRoute3.Location = New System.Drawing.Point(387, 503)
|
Me.sbRoute3.Location = New System.Drawing.Point(387, 491)
|
||||||
Me.sbRoute3.Name = "sbRoute3"
|
Me.sbRoute3.Name = "sbRoute3"
|
||||||
Me.sbRoute3.searchActive = True
|
Me.sbRoute3.searchActive = True
|
||||||
Me.sbRoute3.Size = New System.Drawing.Size(187, 20)
|
Me.sbRoute3.Size = New System.Drawing.Size(187, 20)
|
||||||
@@ -770,7 +761,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute2.key_visible = False
|
Me.sbRoute2.key_visible = False
|
||||||
Me.sbRoute2.KEYPARAM = Nothing
|
Me.sbRoute2.KEYPARAM = Nothing
|
||||||
Me.sbRoute2.Location = New System.Drawing.Point(205, 503)
|
Me.sbRoute2.Location = New System.Drawing.Point(205, 491)
|
||||||
Me.sbRoute2.Name = "sbRoute2"
|
Me.sbRoute2.Name = "sbRoute2"
|
||||||
Me.sbRoute2.searchActive = True
|
Me.sbRoute2.searchActive = True
|
||||||
Me.sbRoute2.Size = New System.Drawing.Size(183, 20)
|
Me.sbRoute2.Size = New System.Drawing.Size(183, 20)
|
||||||
@@ -795,7 +786,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
|
Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbRoute1.key_visible = False
|
Me.sbRoute1.key_visible = False
|
||||||
Me.sbRoute1.KEYPARAM = Nothing
|
Me.sbRoute1.KEYPARAM = Nothing
|
||||||
Me.sbRoute1.Location = New System.Drawing.Point(13, 503)
|
Me.sbRoute1.Location = New System.Drawing.Point(13, 491)
|
||||||
Me.sbRoute1.Name = "sbRoute1"
|
Me.sbRoute1.Name = "sbRoute1"
|
||||||
Me.sbRoute1.searchActive = True
|
Me.sbRoute1.searchActive = True
|
||||||
Me.sbRoute1.Size = New System.Drawing.Size(195, 20)
|
Me.sbRoute1.Size = New System.Drawing.Size(195, 20)
|
||||||
@@ -808,7 +799,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
'Label14
|
'Label14
|
||||||
'
|
'
|
||||||
Me.Label14.Location = New System.Drawing.Point(10, 487)
|
Me.Label14.Location = New System.Drawing.Point(10, 475)
|
||||||
Me.Label14.Name = "Label14"
|
Me.Label14.Name = "Label14"
|
||||||
Me.Label14.Size = New System.Drawing.Size(135, 13)
|
Me.Label14.Size = New System.Drawing.Size(135, 13)
|
||||||
Me.Label14.TabIndex = 116
|
Me.Label14.TabIndex = 116
|
||||||
@@ -816,7 +807,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
'Label4
|
'Label4
|
||||||
'
|
'
|
||||||
Me.Label4.Location = New System.Drawing.Point(10, 126)
|
Me.Label4.Location = New System.Drawing.Point(10, 138)
|
||||||
Me.Label4.Name = "Label4"
|
Me.Label4.Name = "Label4"
|
||||||
Me.Label4.Size = New System.Drawing.Size(121, 17)
|
Me.Label4.Size = New System.Drawing.Size(121, 17)
|
||||||
Me.Label4.TabIndex = 114
|
Me.Label4.TabIndex = 114
|
||||||
@@ -836,7 +827,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
|
Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbBestimmungsZollstelle.key_visible = False
|
Me.sbBestimmungsZollstelle.key_visible = False
|
||||||
Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
|
Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
|
||||||
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 126)
|
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 138)
|
||||||
Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
|
Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
|
||||||
Me.sbBestimmungsZollstelle.searchActive = True
|
Me.sbBestimmungsZollstelle.searchActive = True
|
||||||
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
|
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
|
||||||
@@ -849,7 +840,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
'Label3
|
'Label3
|
||||||
'
|
'
|
||||||
Me.Label3.Location = New System.Drawing.Point(10, 77)
|
Me.Label3.Location = New System.Drawing.Point(10, 89)
|
||||||
Me.Label3.Name = "Label3"
|
Me.Label3.Name = "Label3"
|
||||||
Me.Label3.Size = New System.Drawing.Size(103, 17)
|
Me.Label3.Size = New System.Drawing.Size(103, 17)
|
||||||
Me.Label3.TabIndex = 113
|
Me.Label3.TabIndex = 113
|
||||||
@@ -857,7 +848,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
'Label9
|
'Label9
|
||||||
'
|
'
|
||||||
Me.Label9.Location = New System.Drawing.Point(10, 103)
|
Me.Label9.Location = New System.Drawing.Point(10, 115)
|
||||||
Me.Label9.Name = "Label9"
|
Me.Label9.Name = "Label9"
|
||||||
Me.Label9.Size = New System.Drawing.Size(103, 17)
|
Me.Label9.Size = New System.Drawing.Size(103, 17)
|
||||||
Me.Label9.TabIndex = 110
|
Me.Label9.TabIndex = 110
|
||||||
@@ -877,7 +868,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
|
Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
|
||||||
Me.sbAbgangZollstelle.key_visible = False
|
Me.sbAbgangZollstelle.key_visible = False
|
||||||
Me.sbAbgangZollstelle.KEYPARAM = Nothing
|
Me.sbAbgangZollstelle.KEYPARAM = Nothing
|
||||||
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 100)
|
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 112)
|
||||||
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
|
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
|
||||||
Me.sbAbgangZollstelle.searchActive = True
|
Me.sbAbgangZollstelle.searchActive = True
|
||||||
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
|
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
|
||||||
@@ -891,7 +882,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'txtDyMandant
|
'txtDyMandant
|
||||||
'
|
'
|
||||||
Me.txtDyMandant.BackColor = System.Drawing.Color.White
|
Me.txtDyMandant.BackColor = System.Drawing.Color.White
|
||||||
Me.txtDyMandant.Location = New System.Drawing.Point(2, 2)
|
Me.txtDyMandant.Location = New System.Drawing.Point(2, 14)
|
||||||
Me.txtDyMandant.Name = "txtDyMandant"
|
Me.txtDyMandant.Name = "txtDyMandant"
|
||||||
Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
|
Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
|
||||||
Me.txtDyMandant.TabIndex = 109
|
Me.txtDyMandant.TabIndex = 109
|
||||||
@@ -903,7 +894,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.Label1.AutoSize = True
|
Me.Label1.AutoSize = True
|
||||||
Me.Label1.BackColor = System.Drawing.Color.White
|
Me.Label1.BackColor = System.Drawing.Color.White
|
||||||
Me.Label1.Location = New System.Drawing.Point(296, 2)
|
Me.Label1.Location = New System.Drawing.Point(296, 19)
|
||||||
Me.Label1.Name = "Label1"
|
Me.Label1.Name = "Label1"
|
||||||
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||||
Me.Label1.TabIndex = 106
|
Me.Label1.TabIndex = 106
|
||||||
@@ -912,7 +903,7 @@ Partial Class frmATEZ_NCTS
|
|||||||
'txtDyNiederlassung
|
'txtDyNiederlassung
|
||||||
'
|
'
|
||||||
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
|
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
|
||||||
Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3)
|
Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 15)
|
||||||
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
||||||
Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
|
Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
|
||||||
Me.txtDyNiederlassung.TabIndex = 108
|
Me.txtDyNiederlassung.TabIndex = 108
|
||||||
@@ -923,13 +914,31 @@ Partial Class frmATEZ_NCTS
|
|||||||
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
|
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
|
||||||
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblBezugsnummer.Location = New System.Drawing.Point(384, 2)
|
Me.lblBezugsnummer.Location = New System.Drawing.Point(384, 14)
|
||||||
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
||||||
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
|
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
|
||||||
Me.lblBezugsnummer.TabIndex = 107
|
Me.lblBezugsnummer.TabIndex = 107
|
||||||
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
||||||
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
'
|
'
|
||||||
|
'Button3
|
||||||
|
'
|
||||||
|
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
|
Me.Button3.Location = New System.Drawing.Point(409, 584)
|
||||||
|
Me.Button3.Name = "Button3"
|
||||||
|
Me.Button3.Size = New System.Drawing.Size(178, 23)
|
||||||
|
Me.Button3.TabIndex = 152
|
||||||
|
Me.Button3.Text = "alle Anhänge auswählen"
|
||||||
|
Me.Button3.UseVisualStyleBackColor = True
|
||||||
|
'
|
||||||
|
'Label6
|
||||||
|
'
|
||||||
|
Me.Label6.Location = New System.Drawing.Point(9, 593)
|
||||||
|
Me.Label6.Name = "Label6"
|
||||||
|
Me.Label6.Size = New System.Drawing.Size(135, 13)
|
||||||
|
Me.Label6.TabIndex = 147
|
||||||
|
Me.Label6.Text = "Dokumente:"
|
||||||
|
'
|
||||||
'dgvAnhaenge
|
'dgvAnhaenge
|
||||||
'
|
'
|
||||||
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
|
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
|
||||||
@@ -955,29 +964,22 @@ Partial Class frmATEZ_NCTS
|
|||||||
'
|
'
|
||||||
'lblAnh
|
'lblAnh
|
||||||
'
|
'
|
||||||
Me.lblAnh.Location = New System.Drawing.Point(442, 772)
|
Me.lblAnh.Location = New System.Drawing.Point(0, 770)
|
||||||
Me.lblAnh.Name = "lblAnh"
|
Me.lblAnh.Name = "lblAnh"
|
||||||
Me.lblAnh.Size = New System.Drawing.Size(135, 13)
|
Me.lblAnh.Size = New System.Drawing.Size(135, 13)
|
||||||
Me.lblAnh.TabIndex = 151
|
Me.lblAnh.TabIndex = 151
|
||||||
Me.lblAnh.Visible = False
|
Me.lblAnh.Visible = False
|
||||||
'
|
'
|
||||||
'Button3
|
|
||||||
'
|
|
||||||
Me.Button3.Location = New System.Drawing.Point(470, 575)
|
|
||||||
Me.Button3.Name = "Button3"
|
|
||||||
Me.Button3.Size = New System.Drawing.Size(111, 23)
|
|
||||||
Me.Button3.TabIndex = 152
|
|
||||||
Me.Button3.Text = "alle Anh. selekt."
|
|
||||||
Me.Button3.UseVisualStyleBackColor = True
|
|
||||||
'
|
|
||||||
'frmATEZ_NCTS
|
'frmATEZ_NCTS
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
|
||||||
Me.ClientSize = New System.Drawing.Size(589, 819)
|
Me.ClientSize = New System.Drawing.Size(589, 842)
|
||||||
|
Me.Controls.Add(Me.Button3)
|
||||||
Me.Controls.Add(Me.lblAnh)
|
Me.Controls.Add(Me.lblAnh)
|
||||||
Me.Controls.Add(Me.pnlHead)
|
Me.Controls.Add(Me.pnlHead)
|
||||||
|
Me.Controls.Add(Me.Label6)
|
||||||
Me.Controls.Add(Me.Button1)
|
Me.Controls.Add(Me.Button1)
|
||||||
Me.Controls.Add(Me.dgvAnhaenge)
|
Me.Controls.Add(Me.dgvAnhaenge)
|
||||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||||
1256
Aviso/ATEZ/frmATEZ_NCTS.resx
Normal file
1256
Aviso/ATEZ/frmATEZ_NCTS.resx
Normal file
File diff suppressed because it is too large
Load Diff
@@ -502,6 +502,18 @@
|
|||||||
<SubType>UserControl</SubType>
|
<SubType>UserControl</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="ApplicationEvents.vb" />
|
<Compile Include="ApplicationEvents.vb" />
|
||||||
|
<Compile Include="ATEZ\frmATEZ_EZA.Designer.vb">
|
||||||
|
<DependentUpon>frmATEZ_EZA.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ATEZ\frmATEZ_EZA.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ATEZ\frmATEZ_NCTS.Designer.vb">
|
||||||
|
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ATEZ\frmATEZ_NCTS.vb">
|
||||||
|
<SubType>Form</SubType>
|
||||||
|
</Compile>
|
||||||
<Compile Include="Auswertung\cStatFunctions.vb" />
|
<Compile Include="Auswertung\cStatFunctions.vb" />
|
||||||
<Compile Include="Auswertung\frmStatFrima.Designer.vb">
|
<Compile Include="Auswertung\frmStatFrima.Designer.vb">
|
||||||
<DependentUpon>frmStatFrima.vb</DependentUpon>
|
<DependentUpon>frmStatFrima.vb</DependentUpon>
|
||||||
@@ -690,12 +702,6 @@
|
|||||||
<Compile Include="frmDigicust.vb">
|
<Compile Include="frmDigicust.vb">
|
||||||
<SubType>Form</SubType>
|
<SubType>Form</SubType>
|
||||||
</Compile>
|
</Compile>
|
||||||
<Compile Include="frmATEZ_NCTS.Designer.vb">
|
|
||||||
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmATEZ_NCTS.vb">
|
|
||||||
<SubType>Form</SubType>
|
|
||||||
</Compile>
|
|
||||||
<Compile Include="frmATZollEingereichtSetzen.Designer.vb">
|
<Compile Include="frmATZollEingereichtSetzen.Designer.vb">
|
||||||
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
|
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
|
||||||
</Compile>
|
</Compile>
|
||||||
@@ -1226,6 +1232,12 @@
|
|||||||
<EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
|
<EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
|
||||||
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
|
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="ATEZ\frmATEZ_EZA.resx">
|
||||||
|
<DependentUpon>frmATEZ_EZA.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
|
<EmbeddedResource Include="ATEZ\frmATEZ_NCTS.resx">
|
||||||
|
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
|
||||||
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="Auswertung\frmStatFrima.resx">
|
<EmbeddedResource Include="Auswertung\frmStatFrima.resx">
|
||||||
<DependentUpon>frmStatFrima.vb</DependentUpon>
|
<DependentUpon>frmStatFrima.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
@@ -1305,9 +1317,6 @@
|
|||||||
<EmbeddedResource Include="frmDigicust.resx">
|
<EmbeddedResource Include="frmDigicust.resx">
|
||||||
<DependentUpon>frmDigicust.vb</DependentUpon>
|
<DependentUpon>frmDigicust.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
<EmbeddedResource Include="frmATEZ_NCTS.resx">
|
|
||||||
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
|
|
||||||
</EmbeddedResource>
|
|
||||||
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
|
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
|
||||||
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
|
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
|
||||||
</EmbeddedResource>
|
</EmbeddedResource>
|
||||||
@@ -1728,6 +1737,7 @@
|
|||||||
<None Include="Resources\ambar_boarder.png">
|
<None Include="Resources\ambar_boarder.png">
|
||||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||||
</None>
|
</None>
|
||||||
|
<None Include="Resources\Declarant.png" />
|
||||||
<Content Include="Resources\FO.png">
|
<Content Include="Resources\FO.png">
|
||||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||||
</Content>
|
</Content>
|
||||||
@@ -1748,6 +1758,7 @@
|
|||||||
<None Include="Resources\reminder.png" />
|
<None Include="Resources\reminder.png" />
|
||||||
<None Include="Resources\qr.png" />
|
<None Include="Resources\qr.png" />
|
||||||
<None Include="Resources\qr_s.png" />
|
<None Include="Resources\qr_s.png" />
|
||||||
|
<None Include="Resources\Transcode.png" />
|
||||||
<Content Include="Resources\WLAN\RunNHide.exe">
|
<Content Include="Resources\WLAN\RunNHide.exe">
|
||||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||||
</Content>
|
</Content>
|
||||||
|
|||||||
20
Aviso/My Project/Resources.Designer.vb
generated
20
Aviso/My Project/Resources.Designer.vb
generated
@@ -488,6 +488,16 @@ Namespace My.Resources
|
|||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Public ReadOnly Property Declarant() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("Declarant", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
'''<summary>
|
'''<summary>
|
||||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
'''</summary>
|
'''</summary>
|
||||||
@@ -1648,6 +1658,16 @@ Namespace My.Resources
|
|||||||
End Get
|
End Get
|
||||||
End Property
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||||
|
'''</summary>
|
||||||
|
Public ReadOnly Property Transcode() As System.Drawing.Bitmap
|
||||||
|
Get
|
||||||
|
Dim obj As Object = ResourceManager.GetObject("Transcode", resourceCulture)
|
||||||
|
Return CType(obj,System.Drawing.Bitmap)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
'''<summary>
|
'''<summary>
|
||||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
|
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
|
||||||
'''</summary>
|
'''</summary>
|
||||||
|
|||||||
@@ -250,9 +250,6 @@
|
|||||||
<data name="rhenus" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="rhenus" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\rhenus.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\rhenus.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
<data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
|
||||||
<value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
|
||||||
</data>
|
|
||||||
<data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
<data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
</data>
|
</data>
|
||||||
@@ -700,4 +697,13 @@
|
|||||||
<data name="asdadasda5sd" xml:space="preserve">
|
<data name="asdadasda5sd" xml:space="preserve">
|
||||||
<value />
|
<value />
|
||||||
</data>
|
</data>
|
||||||
|
<data name="Declarant" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
|
<data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||||
|
<value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||||
|
</data>
|
||||||
</root>
|
</root>
|
||||||
BIN
Aviso/Resources/Declarant.png
Normal file
BIN
Aviso/Resources/Declarant.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.9 KiB |
BIN
Aviso/Resources/Transcode.png
Normal file
BIN
Aviso/Resources/Transcode.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.4 KiB |
@@ -2573,20 +2573,28 @@ ELSE_ATILLA:
|
|||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
|
Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
|
||||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
|
||||||
|
Return
|
||||||
For Each ft As Form In Application.OpenForms
|
|
||||||
If ft.GetType.ToString = "SDL.frmSpeditionsbuchSuche" Then
|
|
||||||
ft.BringToFront()
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
Me.Cursor = Cursors.WaitCursor
|
|
||||||
Dim sped As New SDL.frmSpeditionsbuchSuche
|
|
||||||
sped.Show()
|
|
||||||
Me.Cursor = Cursors.Default
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
For Each ft As Form In Application.OpenForms
|
||||||
|
If TypeOf ft Is SDL.frmSpeditionsbuchSuche Then
|
||||||
|
ft.BringToFront()
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Me.Cursor = Cursors.WaitCursor
|
||||||
|
|
||||||
|
Dim spedForm As New SDL.frmSpeditionsbuchSuche()
|
||||||
|
|
||||||
|
AddHandler spedForm.SendungsdetailsRequested, AddressOf OnSendungsdetailsRequested
|
||||||
|
|
||||||
|
|
||||||
|
spedForm.Show()
|
||||||
|
|
||||||
|
Me.Cursor = Cursors.Default
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Declare Function ShowWindow Lib "user32" _
|
Private Declare Function ShowWindow Lib "user32" _
|
||||||
@@ -5274,6 +5282,12 @@ ELSE_ATILLA:
|
|||||||
Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click
|
Private Sub ATILLASENDUNGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLASENDUNGToolStripMenuItem.Click
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
|
VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub OnSendungsdetailsRequested(ByVal AvisoId As Integer, ByVal SendungId As Integer)
|
||||||
|
Dim detailForm As New frmSendungsdetailsNEU(AvisoId, SendungId)
|
||||||
|
detailForm.Show()
|
||||||
|
End Sub
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|
||||||
Public Class AvisoStatusFunctions
|
Public Class AvisoStatusFunctions
|
||||||
|
|||||||
566
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
566
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
@@ -24,29 +24,29 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Private Sub InitializeComponent()
|
Private Sub InitializeComponent()
|
||||||
Me.components = New System.ComponentModel.Container()
|
Me.components = New System.ComponentModel.Container()
|
||||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
|
||||||
Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle85 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle60 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle86 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle63 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle87 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle88 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle89 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle91 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle92 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle69 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Dim DataGridViewCellStyle90 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
Dim DataGridViewCellStyle67 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||||
Me.pnl = New System.Windows.Forms.Panel()
|
Me.pnl = New System.Windows.Forms.Panel()
|
||||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||||
@@ -80,23 +80,26 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.Button6 = New System.Windows.Forms.Button()
|
Me.Button6 = New System.Windows.Forms.Button()
|
||||||
Me.Button5 = New System.Windows.Forms.Button()
|
Me.Button5 = New System.Windows.Forms.Button()
|
||||||
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
|
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
|
||||||
Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.toolSendDyEZA = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.toolSendDyNCTS = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.toolSendDyAES = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem33 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.toolSendDyEXG = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.toolSendTelotec = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem18 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem18 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.toolSendMIC = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem22 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem22 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem23 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem24 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem24 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem31 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.toolSendDyModelTrans = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.toolModal_Import = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.toolModal_Export = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
|
Me.toolModal_Transit = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.ToolStripMenuItem32 = New System.Windows.Forms.ToolStripMenuItem()
|
Me.ToolStripMenuItem32 = New System.Windows.Forms.ToolStripMenuItem()
|
||||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||||
@@ -137,7 +140,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.tbATEZ = New System.Windows.Forms.TabPage()
|
Me.tbATEZ = New System.Windows.Forms.TabPage()
|
||||||
Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView()
|
Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView()
|
||||||
Me.Panel23 = New System.Windows.Forms.Panel()
|
Me.Panel23 = New System.Windows.Forms.Panel()
|
||||||
Me.Button20 = New System.Windows.Forms.Button()
|
Me.btnATEZNewEZA = New System.Windows.Forms.Button()
|
||||||
Me.btnATEZNew = New System.Windows.Forms.Button()
|
Me.btnATEZNew = New System.Windows.Forms.Button()
|
||||||
Me.tbDigicust = New System.Windows.Forms.TabPage()
|
Me.tbDigicust = New System.Windows.Forms.TabPage()
|
||||||
Me.dgvDigicust = New System.Windows.Forms.DataGridView()
|
Me.dgvDigicust = New System.Windows.Forms.DataGridView()
|
||||||
@@ -495,7 +498,6 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||||
Me.ToolStripMenuItem34 = New System.Windows.Forms.ToolStripMenuItem()
|
|
||||||
Me.pnl.SuspendLayout()
|
Me.pnl.SuspendLayout()
|
||||||
Me.Panel4.SuspendLayout()
|
Me.Panel4.SuspendLayout()
|
||||||
Me.TabControl1.SuspendLayout()
|
Me.TabControl1.SuspendLayout()
|
||||||
@@ -995,38 +997,38 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'MenuStrip
|
'MenuStrip
|
||||||
'
|
'
|
||||||
Me.MenuStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
|
Me.MenuStrip.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||||
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem13, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.ToolStripMenuItem11, Me.ToolStripMenuItem33, Me.ToolStripMenuItem17, Me.ToolStripMenuItem21, Me.ToolStripMenuItem31, Me.ToolStripMenuItem12, Me.ToolStripMenuItem32, Me.ToolStripMenuItem34})
|
Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolSendDyEZA, Me.toolSendDyNCTS, Me.ToolStripMenuItem6, Me.toolSendDyAES, Me.toolSendDyEXG, Me.toolSendTelotec, Me.toolSendMIC, Me.toolSendDyModelTrans, Me.ToolStripMenuItem12, Me.ToolStripMenuItem32})
|
||||||
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
|
Me.MenuStrip.Location = New System.Drawing.Point(0, 0)
|
||||||
Me.MenuStrip.Name = "MenuStrip"
|
Me.MenuStrip.Name = "MenuStrip"
|
||||||
Me.MenuStrip.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
|
Me.MenuStrip.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
|
||||||
Me.MenuStrip.Size = New System.Drawing.Size(1206, 32)
|
Me.MenuStrip.Size = New System.Drawing.Size(1206, 32)
|
||||||
Me.MenuStrip.TabIndex = 0
|
Me.MenuStrip.TabIndex = 0
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem13
|
'toolSendDyEZA
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem13.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.toolSendDyEZA.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
|
Me.toolSendDyEZA.Name = "toolSendDyEZA"
|
||||||
Me.ToolStripMenuItem13.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
Me.toolSendDyEZA.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
||||||
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(78, 28)
|
Me.toolSendDyEZA.Size = New System.Drawing.Size(78, 28)
|
||||||
Me.ToolStripMenuItem13.Text = " EZA"
|
Me.toolSendDyEZA.Text = " EZA"
|
||||||
Me.ToolStripMenuItem13.ToolTipText = "Neue Zollanmeldung"
|
Me.toolSendDyEZA.ToolTipText = "Neue Zollanmeldung"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem7
|
'toolSendDyNCTS
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem7.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10})
|
Me.toolSendDyNCTS.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10})
|
||||||
Me.ToolStripMenuItem7.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.toolSendDyNCTS.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
|
Me.toolSendDyNCTS.Name = "toolSendDyNCTS"
|
||||||
Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
Me.toolSendDyNCTS.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
||||||
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(87, 28)
|
Me.toolSendDyNCTS.Size = New System.Drawing.Size(86, 28)
|
||||||
Me.ToolStripMenuItem7.Text = " NCTS"
|
Me.toolSendDyNCTS.Text = " NCTS"
|
||||||
Me.ToolStripMenuItem7.ToolTipText = "Neue Zollanmeldung"
|
Me.toolSendDyNCTS.ToolTipText = "Neue Zollanmeldung"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem8
|
'ToolStripMenuItem8
|
||||||
'
|
'
|
||||||
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(102, 30)
|
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem8.Text = "T1"
|
Me.ToolStripMenuItem8.Text = "T1"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem9
|
'ToolStripMenuItem9
|
||||||
@@ -1034,7 +1036,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(102, 30)
|
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem9.Text = "T2"
|
Me.ToolStripMenuItem9.Text = "T2"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem10
|
'ToolStripMenuItem10
|
||||||
@@ -1042,7 +1044,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(102, 30)
|
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem10.Text = "Ü-T"
|
Me.ToolStripMenuItem10.Text = "Ü-T"
|
||||||
Me.ToolStripMenuItem10.Visible = False
|
Me.ToolStripMenuItem10.Visible = False
|
||||||
'
|
'
|
||||||
@@ -1057,37 +1059,37 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.ToolStripMenuItem6.ToolTipText = "Neue Zollanmeldung"
|
Me.ToolStripMenuItem6.ToolTipText = "Neue Zollanmeldung"
|
||||||
Me.ToolStripMenuItem6.Visible = False
|
Me.ToolStripMenuItem6.Visible = False
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem11
|
'toolSendDyAES
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem11.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.toolSendDyAES.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
|
Me.toolSendDyAES.Name = "toolSendDyAES"
|
||||||
Me.ToolStripMenuItem11.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
Me.toolSendDyAES.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
||||||
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(77, 28)
|
Me.toolSendDyAES.Size = New System.Drawing.Size(77, 28)
|
||||||
Me.ToolStripMenuItem11.Text = " AES"
|
Me.toolSendDyAES.Text = " AES"
|
||||||
Me.ToolStripMenuItem11.ToolTipText = "Neue Zollanmeldung"
|
Me.toolSendDyAES.ToolTipText = "Neue Zollanmeldung"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem33
|
'toolSendDyEXG
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem33.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.toolSendDyEXG.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem33.Name = "ToolStripMenuItem33"
|
Me.toolSendDyEXG.Name = "toolSendDyEXG"
|
||||||
Me.ToolStripMenuItem33.Size = New System.Drawing.Size(64, 28)
|
Me.toolSendDyEXG.Size = New System.Drawing.Size(64, 28)
|
||||||
Me.ToolStripMenuItem33.Text = "EXG"
|
Me.toolSendDyEXG.Text = "EXG"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem17
|
'toolSendTelotec
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem17.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem20, Me.ToolStripMenuItem18, Me.ToolStripMenuItem19})
|
Me.toolSendTelotec.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem20, Me.ToolStripMenuItem18, Me.ToolStripMenuItem19})
|
||||||
Me.ToolStripMenuItem17.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.toolSendTelotec.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17"
|
Me.toolSendTelotec.Name = "toolSendTelotec"
|
||||||
Me.ToolStripMenuItem17.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
Me.toolSendTelotec.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
||||||
Me.ToolStripMenuItem17.Size = New System.Drawing.Size(105, 28)
|
Me.toolSendTelotec.Size = New System.Drawing.Size(103, 28)
|
||||||
Me.ToolStripMenuItem17.Text = " TELOTEC"
|
Me.toolSendTelotec.Text = " TELOTEC"
|
||||||
Me.ToolStripMenuItem17.ToolTipText = "Neue Zollanmeldung"
|
Me.toolSendTelotec.ToolTipText = "Neue Zollanmeldung"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem20
|
'ToolStripMenuItem20
|
||||||
'
|
'
|
||||||
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(103, 30)
|
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem20.Text = "EZA"
|
Me.ToolStripMenuItem20.Text = "EZA"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem18
|
'ToolStripMenuItem18
|
||||||
@@ -1096,7 +1098,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(103, 30)
|
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem18.Text = "T1"
|
Me.ToolStripMenuItem18.Text = "T1"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem19
|
'ToolStripMenuItem19
|
||||||
@@ -1105,24 +1107,25 @@ 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(103, 30)
|
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem19.Text = "T2"
|
Me.ToolStripMenuItem19.Text = "T2"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem21
|
'toolSendMIC
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem21.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem22, Me.ToolStripMenuItem23, Me.ToolStripMenuItem24})
|
Me.toolSendMIC.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem22, Me.ToolStripMenuItem23, Me.ToolStripMenuItem24})
|
||||||
Me.ToolStripMenuItem21.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.toolSendMIC.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
|
Me.toolSendMIC.Name = "toolSendMIC"
|
||||||
Me.ToolStripMenuItem21.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
Me.toolSendMIC.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
||||||
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(79, 28)
|
Me.toolSendMIC.Size = New System.Drawing.Size(79, 28)
|
||||||
Me.ToolStripMenuItem21.Text = " MIC"
|
Me.toolSendMIC.Text = " MIC"
|
||||||
Me.ToolStripMenuItem21.ToolTipText = "Neue Zollanmeldung"
|
Me.toolSendMIC.ToolTipText = "Neue Zollanmeldung"
|
||||||
|
Me.toolSendMIC.Visible = False
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem22
|
'ToolStripMenuItem22
|
||||||
'
|
'
|
||||||
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(184, 30)
|
Me.ToolStripMenuItem22.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem22.Text = "MIC Import senden"
|
Me.ToolStripMenuItem22.Text = "MIC Import senden"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem23
|
'ToolStripMenuItem23
|
||||||
@@ -1130,7 +1133,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(184, 30)
|
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem23.Text = "MIC Transit senden"
|
Me.ToolStripMenuItem23.Text = "MIC Transit senden"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem24
|
'ToolStripMenuItem24
|
||||||
@@ -1139,23 +1142,45 @@ 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(184, 30)
|
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(188, 30)
|
||||||
Me.ToolStripMenuItem24.Text = "MIC Export senden"
|
Me.ToolStripMenuItem24.Text = "MIC Export senden"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem31
|
'toolSendDyModelTrans
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem31.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.toolSendDyModelTrans.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolModal_Import, Me.toolModal_Export, Me.toolModal_Transit})
|
||||||
Me.ToolStripMenuItem31.Name = "ToolStripMenuItem31"
|
Me.toolSendDyModelTrans.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem31.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
Me.toolSendDyModelTrans.Name = "toolSendDyModelTrans"
|
||||||
Me.ToolStripMenuItem31.Size = New System.Drawing.Size(117, 28)
|
Me.toolSendDyModelTrans.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
||||||
Me.ToolStripMenuItem31.Text = " Modaltrans"
|
Me.toolSendDyModelTrans.Size = New System.Drawing.Size(117, 28)
|
||||||
Me.ToolStripMenuItem31.ToolTipText = "Neue Zollanmeldung"
|
Me.toolSendDyModelTrans.Text = " Modaltrans"
|
||||||
|
Me.toolSendDyModelTrans.ToolTipText = "Neue Zollanmeldung"
|
||||||
|
'
|
||||||
|
'toolModal_Import
|
||||||
|
'
|
||||||
|
Me.toolModal_Import.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||||
|
Me.toolModal_Import.Name = "toolModal_Import"
|
||||||
|
Me.toolModal_Import.Size = New System.Drawing.Size(188, 30)
|
||||||
|
Me.toolModal_Import.Text = "IMPORT"
|
||||||
|
'
|
||||||
|
'toolModal_Export
|
||||||
|
'
|
||||||
|
Me.toolModal_Export.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||||
|
Me.toolModal_Export.Name = "toolModal_Export"
|
||||||
|
Me.toolModal_Export.Size = New System.Drawing.Size(188, 30)
|
||||||
|
Me.toolModal_Export.Text = "EXPORT"
|
||||||
|
'
|
||||||
|
'toolModal_Transit
|
||||||
|
'
|
||||||
|
Me.toolModal_Transit.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
|
||||||
|
Me.toolModal_Transit.Name = "toolModal_Transit"
|
||||||
|
Me.toolModal_Transit.Size = New System.Drawing.Size(188, 30)
|
||||||
|
Me.toolModal_Transit.Text = "TRANSIT (T1)"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem12
|
'ToolStripMenuItem12
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
|
Me.ToolStripMenuItem12.Name = "ToolStripMenuItem12"
|
||||||
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(76, 28)
|
Me.ToolStripMenuItem12.Size = New System.Drawing.Size(75, 28)
|
||||||
Me.ToolStripMenuItem12.Text = " ATEZ"
|
Me.ToolStripMenuItem12.Text = " ATEZ"
|
||||||
Me.ToolStripMenuItem12.ToolTipText = "Logbuch"
|
Me.ToolStripMenuItem12.ToolTipText = "Logbuch"
|
||||||
'
|
'
|
||||||
@@ -1608,18 +1633,18 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.gridVermerke.AllowUserToAddRows = False
|
Me.gridVermerke.AllowUserToAddRows = False
|
||||||
Me.gridVermerke.AllowUserToDeleteRows = False
|
Me.gridVermerke.AllowUserToDeleteRows = False
|
||||||
Me.gridVermerke.AllowUserToResizeRows = False
|
Me.gridVermerke.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle70.BackColor = System.Drawing.Color.Azure
|
DataGridViewCellStyle50.BackColor = System.Drawing.Color.Azure
|
||||||
DataGridViewCellStyle70.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle70
|
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle50
|
||||||
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
|
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle71.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle51.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle71.BackColor = System.Drawing.Color.LightBlue
|
DataGridViewCellStyle51.BackColor = System.Drawing.Color.LightBlue
|
||||||
DataGridViewCellStyle71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
DataGridViewCellStyle51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||||
DataGridViewCellStyle71.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle51.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle71.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle51.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle71.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle51.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle71.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle71
|
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle51
|
||||||
Me.gridVermerke.ColumnHeadersHeight = 29
|
Me.gridVermerke.ColumnHeadersHeight = 29
|
||||||
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||||
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
@@ -1630,8 +1655,8 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.gridVermerke.RowHeadersVisible = False
|
Me.gridVermerke.RowHeadersVisible = False
|
||||||
Me.gridVermerke.RowHeadersWidth = 51
|
Me.gridVermerke.RowHeadersWidth = 51
|
||||||
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||||
DataGridViewCellStyle72.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle72
|
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle52
|
||||||
Me.gridVermerke.RowTemplate.Height = 20
|
Me.gridVermerke.RowTemplate.Height = 20
|
||||||
Me.gridVermerke.RowTemplate.ReadOnly = True
|
Me.gridVermerke.RowTemplate.ReadOnly = True
|
||||||
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
@@ -1659,18 +1684,18 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvATEZNCTS.AllowUserToAddRows = False
|
Me.dgvATEZNCTS.AllowUserToAddRows = False
|
||||||
Me.dgvATEZNCTS.AllowUserToDeleteRows = False
|
Me.dgvATEZNCTS.AllowUserToDeleteRows = False
|
||||||
Me.dgvATEZNCTS.AllowUserToResizeRows = False
|
Me.dgvATEZNCTS.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle73.BackColor = System.Drawing.Color.Azure
|
DataGridViewCellStyle47.BackColor = System.Drawing.Color.Azure
|
||||||
DataGridViewCellStyle73.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle73
|
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle47
|
||||||
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
|
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle74.BackColor = System.Drawing.Color.LightBlue
|
DataGridViewCellStyle48.BackColor = System.Drawing.Color.LightBlue
|
||||||
DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
DataGridViewCellStyle48.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||||
DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle48.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle74
|
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle48
|
||||||
Me.dgvATEZNCTS.ColumnHeadersHeight = 29
|
Me.dgvATEZNCTS.ColumnHeadersHeight = 29
|
||||||
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||||
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
@@ -1681,8 +1706,8 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvATEZNCTS.RowHeadersVisible = False
|
Me.dgvATEZNCTS.RowHeadersVisible = False
|
||||||
Me.dgvATEZNCTS.RowHeadersWidth = 51
|
Me.dgvATEZNCTS.RowHeadersWidth = 51
|
||||||
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||||
DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle75
|
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle49
|
||||||
Me.dgvATEZNCTS.RowTemplate.Height = 20
|
Me.dgvATEZNCTS.RowTemplate.Height = 20
|
||||||
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
|
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
|
||||||
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
@@ -1695,7 +1720,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'
|
'
|
||||||
'Panel23
|
'Panel23
|
||||||
'
|
'
|
||||||
Me.Panel23.Controls.Add(Me.Button20)
|
Me.Panel23.Controls.Add(Me.btnATEZNewEZA)
|
||||||
Me.Panel23.Controls.Add(Me.btnATEZNew)
|
Me.Panel23.Controls.Add(Me.btnATEZNew)
|
||||||
Me.Panel23.Dock = System.Windows.Forms.DockStyle.Top
|
Me.Panel23.Dock = System.Windows.Forms.DockStyle.Top
|
||||||
Me.Panel23.Location = New System.Drawing.Point(3, 3)
|
Me.Panel23.Location = New System.Drawing.Point(3, 3)
|
||||||
@@ -1703,20 +1728,20 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.Panel23.Size = New System.Drawing.Size(1200, 45)
|
Me.Panel23.Size = New System.Drawing.Size(1200, 45)
|
||||||
Me.Panel23.TabIndex = 106
|
Me.Panel23.TabIndex = 106
|
||||||
'
|
'
|
||||||
'Button20
|
'btnATEZNewEZA
|
||||||
'
|
'
|
||||||
Me.Button20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
Me.btnATEZNewEZA.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||||
Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.btnATEZNewEZA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
Me.Button20.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.btnATEZNewEZA.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.Button20.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
Me.btnATEZNewEZA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||||
Me.Button20.Location = New System.Drawing.Point(145, 8)
|
Me.btnATEZNewEZA.Location = New System.Drawing.Point(145, 8)
|
||||||
Me.Button20.Name = "Button20"
|
Me.btnATEZNewEZA.Name = "btnATEZNewEZA"
|
||||||
Me.Button20.Size = New System.Drawing.Size(136, 34)
|
Me.btnATEZNewEZA.Size = New System.Drawing.Size(136, 34)
|
||||||
Me.Button20.TabIndex = 9
|
Me.btnATEZNewEZA.TabIndex = 9
|
||||||
Me.Button20.Text = "ATEZ-EZA"
|
Me.btnATEZNewEZA.Text = "ATEZ-EZA"
|
||||||
Me.Button20.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
Me.btnATEZNewEZA.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||||
Me.Button20.UseVisualStyleBackColor = True
|
Me.btnATEZNewEZA.UseVisualStyleBackColor = True
|
||||||
Me.Button20.Visible = False
|
Me.btnATEZNewEZA.Visible = False
|
||||||
'
|
'
|
||||||
'btnATEZNew
|
'btnATEZNew
|
||||||
'
|
'
|
||||||
@@ -1749,18 +1774,18 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvDigicust.AllowUserToAddRows = False
|
Me.dgvDigicust.AllowUserToAddRows = False
|
||||||
Me.dgvDigicust.AllowUserToDeleteRows = False
|
Me.dgvDigicust.AllowUserToDeleteRows = False
|
||||||
Me.dgvDigicust.AllowUserToResizeRows = False
|
Me.dgvDigicust.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle76.BackColor = System.Drawing.Color.Azure
|
DataGridViewCellStyle53.BackColor = System.Drawing.Color.Azure
|
||||||
DataGridViewCellStyle76.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle76
|
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
|
||||||
Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
|
Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle54.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle77.BackColor = System.Drawing.Color.LightBlue
|
DataGridViewCellStyle54.BackColor = System.Drawing.Color.LightBlue
|
||||||
DataGridViewCellStyle77.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
DataGridViewCellStyle54.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||||
DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle54.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle54.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle54.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle54.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle77
|
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle54
|
||||||
Me.dgvDigicust.ColumnHeadersHeight = 29
|
Me.dgvDigicust.ColumnHeadersHeight = 29
|
||||||
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||||
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
@@ -1771,8 +1796,8 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvDigicust.RowHeadersVisible = False
|
Me.dgvDigicust.RowHeadersVisible = False
|
||||||
Me.dgvDigicust.RowHeadersWidth = 51
|
Me.dgvDigicust.RowHeadersWidth = 51
|
||||||
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||||
DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle78
|
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle55
|
||||||
Me.dgvDigicust.RowTemplate.Height = 20
|
Me.dgvDigicust.RowTemplate.Height = 20
|
||||||
Me.dgvDigicust.RowTemplate.ReadOnly = True
|
Me.dgvDigicust.RowTemplate.ReadOnly = True
|
||||||
Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
@@ -1824,18 +1849,18 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvMail.AllowUserToAddRows = False
|
Me.dgvMail.AllowUserToAddRows = False
|
||||||
Me.dgvMail.AllowUserToDeleteRows = False
|
Me.dgvMail.AllowUserToDeleteRows = False
|
||||||
Me.dgvMail.AllowUserToResizeRows = False
|
Me.dgvMail.AllowUserToResizeRows = False
|
||||||
DataGridViewCellStyle79.BackColor = System.Drawing.Color.Azure
|
DataGridViewCellStyle56.BackColor = System.Drawing.Color.Azure
|
||||||
DataGridViewCellStyle79.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle79
|
Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
|
||||||
Me.dgvMail.BackgroundColor = System.Drawing.Color.White
|
Me.dgvMail.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle80.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle80.BackColor = System.Drawing.Color.LightBlue
|
DataGridViewCellStyle57.BackColor = System.Drawing.Color.LightBlue
|
||||||
DataGridViewCellStyle80.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
DataGridViewCellStyle57.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||||
DataGridViewCellStyle80.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle80.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle57.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle80.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle57.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle80.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle80
|
Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle57
|
||||||
Me.dgvMail.ColumnHeadersHeight = 29
|
Me.dgvMail.ColumnHeadersHeight = 29
|
||||||
Me.dgvMail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
Me.dgvMail.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||||
Me.dgvMail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSender, Me.clmnRec, Me.clmnSbj, Me.clmnAtt, Me.clmnUIDL})
|
Me.dgvMail.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnSender, Me.clmnRec, Me.clmnSbj, Me.clmnAtt, Me.clmnUIDL})
|
||||||
@@ -1847,8 +1872,8 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvMail.RowHeadersVisible = False
|
Me.dgvMail.RowHeadersVisible = False
|
||||||
Me.dgvMail.RowHeadersWidth = 51
|
Me.dgvMail.RowHeadersWidth = 51
|
||||||
Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||||
DataGridViewCellStyle81.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle58.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle81
|
Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle58
|
||||||
Me.dgvMail.RowTemplate.Height = 20
|
Me.dgvMail.RowTemplate.Height = 20
|
||||||
Me.dgvMail.RowTemplate.ReadOnly = True
|
Me.dgvMail.RowTemplate.ReadOnly = True
|
||||||
Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
@@ -2675,36 +2700,36 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvAbrechnung.AllowUserToResizeColumns = False
|
Me.dgvAbrechnung.AllowUserToResizeColumns = False
|
||||||
Me.dgvAbrechnung.AllowUserToResizeRows = False
|
Me.dgvAbrechnung.AllowUserToResizeRows = False
|
||||||
Me.dgvAbrechnung.BackgroundColor = System.Drawing.Color.White
|
Me.dgvAbrechnung.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle82.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle59.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle82.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle59.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle82.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle59.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle82.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle59.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle82.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle59.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle82.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle59.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle82.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle59.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvAbrechnung.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle82
|
Me.dgvAbrechnung.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle59
|
||||||
Me.dgvAbrechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvAbrechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
Me.dgvAbrechnung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAbrId, Me.clmnAbrFirma, Me.clmnAbrLeistungsNr, Me.clmnAbrLeistung, Me.clmnAbrPreis})
|
Me.dgvAbrechnung.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnAbrId, Me.clmnAbrFirma, Me.clmnAbrLeistungsNr, Me.clmnAbrLeistung, Me.clmnAbrPreis})
|
||||||
DataGridViewCellStyle84.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle61.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle84.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle61.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle84.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle84.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle61.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle84.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle61.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle84.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle61.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle84.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvAbrechnung.DefaultCellStyle = DataGridViewCellStyle84
|
Me.dgvAbrechnung.DefaultCellStyle = DataGridViewCellStyle61
|
||||||
Me.dgvAbrechnung.Location = New System.Drawing.Point(6, 35)
|
Me.dgvAbrechnung.Location = New System.Drawing.Point(6, 35)
|
||||||
Me.dgvAbrechnung.MultiSelect = False
|
Me.dgvAbrechnung.MultiSelect = False
|
||||||
Me.dgvAbrechnung.Name = "dgvAbrechnung"
|
Me.dgvAbrechnung.Name = "dgvAbrechnung"
|
||||||
Me.dgvAbrechnung.ReadOnly = True
|
Me.dgvAbrechnung.ReadOnly = True
|
||||||
DataGridViewCellStyle85.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle85.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle62.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle85.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle85.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle85.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle85.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle62.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle85.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvAbrechnung.RowHeadersDefaultCellStyle = DataGridViewCellStyle85
|
Me.dgvAbrechnung.RowHeadersDefaultCellStyle = DataGridViewCellStyle62
|
||||||
Me.dgvAbrechnung.RowHeadersVisible = False
|
Me.dgvAbrechnung.RowHeadersVisible = False
|
||||||
Me.dgvAbrechnung.RowHeadersWidth = 51
|
Me.dgvAbrechnung.RowHeadersWidth = 51
|
||||||
Me.dgvAbrechnung.RowTemplate.Height = 18
|
Me.dgvAbrechnung.RowTemplate.Height = 18
|
||||||
@@ -2746,8 +2771,8 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'
|
'
|
||||||
'clmnAbrPreis
|
'clmnAbrPreis
|
||||||
'
|
'
|
||||||
DataGridViewCellStyle83.Format = "C2"
|
DataGridViewCellStyle60.Format = "C2"
|
||||||
Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle83
|
Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle60
|
||||||
Me.clmnAbrPreis.HeaderText = "Preis"
|
Me.clmnAbrPreis.HeaderText = "Preis"
|
||||||
Me.clmnAbrPreis.MaxInputLength = 15
|
Me.clmnAbrPreis.MaxInputLength = 15
|
||||||
Me.clmnAbrPreis.MinimumWidth = 6
|
Me.clmnAbrPreis.MinimumWidth = 6
|
||||||
@@ -2776,35 +2801,35 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvBelege.AllowUserToResizeColumns = False
|
Me.dgvBelege.AllowUserToResizeColumns = False
|
||||||
Me.dgvBelege.AllowUserToResizeRows = False
|
Me.dgvBelege.AllowUserToResizeRows = False
|
||||||
Me.dgvBelege.BackgroundColor = System.Drawing.Color.White
|
Me.dgvBelege.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle86.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle63.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle86.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle63.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle86.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle86.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle63.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle86.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle63.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle86.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle63.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle86.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle63.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle86
|
Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle63
|
||||||
Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
DataGridViewCellStyle87.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle64.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle87.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle64.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle87.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle87.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle64.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle87.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle64.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle87.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle64.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle87.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle64.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle87
|
Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle64
|
||||||
Me.dgvBelege.Location = New System.Drawing.Point(6, 40)
|
Me.dgvBelege.Location = New System.Drawing.Point(6, 40)
|
||||||
Me.dgvBelege.MultiSelect = False
|
Me.dgvBelege.MultiSelect = False
|
||||||
Me.dgvBelege.Name = "dgvBelege"
|
Me.dgvBelege.Name = "dgvBelege"
|
||||||
Me.dgvBelege.ReadOnly = True
|
Me.dgvBelege.ReadOnly = True
|
||||||
DataGridViewCellStyle88.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle65.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle88.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle65.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle88.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle88.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle65.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle88.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle65.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle88.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle65.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle88.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle65.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle88
|
Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle65
|
||||||
Me.dgvBelege.RowHeadersVisible = False
|
Me.dgvBelege.RowHeadersVisible = False
|
||||||
Me.dgvBelege.RowHeadersWidth = 51
|
Me.dgvBelege.RowHeadersWidth = 51
|
||||||
Me.dgvBelege.RowTemplate.Height = 18
|
Me.dgvBelege.RowTemplate.Height = 18
|
||||||
@@ -2979,36 +3004,36 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.dgvVorkosten.AllowUserToResizeColumns = False
|
Me.dgvVorkosten.AllowUserToResizeColumns = False
|
||||||
Me.dgvVorkosten.AllowUserToResizeRows = False
|
Me.dgvVorkosten.AllowUserToResizeRows = False
|
||||||
Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
|
Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
|
||||||
DataGridViewCellStyle89.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle66.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle89.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle66.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle89.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle89.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle66.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle89.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle66.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle89.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle66.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle89.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle66.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle89
|
Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle66
|
||||||
Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
Me.dgvVorkosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||||
Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis})
|
Me.dgvVorkosten.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnVK_id, Me.clmnFirma, Me.clmnLeistung, Me.clmnPreis})
|
||||||
DataGridViewCellStyle91.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle91.BackColor = System.Drawing.SystemColors.Window
|
DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Window
|
||||||
DataGridViewCellStyle91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle91.ForeColor = System.Drawing.SystemColors.ControlText
|
DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.ControlText
|
||||||
DataGridViewCellStyle91.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle91.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle91.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||||
Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle91
|
Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle68
|
||||||
Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
|
Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
|
||||||
Me.dgvVorkosten.MultiSelect = False
|
Me.dgvVorkosten.MultiSelect = False
|
||||||
Me.dgvVorkosten.Name = "dgvVorkosten"
|
Me.dgvVorkosten.Name = "dgvVorkosten"
|
||||||
Me.dgvVorkosten.ReadOnly = True
|
Me.dgvVorkosten.ReadOnly = True
|
||||||
DataGridViewCellStyle92.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||||
DataGridViewCellStyle92.BackColor = System.Drawing.SystemColors.Control
|
DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
|
||||||
DataGridViewCellStyle92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
DataGridViewCellStyle92.ForeColor = System.Drawing.SystemColors.WindowText
|
DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
|
||||||
DataGridViewCellStyle92.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||||
DataGridViewCellStyle92.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||||
DataGridViewCellStyle92.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||||
Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle92
|
Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle69
|
||||||
Me.dgvVorkosten.RowHeadersVisible = False
|
Me.dgvVorkosten.RowHeadersVisible = False
|
||||||
Me.dgvVorkosten.RowHeadersWidth = 51
|
Me.dgvVorkosten.RowHeadersWidth = 51
|
||||||
Me.dgvVorkosten.RowTemplate.Height = 18
|
Me.dgvVorkosten.RowTemplate.Height = 18
|
||||||
@@ -3046,8 +3071,8 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'clmnPreis
|
'clmnPreis
|
||||||
'
|
'
|
||||||
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||||
DataGridViewCellStyle90.Format = "C2"
|
DataGridViewCellStyle67.Format = "C2"
|
||||||
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle90
|
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle67
|
||||||
Me.clmnPreis.HeaderText = "Preis"
|
Me.clmnPreis.HeaderText = "Preis"
|
||||||
Me.clmnPreis.MaxInputLength = 15
|
Me.clmnPreis.MaxInputLength = 15
|
||||||
Me.clmnPreis.MinimumWidth = 6
|
Me.clmnPreis.MinimumWidth = 6
|
||||||
@@ -3576,7 +3601,6 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'FlatButton4
|
'FlatButton4
|
||||||
'
|
'
|
||||||
Me.FlatButton4.allowBorder = False
|
Me.FlatButton4.allowBorder = False
|
||||||
Me.FlatButton4.BackgroundImage = CType(resources.GetObject("FlatButton4.BackgroundImage"), System.Drawing.Image)
|
|
||||||
Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
Me.FlatButton4.FlatAppearance.BorderSize = 0
|
Me.FlatButton4.FlatAppearance.BorderSize = 0
|
||||||
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
@@ -3591,7 +3615,6 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'FlatButton1
|
'FlatButton1
|
||||||
'
|
'
|
||||||
Me.FlatButton1.allowBorder = False
|
Me.FlatButton1.allowBorder = False
|
||||||
Me.FlatButton1.BackgroundImage = CType(resources.GetObject("FlatButton1.BackgroundImage"), System.Drawing.Image)
|
|
||||||
Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||||
Me.FlatButton1.FlatAppearance.BorderSize = 0
|
Me.FlatButton1.FlatAppearance.BorderSize = 0
|
||||||
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||||
@@ -5726,7 +5749,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
Me.ToolStripMenuItem4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||||
Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.ToolStripMenuItem4.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
|
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
|
||||||
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 22)
|
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(93, 22)
|
||||||
Me.ToolStripMenuItem4.Text = "T1"
|
Me.ToolStripMenuItem4.Text = "T1"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem5
|
'ToolStripMenuItem5
|
||||||
@@ -5734,7 +5757,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
||||||
Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
|
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
|
||||||
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(94, 22)
|
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(93, 22)
|
||||||
Me.ToolStripMenuItem5.Text = "T2"
|
Me.ToolStripMenuItem5.Text = "T2"
|
||||||
'
|
'
|
||||||
'ÜTToolStripMenuItem
|
'ÜTToolStripMenuItem
|
||||||
@@ -5742,7 +5765,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.ÜTToolStripMenuItem.Enabled = False
|
Me.ÜTToolStripMenuItem.Enabled = False
|
||||||
Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus
|
Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus
|
||||||
Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem"
|
Me.ÜTToolStripMenuItem.Name = "ÜTToolStripMenuItem"
|
||||||
Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(94, 22)
|
Me.ÜTToolStripMenuItem.Size = New System.Drawing.Size(93, 22)
|
||||||
Me.ÜTToolStripMenuItem.Text = "Ü-T"
|
Me.ÜTToolStripMenuItem.Text = "Ü-T"
|
||||||
'
|
'
|
||||||
'NeueZollanmeldungToolStripMenuItem
|
'NeueZollanmeldungToolStripMenuItem
|
||||||
@@ -6009,13 +6032,13 @@ 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.ToolStripMenuItem27, Me.ToolStripMenuItem26, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.CMRBestätigungToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem, Me.ToolStripSeparator1, Me.dynMailsToolStripMenuItem})
|
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem27, Me.ToolStripMenuItem26, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.CMRBestätigungToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem, Me.ToolStripSeparator1, Me.dynMailsToolStripMenuItem})
|
||||||
Me.ContextMenuStrip1.Name = "cntxtAnh"
|
Me.ContextMenuStrip1.Name = "cntxtAnh"
|
||||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(224, 400)
|
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 400)
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem15
|
'ToolStripMenuItem15
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
|
Me.ToolStripMenuItem15.Name = "ToolStripMenuItem15"
|
||||||
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(223, 30)
|
Me.ToolStripMenuItem15.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.ToolStripMenuItem15.Text = "Fremdspeditionen"
|
Me.ToolStripMenuItem15.Text = "Fremdspeditionen"
|
||||||
Me.ToolStripMenuItem15.Visible = False
|
Me.ToolStripMenuItem15.Visible = False
|
||||||
'
|
'
|
||||||
@@ -6024,7 +6047,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.T1BestätigungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitGestellungsgarantieToolStripMenuItem, Me.OhneGestellungsgarantieToolStripMenuItem})
|
Me.T1BestätigungToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MitGestellungsgarantieToolStripMenuItem, Me.OhneGestellungsgarantieToolStripMenuItem})
|
||||||
Me.T1BestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.T1BestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.T1BestätigungToolStripMenuItem.Name = "T1BestätigungToolStripMenuItem"
|
Me.T1BestätigungToolStripMenuItem.Name = "T1BestätigungToolStripMenuItem"
|
||||||
Me.T1BestätigungToolStripMenuItem.Size = New System.Drawing.Size(223, 30)
|
Me.T1BestätigungToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.T1BestätigungToolStripMenuItem.Text = "T1 Bestätigung"
|
Me.T1BestätigungToolStripMenuItem.Text = "T1 Bestätigung"
|
||||||
'
|
'
|
||||||
'MitGestellungsgarantieToolStripMenuItem
|
'MitGestellungsgarantieToolStripMenuItem
|
||||||
@@ -6042,7 +6065,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'SpeditionSUBENToolStripMenuItem
|
'SpeditionSUBENToolStripMenuItem
|
||||||
'
|
'
|
||||||
Me.SpeditionSUBENToolStripMenuItem.Name = "SpeditionSUBENToolStripMenuItem"
|
Me.SpeditionSUBENToolStripMenuItem.Name = "SpeditionSUBENToolStripMenuItem"
|
||||||
Me.SpeditionSUBENToolStripMenuItem.Size = New System.Drawing.Size(223, 30)
|
Me.SpeditionSUBENToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.SpeditionSUBENToolStripMenuItem.Text = "Spedition SUBEN"
|
Me.SpeditionSUBENToolStripMenuItem.Text = "Spedition SUBEN"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem16
|
'ToolStripMenuItem16
|
||||||
@@ -6050,7 +6073,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.ToolStripMenuItem16.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IMEXToolStripMenuItem1, Me.UNISPEDToolStripMenuItem, Me.VERAGToolStripMenuItem})
|
Me.ToolStripMenuItem16.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IMEXToolStripMenuItem1, Me.UNISPEDToolStripMenuItem, Me.VERAGToolStripMenuItem})
|
||||||
Me.ToolStripMenuItem16.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.ToolStripMenuItem16.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16"
|
Me.ToolStripMenuItem16.Name = "ToolStripMenuItem16"
|
||||||
Me.ToolStripMenuItem16.Size = New System.Drawing.Size(223, 30)
|
Me.ToolStripMenuItem16.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.ToolStripMenuItem16.Text = "Neuer LKW"
|
Me.ToolStripMenuItem16.Text = "Neuer LKW"
|
||||||
'
|
'
|
||||||
'IMEXToolStripMenuItem1
|
'IMEXToolStripMenuItem1
|
||||||
@@ -6076,35 +6099,35 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.AuftragATANAKToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATANAKTRFraechter, Me.ATANAKEUFraechter})
|
Me.AuftragATANAKToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ATANAKTRFraechter, Me.ATANAKEUFraechter})
|
||||||
Me.AuftragATANAKToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.AuftragATANAKToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.AuftragATANAKToolStripMenuItem.Name = "AuftragATANAKToolStripMenuItem"
|
Me.AuftragATANAKToolStripMenuItem.Name = "AuftragATANAKToolStripMenuItem"
|
||||||
Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(223, 30)
|
Me.AuftragATANAKToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.AuftragATANAKToolStripMenuItem.Text = "Auftrag DSG/ATANAK (UK)"
|
Me.AuftragATANAKToolStripMenuItem.Text = "Auftrag DSG/ATANAK (UK)"
|
||||||
'
|
'
|
||||||
'ATANAKTRFraechter
|
'ATANAKTRFraechter
|
||||||
'
|
'
|
||||||
Me.ATANAKTRFraechter.Image = CType(resources.GetObject("ATANAKTRFraechter.Image"), System.Drawing.Image)
|
Me.ATANAKTRFraechter.Image = CType(resources.GetObject("ATANAKTRFraechter.Image"), System.Drawing.Image)
|
||||||
Me.ATANAKTRFraechter.Name = "ATANAKTRFraechter"
|
Me.ATANAKTRFraechter.Name = "ATANAKTRFraechter"
|
||||||
Me.ATANAKTRFraechter.Size = New System.Drawing.Size(231, 22)
|
Me.ATANAKTRFraechter.Size = New System.Drawing.Size(230, 22)
|
||||||
Me.ATANAKTRFraechter.Text = "ATANAK (TR Frächter)"
|
Me.ATANAKTRFraechter.Text = "ATANAK (TR Frächter)"
|
||||||
'
|
'
|
||||||
'ATANAKEUFraechter
|
'ATANAKEUFraechter
|
||||||
'
|
'
|
||||||
Me.ATANAKEUFraechter.Image = CType(resources.GetObject("ATANAKEUFraechter.Image"), System.Drawing.Image)
|
Me.ATANAKEUFraechter.Image = CType(resources.GetObject("ATANAKEUFraechter.Image"), System.Drawing.Image)
|
||||||
Me.ATANAKEUFraechter.Name = "ATANAKEUFraechter"
|
Me.ATANAKEUFraechter.Name = "ATANAKEUFraechter"
|
||||||
Me.ATANAKEUFraechter.Size = New System.Drawing.Size(231, 22)
|
Me.ATANAKEUFraechter.Size = New System.Drawing.Size(230, 22)
|
||||||
Me.ATANAKEUFraechter.Text = "ATANAK (EU/andere Frächter)"
|
Me.ATANAKEUFraechter.Text = "ATANAK (EU/andere Frächter)"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem27
|
'ToolStripMenuItem27
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem27.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.ToolStripMenuItem27.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.ToolStripMenuItem27.Name = "ToolStripMenuItem27"
|
Me.ToolStripMenuItem27.Name = "ToolStripMenuItem27"
|
||||||
Me.ToolStripMenuItem27.Size = New System.Drawing.Size(223, 30)
|
Me.ToolStripMenuItem27.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.ToolStripMenuItem27.Text = "Auftrag VIBSEA (BE)"
|
Me.ToolStripMenuItem27.Text = "Auftrag VIBSEA (BE)"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem26
|
'ToolStripMenuItem26
|
||||||
'
|
'
|
||||||
Me.ToolStripMenuItem26.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.ToolStripMenuItem26.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.ToolStripMenuItem26.Name = "ToolStripMenuItem26"
|
Me.ToolStripMenuItem26.Name = "ToolStripMenuItem26"
|
||||||
Me.ToolStripMenuItem26.Size = New System.Drawing.Size(223, 30)
|
Me.ToolStripMenuItem26.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.ToolStripMenuItem26.Text = "Auftrag BBL (FR)"
|
Me.ToolStripMenuItem26.Text = "Auftrag BBL (FR)"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem28
|
'ToolStripMenuItem28
|
||||||
@@ -6112,7 +6135,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.ToolStripMenuItem28.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem29, Me.ToolStripMenuItem30})
|
Me.ToolStripMenuItem28.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem29, Me.ToolStripMenuItem30})
|
||||||
Me.ToolStripMenuItem28.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.ToolStripMenuItem28.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.ToolStripMenuItem28.Name = "ToolStripMenuItem28"
|
Me.ToolStripMenuItem28.Name = "ToolStripMenuItem28"
|
||||||
Me.ToolStripMenuItem28.Size = New System.Drawing.Size(223, 30)
|
Me.ToolStripMenuItem28.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.ToolStripMenuItem28.Text = "GEBR.WEISS (CH) Aviso"
|
Me.ToolStripMenuItem28.Text = "GEBR.WEISS (CH) Aviso"
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem29
|
'ToolStripMenuItem29
|
||||||
@@ -6134,7 +6157,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.ToolStripMenuItem25.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktuelleSendungAnhängeWählenToolStripMenuItem, Me.AlleLEXSendungenLKWToolStripMenuItem})
|
Me.ToolStripMenuItem25.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AktuelleSendungAnhängeWählenToolStripMenuItem, Me.AlleLEXSendungenLKWToolStripMenuItem})
|
||||||
Me.ToolStripMenuItem25.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.ToolStripMenuItem25.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
|
Me.ToolStripMenuItem25.Name = "ToolStripMenuItem25"
|
||||||
Me.ToolStripMenuItem25.Size = New System.Drawing.Size(223, 30)
|
Me.ToolStripMenuItem25.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.ToolStripMenuItem25.Text = "LEX Aviso"
|
Me.ToolStripMenuItem25.Text = "LEX Aviso"
|
||||||
'
|
'
|
||||||
'AktuelleSendungAnhängeWählenToolStripMenuItem
|
'AktuelleSendungAnhängeWählenToolStripMenuItem
|
||||||
@@ -6156,7 +6179,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.GVMSInfoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleEIDRSendungenToolStripMenuItem, Me.AktuelleSendungToolStripMenuItem})
|
Me.GVMSInfoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleEIDRSendungenToolStripMenuItem, Me.AktuelleSendungToolStripMenuItem})
|
||||||
Me.GVMSInfoToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.GVMSInfoToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.GVMSInfoToolStripMenuItem.Name = "GVMSInfoToolStripMenuItem"
|
Me.GVMSInfoToolStripMenuItem.Name = "GVMSInfoToolStripMenuItem"
|
||||||
Me.GVMSInfoToolStripMenuItem.Size = New System.Drawing.Size(223, 30)
|
Me.GVMSInfoToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.GVMSInfoToolStripMenuItem.Text = "GVMS Info"
|
Me.GVMSInfoToolStripMenuItem.Text = "GVMS Info"
|
||||||
'
|
'
|
||||||
'AlleEIDRSendungenToolStripMenuItem
|
'AlleEIDRSendungenToolStripMenuItem
|
||||||
@@ -6177,26 +6200,26 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
'
|
'
|
||||||
Me.CMRBestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.CMRBestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.CMRBestätigungToolStripMenuItem.Name = "CMRBestätigungToolStripMenuItem"
|
Me.CMRBestätigungToolStripMenuItem.Name = "CMRBestätigungToolStripMenuItem"
|
||||||
Me.CMRBestätigungToolStripMenuItem.Size = New System.Drawing.Size(223, 30)
|
Me.CMRBestätigungToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.CMRBestätigungToolStripMenuItem.Text = "CMR Bestätigung"
|
Me.CMRBestätigungToolStripMenuItem.Text = "CMR Bestätigung"
|
||||||
'
|
'
|
||||||
'AuftragMOTISToolStripMenuItem
|
'AuftragMOTISToolStripMenuItem
|
||||||
'
|
'
|
||||||
Me.AuftragMOTISToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.AuftragMOTISToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.AuftragMOTISToolStripMenuItem.Name = "AuftragMOTISToolStripMenuItem"
|
Me.AuftragMOTISToolStripMenuItem.Name = "AuftragMOTISToolStripMenuItem"
|
||||||
Me.AuftragMOTISToolStripMenuItem.Size = New System.Drawing.Size(223, 30)
|
Me.AuftragMOTISToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.AuftragMOTISToolStripMenuItem.Text = "Auftrag MOTIS"
|
Me.AuftragMOTISToolStripMenuItem.Text = "Auftrag MOTIS"
|
||||||
'
|
'
|
||||||
'ToolStripSeparator1
|
'ToolStripSeparator1
|
||||||
'
|
'
|
||||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(220, 6)
|
Me.ToolStripSeparator1.Size = New System.Drawing.Size(219, 6)
|
||||||
'
|
'
|
||||||
'dynMailsToolStripMenuItem
|
'dynMailsToolStripMenuItem
|
||||||
'
|
'
|
||||||
Me.dynMailsToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
Me.dynMailsToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
|
||||||
Me.dynMailsToolStripMenuItem.Name = "dynMailsToolStripMenuItem"
|
Me.dynMailsToolStripMenuItem.Name = "dynMailsToolStripMenuItem"
|
||||||
Me.dynMailsToolStripMenuItem.Size = New System.Drawing.Size(223, 30)
|
Me.dynMailsToolStripMenuItem.Size = New System.Drawing.Size(222, 30)
|
||||||
Me.dynMailsToolStripMenuItem.Text = "Dynamische Maillvorlagen"
|
Me.dynMailsToolStripMenuItem.Text = "Dynamische Maillvorlagen"
|
||||||
'
|
'
|
||||||
'ContextMenuStrip2
|
'ContextMenuStrip2
|
||||||
@@ -6292,15 +6315,6 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Me.DataGridViewTextBoxColumn5.ReadOnly = True
|
Me.DataGridViewTextBoxColumn5.ReadOnly = True
|
||||||
Me.DataGridViewTextBoxColumn5.Width = 200
|
Me.DataGridViewTextBoxColumn5.Width = 200
|
||||||
'
|
'
|
||||||
'ToolStripMenuItem34
|
|
||||||
'
|
|
||||||
Me.ToolStripMenuItem34.Image = Global.AVISO.My.Resources.Resources.plus
|
|
||||||
Me.ToolStripMenuItem34.Name = "ToolStripMenuItem34"
|
|
||||||
Me.ToolStripMenuItem34.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
|
|
||||||
Me.ToolStripMenuItem34.Size = New System.Drawing.Size(72, 28)
|
|
||||||
Me.ToolStripMenuItem34.Text = "ENS"
|
|
||||||
Me.ToolStripMenuItem34.ToolTipText = "Neue Ens Deklaration"
|
|
||||||
'
|
|
||||||
'frmSendungsdetailsNEU
|
'frmSendungsdetailsNEU
|
||||||
'
|
'
|
||||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
||||||
@@ -6552,13 +6566,13 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Friend WithEvents cboZolltarif As VERAG_PROG_ALLGEMEIN.MyComboBox
|
Friend WithEvents cboZolltarif As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||||
Friend WithEvents ÜTToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
Friend WithEvents ÜTToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem7 As ToolStripMenuItem
|
Friend WithEvents toolSendDyNCTS As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem8 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem8 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem9 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem9 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem
|
Friend WithEvents toolSendDyAES As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem12 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem12 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem13 As ToolStripMenuItem
|
Friend WithEvents toolSendDyEZA As ToolStripMenuItem
|
||||||
Friend WithEvents lblAnmerkungDispoliste As Label
|
Friend WithEvents lblAnmerkungDispoliste As Label
|
||||||
Friend WithEvents rtbAnmerkungDispoliste As RichTextBox
|
Friend WithEvents rtbAnmerkungDispoliste As RichTextBox
|
||||||
Friend WithEvents TabPage3 As TabPage
|
Friend WithEvents TabPage3 As TabPage
|
||||||
@@ -6610,7 +6624,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Friend WithEvents IMEXToolStripMenuItem1 As ToolStripMenuItem
|
Friend WithEvents IMEXToolStripMenuItem1 As ToolStripMenuItem
|
||||||
Friend WithEvents UNISPEDToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents UNISPEDToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents VERAGToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents VERAGToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem17 As ToolStripMenuItem
|
Friend WithEvents toolSendTelotec As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem18 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem18 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
|
||||||
@@ -6651,7 +6665,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Public WithEvents txtAnzahlPos As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Public WithEvents txtAnzahlPos As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
Friend WithEvents Label4 As Label
|
Friend WithEvents Label4 As Label
|
||||||
Friend WithEvents btnQuckScan As Button
|
Friend WithEvents btnQuckScan As Button
|
||||||
Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
|
Friend WithEvents toolSendMIC As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem22 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem22 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem24 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem24 As ToolStripMenuItem
|
||||||
@@ -6692,7 +6706,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
|
||||||
Friend WithEvents AntragQualitätskontrolleToolStripMenuItem As ToolStripMenuItem
|
Friend WithEvents AntragQualitätskontrolleToolStripMenuItem As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem31 As ToolStripMenuItem
|
Friend WithEvents toolSendDyModelTrans As ToolStripMenuItem
|
||||||
Friend WithEvents ToolStripMenuItem32 As ToolStripMenuItem
|
Friend WithEvents ToolStripMenuItem32 As ToolStripMenuItem
|
||||||
Friend WithEvents tbATEZ As TabPage
|
Friend WithEvents tbATEZ As TabPage
|
||||||
Friend WithEvents dgvATEZNCTS As DataGridView
|
Friend WithEvents dgvATEZNCTS As DataGridView
|
||||||
@@ -6836,7 +6850,7 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Friend WithEvents clmnUIDL As DataGridViewTextBoxColumn
|
Friend WithEvents clmnUIDL As DataGridViewTextBoxColumn
|
||||||
Friend WithEvents RCntrlVermerke1 As rCntrlVermerke
|
Friend WithEvents RCntrlVermerke1 As rCntrlVermerke
|
||||||
Friend WithEvents btnWWberechnen As Button
|
Friend WithEvents btnWWberechnen As Button
|
||||||
Friend WithEvents ToolStripMenuItem33 As ToolStripMenuItem
|
Friend WithEvents toolSendDyEXG As ToolStripMenuItem
|
||||||
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
|
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
|
||||||
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
|
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
|
||||||
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
|
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
|
||||||
@@ -6861,6 +6875,8 @@ Partial Class frmSendungsdetailsNEU
|
|||||||
Friend WithEvents cboAbrLeistungen As VERAG_PROG_ALLGEMEIN.MyComboBox
|
Friend WithEvents cboAbrLeistungen As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||||
Friend WithEvents txtAbrLeistungsBez As VERAG_PROG_ALLGEMEIN.MyTextBox
|
Friend WithEvents txtAbrLeistungsBez As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||||
Friend WithEvents lblErrAbr As Label
|
Friend WithEvents lblErrAbr As Label
|
||||||
Friend WithEvents Button20 As Button
|
Friend WithEvents btnATEZNewEZA As Button
|
||||||
Friend WithEvents ToolStripMenuItem34 As ToolStripMenuItem
|
Friend WithEvents toolModal_Import As ToolStripMenuItem
|
||||||
|
Friend WithEvents toolModal_Export As ToolStripMenuItem
|
||||||
|
Friend WithEvents toolModal_Transit As ToolStripMenuItem
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@@ -4061,7 +4061,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End If
|
End If
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub EZAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
|
Private Sub EZAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolSendDyEZA.Click
|
||||||
' Me.loadDataInLIST()
|
' Me.loadDataInLIST()
|
||||||
SAVE_ME()
|
SAVE_ME()
|
||||||
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||||||
@@ -4098,7 +4098,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End Sub
|
End Sub
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub AESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
|
Private Sub AESToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolSendDyAES.Click
|
||||||
'Me.loadDataInLIST()
|
'Me.loadDataInLIST()
|
||||||
SAVE_ME()
|
SAVE_ME()
|
||||||
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||||||
@@ -4195,7 +4195,7 @@ Public Class frmSendungsdetailsNEU
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
|
Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles toolSendDyEZA.Click
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -6945,11 +6945,24 @@ Public Class frmSendungsdetailsNEU
|
|||||||
cboAbfertigungsart.changeItem(abfTmp)
|
cboAbfertigungsart.changeItem(abfTmp)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
toolSendDyEZA.Enabled = False
|
||||||
|
toolSendDyAES.Enabled = False
|
||||||
|
toolSendDyEXG.Enabled = False
|
||||||
|
toolSendDyNCTS.Enabled = False
|
||||||
|
toolSendDyModelTrans.Enabled = False
|
||||||
|
toolSendTelotec.Enabled = False
|
||||||
|
|
||||||
Select Case cboAbfertigungsLand._value
|
Select Case cboAbfertigungsLand._value
|
||||||
|
Case "UK", "GB"
|
||||||
|
toolSendDyModelTrans.Enabled = True
|
||||||
Case "AT"
|
Case "AT"
|
||||||
MenuStrip.Enabled = False
|
toolSendTelotec.Enabled = True
|
||||||
|
|
||||||
Case Else
|
Case Else
|
||||||
MenuStrip.Enabled = True
|
toolSendDyEZA.Enabled = True
|
||||||
|
toolSendDyAES.Enabled = True
|
||||||
|
toolSendDyEXG.Enabled = True
|
||||||
|
toolSendDyNCTS.Enabled = True
|
||||||
End Select
|
End Select
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
@@ -7600,71 +7613,12 @@ Public Class frmSendungsdetailsNEU
|
|||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click
|
Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles toolSendDyEXG.Click
|
||||||
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
|
' If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
|
||||||
|
|
||||||
Me.Refresh()
|
Me.Refresh()
|
||||||
Me.Cursor = Cursors.WaitCursor
|
Me.Cursor = Cursors.WaitCursor
|
||||||
|
|
||||||
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
|
||||||
If SENDUNG_LIST IsNot Nothing Then
|
|
||||||
SND = SENDUNG_LIST(CURRENT_INDEX)
|
|
||||||
Else
|
|
||||||
MsgBox("Keine Sendung!")
|
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
|
||||||
|
|
||||||
Dim Standort As String = ""
|
|
||||||
|
|
||||||
Select Case SND.FilialenNr
|
|
||||||
Case 4803, 4809
|
|
||||||
Standort = "VERAG AG"
|
|
||||||
Case 5601
|
|
||||||
Standort = "Unisped GmbH"
|
|
||||||
Case 5701
|
|
||||||
Standort = "AMBAR GmbH"
|
|
||||||
Case 4810, 5103, 5901
|
|
||||||
Standort = "VERAG GmbH"
|
|
||||||
Case 5501
|
|
||||||
Standort = "IMEX"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
'sonderfälle lt. Mestan
|
|
||||||
If SND.tblSnd_Zollsystem_Land = "DE" Then
|
|
||||||
|
|
||||||
Select Case SND.FilialenNr
|
|
||||||
Case 5501, 4803, 4809, 5103
|
|
||||||
Standort = "VERAG GmbH"
|
|
||||||
End Select
|
|
||||||
|
|
||||||
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
|
|
||||||
|
|
||||||
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
|
|
||||||
Standort = "VERAG CS"
|
|
||||||
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
|
|
||||||
Select Case SND.FilialenNr
|
|
||||||
Case 4803, 5303, 4809, 5103
|
|
||||||
Standort = "VERAG CS"
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim frMZA As New SDL.frmZollanmeldung("EXG", Nothing, AVISO, SND, Now.ToString("yy"))
|
|
||||||
frMZA.Show()
|
|
||||||
AddHandler frMZA.FormClosed, Sub()
|
|
||||||
' initdgvZollAnmeldungen()
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Me.Cursor = Cursors.Default
|
|
||||||
' End If
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click
|
|
||||||
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||||
If SENDUNG_LIST IsNot Nothing Then
|
If SENDUNG_LIST IsNot Nothing Then
|
||||||
SND = SENDUNG_LIST(CURRENT_INDEX)
|
SND = SENDUNG_LIST(CURRENT_INDEX)
|
||||||
@@ -7674,26 +7628,108 @@ Public Class frmSendungsdetailsNEU
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Dim filialNr As Integer = SND.FilialenNr
|
|
||||||
Dim abfertigungsNr As Integer = SND.AbfertigungsNr
|
|
||||||
|
|
||||||
' URL zusammenbauen
|
|
||||||
Dim url As String = String.Format(
|
If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
||||||
"https://login.verag.ag/ens?filialNr={0}&abfertigungsNr={1}",
|
|
||||||
filialNr,
|
Dim Standort As String = ""
|
||||||
abfertigungsNr
|
|
||||||
)
|
Select Case SND.FilialenNr
|
||||||
|
Case 4803, 4809
|
||||||
|
Standort = "VERAG AG"
|
||||||
|
Case 5601
|
||||||
|
Standort = "Unisped GmbH"
|
||||||
|
Case 5701
|
||||||
|
Standort = "AMBAR GmbH"
|
||||||
|
Case 4810, 5103, 5901
|
||||||
|
Standort = "VERAG GmbH"
|
||||||
|
Case 5501
|
||||||
|
Standort = "IMEX"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
'sonderfälle lt. Mestan
|
||||||
|
If SND.tblSnd_Zollsystem_Land = "DE" Then
|
||||||
|
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 5501, 4803, 4809, 5103
|
||||||
|
Standort = "VERAG GmbH"
|
||||||
|
End Select
|
||||||
|
|
||||||
|
ElseIf SND.tblSnd_Zollsystem_Land = "AT" Then
|
||||||
|
|
||||||
|
If SND.tblSnd_Abfertigungsart_ID = 1 Then 'ZA
|
||||||
|
Standort = "VERAG CS"
|
||||||
|
ElseIf SND.tblSnd_Abfertigungsart_ID = 38 Then 'EV-Verz
|
||||||
|
Select Case SND.FilialenNr
|
||||||
|
Case 4803, 5303, 4809, 5103
|
||||||
|
Standort = "VERAG CS"
|
||||||
|
End Select
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim frMZA As New SDL.frmZollanmeldung("EXG", Nothing, AVISO, SND, Now.ToString("yy"))
|
||||||
|
frMZA.Show()
|
||||||
|
AddHandler frMZA.FormClosed, Sub()
|
||||||
|
' initdgvZollAnmeldungen()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Me.Cursor = Cursors.Default
|
||||||
|
' End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Private Sub IMPORTToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles toolModal_Import.Click
|
||||||
|
Dim LRN = InputBox("Please insert unique LRN:", "Send Import Declaration", cboFiliale._value & "/" & txtAbfertigungsnummer.Text)
|
||||||
|
|
||||||
|
If vbYes = MsgBox("Do you want to create an import declaration with LRN '" & LRN & "' in ModalTrans?", vbYesNoCancel) Then
|
||||||
|
If cModalTransIMPORT.ceateAndSend_IMP_FromSENDUNG(LRN, SENDUNG_LIST(CURRENT_INDEX), AVISO) Then
|
||||||
|
'OK -> MSGBOX in Function
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub EXPORTToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles toolModal_Export.Click
|
||||||
|
Dim LRN = InputBox("Please insert unique LRN:", "Send Export Declaration", cboFiliale._value & "/" & txtAbfertigungsnummer.Text)
|
||||||
|
|
||||||
|
If vbYes = MsgBox("Do you want to create an Export declaration with LRN '" & LRN & "' in ModalTrans?", vbYesNoCancel) Then
|
||||||
|
If cModalTransIMPORT.ceateAndSend_EXP_FromSENDUNG(LRN, SENDUNG_LIST(CURRENT_INDEX), AVISO) Then
|
||||||
|
'OK -> MSGBOX in Function
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'goto https://app.modaltrans.com/traderdecs/455159-250000473
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TRANSITT1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles toolModal_Transit.Click
|
||||||
|
Dim LRN = InputBox("Please insert unique LRN:", "Send Transit Declaration", cboFiliale._value & "/" & txtAbfertigungsnummer.Text)
|
||||||
|
|
||||||
|
If vbYes = MsgBox("Do you want to create an Transit declaration with LRN '" & LRN & "' in ModalTrans?", vbYesNoCancel) Then
|
||||||
|
If cModalTransNCTS.ceateAndSend_NCTS_FromSENDUNG(LRN, SENDUNG_LIST(CURRENT_INDEX), AVISO) Then
|
||||||
|
'OK -> MSGBOX in Function
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub btnATEZNewEZA_Click(sender As Object, e As EventArgs) Handles btnATEZNewEZA.Click
|
||||||
|
SAVE_ME()
|
||||||
|
|
||||||
Try
|
Try
|
||||||
' Browser öffnen (ab .NET Framework 4.5 braucht man UseShellExecute=True)
|
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
||||||
Process.Start(New ProcessStartInfo With {
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
|
||||||
.FileName = url,
|
Dim frmAttilaATEZNCTS = New frmATEZ_EZA(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
|
||||||
.UseShellExecute = True
|
frmAttilaATEZNCTS.Show(Me)
|
||||||
})
|
|
||||||
|
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
|
||||||
|
initdgvATEZ()
|
||||||
|
Me.BringToFront()
|
||||||
|
End Function
|
||||||
|
End If
|
||||||
|
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
MessageBox.Show("Fehler beim Öffnen der URL: " & ex.Message,
|
MsgBox(ex.Message & ex.StackTrace)
|
||||||
"Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
||||||
End Try
|
End Try
|
||||||
|
Me.Cursor = Cursors.Default
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
BIN
Diverses/Declarant.png
Normal file
BIN
Diverses/Declarant.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.9 KiB |
BIN
Diverses/Transcode.png
Normal file
BIN
Diverses/Transcode.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.4 KiB |
Reference in New Issue
Block a user