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

Merge branch 'master' of https://dev.azure.com/VeragAG/_git/AVISO

Browse Source
This commit is contained in:
d.breimaier
2025-05-16 09:30:34 +02:00
parent 9bd45bc0b8 f732845f15
commit d38b12eac5
17 changed files with 5065 additions and 2466 deletions
Download Patch File Download Diff File Expand all files Collapse all files

321
Aviso/ATEZ/frmATEZ_EZA.Designer.vb generated Normal file
View 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

0
Aviso/frmATEZ_NCTS.resx → Aviso/ATEZ/frmATEZ_EZA.resx
View File

813
Aviso/ATEZ/frmATEZ_EZA.vb Normal file
View 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

158
Aviso/frmATEZ_NCTS.Designer.vb → Aviso/ATEZ/frmATEZ_NCTS.Designer.vb generated
View File

@@ -29,7 +29,6 @@ Partial Class frmATEZ_NCTS
Me.Label2 = New System.Windows.Forms.Label()
Me.cboProzedur = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.lblInfo = New System.Windows.Forms.Label()
Me.Label6 = 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()
@@ -70,10 +69,11 @@ Partial Class frmATEZ_NCTS
Me.Label1 = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.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.Button3 = New System.Windows.Forms.Button()
Me.pnlHead.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -84,25 +84,25 @@ Partial Class frmATEZ_NCTS
Me.Button1.BackColor = System.Drawing.Color.White
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
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.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.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.Text = "An ATEZ senden -->"
Me.Button1.Text = "An ATEZ senden >>"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.Button1.UseVisualStyleBackColor = False
'
'pnlHead
'
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlHead.BackColor = System.Drawing.Color.White
Me.pnlHead.Controls.Add(Me.Button3)
Me.pnlHead.Controls.Add(Me.Label2)
Me.pnlHead.Controls.Add(Me.cboProzedur)
Me.pnlHead.Controls.Add(Me.lblInfo)
Me.pnlHead.Controls.Add(Me.Label6)
Me.pnlHead.Controls.Add(Me.Label8)
Me.pnlHead.Controls.Add(Me.cboStammreferenz)
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.txtTransporttemp)
Me.pnlHead.Controls.Add(Me.cbxTemperatur)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle5)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle9)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle8)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle7)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle6)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle4)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle3)
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.txtDyNiederlassung)
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.Name = "pnlHead"
Me.pnlHead.Size = New System.Drawing.Size(584, 601)
Me.pnlHead.Size = New System.Drawing.Size(584, 574)
Me.pnlHead.TabIndex = 112
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(10, 47)
Me.Label2.Location = New System.Drawing.Point(10, 59)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(52, 13)
Me.Label2.TabIndex = 150
@@ -168,7 +168,7 @@ Partial Class frmATEZ_NCTS
Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboProzedur.FormattingEnabled = True
Me.cboProzedur.Location = New System.Drawing.Point(151, 44)
Me.cboProzedur.Location = New System.Drawing.Point(151, 56)
Me.cboProzedur.Name = "cboProzedur"
Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
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.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.Size = New System.Drawing.Size(460, 21)
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
'
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(389, 76)
Me.Label8.Location = New System.Drawing.Point(389, 88)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 13)
Me.Label8.TabIndex = 146
@@ -210,7 +202,7 @@ Partial Class frmATEZ_NCTS
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Size = New System.Drawing.Size(129, 21)
Me.cboStammreferenz.TabIndex = 145
@@ -230,22 +222,21 @@ Partial Class frmATEZ_NCTS
Me.txtLKWId._Waehrung = False
Me.txtLKWId._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtLKWId.MaxLines_Warning_Label = Nothing
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
'
'usrCntl_Carrier
'
Me.usrCntl_Carrier._Titel = "Frächter:"
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(13, 227)
Me.usrCntl_Carrier.Location = New System.Drawing.Point(9, 222)
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
'
'txtDat
@@ -264,7 +255,7 @@ Partial Class frmATEZ_NCTS
Me.txtDat._WaehrungZeichen = True
Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
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.MaxLineLength = -1
Me.txtDat.MaxLines_Warning = ""
@@ -279,7 +270,7 @@ Partial Class frmATEZ_NCTS
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.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.Name = "dtpDat"
Me.dtpDat.Size = New System.Drawing.Size(110, 24)
@@ -287,7 +278,7 @@ Partial Class frmATEZ_NCTS
'
'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.Size = New System.Drawing.Size(134, 17)
Me.Label7.TabIndex = 140
@@ -296,7 +287,7 @@ Partial Class frmATEZ_NCTS
'lblC
'
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.Size = New System.Drawing.Size(18, 13)
Me.lblC.TabIndex = 139
@@ -317,7 +308,7 @@ Partial Class frmATEZ_NCTS
Me.txtTransporttemp._Waehrung = False
Me.txtTransporttemp._WaehrungZeichen = True
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.MaxLines_Warning = ""
Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
@@ -329,7 +320,7 @@ Partial Class frmATEZ_NCTS
'
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.Location = New System.Drawing.Point(13, 175)
Me.cbxTemperatur.Location = New System.Drawing.Point(13, 187)
Me.cbxTemperatur.Name = "cbxTemperatur"
Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
Me.cbxTemperatur.TabIndex = 137
@@ -351,7 +342,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle5.key_visible = False
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.searchActive = True
Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 20)
@@ -376,7 +367,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle9.key_visible = False
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.searchActive = True
Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 20)
@@ -401,7 +392,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle8.key_visible = False
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.searchActive = True
Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 20)
@@ -426,7 +417,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle7.key_visible = False
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.searchActive = True
Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 20)
@@ -451,10 +442,10 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle6.key_visible = False
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.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_SELECT = Nothing
Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
@@ -476,10 +467,10 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle4.key_visible = False
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.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_SELECT = Nothing
Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
@@ -501,7 +492,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle3.key_visible = False
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.searchActive = True
Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 20)
@@ -526,7 +517,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle2.key_visible = False
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.searchActive = True
Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 20)
@@ -551,7 +542,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle1.key_visible = False
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.searchActive = True
Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 20)
@@ -564,7 +555,7 @@ Partial Class frmATEZ_NCTS
'
'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.Size = New System.Drawing.Size(135, 13)
Me.Label5.TabIndex = 127
@@ -574,7 +565,7 @@ Partial Class frmATEZ_NCTS
'
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.Location = New System.Drawing.Point(493, 487)
Me.lklRoutenauswahl.Location = New System.Drawing.Point(493, 475)
Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
Me.lklRoutenauswahl.TabIndex = 117
@@ -595,7 +586,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
Me.sbRoute5.key_visible = False
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.searchActive = True
Me.sbRoute5.Size = New System.Drawing.Size(183, 20)
@@ -620,7 +611,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
Me.sbRoute9.key_visible = False
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.searchActive = True
Me.sbRoute9.Size = New System.Drawing.Size(187, 20)
@@ -645,7 +636,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
Me.sbRoute8.key_visible = False
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.searchActive = True
Me.sbRoute8.Size = New System.Drawing.Size(183, 20)
@@ -670,7 +661,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
Me.sbRoute7.key_visible = False
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.searchActive = True
Me.sbRoute7.Size = New System.Drawing.Size(195, 20)
@@ -695,7 +686,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
Me.sbRoute6.key_visible = False
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.searchActive = True
Me.sbRoute6.Size = New System.Drawing.Size(187, 20)
@@ -720,7 +711,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
Me.sbRoute4.key_visible = False
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.searchActive = True
Me.sbRoute4.Size = New System.Drawing.Size(195, 20)
@@ -745,7 +736,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
Me.sbRoute3.key_visible = False
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.searchActive = True
Me.sbRoute3.Size = New System.Drawing.Size(187, 20)
@@ -770,7 +761,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
Me.sbRoute2.key_visible = False
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.searchActive = True
Me.sbRoute2.Size = New System.Drawing.Size(183, 20)
@@ -795,7 +786,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
Me.sbRoute1.key_visible = False
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.searchActive = True
Me.sbRoute1.Size = New System.Drawing.Size(195, 20)
@@ -808,7 +799,7 @@ Partial Class frmATEZ_NCTS
'
'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.Size = New System.Drawing.Size(135, 13)
Me.Label14.TabIndex = 116
@@ -816,7 +807,7 @@ Partial Class frmATEZ_NCTS
'
'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.Size = New System.Drawing.Size(121, 17)
Me.Label4.TabIndex = 114
@@ -836,7 +827,7 @@ Partial Class frmATEZ_NCTS
Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsZollstelle.key_visible = False
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.searchActive = True
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
@@ -849,7 +840,7 @@ Partial Class frmATEZ_NCTS
'
'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.Size = New System.Drawing.Size(103, 17)
Me.Label3.TabIndex = 113
@@ -857,7 +848,7 @@ Partial Class frmATEZ_NCTS
'
'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.Size = New System.Drawing.Size(103, 17)
Me.Label9.TabIndex = 110
@@ -877,7 +868,7 @@ Partial Class frmATEZ_NCTS
Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAbgangZollstelle.key_visible = False
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.searchActive = True
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
@@ -891,7 +882,7 @@ Partial Class frmATEZ_NCTS
'txtDyMandant
'
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.Size = New System.Drawing.Size(44, 13)
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.AutoSize = True
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.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 106
@@ -912,7 +903,7 @@ Partial Class frmATEZ_NCTS
'txtDyNiederlassung
'
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.Size = New System.Drawing.Size(45, 12)
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.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, 2)
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, 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
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
@@ -955,29 +964,22 @@ Partial Class frmATEZ_NCTS
'
'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.Size = New System.Drawing.Size(135, 13)
Me.lblAnh.TabIndex = 151
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
'
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, 819)
Me.ClientSize = New System.Drawing.Size(589, 842)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.lblAnh)
Me.Controls.Add(Me.pnlHead)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.dgvAnhaenge)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

