USTVA

SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb

@@ -377,7 +377,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
         Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
         Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(182, 20)
-        Me.txtLeistungsbezeichnung.TabIndex = 9
+        Me.txtLeistungsbezeichnung.TabIndex = 8
         '
         'Label2
         '
@@ -441,7 +441,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
         Me.txtUSTBetrag.Name = "txtUSTBetrag"
         Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20)
-        Me.txtUSTBetrag.TabIndex = 14
+        Me.txtUSTBetrag.TabIndex = 10
         '
         'Label11
         '
@@ -475,7 +475,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
         Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs"
         Me.txtUmrechnungskurs.Size = New System.Drawing.Size(108, 20)
-        Me.txtUmrechnungskurs.TabIndex = 15
+        Me.txtUmrechnungskurs.TabIndex = 11
         '
         'Label12
         '
@@ -509,7 +509,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
         Me.txtUSTBetragEUR.Name = "txtUSTBetragEUR"
         Me.txtUSTBetragEUR.Size = New System.Drawing.Size(154, 20)
-        Me.txtUSTBetragEUR.TabIndex = 16
+        Me.txtUSTBetragEUR.TabIndex = 12
         '
         'Label13
         '
@@ -530,7 +530,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.cboLeistungsgeber.Location = New System.Drawing.Point(633, 49)
         Me.cboLeistungsgeber.Name = "cboLeistungsgeber"
         Me.cboLeistungsgeber.Size = New System.Drawing.Size(280, 21)
-        Me.cboLeistungsgeber.TabIndex = 8
+        Me.cboLeistungsgeber.TabIndex = 9
         '
         'Label4
         '

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,6 +1,7 @@
 
 
-Imports com.sun.org.apache.bcel.internal.generic
+
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class ustCntlUSTV_AntragPosition
@@ -14,6 +15,7 @@ Public Class ustCntlUSTV_AntragPosition
     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
@@ -58,12 +60,10 @@ Public Class ustCntlUSTV_AntragPosition
             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 : 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 5 : 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)
-
-
         End Select
-                scanSonstiges.INIT_daId(da_id)
-                scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
-                scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
+        scanSonstiges.INIT_daId(da_id)
+        scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
+        scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
 
         gridAktiv = True
     End Sub
@@ -108,8 +108,7 @@ Public Class ustCntlUSTV_AntragPosition
         Return UStV_POS.SAVE
     End Function
 
-    Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged,
-            txtLeistungsbezeichnung.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged
+    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_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
 
@@ -120,11 +119,36 @@ Public Class ustCntlUSTV_AntragPosition
 
             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
+
+        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 e.KeyValue = 9 Then
+
+                e.SuppressKeyPress = True
+                If txtChanged Then
+                    values_changed()
+                    txtChanged = False
+                End If
+
 
             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")
@@ -192,4 +216,6 @@ Public Class ustCntlUSTV_AntragPosition
         cboLeistungsgeber.changeItem(If(cboLeistungsgeber.Text, ""))
 
     End Sub
+
+
 End Class