Merge

Aviso/frmSendungsdetailsNEU.vb

@@ -22,9 +22,9 @@ Public Class frmSendungsdetailsNEU
     Dim PROG As New cProgramFunctions
     Dim AVISO As New cAviso
     ' Dim GEAENDERT As Boolean = False
-    Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
+    Public SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
 
-    Dim CURRENT_INDEX As Integer = -1
+    Public CURRENT_INDEX As Integer = -1
     Dim closeWithoutSave = False
     '  Public WithEvents bsSendungen As New cEasyBinding("AVISO") 'fürs Binding
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1457,7 +1457,8 @@ Public Class frmSendungsdetailsNEU
             usrcntl_AUSFUHR.reset()
             usrcntl_FISKAL.reset()
             usrcntl_ATA = New usrCntlSND_Handling(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
-            usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+            'usrcntl_ATB = New usrCntlSND_ATBGestellung(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+            usrcntl_ATB = New usrCntlSND_ATBGestellung(AVISO, SENDUNG_LIST(CURRENT_INDEX))
 
             AddHandler usrcntl_ATA.HandlingWerte, Sub(colli, gewicht, anzahlSendungen)
                                                       txtColli.Text = colli
@@ -2351,23 +2352,33 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged
         btnLeihgeld.Enabled = False
-        lblAnzahl.Visible = (cboAbfertigungsart._value = "23")
-        txtAnzahl.Visible = (cboAbfertigungsart._value = "23")
+        lblAnzahl.Visible = False
+        txtAnzahl.Visible = False
+
+        btnAufschub_Atr.Visible = True
+        btnAufschub_Empf.Visible = True
+        btnAufschub_VERAG.Visible = True
+
+        Select Case cboAbfertigungsart._value
+            Case "23", "67", "68"
+                lblAnzahl.Visible = True
+                txtAnzahl.Visible = True
+
+                btnAufschub_Atr.Visible = False
+                btnAufschub_Empf.Visible = False
+                btnAufschub_VERAG.Visible = False
+                SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = ""
+                txtDyRef.Visible = False
+                picDy.Visible = False
+                txtDyRef.Text = ""
+        End Select
         'grpAufschub.Visible = (cboAbfertigungsart._value <> "23")
 
-        btnAufschub_Atr.Visible = (cboAbfertigungsart._value <> "23")
-        btnAufschub_Empf.Visible = (cboAbfertigungsart._value <> "23")
-        btnAufschub_VERAG.Visible = (cboAbfertigungsart._value <> "23")
+
 
         setContextMenuGVMSControl()
 
-        If cboAbfertigungsart._value = "23" Then
-            SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = ""
-
-            txtDyRef.Visible = False
-            picDy.Visible = False
-            txtDyRef.Text = ""
-        ElseIf cboAbfertigungsart._value = "9" Then
+        If cboAbfertigungsart._value = "9" Then
             btnLeihgeld.Enabled = True
         Else
             txtDyRef.Visible = (SENDUNG_LIST(CURRENT_INDEX).FilialenNr = "5601") 'UNISPED