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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES.vb
View File

@@ -355,6 +355,11 @@ Public Class usrCntlATLAS_AES
AES.aes_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungAES(AES, Me, DY_ANM)
Select Case FIRMA_DY
Case "AMBAR"
AES.aes_BezugsnummerVorblendung = "AA_EXPORT_AMBAR_"
End Select
If Not AES.SAVE_ALL() Then Exit Sub
Dim saveFile = ""

204
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.Designer.vb generated
View File

@@ -24,8 +24,13 @@ Partial Class usrCntlATLAS_AES_Position
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_AES_Position))
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.usrcntlSumAEmpfaenger = New SDL.usrCntlAdresse()
Me.usrcntlSumAVersedner = New SDL.usrCntlAdresse()
Me.usrcntlEmpfaenger = New SDL.usrCntlAdresse()
Me.usrcntlVersedner = New SDL.usrCntlAdresse()
Me.Label7 = New System.Windows.Forms.Label()
Me.sbExportAusLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.cbxVermerk10600 = New System.Windows.Forms.CheckBox()
@@ -106,11 +111,6 @@ Partial Class usrCntlATLAS_AES_Position
Me.Label5 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.lklBearbeitungAbbrechenPK = New System.Windows.Forms.LinkLabel()
Me.Label8 = New System.Windows.Forms.Label()
Me.usrcntlSumAEmpfaenger = New SDL.usrCntlAdresse()
Me.usrcntlSumAVersedner = New SDL.usrCntlAdresse()
Me.usrcntlEmpfaenger = New SDL.usrCntlAdresse()
Me.usrcntlVersedner = New SDL.usrCntlAdresse()
Me.pnl.SuspendLayout()
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -202,6 +202,59 @@ Partial Class usrCntlATLAS_AES_Position
Me.pnl.Size = New System.Drawing.Size(730, 1100)
Me.pnl.TabIndex = 0
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(4, 773)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(285, 13)
Me.Label8.TabIndex = 93
Me.Label8.Text = "Nur auszufüllen, wenn mehrere Warenpositionen:"
Me.Label8.Visible = False
'
'usrcntlSumAEmpfaenger
'
Me.usrcntlSumAEmpfaenger._Titel = "SumA Empfänger:"
Me.usrcntlSumAEmpfaenger.BackColor = System.Drawing.Color.White
Me.usrcntlSumAEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlSumAEmpfaenger.Enabled = False
Me.usrcntlSumAEmpfaenger.Location = New System.Drawing.Point(354, 943)
Me.usrcntlSumAEmpfaenger.Name = "usrcntlSumAEmpfaenger"
Me.usrcntlSumAEmpfaenger.Size = New System.Drawing.Size(345, 133)
Me.usrcntlSumAEmpfaenger.TabIndex = 92
'
'usrcntlSumAVersedner
'
Me.usrcntlSumAVersedner._Titel = "SumA Versender:"
Me.usrcntlSumAVersedner.BackColor = System.Drawing.Color.White
Me.usrcntlSumAVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlSumAVersedner.Enabled = False
Me.usrcntlSumAVersedner.Location = New System.Drawing.Point(7, 943)
Me.usrcntlSumAVersedner.Name = "usrcntlSumAVersedner"
Me.usrcntlSumAVersedner.Size = New System.Drawing.Size(345, 133)
Me.usrcntlSumAVersedner.TabIndex = 91
'
'usrcntlEmpfaenger
'
Me.usrcntlEmpfaenger._Titel = "Empfänger:"
Me.usrcntlEmpfaenger.BackColor = System.Drawing.Color.White
Me.usrcntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlEmpfaenger.Location = New System.Drawing.Point(354, 789)
Me.usrcntlEmpfaenger.Name = "usrcntlEmpfaenger"
Me.usrcntlEmpfaenger.Size = New System.Drawing.Size(345, 133)
Me.usrcntlEmpfaenger.TabIndex = 90
'
'usrcntlVersedner
'
Me.usrcntlVersedner._Titel = "Versender:"
Me.usrcntlVersedner.BackColor = System.Drawing.Color.White
Me.usrcntlVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlVersedner.Location = New System.Drawing.Point(7, 789)
Me.usrcntlVersedner.Name = "usrcntlVersedner"
Me.usrcntlVersedner.Size = New System.Drawing.Size(345, 133)
Me.usrcntlVersedner.TabIndex = 89
'
'Label7
'
Me.Label7.ForeColor = System.Drawing.Color.Red
@@ -216,6 +269,7 @@ Partial Class usrCntlATLAS_AES_Position
'
Me.sbExportAusLand._allowFreitext = False
Me.sbExportAusLand._AllowSetValue = False
Me.sbExportAusLand._allowSpaceAsSplitter = False
Me.sbExportAusLand._autoSizeGross = False
Me.sbExportAusLand._hideIfListEmpty = True
Me.sbExportAusLand._value = Nothing
@@ -258,14 +312,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'cbxVermerk
'
Me.cbxVermerk._DateTimeOnly = False
Me.cbxVermerk._numbersOnly = False
Me.cbxVermerk._numbersOnlyKommastellen = ""
Me.cbxVermerk._numbersOnlyTrennzeichen = True
Me.cbxVermerk._Prozent = False
Me.cbxVermerk._ShortDateNew = False
Me.cbxVermerk._ShortDateOnly = False
Me.cbxVermerk._TimeOnly = False
Me.cbxVermerk._TimeOnly_Seconds = False
Me.cbxVermerk._value = Nothing
Me.cbxVermerk._Waehrung = False
Me.cbxVermerk._WaehrungZeichen = True
Me.cbxVermerk.ForeColor = System.Drawing.Color.Black
Me.cbxVermerk.Location = New System.Drawing.Point(271, 659)
Me.cbxVermerk.MaxLength = 280
@@ -392,14 +450,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtVpReferenz
'
Me.txtVpReferenz._DateTimeOnly = False
Me.txtVpReferenz._numbersOnly = False
Me.txtVpReferenz._numbersOnlyKommastellen = ""
Me.txtVpReferenz._numbersOnlyTrennzeichen = True
Me.txtVpReferenz._Prozent = False
Me.txtVpReferenz._ShortDateNew = False
Me.txtVpReferenz._ShortDateOnly = False
Me.txtVpReferenz._TimeOnly = False
Me.txtVpReferenz._TimeOnly_Seconds = False
Me.txtVpReferenz._value = Nothing
Me.txtVpReferenz._Waehrung = False
Me.txtVpReferenz._WaehrungZeichen = True
Me.txtVpReferenz.ForeColor = System.Drawing.Color.Black
Me.txtVpReferenz.Location = New System.Drawing.Point(136, 592)
Me.txtVpReferenz.MaxLength = 35
@@ -424,7 +486,7 @@ Partial Class usrCntlATLAS_AES_Position
'
'Button5
'
Me.Button5.BackgroundImage = Global.SDL.My.Resources.plus
Me.Button5.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Location = New System.Drawing.Point(671, 592)
@@ -436,14 +498,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtVpZusatz
'
Me.txtVpZusatz._DateTimeOnly = False
Me.txtVpZusatz._numbersOnly = False
Me.txtVpZusatz._numbersOnlyKommastellen = ""
Me.txtVpZusatz._numbersOnlyTrennzeichen = True
Me.txtVpZusatz._Prozent = False
Me.txtVpZusatz._ShortDateNew = False
Me.txtVpZusatz._ShortDateOnly = False
Me.txtVpZusatz._TimeOnly = False
Me.txtVpZusatz._TimeOnly_Seconds = False
Me.txtVpZusatz._value = Nothing
Me.txtVpZusatz._Waehrung = False
Me.txtVpZusatz._WaehrungZeichen = True
Me.txtVpZusatz.ForeColor = System.Drawing.Color.Black
Me.txtVpZusatz.Location = New System.Drawing.Point(335, 592)
Me.txtVpZusatz.MaxLength = 26
@@ -557,14 +623,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtWarennummer
'
Me.txtWarennummer._numbersOnly = False
Me.txtWarennummer._DateTimeOnly = False
Me.txtWarennummer._numbersOnly = True
Me.txtWarennummer._numbersOnlyKommastellen = ""
Me.txtWarennummer._numbersOnlyTrennzeichen = False
Me.txtWarennummer._Prozent = False
Me.txtWarennummer._ShortDateNew = False
Me.txtWarennummer._ShortDateOnly = False
Me.txtWarennummer._TimeOnly = False
Me.txtWarennummer._TimeOnly_Seconds = False
Me.txtWarennummer._value = Nothing
Me.txtWarennummer._Waehrung = False
Me.txtWarennummer._WaehrungZeichen = True
Me.txtWarennummer.ForeColor = System.Drawing.Color.Black
Me.txtWarennummer.Location = New System.Drawing.Point(136, 130)
Me.txtWarennummer.MaxLength = 10
@@ -577,14 +647,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtWTNat
'
Me.txtWTNat._DateTimeOnly = False
Me.txtWTNat._numbersOnly = False
Me.txtWTNat._numbersOnlyKommastellen = ""
Me.txtWTNat._numbersOnlyTrennzeichen = True
Me.txtWTNat._Prozent = False
Me.txtWTNat._ShortDateNew = False
Me.txtWTNat._ShortDateOnly = False
Me.txtWTNat._TimeOnly = False
Me.txtWTNat._TimeOnly_Seconds = False
Me.txtWTNat._value = Nothing
Me.txtWTNat._Waehrung = False
Me.txtWTNat._WaehrungZeichen = True
Me.txtWTNat.Enabled = False
Me.txtWTNat.ForeColor = System.Drawing.Color.Black
Me.txtWTNat.Location = New System.Drawing.Point(335, 130)
@@ -597,14 +671,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtWTZ2
'
Me.txtWTZ2._DateTimeOnly = False
Me.txtWTZ2._numbersOnly = False
Me.txtWTZ2._numbersOnlyKommastellen = ""
Me.txtWTZ2._numbersOnlyTrennzeichen = True
Me.txtWTZ2._Prozent = False
Me.txtWTZ2._ShortDateNew = False
Me.txtWTZ2._ShortDateOnly = False
Me.txtWTZ2._TimeOnly = False
Me.txtWTZ2._TimeOnly_Seconds = False
Me.txtWTZ2._value = Nothing
Me.txtWTZ2._Waehrung = False
Me.txtWTZ2._WaehrungZeichen = True
Me.txtWTZ2.Enabled = False
Me.txtWTZ2.ForeColor = System.Drawing.Color.Black
Me.txtWTZ2.Location = New System.Drawing.Point(302, 130)
@@ -617,14 +695,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtWTZ1
'
Me.txtWTZ1._DateTimeOnly = False
Me.txtWTZ1._numbersOnly = False
Me.txtWTZ1._numbersOnlyKommastellen = ""
Me.txtWTZ1._numbersOnlyTrennzeichen = True
Me.txtWTZ1._Prozent = False
Me.txtWTZ1._ShortDateNew = False
Me.txtWTZ1._ShortDateOnly = False
Me.txtWTZ1._TimeOnly = False
Me.txtWTZ1._TimeOnly_Seconds = False
Me.txtWTZ1._value = Nothing
Me.txtWTZ1._Waehrung = False
Me.txtWTZ1._WaehrungZeichen = True
Me.txtWTZ1.Enabled = False
Me.txtWTZ1.ForeColor = System.Drawing.Color.Black
Me.txtWTZ1.Location = New System.Drawing.Point(269, 130)
@@ -637,14 +719,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtWTTaric
'
Me.txtWTTaric._DateTimeOnly = False
Me.txtWTTaric._numbersOnly = False
Me.txtWTTaric._numbersOnlyKommastellen = ""
Me.txtWTTaric._numbersOnlyTrennzeichen = True
Me.txtWTTaric._Prozent = False
Me.txtWTTaric._ShortDateNew = False
Me.txtWTTaric._ShortDateOnly = False
Me.txtWTTaric._TimeOnly = False
Me.txtWTTaric._TimeOnly_Seconds = False
Me.txtWTTaric._value = Nothing
Me.txtWTTaric._Waehrung = False
Me.txtWTTaric._WaehrungZeichen = True
Me.txtWTTaric.Enabled = False
Me.txtWTTaric.ForeColor = System.Drawing.Color.Black
Me.txtWTTaric.Location = New System.Drawing.Point(236, 130)
@@ -686,6 +772,7 @@ Partial Class usrCntlATLAS_AES_Position
'
Me.MySearchBox1._allowFreitext = False
Me.MySearchBox1._AllowSetValue = False
Me.MySearchBox1._allowSpaceAsSplitter = False
Me.MySearchBox1._autoSizeGross = False
Me.MySearchBox1._hideIfListEmpty = True
Me.MySearchBox1._value = Nothing
@@ -708,14 +795,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtEigenmasse
'
Me.txtEigenmasse._DateTimeOnly = False
Me.txtEigenmasse._numbersOnly = True
Me.txtEigenmasse._numbersOnlyKommastellen = "2"
Me.txtEigenmasse._numbersOnlyTrennzeichen = True
Me.txtEigenmasse._Prozent = False
Me.txtEigenmasse._ShortDateNew = False
Me.txtEigenmasse._ShortDateOnly = False
Me.txtEigenmasse._TimeOnly = False
Me.txtEigenmasse._TimeOnly_Seconds = False
Me.txtEigenmasse._value = "0"
Me.txtEigenmasse._Waehrung = False
Me.txtEigenmasse._WaehrungZeichen = True
Me.txtEigenmasse.ForeColor = System.Drawing.Color.Black
Me.txtEigenmasse.Location = New System.Drawing.Point(436, 157)
Me.txtEigenmasse.MaxLength = 18
@@ -729,14 +820,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtRohmasse
'
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = "2"
Me.txtRohmasse._numbersOnlyTrennzeichen = True
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._TimeOnly_Seconds = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
Me.txtRohmasse.ForeColor = System.Drawing.Color.Black
Me.txtRohmasse.Location = New System.Drawing.Point(552, 157)
Me.txtRohmasse.MaxLength = 18
@@ -770,6 +865,7 @@ Partial Class usrCntlATLAS_AES_Position
'
Me.sbUlArten._allowFreitext = False
Me.sbUlArten._AllowSetValue = False
Me.sbUlArten._allowSpaceAsSplitter = False
Me.sbUlArten._autoSizeGross = False
Me.sbUlArten._hideIfListEmpty = True
Me.sbUlArten._value = Nothing
@@ -794,6 +890,7 @@ Partial Class usrCntlATLAS_AES_Position
'
Me.sbPkTyp._allowFreitext = False
Me.sbPkTyp._AllowSetValue = False
Me.sbPkTyp._allowSpaceAsSplitter = False
Me.sbPkTyp._autoSizeGross = False
Me.sbPkTyp._hideIfListEmpty = True
Me.sbPkTyp._value = Nothing
@@ -852,7 +949,7 @@ Partial Class usrCntlATLAS_AES_Position
'
'Button1
'
Me.Button1.BackgroundImage = Global.SDL.My.Resources.plus
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(671, 459)
@@ -864,14 +961,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtUlZusatz
'
Me.txtUlZusatz._DateTimeOnly = False
Me.txtUlZusatz._numbersOnly = False
Me.txtUlZusatz._numbersOnlyKommastellen = ""
Me.txtUlZusatz._numbersOnlyTrennzeichen = True
Me.txtUlZusatz._Prozent = False
Me.txtUlZusatz._ShortDateNew = False
Me.txtUlZusatz._ShortDateOnly = False
Me.txtUlZusatz._TimeOnly = False
Me.txtUlZusatz._TimeOnly_Seconds = False
Me.txtUlZusatz._value = Nothing
Me.txtUlZusatz._Waehrung = False
Me.txtUlZusatz._WaehrungZeichen = True
Me.txtUlZusatz.ForeColor = System.Drawing.Color.Black
Me.txtUlZusatz.Location = New System.Drawing.Point(519, 459)
Me.txtUlZusatz.MaxLength = 26
@@ -884,14 +985,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtUlReferenz
'
Me.txtUlReferenz._DateTimeOnly = False
Me.txtUlReferenz._numbersOnly = False
Me.txtUlReferenz._numbersOnlyKommastellen = ""
Me.txtUlReferenz._numbersOnlyTrennzeichen = True
Me.txtUlReferenz._Prozent = False
Me.txtUlReferenz._ShortDateNew = False
Me.txtUlReferenz._ShortDateOnly = False
Me.txtUlReferenz._TimeOnly = False
Me.txtUlReferenz._TimeOnly_Seconds = False
Me.txtUlReferenz._value = Nothing
Me.txtUlReferenz._Waehrung = False
Me.txtUlReferenz._WaehrungZeichen = True
Me.txtUlReferenz.ForeColor = System.Drawing.Color.Black
Me.txtUlReferenz.Location = New System.Drawing.Point(370, 459)
Me.txtUlReferenz.MaxLength = 35
@@ -904,7 +1009,7 @@ Partial Class usrCntlATLAS_AES_Position
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.plus
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(671, 329)
@@ -916,14 +1021,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtPkMarke
'
Me.txtPkMarke._DateTimeOnly = False
Me.txtPkMarke._numbersOnly = False
Me.txtPkMarke._numbersOnlyKommastellen = ""
Me.txtPkMarke._numbersOnlyTrennzeichen = True
Me.txtPkMarke._Prozent = False
Me.txtPkMarke._ShortDateNew = False
Me.txtPkMarke._ShortDateOnly = False
Me.txtPkMarke._TimeOnly = False
Me.txtPkMarke._TimeOnly_Seconds = False
Me.txtPkMarke._value = "ohne"
Me.txtPkMarke._Waehrung = False
Me.txtPkMarke._WaehrungZeichen = True
Me.txtPkMarke.ForeColor = System.Drawing.Color.Black
Me.txtPkMarke.Location = New System.Drawing.Point(412, 329)
Me.txtPkMarke.MaxLength = 42
@@ -937,14 +1046,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtPkAnzahl
'
Me.txtPkAnzahl._DateTimeOnly = False
Me.txtPkAnzahl._numbersOnly = True
Me.txtPkAnzahl._numbersOnlyKommastellen = ""
Me.txtPkAnzahl._numbersOnlyTrennzeichen = True
Me.txtPkAnzahl._Prozent = False
Me.txtPkAnzahl._ShortDateNew = False
Me.txtPkAnzahl._ShortDateOnly = False
Me.txtPkAnzahl._TimeOnly = False
Me.txtPkAnzahl._value = Nothing
Me.txtPkAnzahl._TimeOnly_Seconds = False
Me.txtPkAnzahl._value = ""
Me.txtPkAnzahl._Waehrung = False
Me.txtPkAnzahl._WaehrungZeichen = True
Me.txtPkAnzahl.ForeColor = System.Drawing.Color.Black
Me.txtPkAnzahl.Location = New System.Drawing.Point(136, 329)
Me.txtPkAnzahl.MaxLength = 5
@@ -1057,8 +1170,8 @@ Partial Class usrCntlATLAS_AES_Position
'
'Anzahl
'
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle1
Me.Anzahl.HeaderText = "Anzahl"
Me.Anzahl.Name = "Anzahl"
Me.Anzahl.ReadOnly = True
@@ -1121,14 +1234,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtWarenwert
'
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = False
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._numbersOnlyTrennzeichen = True
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._TimeOnly_Seconds = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = True
Me.txtWarenwert._WaehrungZeichen = True
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black
Me.txtWarenwert.Location = New System.Drawing.Point(136, 157)
Me.txtWarenwert.MaxLineLength = -1
@@ -1149,14 +1266,18 @@ Partial Class usrCntlATLAS_AES_Position
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung._DateTimeOnly = False
Me.txtWarenbezeichnung._numbersOnly = False
Me.txtWarenbezeichnung._numbersOnlyKommastellen = ""
Me.txtWarenbezeichnung._numbersOnlyTrennzeichen = True
Me.txtWarenbezeichnung._Prozent = False
Me.txtWarenbezeichnung._ShortDateNew = False
Me.txtWarenbezeichnung._ShortDateOnly = False
Me.txtWarenbezeichnung._TimeOnly = False
Me.txtWarenbezeichnung._TimeOnly_Seconds = False
Me.txtWarenbezeichnung._value = Nothing
Me.txtWarenbezeichnung._Waehrung = False
Me.txtWarenbezeichnung._WaehrungZeichen = True
Me.txtWarenbezeichnung.ForeColor = System.Drawing.Color.Black
Me.txtWarenbezeichnung.Location = New System.Drawing.Point(136, 41)
Me.txtWarenbezeichnung.MaxLength = 280
@@ -1249,67 +1370,14 @@ Partial Class usrCntlATLAS_AES_Position
Me.lklBearbeitungAbbrechenPK.Text = "Bearbeitung abbrechen"
Me.lklBearbeitungAbbrechenPK.Visible = False
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(4, 773)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(285, 13)
Me.Label8.TabIndex = 93
Me.Label8.Text = "Nur auszufüllen, wenn mehrere Warenpositionen:"
Me.Label8.Visible = False
'
'usrcntlSumAEmpfaenger
'
Me.usrcntlSumAEmpfaenger._Titel = "SumA Empfänger:"
Me.usrcntlSumAEmpfaenger.BackColor = System.Drawing.Color.White
Me.usrcntlSumAEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlSumAEmpfaenger.Enabled = False
Me.usrcntlSumAEmpfaenger.Location = New System.Drawing.Point(354, 943)
Me.usrcntlSumAEmpfaenger.Name = "usrcntlSumAEmpfaenger"
Me.usrcntlSumAEmpfaenger.Size = New System.Drawing.Size(345, 133)
Me.usrcntlSumAEmpfaenger.TabIndex = 92
'
'usrcntlSumAVersedner
'
Me.usrcntlSumAVersedner._Titel = "SumA Versender:"
Me.usrcntlSumAVersedner.BackColor = System.Drawing.Color.White
Me.usrcntlSumAVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlSumAVersedner.Enabled = False
Me.usrcntlSumAVersedner.Location = New System.Drawing.Point(7, 943)
Me.usrcntlSumAVersedner.Name = "usrcntlSumAVersedner"
Me.usrcntlSumAVersedner.Size = New System.Drawing.Size(345, 133)
Me.usrcntlSumAVersedner.TabIndex = 91
'
'usrcntlEmpfaenger
'
Me.usrcntlEmpfaenger._Titel = "Empfänger:"
Me.usrcntlEmpfaenger.BackColor = System.Drawing.Color.White
Me.usrcntlEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlEmpfaenger.Location = New System.Drawing.Point(354, 789)
Me.usrcntlEmpfaenger.Name = "usrcntlEmpfaenger"
Me.usrcntlEmpfaenger.Size = New System.Drawing.Size(345, 133)
Me.usrcntlEmpfaenger.TabIndex = 90
'
'usrcntlVersedner
'
Me.usrcntlVersedner._Titel = "Versender:"
Me.usrcntlVersedner.BackColor = System.Drawing.Color.White
Me.usrcntlVersedner.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrcntlVersedner.Location = New System.Drawing.Point(7, 789)
Me.usrcntlVersedner.Name = "usrcntlVersedner"
Me.usrcntlVersedner.Size = New System.Drawing.Size(345, 133)
Me.usrcntlVersedner.TabIndex = 89
'
'usrCntlATLAS_NCTS_Position
'usrCntlATLAS_AES_Position
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlATLAS_NCTS_Position"
Me.Name = "usrCntlATLAS_AES_Position"
Me.Size = New System.Drawing.Size(730, 1100)
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()

