NEU

VERAGMonitoring/frmEinzahlung.vb

@@ -0,0 +1,63 @@
+Public Class frmEinzahlung
+
+    Private BRG As New cBrgDb
+    Private Sub frmEinzahlung_Load(sender As Object, e As EventArgs) Handles Me.Load
+        cboBrg.Items.Add(New MyListItem("Aufschub VERAG Spedition AG (Deutschland)", "1"))
+        cboBrg.Items.Add(New MyListItem("Aufschub VERAG Spedition AG (Österreich)", "2"))
+        cboBrg.Items.Add(New MyListItem("Aufschub VERAG Customs Service GmbH (Österreich)", "3"))
+        cboBrg.Items.Add(New MyListItem("Aufschub VERAG Zollservice GmbH (Österreich)", "4"))
+        cboBrg.SelectedIndex = 0
+        initDgv()
+
+    End Sub
+    Sub initDgv()
+        dgvEinzahlungen.DataSource = BRG.loadDgv("SELECT brgak_id, brgakto_bez as Aufschubkonto,brgak_datum as Datum, brgak_betrag as Betrag FROM tblBrgAufschub,tblBrgAufschubKonten WHERE brgakto_id=brgak_brgaktoId AND brgak_art='einzahlung' ")
+        dgvEinzahlungen.Columns(0).Visible = False
+    End Sub
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        If isDouble(cbotxtBetrag.Text) Then
+            Dim oItem As MyListItem = CType(cboBrg.SelectedItem, MyListItem)
+            If BRG.insertBrgAufschubEinzahlung(Now.ToString("dd.MM.yyyy hh:mm:ss"), CDbl(cbotxtBetrag.Text) * -1, oItem.Value, "", "") Then
+                cbotxtBetrag.Text = ""
+                lblSaved.Visible = True
+                initDgv()
+            End If
+        End If
+    End Sub
+
+    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles cbotxtBetrag.TextChanged
+        If isDouble(sender.text) Then
+            sender.ForeColor = Color.DarkGreen
+        Else
+            sender.ForeColor = Color.DarkRed
+        End If
+    End Sub
+    Function isDouble(s)
+        Try : Dim d = CDbl(s) : Return True
+        Catch : Return False : End Try
+    End Function
+
+
+    Private Sub ComboBox1_GotFocus(sender As Object, e As EventArgs) Handles cboBrg.GotFocus, cbotxtBetrag.GotFocus, btnSave.LostFocus
+        lblSaved.Visible = False
+    End Sub
+
+    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
+        Me.Close()
+    End Sub
+
+   
+
+    Private Sub dgvEinzahlungen_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvEinzahlungen.KeyDown
+        If e.KeyCode = Keys.Delete Then
+            If vbYes = MsgBox("Möchten Sie den Eintrag löschen?", vbYesNo) Then
+                If BRG.delBrgAufschubEinzahlung(dgvEinzahlungen.CurrentRow.Cells(0).Value) Then
+                    initDgv()
+                End If
+            End If
+        End If
+    End Sub
+
+
+
+End Class