USTV Anpassungen, Fatkurierung-Fix: doppelte RgNr Vergabe

2022-10-11 22:17:22 +02:00
parent 9944bfc50a
commit c60b1ef498
11 changed files with 2097 additions and 726 deletions
--- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb
+++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb
@@ -0,0 +1,88 @@
+Public Class ustCntlUSTV_AntragPosition
+    Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
+
+    Public Event EV_PREV()
+    Public Event EV_NEXT()
+    Public Event CHANGED(UStVPo_ID)
+    Dim gridAktiv = 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 = ""
+    End Sub
+
+    Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen)
+        gridAktiv = False
+        Me.UStV_POS = UStV_POS
+        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")
+        txtLeistender.Text = If(UStV_POS.UStVPo_Leistender, "")
+        cboLeistungsbezeichnung.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, "")
+        gridAktiv = True
+    End Sub
+
+    Sub getValues(ByRef UStV_POS)
+        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
+    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._value = txtUSTBetrag._value * txtUmrechnungskurs._value
+        End If
+        gridAktiv = gridAktivTMP
+    End Sub
+
+    Function save()
+        getValues(UStV_POS)
+        MsgBox("TEST")
+        Return UStV_POS.save
+    End Function
+
+    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsbezeichnung.SelectedIndexChanged,
+            txtLeistender.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged
+
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_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
+            values_changed()
+        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
+End Class