30
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/AES/usrCntlATLAS_AES_Position.resx
View File

@@ -190,34 +190,4 @@
<metadata name="Marke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="VpReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="VpZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="UlCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewComboBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="UlReferenz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="UlZusatz.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="PkCode.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Anzahl.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Typ.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="Marke.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

80
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA_Position.Designer.vb generated
View File

@@ -25,6 +25,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_EZA_Position))
Me.pnl = New System.Windows.Forms.Panel()
Me.txtArtikelpreisWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbAHStatMasseinheit = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtAHStatMenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -84,7 +85,6 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label2 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.txtArtikelpreisWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.pnl.SuspendLayout()
CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -154,6 +154,31 @@ Partial Class usrCntlATLAS_EZA_Position
Me.pnl.Size = New System.Drawing.Size(730, 573)
Me.pnl.TabIndex = 0
'
'txtArtikelpreisWaehrung
'
Me.txtArtikelpreisWaehrung._allowFreitext = False
Me.txtArtikelpreisWaehrung._AllowSetValue = False
Me.txtArtikelpreisWaehrung._allowSpaceAsSplitter = False
Me.txtArtikelpreisWaehrung._autoSizeGross = False
Me.txtArtikelpreisWaehrung._hideIfListEmpty = True
Me.txtArtikelpreisWaehrung._value = ""
Me.txtArtikelpreisWaehrung.conn_art = "FMZOLL"
Me.txtArtikelpreisWaehrung.dgvpos = "LEFT"
Me.txtArtikelpreisWaehrung.DISPLAY_PARAM = Nothing
Me.txtArtikelpreisWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtArtikelpreisWaehrung.key_visible = False
Me.txtArtikelpreisWaehrung.KEYPARAM = Nothing
Me.txtArtikelpreisWaehrung.Location = New System.Drawing.Point(281, 214)
Me.txtArtikelpreisWaehrung.Name = "txtArtikelpreisWaehrung"
Me.txtArtikelpreisWaehrung.searchActive = True
Me.txtArtikelpreisWaehrung.Size = New System.Drawing.Size(67, 20)
Me.txtArtikelpreisWaehrung.SQL_ORDER_BY = Nothing
Me.txtArtikelpreisWaehrung.SQL_SELECT = Nothing
Me.txtArtikelpreisWaehrung.SQL_WHERE = Nothing
Me.txtArtikelpreisWaehrung.SQL_WhereParamList = Nothing
Me.txtArtikelpreisWaehrung.TabIndex = 60
Me.txtArtikelpreisWaehrung.usrcntl = Nothing
'
'sbAHStatMasseinheit
'
Me.sbAHStatMasseinheit._allowFreitext = False
@@ -193,10 +218,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtAHStatMenge._DateTimeOnly = False
Me.txtAHStatMenge._numbersOnly = True
Me.txtAHStatMenge._numbersOnlyKommastellen = "0"
Me.txtAHStatMenge._numbersOnlyTrennzeichen = True
Me.txtAHStatMenge._Prozent = False
Me.txtAHStatMenge._ShortDateNew = False
Me.txtAHStatMenge._ShortDateOnly = False
Me.txtAHStatMenge._TimeOnly = False
Me.txtAHStatMenge._TimeOnly_Seconds = False
Me.txtAHStatMenge._value = ""
Me.txtAHStatMenge._Waehrung = False
Me.txtAHStatMenge._WaehrungZeichen = False
@@ -429,10 +456,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPositionszusatz._DateTimeOnly = False
Me.txtPositionszusatz._numbersOnly = False
Me.txtPositionszusatz._numbersOnlyKommastellen = ""
Me.txtPositionszusatz._numbersOnlyTrennzeichen = True
Me.txtPositionszusatz._Prozent = False
Me.txtPositionszusatz._ShortDateNew = False
Me.txtPositionszusatz._ShortDateOnly = False
Me.txtPositionszusatz._TimeOnly = False
Me.txtPositionszusatz._TimeOnly_Seconds = False
Me.txtPositionszusatz._value = Nothing
Me.txtPositionszusatz._Waehrung = False
Me.txtPositionszusatz._WaehrungZeichen = True
@@ -472,12 +501,14 @@ Partial Class usrCntlATLAS_EZA_Position
'txtWarennummer
'
Me.txtWarennummer._DateTimeOnly = False
Me.txtWarennummer._numbersOnly = False
Me.txtWarennummer._numbersOnly = True
Me.txtWarennummer._numbersOnlyKommastellen = ""
Me.txtWarennummer._numbersOnlyTrennzeichen = False
Me.txtWarennummer._Prozent = False
Me.txtWarennummer._ShortDateNew = False
Me.txtWarennummer._ShortDateOnly = False
Me.txtWarennummer._TimeOnly = False
Me.txtWarennummer._TimeOnly_Seconds = False
Me.txtWarennummer._value = Nothing
Me.txtWarennummer._Waehrung = False
Me.txtWarennummer._WaehrungZeichen = True
@@ -496,10 +527,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWTZ2._DateTimeOnly = False
Me.txtWTZ2._numbersOnly = False
Me.txtWTZ2._numbersOnlyKommastellen = ""
Me.txtWTZ2._numbersOnlyTrennzeichen = True
Me.txtWTZ2._Prozent = False
Me.txtWTZ2._ShortDateNew = False
Me.txtWTZ2._ShortDateOnly = False
Me.txtWTZ2._TimeOnly = False
Me.txtWTZ2._TimeOnly_Seconds = False
Me.txtWTZ2._value = Nothing
Me.txtWTZ2._Waehrung = False
Me.txtWTZ2._WaehrungZeichen = True
@@ -518,10 +551,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWTZ1._DateTimeOnly = False
Me.txtWTZ1._numbersOnly = False
Me.txtWTZ1._numbersOnlyKommastellen = ""
Me.txtWTZ1._numbersOnlyTrennzeichen = True
Me.txtWTZ1._Prozent = False
Me.txtWTZ1._ShortDateNew = False
Me.txtWTZ1._ShortDateOnly = False
Me.txtWTZ1._TimeOnly = False
Me.txtWTZ1._TimeOnly_Seconds = False
Me.txtWTZ1._value = Nothing
Me.txtWTZ1._Waehrung = False
Me.txtWTZ1._WaehrungZeichen = True
@@ -574,10 +609,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtEigenmasse._DateTimeOnly = False
Me.txtEigenmasse._numbersOnly = True
Me.txtEigenmasse._numbersOnlyKommastellen = "2"
Me.txtEigenmasse._numbersOnlyTrennzeichen = True
Me.txtEigenmasse._Prozent = False
Me.txtEigenmasse._ShortDateNew = False
Me.txtEigenmasse._ShortDateOnly = False
Me.txtEigenmasse._TimeOnly = False
Me.txtEigenmasse._TimeOnly_Seconds = False
Me.txtEigenmasse._value = "0"
Me.txtEigenmasse._Waehrung = False
Me.txtEigenmasse._WaehrungZeichen = True
@@ -597,10 +634,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = "2"
Me.txtRohmasse._numbersOnlyTrennzeichen = True
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._TimeOnly_Seconds = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
@@ -724,10 +763,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtUlAusstellDat._DateTimeOnly = False
Me.txtUlAusstellDat._numbersOnly = False
Me.txtUlAusstellDat._numbersOnlyKommastellen = ""
Me.txtUlAusstellDat._numbersOnlyTrennzeichen = True
Me.txtUlAusstellDat._Prozent = False
Me.txtUlAusstellDat._ShortDateNew = True
Me.txtUlAusstellDat._ShortDateOnly = False
Me.txtUlAusstellDat._TimeOnly = False
Me.txtUlAusstellDat._TimeOnly_Seconds = False
Me.txtUlAusstellDat._value = ""
Me.txtUlAusstellDat._Waehrung = False
Me.txtUlAusstellDat._WaehrungZeichen = True
@@ -746,10 +787,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtUlNummer._DateTimeOnly = False
Me.txtUlNummer._numbersOnly = False
Me.txtUlNummer._numbersOnlyKommastellen = ""
Me.txtUlNummer._numbersOnlyTrennzeichen = True
Me.txtUlNummer._Prozent = False
Me.txtUlNummer._ShortDateNew = False
Me.txtUlNummer._ShortDateOnly = False
Me.txtUlNummer._TimeOnly = False
Me.txtUlNummer._TimeOnly_Seconds = False
Me.txtUlNummer._value = Nothing
Me.txtUlNummer._Waehrung = False
Me.txtUlNummer._WaehrungZeichen = True
@@ -768,10 +811,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPkMarke._DateTimeOnly = False
Me.txtPkMarke._numbersOnly = False
Me.txtPkMarke._numbersOnlyKommastellen = ""
Me.txtPkMarke._numbersOnlyTrennzeichen = True
Me.txtPkMarke._Prozent = False
Me.txtPkMarke._ShortDateNew = False
Me.txtPkMarke._ShortDateOnly = False
Me.txtPkMarke._TimeOnly = False
Me.txtPkMarke._TimeOnly_Seconds = False
Me.txtPkMarke._value = ""
Me.txtPkMarke._Waehrung = False
Me.txtPkMarke._WaehrungZeichen = True
@@ -790,10 +835,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtPkAnzahl._DateTimeOnly = False
Me.txtPkAnzahl._numbersOnly = True
Me.txtPkAnzahl._numbersOnlyKommastellen = ""
Me.txtPkAnzahl._numbersOnlyTrennzeichen = True
Me.txtPkAnzahl._Prozent = False
Me.txtPkAnzahl._ShortDateNew = False
Me.txtPkAnzahl._ShortDateOnly = False
Me.txtPkAnzahl._TimeOnly = False
Me.txtPkAnzahl._TimeOnly_Seconds = False
Me.txtPkAnzahl._value = ""
Me.txtPkAnzahl._Waehrung = False
Me.txtPkAnzahl._WaehrungZeichen = True
@@ -900,10 +947,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = False
Me.txtWarenwert._numbersOnlyKommastellen = ""
Me.txtWarenwert._numbersOnlyTrennzeichen = True
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._TimeOnly_Seconds = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = True
Me.txtWarenwert._WaehrungZeichen = True
@@ -930,10 +979,12 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWarenbezeichnung._DateTimeOnly = False
Me.txtWarenbezeichnung._numbersOnly = False
Me.txtWarenbezeichnung._numbersOnlyKommastellen = ""
Me.txtWarenbezeichnung._numbersOnlyTrennzeichen = True
Me.txtWarenbezeichnung._Prozent = False
Me.txtWarenbezeichnung._ShortDateNew = False
Me.txtWarenbezeichnung._ShortDateOnly = False
Me.txtWarenbezeichnung._TimeOnly = False
Me.txtWarenbezeichnung._TimeOnly_Seconds = False
Me.txtWarenbezeichnung._value = Nothing
Me.txtWarenbezeichnung._Waehrung = False
Me.txtWarenbezeichnung._WaehrungZeichen = True
@@ -986,31 +1037,6 @@ Partial Class usrCntlATLAS_EZA_Position
Me.Label11.Text = "Ursprungsland:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtArtikelpreisWaehrung
'
Me.txtArtikelpreisWaehrung._allowFreitext = False
Me.txtArtikelpreisWaehrung._AllowSetValue = False
Me.txtArtikelpreisWaehrung._allowSpaceAsSplitter = False
Me.txtArtikelpreisWaehrung._autoSizeGross = False
Me.txtArtikelpreisWaehrung._hideIfListEmpty = True
Me.txtArtikelpreisWaehrung._value = ""
Me.txtArtikelpreisWaehrung.conn_art = "FMZOLL"
Me.txtArtikelpreisWaehrung.dgvpos = "LEFT"
Me.txtArtikelpreisWaehrung.DISPLAY_PARAM = Nothing
Me.txtArtikelpreisWaehrung.INVISIBLE_COLUMNS = Nothing
Me.txtArtikelpreisWaehrung.key_visible = False
Me.txtArtikelpreisWaehrung.KEYPARAM = Nothing
Me.txtArtikelpreisWaehrung.Location = New System.Drawing.Point(281, 214)
Me.txtArtikelpreisWaehrung.Name = "txtArtikelpreisWaehrung"
Me.txtArtikelpreisWaehrung.searchActive = True
Me.txtArtikelpreisWaehrung.Size = New System.Drawing.Size(67, 20)
Me.txtArtikelpreisWaehrung.SQL_ORDER_BY = Nothing
Me.txtArtikelpreisWaehrung.SQL_SELECT = Nothing
Me.txtArtikelpreisWaehrung.SQL_WHERE = Nothing
Me.txtArtikelpreisWaehrung.SQL_WhereParamList = Nothing
Me.txtArtikelpreisWaehrung.TabIndex = 60
Me.txtArtikelpreisWaehrung.usrcntl = Nothing
'
'usrCntlATLAS_EZA_Position
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

