CBAM

2025-12-30 11:06:24 +01:00
parent 005a373a49
commit 007e48c6d9
13 changed files with 2727 additions and 220 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb
@@ -0,0 +1,111 @@
+Public Class usrcntlCBAM_direkt
+    Implements FormualrInterface
+
+    Public Event CHANGED(name, value)
+    Public Event KDNR_CHANGED(kdnr)
+    Public Event DELETE(c As Control)
+    Public Event MOVE_UP(c As Control)
+    Public Event MOVE_DOWN(c As Control)
+
+    Public KdNR As Integer = -1
+    Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
+        initKdNR(kdnr)
+    End Sub
+
+    Sub initControlsHandler()
+        For Each c In Me.Controls
+            Select Case c.GetType.ToString
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
+                                                                                        RaiseEvent CHANGED(c.name, c.text)
+                                                                                    End Sub
+                Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
+                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
+                                                                                                        RaiseEvent CHANGED(c.name, c._value)
+                                                                                                    End Sub
+                Case GetType(TextBox).ToString
+                    AddHandler DirectCast(c, TextBox).Leave, Sub()
+                                                                 RaiseEvent CHANGED(c.name, c.text)
+                                                             End Sub
+            End Select
+        Next
+    End Sub
+
+
+
+    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
+        Dim kdsrch As New SDL.frmKundenSuche
+        'Panel1.Enabled = False
+        If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
+            If IsNumeric(kdsrch.kundenNrSearch.Text) Then
+                initKdNR(kdsrch.kundenNrSearch.Text)
+                RaiseEvent KDNR_CHANGED(KdNR)
+            End If
+        End If
+        '  Panel1.Enabled = True
+    End Sub
+
+    Public Sub initKdNR(KdNR)
+        Me.KdNR = KdNR
+        Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
+        Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
+
+        txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
+        txtAdresse1.Text = If(ADRESSE.Straße, "")
+        txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+        'txtEmail.Text = If(ADRESSE.E_Mail, "")
+        txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
+    End Sub
+
+    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+        RaiseEvent DELETE(Me)
+    End Sub
+
+    Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
+        RaiseEvent MOVE_UP(Me)
+    End Sub
+
+    Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
+        RaiseEvent MOVE_DOWN(Me)
+    End Sub
+
+    Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initControlsHandler()
+        cboSprache.Items.Clear()
+        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
+        'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
+
+        cboPaketOption.Items.Clear()
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Basic", "CBAM_Basic"))
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Standard", "CBAM_Standard"))
+        cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Premium", "CBAM_Premium"))
+        cboPaketOption.changeItem("")
+
+        txtCBAM_Onboarding_Paket_1._value = 200
+        txtCBAM_MonatPausch_Paket_1._value = 100
+        txtCBAM_jeWeitere_Paket_1._value = 10
+
+        txtCBAM_Onboarding_Paket_2._value = 200
+        txtCBAM_MonatPausch_Paket_2._value = 175
+        txtCBAM_jeWeitere_Paket_2._value = 10
+
+        txtCBAM_Onboarding_Paket_3._value = 200
+        txtCBAM_MonatPausch_Paket_3._value = 350
+        'txtCBAM_jeWeitere_Paket_3._value = 10
+
+
+        txtVertragsbeginn.Text = "01.01." & Now.Year
+        If Now.Month > 11 Then
+            txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year
+        End If
+        ' txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString
+        If KdNR > 0 Then initKdNR(KdNR)
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        FormularManagerNEU.genPDF(Me, True)
+    End Sub
+
+
+End Class