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

Frachtkostenberechnung und ATEZ-API

Browse Source
This commit is contained in:
d.breimaier
2023-08-21 16:12:01 +02:00
parent a784a66b57
commit 0fc4063b19
12 changed files with 2706 additions and 1281 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -995,6 +995,12 @@
<Compile Include="UsrCntlEssensbestellungen.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrcntlFrachtkostenberechnung.Designer.vb">
<DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
</Compile>
<Compile Include="usrcntlFrachtkostenberechnung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
<DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
</Compile>
@@ -1356,6 +1362,9 @@
<EmbeddedResource Include="UsrCntlEssensbestellungen.resx">
<DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
<DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
<DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
</EmbeddedResource>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.9.9")>
<Assembly: AssemblyFileVersion("3.8.9.9")>
<Assembly: AssemblyVersion("3.9.0.7")>
<Assembly: AssemblyFileVersion("3.9.0.7")>

597
Aviso/frmATEZ_NCTS.Designer.vb generated
View File

@@ -24,28 +24,20 @@ Partial Class frmATEZ_NCTS
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.pnlHead = New System.Windows.Forms.Panel()
Me.lblInfo = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.usrCntl_Carrier = New SDL.usrCntlAdresse()
Me.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.dtpDat = New System.Windows.Forms.DateTimePicker()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblC = New System.Windows.Forms.Label()
Me.txtTransporttemp = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxTemperatur = New System.Windows.Forms.CheckBox()
Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
@@ -55,6 +47,8 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbDurchgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.lklRoutenauswahl = New System.Windows.Forms.LinkLabel()
Me.sbRoute5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
@@ -64,64 +58,22 @@ Partial Class frmATEZ_NCTS
Me.sbRoute3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbRoute1 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label9 = New System.Windows.Forms.Label()
Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.lblInfo = New System.Windows.Forms.Label()
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.pnlHead.SuspendLayout()
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)
@@ -130,7 +82,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(154, 716)
Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 42)
@@ -138,108 +90,85 @@ Partial Class frmATEZ_NCTS
Me.Button1.Text = "An ATEZ senden -->"
Me.Button1.UseVisualStyleBackColor = False
'
'Label3
'pnlHead
'
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:"
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlHead.Controls.Add(Me.lblInfo)
Me.pnlHead.Controls.Add(Me.Label6)
Me.pnlHead.Controls.Add(Me.Label8)
Me.pnlHead.Controls.Add(Me.cboStammreferenz)
Me.pnlHead.Controls.Add(Me.txtLKWId)
Me.pnlHead.Controls.Add(Me.usrCntl_Carrier)
Me.pnlHead.Controls.Add(Me.txtDat)
Me.pnlHead.Controls.Add(Me.dtpDat)
Me.pnlHead.Controls.Add(Me.Label7)
Me.pnlHead.Controls.Add(Me.lblC)
Me.pnlHead.Controls.Add(Me.txtTransporttemp)
Me.pnlHead.Controls.Add(Me.cbxTemperatur)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle5)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle9)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle8)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle7)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle6)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle4)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle3)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle2)
Me.pnlHead.Controls.Add(Me.sbDurchgangszollstelle1)
Me.pnlHead.Controls.Add(Me.Label5)
Me.pnlHead.Controls.Add(Me.lklRoutenauswahl)
Me.pnlHead.Controls.Add(Me.sbRoute5)
Me.pnlHead.Controls.Add(Me.sbRoute9)
Me.pnlHead.Controls.Add(Me.sbRoute8)
Me.pnlHead.Controls.Add(Me.sbRoute7)
Me.pnlHead.Controls.Add(Me.sbRoute6)
Me.pnlHead.Controls.Add(Me.sbRoute4)
Me.pnlHead.Controls.Add(Me.sbRoute3)
Me.pnlHead.Controls.Add(Me.sbRoute2)
Me.pnlHead.Controls.Add(Me.sbRoute1)
Me.pnlHead.Controls.Add(Me.Label14)
Me.pnlHead.Controls.Add(Me.Label4)
Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle)
Me.pnlHead.Controls.Add(Me.Label3)
Me.pnlHead.Controls.Add(Me.dgvAnhaenge)
Me.pnlHead.Controls.Add(Me.Label9)
Me.pnlHead.Controls.Add(Me.sbAbgangZollstelle)
Me.pnlHead.Controls.Add(Me.txtDyMandant)
Me.pnlHead.Controls.Add(Me.Label1)
Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
Me.pnlHead.Location = New System.Drawing.Point(3, 2)
Me.pnlHead.Name = "pnlHead"
Me.pnlHead.Size = New System.Drawing.Size(478, 706)
Me.pnlHead.TabIndex = 112
'
'Label4
'lblInfo
'
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:"
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(10, 27)
Me.lblInfo.Name = "lblInfo"
Me.lblInfo.Size = New System.Drawing.Size(460, 27)
Me.lblInfo.TabIndex = 148
'
'lklRoutenauswahl
'Label6
'
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
Me.Label6.Location = New System.Drawing.Point(10, 562)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(135, 13)
Me.Label6.TabIndex = 147
Me.Label6.Text = "Dokumente:"
'
'Label8
'
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(285, 70)
Me.Label8.Location = New System.Drawing.Point(283, 65)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 13)
Me.Label8.TabIndex = 89
Me.Label8.TabIndex = 146
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
@@ -249,10 +178,10 @@ Partial Class frmATEZ_NCTS
Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboStammreferenz.FormattingEnabled = True
Me.cboStammreferenz.Location = New System.Drawing.Point(343, 67)
Me.cboStammreferenz.Location = New System.Drawing.Point(341, 62)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
Me.cboStammreferenz.TabIndex = 88
Me.cboStammreferenz.TabIndex = 145
'
'txtLKWId
'
@@ -269,23 +198,23 @@ Partial Class frmATEZ_NCTS
Me.txtLKWId._Waehrung = False
Me.txtLKWId._WaehrungZeichen = True
Me.txtLKWId.ForeColor = System.Drawing.Color.Black
Me.txtLKWId.Location = New System.Drawing.Point(153, 68)
Me.txtLKWId.Location = New System.Drawing.Point(151, 63)
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
Me.txtLKWId.TabIndex = 144
'
'usrCntl_Carrier
'
Me.usrCntl_Carrier._Titel = "Frächter:"
Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White
Me.usrCntl_Carrier.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_Carrier.Location = New System.Drawing.Point(15, 223)
Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 218)
Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132)
Me.usrCntl_Carrier.TabIndex = 84
Me.usrCntl_Carrier.TabIndex = 143
'
'txtDat
'
@@ -303,7 +232,7 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(151, 137)
Me.txtDat.MaxLength = 10
Me.txtDat.MaxLineLength = -1
Me.txtDat.MaxLines_Warning = ""
@@ -311,7 +240,35 @@ Partial Class frmATEZ_NCTS
Me.txtDat.Multiline = True
Me.txtDat.Name = "txtDat"
Me.txtDat.Size = New System.Drawing.Size(78, 24)
Me.txtDat.TabIndex = 80
Me.txtDat.TabIndex = 141
'
'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(151, 137)
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 = 142
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(10, 137)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(103, 17)
Me.Label7.TabIndex = 140
Me.Label7.Text = "Datumgrenze:"
'
'lblC
'
Me.lblC.AutoSize = True
Me.lblC.Location = New System.Drawing.Point(251, 168)
Me.lblC.Name = "lblC"
Me.lblC.Size = New System.Drawing.Size(18, 13)
Me.lblC.TabIndex = 139
Me.lblC.Text = "°C"
'
'txtTransporttemp
'
@@ -328,13 +285,25 @@ Partial Class frmATEZ_NCTS
Me.txtTransporttemp._Waehrung = False
Me.txtTransporttemp._WaehrungZeichen = True
Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
Me.txtTransporttemp.Location = New System.Drawing.Point(153, 169)
Me.txtTransporttemp.Location = New System.Drawing.Point(151, 164)
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
Me.txtTransporttemp.TabIndex = 138
'
'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(13, 164)
Me.cbxTemperatur.Name = "cbxTemperatur"
Me.cbxTemperatur.Size = New System.Drawing.Size(125, 17)
Me.cbxTemperatur.TabIndex = 137
Me.cbxTemperatur.TabStop = False
Me.cbxTemperatur.Text = "Trasport-Temperatur:"
Me.cbxTemperatur.UseVisualStyleBackColor = True
'
'sbDurchgangszollstelle5
'
@@ -350,7 +319,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle5.key_visible = False
Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(168, 423)
Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(166, 418)
Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
Me.sbDurchgangszollstelle5.searchActive = True
Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20)
@@ -358,7 +327,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle5.TabIndex = 69
Me.sbDurchgangszollstelle5.TabIndex = 132
Me.sbDurchgangszollstelle5.usrcntl = Nothing
'
'sbDurchgangszollstelle9
@@ -375,7 +344,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle9.key_visible = False
Me.sbDurchgangszollstelle9.KEYPARAM = Nothing
Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(321, 442)
Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(319, 437)
Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
Me.sbDurchgangszollstelle9.searchActive = True
Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20)
@@ -383,7 +352,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle9.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle9.TabIndex = 73
Me.sbDurchgangszollstelle9.TabIndex = 136
Me.sbDurchgangszollstelle9.usrcntl = Nothing
'
'sbDurchgangszollstelle8
@@ -400,7 +369,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle8.key_visible = False
Me.sbDurchgangszollstelle8.KEYPARAM = Nothing
Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(168, 442)
Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(166, 437)
Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
Me.sbDurchgangszollstelle8.searchActive = True
Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20)
@@ -408,7 +377,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle8.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle8.TabIndex = 72
Me.sbDurchgangszollstelle8.TabIndex = 135
Me.sbDurchgangszollstelle8.usrcntl = Nothing
'
'sbDurchgangszollstelle7
@@ -425,7 +394,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle7.key_visible = False
Me.sbDurchgangszollstelle7.KEYPARAM = Nothing
Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(15, 442)
Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 437)
Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
Me.sbDurchgangszollstelle7.searchActive = True
Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20)
@@ -433,7 +402,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle7.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle7.TabIndex = 71
Me.sbDurchgangszollstelle7.TabIndex = 134
Me.sbDurchgangszollstelle7.usrcntl = Nothing
'
'sbDurchgangszollstelle6
@@ -450,7 +419,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle6.key_visible = False
Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(321, 423)
Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(319, 418)
Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
Me.sbDurchgangszollstelle6.searchActive = True
Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20)
@@ -458,7 +427,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle6.TabIndex = 70
Me.sbDurchgangszollstelle6.TabIndex = 133
Me.sbDurchgangszollstelle6.usrcntl = Nothing
'
'sbDurchgangszollstelle4
@@ -475,7 +444,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle4.key_visible = False
Me.sbDurchgangszollstelle4.KEYPARAM = Nothing
Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(15, 423)
Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 418)
Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
Me.sbDurchgangszollstelle4.searchActive = True
Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20)
@@ -483,7 +452,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle4.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle4.TabIndex = 68
Me.sbDurchgangszollstelle4.TabIndex = 131
Me.sbDurchgangszollstelle4.usrcntl = Nothing
'
'sbDurchgangszollstelle3
@@ -500,7 +469,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle3.key_visible = False
Me.sbDurchgangszollstelle3.KEYPARAM = Nothing
Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(321, 404)
Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(319, 399)
Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
Me.sbDurchgangszollstelle3.searchActive = True
Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20)
@@ -508,7 +477,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle3.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle3.TabIndex = 67
Me.sbDurchgangszollstelle3.TabIndex = 130
Me.sbDurchgangszollstelle3.usrcntl = Nothing
'
'sbDurchgangszollstelle2
@@ -525,7 +494,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle2.key_visible = False
Me.sbDurchgangszollstelle2.KEYPARAM = Nothing
Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(168, 404)
Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(166, 399)
Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
Me.sbDurchgangszollstelle2.searchActive = True
Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20)
@@ -533,7 +502,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle2.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle2.TabIndex = 66
Me.sbDurchgangszollstelle2.TabIndex = 129
Me.sbDurchgangszollstelle2.usrcntl = Nothing
'
'sbDurchgangszollstelle1
@@ -550,7 +519,7 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing
Me.sbDurchgangszollstelle1.key_visible = False
Me.sbDurchgangszollstelle1.KEYPARAM = Nothing
Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(15, 404)
Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 399)
Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
Me.sbDurchgangszollstelle1.searchActive = True
Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20)
@@ -558,9 +527,28 @@ Partial Class frmATEZ_NCTS
Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing
Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing
Me.sbDurchgangszollstelle1.SQL_WhereParamList = Nothing
Me.sbDurchgangszollstelle1.TabIndex = 65
Me.sbDurchgangszollstelle1.TabIndex = 128
Me.sbDurchgangszollstelle1.usrcntl = Nothing
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(10, 383)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(135, 13)
Me.Label5.TabIndex = 127
Me.Label5.Text = "Durchgangszollstellen:"
'
'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(392, 478)
Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
Me.lklRoutenauswahl.TabIndex = 117
Me.lklRoutenauswahl.TabStop = True
Me.lklRoutenauswahl.Text = "Routenauswahl"
'
'sbRoute5
'
Me.sbRoute5._allowFreitext = False
@@ -575,7 +563,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute5.INVISIBLE_COLUMNS = Nothing
Me.sbRoute5.key_visible = False
Me.sbRoute5.KEYPARAM = Nothing
Me.sbRoute5.Location = New System.Drawing.Point(168, 518)
Me.sbRoute5.Location = New System.Drawing.Point(166, 513)
Me.sbRoute5.Name = "sbRoute5"
Me.sbRoute5.searchActive = True
Me.sbRoute5.Size = New System.Drawing.Size(154, 20)
@@ -583,7 +571,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute5.SQL_SELECT = Nothing
Me.sbRoute5.SQL_WHERE = Nothing
Me.sbRoute5.SQL_WhereParamList = Nothing
Me.sbRoute5.TabIndex = 59
Me.sbRoute5.TabIndex = 122
Me.sbRoute5.usrcntl = Nothing
'
'sbRoute9
@@ -600,7 +588,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute9.INVISIBLE_COLUMNS = Nothing
Me.sbRoute9.key_visible = False
Me.sbRoute9.KEYPARAM = Nothing
Me.sbRoute9.Location = New System.Drawing.Point(321, 537)
Me.sbRoute9.Location = New System.Drawing.Point(319, 532)
Me.sbRoute9.Name = "sbRoute9"
Me.sbRoute9.searchActive = True
Me.sbRoute9.Size = New System.Drawing.Size(154, 20)
@@ -608,7 +596,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute9.SQL_SELECT = Nothing
Me.sbRoute9.SQL_WHERE = Nothing
Me.sbRoute9.SQL_WhereParamList = Nothing
Me.sbRoute9.TabIndex = 63
Me.sbRoute9.TabIndex = 126
Me.sbRoute9.usrcntl = Nothing
'
'sbRoute8
@@ -625,7 +613,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute8.INVISIBLE_COLUMNS = Nothing
Me.sbRoute8.key_visible = False
Me.sbRoute8.KEYPARAM = Nothing
Me.sbRoute8.Location = New System.Drawing.Point(168, 537)
Me.sbRoute8.Location = New System.Drawing.Point(166, 532)
Me.sbRoute8.Name = "sbRoute8"
Me.sbRoute8.searchActive = True
Me.sbRoute8.Size = New System.Drawing.Size(154, 20)
@@ -633,7 +621,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute8.SQL_SELECT = Nothing
Me.sbRoute8.SQL_WHERE = Nothing
Me.sbRoute8.SQL_WhereParamList = Nothing
Me.sbRoute8.TabIndex = 62
Me.sbRoute8.TabIndex = 125
Me.sbRoute8.usrcntl = Nothing
'
'sbRoute7
@@ -650,7 +638,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute7.INVISIBLE_COLUMNS = Nothing
Me.sbRoute7.key_visible = False
Me.sbRoute7.KEYPARAM = Nothing
Me.sbRoute7.Location = New System.Drawing.Point(15, 537)
Me.sbRoute7.Location = New System.Drawing.Point(13, 532)
Me.sbRoute7.Name = "sbRoute7"
Me.sbRoute7.searchActive = True
Me.sbRoute7.Size = New System.Drawing.Size(154, 20)
@@ -658,7 +646,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute7.SQL_SELECT = Nothing
Me.sbRoute7.SQL_WHERE = Nothing
Me.sbRoute7.SQL_WhereParamList = Nothing
Me.sbRoute7.TabIndex = 61
Me.sbRoute7.TabIndex = 124
Me.sbRoute7.usrcntl = Nothing
'
'sbRoute6
@@ -675,7 +663,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute6.INVISIBLE_COLUMNS = Nothing
Me.sbRoute6.key_visible = False
Me.sbRoute6.KEYPARAM = Nothing
Me.sbRoute6.Location = New System.Drawing.Point(321, 518)
Me.sbRoute6.Location = New System.Drawing.Point(319, 513)
Me.sbRoute6.Name = "sbRoute6"
Me.sbRoute6.searchActive = True
Me.sbRoute6.Size = New System.Drawing.Size(154, 20)
@@ -683,7 +671,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute6.SQL_SELECT = Nothing
Me.sbRoute6.SQL_WHERE = Nothing
Me.sbRoute6.SQL_WhereParamList = Nothing
Me.sbRoute6.TabIndex = 60
Me.sbRoute6.TabIndex = 123
Me.sbRoute6.usrcntl = Nothing
'
'sbRoute4
@@ -700,7 +688,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute4.INVISIBLE_COLUMNS = Nothing
Me.sbRoute4.key_visible = False
Me.sbRoute4.KEYPARAM = Nothing
Me.sbRoute4.Location = New System.Drawing.Point(15, 518)
Me.sbRoute4.Location = New System.Drawing.Point(13, 513)
Me.sbRoute4.Name = "sbRoute4"
Me.sbRoute4.searchActive = True
Me.sbRoute4.Size = New System.Drawing.Size(154, 20)
@@ -708,7 +696,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute4.SQL_SELECT = Nothing
Me.sbRoute4.SQL_WHERE = Nothing
Me.sbRoute4.SQL_WhereParamList = Nothing
Me.sbRoute4.TabIndex = 58
Me.sbRoute4.TabIndex = 121
Me.sbRoute4.usrcntl = Nothing
'
'sbRoute3
@@ -725,7 +713,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute3.INVISIBLE_COLUMNS = Nothing
Me.sbRoute3.key_visible = False
Me.sbRoute3.KEYPARAM = Nothing
Me.sbRoute3.Location = New System.Drawing.Point(321, 499)
Me.sbRoute3.Location = New System.Drawing.Point(319, 494)
Me.sbRoute3.Name = "sbRoute3"
Me.sbRoute3.searchActive = True
Me.sbRoute3.Size = New System.Drawing.Size(154, 20)
@@ -733,7 +721,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute3.SQL_SELECT = Nothing
Me.sbRoute3.SQL_WHERE = Nothing
Me.sbRoute3.SQL_WhereParamList = Nothing
Me.sbRoute3.TabIndex = 57
Me.sbRoute3.TabIndex = 120
Me.sbRoute3.usrcntl = Nothing
'
'sbRoute2
@@ -750,7 +738,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute2.INVISIBLE_COLUMNS = Nothing
Me.sbRoute2.key_visible = False
Me.sbRoute2.KEYPARAM = Nothing
Me.sbRoute2.Location = New System.Drawing.Point(168, 499)
Me.sbRoute2.Location = New System.Drawing.Point(166, 494)
Me.sbRoute2.Name = "sbRoute2"
Me.sbRoute2.searchActive = True
Me.sbRoute2.Size = New System.Drawing.Size(154, 20)
@@ -758,7 +746,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute2.SQL_SELECT = Nothing
Me.sbRoute2.SQL_WHERE = Nothing
Me.sbRoute2.SQL_WhereParamList = Nothing
Me.sbRoute2.TabIndex = 56
Me.sbRoute2.TabIndex = 119
Me.sbRoute2.usrcntl = Nothing
'
'sbRoute1
@@ -775,7 +763,7 @@ Partial Class frmATEZ_NCTS
Me.sbRoute1.INVISIBLE_COLUMNS = Nothing
Me.sbRoute1.key_visible = False
Me.sbRoute1.KEYPARAM = Nothing
Me.sbRoute1.Location = New System.Drawing.Point(15, 499)
Me.sbRoute1.Location = New System.Drawing.Point(13, 494)
Me.sbRoute1.Name = "sbRoute1"
Me.sbRoute1.searchActive = True
Me.sbRoute1.Size = New System.Drawing.Size(154, 20)
@@ -783,9 +771,25 @@ Partial Class frmATEZ_NCTS
Me.sbRoute1.SQL_SELECT = Nothing
Me.sbRoute1.SQL_WHERE = Nothing
Me.sbRoute1.SQL_WhereParamList = Nothing
Me.sbRoute1.TabIndex = 55
Me.sbRoute1.TabIndex = 118
Me.sbRoute1.usrcntl = Nothing
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(10, 478)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(135, 13)
Me.Label14.TabIndex = 116
Me.Label14.Text = "Route:"
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(10, 115)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(121, 17)
Me.Label4.TabIndex = 114
Me.Label4.Text = "Bestimmungs-Zollstelle:"
'
'sbBestimmungsZollstelle
'
Me.sbBestimmungsZollstelle._allowFreitext = False
@@ -800,7 +804,7 @@ Partial Class frmATEZ_NCTS
Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsZollstelle.key_visible = False
Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(153, 120)
Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 115)
Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
Me.sbBestimmungsZollstelle.searchActive = True
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
@@ -808,9 +812,17 @@ Partial Class frmATEZ_NCTS
Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing
Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing
Me.sbBestimmungsZollstelle.SQL_WhereParamList = Nothing
Me.sbBestimmungsZollstelle.TabIndex = 45
Me.sbBestimmungsZollstelle.TabIndex = 115
Me.sbBestimmungsZollstelle.usrcntl = Nothing
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(10, 66)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(103, 17)
Me.Label3.TabIndex = 113
Me.Label3.Text = "LKW-KZ:"
'
'dgvAnhaenge
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
@@ -821,11 +833,11 @@ Partial Class frmATEZ_NCTS
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.Location = New System.Drawing.Point(13, 578)
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
Me.dgvAnhaenge.TabIndex = 112
'
'columnName
'
@@ -834,6 +846,14 @@ Partial Class frmATEZ_NCTS
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(10, 92)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(103, 17)
Me.Label9.TabIndex = 110
Me.Label9.Text = "Abgangs-Zollstelle:"
'
'sbAbgangZollstelle
'
Me.sbAbgangZollstelle._allowFreitext = False
@@ -848,7 +868,7 @@ Partial Class frmATEZ_NCTS
Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
Me.sbAbgangZollstelle.key_visible = False
Me.sbAbgangZollstelle.KEYPARAM = Nothing
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(153, 94)
Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 89)
Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
Me.sbAbgangZollstelle.searchActive = True
Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
@@ -856,89 +876,93 @@ Partial Class frmATEZ_NCTS
Me.sbAbgangZollstelle.SQL_SELECT = Nothing
Me.sbAbgangZollstelle.SQL_WHERE = Nothing
Me.sbAbgangZollstelle.SQL_WhereParamList = Nothing
Me.sbAbgangZollstelle.TabIndex = 25
Me.sbAbgangZollstelle.TabIndex = 111
Me.sbAbgangZollstelle.usrcntl = Nothing
'
'lblInfo
'txtDyMandant
'
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
Me.txtDyMandant.BackColor = System.Drawing.Color.White
Me.txtDyMandant.Location = New System.Drawing.Point(2, 2)
Me.txtDyMandant.Name = "txtDyMandant"
Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
Me.txtDyMandant.TabIndex = 109
Me.txtDyMandant.Text = "VERG"
Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(190, 2)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 106
Me.Label1.Text = "Bezugsnummer:"
'
'txtDyNiederlassung
'
Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3)
Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
Me.txtDyNiederlassung.TabIndex = 108
Me.txtDyNiederlassung.Text = "SUB"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBezugsnummer.Location = New System.Drawing.Point(278, 2)
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
Me.lblBezugsnummer.TabIndex = 107
Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'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.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.ClientSize = New System.Drawing.Size(484, 769)
Me.Controls.Add(Me.pnlHead)
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"
Me.pnlHead.ResumeLayout(False)
Me.pnlHead.PerformLayout()
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 pnlHead As Panel
Friend WithEvents lblInfo As Label
Friend WithEvents Label6 As Label
Friend WithEvents Label8 As Label
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse
Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents dtpDat As DateTimePicker
Friend WithEvents Label7 As Label
Friend WithEvents lblC As Label
Friend WithEvents txtTransporttemp As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxTemperatur As CheckBox
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 lklRoutenauswahl As LinkLabel
Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox
@@ -950,26 +974,15 @@ Partial Class frmATEZ_NCTS
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
Friend WithEvents Label4 As Label
Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label3 As Label
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents columnName As DataGridViewTextBoxColumn
Friend WithEvents Label9 As Label
Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents txtDyMandant As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtDyNiederlassung As Label
Friend WithEvents lblBezugsnummer As Label
End Class