190
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/frmRoutenauswahl.Designer.vb generated
View File

@@ -24,26 +24,31 @@ Partial Class frmRoutenauswahl
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRoutenauswahl))
Me.pnl = New System.Windows.Forms.Panel()
Me.lblBitteWahlenSieEineRoute = New System.Windows.Forms.Label()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnRoute1 = New System.Windows.Forms.Button()
Me.btnRoute5 = New System.Windows.Forms.Button()
Me.btnRoute2 = New System.Windows.Forms.Button()
Me.btnRoute3 = New System.Windows.Forms.Button()
Me.btnRoute4 = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.pic = New System.Windows.Forms.PictureBox()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.lblBitteWahlenSieEineRoute = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnBestimmungsland = New System.Windows.Forms.Button()
Me.pic = New System.Windows.Forms.PictureBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnTR = New System.Windows.Forms.Button()
Me.btnIR = New System.Windows.Forms.Button()
Me.btnTR = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
Me.SuspendLayout()
'
'pnl
@@ -57,15 +62,6 @@ Partial Class frmRoutenauswahl
Me.pnl.Size = New System.Drawing.Size(312, 546)
Me.pnl.TabIndex = 1
'
'lblBitteWahlenSieEineRoute
'
Me.lblBitteWahlenSieEineRoute.AutoSize = True
Me.lblBitteWahlenSieEineRoute.Location = New System.Drawing.Point(3, 15)
Me.lblBitteWahlenSieEineRoute.Name = "lblBitteWahlenSieEineRoute"
Me.lblBitteWahlenSieEineRoute.Size = New System.Drawing.Size(141, 13)
Me.lblBitteWahlenSieEineRoute.TabIndex = 1
Me.lblBitteWahlenSieEineRoute.Text = "Bitte wählen Sie eine Route:"
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -89,7 +85,7 @@ Partial Class frmRoutenauswahl
Me.btnRoute1.Name = "btnRoute1"
Me.btnRoute1.Size = New System.Drawing.Size(297, 72)
Me.btnRoute1.TabIndex = 0
Me.btnRoute1.Text = "Deutschland -> Österreich -> Slowenien " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Kroatien -> Serbien -> Bulgarien" & _
Me.btnRoute1.Text = "Deutschland -> Österreich -> Slowenien " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Kroatien -> Serbien -> Bulgarien" &
" -> Türkei"
Me.btnRoute1.UseVisualStyleBackColor = True
'
@@ -141,9 +137,28 @@ Partial Class frmRoutenauswahl
Me.btnRoute4.Text = "Deutschland -> Österreich -> " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Italien -> Türkei"
Me.btnRoute4.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.Controls.Add(Me.lblBitteWahlenSieEineRoute)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(312, 43)
Me.Panel3.TabIndex = 4
'
'lblBitteWahlenSieEineRoute
'
Me.lblBitteWahlenSieEineRoute.AutoSize = True
Me.lblBitteWahlenSieEineRoute.Location = New System.Drawing.Point(3, 15)
Me.lblBitteWahlenSieEineRoute.Name = "lblBitteWahlenSieEineRoute"
Me.lblBitteWahlenSieEineRoute.Size = New System.Drawing.Size(141, 13)
Me.lblBitteWahlenSieEineRoute.TabIndex = 1
Me.lblBitteWahlenSieEineRoute.Text = "Bitte wählen Sie eine Route:"
'
'Panel1
'
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.btnBestimmungsland)
Me.Panel1.Controls.Add(Me.pic)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -152,21 +167,24 @@ Partial Class frmRoutenauswahl
Me.Panel1.Size = New System.Drawing.Size(754, 546)
Me.Panel1.TabIndex = 2
'
'Panel2
'btnBestimmungsland
'
Me.Panel2.BackColor = System.Drawing.Color.White
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Controls.Add(Me.btnIR)
Me.Panel2.Controls.Add(Me.btnTR)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(752, 42)
Me.Panel2.TabIndex = 3
Me.btnBestimmungsland.BackColor = System.Drawing.Color.Orange
Me.btnBestimmungsland.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnBestimmungsland.Enabled = False
Me.btnBestimmungsland.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBestimmungsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnBestimmungsland.Location = New System.Drawing.Point(640, 446)
Me.btnBestimmungsland.Name = "btnBestimmungsland"
Me.btnBestimmungsland.Size = New System.Drawing.Size(112, 61)
Me.btnBestimmungsland.TabIndex = 9
Me.btnBestimmungsland.Text = "Irak"
Me.btnBestimmungsland.UseVisualStyleBackColor = False
Me.btnBestimmungsland.Visible = False
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Route1
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Route1
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pic.Dock = System.Windows.Forms.DockStyle.Fill
@@ -176,14 +194,73 @@ Partial Class frmRoutenauswahl
Me.pic.TabIndex = 4
Me.pic.TabStop = False
'
'Panel3
'Panel2
'
Me.Panel3.Controls.Add(Me.lblBitteWahlenSieEineRoute)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(312, 43)
Me.Panel3.TabIndex = 4
Me.Panel2.BackColor = System.Drawing.Color.White
Me.Panel2.Controls.Add(Me.Button4)
Me.Panel2.Controls.Add(Me.Button3)
Me.Panel2.Controls.Add(Me.Button2)
Me.Panel2.Controls.Add(Me.Button1)
Me.Panel2.Controls.Add(Me.Label1)
Me.Panel2.Controls.Add(Me.btnIR)
Me.Panel2.Controls.Add(Me.btnTR)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(752, 42)
Me.Panel2.TabIndex = 3
'
'Button4
'
Me.Button4.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button4.Location = New System.Drawing.Point(533, 3)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(156, 33)
Me.Button4.TabIndex = 9
Me.Button4.Tag = "AZ"
Me.Button4.Text = "Armenien/Aserbaidschan"
Me.Button4.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button3.Location = New System.Drawing.Point(447, 3)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(80, 33)
Me.Button3.TabIndex = 8
Me.Button3.Tag = "GE"
Me.Button3.Text = "Georgien"
Me.Button3.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button2.Location = New System.Drawing.Point(361, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 33)
Me.Button2.TabIndex = 7
Me.Button2.Tag = "AM"
Me.Button2.Text = "Armenien"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button1.Location = New System.Drawing.Point(275, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 33)
Me.Button1.TabIndex = 6
Me.Button1.Tag = "IQ"
Me.Button1.Text = "Irak"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
@@ -194,6 +271,19 @@ Partial Class frmRoutenauswahl
Me.Label1.TabIndex = 2
Me.Label1.Text = "Bestimmungsland:"
'
'btnIR
'
Me.btnIR.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnIR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnIR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnIR.Location = New System.Drawing.Point(189, 3)
Me.btnIR.Name = "btnIR"
Me.btnIR.Size = New System.Drawing.Size(80, 33)
Me.btnIR.TabIndex = 5
Me.btnIR.Tag = "IR"
Me.btnIR.Text = "Iran"
Me.btnIR.UseVisualStyleBackColor = True
'
'btnTR
'
Me.btnTR.BackColor = System.Drawing.Color.DarkOrange
@@ -202,23 +292,12 @@ Partial Class frmRoutenauswahl
Me.btnTR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnTR.Location = New System.Drawing.Point(103, 3)
Me.btnTR.Name = "btnTR"
Me.btnTR.Size = New System.Drawing.Size(106, 33)
Me.btnTR.Size = New System.Drawing.Size(80, 33)
Me.btnTR.TabIndex = 5
Me.btnTR.Tag = "TR"
Me.btnTR.Text = "Türkei"
Me.btnTR.UseVisualStyleBackColor = False
'
'btnIR
'
Me.btnIR.Cursor = System.Windows.Forms.Cursors.Hand
Me.btnIR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnIR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnIR.Location = New System.Drawing.Point(215, 3)
Me.btnIR.Name = "btnIR"
Me.btnIR.Size = New System.Drawing.Size(106, 33)
Me.btnIR.TabIndex = 5
Me.btnIR.Text = "Iran"
Me.btnIR.UseVisualStyleBackColor = True
'
'frmRoutenauswahl
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -232,12 +311,12 @@ Partial Class frmRoutenauswahl
Me.Text = "Routenauswahl"
Me.pnl.ResumeLayout(False)
Me.FlowLayoutPanel.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.ResumeLayout(False)
End Sub
@@ -256,4 +335,9 @@ Partial Class frmRoutenauswahl
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents btnIR As System.Windows.Forms.Button
Friend WithEvents btnTR As System.Windows.Forms.Button
Friend WithEvents Button3 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button1 As Button
Friend WithEvents btnBestimmungsland As Button
Friend WithEvents Button4 As Button
End Class

