gesamtsicherheiten, etc.

Aviso/frmGesamtsicherheitenNEU.vb

@@ -730,7 +730,7 @@ Public Class frmGesamtsicherheitenNEU
         End Select
     End Sub
 
-    Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosTime.KeyPress, txtSicherheitTime.KeyPress, txtUhrzeitaendern.KeyPress
+    Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosTime.KeyPress, txtSicherheitTime.KeyPress, txtUhrzeitaendern.KeyPress, txtAnzahl.KeyPress
         Select Case Asc(e.KeyChar)
             Case 48 To 57, 8, 44, 46, 58
                 'Case 48 To 57, 8, 44, 46, 58, 160, 188, 110, 111, 190, 226
@@ -802,12 +802,15 @@ Public Class frmGesamtsicherheitenNEU
                 attachPosNrToExistingATB = False
                 Dim warenwert As Double
                 Dim sicherheitsbetrag As Double
+                Dim AnzahlEH As Integer
                 If count > 1 Then
                     warenwert = 0
                     sicherheitsbetrag = 0
+                    AnzahlEH = 0
                 Else
                     warenwert = Double.Parse(txtSicherheitWarenwert.Text)
                     sicherheitsbetrag = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
+                    AnzahlEH = Integer.Parse(setNullToZero(txtAnzahl.Text))
                 End If
 
                 Dim OPEN As New cSicherheiten()
@@ -829,6 +832,7 @@ Public Class frmGesamtsicherheitenNEU
                     .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
                     .gs_zollsatz = Me.Zollsatz
                     .gs_avisoId = Me.avisoID
+                    .gs_EH_Anzahl = AnzahlEH
                     setEnviromentDataToObject(OPEN, Me)
                 End With
 
@@ -934,6 +938,7 @@ Public Class frmGesamtsicherheitenNEU
                 .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
                 .gs_zollsatz = Me.Zollsatz
                 .gs_avisoId = Me.avisoID
+                .gs_EH_Anzahl = Integer.Parse(setNullToZero(txtAnzahl.Text))
                 setEnviromentDataToObject(OPEN, Me)
             End With
 
@@ -1119,6 +1124,7 @@ Public Class frmGesamtsicherheitenNEU
         cboSicherheitATR.SelectedItem = Sicherh.gs_atr
         txtSicherheitDat.Text = Sicherh.gs_datum.ToString("dd.MM.yyyy")
         txtSicherheitTime.Text = Sicherh.gs_datum.ToString("HH:mm")
+        txtAnzahl.Text = Sicherh.gs_EH_Anzahl
 
         currentSicherheit = Sicherh
         txtAnzahlPos.Enabled = False
@@ -1160,7 +1166,7 @@ Public Class frmGesamtsicherheitenNEU
             .gs_gsNr = Me.gessicherheitID
             '.MakeDate = Me.MakeDate
             .gs_freitext = Me.txtSicherheitFreitext.Text
-            '.saldo = currentGesSichRef.Saldo
+            .gs_EH_Anzahl = Integer.Parse(setNullToZero(txtAnzahl.Text))
             .gs_atr = setNullToZero(cboSicherheitATR.SelectedItem)
         End With