ustva

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -115,10 +115,10 @@ Partial Class frmMDM_USTVAntrag
         Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
         Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
         Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
+        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
         Me.pnlBottom.SuspendLayout()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1460,14 +1460,6 @@ Partial Class frmMDM_USTVAntrag
         Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169)
         Me.dgvUSTVPositionen.TabIndex = 0
         '
-        'UstCntlUSTV_AntragPosition1
-        '
-        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
-        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
-        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
-        '
         'dgvErstattungspositionen
         '
         Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500
@@ -1489,14 +1481,6 @@ Partial Class frmMDM_USTVAntrag
         Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172)
         Me.dgvErstattungspositionen.TabIndex = 1
         '
-        'UstCntlUSTV_AntragErstattungen1
-        '
-        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
-        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
-        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
-        '
         'txtSumme
         '
         Me.txtSumme._DateTimeOnly = False
@@ -1522,6 +1506,22 @@ Partial Class frmMDM_USTVAntrag
         Me.txtSumme.TabIndex = 49
         Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
+        'UstCntlUSTV_AntragPosition1
+        '
+        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
+        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
+        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
+        '
+        'UstCntlUSTV_AntragErstattungen1
+        '
+        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
+        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
+        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2464,7 +2464,7 @@ Public Class frmMDM_USTVAntrag
 
     Private Sub txtAbfNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfNr.TextChanged
 
-        If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 10000 AndAlso USTV_ANTRAG.AbfertigungsNr <> txtAbfNr.Text AndAlso Not btnAbfertigungsNrVergeben.Visible Then
+        If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 10000 AndAlso USTV_ANTRAG.AbfertigungsNr <> txtAbfNr.Text AndAlso (Not btnAbfertigungsNrVergeben.Visible) Then
             Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, txtAbfNr.Text, 0)
             If spedBuch.hasEntry Then
                 MsgBox("Es existiert bereits ein Speditionsbucheintrag mit dieser Nr!")
@@ -2498,6 +2498,32 @@ Public Class frmMDM_USTVAntrag
         cbxFiliale.Enabled = False
         btnAbfertigungsNrVergeben.Visible = False
 
+    End Sub
+
+    Private Sub txtAbfNr_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtAbfNr.PreviewKeyDown
+
+        If e.KeyValue = 9 Then
+            If IsNumeric(txtAbfNr.Text) AndAlso CInt(txtAbfNr.Text) > 10000 AndAlso USTV_ANTRAG.AbfertigungsNr <> txtAbfNr.Text Then
+                Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, txtAbfNr.Text, 0)
+                If spedBuch.hasEntry Then
+                    MsgBox("Es existiert bereits ein Speditionsbucheintrag mit dieser Nr!")
+                    Exit Sub
+                End If
+
+
+                If txtBezugsNr.Text = "" AndAlso txtAbfNr.Text.ToString.Length >= 6 Then
+                    txtBezugsNr.Text = txtAbfNr.Text.Substring(txtAbfNr.Text.ToString.Length - 6, 6)
+                    txtBezugsNr.Text = txtBezugsNr.Text.TrimStart("0"c)
+                End If
+
+            End If
+        End If
+
+
+
+
+
+
     End Sub
 
     Private Sub calcSumme()