103
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/frmRoutenauswahl.vb
View File

@@ -10,18 +10,32 @@
initRouteBG()
End Sub
Sub initRouteBG()
If btnTMP Is btnRoute1 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "TR", My.Resources.Route1, My.Resources.Route1_IR)
ElseIf btnTMP Is btnRoute2 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "TR", My.Resources.Route2, My.Resources.Route2_IR)
ElseIf btnTMP Is btnRoute3 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "TR", My.Resources.Route3, My.Resources.Route3_IR)
ElseIf btnTMP Is btnRoute4 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "TR", My.Resources.Route4, My.Resources.Route4_IR)
ElseIf btnTMP Is btnRoute5 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "TR", My.Resources.Route5, My.Resources.Route5_IR)
Sub initRouteBG(Optional BstText = "")
If BstText <> "" Then
btnBestimmungsland.Text = BstText
For Each btn In Panel2.Controls
If btn.GetType Is GetType(Button) Then
btn.BackColor = Color.White
End If
Next
End If
If btnTMP Is btnRoute1 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "IR", My.Resources.Route1_IR, My.Resources.Route1)
ElseIf btnTMP Is btnRoute2 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "IR", My.Resources.Route2_IR, My.Resources.Route2)
ElseIf btnTMP Is btnRoute3 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "IR", My.Resources.Route3_IR, My.Resources.Route3)
ElseIf btnTMP Is btnRoute4 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "IR", My.Resources.Route4_IR, My.Resources.Route4)
ElseIf btnTMP Is btnRoute5 Then
pic.BackgroundImage = If(BESTIMMUNGSLAND = "IR", My.Resources.Route5_IR, My.Resources.Route5)
End If
Select Case BESTIMMUNGSLAND
Case "IQ", "AZ", "GE", "AM" : btnBestimmungsland.Visible = True
Case Else : btnBestimmungsland.Visible = False
End Select
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnRoute1.Click, btnRoute2.Click, btnRoute3.Click, btnRoute4.Click, btnRoute5.Click
@@ -49,42 +63,77 @@
End If
End If
Dim ROUTEList As New List(Of String)
If sender Is btnRoute1 Then
ROUTE = {"DE", "AT", "SI", "HR", "RS", "BG", "TR", If(BESTIMMUNGSLAND = "IR", "IR", "")}
ROUTEList.Add("DE")
ROUTEList.Add("AT")
ROUTEList.Add("SI")
ROUTEList.Add("HR")
ROUTEList.Add("RS")
ROUTEList.Add("BG")
ROUTEList.Add("TR")
ZOLLAEMTER = {"RS021091", "BG005804", DZATR, If(BESTIMMUNGSLAND = "IR", Dncts_IRAN, "")}
ElseIf sender Is btnRoute2 Then
ROUTE = {"DE", "AT", "HU", "RS", "BG", "TR", If(BESTIMMUNGSLAND = "IR", "IR", "")}
ROUTEList.Add("DE")
ROUTEList.Add("AT")
ROUTEList.Add("HU")
ROUTEList.Add("RS")
ROUTEList.Add("BG")
ROUTEList.Add("TR")
ZOLLAEMTER = {DZATR, If(BESTIMMUNGSLAND = "IR", Dncts_IRAN, "")}
ElseIf sender Is btnRoute3 Then
ROUTE = {"DE", "AT", "IT", "TR", If(BESTIMMUNGSLAND = "IR", "IR", "")}
ROUTEList.Add("DE")
ROUTEList.Add("AT")
ROUTEList.Add("IT")
ROUTEList.Add("TR")
ZOLLAEMTER = {"TR351000", If(BESTIMMUNGSLAND = "IR", Dncts_IRAN, "")}
ElseIf sender Is btnRoute4 Then
ROUTE = {"DE", "AT", "IT", "TR", If(BESTIMMUNGSLAND = "IR", "IR", "")}
ROUTEList.Add("DE")
ROUTEList.Add("AT")
ROUTEList.Add("IT")
ROUTEList.Add("TR")
ZOLLAEMTER = {"TR343400", If(BESTIMMUNGSLAND = "IR", Dncts_IRAN, "")}
ElseIf sender Is btnRoute5 Then
ROUTE = {"DE", "AT", "HU", "RO", "BG", "TR", If(BESTIMMUNGSLAND = "IR", "IR", "")}
ROUTEList.Add("DE")
ROUTEList.Add("AT")
ROUTEList.Add("HU")
ROUTEList.Add("RO")
ROUTEList.Add("BG")
ROUTEList.Add("TR")
ZOLLAEMTER = {DZATR, If(BESTIMMUNGSLAND = "IR", Dncts_IRAN, "")}
End If
Select Case BESTIMMUNGSLAND
Case "IR" : ROUTEList.Add("IR")
Case "IQ" : ROUTEList.Add("IQ")
Case "AZ"
ROUTEList.Add("AM")
ROUTEList.Add("AZ")
Case "GE" : ROUTEList.Add("GE")
Case "AM" : ROUTEList.Add("AM")
End Select
ROUTE = ROUTEList.ToArray
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnTR.Click
BESTIMMUNGSLAND = "TR"
btnIR.BackColor = Color.White
btnTR.BackColor = Color.DarkOrange
initRouteBG()
End Sub
Private Sub btnIR_Click(sender As Object, e As EventArgs) Handles btnIR.Click
BESTIMMUNGSLAND = "IR"
btnIR.BackColor = Color.DarkOrange
btnTR.BackColor = Color.White
initRouteBG()
Private Sub btnIR_Click(sender As Object, e As EventArgs) Handles btnIR.Click, btnTR.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click
BESTIMMUNGSLAND = sender.tag
initRouteBG(sender.text)
sender.BackColor = Color.DarkOrange
End Sub
Private Sub frmRoutenauswahl_Load(sender As Object, e As EventArgs) Handles Me.Load
btnTMP = btnRoute1
End Sub
End Class

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -563,7 +563,6 @@ Public Class usrCntlATLAS_NCTS
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
ncts_OUT.ncts_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
Dim saveFile = ""

