Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024
This commit is contained in:
@@ -254,7 +254,7 @@ Public Class cMDMFunctionsAllgemein
|
||||
|
||||
If Not (
|
||||
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeUmsatzsteuerbetragEUR")), 0, r.Item("UStV_SummeUmsatzsteuerbetragEUR"))), 2) = curUStV_SummeUmsatzsteuerbetragEUR And
|
||||
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeErstattungsbetragEUR")), 0, r.Item("UStV_SummeUmsatzsteuerbetragEUR"))), 2) = curUStV_SummeErstattungsbetragEUR And
|
||||
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeErstattungsbetragEUR")), 0, r.Item("UStV_SummeErstattungsbetragEUR"))), 2) = curUStV_SummeErstattungsbetragEUR And
|
||||
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_Summe3470BetragEUR")), 0, r.Item("UStV_Summe3470BetragEUR"))), 2) = curUStV_Summe3470BetragEUR And
|
||||
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeVZBetragEUR")), 0, r.Item("UStV_SummeVZBetragEUR"))), 2) = curUStV_SummeVZBetragEUR And
|
||||
Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_VERAG")), 0, r.Item("UStV_SummeVorschaubetragEUR_VERAG"))), 2) = curUStV_SummeVorschaubetragEUR_VERAG And
|
||||
@@ -282,7 +282,6 @@ Public Class cMDMFunctionsAllgemein
|
||||
Kunden.UStV_SummeErstattungsbetragEUR = " & curUStV_SummeErstattungsbetragEUR.ToString.Replace(",", ".") & ",
|
||||
Kunden.UStV_Summe3470BetragEUR = " & curUStV_Summe3470BetragEUR.ToString.Replace(",", ".") & ",
|
||||
Kunden.UStV_SummeVZBetragEUR = " & curUStV_SummeVZBetragEUR.ToString.Replace(",", ".") & ",
|
||||
|
||||
Kunden.UStV_SummeVorschaubetragEUR_VERAG = " & curUStV_SummeVorschaubetragEUR_VERAG.ToString.Replace(",", ".") & ",
|
||||
Kunden.UStV_SummeVorschaubetragEUR_IDS = " & curUStV_SummeVorschaubetragEUR_IDS.ToString.Replace(",", ".") & ",
|
||||
Kunden.UStV_SummeVorschaubetragEUR_IT = " & curUStV_SummeVorschaubetragEUR_IT.ToString.Replace(",", ".") & ",
|
||||
|
||||
@@ -178,7 +178,7 @@ Public Class cMDMZinsberechnung
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
|
||||
Using cmd As New SqlCommand("SELECT belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag
|
||||
Using cmd As New SqlCommand("SELECT id,belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende
|
||||
|
||||
FROM
|
||||
tblMDM_Zinsberechnung
|
||||
|
||||
@@ -101,6 +101,7 @@ Public Class cMitarbeiter
|
||||
Property mit_Notfall_Name As Object = Nothing
|
||||
Property mit_Notfall_Handy As Object = Nothing
|
||||
Property mit_Notfall_Mail As Object = Nothing
|
||||
Property mit_SchalterID As Object = Nothing
|
||||
|
||||
|
||||
|
||||
@@ -219,6 +220,7 @@ Public Class cMitarbeiter
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Name", mit_Notfall_Name))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID))
|
||||
|
||||
|
||||
|
||||
@@ -428,6 +430,7 @@ Public Class cMitarbeiter
|
||||
If Not dr.Item("mit_Notfall_Handy") Is DBNull.Value Then Me.mit_Notfall_Handy = dr.Item("mit_Notfall_Handy")
|
||||
If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name")
|
||||
If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail")
|
||||
If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID")
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
@@ -903,6 +903,7 @@ Public Class cRechnungsausgangPositionen
|
||||
Property BGebBgl As Object = Nothing
|
||||
Property BGebMinBetrag As Object = Nothing
|
||||
Property RePosZeitstempel As Object = Nothing
|
||||
Property NachzahlungsID As Object = Nothing
|
||||
|
||||
'FROM [VERAG].[dbo].[RechnungsausgangPositionen]
|
||||
|
||||
@@ -945,6 +946,7 @@ Public Class cRechnungsausgangPositionen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NachzahlungsID", NachzahlungsID))
|
||||
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX))
|
||||
Return list
|
||||
|
||||
@@ -496,15 +496,21 @@ Class TrdInvoice_FUNCTIONS
|
||||
|
||||
End If
|
||||
|
||||
Dim Buchungstext As String = ROW("RK_Buchungstext")
|
||||
|
||||
If Buchungstext <> "" AndAlso Buchungstext.Contains("Abrechnungsperiode von") Then
|
||||
Buchungstext = Buchungstext.Replace("Abrechnungsperiode von", "Zinsen")
|
||||
End If
|
||||
|
||||
If TRD_INVOICE.SAVE Then
|
||||
If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then
|
||||
If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), Buchungstext, TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then
|
||||
'UPDATE rechnugnsausgang
|
||||
Dim firmaTmpsql = If(Firma > 0, " AND Firma_ID= '" & Firma & "' ", "")
|
||||
Dim buchungsjahrTmpsql = If(Buchungsjahr > 0, " AND Buchungsjahr= '" & Buchungsjahr & "' ", "")
|
||||
SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & ROW("RK_RechnungsNr") & firmaTmpsql & buchungsjahrTmpsql, "FMZOLL")
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
|
||||
@@ -699,7 +705,10 @@ Class TrdInvoice_FUNCTIONS
|
||||
Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1)
|
||||
getSQLString_SELECTForTrdInvoice = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr,
|
||||
min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr,
|
||||
(min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) AS RK_Buchungstext,
|
||||
case when min(Firma_ID)=19 and min(Rechnungsausgang.FilialenNr) = 8001 and min(Rechnungsausgang.OffertenNr) = 95 then
|
||||
min(Rechnungsausgang.Vermerk)
|
||||
else
|
||||
(min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) end AS RK_Buchungstext,
|
||||
min(Rechnungsausgang.KundenNrZentrale) AS RK_KundenNrZentrale, min(Rechnungsausgang.RechnungsKundenNr) AS RK_RechnungsKundenNr, min(Rechnungsausgang.RechnungsLandKz) AS RK_RechnungsLandKz,
|
||||
min(Rechnungsausgang.RechnungsUstIdKz) AS RK_RechnungsUstIdKz, min(Rechnungsausgang.RechnungsUstIdNr) AS RK_RechnungsUstIdNr, min(Rechnungsausgang.Lastschrift+0) AS RK_Lastschrift,
|
||||
min(Rechnungsausgang.Steuerschlüssel) AS RK_Steuerschlüssel, min(Rechnungsausgang.[Steuersatz %]) AS RK_SteuersatzProzent, min(Rechnungsausgang.Währungscode) AS RK_Währungscode,
|
||||
|
||||
@@ -660,7 +660,8 @@ Public Class cSyska_Interface
|
||||
|
||||
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
|
||||
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
|
||||
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
|
||||
|
||||
genBuchungsZeileSum &= Format(CDbl(Bruttobetrag), fmt) & vbTab
|
||||
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
|
||||
@@ -695,7 +696,9 @@ Public Class cSyska_Interface
|
||||
|
||||
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
|
||||
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
|
||||
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
|
||||
'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
|
||||
|
||||
genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
|
||||
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
|
||||
@@ -720,7 +723,9 @@ Public Class cSyska_Interface
|
||||
|
||||
genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab
|
||||
genBuchungsZeileSum &= FiBuSollkontonummer & vbTab
|
||||
genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
|
||||
'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab)
|
||||
|
||||
genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
|
||||
genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz
|
||||
@@ -815,6 +820,7 @@ Public Class cSyska_Interface
|
||||
genBuchungsZeile &= FiBuHabenkontonummer & vbTab
|
||||
genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab
|
||||
|
||||
|
||||
genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
|
||||
genBuchungsZeile &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz
|
||||
genBuchungsZeile &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag
|
||||
|
||||
37
VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb
generated
37
VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb
generated
@@ -24,8 +24,8 @@ Partial Class frmTimasabfrage
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
|
||||
Me.cbxSchalterID = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.rbHO = New System.Windows.Forms.RadioButton()
|
||||
Me.rbBuero = New System.Windows.Forms.RadioButton()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
@@ -33,6 +33,7 @@ Partial Class frmTimasabfrage
|
||||
Me.btnClose = New System.Windows.Forms.Button()
|
||||
Me.btn = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblSchalter = New System.Windows.Forms.Label()
|
||||
Me.MyPanel1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
@@ -40,6 +41,8 @@ Partial Class frmTimasabfrage
|
||||
'
|
||||
Me.MyPanel1.BackColor = System.Drawing.Color.White
|
||||
Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.MyPanel1.Controls.Add(Me.lblSchalter)
|
||||
Me.MyPanel1.Controls.Add(Me.cbxSchalterID)
|
||||
Me.MyPanel1.Controls.Add(Me.rbHO)
|
||||
Me.MyPanel1.Controls.Add(Me.rbBuero)
|
||||
Me.MyPanel1.Controls.Add(Me.Button1)
|
||||
@@ -53,6 +56,24 @@ Partial Class frmTimasabfrage
|
||||
Me.MyPanel1.Size = New System.Drawing.Size(264, 103)
|
||||
Me.MyPanel1.TabIndex = 3
|
||||
'
|
||||
'cbxSchalterID
|
||||
'
|
||||
Me.cbxSchalterID._allowedValuesFreiText = Nothing
|
||||
Me.cbxSchalterID._allowFreiText = False
|
||||
Me.cbxSchalterID._value = ""
|
||||
Me.cbxSchalterID.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
|
||||
Me.cbxSchalterID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.cbxSchalterID.DropDownWidth = 50
|
||||
Me.cbxSchalterID.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.cbxSchalterID.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cbxSchalterID.FormattingEnabled = True
|
||||
Me.cbxSchalterID.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"})
|
||||
Me.cbxSchalterID.Location = New System.Drawing.Point(3, 34)
|
||||
Me.cbxSchalterID.Name = "cbxSchalterID"
|
||||
Me.cbxSchalterID.Size = New System.Drawing.Size(58, 28)
|
||||
Me.cbxSchalterID.TabIndex = 10
|
||||
Me.cbxSchalterID.Visible = False
|
||||
'
|
||||
'rbHO
|
||||
'
|
||||
Me.rbHO.AutoSize = True
|
||||
@@ -145,6 +166,16 @@ Partial Class frmTimasabfrage
|
||||
Me.Label1.Size = New System.Drawing.Size(222, 18)
|
||||
Me.Label1.TabIndex = 6
|
||||
'
|
||||
'lblSchalter
|
||||
'
|
||||
Me.lblSchalter.AutoSize = True
|
||||
Me.lblSchalter.Location = New System.Drawing.Point(3, 20)
|
||||
Me.lblSchalter.Name = "lblSchalter"
|
||||
Me.lblSchalter.Size = New System.Drawing.Size(46, 13)
|
||||
Me.lblSchalter.TabIndex = 11
|
||||
Me.lblSchalter.Text = "Schalter"
|
||||
Me.lblSchalter.Visible = False
|
||||
'
|
||||
'frmTimasabfrage
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -169,4 +200,6 @@ Partial Class frmTimasabfrage
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents rbHO As RadioButton
|
||||
Friend WithEvents rbBuero As RadioButton
|
||||
Public WithEvents cbxSchalterID As MyComboBox
|
||||
Friend WithEvents lblSchalter As Label
|
||||
End Class
|
||||
|
||||
@@ -2,6 +2,7 @@
|
||||
Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
|
||||
Public Datum As Date = CDate(Now.ToShortDateString)
|
||||
Public typ As Integer = -1
|
||||
Public Schalter As Integer = -1
|
||||
|
||||
Sub New()
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
@@ -20,6 +21,12 @@
|
||||
cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
|
||||
cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
|
||||
|
||||
cbxSchalterID.Items.Clear()
|
||||
cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", "1"))
|
||||
cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", "2"))
|
||||
cbxSchalterID.changeItem("")
|
||||
|
||||
If mit IsNot Nothing Then
|
||||
Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
|
||||
If mit.mit_homeoffice Then
|
||||
@@ -29,10 +36,23 @@
|
||||
rbHO.Checked = False
|
||||
cboTyp.changeItem("Büro")
|
||||
End If
|
||||
|
||||
If mit.mit_niederlassung = "NKD" Then
|
||||
|
||||
cbxSchalterID.Visible = True
|
||||
Else
|
||||
cbxSchalterID.Visible = False
|
||||
End If
|
||||
|
||||
lblSchalter.Visible = cbxSchalterID.Visible
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
@@ -40,10 +60,24 @@
|
||||
If typ = -1 Then
|
||||
MsgBox("Bitte Typ auswählen")
|
||||
DialogResult = Windows.Forms.DialogResult.None
|
||||
|
||||
Else
|
||||
DialogResult = Windows.Forms.DialogResult.OK
|
||||
End If
|
||||
|
||||
If mit.mit_niederlassung = "NKD" AndAlso Schalter = -1 Then
|
||||
MsgBox("Bitte Schalter auswählen")
|
||||
DialogResult = Windows.Forms.DialogResult.None
|
||||
|
||||
Else
|
||||
If Schalter > 0 Then
|
||||
mit.mit_SchalterID = Schalter
|
||||
mit.SAVE()
|
||||
End If
|
||||
|
||||
DialogResult = Windows.Forms.DialogResult.OK
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rbBuero_CheckedChanged(sender As Object, e As EventArgs) Handles rbBuero.CheckedChanged, rbHO.CheckedChanged
|
||||
@@ -58,4 +92,11 @@
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxSchalterID_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxSchalterID.SelectedValueChanged
|
||||
If cbxSchalterID._value <> "" AndAlso IsNumeric(cbxSchalterID._value) AndAlso CInt(cbxSchalterID._value) > 0 Then
|
||||
Schalter = cbxSchalterID._value
|
||||
Else
|
||||
Schalter = -1
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user