Projektdateien hinzufügen.

Aviso/frmKundenFremdeSpedAdd.vb

@@ -0,0 +1,71 @@
+
+Public Class frmKundenFremdeSpedAdd
+    Dim FREMD As VERAG_PROG_ALLGEMEIN.cFremdSpeditionenZuordnung = Nothing
+    Dim WithEvents binding As New cBinding("FMZOLL")
+    Public id As Integer = -1
+
+    Private Sub frmKundenFremdeSpedAdd_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txtSpedition.initKdBox(Me, txtSpeditionKdNr)
+        txtFirma.initKdBox(Me, txtFirmaKdNr)
+    
+        AddHandler txtFirma.PropertyChanged, Sub()
+                                                 If txtFirma.KdData_ADRESSEN IsNot Nothing Then
+                                                     If txtFirma.KdData_ADRESSEN.Ort <> "" Then txtOrt.Text = txtFirma.KdData_ADRESSEN.Ort
+                                                     If txtFirma.KdData_ADRESSEN.PLZ <> "" Then txtPlz.Text = txtFirma.KdData_ADRESSEN.PLZ
+                                                 End If
+                                             End Sub
+     
+       'Ä     RemoveHandler binding.bindingdataTable.ColumnChanged, AddressOf change
+        '   AddHandler binding.bindingdataTable.ColumnChanged, AddressOf change
+    End Sub
+
+    Private Sub SAVE_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+
+        FREMD.fremdz_KundenNr = If(IsNumeric(txtFirmaKdNr.Text), txtFirmaKdNr.Text, Nothing)
+
+        FREMD.fremdz_firma = txtFirma.Text
+        'FREMD.fremdz_SpeditionKundenNr = txtSpedition.KdNrNullInt
+        FREMD.fremdz_SpeditionKundenNr = If(IsNumeric(txtSpeditionKdNr.Text), txtSpeditionKdNr.Text, Nothing)
+        FREMD.fremdz_verzolltBei = txtSpedition.Text
+
+        FREMD.fremdz_ort = txtOrt.Text
+        FREMD.fremdz_plz = txtPlz.Text
+        FREMD.fremdz_bemerkung = txtBemerkung.Text
+        FREMD.fremdz_Datum = Now
+        FREMD.fremdz_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+        If FREMD.SAVE() Then
+            Me.DialogResult = Windows.Forms.DialogResult.OK
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub frmKundenFremdeSpedAdd_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        FREMD = New VERAG_PROG_ALLGEMEIN.cFremdSpeditionenZuordnung(id)
+
+        If FREMD.hasEntry Then
+            If FREMD.fremdz_KundenNr IsNot Nothing And FREMD.fremdz_KundenNr > 0 Then
+                txtFirma.KdNr = FREMD.fremdz_KundenNr
+            Else
+                txtFirma.Text = If(FREMD.fremdz_firma, "")
+            End If
+            If FREMD.fremdz_SpeditionKundenNr IsNot Nothing And FREMD.fremdz_SpeditionKundenNr > 0 Then
+                txtSpedition.KdNr = FREMD.fremdz_SpeditionKundenNr
+            Else
+                txtSpedition.Text = If(FREMD.fremdz_verzolltBei, "")
+            End If
+
+            txtOrt.Text = If(FREMD.fremdz_ort, "")
+            txtPlz.Text = If(FREMD.fremdz_plz, "")
+            txtBemerkung.Text = If(FREMD.fremdz_bemerkung, "")
+
+        End If
+
+
+    End Sub
+End Class