248
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Position.Designer.vb generated
View File

@@ -26,6 +26,13 @@ Partial Class usrCntlATLAS_NCTS_Position
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlATLAS_NCTS_Position))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnl = New System.Windows.Forms.Panel()
Me.Label13 = New System.Windows.Forms.Label()
Me.cboArtAnmeldung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.sbVersendungsLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.sbBestimmungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtKdRefNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.txtSiBetragProzent = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -113,13 +120,6 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.Label5 = New System.Windows.Forms.Label()
Me.Label29 = New System.Windows.Forms.Label()
Me.lklBearbeitungAbbrechenPK = New System.Windows.Forms.LinkLabel()
Me.sbBestimmungsland = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.sbVersendungsLand = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cboArtAnmeldung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.dgvVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvUnterlage, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -220,15 +220,113 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.pnl.Size = New System.Drawing.Size(730, 1100)
Me.pnl.TabIndex = 0
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(370, 118)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(64, 13)
Me.Label13.TabIndex = 83
Me.Label13.Text = "Warenfluss:"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboArtAnmeldung
'
Me.cboArtAnmeldung._allowedValuesFreiText = Nothing
Me.cboArtAnmeldung._allowFreiText = False
Me.cboArtAnmeldung._value = ""
Me.cboArtAnmeldung.DropDownWidth = 300
Me.cboArtAnmeldung.FormattingEnabled = True
Me.cboArtAnmeldung.Location = New System.Drawing.Point(136, 203)
Me.cboArtAnmeldung.Name = "cboArtAnmeldung"
Me.cboArtAnmeldung.Size = New System.Drawing.Size(233, 21)
Me.cboArtAnmeldung.TabIndex = 35
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(19, 206)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(111, 13)
Me.Label10.TabIndex = 34
Me.Label10.Text = "Art der Anmeldung:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'sbVersendungsLand
'
Me.sbVersendungsLand._allowFreitext = False
Me.sbVersendungsLand._AllowSetValue = False
Me.sbVersendungsLand._allowSpaceAsSplitter = False
Me.sbVersendungsLand._autoSizeGross = False
Me.sbVersendungsLand._hideIfListEmpty = True
Me.sbVersendungsLand._value = ""
Me.sbVersendungsLand.conn_art = "FMZOLL"
Me.sbVersendungsLand.dgvpos = "LEFT"
Me.sbVersendungsLand.DISPLAY_PARAM = Nothing
Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
Me.sbVersendungsLand.key_visible = False
Me.sbVersendungsLand.KEYPARAM = Nothing
Me.sbVersendungsLand.Location = New System.Drawing.Point(436, 115)
Me.sbVersendungsLand.Name = "sbVersendungsLand"
Me.sbVersendungsLand.searchActive = True
Me.sbVersendungsLand.Size = New System.Drawing.Size(117, 20)
Me.sbVersendungsLand.SQL_ORDER_BY = Nothing
Me.sbVersendungsLand.SQL_SELECT = Nothing
Me.sbVersendungsLand.SQL_WHERE = Nothing
Me.sbVersendungsLand.SQL_WhereParamList = Nothing
Me.sbVersendungsLand.TabIndex = 20
Me.sbVersendungsLand.usrcntl = Nothing
'
'sbBestimmungsland
'
Me.sbBestimmungsland._allowFreitext = False
Me.sbBestimmungsland._AllowSetValue = False
Me.sbBestimmungsland._allowSpaceAsSplitter = False
Me.sbBestimmungsland._autoSizeGross = False
Me.sbBestimmungsland._hideIfListEmpty = True
Me.sbBestimmungsland._value = ""
Me.sbBestimmungsland.conn_art = "FMZOLL"
Me.sbBestimmungsland.dgvpos = "RIGHT"
Me.sbBestimmungsland.DISPLAY_PARAM = Nothing
Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsland.key_visible = False
Me.sbBestimmungsland.KEYPARAM = Nothing
Me.sbBestimmungsland.Location = New System.Drawing.Point(552, 115)
Me.sbBestimmungsland.Name = "sbBestimmungsland"
Me.sbBestimmungsland.searchActive = True
Me.sbBestimmungsland.Size = New System.Drawing.Size(117, 20)
Me.sbBestimmungsland.SQL_ORDER_BY = Nothing
Me.sbBestimmungsland.SQL_SELECT = Nothing
Me.sbBestimmungsland.SQL_WHERE = Nothing
Me.sbBestimmungsland.SQL_WhereParamList = Nothing
Me.sbBestimmungsland.TabIndex = 21
Me.sbBestimmungsland.usrcntl = Nothing
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(551, 99)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(116, 13)
Me.Label11.TabIndex = 13
Me.Label11.Text = "Bestimmungs-Land:"
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(433, 99)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(135, 13)
Me.Label12.TabIndex = 12
Me.Label12.Text = "Versendungs-Land:"
'
'txtKdRefNr
'
Me.txtKdRefNr._DateTimeOnly = False
Me.txtKdRefNr._numbersOnly = False
Me.txtKdRefNr._numbersOnlyKommastellen = ""
Me.txtKdRefNr._numbersOnlyTrennzeichen = True
Me.txtKdRefNr._Prozent = False
Me.txtKdRefNr._ShortDateNew = False
Me.txtKdRefNr._ShortDateOnly = False
Me.txtKdRefNr._TimeOnly = False
Me.txtKdRefNr._TimeOnly_Seconds = False
Me.txtKdRefNr._value = "-"
Me.txtKdRefNr._Waehrung = False
Me.txtKdRefNr._WaehrungZeichen = True
@@ -274,10 +372,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtSiBetragProzent._DateTimeOnly = False
Me.txtSiBetragProzent._numbersOnly = False
Me.txtSiBetragProzent._numbersOnlyKommastellen = ""
Me.txtSiBetragProzent._numbersOnlyTrennzeichen = True
Me.txtSiBetragProzent._Prozent = True
Me.txtSiBetragProzent._ShortDateNew = False
Me.txtSiBetragProzent._ShortDateOnly = False
Me.txtSiBetragProzent._TimeOnly = False
Me.txtSiBetragProzent._TimeOnly_Seconds = False
Me.txtSiBetragProzent._value = "0,25"
Me.txtSiBetragProzent._Waehrung = False
Me.txtSiBetragProzent._WaehrungZeichen = True
@@ -405,10 +505,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.cbxVermerk._DateTimeOnly = False
Me.cbxVermerk._numbersOnly = False
Me.cbxVermerk._numbersOnlyKommastellen = ""
Me.cbxVermerk._numbersOnlyTrennzeichen = True
Me.cbxVermerk._Prozent = False
Me.cbxVermerk._ShortDateNew = False
Me.cbxVermerk._ShortDateOnly = False
Me.cbxVermerk._TimeOnly = False
Me.cbxVermerk._TimeOnly_Seconds = False
Me.cbxVermerk._value = Nothing
Me.cbxVermerk._Waehrung = False
Me.cbxVermerk._WaehrungZeichen = True
@@ -526,10 +628,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtVpReferenz._DateTimeOnly = False
Me.txtVpReferenz._numbersOnly = False
Me.txtVpReferenz._numbersOnlyKommastellen = ""
Me.txtVpReferenz._numbersOnlyTrennzeichen = True
Me.txtVpReferenz._Prozent = False
Me.txtVpReferenz._ShortDateNew = False
Me.txtVpReferenz._ShortDateOnly = False
Me.txtVpReferenz._TimeOnly = False
Me.txtVpReferenz._TimeOnly_Seconds = False
Me.txtVpReferenz._value = Nothing
Me.txtVpReferenz._Waehrung = False
Me.txtVpReferenz._WaehrungZeichen = True
@@ -572,10 +676,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtVpZusatz._DateTimeOnly = False
Me.txtVpZusatz._numbersOnly = False
Me.txtVpZusatz._numbersOnlyKommastellen = ""
Me.txtVpZusatz._numbersOnlyTrennzeichen = True
Me.txtVpZusatz._Prozent = False
Me.txtVpZusatz._ShortDateNew = False
Me.txtVpZusatz._ShortDateOnly = False
Me.txtVpZusatz._TimeOnly = False
Me.txtVpZusatz._TimeOnly_Seconds = False
Me.txtVpZusatz._value = Nothing
Me.txtVpZusatz._Waehrung = False
Me.txtVpZusatz._WaehrungZeichen = True
@@ -693,13 +799,15 @@ Partial Class usrCntlATLAS_NCTS_Position
'txtWarennummer
'
Me.txtWarennummer._DateTimeOnly = False
Me.txtWarennummer._numbersOnly = False
Me.txtWarennummer._numbersOnlyKommastellen = ""
Me.txtWarennummer._numbersOnly = True
Me.txtWarennummer._numbersOnlyKommastellen = "0"
Me.txtWarennummer._numbersOnlyTrennzeichen = False
Me.txtWarennummer._Prozent = False
Me.txtWarennummer._ShortDateNew = False
Me.txtWarennummer._ShortDateOnly = False
Me.txtWarennummer._TimeOnly = False
Me.txtWarennummer._value = Nothing
Me.txtWarennummer._TimeOnly_Seconds = False
Me.txtWarennummer._value = ""
Me.txtWarennummer._Waehrung = False
Me.txtWarennummer._WaehrungZeichen = True
Me.txtWarennummer.ForeColor = System.Drawing.Color.Black
@@ -717,10 +825,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtWTNat._DateTimeOnly = False
Me.txtWTNat._numbersOnly = False
Me.txtWTNat._numbersOnlyKommastellen = ""
Me.txtWTNat._numbersOnlyTrennzeichen = True
Me.txtWTNat._Prozent = False
Me.txtWTNat._ShortDateNew = False
Me.txtWTNat._ShortDateOnly = False
Me.txtWTNat._TimeOnly = False
Me.txtWTNat._TimeOnly_Seconds = False
Me.txtWTNat._value = Nothing
Me.txtWTNat._Waehrung = False
Me.txtWTNat._WaehrungZeichen = True
@@ -739,10 +849,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtWTZ2._DateTimeOnly = False
Me.txtWTZ2._numbersOnly = False
Me.txtWTZ2._numbersOnlyKommastellen = ""
Me.txtWTZ2._numbersOnlyTrennzeichen = True
Me.txtWTZ2._Prozent = False
Me.txtWTZ2._ShortDateNew = False
Me.txtWTZ2._ShortDateOnly = False
Me.txtWTZ2._TimeOnly = False
Me.txtWTZ2._TimeOnly_Seconds = False
Me.txtWTZ2._value = Nothing
Me.txtWTZ2._Waehrung = False
Me.txtWTZ2._WaehrungZeichen = True
@@ -761,10 +873,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtWTZ1._DateTimeOnly = False
Me.txtWTZ1._numbersOnly = False
Me.txtWTZ1._numbersOnlyKommastellen = ""
Me.txtWTZ1._numbersOnlyTrennzeichen = True
Me.txtWTZ1._Prozent = False
Me.txtWTZ1._ShortDateNew = False
Me.txtWTZ1._ShortDateOnly = False
Me.txtWTZ1._TimeOnly = False
Me.txtWTZ1._TimeOnly_Seconds = False
Me.txtWTZ1._value = Nothing
Me.txtWTZ1._Waehrung = False
Me.txtWTZ1._WaehrungZeichen = True
@@ -783,10 +897,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtWTTaric._DateTimeOnly = False
Me.txtWTTaric._numbersOnly = False
Me.txtWTTaric._numbersOnlyKommastellen = ""
Me.txtWTTaric._numbersOnlyTrennzeichen = True
Me.txtWTTaric._Prozent = False
Me.txtWTTaric._ShortDateNew = False
Me.txtWTTaric._ShortDateOnly = False
Me.txtWTTaric._TimeOnly = False
Me.txtWTTaric._TimeOnly_Seconds = False
Me.txtWTTaric._value = Nothing
Me.txtWTTaric._Waehrung = False
Me.txtWTTaric._WaehrungZeichen = True
@@ -857,10 +973,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtEigenmasse._DateTimeOnly = False
Me.txtEigenmasse._numbersOnly = True
Me.txtEigenmasse._numbersOnlyKommastellen = "2"
Me.txtEigenmasse._numbersOnlyTrennzeichen = True
Me.txtEigenmasse._Prozent = False
Me.txtEigenmasse._ShortDateNew = False
Me.txtEigenmasse._ShortDateOnly = False
Me.txtEigenmasse._TimeOnly = False
Me.txtEigenmasse._TimeOnly_Seconds = False
Me.txtEigenmasse._value = "0"
Me.txtEigenmasse._Waehrung = False
Me.txtEigenmasse._WaehrungZeichen = True
@@ -880,10 +998,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtRohmasse._DateTimeOnly = False
Me.txtRohmasse._numbersOnly = True
Me.txtRohmasse._numbersOnlyKommastellen = "2"
Me.txtRohmasse._numbersOnlyTrennzeichen = True
Me.txtRohmasse._Prozent = False
Me.txtRohmasse._ShortDateNew = False
Me.txtRohmasse._ShortDateOnly = False
Me.txtRohmasse._TimeOnly = False
Me.txtRohmasse._TimeOnly_Seconds = False
Me.txtRohmasse._value = "0"
Me.txtRohmasse._Waehrung = False
Me.txtRohmasse._WaehrungZeichen = True
@@ -1019,10 +1139,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtUlZusatz._DateTimeOnly = False
Me.txtUlZusatz._numbersOnly = False
Me.txtUlZusatz._numbersOnlyKommastellen = ""
Me.txtUlZusatz._numbersOnlyTrennzeichen = True
Me.txtUlZusatz._Prozent = False
Me.txtUlZusatz._ShortDateNew = False
Me.txtUlZusatz._ShortDateOnly = False
Me.txtUlZusatz._TimeOnly = False
Me.txtUlZusatz._TimeOnly_Seconds = False
Me.txtUlZusatz._value = Nothing
Me.txtUlZusatz._Waehrung = False
Me.txtUlZusatz._WaehrungZeichen = True
@@ -1041,10 +1163,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtUlReferenz._DateTimeOnly = False
Me.txtUlReferenz._numbersOnly = False
Me.txtUlReferenz._numbersOnlyKommastellen = ""
Me.txtUlReferenz._numbersOnlyTrennzeichen = True
Me.txtUlReferenz._Prozent = False
Me.txtUlReferenz._ShortDateNew = False
Me.txtUlReferenz._ShortDateOnly = False
Me.txtUlReferenz._TimeOnly = False
Me.txtUlReferenz._TimeOnly_Seconds = False
Me.txtUlReferenz._value = Nothing
Me.txtUlReferenz._Waehrung = False
Me.txtUlReferenz._WaehrungZeichen = True
@@ -1075,10 +1199,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtPkMarke._DateTimeOnly = False
Me.txtPkMarke._numbersOnly = False
Me.txtPkMarke._numbersOnlyKommastellen = ""
Me.txtPkMarke._numbersOnlyTrennzeichen = True
Me.txtPkMarke._Prozent = False
Me.txtPkMarke._ShortDateNew = False
Me.txtPkMarke._ShortDateOnly = False
Me.txtPkMarke._TimeOnly = False
Me.txtPkMarke._TimeOnly_Seconds = False
Me.txtPkMarke._value = "ohne"
Me.txtPkMarke._Waehrung = False
Me.txtPkMarke._WaehrungZeichen = True
@@ -1098,10 +1224,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtPkAnzahl._DateTimeOnly = False
Me.txtPkAnzahl._numbersOnly = True
Me.txtPkAnzahl._numbersOnlyKommastellen = ""
Me.txtPkAnzahl._numbersOnlyTrennzeichen = True
Me.txtPkAnzahl._Prozent = False
Me.txtPkAnzahl._ShortDateNew = False
Me.txtPkAnzahl._ShortDateOnly = False
Me.txtPkAnzahl._TimeOnly = False
Me.txtPkAnzahl._TimeOnly_Seconds = False
Me.txtPkAnzahl._value = ""
Me.txtPkAnzahl._Waehrung = False
Me.txtPkAnzahl._WaehrungZeichen = True
@@ -1284,10 +1412,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtWarenwert._DateTimeOnly = False
Me.txtWarenwert._numbersOnly = True
Me.txtWarenwert._numbersOnlyKommastellen = "2"
Me.txtWarenwert._numbersOnlyTrennzeichen = True
Me.txtWarenwert._Prozent = False
Me.txtWarenwert._ShortDateNew = False
Me.txtWarenwert._ShortDateOnly = False
Me.txtWarenwert._TimeOnly = False
Me.txtWarenwert._TimeOnly_Seconds = False
Me.txtWarenwert._value = ""
Me.txtWarenwert._Waehrung = False
Me.txtWarenwert._WaehrungZeichen = True
@@ -1315,10 +1445,12 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.txtWarenbezeichnung._DateTimeOnly = False
Me.txtWarenbezeichnung._numbersOnly = False
Me.txtWarenbezeichnung._numbersOnlyKommastellen = ""
Me.txtWarenbezeichnung._numbersOnlyTrennzeichen = True
Me.txtWarenbezeichnung._Prozent = False
Me.txtWarenbezeichnung._ShortDateNew = False
Me.txtWarenbezeichnung._ShortDateOnly = False
Me.txtWarenbezeichnung._TimeOnly = False
Me.txtWarenbezeichnung._TimeOnly_Seconds = False
Me.txtWarenbezeichnung._value = Nothing
Me.txtWarenbezeichnung._Waehrung = False
Me.txtWarenbezeichnung._WaehrungZeichen = True
@@ -1414,102 +1546,6 @@ Partial Class usrCntlATLAS_NCTS_Position
Me.lklBearbeitungAbbrechenPK.Text = "Bearbeitung abbrechen"
Me.lklBearbeitungAbbrechenPK.Visible = False
'
'sbBestimmungsland
'
Me.sbBestimmungsland._allowFreitext = False
Me.sbBestimmungsland._AllowSetValue = False
Me.sbBestimmungsland._allowSpaceAsSplitter = False
Me.sbBestimmungsland._autoSizeGross = False
Me.sbBestimmungsland._hideIfListEmpty = True
Me.sbBestimmungsland._value = ""
Me.sbBestimmungsland.conn_art = "FMZOLL"
Me.sbBestimmungsland.dgvpos = "RIGHT"
Me.sbBestimmungsland.DISPLAY_PARAM = Nothing
Me.sbBestimmungsland.INVISIBLE_COLUMNS = Nothing
Me.sbBestimmungsland.key_visible = False
Me.sbBestimmungsland.KEYPARAM = Nothing
Me.sbBestimmungsland.Location = New System.Drawing.Point(552, 115)
Me.sbBestimmungsland.Name = "sbBestimmungsland"
Me.sbBestimmungsland.searchActive = True
Me.sbBestimmungsland.Size = New System.Drawing.Size(117, 20)
Me.sbBestimmungsland.SQL_ORDER_BY = Nothing
Me.sbBestimmungsland.SQL_SELECT = Nothing
Me.sbBestimmungsland.SQL_WHERE = Nothing
Me.sbBestimmungsland.SQL_WhereParamList = Nothing
Me.sbBestimmungsland.TabIndex = 21
Me.sbBestimmungsland.usrcntl = Nothing
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(551, 99)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(116, 13)
Me.Label11.TabIndex = 13
Me.Label11.Text = "Bestimmungs-Land:"
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(433, 99)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(135, 13)
Me.Label12.TabIndex = 12
Me.Label12.Text = "Versendungs-Land:"
'
'sbVersendungsLand
'
Me.sbVersendungsLand._allowFreitext = False
Me.sbVersendungsLand._AllowSetValue = False
Me.sbVersendungsLand._allowSpaceAsSplitter = False
Me.sbVersendungsLand._autoSizeGross = False
Me.sbVersendungsLand._hideIfListEmpty = True
Me.sbVersendungsLand._value = ""
Me.sbVersendungsLand.conn_art = "FMZOLL"
Me.sbVersendungsLand.dgvpos = "LEFT"
Me.sbVersendungsLand.DISPLAY_PARAM = Nothing
Me.sbVersendungsLand.INVISIBLE_COLUMNS = Nothing
Me.sbVersendungsLand.key_visible = False
Me.sbVersendungsLand.KEYPARAM = Nothing
Me.sbVersendungsLand.Location = New System.Drawing.Point(436, 115)
Me.sbVersendungsLand.Name = "sbVersendungsLand"
Me.sbVersendungsLand.searchActive = True
Me.sbVersendungsLand.Size = New System.Drawing.Size(117, 20)
Me.sbVersendungsLand.SQL_ORDER_BY = Nothing
Me.sbVersendungsLand.SQL_SELECT = Nothing
Me.sbVersendungsLand.SQL_WHERE = Nothing
Me.sbVersendungsLand.SQL_WhereParamList = Nothing
Me.sbVersendungsLand.TabIndex = 20
Me.sbVersendungsLand.usrcntl = Nothing
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(19, 206)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(111, 13)
Me.Label10.TabIndex = 34
Me.Label10.Text = "Art der Anmeldung:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboArtAnmeldung
'
Me.cboArtAnmeldung._allowedValuesFreiText = Nothing
Me.cboArtAnmeldung._allowFreiText = False
Me.cboArtAnmeldung._value = ""
Me.cboArtAnmeldung.DropDownWidth = 300
Me.cboArtAnmeldung.FormattingEnabled = True
Me.cboArtAnmeldung.Location = New System.Drawing.Point(136, 203)
Me.cboArtAnmeldung.Name = "cboArtAnmeldung"
Me.cboArtAnmeldung.Size = New System.Drawing.Size(233, 21)
Me.cboArtAnmeldung.TabIndex = 35
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(370, 118)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(64, 13)
Me.Label13.TabIndex = 83
Me.Label13.Text = "Warenfluss:"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'usrCntlATLAS_NCTS_Position
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