1256
Aviso/ATEZ/frmATEZ_NCTS.resx Normal file
View File

File diff suppressed because it is too large Load Diff

0
Aviso/frmATEZ_NCTS.vb → Aviso/ATEZ/frmATEZ_NCTS.vb
View File

29
Aviso/Aviso.vbproj
View File

@@ -502,6 +502,18 @@
<SubType>UserControl</SubType>
</Compile>
<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\frmStatFrima.Designer.vb">
<DependentUpon>frmStatFrima.vb</DependentUpon>
@@ -690,12 +702,6 @@
<Compile Include="frmDigicust.vb">
<SubType>Form</SubType>
</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">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</Compile>
@@ -1226,6 +1232,12 @@
<EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
</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">
<DependentUpon>frmStatFrima.vb</DependentUpon>
</EmbeddedResource>
@@ -1305,9 +1317,6 @@
<EmbeddedResource Include="frmDigicust.resx">
<DependentUpon>frmDigicust.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATEZ_NCTS.resx">
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</EmbeddedResource>
@@ -1728,6 +1737,7 @@
<None Include="Resources\ambar_boarder.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\Declarant.png" />
<Content Include="Resources\FO.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
@@ -1748,6 +1758,7 @@
<None Include="Resources\reminder.png" />
<None Include="Resources\qr.png" />
<None Include="Resources\qr_s.png" />
<None Include="Resources\Transcode.png" />
<Content Include="Resources\WLAN\RunNHide.exe">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

