merge
This commit is contained in:
@@ -108,7 +108,7 @@
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
|
||||
<AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="Accessibility" />
|
||||
@@ -540,6 +540,12 @@
|
||||
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.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>
|
||||
@@ -1122,6 +1128,9 @@
|
||||
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
|
||||
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmATEZ_NCTS.resx">
|
||||
<DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
|
||||
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
975
Aviso/frmATEZ_NCTS.Designer.vb
generated
Normal file
975
Aviso/frmATEZ_NCTS.Designer.vb
generated
Normal file
@@ -0,0 +1,975 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class frmATEZ_NCTS
|
||||
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_NCTS))
|
||||
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.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.lklRoutenauswahl = New System.Windows.Forms.LinkLabel()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.lblC = New System.Windows.Forms.Label()
|
||||
Me.cbxTemperatur = New System.Windows.Forms.CheckBox()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.dtpDat = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.usrCntl_Carrier = New SDL.usrCntlAdresse()
|
||||
Me.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtTransporttemp = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbDurchgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbRoute1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
|
||||
Me.lblInfo = New System.Windows.Forms.Label()
|
||||
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'txtDyMandant
|
||||
'
|
||||
Me.txtDyMandant.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyMandant.Location = New System.Drawing.Point(4, 7)
|
||||
Me.txtDyMandant.Name = "txtDyMandant"
|
||||
Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
|
||||
Me.txtDyMandant.TabIndex = 23
|
||||
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(192, 7)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(82, 13)
|
||||
Me.Label1.TabIndex = 20
|
||||
Me.Label1.Text = "Bezugsnummer:"
|
||||
'
|
||||
'txtDyNiederlassung
|
||||
'
|
||||
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
|
||||
Me.txtDyNiederlassung.Location = New System.Drawing.Point(54, 8)
|
||||
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
|
||||
Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
|
||||
Me.txtDyNiederlassung.TabIndex = 22
|
||||
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(280, 7)
|
||||
Me.lblBezugsnummer.Name = "lblBezugsnummer"
|
||||
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
|
||||
Me.lblBezugsnummer.TabIndex = 21
|
||||
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
|
||||
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.Location = New System.Drawing.Point(12, 97)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(103, 17)
|
||||
Me.Label9.TabIndex = 24
|
||||
Me.Label9.Text = "Abgangs-Zollstelle:"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
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.ImageAlign = System.Drawing.ContentAlignment.TopCenter
|
||||
Me.Button1.Location = New System.Drawing.Point(153, 710)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(159, 42)
|
||||
Me.Button1.TabIndex = 26
|
||||
Me.Button1.Text = "An ATEZ senden -->"
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.Location = New System.Drawing.Point(12, 71)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(103, 17)
|
||||
Me.Label3.TabIndex = 42
|
||||
Me.Label3.Text = "LKW-KZ:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.Location = New System.Drawing.Point(12, 120)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(121, 17)
|
||||
Me.Label4.TabIndex = 44
|
||||
Me.Label4.Text = "Bestimmungs-Zollstelle:"
|
||||
'
|
||||
'lklRoutenauswahl
|
||||
'
|
||||
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(394, 483)
|
||||
Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
|
||||
Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
|
||||
Me.lklRoutenauswahl.TabIndex = 54
|
||||
Me.lklRoutenauswahl.TabStop = True
|
||||
Me.lklRoutenauswahl.Text = "Routenauswahl"
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.Location = New System.Drawing.Point(12, 483)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(135, 13)
|
||||
Me.Label14.TabIndex = 53
|
||||
Me.Label14.Text = "Route:"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.Location = New System.Drawing.Point(12, 388)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(135, 13)
|
||||
Me.Label5.TabIndex = 64
|
||||
Me.Label5.Text = "Durchgangszollstellen:"
|
||||
'
|
||||
'lblC
|
||||
'
|
||||
Me.lblC.AutoSize = True
|
||||
Me.lblC.Location = New System.Drawing.Point(253, 173)
|
||||
Me.lblC.Name = "lblC"
|
||||
Me.lblC.Size = New System.Drawing.Size(18, 13)
|
||||
Me.lblC.TabIndex = 78
|
||||
Me.lblC.Text = "°C"
|
||||
'
|
||||
'cbxTemperatur
|
||||
'
|
||||
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(15, 169)
|
||||
Me.cbxTemperatur.Name = "cbxTemperatur"
|
||||
Me.cbxTemperatur.Size = New System.Drawing.Size(125, 17)
|
||||
Me.cbxTemperatur.TabIndex = 76
|
||||
Me.cbxTemperatur.TabStop = False
|
||||
Me.cbxTemperatur.Text = "Trasport-Temperatur:"
|
||||
Me.cbxTemperatur.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.Location = New System.Drawing.Point(12, 142)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(103, 17)
|
||||
Me.Label7.TabIndex = 79
|
||||
Me.Label7.Text = "Datumgrenze:"
|
||||
'
|
||||
'dtpDat
|
||||
'
|
||||
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(153, 142)
|
||||
Me.dtpDat.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.dtpDat.Name = "dtpDat"
|
||||
Me.dtpDat.Size = New System.Drawing.Size(110, 24)
|
||||
Me.dtpDat.TabIndex = 81
|
||||
'
|
||||
'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(285, 70)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(57, 13)
|
||||
Me.Label8.TabIndex = 89
|
||||
Me.Label8.Text = "Stammref.:"
|
||||
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.Location = New System.Drawing.Point(12, 567)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(135, 13)
|
||||
Me.Label6.TabIndex = 96
|
||||
Me.Label6.Text = "Dokumente:"
|
||||
'
|
||||
'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.FormattingEnabled = True
|
||||
Me.cboStammreferenz.Location = New System.Drawing.Point(343, 67)
|
||||
Me.cboStammreferenz.Name = "cboStammreferenz"
|
||||
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
|
||||
Me.cboStammreferenz.TabIndex = 88
|
||||
'
|
||||
'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.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtLKWId.Location = New System.Drawing.Point(153, 68)
|
||||
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.TabIndex = 87
|
||||
'
|
||||
'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(15, 223)
|
||||
Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
|
||||
Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132)
|
||||
Me.usrCntl_Carrier.TabIndex = 84
|
||||
'
|
||||
'txtDat
|
||||
'
|
||||
Me.txtDat._DateTimeOnly = False
|
||||
Me.txtDat._numbersOnly = False
|
||||
Me.txtDat._numbersOnlyKommastellen = ""
|
||||
Me.txtDat._numbersOnlyTrennzeichen = True
|
||||
Me.txtDat._Prozent = False
|
||||
Me.txtDat._ShortDateNew = False
|
||||
Me.txtDat._ShortDateOnly = True
|
||||
Me.txtDat._TimeOnly = False
|
||||
Me.txtDat._TimeOnly_Seconds = False
|
||||
Me.txtDat._value = ""
|
||||
Me.txtDat._Waehrung = False
|
||||
Me.txtDat._WaehrungZeichen = True
|
||||
Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtDat.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtDat.Location = New System.Drawing.Point(153, 142)
|
||||
Me.txtDat.MaxLength = 10
|
||||
Me.txtDat.MaxLineLength = -1
|
||||
Me.txtDat.MaxLines_Warning = ""
|
||||
Me.txtDat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtDat.Multiline = True
|
||||
Me.txtDat.Name = "txtDat"
|
||||
Me.txtDat.Size = New System.Drawing.Size(78, 24)
|
||||
Me.txtDat.TabIndex = 80
|
||||
'
|
||||
'txtTransporttemp
|
||||
'
|
||||
Me.txtTransporttemp._DateTimeOnly = False
|
||||
Me.txtTransporttemp._numbersOnly = False
|
||||
Me.txtTransporttemp._numbersOnlyKommastellen = ""
|
||||
Me.txtTransporttemp._numbersOnlyTrennzeichen = True
|
||||
Me.txtTransporttemp._Prozent = False
|
||||
Me.txtTransporttemp._ShortDateNew = False
|
||||
Me.txtTransporttemp._ShortDateOnly = False
|
||||
Me.txtTransporttemp._TimeOnly = False
|
||||
Me.txtTransporttemp._TimeOnly_Seconds = False
|
||||
Me.txtTransporttemp._value = ""
|
||||
Me.txtTransporttemp._Waehrung = False
|
||||
Me.txtTransporttemp._WaehrungZeichen = True
|
||||
Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtTransporttemp.Location = New System.Drawing.Point(153, 169)
|
||||
Me.txtTransporttemp.MaxLineLength = -1
|
||||
Me.txtTransporttemp.MaxLines_Warning = ""
|
||||
Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
|
||||
Me.txtTransporttemp.Name = "txtTransporttemp"
|
||||
Me.txtTransporttemp.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtTransporttemp.TabIndex = 77
|
||||
'
|
||||
'sbDurchgangszollstelle5
|
||||
'
|
||||
Me.sbDurchgangszollstelle5._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle5._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle5._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle5._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle5._value = ""
|
||||
Me.sbDurchgangszollstelle5.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle5.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle5.key_visible = False
|
||||
Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(168, 423)
|
||||
Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
|
||||
Me.sbDurchgangszollstelle5.searchActive = True
|
||||
Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle5.TabIndex = 69
|
||||
Me.sbDurchgangszollstelle5.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle9
|
||||
'
|
||||
Me.sbDurchgangszollstelle9._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle9._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle9._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle9._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle9._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle9._value = ""
|
||||
Me.sbDurchgangszollstelle9.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle9.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle9.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle9.key_visible = False
|
||||
Me.sbDurchgangszollstelle9.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(321, 442)
|
||||
Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
|
||||
Me.sbDurchgangszollstelle9.searchActive = True
|
||||
Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle9.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle9.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle9.TabIndex = 73
|
||||
Me.sbDurchgangszollstelle9.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle8
|
||||
'
|
||||
Me.sbDurchgangszollstelle8._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle8._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle8._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle8._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle8._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle8._value = ""
|
||||
Me.sbDurchgangszollstelle8.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle8.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle8.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle8.key_visible = False
|
||||
Me.sbDurchgangszollstelle8.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(168, 442)
|
||||
Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
|
||||
Me.sbDurchgangszollstelle8.searchActive = True
|
||||
Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle8.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle8.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle8.TabIndex = 72
|
||||
Me.sbDurchgangszollstelle8.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle7
|
||||
'
|
||||
Me.sbDurchgangszollstelle7._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle7._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle7._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle7._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle7._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle7._value = ""
|
||||
Me.sbDurchgangszollstelle7.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle7.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle7.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle7.key_visible = False
|
||||
Me.sbDurchgangszollstelle7.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(15, 442)
|
||||
Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
|
||||
Me.sbDurchgangszollstelle7.searchActive = True
|
||||
Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle7.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle7.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle7.TabIndex = 71
|
||||
Me.sbDurchgangszollstelle7.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle6
|
||||
'
|
||||
Me.sbDurchgangszollstelle6._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle6._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle6._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle6._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle6._value = ""
|
||||
Me.sbDurchgangszollstelle6.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle6.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle6.key_visible = False
|
||||
Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(321, 423)
|
||||
Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
|
||||
Me.sbDurchgangszollstelle6.searchActive = True
|
||||
Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle6.TabIndex = 70
|
||||
Me.sbDurchgangszollstelle6.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle4
|
||||
'
|
||||
Me.sbDurchgangszollstelle4._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle4._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle4._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle4._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle4._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle4._value = ""
|
||||
Me.sbDurchgangszollstelle4.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle4.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle4.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle4.key_visible = False
|
||||
Me.sbDurchgangszollstelle4.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(15, 423)
|
||||
Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
|
||||
Me.sbDurchgangszollstelle4.searchActive = True
|
||||
Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle4.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle4.TabIndex = 68
|
||||
Me.sbDurchgangszollstelle4.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle3
|
||||
'
|
||||
Me.sbDurchgangszollstelle3._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle3._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle3._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle3._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle3._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle3._value = ""
|
||||
Me.sbDurchgangszollstelle3.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle3.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle3.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle3.key_visible = False
|
||||
Me.sbDurchgangszollstelle3.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(321, 404)
|
||||
Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
|
||||
Me.sbDurchgangszollstelle3.searchActive = True
|
||||
Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle3.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle3.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle3.TabIndex = 67
|
||||
Me.sbDurchgangszollstelle3.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle2
|
||||
'
|
||||
Me.sbDurchgangszollstelle2._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle2._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle2._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle2._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle2._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle2._value = ""
|
||||
Me.sbDurchgangszollstelle2.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle2.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle2.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle2.key_visible = False
|
||||
Me.sbDurchgangszollstelle2.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(168, 404)
|
||||
Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
|
||||
Me.sbDurchgangszollstelle2.searchActive = True
|
||||
Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle2.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle2.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle2.TabIndex = 66
|
||||
Me.sbDurchgangszollstelle2.usrcntl = Nothing
|
||||
'
|
||||
'sbDurchgangszollstelle1
|
||||
'
|
||||
Me.sbDurchgangszollstelle1._allowFreitext = False
|
||||
Me.sbDurchgangszollstelle1._AllowSetValue = False
|
||||
Me.sbDurchgangszollstelle1._allowSpaceAsSplitter = False
|
||||
Me.sbDurchgangszollstelle1._autoSizeGross = False
|
||||
Me.sbDurchgangszollstelle1._hideIfListEmpty = True
|
||||
Me.sbDurchgangszollstelle1._value = ""
|
||||
Me.sbDurchgangszollstelle1.conn_art = "FMZOLL"
|
||||
Me.sbDurchgangszollstelle1.dgvpos = "LEFT"
|
||||
Me.sbDurchgangszollstelle1.DISPLAY_PARAM = Nothing
|
||||
Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbDurchgangszollstelle1.key_visible = False
|
||||
Me.sbDurchgangszollstelle1.KEYPARAM = Nothing
|
||||
Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(15, 404)
|
||||
Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
|
||||
Me.sbDurchgangszollstelle1.searchActive = True
|
||||
Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbDurchgangszollstelle1.SQL_ORDER_BY = Nothing
|
||||
Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing
|
||||
Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing
|
||||
Me.sbDurchgangszollstelle1.SQL_WhereParamList = Nothing
|
||||
Me.sbDurchgangszollstelle1.TabIndex = 65
|
||||
Me.sbDurchgangszollstelle1.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute5
|
||||
'
|
||||
Me.sbRoute5._allowFreitext = False
|
||||
Me.sbRoute5._AllowSetValue = False
|
||||
Me.sbRoute5._allowSpaceAsSplitter = False
|
||||
Me.sbRoute5._autoSizeGross = False
|
||||
Me.sbRoute5._hideIfListEmpty = True
|
||||
Me.sbRoute5._value = ""
|
||||
Me.sbRoute5.conn_art = "FMZOLL"
|
||||
Me.sbRoute5.dgvpos = "LEFT"
|
||||
Me.sbRoute5.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute5.key_visible = False
|
||||
Me.sbRoute5.KEYPARAM = Nothing
|
||||
Me.sbRoute5.Location = New System.Drawing.Point(168, 518)
|
||||
Me.sbRoute5.Name = "sbRoute5"
|
||||
Me.sbRoute5.searchActive = True
|
||||
Me.sbRoute5.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute5.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute5.SQL_SELECT = Nothing
|
||||
Me.sbRoute5.SQL_WHERE = Nothing
|
||||
Me.sbRoute5.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute5.TabIndex = 59
|
||||
Me.sbRoute5.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute9
|
||||
'
|
||||
Me.sbRoute9._allowFreitext = False
|
||||
Me.sbRoute9._AllowSetValue = False
|
||||
Me.sbRoute9._allowSpaceAsSplitter = False
|
||||
Me.sbRoute9._autoSizeGross = False
|
||||
Me.sbRoute9._hideIfListEmpty = True
|
||||
Me.sbRoute9._value = ""
|
||||
Me.sbRoute9.conn_art = "FMZOLL"
|
||||
Me.sbRoute9.dgvpos = "LEFT"
|
||||
Me.sbRoute9.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute9.key_visible = False
|
||||
Me.sbRoute9.KEYPARAM = Nothing
|
||||
Me.sbRoute9.Location = New System.Drawing.Point(321, 537)
|
||||
Me.sbRoute9.Name = "sbRoute9"
|
||||
Me.sbRoute9.searchActive = True
|
||||
Me.sbRoute9.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute9.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute9.SQL_SELECT = Nothing
|
||||
Me.sbRoute9.SQL_WHERE = Nothing
|
||||
Me.sbRoute9.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute9.TabIndex = 63
|
||||
Me.sbRoute9.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute8
|
||||
'
|
||||
Me.sbRoute8._allowFreitext = False
|
||||
Me.sbRoute8._AllowSetValue = False
|
||||
Me.sbRoute8._allowSpaceAsSplitter = False
|
||||
Me.sbRoute8._autoSizeGross = False
|
||||
Me.sbRoute8._hideIfListEmpty = True
|
||||
Me.sbRoute8._value = ""
|
||||
Me.sbRoute8.conn_art = "FMZOLL"
|
||||
Me.sbRoute8.dgvpos = "LEFT"
|
||||
Me.sbRoute8.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute8.key_visible = False
|
||||
Me.sbRoute8.KEYPARAM = Nothing
|
||||
Me.sbRoute8.Location = New System.Drawing.Point(168, 537)
|
||||
Me.sbRoute8.Name = "sbRoute8"
|
||||
Me.sbRoute8.searchActive = True
|
||||
Me.sbRoute8.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute8.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute8.SQL_SELECT = Nothing
|
||||
Me.sbRoute8.SQL_WHERE = Nothing
|
||||
Me.sbRoute8.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute8.TabIndex = 62
|
||||
Me.sbRoute8.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute7
|
||||
'
|
||||
Me.sbRoute7._allowFreitext = False
|
||||
Me.sbRoute7._AllowSetValue = False
|
||||
Me.sbRoute7._allowSpaceAsSplitter = False
|
||||
Me.sbRoute7._autoSizeGross = False
|
||||
Me.sbRoute7._hideIfListEmpty = True
|
||||
Me.sbRoute7._value = ""
|
||||
Me.sbRoute7.conn_art = "FMZOLL"
|
||||
Me.sbRoute7.dgvpos = "LEFT"
|
||||
Me.sbRoute7.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute7.key_visible = False
|
||||
Me.sbRoute7.KEYPARAM = Nothing
|
||||
Me.sbRoute7.Location = New System.Drawing.Point(15, 537)
|
||||
Me.sbRoute7.Name = "sbRoute7"
|
||||
Me.sbRoute7.searchActive = True
|
||||
Me.sbRoute7.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute7.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute7.SQL_SELECT = Nothing
|
||||
Me.sbRoute7.SQL_WHERE = Nothing
|
||||
Me.sbRoute7.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute7.TabIndex = 61
|
||||
Me.sbRoute7.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute6
|
||||
'
|
||||
Me.sbRoute6._allowFreitext = False
|
||||
Me.sbRoute6._AllowSetValue = False
|
||||
Me.sbRoute6._allowSpaceAsSplitter = False
|
||||
Me.sbRoute6._autoSizeGross = False
|
||||
Me.sbRoute6._hideIfListEmpty = True
|
||||
Me.sbRoute6._value = ""
|
||||
Me.sbRoute6.conn_art = "FMZOLL"
|
||||
Me.sbRoute6.dgvpos = "LEFT"
|
||||
Me.sbRoute6.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute6.key_visible = False
|
||||
Me.sbRoute6.KEYPARAM = Nothing
|
||||
Me.sbRoute6.Location = New System.Drawing.Point(321, 518)
|
||||
Me.sbRoute6.Name = "sbRoute6"
|
||||
Me.sbRoute6.searchActive = True
|
||||
Me.sbRoute6.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute6.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute6.SQL_SELECT = Nothing
|
||||
Me.sbRoute6.SQL_WHERE = Nothing
|
||||
Me.sbRoute6.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute6.TabIndex = 60
|
||||
Me.sbRoute6.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute4
|
||||
'
|
||||
Me.sbRoute4._allowFreitext = False
|
||||
Me.sbRoute4._AllowSetValue = False
|
||||
Me.sbRoute4._allowSpaceAsSplitter = False
|
||||
Me.sbRoute4._autoSizeGross = False
|
||||
Me.sbRoute4._hideIfListEmpty = True
|
||||
Me.sbRoute4._value = ""
|
||||
Me.sbRoute4.conn_art = "FMZOLL"
|
||||
Me.sbRoute4.dgvpos = "LEFT"
|
||||
Me.sbRoute4.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute4.key_visible = False
|
||||
Me.sbRoute4.KEYPARAM = Nothing
|
||||
Me.sbRoute4.Location = New System.Drawing.Point(15, 518)
|
||||
Me.sbRoute4.Name = "sbRoute4"
|
||||
Me.sbRoute4.searchActive = True
|
||||
Me.sbRoute4.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute4.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute4.SQL_SELECT = Nothing
|
||||
Me.sbRoute4.SQL_WHERE = Nothing
|
||||
Me.sbRoute4.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute4.TabIndex = 58
|
||||
Me.sbRoute4.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute3
|
||||
'
|
||||
Me.sbRoute3._allowFreitext = False
|
||||
Me.sbRoute3._AllowSetValue = False
|
||||
Me.sbRoute3._allowSpaceAsSplitter = False
|
||||
Me.sbRoute3._autoSizeGross = False
|
||||
Me.sbRoute3._hideIfListEmpty = True
|
||||
Me.sbRoute3._value = ""
|
||||
Me.sbRoute3.conn_art = "FMZOLL"
|
||||
Me.sbRoute3.dgvpos = "LEFT"
|
||||
Me.sbRoute3.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute3.key_visible = False
|
||||
Me.sbRoute3.KEYPARAM = Nothing
|
||||
Me.sbRoute3.Location = New System.Drawing.Point(321, 499)
|
||||
Me.sbRoute3.Name = "sbRoute3"
|
||||
Me.sbRoute3.searchActive = True
|
||||
Me.sbRoute3.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute3.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute3.SQL_SELECT = Nothing
|
||||
Me.sbRoute3.SQL_WHERE = Nothing
|
||||
Me.sbRoute3.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute3.TabIndex = 57
|
||||
Me.sbRoute3.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute2
|
||||
'
|
||||
Me.sbRoute2._allowFreitext = False
|
||||
Me.sbRoute2._AllowSetValue = False
|
||||
Me.sbRoute2._allowSpaceAsSplitter = False
|
||||
Me.sbRoute2._autoSizeGross = False
|
||||
Me.sbRoute2._hideIfListEmpty = True
|
||||
Me.sbRoute2._value = ""
|
||||
Me.sbRoute2.conn_art = "FMZOLL"
|
||||
Me.sbRoute2.dgvpos = "LEFT"
|
||||
Me.sbRoute2.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute2.key_visible = False
|
||||
Me.sbRoute2.KEYPARAM = Nothing
|
||||
Me.sbRoute2.Location = New System.Drawing.Point(168, 499)
|
||||
Me.sbRoute2.Name = "sbRoute2"
|
||||
Me.sbRoute2.searchActive = True
|
||||
Me.sbRoute2.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute2.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute2.SQL_SELECT = Nothing
|
||||
Me.sbRoute2.SQL_WHERE = Nothing
|
||||
Me.sbRoute2.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute2.TabIndex = 56
|
||||
Me.sbRoute2.usrcntl = Nothing
|
||||
'
|
||||
'sbRoute1
|
||||
'
|
||||
Me.sbRoute1._allowFreitext = False
|
||||
Me.sbRoute1._AllowSetValue = False
|
||||
Me.sbRoute1._allowSpaceAsSplitter = False
|
||||
Me.sbRoute1._autoSizeGross = False
|
||||
Me.sbRoute1._hideIfListEmpty = True
|
||||
Me.sbRoute1._value = ""
|
||||
Me.sbRoute1.conn_art = "FMZOLL"
|
||||
Me.sbRoute1.dgvpos = "LEFT"
|
||||
Me.sbRoute1.DISPLAY_PARAM = Nothing
|
||||
Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbRoute1.key_visible = False
|
||||
Me.sbRoute1.KEYPARAM = Nothing
|
||||
Me.sbRoute1.Location = New System.Drawing.Point(15, 499)
|
||||
Me.sbRoute1.Name = "sbRoute1"
|
||||
Me.sbRoute1.searchActive = True
|
||||
Me.sbRoute1.Size = New System.Drawing.Size(154, 20)
|
||||
Me.sbRoute1.SQL_ORDER_BY = Nothing
|
||||
Me.sbRoute1.SQL_SELECT = Nothing
|
||||
Me.sbRoute1.SQL_WHERE = Nothing
|
||||
Me.sbRoute1.SQL_WhereParamList = Nothing
|
||||
Me.sbRoute1.TabIndex = 55
|
||||
Me.sbRoute1.usrcntl = Nothing
|
||||
'
|
||||
'sbBestimmungsZollstelle
|
||||
'
|
||||
Me.sbBestimmungsZollstelle._allowFreitext = False
|
||||
Me.sbBestimmungsZollstelle._AllowSetValue = False
|
||||
Me.sbBestimmungsZollstelle._allowSpaceAsSplitter = False
|
||||
Me.sbBestimmungsZollstelle._autoSizeGross = False
|
||||
Me.sbBestimmungsZollstelle._hideIfListEmpty = True
|
||||
Me.sbBestimmungsZollstelle._value = ""
|
||||
Me.sbBestimmungsZollstelle.conn_art = "FMZOLL"
|
||||
Me.sbBestimmungsZollstelle.dgvpos = "LEFT"
|
||||
Me.sbBestimmungsZollstelle.DISPLAY_PARAM = Nothing
|
||||
Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbBestimmungsZollstelle.key_visible = False
|
||||
Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
|
||||
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(153, 120)
|
||||
Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
|
||||
Me.sbBestimmungsZollstelle.searchActive = True
|
||||
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
|
||||
Me.sbBestimmungsZollstelle.SQL_ORDER_BY = Nothing
|
||||
Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing
|
||||
Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing
|
||||
Me.sbBestimmungsZollstelle.SQL_WhereParamList = Nothing
|
||||
Me.sbBestimmungsZollstelle.TabIndex = 45
|
||||
Me.sbBestimmungsZollstelle.usrcntl = Nothing
|
||||
'
|
||||
'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(15, 583)
|
||||
Me.dgvAnhaenge.Name = "dgvAnhaenge"
|
||||
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 122)
|
||||
Me.dgvAnhaenge.TabIndex = 40
|
||||
'
|
||||
'columnName
|
||||
'
|
||||
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
|
||||
Me.columnName.HeaderText = "Name"
|
||||
Me.columnName.Name = "columnName"
|
||||
Me.columnName.ReadOnly = True
|
||||
'
|
||||
'sbAbgangZollstelle
|
||||
'
|
||||
Me.sbAbgangZollstelle._allowFreitext = False
|
||||
Me.sbAbgangZollstelle._AllowSetValue = False
|
||||
Me.sbAbgangZollstelle._allowSpaceAsSplitter = False
|
||||
Me.sbAbgangZollstelle._autoSizeGross = False
|
||||
Me.sbAbgangZollstelle._hideIfListEmpty = True
|
||||
Me.sbAbgangZollstelle._value = ""
|
||||
Me.sbAbgangZollstelle.conn_art = "FMZOLL"
|
||||
Me.sbAbgangZollstelle.dgvpos = "LEFT"
|
||||
Me.sbAbgangZollstelle.DISPLAY_PARAM = Nothing
|
||||
Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
|
||||
Me.sbAbgangZollstelle.key_visible = False
|
||||
Me.sbAbgangZollstelle.KEYPARAM = Nothing
|
||||
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(153, 94)
|
||||
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
|
||||
Me.sbAbgangZollstelle.searchActive = True
|
||||
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
|
||||
Me.sbAbgangZollstelle.SQL_ORDER_BY = Nothing
|
||||
Me.sbAbgangZollstelle.SQL_SELECT = Nothing
|
||||
Me.sbAbgangZollstelle.SQL_WHERE = Nothing
|
||||
Me.sbAbgangZollstelle.SQL_WhereParamList = Nothing
|
||||
Me.sbAbgangZollstelle.TabIndex = 25
|
||||
Me.sbAbgangZollstelle.usrcntl = Nothing
|
||||
'
|
||||
'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(12, 32)
|
||||
Me.lblInfo.Name = "lblInfo"
|
||||
Me.lblInfo.Size = New System.Drawing.Size(460, 27)
|
||||
Me.lblInfo.TabIndex = 105
|
||||
'
|
||||
'frmATEZ_NCTS
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(484, 763)
|
||||
Me.Controls.Add(Me.lblInfo)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.Label8)
|
||||
Me.Controls.Add(Me.cboStammreferenz)
|
||||
Me.Controls.Add(Me.txtLKWId)
|
||||
Me.Controls.Add(Me.usrCntl_Carrier)
|
||||
Me.Controls.Add(Me.txtDat)
|
||||
Me.Controls.Add(Me.dtpDat)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.lblC)
|
||||
Me.Controls.Add(Me.txtTransporttemp)
|
||||
Me.Controls.Add(Me.cbxTemperatur)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle5)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle9)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle8)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle7)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle6)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle4)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle3)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle2)
|
||||
Me.Controls.Add(Me.sbDurchgangszollstelle1)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.lklRoutenauswahl)
|
||||
Me.Controls.Add(Me.sbRoute5)
|
||||
Me.Controls.Add(Me.sbRoute9)
|
||||
Me.Controls.Add(Me.sbRoute8)
|
||||
Me.Controls.Add(Me.sbRoute7)
|
||||
Me.Controls.Add(Me.sbRoute6)
|
||||
Me.Controls.Add(Me.sbRoute4)
|
||||
Me.Controls.Add(Me.sbRoute3)
|
||||
Me.Controls.Add(Me.sbRoute2)
|
||||
Me.Controls.Add(Me.sbRoute1)
|
||||
Me.Controls.Add(Me.Label14)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.sbBestimmungsZollstelle)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.dgvAnhaenge)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.Label9)
|
||||
Me.Controls.Add(Me.sbAbgangZollstelle)
|
||||
Me.Controls.Add(Me.txtDyMandant)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.txtDyNiederlassung)
|
||||
Me.Controls.Add(Me.lblBezugsnummer)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmATEZ_NCTS"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "ATEZ NCTS"
|
||||
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents txtDyMandant As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents txtDyNiederlassung As Label
|
||||
Friend WithEvents lblBezugsnummer As Label
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents columnName As DataGridViewTextBoxColumn
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents lklRoutenauswahl As LinkLabel
|
||||
Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute8 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute7 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute6 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute4 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute3 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute2 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbRoute1 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Label14 As Label
|
||||
Friend WithEvents sbDurchgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle9 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle8 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents sbDurchgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MySearchBox
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents lblC As Label
|
||||
Friend WithEvents txtTransporttemp As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cbxTemperatur As CheckBox
|
||||
Friend WithEvents Label7 As Label
|
||||
Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents dtpDat As DateTimePicker
|
||||
Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse
|
||||
Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label8 As Label
|
||||
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents lblInfo As Label
|
||||
End Class
|
||||
1256
Aviso/frmATEZ_NCTS.resx
Normal file
1256
Aviso/frmATEZ_NCTS.resx
Normal file
File diff suppressed because it is too large
Load Diff
331
Aviso/frmATEZ_NCTS.vb
Normal file
331
Aviso/frmATEZ_NCTS.vb
Normal file
@@ -0,0 +1,331 @@
|
||||
Imports SDL
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class frmATEZ_NCTS
|
||||
|
||||
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
|
||||
|
||||
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)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
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 Button1.Click
|
||||
lblInfo.Text = ""
|
||||
Dim failreDesc As String
|
||||
|
||||
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
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim atezData As New cATEZ_NCTS_DATA
|
||||
Dim atez As New cATEZ_NCTS_IN
|
||||
|
||||
With atezData
|
||||
|
||||
.AvisoId = AVISO.AvisoID
|
||||
.SendungsId = SENDUNG.tblSnd_SendungID
|
||||
.VERAG_LRN = lblBezugsnummer.Text
|
||||
.LicensePlateContainerNo = txtLKWId.Text
|
||||
.DAKOSY_TemplateCode = cboStammreferenz._value
|
||||
.DAKOSY_IOPartner = txtDyNiederlassung.Text & txtDyNiederlassung.Text
|
||||
.DAKOSY_Division1 = ""
|
||||
.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
|
||||
.SAVE()
|
||||
|
||||
End With
|
||||
|
||||
If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value)
|
||||
If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value)
|
||||
If sbDurchgangszollstelle3._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle3._value)
|
||||
If sbDurchgangszollstelle4._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle4._value)
|
||||
If sbDurchgangszollstelle5._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle5._value)
|
||||
If sbDurchgangszollstelle6._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle6._value)
|
||||
|
||||
|
||||
If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value)
|
||||
If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value)
|
||||
If sbRoute3._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute3._value)
|
||||
If sbRoute4._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute4._value)
|
||||
If sbRoute5._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute5._value)
|
||||
If sbRoute6._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute6._value)
|
||||
If sbRoute7._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute7._value)
|
||||
If sbRoute8._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute8._value)
|
||||
If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value)
|
||||
|
||||
|
||||
Dim authResp = atez.authenticate()
|
||||
If authResp <> "200" Then
|
||||
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
|
||||
lblInfo.Text = failreDesc
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten")
|
||||
|
||||
Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
|
||||
|
||||
If failreDesc <> "" Then
|
||||
atezData.status = failreDesc
|
||||
atezData.SAVE()
|
||||
lblInfo.Text = failreDesc
|
||||
|
||||
Else
|
||||
atezData.status = "Sent"
|
||||
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
|
||||
atezData.SAVE()
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function getBezugsnr(ByRef BezugsNr)
|
||||
Dim BezugsNrTmp = ""
|
||||
BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig
|
||||
BezugsNr = BezugsNrTmp
|
||||
zusatz = "A"
|
||||
'Soloagne bis die Bezugsnummer noch nicht existiert
|
||||
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
|
||||
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()
|
||||
initAttachment()
|
||||
|
||||
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("")
|
||||
|
||||
getBezugsnr(BezugsNr)
|
||||
txtLKWId.Text = AVISO.LKW_Nr
|
||||
|
||||
cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
|
||||
txtTransporttemp.Text = AVISO.TransportTemperatur
|
||||
|
||||
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
|
||||
usrCntl_Carrier.kdFirma.initKdBox(Me)
|
||||
usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr
|
||||
End If
|
||||
|
||||
If AVISO.Grenzstelle.Replace("???", "") = "" Then
|
||||
sbAbgangZollstelle.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
|
||||
sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
sbDurchgangszollstelle1.SET_VALUE(If(AVISO.Durchgangszollstelle1, ""))
|
||||
sbDurchgangszollstelle2.SET_VALUE(If(AVISO.Durchgangszollstelle2, ""))
|
||||
sbDurchgangszollstelle3.SET_VALUE(If(AVISO.Durchgangszollstelle3, ""))
|
||||
sbDurchgangszollstelle4.SET_VALUE(If(AVISO.Durchgangszollstelle4, ""))
|
||||
sbDurchgangszollstelle5.SET_VALUE(If(AVISO.Durchgangszollstelle5, ""))
|
||||
sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, ""))
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initAttachment()
|
||||
Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
|
||||
|
||||
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 isnull(anh_SendungsId,0) <=0 And anh_Typ = 'PDF'
|
||||
Order BY [anh_Reihenfolge], anh_Datum desc, [anh_id]"
|
||||
|
||||
Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
|
||||
|
||||
Dim col As DataColumn
|
||||
col = dt.Columns.Add("anh_selekt", GetType(Boolean))
|
||||
col.SetOrdinal(0)
|
||||
|
||||
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").MinimumWidth = 50
|
||||
.Columns("anh_selekt").HeaderText = "ausgewählt"
|
||||
.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_Name").MinimumWidth = 150
|
||||
.Columns("anh_Name").HeaderText = "Name"
|
||||
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("anh_Art").MinimumWidth = 50
|
||||
.Columns("anh_Art").HeaderText = "Art"
|
||||
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns("anh_Typ").Width = 60
|
||||
.Columns("anh_Typ").HeaderText = "Typ"
|
||||
.Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initSeachboxes()
|
||||
|
||||
sbAbgangZollstelle.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"})
|
||||
|
||||
sbDurchgangszollstelle1.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"})
|
||||
sbDurchgangszollstelle2.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"})
|
||||
sbDurchgangszollstelle3.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"})
|
||||
sbDurchgangszollstelle4.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"})
|
||||
sbDurchgangszollstelle5.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"})
|
||||
sbDurchgangszollstelle6.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"})
|
||||
sbDurchgangszollstelle7.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"})
|
||||
sbDurchgangszollstelle8.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"})
|
||||
sbDurchgangszollstelle9.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"})
|
||||
|
||||
|
||||
sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
|
||||
End Sub
|
||||
|
||||
Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
|
||||
Dim frmRoutenauswahl As New frmRoutenauswahl
|
||||
If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
|
||||
If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
|
||||
If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
|
||||
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 0 Then sbDurchgangszollstelle1.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(0)) Else sbDurchgangszollstelle1.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 1 Then sbDurchgangszollstelle2.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(1)) Else sbDurchgangszollstelle2.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 2 Then sbDurchgangszollstelle3.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(2)) Else sbDurchgangszollstelle3.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 3 Then sbDurchgangszollstelle4.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(3)) Else sbDurchgangszollstelle4.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 4 Then sbDurchgangszollstelle5.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(4)) Else sbDurchgangszollstelle5.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 5 Then sbDurchgangszollstelle6.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(5)) Else sbDurchgangszollstelle6.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 6 Then sbDurchgangszollstelle7.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(6)) Else sbDurchgangszollstelle7.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 7 Then sbDurchgangszollstelle8.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(7)) Else sbDurchgangszollstelle8.SET_VALUE("")
|
||||
If frmRoutenauswahl.ZOLLAEMTER.Count > 8 Then sbDurchgangszollstelle9.SET_VALUE(frmRoutenauswahl.ZOLLAEMTER(8)) Else sbDurchgangszollstelle9.SET_VALUE("")
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged
|
||||
txtDat._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
End Class
|
||||
18
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
18
Aviso/frmSendungsdetailsNEU.Designer.vb
generated
@@ -412,6 +412,7 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AntragQualitätskontrolleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
@@ -5036,9 +5037,9 @@ Partial Class frmSendungsdetailsNEU
|
||||
'ctxtWeitereFormulare
|
||||
'
|
||||
Me.ctxtWeitereFormulare.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem, Me.AMBARZollbeschauToolStripMenuItem, Me.AMBARZollbeschauNEUToolStripMenuItem})
|
||||
Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem, Me.AMBARZollbeschauToolStripMenuItem, Me.AMBARZollbeschauNEUToolStripMenuItem, Me.AntragQualitätskontrolleToolStripMenuItem})
|
||||
Me.ctxtWeitereFormulare.Name = "cntxt"
|
||||
Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 158)
|
||||
Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 202)
|
||||
'
|
||||
'toolGelangensbestätigung
|
||||
'
|
||||
@@ -5087,19 +5088,19 @@ Partial Class frmSendungsdetailsNEU
|
||||
'ImportToolStripMenuItem
|
||||
'
|
||||
Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem"
|
||||
Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
|
||||
Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.ImportToolStripMenuItem.Text = "Import"
|
||||
'
|
||||
'ExportToolStripMenuItem
|
||||
'
|
||||
Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
|
||||
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
|
||||
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.ExportToolStripMenuItem.Text = "Export"
|
||||
'
|
||||
'ExportT1ToolStripMenuItem
|
||||
'
|
||||
Me.ExportT1ToolStripMenuItem.Name = "ExportT1ToolStripMenuItem"
|
||||
Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
|
||||
Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.ExportT1ToolStripMenuItem.Text = "Export T1"
|
||||
'
|
||||
'AMBARZollbeschauToolStripMenuItem
|
||||
@@ -5321,6 +5322,12 @@ Partial Class frmSendungsdetailsNEU
|
||||
Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30)
|
||||
Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen"
|
||||
'
|
||||
'AntragQualitätskontrolleToolStripMenuItem
|
||||
'
|
||||
Me.AntragQualitätskontrolleToolStripMenuItem.Name = "AntragQualitätskontrolleToolStripMenuItem"
|
||||
Me.AntragQualitätskontrolleToolStripMenuItem.Size = New System.Drawing.Size(262, 22)
|
||||
Me.AntragQualitätskontrolleToolStripMenuItem.Text = "Antrag Qualitätskontrolle"
|
||||
'
|
||||
'frmSendungsdetailsNEU
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
||||
@@ -5803,4 +5810,5 @@ Partial Class frmSendungsdetailsNEU
|
||||
Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem
|
||||
Friend WithEvents Button19 As Button
|
||||
Friend WithEvents AntragQualitätskontrolleToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -6308,5 +6308,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
177
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb
generated
177
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb
generated
@@ -44,6 +44,11 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
|
||||
@@ -67,6 +72,10 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Me.Button11 = New System.Windows.Forms.Button()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.tbATEZ = New System.Windows.Forms.TabPage()
|
||||
Me.dgvATEZNCTS = New System.Windows.Forms.DataGridView()
|
||||
Me.Panel10 = New System.Windows.Forms.Panel()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.Panel7 = New System.Windows.Forms.Panel()
|
||||
Me.gridVermerke = New System.Windows.Forms.DataGridView()
|
||||
Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
|
||||
@@ -165,6 +174,9 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Me.tbAnhaenge.SuspendLayout()
|
||||
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel5.SuspendLayout()
|
||||
Me.tbATEZ.SuspendLayout()
|
||||
CType(Me.dgvATEZNCTS, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel10.SuspendLayout()
|
||||
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnlVermerkeTop.SuspendLayout()
|
||||
Me.Panel8.SuspendLayout()
|
||||
@@ -244,6 +256,7 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Me.tbcntr.Controls.Add(Me.tbZollanmeldungen)
|
||||
Me.tbcntr.Controls.Add(Me.tbSpedBuch)
|
||||
Me.tbcntr.Controls.Add(Me.tbAnhaenge)
|
||||
Me.tbcntr.Controls.Add(Me.tbATEZ)
|
||||
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.tbcntr.Location = New System.Drawing.Point(0, 0)
|
||||
Me.tbcntr.Name = "tbcntr"
|
||||
@@ -601,6 +614,90 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button10.UseVisualStyleBackColor = True
|
||||
'
|
||||
'tbATEZ
|
||||
'
|
||||
Me.tbATEZ.Controls.Add(Me.dgvATEZNCTS)
|
||||
Me.tbATEZ.Controls.Add(Me.Panel10)
|
||||
Me.tbATEZ.Location = New System.Drawing.Point(4, 22)
|
||||
Me.tbATEZ.Name = "tbATEZ"
|
||||
Me.tbATEZ.Size = New System.Drawing.Size(567, 157)
|
||||
Me.tbATEZ.TabIndex = 4
|
||||
Me.tbATEZ.Text = "ATEZ NCTS"
|
||||
Me.tbATEZ.UseVisualStyleBackColor = True
|
||||
'
|
||||
'dgvATEZNCTS
|
||||
'
|
||||
Me.dgvATEZNCTS.AllowUserToAddRows = False
|
||||
Me.dgvATEZNCTS.AllowUserToDeleteRows = False
|
||||
Me.dgvATEZNCTS.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
|
||||
Me.dgvATEZNCTS.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
|
||||
Me.dgvATEZNCTS.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvATEZNCTS.DefaultCellStyle = DataGridViewCellStyle18
|
||||
Me.dgvATEZNCTS.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.dgvATEZNCTS.Location = New System.Drawing.Point(0, 31)
|
||||
Me.dgvATEZNCTS.MultiSelect = False
|
||||
Me.dgvATEZNCTS.Name = "dgvATEZNCTS"
|
||||
Me.dgvATEZNCTS.ReadOnly = True
|
||||
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
|
||||
Me.dgvATEZNCTS.RowHeadersVisible = False
|
||||
Me.dgvATEZNCTS.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvATEZNCTS.RowsDefaultCellStyle = DataGridViewCellStyle20
|
||||
Me.dgvATEZNCTS.RowTemplate.Height = 20
|
||||
Me.dgvATEZNCTS.RowTemplate.ReadOnly = True
|
||||
Me.dgvATEZNCTS.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvATEZNCTS.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvATEZNCTS.ShowCellErrors = False
|
||||
Me.dgvATEZNCTS.ShowRowErrors = False
|
||||
Me.dgvATEZNCTS.Size = New System.Drawing.Size(567, 126)
|
||||
Me.dgvATEZNCTS.TabIndex = 104
|
||||
Me.dgvATEZNCTS.TabStop = False
|
||||
'
|
||||
'Panel10
|
||||
'
|
||||
Me.Panel10.Controls.Add(Me.Label12)
|
||||
Me.Panel10.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel10.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel10.Name = "Panel10"
|
||||
Me.Panel10.Size = New System.Drawing.Size(567, 31)
|
||||
Me.Panel10.TabIndex = 105
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label12.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
Me.Label12.Location = New System.Drawing.Point(3, 15)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(76, 13)
|
||||
Me.Label12.TabIndex = 98
|
||||
Me.Label12.Text = "ATEZ NCTS"
|
||||
'
|
||||
'Panel7
|
||||
'
|
||||
Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
@@ -617,44 +714,44 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Me.gridVermerke.AllowUserToAddRows = False
|
||||
Me.gridVermerke.AllowUserToDeleteRows = False
|
||||
Me.gridVermerke.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
|
||||
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
|
||||
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle22.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle22.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
|
||||
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18
|
||||
DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle23
|
||||
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.gridVermerke.Location = New System.Drawing.Point(0, 29)
|
||||
Me.gridVermerke.MultiSelect = False
|
||||
Me.gridVermerke.Name = "gridVermerke"
|
||||
Me.gridVermerke.ReadOnly = True
|
||||
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
|
||||
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle24
|
||||
Me.gridVermerke.RowHeadersVisible = False
|
||||
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
|
||||
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle25
|
||||
Me.gridVermerke.RowTemplate.Height = 20
|
||||
Me.gridVermerke.RowTemplate.ReadOnly = True
|
||||
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
@@ -1544,29 +1641,29 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
'ToolStripSeparator2
|
||||
'
|
||||
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
|
||||
Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
|
||||
Me.ToolStripSeparator2.Size = New System.Drawing.Size(152, 6)
|
||||
'
|
||||
'NCTST2ToolStripMenuItem
|
||||
'
|
||||
Me.NCTST2ToolStripMenuItem.Name = "NCTST2ToolStripMenuItem"
|
||||
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.NCTST2ToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
|
||||
Me.NCTST2ToolStripMenuItem.Text = "NCTS - Versand"
|
||||
'
|
||||
'AESToolStripMenuItem
|
||||
'
|
||||
Me.AESToolStripMenuItem.Name = "AESToolStripMenuItem"
|
||||
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.AESToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
|
||||
Me.AESToolStripMenuItem.Text = "AES - Ausfuhr"
|
||||
'
|
||||
'ToolStripSeparator1
|
||||
'
|
||||
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
|
||||
Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6)
|
||||
'
|
||||
'SGSNCTSToolStripMenuItem
|
||||
'
|
||||
Me.SGSNCTSToolStripMenuItem.Name = "SGSNCTSToolStripMenuItem"
|
||||
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.SGSNCTSToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
|
||||
Me.SGSNCTSToolStripMenuItem.Text = "SGS - NCTS"
|
||||
Me.SGSNCTSToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -1575,13 +1672,13 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Me.cntxtZollantrag.ImageScalingSize = New System.Drawing.Size(24, 24)
|
||||
Me.cntxtZollantrag.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator2, Me.NCTST2ToolStripMenuItem, Me.AESToolStripMenuItem, Me.ToolStripSeparator1, Me.SGSNCTSToolStripMenuItem, Me.NCTSATEZToolStripMenuItem})
|
||||
Me.cntxtZollantrag.Name = "cntxtZollantrag"
|
||||
Me.cntxtZollantrag.Size = New System.Drawing.Size(181, 126)
|
||||
Me.cntxtZollantrag.Size = New System.Drawing.Size(156, 104)
|
||||
Me.cntxtZollantrag.Text = "Zollantrag"
|
||||
'
|
||||
'NCTSATEZToolStripMenuItem
|
||||
'
|
||||
Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem"
|
||||
Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
|
||||
Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ"
|
||||
Me.NCTSATEZToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -1657,6 +1754,10 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Me.tbAnhaenge.ResumeLayout(False)
|
||||
CType(Me.dgvanhaenge, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel5.ResumeLayout(False)
|
||||
Me.tbATEZ.ResumeLayout(False)
|
||||
CType(Me.dgvATEZNCTS, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel10.ResumeLayout(False)
|
||||
Me.Panel10.PerformLayout()
|
||||
CType(Me.gridVermerke, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pnlVermerkeTop.ResumeLayout(False)
|
||||
Me.pnlVermerkeTop.PerformLayout()
|
||||
@@ -1798,4 +1899,8 @@ Partial Class usrcntlAktDetailsATILLANeu
|
||||
Friend WithEvents btnAnIndonesien As Button
|
||||
Friend WithEvents Label11 As Label
|
||||
Friend WithEvents NCTSATEZToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents tbATEZ As TabPage
|
||||
Friend WithEvents dgvATEZNCTS As DataGridView
|
||||
Friend WithEvents Panel10 As Panel
|
||||
Friend WithEvents Label12 As Label
|
||||
End Class
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
|
||||
|
||||
Imports System.IO
|
||||
Imports System.IO
|
||||
'Imports Gemeinsames.cDatenbank
|
||||
Imports System.Drawing
|
||||
|
||||
@@ -130,7 +130,7 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
|
||||
|
||||
'Kann nur bei Freigabe angezeigt werden
|
||||
If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben Then
|
||||
If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
||||
Button3.Visible = False
|
||||
End If
|
||||
|
||||
@@ -144,11 +144,39 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initdgvATEZ()
|
||||
With dgvATEZNCTS
|
||||
.Columns.Clear()
|
||||
.ReadOnly = False
|
||||
.DataSource = SQL.loadDgvBySql("select [Id],'ATEZ' as Art ,[VERAG_LRN] as BezugsNr,[erstellung] as Erstellung,[Status] as Status FROM [tblATEZ_NCTS] WHERE AvisoId='" & AvisoID & "'", "FMZOLL")
|
||||
If .Columns.Count <= 0 Then Exit Sub
|
||||
'Ä.Columns("txtStatus").ReadOnly = False
|
||||
.Columns("Id").Visible = False
|
||||
|
||||
.Columns("Art").HeaderText = "Art"
|
||||
.Columns("Art").Width = 80
|
||||
|
||||
.Columns("Status").HeaderText = "Art"
|
||||
.Columns("Status").Width = 80
|
||||
|
||||
.Columns("BezugsNr").HeaderText = "BezugsNr"
|
||||
.Columns("BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("Erstellung").HeaderText = "Erstellt"
|
||||
.Columns("Erstellung").Width = 100
|
||||
.Columns("Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
|
||||
.Columns("Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.ReadOnly = False
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initdgvZollAnmeldungen()
|
||||
With dgvZollAnmeldungen
|
||||
.Columns.Clear()
|
||||
.ReadOnly = False
|
||||
.DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
|
||||
.DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
|
||||
If .Columns.Count <= 0 Then Exit Sub
|
||||
'Ä.Columns("txtStatus").ReadOnly = False
|
||||
.Columns("dy_Id").Visible = False
|
||||
@@ -176,6 +204,7 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting
|
||||
Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name
|
||||
Case "txtStatus" 'Dauer
|
||||
@@ -207,7 +236,7 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
Dim SYSTEM = "DAKOSY"
|
||||
|
||||
' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy"))
|
||||
Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), System)
|
||||
Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), SYSTEM)
|
||||
AddHandler f.FormClosed, Sub()
|
||||
initdgvZollAnmeldungen()
|
||||
End Sub
|
||||
@@ -229,6 +258,13 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
SGSNCTSToolStripMenuItem.Visible = True
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then
|
||||
NCTSATEZToolStripMenuItem.Visible = True
|
||||
tbATEZ.Visible = True
|
||||
Else
|
||||
tbATEZ.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
timer.Interval = 100
|
||||
reload(AvisoID)
|
||||
@@ -258,9 +294,6 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
dgvZollAnmeldungen.ClearSelection()
|
||||
End Sub
|
||||
|
||||
@@ -292,9 +325,9 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
|
||||
Button3.Visible = False
|
||||
Select Case AVISO.Status
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Ankunft
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
|
||||
lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
|
||||
lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor
|
||||
'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet
|
||||
' lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor
|
||||
@@ -304,13 +337,13 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
lblStatus.Text = "AN VERIMEX" : pnlStatus.BackColor = btnAnVerimex.BackColor
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
|
||||
lblStatus.Text = "AN INDONESIEN" : pnlStatus.BackColor = btnAnIndonesien.BackColor
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
|
||||
lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor
|
||||
Button3.Visible = True
|
||||
'For Each s In sendun
|
||||
'If alle spedbuchOK
|
||||
'visible
|
||||
Case VERAG_PROG_ALLGEMEIN.cglobal.Status_NichtEingetroffen
|
||||
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
|
||||
lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = btnNichtEingetroffen.BackColor
|
||||
|
||||
End Select
|
||||
@@ -545,10 +578,9 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
Else
|
||||
Process.Start(docPath)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
@@ -566,8 +598,8 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
myVermerk.VermerkID = 0
|
||||
'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
|
||||
myVermerk.Datum = Now
|
||||
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID
|
||||
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID
|
||||
Dim init As Boolean = False
|
||||
Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value)
|
||||
Case "1"
|
||||
@@ -1476,6 +1508,8 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
initdgvZollAnmeldungen()
|
||||
ElseIf tbcntr.SelectedTab Is tbVermerke Then
|
||||
If loaded Then Vermerke_anzeigen()
|
||||
ElseIf tbcntr.SelectedTab Is tbATEZ Then
|
||||
initdgvATEZ()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1613,49 +1647,24 @@ Public Class usrcntlAktDetailsATILLANeu
|
||||
End Sub
|
||||
|
||||
Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
|
||||
If dgvanhaenge.SelectedRows.Count = 0 Then
|
||||
MsgBox("Bitte zu schickenden Anhänge markieren!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Try
|
||||
|
||||
|
||||
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
|
||||
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
|
||||
|
||||
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
|
||||
frmAttilaATEZNCTS.Show(Me)
|
||||
|
||||
'Dim atezData As New cATEZ_NCTS_DATA
|
||||
'Dim atez As New cATEZ_NCTS_IN
|
||||
|
||||
'With atezData
|
||||
|
||||
' .VERAG_LRN = AVISO.AvisoID
|
||||
' .LicensePlateContainerNo = AVISO.LKW_Nr
|
||||
' .DAKOSY_Division1 = "test"
|
||||
' 'Datenzuweisung machen!
|
||||
' .SAVE()
|
||||
|
||||
'End With
|
||||
|
||||
'Dim test = atez.authenticate()
|
||||
'If test <> "200" Then
|
||||
' failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!"
|
||||
' MsgBox(failreDesc)
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
|
||||
'If Not atez.setData(atezData, dgvAnhang) Then MsgBox("Fehler beim Erstellen der Daten")
|
||||
|
||||
'atez.SendRequestWithAuthHeader("application/json", failreDesc)
|
||||
|
||||
'If failreDesc <> "" Then
|
||||
' atezData.status = failreDesc
|
||||
' atezData.SAVE()
|
||||
' MsgBox(failreDesc)
|
||||
'Else
|
||||
' atezData.status = "Sent"
|
||||
' atezData.SAVE()
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user