400 lines
18 KiB
VB.net
400 lines
18 KiB
VB.net
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class ustCntlUSTV_AntragPosition
|
|
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
|
|
Public UStV_Leist As VERAG_PROG_ALLGEMEIN.cUStVLeistender = Nothing
|
|
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
Public Antrag_LandKz = ""
|
|
Dim kdnr = ""
|
|
|
|
Public Event EV_PREV()
|
|
Public Event EV_NEXT()
|
|
Public Event CHANGED(UStVPo_ID)
|
|
Dim gridAktiv = False
|
|
Dim txtChanged As Boolean = False
|
|
Private Sub btnBildAuf_Click(sender As Object, e As EventArgs) Handles btnBildAuf.Click
|
|
RaiseEvent EV_PREV()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
RaiseEvent EV_NEXT()
|
|
End Sub
|
|
|
|
Sub reset()
|
|
txtRgDatum._value = ""
|
|
txtRgNr._value = ""
|
|
btnLeistenderSave.Visible = False
|
|
txtUmrechnungskurs._value = 1
|
|
txtLeistungsbezeichnung._value = ""
|
|
txtUmrechnungskurs._value = 1
|
|
txtUSTBetrag._value = 0
|
|
txtUSTBetragEUR._value = 0
|
|
cbxAPI.Checked = False
|
|
cboSchnittstellennr.changeItem("")
|
|
|
|
|
|
End Sub
|
|
|
|
Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender)
|
|
|
|
initSchnittstellenNr()
|
|
|
|
gridAktiv = False
|
|
btnLeistenderSave.Visible = False
|
|
Me.Antrag_LandKz = Antrag_LandKz
|
|
Me.UStV_POS = UStV_POS
|
|
Me.kdnr = kdnr
|
|
cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
|
|
cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, ""))
|
|
txtRgDatum._value = If(UStV_POS.UStVPo_ReDat, "")
|
|
txtRgNr._value = If(UStV_POS.UStVPo_ReNr, "")
|
|
lblSachbearbeiter.Text = If(UStV_POS.UStVPo_Sachbearbeiter, "")
|
|
If UStV_POS.UStVPo_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_POS.UStVPo_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
|
|
cboLeistungsgeber.Text = If(UStV_POS.UStVPo_Leistender, "")
|
|
txtLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "")
|
|
txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "")
|
|
txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
|
|
txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
|
|
|
|
sbLeistender.Text = UStV_Leitender.UStV_Leistender
|
|
loadChangedDSToPanel(UStV_Leitender, True)
|
|
|
|
Dim da_id = -1
|
|
Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
|
|
Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
|
|
Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
|
|
Case 4, 9 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblMSEInvoices] as inv inner join tblMSECustomers on inv.customer_number = customer_id where invoice_date='" & UStV_POS.UStVPo_ReDat & "' and country='" & Antrag_LandKz & "' AND partner_customer_number = " & kdnr & " AND daId is not null", "FMZOLL",,, -1)
|
|
Case 10 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & UStV_POS.UStVPo_ReDat & "' and Abrechnungsnummer='" & UStV_POS.UStVPo_ReNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1)
|
|
Case 8 : da_id = sql.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & UStV_POS.UStVPo_ReDat & "' and ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & UStV_POS.UStVPo_ReNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL",,, -1)
|
|
|
|
End Select
|
|
scanSonstiges.INIT_daId(da_id)
|
|
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
|
|
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
|
|
|
|
sbLeistender.initSearchBox(Me.FindForm, "[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, "UstV_aktiv = 1", "UStV_Leistender", "UStV_Leistender", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender"})
|
|
|
|
gridAktiv = True
|
|
End Sub
|
|
|
|
Sub getValues(ByRef UStV_POS, ByRef save)
|
|
|
|
If UStV_POS Is Nothing Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen()
|
|
'UStV_POS.
|
|
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
|
UStV_POS.UStVPo_Zeitstempel = Now
|
|
|
|
If txtRgNr._value <> "" Then
|
|
UStV_POS.UStVPo_ReNr = txtRgNr._value
|
|
Else
|
|
save = False
|
|
End If
|
|
|
|
If txtRgDatum._value <> "" AndAlso IsDate(txtRgDatum._value) Then
|
|
UStV_POS.UStVPo_ReDat = txtRgDatum._value
|
|
Else
|
|
save = False
|
|
End If
|
|
If txtUSTBetrag._value <> "" Then
|
|
UStV_POS.UStVPo_USteuerbetrag = txtUSTBetrag._value.Replace(",", ".")
|
|
Else
|
|
save = False
|
|
End If
|
|
|
|
If txtUSTBetragEUR._value <> "" Then
|
|
UStV_POS.UStVPo_USteuerbetragEUR = txtUSTBetragEUR._value.Replace(",", ".")
|
|
Else
|
|
save = False
|
|
End If
|
|
If txtLeistungsbezeichnung._value <> "" Then
|
|
UStV_POS.UStVPo_Leistungsbezeichnung = txtLeistungsbezeichnung._value
|
|
Else
|
|
save = False
|
|
End If
|
|
If Not (txtUmrechnungskurs.Text = "" And txtUmrechnungskurs._value = "") Then
|
|
If txtUmrechnungskurs.Text <> "" Then
|
|
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
|
|
ElseIf txtUmrechnungskurs._value <> "" Then
|
|
UStV_POS.UStVPo_Umrechnungskurs = txtUmrechnungskurs._value.Replace(",", ".")
|
|
End If
|
|
Else
|
|
save = False
|
|
End If
|
|
|
|
UStV_POS.UStVPo_Schnittstelle = cbxAPI.Checked
|
|
|
|
UStV_POS.UStVPo_SchnittstellenNr = IIf(cboSchnittstellennr.SelectedItem IsNot Nothing, cboSchnittstellennr._value, -1)
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
|
|
If e.KeyValue = Keys.PageDown Then
|
|
RaiseEvent EV_NEXT()
|
|
End If
|
|
If e.KeyValue = Keys.PageUp Then
|
|
RaiseEvent EV_PREV()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub txtUmrechnungskurs_TextChanged(sender As Object, e As EventArgs) Handles txtUmrechnungskurs.TextChanged
|
|
Dim gridAktivTMP = gridAktiv
|
|
gridAktiv = False
|
|
txtUSTBetragEUR._value = ""
|
|
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
|
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
|
'txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value
|
|
End If
|
|
gridAktiv = gridAktivTMP
|
|
End Sub
|
|
|
|
Function save()
|
|
Dim setSave As Boolean = True
|
|
getValues(UStV_POS, setSave)
|
|
'MsgBox("TEST")
|
|
If setSave Then Return UStV_POS.SAVE
|
|
Return False
|
|
End Function
|
|
|
|
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtLeistungsbezeichnung.TextChanged, txtRgDatum.TextChanged, txtRgNr.TextChanged, txtUSTBetrag.TextChanged, txtUmrechnungskurs.TextChanged, txtUSTBetragEUR.TextChanged
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
|
|
|
If gridAktiv And Me.FindForm IsNot Nothing Then
|
|
'If sender Is txtLieferung Then
|
|
' If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!")
|
|
'End If
|
|
|
|
If sender Is cboLeistungsgeber AndAlso cboLeistungsgeber.SelectedItem <> "" Then
|
|
'UStV_POS.UStVPo_Leistender = cboLeistungsgeber.SelectedItem
|
|
'values_changed()
|
|
|
|
Else
|
|
txtChanged = True
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub txtRgDatum_KeyUp(sender As Object, e As KeyEventArgs) Handles txtRgDatum.KeyUp, txtRgNr.KeyUp, txtUSTBetrag.KeyUp, txtUmrechnungskurs.KeyUp, txtUSTBetragEUR.KeyUp, sbLeistender.KeyUp
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then Exit Sub
|
|
|
|
If gridAktiv And Me.FindForm IsNot Nothing Then
|
|
|
|
If sender Is txtUSTBetrag Then
|
|
|
|
If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
|
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag._value / txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
|
'values_changed()
|
|
End If
|
|
|
|
ElseIf sender Is txtUSTBetragEUR Then
|
|
|
|
'so herum nicht umrechnen!!!!
|
|
'If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
|
' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
|
' 'values_changed()
|
|
'End If
|
|
|
|
ElseIf sender Is sbLeistender Then
|
|
If e.KeyValue = 9 Then
|
|
e.SuppressKeyPress = True
|
|
If UStV_Leist.hasEntry Then
|
|
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
|
values_changed()
|
|
'UStV_POS.SAVE()
|
|
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
If e.KeyValue = 9 Then 'SHIFT
|
|
e.SuppressKeyPress = True
|
|
If txtChanged Then
|
|
values_changed()
|
|
txtChanged = False
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Sub values_changed()
|
|
lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
|
lblAenderungsdatum.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
|
' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
|
|
If save() Then RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
|
End Sub
|
|
|
|
|
|
Private Sub loadChangedDSToPanel(UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, Optional initial As Boolean = False)
|
|
|
|
UStV_Leist = UStV_Leitender
|
|
|
|
'If newLeistender <> "" Then UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(newLeistender)
|
|
|
|
pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
|
|
txtStrasse.Text = If(UStV_Leist.UstV_Leistender_Strasse, "")
|
|
txtStrassenNr.Text = If(UStV_Leist.UstV_Leistender_StrasseNr, "")
|
|
txtPLZ.Text = If(UStV_Leist.UstV_Leistender_PLZ, "")
|
|
txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
|
|
txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
|
|
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
|
|
|
|
btnLeistenderSave.Visible = True
|
|
|
|
If Not initial Then
|
|
'Listener für Änderungen im Detail-Panel
|
|
For Each c As Control In pnlAdresse.Controls
|
|
If TypeOf (c) Is TextBox Then
|
|
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
|
|
End If
|
|
If TypeOf (c) Is MyComboBox Then
|
|
AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged
|
|
End If
|
|
Next
|
|
Else
|
|
|
|
btnLeistenderSave.Visible = False
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub SomethingChanged(sender As Object, e As EventArgs)
|
|
btnLeistenderSave.Visible = True
|
|
End Sub
|
|
|
|
Private Sub picSave_Click(sender As Object, e As EventArgs) Handles btnLeistenderSave.Click
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
|
|
MsgBox("keine Berechtigung!")
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim leistNew = sbLeistender.Text
|
|
|
|
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(leistNew)
|
|
|
|
If Not UStV_Leist.hasEntry Then
|
|
If vbYes = MsgBox("Dieser Leistende wurde noch nicht angelegt!" & vbNewLine & UStV_Leist.UStV_Leistender & " anlegen? ", vbYesNo) Then
|
|
|
|
UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
|
|
UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
|
|
UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
|
|
UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
|
|
UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
|
|
|
|
UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
|
|
|
|
If UStV_Leist.SAVE() Then
|
|
|
|
btnLeistenderSave.Visible = False
|
|
UStV_POS.UStVPo_Leistender = UStV_Leist
|
|
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
|
values_changed()
|
|
End If
|
|
End If
|
|
|
|
Else
|
|
|
|
Dim adresseChanged As Boolean = False
|
|
|
|
If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
|
|
If UStV_Leist.UstV_Leistender_StrasseNr <> If(txtStrassenNr.Text, "") Then adresseChanged = True
|
|
If UStV_Leist.UstV_Leistender_PLZ <> If(txtPLZ.Text, "") Then adresseChanged = True
|
|
If UStV_Leist.UstV_Leistender_Stadt <> If(txtOrt.Text, "") Then adresseChanged = True
|
|
If UStV_Leist.UstV_Leistender_Land <> If(txtLand.Text, "") Then adresseChanged = True
|
|
If UStV_Leist.UstV_Leistender_UstNr <> If(txtUIDNr.Text, "") Then adresseChanged = True
|
|
|
|
|
|
UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "")
|
|
UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "")
|
|
UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "")
|
|
UStV_Leist.UstV_Leistender_Stadt = If(txtOrt.Text, "")
|
|
UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "")
|
|
UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "")
|
|
UStV_Leist.UstV_Leistender_Adresse = True
|
|
|
|
If UStV_Leist.UstV_Leistender_Adresse And adresseChanged Then
|
|
If Not vbYes = MsgBox("Bei diesem Leistenden ist bereits eine Adresse hinterlegt, soll diese Adresse wirklich geändert werden?", vbYesNo) Then
|
|
|
|
btnLeistenderSave.Visible = False
|
|
UStV_POS.UStVPo_Leistender = UStV_Leist
|
|
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
|
values_changed()
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
If UStV_Leist.SAVE() Then
|
|
If Not UStV_Leist.UstV_Leistender_Adresse And adresseChanged Then UStV_Leist.UstV_Leistender_Adresse = True
|
|
btnLeistenderSave.Visible = False
|
|
UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender
|
|
'RaiseEvent CHANGED(UStV_POS.UStVPo_ID)
|
|
values_changed()
|
|
|
|
End If
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub cboLeistungsgeber_Enter(sender As Object, e As EventArgs) Handles cboLeistungsgeber.Enter
|
|
|
|
End Sub
|
|
|
|
Private Sub cboLeistungsgeber_DropDown(sender As Object, e As EventArgs) Handles cboLeistungsgeber.DropDown
|
|
cboLeistungsgeber.Items.Clear()
|
|
cboLeistungsgeber.fillWithSQL("select top 100 UStV_Leistender from tblUStVLeistender Where 1= 1 " & IIf(cboLeistungsgeber.Text <> "", "AND UStV_Leistender like '" & cboLeistungsgeber.Text & "%'", ""), False, "FMZOLL", True)
|
|
cboLeistungsgeber.changeItem(If(cboLeistungsgeber.Text, ""))
|
|
|
|
End Sub
|
|
|
|
Private Sub initSchnittstellenNr()
|
|
|
|
If cboSchnittstellennr.Items.Count = 0 Then
|
|
|
|
cboSchnittstellennr.Items.Add(New MyListItem("", -1))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("VERAG 360", 1))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("IDS alt", 2))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("TELEPASS", 3))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("MSE alt", 4))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("UTA alt", 5))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("PLOSE", 6))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("RMC", 7))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("IDS neu", 8))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("MSE neu", 9))
|
|
cboSchnittstellennr.Items.Add(New MyListItem("UTA neu", 10))
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub sbLeistender_VALUE_CHANGED() Handles sbLeistender.VALUE_CHANGED
|
|
|
|
If sbLeistender._value IsNot Nothing AndAlso sbLeistender._value <> "" Then
|
|
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender._value)
|
|
loadChangedDSToPanel(UStV_Leist)
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
End Class
|