neu

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb

@@ -42,6 +42,8 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.Label12 = New System.Windows.Forms.Label()
         Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbx = New System.Windows.Forms.CheckBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.txtLKWContainer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -143,6 +145,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         '
         'txtFirma
         '
+        Me.txtFirma._AlleFirmenCLUSTER = False
         Me.txtFirma._AllowSetValue = True
         Me.txtFirma._autoSizeGross = False
         Me.txtFirma._display_Name1 = True
@@ -151,6 +154,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.txtFirma._displayWoelflKd = False
         Me.txtFirma._hideIfListEmpty = True
         Me.txtFirma._loadKdData = True
+        Me.txtFirma._UseFIRMA = ""
         Me.txtFirma._ValueKdAndName = False
         Me.txtFirma.dgvpos = "LEFT"
         Me.txtFirma.KdName = Nothing
@@ -163,6 +167,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.txtFirma.searchActive = True
         Me.txtFirma.Size = New System.Drawing.Size(709, 20)
         Me.txtFirma.TabIndex = 15
+        Me.txtFirma.TIMER_SEARCH = True
         Me.txtFirma.usrcntl = Nothing
         '
         'cboFiliale
@@ -247,10 +252,10 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(170, 109)
+        Me.Label2.Location = New System.Drawing.Point(170, 135)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(31, 13)
-        Me.Label2.TabIndex = 17
+        Me.Label2.TabIndex = 19
         Me.Label2.Text = "Text:"
         '
         'cboTEXT
@@ -259,10 +264,10 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.cboTEXT._allowFreiText = False
         Me.cboTEXT._value = ""
         Me.cboTEXT.FormattingEnabled = True
-        Me.cboTEXT.Location = New System.Drawing.Point(254, 106)
+        Me.cboTEXT.Location = New System.Drawing.Point(254, 132)
         Me.cboTEXT.Name = "cboTEXT"
         Me.cboTEXT.Size = New System.Drawing.Size(183, 21)
-        Me.cboTEXT.TabIndex = 18
+        Me.cboTEXT.TabIndex = 20
         '
         'Label12
         '
@@ -296,12 +301,44 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.cbx.Text = "Anhänge zurücksetzen"
         Me.cbx.UseVisualStyleBackColor = True
         '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(170, 108)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(84, 13)
+        Me.Label3.TabIndex = 17
+        Me.Label3.Text = "LKW/Container:"
+        '
+        'txtLKWContainer
+        '
+        Me.txtLKWContainer._DateTimeOnly = False
+        Me.txtLKWContainer._numbersOnly = False
+        Me.txtLKWContainer._numbersOnlyKommastellen = ""
+        Me.txtLKWContainer._Prozent = False
+        Me.txtLKWContainer._ShortDateNew = False
+        Me.txtLKWContainer._ShortDateOnly = False
+        Me.txtLKWContainer._TimeOnly = False
+        Me.txtLKWContainer._value = Nothing
+        Me.txtLKWContainer._Waehrung = False
+        Me.txtLKWContainer._WaehrungZeichen = True
+        Me.txtLKWContainer.ForeColor = System.Drawing.Color.Black
+        Me.txtLKWContainer.Location = New System.Drawing.Point(254, 105)
+        Me.txtLKWContainer.MaxLineLength = -1
+        Me.txtLKWContainer.MaxLines_Warning = ""
+        Me.txtLKWContainer.MaxLines_Warning_Label = Nothing
+        Me.txtLKWContainer.Name = "txtLKWContainer"
+        Me.txtLKWContainer.Size = New System.Drawing.Size(709, 20)
+        Me.txtLKWContainer.TabIndex = 18
+        '
         'usrcntlVerzollungsunterlagen_BAR
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.txtLKWContainer)
+        Me.Controls.Add(Me.Label3)
         Me.Controls.Add(Me.Label12)
         Me.Controls.Add(Me.cboSprache)
         Me.Controls.Add(Me.Label2)
@@ -323,7 +360,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.cbx)
         Me.Name = "usrcntlVerzollungsunterlagen_BAR"
-        Me.Size = New System.Drawing.Size(1000, 147)
+        Me.Size = New System.Drawing.Size(1000, 171)
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
@@ -349,4 +386,6 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
     Friend WithEvents Label12 As Label
     Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cbx As CheckBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents txtLKWContainer As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb

@@ -125,16 +125,16 @@
     Private Sub cboRechnungAn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged
         If SPEDBUCH IsNot Nothing Then
             Select Case cboRechnungAn._value
-                Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr)
-                Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr)
-                Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr)
-                Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr)
-                Case Else : loadAdressen(-1)
+                Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr, SPEDBUCH.LKW_Kennzeichen)
+                Case Else : loadAdressen(-1, "")
             End Select
         End If
     End Sub
 
-    Sub loadAdressen(KdNr)
+    Sub loadAdressen(KdNr, Optional LKW_Kz = Nothing)
         Me.KdNR = KdNr
         If KdNr IsNot Nothing AndAlso IsNumeric(KdNr) AndAlso KdNr > 0 Then
             Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
@@ -147,7 +147,7 @@
             '   txtFirma2.Text = ""
             txtAdresse1.Text = ""
         End If
-
+        If LKW_Kz IsNot Nothing Then txtLKWContainer.Text = LKW_Kz.ToString
 
     End Sub