20
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -488,6 +488,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1648,6 +1658,16 @@ Namespace My.Resources
End Get
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>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
'''</summary>

12
Aviso/My Project/Resources.resx
View File

@@ -250,9 +250,6 @@
<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>
</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">
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -700,4 +697,13 @@
<data name="asdadasda5sd" xml:space="preserve">
<value />
</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>

BIN
Aviso/Resources/Declarant.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.9 KiB

BIN
Aviso/Resources/Transcode.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.4 KiB

40
Aviso/frmHauptfenster.vb
View File

@@ -2573,20 +2573,28 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
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
Private Sub btnSpedBuch_Click(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Speditionsbuch", "AVISO") Then
Return
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
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
VERAG_PROG_ALLGEMEIN.cAllgemein.ATILLA_SND = True
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
Public Class AvisoStatusFunctions

566
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -24,29 +24,29 @@ Partial Class frmSendungsdetailsNEU
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungsdetailsNEU))
Dim DataGridViewCellStyle70 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle71 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle72 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle73 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle74 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle75 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle76 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle77 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle78 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle79 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle80 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle81 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle82 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle84 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle85 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle83 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle86 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle87 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle88 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle89 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle91 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle92 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle90 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle51 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle52 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle53 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle54 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle55 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle56 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle57 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle58 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle59 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle61 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle62 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle60 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle63 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle64 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle65 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle66 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle68 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle69 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.Panel4 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
@@ -80,23 +80,26 @@ Partial Class frmSendungsdetailsNEU
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.MenuStrip = New System.Windows.Forms.MenuStrip()
Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
Me.toolSendDyEZA = New System.Windows.Forms.ToolStripMenuItem()
Me.toolSendDyNCTS = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem9 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem33 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
Me.toolSendDyAES = New System.Windows.Forms.ToolStripMenuItem()
Me.toolSendDyEXG = New System.Windows.Forms.ToolStripMenuItem()
Me.toolSendTelotec = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem18 = 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.ToolStripMenuItem23 = 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.ToolStripMenuItem32 = New System.Windows.Forms.ToolStripMenuItem()
Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -137,7 +140,7 @@ Partial Class frmSendungsdetailsNEU
Me.tbATEZ = New System.Windows.Forms.TabPage()
Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView()
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.tbDigicust = New System.Windows.Forms.TabPage()
Me.dgvDigicust = New System.Windows.Forms.DataGridView()
@@ -495,7 +498,6 @@ Partial Class frmSendungsdetailsNEU
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ToolStripMenuItem34 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.TabControl1.SuspendLayout()
@@ -995,38 +997,38 @@ Partial Class frmSendungsdetailsNEU
'MenuStrip
'
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.Name = "MenuStrip"
Me.MenuStrip.Padding = New System.Windows.Forms.Padding(5, 2, 0, 2)
Me.MenuStrip.Size = New System.Drawing.Size(1206, 32)
Me.MenuStrip.TabIndex = 0
'
'ToolStripMenuItem13
'toolSendDyEZA
'
Me.ToolStripMenuItem13.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem13.Name = "ToolStripMenuItem13"
Me.ToolStripMenuItem13.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem13.Size = New System.Drawing.Size(78, 28)
Me.ToolStripMenuItem13.Text = " EZA"
Me.ToolStripMenuItem13.ToolTipText = "Neue Zollanmeldung"
Me.toolSendDyEZA.Image = Global.AVISO.My.Resources.Resources.plus
Me.toolSendDyEZA.Name = "toolSendDyEZA"
Me.toolSendDyEZA.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.toolSendDyEZA.Size = New System.Drawing.Size(78, 28)
Me.toolSendDyEZA.Text = " EZA"
Me.toolSendDyEZA.ToolTipText = "Neue Zollanmeldung"
'
'ToolStripMenuItem7
'toolSendDyNCTS
'
Me.ToolStripMenuItem7.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10})
Me.ToolStripMenuItem7.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(87, 28)
Me.ToolStripMenuItem7.Text = " NCTS"
Me.ToolStripMenuItem7.ToolTipText = "Neue Zollanmeldung"
Me.toolSendDyNCTS.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem8, Me.ToolStripMenuItem9, Me.ToolStripMenuItem10})
Me.toolSendDyNCTS.Image = Global.AVISO.My.Resources.Resources.plus
Me.toolSendDyNCTS.Name = "toolSendDyNCTS"
Me.toolSendDyNCTS.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.toolSendDyNCTS.Size = New System.Drawing.Size(86, 28)
Me.toolSendDyNCTS.Text = " NCTS"
Me.toolSendDyNCTS.ToolTipText = "Neue Zollanmeldung"
'
'ToolStripMenuItem8
'
Me.ToolStripMenuItem8.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem8.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem8.Text = "T1"
'
'ToolStripMenuItem9
@@ -1034,7 +1036,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem9.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem9.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem9.Name = "ToolStripMenuItem9"
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem9.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem9.Text = "T2"
'
'ToolStripMenuItem10
@@ -1042,7 +1044,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem10.Enabled = False
Me.ToolStripMenuItem10.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(102, 30)
Me.ToolStripMenuItem10.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem10.Text = "Ü-T"
Me.ToolStripMenuItem10.Visible = False
'
@@ -1057,37 +1059,37 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem6.ToolTipText = "Neue Zollanmeldung"
Me.ToolStripMenuItem6.Visible = False
'
'ToolStripMenuItem11
'toolSendDyAES
'
Me.ToolStripMenuItem11.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(77, 28)
Me.ToolStripMenuItem11.Text = " AES"
Me.ToolStripMenuItem11.ToolTipText = "Neue Zollanmeldung"
Me.toolSendDyAES.Image = Global.AVISO.My.Resources.Resources.plus
Me.toolSendDyAES.Name = "toolSendDyAES"
Me.toolSendDyAES.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.toolSendDyAES.Size = New System.Drawing.Size(77, 28)
Me.toolSendDyAES.Text = " AES"
Me.toolSendDyAES.ToolTipText = "Neue Zollanmeldung"
'
'ToolStripMenuItem33
'toolSendDyEXG
'
Me.ToolStripMenuItem33.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem33.Name = "ToolStripMenuItem33"
Me.ToolStripMenuItem33.Size = New System.Drawing.Size(64, 28)
Me.ToolStripMenuItem33.Text = "EXG"
Me.toolSendDyEXG.Image = Global.AVISO.My.Resources.Resources.plus
Me.toolSendDyEXG.Name = "toolSendDyEXG"
Me.toolSendDyEXG.Size = New System.Drawing.Size(64, 28)
Me.toolSendDyEXG.Text = "EXG"
'
'ToolStripMenuItem17
'toolSendTelotec
'
Me.ToolStripMenuItem17.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem20, Me.ToolStripMenuItem18, Me.ToolStripMenuItem19})
Me.ToolStripMenuItem17.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem17.Name = "ToolStripMenuItem17"
Me.ToolStripMenuItem17.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem17.Size = New System.Drawing.Size(105, 28)
Me.ToolStripMenuItem17.Text = " TELOTEC"
Me.ToolStripMenuItem17.ToolTipText = "Neue Zollanmeldung"
Me.toolSendTelotec.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem20, Me.ToolStripMenuItem18, Me.ToolStripMenuItem19})
Me.toolSendTelotec.Image = Global.AVISO.My.Resources.Resources.plus
Me.toolSendTelotec.Name = "toolSendTelotec"
Me.toolSendTelotec.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.toolSendTelotec.Size = New System.Drawing.Size(103, 28)
Me.toolSendTelotec.Text = " TELOTEC"
Me.toolSendTelotec.ToolTipText = "Neue Zollanmeldung"
'
'ToolStripMenuItem20
'
Me.ToolStripMenuItem20.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ToolStripMenuItem18
@@ -1096,7 +1098,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem18.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem18.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem18.Name = "ToolStripMenuItem18"
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem18.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem18.Text = "T1"
'
'ToolStripMenuItem19
@@ -1105,24 +1107,25 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem19.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem19.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(103, 30)
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem19.Text = "T2"
'
'ToolStripMenuItem21
'toolSendMIC
'
Me.ToolStripMenuItem21.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem22, Me.ToolStripMenuItem23, Me.ToolStripMenuItem24})
Me.ToolStripMenuItem21.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
Me.ToolStripMenuItem21.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(79, 28)
Me.ToolStripMenuItem21.Text = " MIC"
Me.ToolStripMenuItem21.ToolTipText = "Neue Zollanmeldung"
Me.toolSendMIC.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem22, Me.ToolStripMenuItem23, Me.ToolStripMenuItem24})
Me.toolSendMIC.Image = Global.AVISO.My.Resources.Resources.plus
Me.toolSendMIC.Name = "toolSendMIC"
Me.toolSendMIC.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.toolSendMIC.Size = New System.Drawing.Size(79, 28)
Me.toolSendMIC.Text = " MIC"
Me.toolSendMIC.ToolTipText = "Neue Zollanmeldung"
Me.toolSendMIC.Visible = False
'
'ToolStripMenuItem22
'
Me.ToolStripMenuItem22.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
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"
'
'ToolStripMenuItem23
@@ -1130,7 +1133,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem23.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem23.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem23.Name = "ToolStripMenuItem23"
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem23.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem23.Text = "MIC Transit senden"
'
'ToolStripMenuItem24
@@ -1139,23 +1142,45 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem24.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem24.Image = Global.AVISO.My.Resources.Resources.weiterleiten_small1
Me.ToolStripMenuItem24.Name = "ToolStripMenuItem24"
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(184, 30)
Me.ToolStripMenuItem24.Size = New System.Drawing.Size(188, 30)
Me.ToolStripMenuItem24.Text = "MIC Export senden"
'
'ToolStripMenuItem31
'toolSendDyModelTrans
'
Me.ToolStripMenuItem31.Image = Global.AVISO.My.Resources.Resources.plus
Me.ToolStripMenuItem31.Name = "ToolStripMenuItem31"
Me.ToolStripMenuItem31.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.ToolStripMenuItem31.Size = New System.Drawing.Size(117, 28)
Me.ToolStripMenuItem31.Text = " Modaltrans"
Me.ToolStripMenuItem31.ToolTipText = "Neue Zollanmeldung"
Me.toolSendDyModelTrans.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolModal_Import, Me.toolModal_Export, Me.toolModal_Transit})
Me.toolSendDyModelTrans.Image = Global.AVISO.My.Resources.Resources.plus
Me.toolSendDyModelTrans.Name = "toolSendDyModelTrans"
Me.toolSendDyModelTrans.Padding = New System.Windows.Forms.Padding(8, 0, 8, 0)
Me.toolSendDyModelTrans.Size = New System.Drawing.Size(117, 28)
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
'
Me.ToolStripMenuItem12.Image = Global.AVISO.My.Resources.Resources.plus
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.ToolTipText = "Logbuch"
'
@@ -1608,18 +1633,18 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle70.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle70.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle70
DataGridViewCellStyle50.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle50
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle71.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle71.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle71.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle71.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle71.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle71.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle71.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle71
DataGridViewCellStyle51.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle51.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
DataGridViewCellStyle51.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle51.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle51.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle51.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle51
Me.gridVermerke.ColumnHeadersHeight = 29
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1630,8 +1655,8 @@ Partial Class frmSendungsdetailsNEU
Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidth = 51
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle72.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle72
DataGridViewCellStyle52.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle52
Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1659,18 +1684,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.AllowUserToAddRows = False
Me.dgvATEZNCTS.AllowUserToDeleteRows = False
Me.dgvATEZNCTS.AllowUserToResizeRows = False
DataGridViewCellStyle73.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle73.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle73
DataGridViewCellStyle47.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle47
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle74.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle74.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle74.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle74.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle74.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle74.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle74.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle74
DataGridViewCellStyle48.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle48.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle48.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle48.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle48.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle48.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle48.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle48
Me.dgvATEZNCTS.ColumnHeadersHeight = 29
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1681,8 +1706,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvATEZNCTS.RowHeadersVisible = False
Me.dgvATEZNCTS.RowHeadersWidth = 51
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle75.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle75
DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle49
Me.dgvATEZNCTS.RowTemplate.Height = 20
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1695,7 +1720,7 @@ Partial Class frmSendungsdetailsNEU
'
'Panel23
'
Me.Panel23.Controls.Add(Me.Button20)
Me.Panel23.Controls.Add(Me.btnATEZNewEZA)
Me.Panel23.Controls.Add(Me.btnATEZNew)
Me.Panel23.Dock = System.Windows.Forms.DockStyle.Top
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.TabIndex = 106
'
'Button20
'btnATEZNewEZA
'
Me.Button20.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.Button20.Image = Global.AVISO.My.Resources.Resources.plus
Me.Button20.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button20.Location = New System.Drawing.Point(145, 8)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(136, 34)
Me.Button20.TabIndex = 9
Me.Button20.Text = "ATEZ-EZA"
Me.Button20.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button20.UseVisualStyleBackColor = True
Me.Button20.Visible = False
Me.btnATEZNewEZA.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnATEZNewEZA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnATEZNewEZA.Image = Global.AVISO.My.Resources.Resources.plus
Me.btnATEZNewEZA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnATEZNewEZA.Location = New System.Drawing.Point(145, 8)
Me.btnATEZNewEZA.Name = "btnATEZNewEZA"
Me.btnATEZNewEZA.Size = New System.Drawing.Size(136, 34)
Me.btnATEZNewEZA.TabIndex = 9
Me.btnATEZNewEZA.Text = "ATEZ-EZA"
Me.btnATEZNewEZA.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnATEZNewEZA.UseVisualStyleBackColor = True
Me.btnATEZNewEZA.Visible = False
'
'btnATEZNew
'
@@ -1749,18 +1774,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.AllowUserToAddRows = False
Me.dgvDigicust.AllowUserToDeleteRows = False
Me.dgvDigicust.AllowUserToResizeRows = False
DataGridViewCellStyle76.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle76.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle76
DataGridViewCellStyle53.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle53.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle53
Me.dgvDigicust.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle77.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle77.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle77.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle77.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle77.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle77.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle77.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle77
DataGridViewCellStyle54.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle54.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle54.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle54.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle54.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle54.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle54.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle54
Me.dgvDigicust.ColumnHeadersHeight = 29
Me.dgvDigicust.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
Me.dgvDigicust.Dock = System.Windows.Forms.DockStyle.Fill
@@ -1771,8 +1796,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvDigicust.RowHeadersVisible = False
Me.dgvDigicust.RowHeadersWidth = 51
Me.dgvDigicust.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle78.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle78
DataGridViewCellStyle55.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvDigicust.RowsDefaultCellStyle = DataGridViewCellStyle55
Me.dgvDigicust.RowTemplate.Height = 20
Me.dgvDigicust.RowTemplate.ReadOnly = True
Me.dgvDigicust.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -1824,18 +1849,18 @@ Partial Class frmSendungsdetailsNEU
Me.dgvMail.AllowUserToAddRows = False
Me.dgvMail.AllowUserToDeleteRows = False
Me.dgvMail.AllowUserToResizeRows = False
DataGridViewCellStyle79.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle79.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle79
DataGridViewCellStyle56.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle56.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle56
Me.dgvMail.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle80.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle80.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle80.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle80.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle80.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle80.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle80.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle80
DataGridViewCellStyle57.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle57.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle57.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
DataGridViewCellStyle57.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle57.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle57.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle57.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle57
Me.dgvMail.ColumnHeadersHeight = 29
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})
@@ -1847,8 +1872,8 @@ Partial Class frmSendungsdetailsNEU
Me.dgvMail.RowHeadersVisible = False
Me.dgvMail.RowHeadersWidth = 51
Me.dgvMail.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle81.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle81
DataGridViewCellStyle58.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMail.RowsDefaultCellStyle = DataGridViewCellStyle58
Me.dgvMail.RowTemplate.Height = 20
Me.dgvMail.RowTemplate.ReadOnly = True
Me.dgvMail.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -2675,36 +2700,36 @@ Partial Class frmSendungsdetailsNEU
Me.dgvAbrechnung.AllowUserToResizeColumns = False
Me.dgvAbrechnung.AllowUserToResizeRows = False
Me.dgvAbrechnung.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle82.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle82.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))
DataGridViewCellStyle82.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle82.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle82.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle82.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAbrechnung.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle82
DataGridViewCellStyle59.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle59.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle59.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle59.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle59.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle59.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle59.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAbrechnung.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle59
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})
DataGridViewCellStyle84.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle84.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))
DataGridViewCellStyle84.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle84.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle84.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle84.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAbrechnung.DefaultCellStyle = DataGridViewCellStyle84
DataGridViewCellStyle61.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle61.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle61.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle61.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle61.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle61.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle61.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvAbrechnung.DefaultCellStyle = DataGridViewCellStyle61
Me.dgvAbrechnung.Location = New System.Drawing.Point(6, 35)
Me.dgvAbrechnung.MultiSelect = False
Me.dgvAbrechnung.Name = "dgvAbrechnung"
Me.dgvAbrechnung.ReadOnly = True
DataGridViewCellStyle85.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle85.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))
DataGridViewCellStyle85.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle85.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle85.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle85.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAbrechnung.RowHeadersDefaultCellStyle = DataGridViewCellStyle85
DataGridViewCellStyle62.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle62.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle62.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle62.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle62.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle62.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvAbrechnung.RowHeadersDefaultCellStyle = DataGridViewCellStyle62
Me.dgvAbrechnung.RowHeadersVisible = False
Me.dgvAbrechnung.RowHeadersWidth = 51
Me.dgvAbrechnung.RowTemplate.Height = 18
@@ -2746,8 +2771,8 @@ Partial Class frmSendungsdetailsNEU
'
'clmnAbrPreis
'
DataGridViewCellStyle83.Format = "C2"
Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle83
DataGridViewCellStyle60.Format = "C2"
Me.clmnAbrPreis.DefaultCellStyle = DataGridViewCellStyle60
Me.clmnAbrPreis.HeaderText = "Preis"
Me.clmnAbrPreis.MaxInputLength = 15
Me.clmnAbrPreis.MinimumWidth = 6
@@ -2776,35 +2801,35 @@ Partial Class frmSendungsdetailsNEU
Me.dgvBelege.AllowUserToResizeColumns = False
Me.dgvBelege.AllowUserToResizeRows = False
Me.dgvBelege.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle86.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle86.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))
DataGridViewCellStyle86.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle86.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle86.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle86.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle86
DataGridViewCellStyle63.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle63.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle63.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle63.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle63.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle63.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle63.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBelege.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle63
Me.dgvBelege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle87.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle87.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))
DataGridViewCellStyle87.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle87.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle87.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle87.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle87
DataGridViewCellStyle64.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle64.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle64.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle64.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle64.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle64.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle64.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBelege.DefaultCellStyle = DataGridViewCellStyle64
Me.dgvBelege.Location = New System.Drawing.Point(6, 40)
Me.dgvBelege.MultiSelect = False
Me.dgvBelege.Name = "dgvBelege"
Me.dgvBelege.ReadOnly = True
DataGridViewCellStyle88.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle88.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))
DataGridViewCellStyle88.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle88.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle88.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle88.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle88
DataGridViewCellStyle65.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle65.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle65.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle65.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle65.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle65.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle65.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBelege.RowHeadersDefaultCellStyle = DataGridViewCellStyle65
Me.dgvBelege.RowHeadersVisible = False
Me.dgvBelege.RowHeadersWidth = 51
Me.dgvBelege.RowTemplate.Height = 18
@@ -2979,36 +3004,36 @@ Partial Class frmSendungsdetailsNEU
Me.dgvVorkosten.AllowUserToResizeColumns = False
Me.dgvVorkosten.AllowUserToResizeRows = False
Me.dgvVorkosten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle89.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle89.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))
DataGridViewCellStyle89.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle89.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle89.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle89.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle89
DataGridViewCellStyle66.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle66.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle66.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle66.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle66.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle66.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle66.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvVorkosten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle66
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})
DataGridViewCellStyle91.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle91.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))
DataGridViewCellStyle91.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle91.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle91.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle91.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle91
DataGridViewCellStyle68.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle68.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle68.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle68.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle68.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle68.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle68.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvVorkosten.DefaultCellStyle = DataGridViewCellStyle68
Me.dgvVorkosten.Location = New System.Drawing.Point(3, 4)
Me.dgvVorkosten.MultiSelect = False
Me.dgvVorkosten.Name = "dgvVorkosten"
Me.dgvVorkosten.ReadOnly = True
DataGridViewCellStyle92.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle92.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))
DataGridViewCellStyle92.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle92.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle92.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle92.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle92
DataGridViewCellStyle69.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle69.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle69.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle69.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle69.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle69.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle69.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvVorkosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle69
Me.dgvVorkosten.RowHeadersVisible = False
Me.dgvVorkosten.RowHeadersWidth = 51
Me.dgvVorkosten.RowTemplate.Height = 18
@@ -3046,8 +3071,8 @@ Partial Class frmSendungsdetailsNEU
'clmnPreis
'
Me.clmnPreis.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
DataGridViewCellStyle90.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle90
DataGridViewCellStyle67.Format = "C2"
Me.clmnPreis.DefaultCellStyle = DataGridViewCellStyle67
Me.clmnPreis.HeaderText = "Preis"
Me.clmnPreis.MaxInputLength = 15
Me.clmnPreis.MinimumWidth = 6
@@ -3576,7 +3601,6 @@ Partial Class frmSendungsdetailsNEU
'FlatButton4
'
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.FlatAppearance.BorderSize = 0
Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -3591,7 +3615,6 @@ Partial Class frmSendungsdetailsNEU
'FlatButton1
'
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.FlatAppearance.BorderSize = 0
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.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ToolStripMenuItem5
@@ -5734,7 +5757,7 @@ Partial Class frmSendungsdetailsNEU
Me.ToolStripMenuItem5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripMenuItem5.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'ÜTToolStripMenuItem
@@ -5742,7 +5765,7 @@ Partial Class frmSendungsdetailsNEU
Me.ÜTToolStripMenuItem.Enabled = False
Me.ÜTToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.plus
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"
'
'NeueZollanmeldungToolStripMenuItem
@@ -6009,13 +6032,13 @@ Partial Class frmSendungsdetailsNEU
Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem15, Me.T1BestätigungToolStripMenuItem, Me.SpeditionSUBENToolStripMenuItem, Me.ToolStripMenuItem16, Me.AuftragATANAKToolStripMenuItem, Me.ToolStripMenuItem27, Me.ToolStripMenuItem26, Me.ToolStripMenuItem28, Me.ToolStripMenuItem25, Me.GVMSInfoToolStripMenuItem, Me.CMRBestätigungToolStripMenuItem, Me.AuftragMOTISToolStripMenuItem, Me.ToolStripSeparator1, Me.dynMailsToolStripMenuItem})
Me.ContextMenuStrip1.Name = "cntxtAnh"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(224, 400)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 400)
'
'ToolStripMenuItem15
'
Me.ToolStripMenuItem15.Image = Global.AVISO.My.Resources.Resources.email_big1
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.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.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'MitGestellungsgarantieToolStripMenuItem
@@ -6042,7 +6065,7 @@ Partial Class frmSendungsdetailsNEU
'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"
'
'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.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'IMEXToolStripMenuItem1
@@ -6076,35 +6099,35 @@ Partial Class frmSendungsdetailsNEU
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.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)"
'
'ATANAKTRFraechter
'
Me.ATANAKTRFraechter.Image = CType(resources.GetObject("ATANAKTRFraechter.Image"), System.Drawing.Image)
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)"
'
'ATANAKEUFraechter
'
Me.ATANAKEUFraechter.Image = CType(resources.GetObject("ATANAKEUFraechter.Image"), System.Drawing.Image)
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)"
'
'ToolStripMenuItem27
'
Me.ToolStripMenuItem27.Image = Global.AVISO.My.Resources.Resources.email_big1
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)"
'
'ToolStripMenuItem26
'
Me.ToolStripMenuItem26.Image = Global.AVISO.My.Resources.Resources.email_big1
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)"
'
'ToolStripMenuItem28
@@ -6112,7 +6135,7 @@ Partial Class frmSendungsdetailsNEU
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.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"
'
'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.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'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.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'AlleEIDRSendungenToolStripMenuItem
@@ -6177,26 +6200,26 @@ Partial Class frmSendungsdetailsNEU
'
Me.CMRBestätigungToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'AuftragMOTISToolStripMenuItem
'
Me.AuftragMOTISToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(220, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(219, 6)
'
'dynMailsToolStripMenuItem
'
Me.dynMailsToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.email_big1
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"
'
'ContextMenuStrip2
@@ -6292,15 +6315,6 @@ Partial Class frmSendungsdetailsNEU
Me.DataGridViewTextBoxColumn5.ReadOnly = True
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
'
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 ÜTToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem6 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem7 As ToolStripMenuItem
Friend WithEvents toolSendDyNCTS As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem8 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem9 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem10 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem
Friend WithEvents toolSendDyAES As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem12 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem13 As ToolStripMenuItem
Friend WithEvents toolSendDyEZA As ToolStripMenuItem
Friend WithEvents lblAnmerkungDispoliste As Label
Friend WithEvents rtbAnmerkungDispoliste As RichTextBox
Friend WithEvents TabPage3 As TabPage
@@ -6610,7 +6624,7 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents IMEXToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents UNISPEDToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VERAGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem17 As ToolStripMenuItem
Friend WithEvents toolSendTelotec As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem18 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
@@ -6651,7 +6665,7 @@ Partial Class frmSendungsdetailsNEU
Public WithEvents txtAnzahlPos As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
Friend WithEvents btnQuckScan As Button
Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
Friend WithEvents toolSendMIC As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem22 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem23 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem24 As ToolStripMenuItem
@@ -6692,7 +6706,7 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem30 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 tbATEZ As TabPage
Friend WithEvents dgvATEZNCTS As DataGridView
@@ -6836,7 +6850,7 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents clmnUIDL As DataGridViewTextBoxColumn
Friend WithEvents RCntrlVermerke1 As rCntrlVermerke
Friend WithEvents btnWWberechnen As Button
Friend WithEvents ToolStripMenuItem33 As ToolStripMenuItem
Friend WithEvents toolSendDyEXG As ToolStripMenuItem
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
@@ -6861,6 +6875,8 @@ Partial Class frmSendungsdetailsNEU
Friend WithEvents cboAbrLeistungen As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtAbrLeistungsBez As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblErrAbr As Label
Friend WithEvents Button20 As Button
Friend WithEvents ToolStripMenuItem34 As ToolStripMenuItem
Friend WithEvents btnATEZNewEZA As Button
Friend WithEvents toolModal_Import As ToolStripMenuItem
Friend WithEvents toolModal_Export As ToolStripMenuItem
Friend WithEvents toolModal_Transit As ToolStripMenuItem
End Class

4118
Aviso/frmSendungsdetailsNEU.resx
View File

File diff suppressed because it is too large Load Diff

198
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -4061,7 +4061,7 @@ Public Class frmSendungsdetailsNEU
End If
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()
SAVE_ME()
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
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()
SAVE_ME()
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
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
@@ -6945,11 +6945,24 @@ Public Class frmSendungsdetailsNEU
cboAbfertigungsart.changeItem(abfTmp)
End If
toolSendDyEZA.Enabled = False
toolSendDyAES.Enabled = False
toolSendDyEXG.Enabled = False
toolSendDyNCTS.Enabled = False
toolSendDyModelTrans.Enabled = False
toolSendTelotec.Enabled = False
Select Case cboAbfertigungsLand._value
Case "UK", "GB"
toolSendDyModelTrans.Enabled = True
Case "AT"
MenuStrip.Enabled = False
toolSendTelotec.Enabled = True
Case Else
MenuStrip.Enabled = True
toolSendDyEZA.Enabled = True
toolSendDyAES.Enabled = True
toolSendDyEXG.Enabled = True
toolSendDyNCTS.Enabled = True
End Select
End Sub
@@ -7600,71 +7613,12 @@ Public Class frmSendungsdetailsNEU
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
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
If SENDUNG_LIST IsNot Nothing Then
SND = SENDUNG_LIST(CURRENT_INDEX)
@@ -7674,26 +7628,108 @@ Public Class frmSendungsdetailsNEU
End If
Dim filialNr As Integer = SND.FilialenNr
Dim abfertigungsNr As Integer = SND.AbfertigungsNr
' URL zusammenbauen
Dim url As String = String.Format(
"https://login.verag.ag/ens?filialNr={0}&abfertigungsNr={1}",
filialNr,
abfertigungsNr
)
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 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
' Browser öffnen (ab .NET Framework 4.5 braucht man UseShellExecute=True)
Process.Start(New ProcessStartInfo With {
.FileName = url,
.UseShellExecute = True
})
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frmAttilaATEZNCTS = New frmATEZ_EZA(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
frmAttilaATEZNCTS.Show(Me)
AddHandler frmAttilaATEZNCTS.FormClosing, Function()
initdgvATEZ()
Me.BringToFront()
End Function
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Öffnen der URL: " & ex.Message,
"Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
MsgBox(ex.Message & ex.StackTrace)
End Try
Me.Cursor = Cursors.Default
End Sub
End Class

BIN
Diverses/Declarant.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.9 KiB

BIN
Diverses/Transcode.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.4 KiB