201020

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -97,7 +97,6 @@ Public Class frmNacherfassungNEU
             End If
 
 
-
             cboSachbearbeiter.Items.Clear()
             cboSachbearbeiter.fillWithSQL("SELECT  ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " and [SBSichtbar]=1  ORDER BY Name ", False, "FMZOLL", True)
 
@@ -210,7 +209,6 @@ Public Class frmNacherfassungNEU
         cboEmpfaengerOffert._value = SPEDITIONSBUCH.EmpfängerOffertenNr
 
 
-
         txtAuftraggeber.Text = SPEDITIONSBUCH.Vermittler
         If SPEDITIONSBUCH.VermittlerKundenNr > 0 Then txtAuftraggeber.KdNr = SPEDITIONSBUCH.VermittlerKundenNr
         '  MsgBox("ABF: " & cboAuftraggeberOffert.Items.Count)
@@ -1518,4 +1516,22 @@ Public Class frmNacherfassungNEU
         txtCMRNr.Enabled = cbxCMR.Checked
         txtCMRDatum.Enabled = cbxCMR.Checked
     End Sub
+
+    Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click
+        '   SPEDITIONSBUCH.LOAD_VORKOSTEN()
+        Dim f As New frmNacherfassungEndEmpfaenger
+        f.FilialenNr = SPEDITIONSBUCH.FilialenNr
+        f.AbfertigungsNr = SPEDITIONSBUCH.AbfertigungsNr
+        f.UnterNr = SPEDITIONSBUCH.UnterNr
+
+        f.ENDEMPFAENGER = SPEDITIONSBUCH.ENDEMPFAENGER
+        If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
+            SPEDITIONSBUCH.ENDEMPFAENGER = f.ENDEMPFAENGER
+            If SPEDITIONSBUCH.ENDEMPFAENGER.Count > 0 Then
+                txtEndEmpf.KdNr = SPEDITIONSBUCH.ENDEMPFAENGER(0).EndEmpfaengerKdNr
+            End If
+
+        End If
+
+    End Sub
 End Class