4
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Positionen.vb
View File

@@ -320,7 +320,7 @@
'POSITION.nctsWP_Id As Integer
' POSITION.nctsWP_NctsId = NCTS.ncts_Id
POSITION.nctsWP_PositionsNummer = cnt
POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothingDbl(P.txtWarennummer.Text)
POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text)
POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value)
POSITION.nctsWP_Warenbezeichnung = P.txtWarenbezeichnung.Text
POSITION.nctsWP_Warenwert = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)
@@ -489,7 +489,7 @@
'POSITION.nctsWP_Id As Integer
' POSITION.nctsWP_NctsId = NCTS.ncts_Id
POSITION.nctsWP_PositionsNummer = cnt
POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothingDbl(P.txtWarennummer.Text)
POSITION.nctsWP_Warennummer = cProgramFunctions.isLeerNothing(P.txtWarennummer.Text)
POSITION.nctsWP_ArtAnmeldungPositionCode = cProgramFunctions.isLeerNothing(P.cboArtAnmeldung._value)
POSITION.nctsWP_Warenbezeichnung = P.txtWarenbezeichnung.Text
POSITION.nctsWP_Warenwert = cProgramFunctions.isLeerNothingDbl(P.txtWarenwert._value)

4
SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
View File

@@ -72,7 +72,7 @@
Private Sub frmZollanmeldung_Load(sender As Object, e As EventArgs) Handles Me.Load
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") And FilialenNr = 5501 Then
If (VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") And FilialenNr = 5501 Then
FIRMA_DY = "IMEX"
ElseIf FilialenNr = 5701 Then
FIRMA_DY = "AMBAR"
@@ -81,7 +81,7 @@
ElseIf FilialenNr = 4801 Then
FIRMA_DY = "ATILLA"
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
If DY Is Nothing Then
' ' FIRMA_DY = DY.