119
Aviso/frmATEZ_NCTS.vb
View File

@@ -1,4 +1,6 @@
Imports SDL
Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
Imports Newtonsoft.Json.Linq
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
@@ -20,6 +22,8 @@ Public Class frmATEZ_NCTS
Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1")
Dim VermerkeDAL As New cVermerkeDAL
Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
Dim openExisting As Boolean = False
Dim id As Integer = -1
Property BezugsNr As String = ""
Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
@@ -42,7 +46,28 @@ Public Class frmATEZ_NCTS
End Sub
Sub New(_id As Integer)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
openExisting = True
id = _id
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If id > 0 Then
Dim atez_data = New cATEZ_NCTS_DATA(id)
If atez_data.json <> "" Then MsgBox(atez_data.json) 'InputBox(atez_data.json, "JSON-Text", , 100, 100)
Else
lblInfo.Text = ""
Dim failreDesc As String
@@ -93,7 +118,9 @@ Public Class frmATEZ_NCTS
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 sbDurchgangszollstelle7._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle7._value)
If sbDurchgangszollstelle8._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle8._value)
If sbDurchgangszollstelle9._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle9._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)
@@ -121,7 +148,7 @@ Public Class frmATEZ_NCTS
If failreDesc <> "" Then
atezData.status = failreDesc
atezData.SAVE()
lblInfo.Text = failreDesc
lblInfo.Text = "Fehler in der API"
Else
atezData.status = "Sent"
@@ -129,6 +156,11 @@ Public Class frmATEZ_NCTS
atezData.SAVE()
Me.Close()
End If
End If
End Sub
Function getBezugsnr(ByRef BezugsNr)
@@ -152,6 +184,7 @@ Public Class frmATEZ_NCTS
Return BezugsNr
End Function
Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Select Case FIRMA_DY
@@ -166,6 +199,80 @@ Public Class frmATEZ_NCTS
initSeachboxes()
initAttachment()
If openExisting Then
Button1.Text = "JSON"
If id > 0 Then
Dim atez_data = New cATEZ_NCTS_DATA(id)
lblInfo.Text = "Atez-ID " & atez_data.atezId
lblBezugsnummer.Text = atez_data.VERAG_LRN
cboStammreferenz._value = atez_data.SendungsId
txtLKWId.Text = atez_data.LicensePlateContainerNo
sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
sbAbgangZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
cbxTemperatur.Checked = IIf(atez_data.CoolingTemperature <> "", True, False)
txtTransporttemp.Text = atez_data.CoolingTemperature
txtDat.Text = IIf(atez_data.DatDeterminationLimit IsNot DBNull.Value, atez_data.DatDeterminationLimit, "")
usrCntl_Carrier.kdFirma.Text = atez_data.Carrier_Name
usrCntl_Carrier.txtStrasse.Text = atez_data.Carrier_Adress_Street
usrCntl_Carrier.txtPlz.Text = atez_data.Carrier_Adress_Postcode
usrCntl_Carrier.txtOrt.Text = atez_data.Carrier_Adress_City
usrCntl_Carrier.sbLand._value = atez_data.Carrier_Adress_Country
usrCntl_Carrier.txtEORI.Text = atez_data.Carrier_EORI
Dim TCO_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_TransitCustomsOffice)
VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_TransitCustomsOffice.LOAD_LIST_ByNCTS(TCO_LIST, id)
Dim i As Integer = 0
For Each tco In TCO_LIST
If i = 0 Then sbDurchgangszollstelle1.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 1 Then sbDurchgangszollstelle2.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 2 Then sbDurchgangszollstelle3.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 3 Then sbDurchgangszollstelle4.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 4 Then sbDurchgangszollstelle5.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 5 Then sbDurchgangszollstelle6.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 6 Then sbDurchgangszollstelle7.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 7 Then sbDurchgangszollstelle8.SET_VALUE(If(tco.TransitCustomsOffice, ""))
If i = 8 Then sbDurchgangszollstelle9.SET_VALUE(If(tco.TransitCustomsOffice, ""))
i = i + 1
Next
Dim Route_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen)
VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, id)
i = 0
For Each route In Route_LIST
If i = 0 Then sbRoute1.SET_VALUE(route.Route_Country)
If i = 1 Then sbRoute2.SET_VALUE(route.Route_Country)
If i = 2 Then sbRoute3.SET_VALUE(route.Route_Country)
If i = 3 Then sbRoute4.SET_VALUE(route.Route_Country)
If i = 4 Then sbRoute5.SET_VALUE(route.Route_Country)
If i = 5 Then sbRoute6.SET_VALUE(route.Route_Country)
If i = 6 Then sbRoute7.SET_VALUE(route.Route_Country)
If i = 7 Then sbRoute8.SET_VALUE(route.Route_Country)
If i = 8 Then sbRoute9.SET_VALUE(route.Route_Country)
i = i + 1
Next
pnlHead.Enabled = False
Button1.Enabled = True
Else
Button1.Enabled = False
End If
Else
Button1.Text = "An ATEZ senden -->"
pnlHead.Enabled = True
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem("")
@@ -199,6 +306,9 @@ Public Class frmATEZ_NCTS
sbDurchgangszollstelle5.SET_VALUE(If(AVISO.Durchgangszollstelle5, ""))
sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, ""))
End If
End Sub
Sub initAttachment()
@@ -325,7 +435,8 @@ CASE WHEN [anh_Art] = 'ATR-EUR1' then 'EUR'
End If
End Sub
Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged
Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs)
txtDat._value = CDate(sender.value).ToShortDateString
End Sub
End Class

668
Aviso/frmFrachtkostenBerechnen.Designer.vb generated
View File

@@ -24,680 +24,30 @@ Partial Class frmFrachtkostenBerechnen
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFrachtkostenBerechnen))
Me.lblVon = New System.Windows.Forms.Label()
Me.lblNach = New System.Windows.Forms.Label()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.lblEUAnteil = New System.Windows.Forms.Label()
Me.lblNichtEUAnteil = New System.Windows.Forms.Label()
Me.lblDistanzEU = New System.Windows.Forms.Label()
Me.lblGewicht = New System.Windows.Forms.Label()
Me.btnCalculate = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.lblGesamtfrachkosten = New System.Windows.Forms.Label()
Me.lblFaktor = New System.Windows.Forms.Label()
Me.lblWarningEUAnteil = New System.Windows.Forms.Label()
Me.lblWarningNichtEUAnteil = New System.Windows.Forms.Label()
Me.lblWarningAbgangort = New System.Windows.Forms.Label()
Me.lblWarningBestimmungsort = New System.Windows.Forms.Label()
Me.lblWarningFaktor = New System.Windows.Forms.Label()
Me.lblDistanzNichtEU = New System.Windows.Forms.Label()
Me.ckbManAnteilsermittlung = New System.Windows.Forms.CheckBox()
Me.ToolTipAutomatischErmitteln = New System.Windows.Forms.ToolTip(Me.components)
Me.cbxLandNach = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLandVon = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txbCalcDistanceNichtEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbNichtEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbEUAnteilberechnet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbFactor = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbxGesamtfrachtkosten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbCalcDistanceEU = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbNachOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbVonOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbNachPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txbVonPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbNichtEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbEUAnteil = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UsrcntlFrachtkostenberechnung1 = New usrcntlFrachtkostenberechnung()
Me.SuspendLayout()
'
'lblVon
'UsrcntlFrachtkostenberechnung1
'
Me.lblVon.AutoSize = True
Me.lblVon.Location = New System.Drawing.Point(5, 9)
Me.lblVon.Name = "lblVon"
Me.lblVon.Size = New System.Drawing.Size(64, 13)
Me.lblVon.TabIndex = 0
Me.lblVon.Text = "Abgangsort:"
'
'lblNach
'
Me.lblNach.AutoSize = True
Me.lblNach.Location = New System.Drawing.Point(205, 9)
Me.lblNach.Name = "lblNach"
Me.lblNach.Size = New System.Drawing.Size(84, 13)
Me.lblNach.TabIndex = 1
Me.lblNach.Text = "Bestimmungsort:"
'
'btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(5, 270)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 35
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnOK
'
Me.btnOK.AccessibleRole = System.Windows.Forms.AccessibleRole.Cursor
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Location = New System.Drawing.Point(286, 270)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(75, 23)
Me.btnOK.TabIndex = 36
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lblEUAnteil
'
Me.lblEUAnteil.AutoSize = True
Me.lblEUAnteil.Location = New System.Drawing.Point(5, 195)
Me.lblEUAnteil.Name = "lblEUAnteil"
Me.lblEUAnteil.Size = New System.Drawing.Size(51, 13)
Me.lblEUAnteil.TabIndex = 23
Me.lblEUAnteil.Text = "EU Anteil"
'
'lblNichtEUAnteil
'
Me.lblNichtEUAnteil.AutoSize = True
Me.lblNichtEUAnteil.Location = New System.Drawing.Point(5, 230)
Me.lblNichtEUAnteil.Name = "lblNichtEUAnteil"
Me.lblNichtEUAnteil.Size = New System.Drawing.Size(79, 13)
Me.lblNichtEUAnteil.TabIndex = 29
Me.lblNichtEUAnteil.Text = "Nicht EU Anteil"
'
'lblDistanzEU
'
Me.lblDistanzEU.AutoSize = True
Me.lblDistanzEU.Location = New System.Drawing.Point(210, 195)
Me.lblDistanzEU.Name = "lblDistanzEU"
Me.lblDistanzEU.Size = New System.Drawing.Size(42, 13)
Me.lblDistanzEU.TabIndex = 26
Me.lblDistanzEU.Text = "Distanz"
'
'lblGewicht
'
Me.lblGewicht.AutoSize = True
Me.lblGewicht.Location = New System.Drawing.Point(5, 99)
Me.lblGewicht.Name = "lblGewicht"
Me.lblGewicht.Size = New System.Drawing.Size(46, 13)
Me.lblGewicht.TabIndex = 14
Me.lblGewicht.Text = "Gewicht"
'
'btnCalculate
'
Me.btnCalculate.AccessibleRole = System.Windows.Forms.AccessibleRole.ComboBox
Me.btnCalculate.Location = New System.Drawing.Point(5, 160)
Me.btnCalculate.Name = "btnCalculate"
Me.btnCalculate.Size = New System.Drawing.Size(75, 23)
Me.btnCalculate.TabIndex = 21
Me.btnCalculate.Text = "Berechnen"
Me.btnCalculate.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(5, 30)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(27, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "PLZ"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 52)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(21, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Ort"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(205, 56)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(21, 13)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Ort"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(205, 30)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(27, 13)
Me.Label4.TabIndex = 5
Me.Label4.Text = "PLZ"
'
'lblGesamtfrachkosten
'
Me.lblGesamtfrachkosten.AutoSize = True
Me.lblGesamtfrachkosten.Location = New System.Drawing.Point(205, 125)
Me.lblGesamtfrachkosten.Name = "lblGesamtfrachkosten"
Me.lblGesamtfrachkosten.Size = New System.Drawing.Size(92, 13)
Me.lblGesamtfrachkosten.TabIndex = 18
Me.lblGesamtfrachkosten.Text = "Frachtkosten ges."
'
'lblFaktor
'
Me.lblFaktor.AutoSize = True
Me.lblFaktor.Location = New System.Drawing.Point(5, 125)
Me.lblFaktor.Name = "lblFaktor"
Me.lblFaktor.Size = New System.Drawing.Size(37, 13)
Me.lblFaktor.TabIndex = 16
Me.lblFaktor.Text = "Faktor"
'
'lblWarningEUAnteil
'
Me.lblWarningEUAnteil.AutoSize = True
Me.lblWarningEUAnteil.ForeColor = System.Drawing.Color.Red
Me.lblWarningEUAnteil.Location = New System.Drawing.Point(5, 211)
Me.lblWarningEUAnteil.Name = "lblWarningEUAnteil"
Me.lblWarningEUAnteil.Size = New System.Drawing.Size(162, 13)
Me.lblWarningEUAnteil.TabIndex = 28
Me.lblWarningEUAnteil.Text = "EU Anteil hinterlegen (in Prozent)"
Me.lblWarningEUAnteil.Visible = False
'
'lblWarningNichtEUAnteil
'
Me.lblWarningNichtEUAnteil.AutoSize = True
Me.lblWarningNichtEUAnteil.ForeColor = System.Drawing.Color.Red
Me.lblWarningNichtEUAnteil.Location = New System.Drawing.Point(5, 249)
Me.lblWarningNichtEUAnteil.Name = "lblWarningNichtEUAnteil"
Me.lblWarningNichtEUAnteil.Size = New System.Drawing.Size(190, 13)
Me.lblWarningNichtEUAnteil.TabIndex = 34
Me.lblWarningNichtEUAnteil.Text = "Nicht EU Anteil hinterlegen (in Prozent)"
Me.lblWarningNichtEUAnteil.Visible = False
'
'lblWarningAbgangort
'
Me.lblWarningAbgangort.AutoSize = True
Me.lblWarningAbgangort.ForeColor = System.Drawing.Color.Red
Me.lblWarningAbgangort.Location = New System.Drawing.Point(5, 72)
Me.lblWarningAbgangort.Name = "lblWarningAbgangort"
Me.lblWarningAbgangort.Size = New System.Drawing.Size(147, 13)
Me.lblWarningAbgangort.TabIndex = 12
Me.lblWarningAbgangort.Text = "PLZ/Ort von Abgangsort fehlt"
Me.lblWarningAbgangort.Visible = False
'
'lblWarningBestimmungsort
'
Me.lblWarningBestimmungsort.AutoSize = True
Me.lblWarningBestimmungsort.ForeColor = System.Drawing.Color.Red
Me.lblWarningBestimmungsort.Location = New System.Drawing.Point(180, 72)
Me.lblWarningBestimmungsort.Name = "lblWarningBestimmungsort"
Me.lblWarningBestimmungsort.Size = New System.Drawing.Size(167, 13)
Me.lblWarningBestimmungsort.TabIndex = 13
Me.lblWarningBestimmungsort.Text = "PLZ/Ort von Bestimmungsort fehlt"
Me.lblWarningBestimmungsort.Visible = False
'
'lblWarningFaktor
'
Me.lblWarningFaktor.AutoSize = True
Me.lblWarningFaktor.ForeColor = System.Drawing.Color.Red
Me.lblWarningFaktor.Location = New System.Drawing.Point(5, 144)
Me.lblWarningFaktor.Name = "lblWarningFaktor"
Me.lblWarningFaktor.Size = New System.Drawing.Size(82, 13)
Me.lblWarningFaktor.TabIndex = 20
Me.lblWarningFaktor.Text = "Faktor angeben"
Me.lblWarningFaktor.Visible = False
'
'lblDistanzNichtEU
'
Me.lblDistanzNichtEU.AutoSize = True
Me.lblDistanzNichtEU.Location = New System.Drawing.Point(215, 237)
Me.lblDistanzNichtEU.Name = "lblDistanzNichtEU"
Me.lblDistanzNichtEU.Size = New System.Drawing.Size(42, 13)
Me.lblDistanzNichtEU.TabIndex = 33
Me.lblDistanzNichtEU.Text = "Distanz"
Me.lblDistanzNichtEU.Visible = False
'
'ckbManAnteilsermittlung
'
Me.ckbManAnteilsermittlung.AutoSize = True
Me.ckbManAnteilsermittlung.Location = New System.Drawing.Point(92, 160)
Me.ckbManAnteilsermittlung.Name = "ckbManAnteilsermittlung"
Me.ckbManAnteilsermittlung.Size = New System.Drawing.Size(160, 17)
Me.ckbManAnteilsermittlung.TabIndex = 22
Me.ckbManAnteilsermittlung.Text = "Anteile automatisch ermitteln"
Me.ToolTipAutomatischErmitteln.SetToolTip(Me.ckbManAnteilsermittlung, "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anteile werden automatisch ermittelt." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Für TR (=Türkei) und SRB (=Serbien) wird" &
" der EU-Anteil des Streckenverlaufs ermittelt, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "alle weiteren werden mit 60% EU" &
" und 40% nicht EU berechnet." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10))
Me.ckbManAnteilsermittlung.UseVisualStyleBackColor = True
'
'cbxLandNach
'
Me.cbxLandNach._allowedValuesFreiText = Nothing
Me.cbxLandNach._allowFreiText = False
Me.cbxLandNach._value = ""
Me.cbxLandNach.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbxLandNach.DropDownWidth = 250
Me.cbxLandNach.FormattingEnabled = True
Me.cbxLandNach.Location = New System.Drawing.Point(255, 23)
Me.cbxLandNach.Name = "cbxLandNach"
Me.cbxLandNach.Size = New System.Drawing.Size(45, 21)
Me.cbxLandNach.TabIndex = 6
'
'cbxLandVon
'
Me.cbxLandVon._allowedValuesFreiText = Nothing
Me.cbxLandVon._allowFreiText = False
Me.cbxLandVon._value = ""
Me.cbxLandVon.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbxLandVon.DropDownWidth = 250
Me.cbxLandVon.FormattingEnabled = True
Me.cbxLandVon.Location = New System.Drawing.Point(75, 22)
Me.cbxLandVon.Name = "cbxLandVon"
Me.cbxLandVon.Size = New System.Drawing.Size(45, 21)
Me.cbxLandVon.TabIndex = 3
'
'txbCalcDistanceNichtEU
'
Me.txbCalcDistanceNichtEU._DateTimeOnly = False
Me.txbCalcDistanceNichtEU._numbersOnly = False
Me.txbCalcDistanceNichtEU._numbersOnlyKommastellen = ""
Me.txbCalcDistanceNichtEU._numbersOnlyTrennzeichen = True
Me.txbCalcDistanceNichtEU._Prozent = False
Me.txbCalcDistanceNichtEU._ShortDateNew = False
Me.txbCalcDistanceNichtEU._ShortDateOnly = False
Me.txbCalcDistanceNichtEU._TimeOnly = False
Me.txbCalcDistanceNichtEU._TimeOnly_Seconds = False
Me.txbCalcDistanceNichtEU._value = ""
Me.txbCalcDistanceNichtEU._Waehrung = False
Me.txbCalcDistanceNichtEU._WaehrungZeichen = True
Me.txbCalcDistanceNichtEU.ForeColor = System.Drawing.Color.Black
Me.txbCalcDistanceNichtEU.Location = New System.Drawing.Point(277, 227)
Me.txbCalcDistanceNichtEU.MaxLineLength = -1
Me.txbCalcDistanceNichtEU.MaxLines_Warning = ""
Me.txbCalcDistanceNichtEU.MaxLines_Warning_Label = Nothing
Me.txbCalcDistanceNichtEU.Name = "txbCalcDistanceNichtEU"
Me.txbCalcDistanceNichtEU.Size = New System.Drawing.Size(84, 20)
Me.txbCalcDistanceNichtEU.TabIndex = 32
Me.txbCalcDistanceNichtEU.Visible = False
'
'tbNichtEUAnteilberechnet
'
Me.tbNichtEUAnteilberechnet._DateTimeOnly = False
Me.tbNichtEUAnteilberechnet._numbersOnly = False
Me.tbNichtEUAnteilberechnet._numbersOnlyKommastellen = ""
Me.tbNichtEUAnteilberechnet._numbersOnlyTrennzeichen = True
Me.tbNichtEUAnteilberechnet._Prozent = False
Me.tbNichtEUAnteilberechnet._ShortDateNew = False
Me.tbNichtEUAnteilberechnet._ShortDateOnly = False
Me.tbNichtEUAnteilberechnet._TimeOnly = False
Me.tbNichtEUAnteilberechnet._TimeOnly_Seconds = False
Me.tbNichtEUAnteilberechnet._value = ""
Me.tbNichtEUAnteilberechnet._Waehrung = True
Me.tbNichtEUAnteilberechnet._WaehrungZeichen = True
Me.tbNichtEUAnteilberechnet.ForeColor = System.Drawing.Color.Black
Me.tbNichtEUAnteilberechnet.Location = New System.Drawing.Point(141, 227)
Me.tbNichtEUAnteilberechnet.MaxLineLength = -1
Me.tbNichtEUAnteilberechnet.MaxLines_Warning = ""
Me.tbNichtEUAnteilberechnet.MaxLines_Warning_Label = Nothing
Me.tbNichtEUAnteilberechnet.Name = "tbNichtEUAnteilberechnet"
Me.tbNichtEUAnteilberechnet.ReadOnly = True
Me.tbNichtEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
Me.tbNichtEUAnteilberechnet.TabIndex = 31
'
'tbEUAnteilberechnet
'
Me.tbEUAnteilberechnet._DateTimeOnly = False
Me.tbEUAnteilberechnet._numbersOnly = False
Me.tbEUAnteilberechnet._numbersOnlyKommastellen = ""
Me.tbEUAnteilberechnet._numbersOnlyTrennzeichen = True
Me.tbEUAnteilberechnet._Prozent = False
Me.tbEUAnteilberechnet._ShortDateNew = False
Me.tbEUAnteilberechnet._ShortDateOnly = False
Me.tbEUAnteilberechnet._TimeOnly = False
Me.tbEUAnteilberechnet._TimeOnly_Seconds = False
Me.tbEUAnteilberechnet._value = ""
Me.tbEUAnteilberechnet._Waehrung = True
Me.tbEUAnteilberechnet._WaehrungZeichen = True
Me.tbEUAnteilberechnet.ForeColor = System.Drawing.Color.Black
Me.tbEUAnteilberechnet.Location = New System.Drawing.Point(141, 188)
Me.tbEUAnteilberechnet.MaxLineLength = -1
Me.tbEUAnteilberechnet.MaxLines_Warning = ""
Me.tbEUAnteilberechnet.MaxLines_Warning_Label = Nothing
Me.tbEUAnteilberechnet.Name = "tbEUAnteilberechnet"
Me.tbEUAnteilberechnet.ReadOnly = True
Me.tbEUAnteilberechnet.Size = New System.Drawing.Size(60, 20)
Me.tbEUAnteilberechnet.TabIndex = 25
'
'txbFactor
'
Me.txbFactor._DateTimeOnly = False
Me.txbFactor._numbersOnly = True
Me.txbFactor._numbersOnlyKommastellen = ""
Me.txbFactor._numbersOnlyTrennzeichen = True
Me.txbFactor._Prozent = False
Me.txbFactor._ShortDateNew = False
Me.txbFactor._ShortDateOnly = False
Me.txbFactor._TimeOnly = False
Me.txbFactor._TimeOnly_Seconds = False
Me.txbFactor._value = ""
Me.txbFactor._Waehrung = True
Me.txbFactor._WaehrungZeichen = True
Me.txbFactor.ForeColor = System.Drawing.Color.Black
Me.txbFactor.Location = New System.Drawing.Point(75, 122)
Me.txbFactor.MaxLineLength = -1
Me.txbFactor.MaxLines_Warning = ""
Me.txbFactor.MaxLines_Warning_Label = Nothing
Me.txbFactor.Name = "txbFactor"
Me.txbFactor.Size = New System.Drawing.Size(60, 20)
Me.txbFactor.TabIndex = 17
'
'tbxGesamtfrachtkosten
'
Me.tbxGesamtfrachtkosten._DateTimeOnly = False
Me.tbxGesamtfrachtkosten._numbersOnly = False
Me.tbxGesamtfrachtkosten._numbersOnlyKommastellen = ""
Me.tbxGesamtfrachtkosten._numbersOnlyTrennzeichen = True
Me.tbxGesamtfrachtkosten._Prozent = False
Me.tbxGesamtfrachtkosten._ShortDateNew = False
Me.tbxGesamtfrachtkosten._ShortDateOnly = False
Me.tbxGesamtfrachtkosten._TimeOnly = False
Me.tbxGesamtfrachtkosten._TimeOnly_Seconds = False
Me.tbxGesamtfrachtkosten._value = ""
Me.tbxGesamtfrachtkosten._Waehrung = True
Me.tbxGesamtfrachtkosten._WaehrungZeichen = True
Me.tbxGesamtfrachtkosten.ForeColor = System.Drawing.Color.Black
Me.tbxGesamtfrachtkosten.Location = New System.Drawing.Point(301, 122)
Me.tbxGesamtfrachtkosten.MaxLineLength = -1
Me.tbxGesamtfrachtkosten.MaxLines_Warning = ""
Me.tbxGesamtfrachtkosten.MaxLines_Warning_Label = Nothing
Me.tbxGesamtfrachtkosten.Name = "tbxGesamtfrachtkosten"
Me.tbxGesamtfrachtkosten.ReadOnly = True
Me.tbxGesamtfrachtkosten.Size = New System.Drawing.Size(60, 20)
Me.tbxGesamtfrachtkosten.TabIndex = 19
'
'txbGewicht
'
Me.txbGewicht._DateTimeOnly = False
Me.txbGewicht._numbersOnly = False
Me.txbGewicht._numbersOnlyKommastellen = ""
Me.txbGewicht._numbersOnlyTrennzeichen = True
Me.txbGewicht._Prozent = False
Me.txbGewicht._ShortDateNew = False
Me.txbGewicht._ShortDateOnly = False
Me.txbGewicht._TimeOnly = False
Me.txbGewicht._TimeOnly_Seconds = False
Me.txbGewicht._value = ""
Me.txbGewicht._Waehrung = False
Me.txbGewicht._WaehrungZeichen = True
Me.txbGewicht.ForeColor = System.Drawing.Color.Black
Me.txbGewicht.Location = New System.Drawing.Point(75, 96)
Me.txbGewicht.MaxLineLength = -1
Me.txbGewicht.MaxLines_Warning = ""
Me.txbGewicht.MaxLines_Warning_Label = Nothing
Me.txbGewicht.Name = "txbGewicht"
Me.txbGewicht.ReadOnly = True
Me.txbGewicht.Size = New System.Drawing.Size(84, 20)
Me.txbGewicht.TabIndex = 15
'
'txbCalcDistanceEU
'
Me.txbCalcDistanceEU._DateTimeOnly = False
Me.txbCalcDistanceEU._numbersOnly = False
Me.txbCalcDistanceEU._numbersOnlyKommastellen = ""
Me.txbCalcDistanceEU._numbersOnlyTrennzeichen = True
Me.txbCalcDistanceEU._Prozent = False
Me.txbCalcDistanceEU._ShortDateNew = False
Me.txbCalcDistanceEU._ShortDateOnly = False
Me.txbCalcDistanceEU._TimeOnly = False
Me.txbCalcDistanceEU._TimeOnly_Seconds = False
Me.txbCalcDistanceEU._value = ""
Me.txbCalcDistanceEU._Waehrung = False
Me.txbCalcDistanceEU._WaehrungZeichen = True
Me.txbCalcDistanceEU.ForeColor = System.Drawing.Color.Black
Me.txbCalcDistanceEU.Location = New System.Drawing.Point(277, 188)
Me.txbCalcDistanceEU.MaxLineLength = -1
Me.txbCalcDistanceEU.MaxLines_Warning = ""
Me.txbCalcDistanceEU.MaxLines_Warning_Label = Nothing
Me.txbCalcDistanceEU.Name = "txbCalcDistanceEU"
Me.txbCalcDistanceEU.Size = New System.Drawing.Size(84, 20)
Me.txbCalcDistanceEU.TabIndex = 27
'
'txbNachOrt
'
Me.txbNachOrt._DateTimeOnly = False
Me.txbNachOrt._numbersOnly = False
Me.txbNachOrt._numbersOnlyKommastellen = ""
Me.txbNachOrt._numbersOnlyTrennzeichen = True
Me.txbNachOrt._Prozent = False
Me.txbNachOrt._ShortDateNew = False
Me.txbNachOrt._ShortDateOnly = False
Me.txbNachOrt._TimeOnly = False
Me.txbNachOrt._TimeOnly_Seconds = False
Me.txbNachOrt._value = ""
Me.txbNachOrt._Waehrung = False
Me.txbNachOrt._WaehrungZeichen = True
Me.txbNachOrt.ForeColor = System.Drawing.Color.Black
Me.txbNachOrt.Location = New System.Drawing.Point(255, 49)
Me.txbNachOrt.MaxLineLength = -1
Me.txbNachOrt.MaxLines_Warning = ""
Me.txbNachOrt.MaxLines_Warning_Label = Nothing
Me.txbNachOrt.Name = "txbNachOrt"
Me.txbNachOrt.Size = New System.Drawing.Size(106, 20)
Me.txbNachOrt.TabIndex = 11
'
'txbVonOrt
'
Me.txbVonOrt._DateTimeOnly = False
Me.txbVonOrt._numbersOnly = False
Me.txbVonOrt._numbersOnlyKommastellen = ""
Me.txbVonOrt._numbersOnlyTrennzeichen = True
Me.txbVonOrt._Prozent = False
Me.txbVonOrt._ShortDateNew = False
Me.txbVonOrt._ShortDateOnly = False
Me.txbVonOrt._TimeOnly = False
Me.txbVonOrt._TimeOnly_Seconds = False
Me.txbVonOrt._value = ""
Me.txbVonOrt._Waehrung = False
Me.txbVonOrt._WaehrungZeichen = True
Me.txbVonOrt.ForeColor = System.Drawing.Color.Black
Me.txbVonOrt.Location = New System.Drawing.Point(75, 49)
Me.txbVonOrt.MaxLineLength = -1
Me.txbVonOrt.MaxLines_Warning = ""
Me.txbVonOrt.MaxLines_Warning_Label = Nothing
Me.txbVonOrt.Name = "txbVonOrt"
Me.txbVonOrt.Size = New System.Drawing.Size(106, 20)
Me.txbVonOrt.TabIndex = 9
'
'txbNachPLZ
'
Me.txbNachPLZ._DateTimeOnly = False
Me.txbNachPLZ._numbersOnly = False
Me.txbNachPLZ._numbersOnlyKommastellen = ""
Me.txbNachPLZ._numbersOnlyTrennzeichen = True
Me.txbNachPLZ._Prozent = False
Me.txbNachPLZ._ShortDateNew = False
Me.txbNachPLZ._ShortDateOnly = False
Me.txbNachPLZ._TimeOnly = False
Me.txbNachPLZ._TimeOnly_Seconds = False
Me.txbNachPLZ._value = ""
Me.txbNachPLZ._Waehrung = False
Me.txbNachPLZ._WaehrungZeichen = True
Me.txbNachPLZ.ForeColor = System.Drawing.Color.Black
Me.txbNachPLZ.Location = New System.Drawing.Point(301, 23)
Me.txbNachPLZ.MaxLineLength = -1
Me.txbNachPLZ.MaxLines_Warning = ""
Me.txbNachPLZ.MaxLines_Warning_Label = Nothing
Me.txbNachPLZ.Name = "txbNachPLZ"
Me.txbNachPLZ.Size = New System.Drawing.Size(60, 20)
Me.txbNachPLZ.TabIndex = 7
'
'txbVonPLZ
'
Me.txbVonPLZ._DateTimeOnly = False
Me.txbVonPLZ._numbersOnly = False
Me.txbVonPLZ._numbersOnlyKommastellen = ""
Me.txbVonPLZ._numbersOnlyTrennzeichen = True
Me.txbVonPLZ._Prozent = False
Me.txbVonPLZ._ShortDateNew = False
Me.txbVonPLZ._ShortDateOnly = False
Me.txbVonPLZ._TimeOnly = False
Me.txbVonPLZ._TimeOnly_Seconds = False
Me.txbVonPLZ._value = ""
Me.txbVonPLZ._Waehrung = False
Me.txbVonPLZ._WaehrungZeichen = True
Me.txbVonPLZ.ForeColor = System.Drawing.Color.Black
Me.txbVonPLZ.Location = New System.Drawing.Point(121, 23)
Me.txbVonPLZ.MaxLineLength = -1
Me.txbVonPLZ.MaxLines_Warning = ""
Me.txbVonPLZ.MaxLines_Warning_Label = Nothing
Me.txbVonPLZ.Name = "txbVonPLZ"
Me.txbVonPLZ.Size = New System.Drawing.Size(60, 20)
Me.txbVonPLZ.TabIndex = 4
'
'tbNichtEUAnteil
'
Me.tbNichtEUAnteil._DateTimeOnly = False
Me.tbNichtEUAnteil._numbersOnly = False
Me.tbNichtEUAnteil._numbersOnlyKommastellen = ""
Me.tbNichtEUAnteil._numbersOnlyTrennzeichen = True
Me.tbNichtEUAnteil._Prozent = True
Me.tbNichtEUAnteil._ShortDateNew = False
Me.tbNichtEUAnteil._ShortDateOnly = False
Me.tbNichtEUAnteil._TimeOnly = False
Me.tbNichtEUAnteil._TimeOnly_Seconds = False
Me.tbNichtEUAnteil._value = Nothing
Me.tbNichtEUAnteil._Waehrung = False
Me.tbNichtEUAnteil._WaehrungZeichen = False
Me.tbNichtEUAnteil.ForeColor = System.Drawing.Color.Black
Me.tbNichtEUAnteil.Location = New System.Drawing.Point(86, 227)
Me.tbNichtEUAnteil.MaxLineLength = -1
Me.tbNichtEUAnteil.MaxLines_Warning = ""
Me.tbNichtEUAnteil.MaxLines_Warning_Label = Nothing
Me.tbNichtEUAnteil.Name = "tbNichtEUAnteil"
Me.tbNichtEUAnteil.Size = New System.Drawing.Size(49, 20)
Me.tbNichtEUAnteil.TabIndex = 30
'
'tbEUAnteil
'
Me.tbEUAnteil._DateTimeOnly = False
Me.tbEUAnteil._numbersOnly = False
Me.tbEUAnteil._numbersOnlyKommastellen = ""
Me.tbEUAnteil._numbersOnlyTrennzeichen = False
Me.tbEUAnteil._Prozent = True
Me.tbEUAnteil._ShortDateNew = False
Me.tbEUAnteil._ShortDateOnly = False
Me.tbEUAnteil._TimeOnly = False
Me.tbEUAnteil._TimeOnly_Seconds = False
Me.tbEUAnteil._value = Nothing
Me.tbEUAnteil._Waehrung = False
Me.tbEUAnteil._WaehrungZeichen = False
Me.tbEUAnteil.ForeColor = System.Drawing.Color.Black
Me.tbEUAnteil.Location = New System.Drawing.Point(84, 188)
Me.tbEUAnteil.MaxLineLength = -1
Me.tbEUAnteil.MaxLines_Warning = ""
Me.tbEUAnteil.MaxLines_Warning_Label = Nothing
Me.tbEUAnteil.Name = "tbEUAnteil"
Me.tbEUAnteil.Size = New System.Drawing.Size(51, 20)
Me.tbEUAnteil.TabIndex = 24
Me.UsrcntlFrachtkostenberechnung1.Location = New System.Drawing.Point(12, 12)
Me.UsrcntlFrachtkostenberechnung1.Name = "UsrcntlFrachtkostenberechnung1"
Me.UsrcntlFrachtkostenberechnung1.Size = New System.Drawing.Size(386, 393)
Me.UsrcntlFrachtkostenberechnung1.TabIndex = 37
'
'frmFrachtkostenBerechnen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(381, 305)
Me.Controls.Add(Me.cbxLandNach)
Me.Controls.Add(Me.cbxLandVon)
Me.Controls.Add(Me.ckbManAnteilsermittlung)
Me.Controls.Add(Me.txbCalcDistanceNichtEU)
Me.Controls.Add(Me.lblDistanzNichtEU)
Me.Controls.Add(Me.tbNichtEUAnteilberechnet)
Me.Controls.Add(Me.tbEUAnteilberechnet)
Me.Controls.Add(Me.lblWarningFaktor)
Me.Controls.Add(Me.lblWarningBestimmungsort)
Me.Controls.Add(Me.lblWarningAbgangort)
Me.Controls.Add(Me.lblWarningNichtEUAnteil)
Me.Controls.Add(Me.lblWarningEUAnteil)
Me.Controls.Add(Me.txbFactor)
Me.Controls.Add(Me.lblFaktor)
Me.Controls.Add(Me.tbxGesamtfrachtkosten)
Me.Controls.Add(Me.txbGewicht)
Me.Controls.Add(Me.txbCalcDistanceEU)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txbNachOrt)
Me.Controls.Add(Me.txbVonOrt)
Me.Controls.Add(Me.btnCalculate)
Me.Controls.Add(Me.lblGesamtfrachkosten)
Me.Controls.Add(Me.lblGewicht)
Me.Controls.Add(Me.lblDistanzEU)
Me.Controls.Add(Me.txbNachPLZ)
Me.Controls.Add(Me.txbVonPLZ)
Me.Controls.Add(Me.lblNichtEUAnteil)
Me.Controls.Add(Me.lblEUAnteil)
Me.Controls.Add(Me.tbNichtEUAnteil)
Me.Controls.Add(Me.tbEUAnteil)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.lblNach)
Me.Controls.Add(Me.lblVon)
Me.ClientSize = New System.Drawing.Size(405, 395)
Me.Controls.Add(Me.UsrcntlFrachtkostenberechnung1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFrachtkostenBerechnen"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Frachtkosten berechnen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblVon As Label
Friend WithEvents lblNach As Label
Friend WithEvents btnCancel As Button
Friend WithEvents btnOK As Button
Friend WithEvents tbEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents tbNichtEUAnteil As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblEUAnteil As Label
Friend WithEvents lblNichtEUAnteil As Label
Friend WithEvents txbVonPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbNachPLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblDistanzEU As Label
Friend WithEvents lblGewicht As Label
Friend WithEvents btnCalculate As Button
Friend WithEvents txbVonOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbNachOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents txbCalcDistanceEU As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGesamtfrachkosten As Label
Friend WithEvents tbxGesamtfrachtkosten As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbFactor As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblFaktor As Label
Friend WithEvents lblWarningEUAnteil As Label
Friend WithEvents lblWarningNichtEUAnteil As Label
Friend WithEvents lblWarningAbgangort As Label
Friend WithEvents lblWarningBestimmungsort As Label
Friend WithEvents lblWarningFaktor As Label
Friend WithEvents tbEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents tbNichtEUAnteilberechnet As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txbCalcDistanceNichtEU As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblDistanzNichtEU As Label
Friend WithEvents ckbManAnteilsermittlung As CheckBox
Friend WithEvents ToolTipAutomatischErmitteln As ToolTip
Friend WithEvents cbxLandVon As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxLandNach As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents UsrcntlFrachtkostenberechnung1 As usrcntlFrachtkostenberechnung
End Class

526
Aviso/frmFrachtkostenBerechnen.vb
View File

@@ -6,51 +6,59 @@ Imports VERAG_PROG_ALLGEMEIN
Public Class frmFrachtkostenBerechnen
Dim absenderID As Integer = -1
Dim empfaengerID As Integer = -1
Dim origin As String
Dim destination As String
Public EUAnteil As Double
Public nichtEUAnteil As Double
Dim gewicht As Double
Dim gesamtFrachtkosten As Double
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
'Dim absenderID As Integer = -1
'Dim empfaengerID As Integer = -1
'Dim origin As String
'Dim destination As String
'Public EUAnteil As Double
'Public nichtEUAnteil As Double
'Dim gewicht As Double
'Dim gesamtFrachtkosten As Double
'Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String)
Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String)
InitializeComponent()
Try
Dim ustcntl As New usrcntlFrachtkostenberechnung(absID, empfID, gewichtInput, gesamtfrachtkostenInput, ware)
'If ustcntl = DialogResult.OK Then
' txtFrachtkostenEU._value = frachkosten.EUAnteil
' txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
' txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
'End If
If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then
gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput)
tbxGesamtfrachtkosten._value = gesamtFrachtkosten
Else
gesamtFrachtkosten = 0
End If
'If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then
' gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput)
' tbxGesamtfrachtkosten._value = gesamtFrachtkosten
'Else
' gesamtFrachtkosten = 0
'End If
If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then
gewicht = CDbl(gewichtInput)
Else
gewicht = 0
End If
'If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then
' gewicht = CDbl(gewichtInput)
'Else
' gewicht = 0
'End If
If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
absenderID = CInt(absID)
Else
absenderID = -1
End If
'If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
' absenderID = CInt(absID)
'Else
' absenderID = -1
'End If
If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then
'If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then
empfaengerID = Int(empfID)
Else
empfaengerID = -1
End If
' empfaengerID = Int(empfID)
'Else
' empfaengerID = -1
'End If
Catch ex As Exception
@@ -60,245 +68,245 @@ Public Class frmFrachtkostenBerechnen
End Sub
Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Private Sub frmFrachtkotenBerechnen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True)
cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True)
' 'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True)
' cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True)
cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", ""))
txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
' cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", ""))
' txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
' txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
' cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
' cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
' txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
' txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
ckbManAnteilsermittlung.Checked = True
' ckbManAnteilsermittlung.Checked = True
tbEUAnteil._value = 0
tbNichtEUAnteil._value = 0
txbGewicht._value = gewicht.ToString
txbFactor._value = 0.15
checkInputFields()
' tbEUAnteil._value = 0
' tbNichtEUAnteil._value = 0
' txbGewicht._value = gewicht.ToString
' txbFactor._value = 0.15
' checkInputFields()
End Sub
'End Sub
Sub calculateFreight()
'Sub calculateFreight()
' 'resetInputFields()
' setControlEUAnteile()
' origin = IIf(cbxLandVon._value <> "", cbxLandVon.Text.Replace(cbxLandVon._value & " -", "").Trim(), "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
' destination = IIf(cbxLandNach._value <> "", cbxLandNach.Text.Replace(cbxLandNach._value & " -", "").Trim(), "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
' Dim getValues = True
' Dim twoRouteRequest As Boolean = False
' Dim duration = ""
' Dim distance = ""
' Dim durationEU = ""
' Dim distanceEU = ""
' If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
' twoRouteRequest = True
' 'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues)
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues)
' ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
' twoRouteRequest = True
' 'Horgoš ist EU Grenze für Lieferungen aus Serbien
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues)
' ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
' twoRouteRequest = True
' 'Dover ist EU Grenze für Lieferungen nach England
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues)
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues)
' ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
' twoRouteRequest = True
' 'Dover ist EU Grenze für Lieferungen aus England
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues)
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, getValues)
' End If
' If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then
' lblDistanzEU.Text = "EU-Distanz"
' lblDistanzNichtEU.Visible = True
' txbCalcDistanceNichtEU.Visible = True
' Try
' If (IsNumeric(distanceEU)) Then
' IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
' txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
' Else
' distanceEU = "0"
' MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen")
' Exit Sub
' End If
' If (IsNumeric(distance)) Then
' txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance))
' Else
' distance = "0"
' MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen")
' Exit Sub
' End If
' Dim totalDistance = CDbl(distance) + CDbl(distanceEU)
' Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance
' Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance
' Math.Round(distanceNotEUpercent, 2)
' Math.Round(distanceEUpercent, 2)
' tbEUAnteil._value = CDbl(distanceEUpercent) / 100
' tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
' ElseIf ckbManAnteilsermittlung.Checked Then
' VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
' tbEUAnteil._value = 0.6
' tbNichtEUAnteil._value = 0.4
' If distance = "0" Or distance = "" Then
' MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
' End If
' lblDistanzEU.Text = "Distanz"
' txbCalcDistanceEU._value = distance
' lblDistanzNichtEU.Visible = False
' txbCalcDistanceNichtEU.Visible = False
' Else
' lblDistanzEU.Text = "Distanz"
' txbCalcDistanceEU._value = distance
' lblDistanzNichtEU.Visible = False
' txbCalcDistanceNichtEU.Visible = False
' End If
'End Sub
'Sub calculateFreightCosts()
' Try
' If gesamtFrachtkosten = 0 Then
' gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
' tbxGesamtfrachtkosten._value = gesamtFrachtkosten
' End If
' tbxGesamtfrachtkosten._value = gesamtFrachtkosten
' EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
' nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value)
' tbEUAnteilberechnet._value = CStr(EUAnteil)
' tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil)
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' End Try
'End Sub
'Function checkInputFields() As Boolean
' Dim isFilled As Boolean = True
' lblWarningAbgangort.Visible = False
' lblWarningBestimmungsort.Visible = False
' lblWarningEUAnteil.Visible = False
' lblWarningNichtEUAnteil.Visible = False
' btnOK.DialogResult = DialogResult.OK
' If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
' lblWarningEUAnteil.Visible = True
' btnOK.DialogResult = DialogResult.OK
' isFilled = False
' End If
' If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
' lblWarningNichtEUAnteil.Visible = True
' btnOK.DialogResult = DialogResult.OK
' isFilled = False
' End If
' If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
' 'Hinweis INPUT false
' End If
' If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then
' lblWarningAbgangort.Visible = True
' btnOK.DialogResult = DialogResult.OK
' isFilled = False
' End If
' If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then
' lblWarningBestimmungsort.Visible = True
' btnOK.DialogResult = DialogResult.OK
' isFilled = False
' End If
' Return isFilled
'End Function
'Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
' If (checkInputFields() = False) Then Exit Sub
' calculateFreight()
' If (checkInputFields() = False) Then Exit Sub
' calculateFreightCosts()
'End Sub
'Private Sub resetInputFields()
' txbCalcDistanceEU.Clear()
' txbCalcDistanceNichtEU.Clear()
' tbEUAnteilberechnet.Clear()
' tbNichtEUAnteilberechnet.Clear()
' If tbEUAnteil._value = "" Then tbEUAnteil._value = 0
' If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0
'End Sub
'Private Sub setControlEUAnteile()
' If ckbManAnteilsermittlung.Checked Then
' tbEUAnteil.Enabled = False
' tbNichtEUAnteil.Enabled = False
' Else
' tbEUAnteil.Enabled = True
' tbNichtEUAnteil.Enabled = True
' resetInputFields()
setControlEUAnteile()
' End If
'End Sub
origin = IIf(cbxLandVon._value <> "", cbxLandVon.Text.Replace(cbxLandVon._value & " -", "").Trim(), "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
destination = IIf(cbxLandNach._value <> "", cbxLandNach.Text.Replace(cbxLandNach._value & " -", "").Trim(), "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
Dim getValues = True
Dim twoRouteRequest As Boolean = False
Dim duration = ""
Dim distance = ""
Dim durationEU = ""
Dim distanceEU = ""
If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues)
ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Horgoš ist EU Grenze für Lieferungen aus Serbien
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues)
ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Dover ist EU Grenze für Lieferungen nach England
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues)
ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Dover ist EU Grenze für Lieferungen aus England
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, getValues)
End If
If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then
lblDistanzEU.Text = "EU-Distanz"
lblDistanzNichtEU.Visible = True
txbCalcDistanceNichtEU.Visible = True
Try
If (IsNumeric(distanceEU)) Then
IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
Else
distanceEU = "0"
MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen")
Exit Sub
End If
If (IsNumeric(distance)) Then
txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance))
Else
distance = "0"
MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen")
Exit Sub
End If
Dim totalDistance = CDbl(distance) + CDbl(distanceEU)
Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance
Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance
Math.Round(distanceNotEUpercent, 2)
Math.Round(distanceEUpercent, 2)
tbEUAnteil._value = CDbl(distanceEUpercent) / 100
tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
ElseIf ckbManAnteilsermittlung.Checked Then
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
tbEUAnteil._value = 0.6
tbNichtEUAnteil._value = 0.4
If distance = "0" Or distance = "" Then
MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
End If
lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False
Else
lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False
End If
End Sub
Sub calculateFreightCosts()
Try
If gesamtFrachtkosten = 0 Then
gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
tbxGesamtfrachtkosten._value = gesamtFrachtkosten
End If
tbxGesamtfrachtkosten._value = gesamtFrachtkosten
EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value)
tbEUAnteilberechnet._value = CStr(EUAnteil)
tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Function checkInputFields() As Boolean
Dim isFilled As Boolean = True
lblWarningAbgangort.Visible = False
lblWarningBestimmungsort.Visible = False
lblWarningEUAnteil.Visible = False
lblWarningNichtEUAnteil.Visible = False
btnOK.DialogResult = DialogResult.OK
If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
lblWarningEUAnteil.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
lblWarningNichtEUAnteil.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
'Hinweis INPUT false
End If
If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then
lblWarningAbgangort.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then
lblWarningBestimmungsort.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
Return isFilled
End Function
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
If (checkInputFields() = False) Then Exit Sub
calculateFreight()
If (checkInputFields() = False) Then Exit Sub
calculateFreightCosts()
End Sub
Private Sub resetInputFields()
txbCalcDistanceEU.Clear()
txbCalcDistanceNichtEU.Clear()
tbEUAnteilberechnet.Clear()
tbNichtEUAnteilberechnet.Clear()
If tbEUAnteil._value = "" Then tbEUAnteil._value = 0
If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0
End Sub
Private Sub setControlEUAnteile()
If ckbManAnteilsermittlung.Checked Then
tbEUAnteil.Enabled = False
tbNichtEUAnteil.Enabled = False
Else
tbEUAnteil.Enabled = True
tbNichtEUAnteil.Enabled = True
resetInputFields()
End If
End Sub
Private Sub ckbManAnteilsermittlung_CheckStateChanged(sender As Object, e As EventArgs) Handles ckbManAnteilsermittlung.CheckStateChanged
setControlEUAnteile()
End Sub
'Private Sub ckbManAnteilsermittlung_CheckStateChanged(sender As Object, e As EventArgs) Handles ckbManAnteilsermittlung.CheckStateChanged
' setControlEUAnteile()
'End Sub
End Class

