ustva, etc.

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -265,6 +265,7 @@ Public Class ustCntlUSTV_AntragPosition
             txtOrt.Text = ""
             txtLand.Text = ""
             txtUIDNr.Text = ""
+            btnDel.Visible = False
         Else
 
             pnlAdresse.Enabled = True 'enablePanel 'immer änderbar!
@@ -274,7 +275,12 @@ Public Class ustCntlUSTV_AntragPosition
             txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "")
             txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "")
             txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
-            If UStV_Leist.hasEntry Then adressLoadedByLeistender = True
+            If UStV_Leist.hasEntry Then
+                adressLoadedByLeistender = True
+                btnDel.Visible = True
+            Else
+                btnDel.Visible = False
+            End If
 
         End If
 
@@ -340,6 +346,7 @@ Public Class ustCntlUSTV_AntragPosition
             End If
 
         Else
+
             Dim adresseChanged As Boolean = False
 
             If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True
@@ -409,6 +416,7 @@ Public Class ustCntlUSTV_AntragPosition
             cboSchnittstellennr.Items.Add(New MyListItem("MSE neu", 9))
             cboSchnittstellennr.Items.Add(New MyListItem("UTA neu", 10))
             cboSchnittstellennr.Items.Add(New MyListItem("PLOSE neu", 11))
+            cboSchnittstellennr.Items.Add(New MyListItem("IDS neu", 12))
         End If
 
     End Sub
@@ -431,7 +439,7 @@ Public Class ustCntlUSTV_AntragPosition
 
     End Sub
 
-    Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown
+    Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown, txtLeistungsbezeichnung.PreviewKeyDown
         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
@@ -540,13 +548,20 @@ Public Class ustCntlUSTV_AntragPosition
                         'If IsDate(txtRgDatum.Text) Then txtChanged = True
                     End If
 
+                ElseIf sender Is txtLeistungsbezeichnung Then
+
+                    txtChanged = True
+
+
 
                 ElseIf sender Is sbLeistender Then
                     If sbLeistender.Text <> "" Then
                         If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
                             If IsNumeric(sbLeistender.Text) Then
+                                If UStV_Leist.UStV_LeistenderId <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text Then txtChanged = True
                                 UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
                             Else
+                                If UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text Then txtChanged = True
                                 UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
                             End If
 
@@ -725,7 +740,7 @@ Public Class ustCntlUSTV_AntragPosition
 
     End Sub
 
-    Private Sub txtStrasse_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtStrasse.PreviewKeyDown, txtPLZ.PreviewKeyDown, txtOrt.PreviewKeyDown, txtLand.PreviewKeyDown, txtStrassenNr.PreviewKeyDown
+    Private Sub txtStrasse_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtStrasse.PreviewKeyDown, txtPLZ.PreviewKeyDown, txtOrt.PreviewKeyDown, txtLand.PreviewKeyDown, txtStrassenNr.PreviewKeyDown, txtUIDNr.PreviewKeyDown
 
         If gridAktiv And Me.FindForm IsNot Nothing Then
 
@@ -749,5 +764,35 @@ Public Class ustCntlUSTV_AntragPosition
 
 
 
+    End Sub
+
+    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+
+        Dim leistNew = sbLeistender.Text
+        UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(leistNew)
+
+        If UStV_Leist.hasEntry Then
+
+            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVALeistender_deaktiveren", Me.FindForm) Then
+                MsgBox("Nicht berechtigt!")
+                Exit Sub
+            End If
+
+            If Not vbYes = MsgBox("Soll der Leistende " & UStV_Leist.UStV_Leistender & " gelöscht werden?", vbYesNo) Then Exit Sub
+
+            UStV_Leist.UstV_aktiv = False
+            UStV_Leist.SAVE()
+            sbLeistender.Text = ""
+            sbLeistender._value = ""
+            UStV_POS.UStVPo_LeistenderId = -1
+            UStV_POS.UStVPo_Leistender = ""
+            values_changed()
+            btnDel.Visible = False
+
+
+        End If
+
+
+
     End Sub
 End Class