Layout, ImEx

Aviso/frmSendungsdetailsNEU.vb

@@ -2503,7 +2503,7 @@ Public Class frmSendungsdetailsNEU
 
 
         If Not isFailureShown Then VALIDATE_ME(False)
-
+        sperrePanel()
         '  initOfferteDGV()
     End Sub
 
@@ -3150,11 +3150,25 @@ Public Class frmSendungsdetailsNEU
     End Sub
 
     Sub sperrePanel()
+        txtFrachtfuehrer._UseFIRMA = ""
+        txtAvisierer._UseFIRMA = ""
+        txtAuftraggeber._UseFIRMA = ""
+        txtEmpfaenger._UseFIRMA = ""
+        txtAbsender._UseFIRMA = ""
+
+
         Dim sperren = False
         If cbxFremdspedition.Checked Then
             sperren = True
         ElseIf cboAbfertigungsart._value = "44" Then
             sperren = False
+        ElseIf cboAbfertigungsart._value = "23" Then
+            sperren = False
+            txtFrachtfuehrer._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
+            txtAvisierer._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
+            txtAuftraggeber._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
+            txtEmpfaenger._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
+            txtAbsender._UseFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
         Else
             If cboFiliale._value <> "" Then
                 Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA