93 lines
3.6 KiB
VB.net
93 lines
3.6 KiB
VB.net
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class usCntlCBAM_Status
|
|
|
|
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Public kdnr As Integer = -1
|
|
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
|
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
|
Dim ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Sub New(kdNr)
|
|
InitializeComponent()
|
|
Me.kdnr = kdNr
|
|
End Sub
|
|
Private Sub usrCntlCBAM_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Init(kdnr)
|
|
End Sub
|
|
|
|
Sub Init(kdnr)
|
|
If kdnr > 0 Then
|
|
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
|
|
KD = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr)
|
|
ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr)
|
|
End If
|
|
|
|
If KD IsNot Nothing Then
|
|
' Me.Text = KD.EORITIN
|
|
End If
|
|
|
|
cboCBAM_KdSett_Status.Items.Clear()
|
|
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("unbestimmt", ""))
|
|
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("[Y137] < 50 to (de minis)", "50to"))
|
|
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("[Y238] Antrag abgegeben", "APPL"))
|
|
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("[Y128] CBAM Konto vorhanden", "CBAM"))
|
|
cboCBAM_KdSett_Status.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kein Interesse/Fremdkunde", "NO"))
|
|
cboCBAM_KdSett_Status.changeItem("undefined")
|
|
|
|
If ERW IsNot Nothing Then
|
|
cboCBAM_KdSett_Status.changeItem(If(ERW.kde_CBAM_Status, ""))
|
|
txtCBAM_KdSett_Warn1._value = If(ERW.kde_CBAM_Warn1, "30")
|
|
txtCBAM_KdSett_Warn2._value = If(ERW.kde_CBAM_Warn2, "40")
|
|
txtCBAM_KdSett_ApplNo._value = If(ERW.kde_CBAM_ApplicationNo, "")
|
|
txtCBAM_KdSett_CBAMNo.Text = If(ERW.kde_CBAM_CBAMAccountNo, "")
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboCBAM_KdSett_Status.SelectedIndexChanged
|
|
|
|
txtCBAM_KdSett_ApplNo.Enabled = False
|
|
txtCBAM_KdSett_CBAMNo.Enabled = False
|
|
txtCBAM_KdSett_Warn1.Enabled = False
|
|
txtCBAM_KdSett_Warn2.Enabled = False
|
|
|
|
Select Case cboCBAM_KdSett_Status._value
|
|
Case ""
|
|
txtCBAM_KdSett_Warn1.Enabled = True
|
|
txtCBAM_KdSett_Warn2.Enabled = True
|
|
Case "50to"
|
|
txtCBAM_KdSett_Warn1.Enabled = True
|
|
txtCBAM_KdSett_Warn2.Enabled = True
|
|
Case "APPL"
|
|
txtCBAM_KdSett_ApplNo.Enabled = True
|
|
Case "CBAM"
|
|
txtCBAM_KdSett_ApplNo.Enabled = True
|
|
txtCBAM_KdSett_CBAMNo.Enabled = True
|
|
Case "NO" 'nix
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
|
|
If ERW Is Nothing Then ERW = New cKundenErweitert(kdnr)
|
|
|
|
ERW.kde_CBAM_Status = cboCBAM_KdSett_Status._value
|
|
ERW.kde_CBAM_Warn1 = CDec(If(txtCBAM_KdSett_Warn1._value = "", 30, txtCBAM_KdSett_Warn1._value))
|
|
ERW.kde_CBAM_Warn2 = CDec(If(txtCBAM_KdSett_Warn2._value = "", 40, txtCBAM_KdSett_Warn2._value))
|
|
ERW.kde_CBAM_ApplicationNo = If(txtCBAM_KdSett_ApplNo._value <> "", txtCBAM_KdSett_ApplNo._value, Nothing)
|
|
ERW.kde_CBAM_CBAMAccountNo = If(txtCBAM_KdSett_CBAMNo._value <> "", txtCBAM_KdSett_CBAMNo._value, Nothing)
|
|
|
|
If ERW.SAVE() Then
|
|
If Me.FindForm.Name = "frmCBAMStatus" Then Me.FindForm.DialogResult = DialogResult.OK
|
|
End If
|
|
|
|
End Sub
|
|
|
|
End Class
|