11
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5709,13 +5709,12 @@ Public Class frmSendungsdetailsNEU
Sub calculateFreightCosts()
Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text)
Dim frachkosten = New frmFrachtkostenBerechnen(txtAbsenderKdNr._value, txtEmpfaengerKdNr._value, txtGewicht.Text, txtFrachtkostenGesamt.Text, rtbWarenbezeichnung.Text)
If frachkosten.ShowDialog() = DialogResult.OK Then
txtFrachtkostenEU._value = frachkosten.EUAnteil
txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
If frachkosten.ShowDialog = DialogResult.OK Then
'txtFrachtkostenEU._value = frachkosten.usrcntlFrachtkostenberechnung.EUAnteil
'txtFrachtkostenNichtEU._value = frachkosten.nichtEUAnteil
'txtFrachtkostenGesamt._value = frachkosten.tbxGesamtfrachtkosten._value
End If
End Sub

24
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -54,6 +54,7 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tbVermerke = New System.Windows.Forms.TabPage()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.tbZollanmeldungen = New System.Windows.Forms.TabPage()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.dgvZollAnmeldungen = New System.Windows.Forms.DataGridView()
@@ -155,7 +156,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageEinfügenPasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlVermerkeATilla1 = New AVISO.usrCntlVermerkeATilla()
Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -275,6 +275,17 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.tbVermerke.Text = "Vermerk eintragen"
Me.tbVermerke.UseVisualStyleBackColor = True
'
'UsrCntlVermerkeATilla1
'
Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'tbZollanmeldungen
'
Me.tbZollanmeldungen.Controls.Add(Me.Panel1)
@@ -1715,17 +1726,6 @@ Partial Class usrcntlAktDetailsATILLANeu
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Size = New System.Drawing.Size(279, 30)
Me.AusZwischenablageEinfügenPasteToolStripMenuItem.Text = "Aus Zwischenablage einfügen (Paste)"
'
'UsrCntlVermerkeATilla1
'
Me.UsrCntlVermerkeATilla1.AutoScroll = True
Me.UsrCntlVermerkeATilla1.BackColor = System.Drawing.SystemColors.Control
Me.UsrCntlVermerkeATilla1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlVermerkeATilla1.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlVermerkeATilla1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlVermerkeATilla1.Name = "UsrCntlVermerkeATilla1"
Me.UsrCntlVermerkeATilla1.Size = New System.Drawing.Size(561, 151)
Me.UsrCntlVermerkeATilla1.TabIndex = 0
'
'usrcntlAktDetailsATILLANeu
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

