neu

Aviso/frmEintragAviso.vb

@@ -97,7 +97,12 @@ Public Class frmEintragAviso
         cboGrenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
         cboGrenzstelle.changeItem("")
 
-
+        cboTransportmittelart.Items.Clear()
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("LKW", "LKW"))
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SPRINTER", "SPRINTER"))
+        cboTransportmittelart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CONTAINER", "CONTAINER"))
+        cboTransportmittelart.changeItem("")
 
         sbLkwNationalitaet.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
 
@@ -331,6 +336,8 @@ Public Class frmEintragAviso
                     optUnbekannt.Checked = True
                 End If
             cboGrenzstelle.changeItem(myAviso.Grenzstelle)
+            cboTransportmittelart.changeItem(myAviso.Transportmittelart)
+
             cboImEx.Text = If(myAviso.ImEx, "")
                 hStatus = myAviso.Status
                 If myAviso.Ankunft = LeerDatum Then
@@ -830,6 +837,9 @@ Public Class frmEintragAviso
                 ' MsgBox(myAviso.Grenzstelle)
             End If
 
+            myAviso.Transportmittelart = cboTransportmittelart._value
+
+
             If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
                 myAviso.Grenzstelle = "AMB"
             End If
@@ -1637,6 +1647,13 @@ Public Class frmEintragAviso
 
     End Sub
 
+    Private Sub cboTransportmittelart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTransportmittelart.SelectedIndexChanged
+        If cboTransportmittelart._value = "CONTAINER" Then
+            lblLkwKennzeichen.Text = "Container-Nr:"
+        Else
+            lblLkwKennzeichen.Text = "LKW-Nr:"
+        End If
+    End Sub
     Private Sub cboGrenzstelle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboGrenzstelle.SelectedIndexChanged
 
         pnl.Visible = False