20200108

2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
--- a/SDL/kunden/frmKundenDatenblatt.vb
+++ b/SDL/kunden/frmKundenDatenblatt.vb
@@ -0,0 +1,60 @@
+Public Class frmKundenDatenblatt
+    Dim KundenNr As Integer
+    Dim KD_DB As VERAG_PROG_ALLGEMEIN.cKundenDatenblatt
+    Sub New(KundenNr)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.KundenNr = KundenNr
+    End Sub
+
+
+    Sub getValues()
+        KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr)
+        KD_DB.kdb_KundenNr = KundenNr
+        KD_DB.kdb_route = txtRoute.Text
+        KD_DB.kdb_buergschaftsgeber = txtBrggeber.Text
+        KD_DB.kdb_anzahlLKW = txtAnzahlLKW.Text
+        KD_DB.kdb_anzahlMA = txtAnzahlMA.Text
+        KD_DB.kdb_bestimmungslandEU = txtBestimmungslandEU.Text
+        KD_DB.kdb_grosskunden = txtGrolsskunden.Text
+        KD_DB.kdb_gueter = txtGueter.Text
+        KD_DB.kdb_grenzen = txtGrenzen.Text
+        KD_DB.kdb_verhaltenAvisierung = txtAvisierung.Text
+        KD_DB.kdb_sonstiges = txtSonstiges.Text
+    End Sub
+
+    Sub setValues()
+        txtRoute.Text = If(KD_DB.kdb_route, "")
+        txtBrggeber.Text = If(KD_DB.kdb_buergschaftsgeber, "")
+        txtAnzahlLKW.Text = If(KD_DB.kdb_anzahlLKW, "")
+        txtAnzahlMA.Text = If(KD_DB.kdb_anzahlMA, "")
+        txtBestimmungslandEU.Text = If(KD_DB.kdb_bestimmungslandEU, "")
+        txtGrolsskunden.Text = If(KD_DB.kdb_grosskunden, "")
+        txtGueter.Text = If(KD_DB.kdb_gueter, "")
+        txtGrenzen.Text = If(KD_DB.kdb_grenzen, "")
+        txtAvisierung.Text = If(KD_DB.kdb_verhaltenAvisierung, "")
+        txtSonstiges.Text = If(KD_DB.kdb_sonstiges, "")
+    End Sub
+
+    Private Sub frmKundenDatenblatt_Load(sender As Object, e As EventArgs) Handles Me.Load
+        KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr)
+        Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
+        lbl.Text = AD.Ordnungsbegriff
+        setValues()
+    End Sub
+
+    Sub saveME()
+        getValues()
+        If KD_DB.SAVE() Then Me.Close()
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        saveME()
+    End Sub
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Me.Close()
+    End Sub
+End Class