10
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -219,9 +219,6 @@ Public Class usrcntlAktDetailsATILLANeu
Try
Me.Cursor = Cursors.WaitCursor
If dgvZollAnmeldungen.SelectedRows.Count = 0 Then Exit Sub
Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADById(dgvZollAnmeldungen.SelectedRows(0).Cells("dy_Id").Value)
If DY IsNot Nothing Then
@@ -1666,5 +1663,12 @@ Public Class usrcntlAktDetailsATILLANeu
End Sub
Private Sub dgvATEZNCTS_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATEZNCTS.CellDoubleClick
If dgvATEZNCTS.Rows.Count = 0 Then Exit Sub
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
frmAttilaATEZNCTS.Show(Me)
End Sub
End Class

1486
Aviso/usrcntlFrachtkostenberechnung.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

120
Aviso/usrcntlFrachtkostenberechnung.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

325
Aviso/usrcntlFrachtkostenberechnung.vb Normal file
View File

@@ -0,0 +1,325 @@
Public Class usrcntlFrachtkostenberechnung
Dim absenderID As Integer = -1
Dim empfaengerID As Integer = -1
Dim origin As String
Dim destination As String
Dim ware As String
Public EUAnteil As Double
Public nichtEUAnteil As Double
Dim gewicht As Double
Dim gesamtFrachtkosten As Double
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Sub New()
InitializeComponent()
ware = "Test"
End Sub
Sub New(absID As String, empfID As String, gewichtInput As String, gesamtfrachtkostenInput As String, ware As String)
InitializeComponent()
Try
If gesamtfrachtkostenInput IsNot Nothing AndAlso gesamtfrachtkostenInput.ToString <> "" AndAlso IsNumeric(gesamtfrachtkostenInput) Then
gesamtFrachtkosten = CDbl(gesamtfrachtkostenInput)
tbxGesamtfrachtkosten._value = gesamtFrachtkosten
Else
gesamtFrachtkosten = 0
End If
If gewichtInput IsNot Nothing AndAlso gewichtInput.ToString <> "" AndAlso IsNumeric(gewichtInput) Then
gewicht = CDbl(gewichtInput)
Else
gewicht = 0
End If
If absID IsNot Nothing AndAlso absID.ToString <> "" AndAlso IsNumeric(absID) Then
absenderID = CInt(absID)
Else
absenderID = -1
End If
If empfID IsNot Nothing AndAlso empfID.ToString <> "" AndAlso IsNumeric(empfID) Then
empfaengerID = Int(empfID)
Else
empfaengerID = -1
End If
txtZoll2._value = ware.ToString
Label5.Text = gewicht.ToString
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub usrcntlFrachtkostenberechnung(sender As Object, e As EventArgs) Handles MyBase.Load
'cbxLandVon.fillWithSQL("SELECT Distinct(ISNULL([LandKz],'')) as LandKZ FROM [Adressen] order by LandKz asc", False, "FMZOLL", True, True)
cbxLandVon.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", True, "FMZOLL", True)
cbxLandVon.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & absenderID & "'", "FMZOLL", ""))
txbVonPLZ.fillWithSQL("SELECT ISNULL([PLZ],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
txbVonOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & absenderID & "'", "FMZOLL")
cbxLandNach.Items.AddRange(cbxLandVon.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxLandNach.changeItem(sql.DLookup("[LandKz]", "[Adressen]", "[AdressenNr]='" & empfaengerID & "'", "FMZOLL", ""))
txbNachPLZ.fillWithSQL("SELECT ISNULL([PLZ],'-') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
txbNachOrt.fillWithSQL("SELECT ISNULL([Ort],'') FROM [Adressen] where AdressenNr = '" & empfaengerID & "'", "FMZOLL")
ckbManAnteilsermittlung.Checked = True
tbEUAnteil._value = 0
tbNichtEUAnteil._value = 0
txbGewicht._value = gewicht.ToString
txbFactor._value = 0.15
checkInputFields()
End Sub
Sub calculateFreight()
'resetInputFields()
setControlEUAnteile()
origin = IIf(cbxLandVon._value <> "", cbxLandVon.Text.Replace(cbxLandVon._value & " -", "").Trim(), "") & " " & IIf(txbVonPLZ._value <> "", txbVonPLZ._value, "") & " " & IIf(txbVonOrt._value <> "", txbVonOrt._value, "")
destination = IIf(cbxLandNach._value <> "", cbxLandNach.Text.Replace(cbxLandNach._value & " -", "").Trim(), "") & " " & IIf(txbNachPLZ._value <> "", txbNachPLZ._value, "") & " " & IIf(txbNachOrt._value <> "", txbNachOrt._value, "")
Dim getValues = True
Dim twoRouteRequest As Boolean = False
Dim duration = ""
Dim distance = ""
Dim durationEU = ""
Dim distanceEU = ""
If cbxLandVon._value = "TR" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Kapitan Andreevo ist EU Grenze für Lieferungen aus der Türkei
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Kapitan Andreevo", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Kapitan Andreevo", destination, durationEU, distanceEU,, getValues)
ElseIf cbxLandVon._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Horgoš ist EU Grenze für Lieferungen von Serbien
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues)
ElseIf cbxLandNach._value = "SRB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Horgoš ist EU Grenze für Lieferungen aus Serbien
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Horgoš", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Horgoš", destination, durationEU, distanceEU,, getValues)
ElseIf cbxLandNach._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Dover ist EU Grenze für Lieferungen nach England
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", durationEU, distanceEU,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, duration, distance,, getValues)
ElseIf cbxLandVon._value = "GB" AndAlso ckbManAnteilsermittlung.Checked Then
twoRouteRequest = True
'Dover ist EU Grenze für Lieferungen aus England
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, "Dover", duration, distance,, getValues)
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance("Dover", destination, durationEU, distanceEU,, getValues)
End If
If twoRouteRequest = True AndAlso ckbManAnteilsermittlung.Checked Then
lblDistanzEU.Text = "EU-Distanz"
lblDistanzNichtEU.Visible = True
txbCalcDistanceNichtEU.Visible = True
Try
If (IsNumeric(distanceEU)) Then
IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
txbCalcDistanceEU._value = IIf(distanceEU > 1000, Math.Round(distanceEU / 1000, 0), distanceEU)
Else
distanceEU = "0"
MsgBox("Standort vom Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbNachPLZ._value & " " & txbNachOrt._value & " prüfen")
Exit Sub
End If
If (IsNumeric(distance)) Then
txbCalcDistanceNichtEU._value = IIf(CInt(distance) > 1000, Math.Round(CInt(distance) / 1000, 0), CInt(distance))
Else
distance = "0"
MsgBox("Standort vom Abgangsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe " & txbVonPLZ._value & " " & txbVonOrt._value & " prüfen")
Exit Sub
End If
Dim totalDistance = CDbl(distance) + CDbl(distanceEU)
Dim distanceNotEUpercent = CDbl(distance) * 100 / totalDistance
Dim distanceEUpercent = CDbl(distanceEU) * 100 / totalDistance
Math.Round(distanceNotEUpercent, 2)
Math.Round(distanceEUpercent, 2)
tbEUAnteil._value = CDbl(distanceEUpercent) / 100
tbNichtEUAnteil._value = CDbl(distanceNotEUpercent) / 100
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
ElseIf ckbManAnteilsermittlung.Checked Then
VERAG_PROG_ALLGEMEIN.cGoogleAPI.GoogleDistance(origin, destination, duration, distance)
tbEUAnteil._value = 0.6
tbNichtEUAnteil._value = 0.4
If distance = "0" Or distance = "" Then
MsgBox("Standort vom Abgangsort/Bestimmungsort kann nicht ermittelt werden!" & vbCr & "Bitte Eingabe prüfen")
End If
lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False
Else
lblDistanzEU.Text = "Distanz"
txbCalcDistanceEU._value = distance
lblDistanzNichtEU.Visible = False
txbCalcDistanceNichtEU.Visible = False
End If
End Sub
Sub calculateFreightCosts()
Try
If gesamtFrachtkosten = 0 Then
gesamtFrachtkosten = gewicht * CDbl(txbFactor._value)
tbxGesamtfrachtkosten._value = gesamtFrachtkosten
End If
tbxGesamtfrachtkosten._value = gesamtFrachtkosten
EUAnteil = gesamtFrachtkosten * tbEUAnteil._value
nichtEUAnteil = gesamtFrachtkosten * CDbl(tbNichtEUAnteil._value)
tbEUAnteilberechnet._value = CStr(EUAnteil)
tbNichtEUAnteilberechnet._value = CStr(nichtEUAnteil)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Function checkInputFields() As Boolean
Dim isFilled As Boolean = True
lblWarningAbgangort.Visible = False
lblWarningBestimmungsort.Visible = False
lblWarningEUAnteil.Visible = False
lblWarningNichtEUAnteil.Visible = False
btnOK.DialogResult = DialogResult.OK
If (tbEUAnteil._value = "" Or Not IsNumeric(tbEUAnteil._value)) Then
lblWarningEUAnteil.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
If (tbNichtEUAnteil._value = "" Or Not IsNumeric(tbNichtEUAnteil._value)) Then
lblWarningNichtEUAnteil.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
If (txbFactor._value = "" Or Not IsNumeric(txbFactor._value)) Then
'Hinweis INPUT false
End If
If (txbVonOrt._value = "" And txbVonPLZ._value = "") Then
lblWarningAbgangort.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
If (txbNachOrt._value = "" And txbNachPLZ._value = "") Then
lblWarningBestimmungsort.Visible = True
btnOK.DialogResult = DialogResult.OK
isFilled = False
End If
Return isFilled
End Function
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
If (checkInputFields() = False) Then Exit Sub
calculateFreight()
If (checkInputFields() = False) Then Exit Sub
calculateFreightCosts()
End Sub
Private Sub resetInputFields()
txbCalcDistanceEU.Clear()
txbCalcDistanceNichtEU.Clear()
tbEUAnteilberechnet.Clear()
tbNichtEUAnteilberechnet.Clear()
If tbEUAnteil._value = "" Then tbEUAnteil._value = 0
If tbNichtEUAnteil._value = "" Then tbNichtEUAnteil._value = 0
End Sub
Private Sub setControlEUAnteile()
If ckbManAnteilsermittlung.Checked Then
tbEUAnteil.Enabled = False
tbNichtEUAnteil.Enabled = False
Else
tbEUAnteil.Enabled = True
tbNichtEUAnteil.Enabled = True
resetInputFields()
End If
End Sub
Private Sub txbCalcDistanceEU_TextChanged(sender As Object, e As EventArgs) Handles txbCalcDistanceEU.TextChanged, txbCalcDistanceNichtEU.TextChanged, txbCalcDistanceNichtEU.TextChanged, tbNichtEUAnteilberechnet.TextChanged, tbEUAnteil.TextChanged, tbNichtEUAnteil.TextChanged
txbCalcDistanceEU2.Text = txbCalcDistanceEU.Text
txbCalcDistanceNichtEU2.Text = txbCalcDistanceNichtEU.Text
tbEUAnteilberechnet2.Text = txbCalcDistanceNichtEU.Text
tbNichtEUAnteilberechnet22.Text = tbNichtEUAnteilberechnet.Text
tbEUAnteil2.Text = tbEUAnteil.Text
tbNichtEUAnteil2.Text = tbNichtEUAnteil.Text
End Sub
End Class