SDL Jetzt erst recht!

2019-08-08 12:34:08 +02:00
parent f336f214e9
commit 5cbb13561f
1496 changed files with 522451 additions and 0 deletions
--- a/SDL/kunden/frmKundenZOLLVollmachten.vb
+++ b/SDL/kunden/frmKundenZOLLVollmachten.vb
@@ -0,0 +1,117 @@
+Public Class frmKundenZOLLVollmachten
+    Public kdnr As Integer = -1
+    Public vollmachtId As String
+    Public erhalten As Boolean = False
+    Dim id As Integer = -1
+    'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
+
+    Sub New(kdnr, vollmachtId, erhalten, datum, id)
+        Me.InitializeComponent()
+        If erhalten IsNot DBNull.Value Then Me.erhalten = erhalten
+        Me.kdnr = kdnr
+        Me.vollmachtId = vollmachtId
+        Me.txtDat.Text = If(IsDate(If(datum, "")), CDate(datum).ToShortDateString, "")
+        If id IsNot DBNull.Value Then Me.id = id
+
+    End Sub
+    Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
+        MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
+        Me.MyComboBox1._value = vollmachtId
+        Me.cbxErhaltenAm.Checked = erhalten
+
+        If id > 0 Then
+            pic.Visible = True
+            Label2.Text = "PDF vorhanden."
+            Label2.Cursor = Cursors.Hand
+        End If
+
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If Me.MyComboBox1._value < 0 Then Exit Sub
+        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "", "", "", MyComboBox1.Text, kdnr)
+        Dim path = DS.uploadDataToDATENSERVERFileDialog() ' cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "VOLLMACHTEN", kdnr, MyComboBox1.Text)
+        If path <> "" Then
+            id = DS.da_id 'cDATENSERVER.getLAST_ID(path)
+            MsgBox(id)
+            Label2.Text = "PDF vorhanden."
+            Label2.Cursor = Cursors.Hand
+        End If
+        pic.Visible = True = (id > 0)
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
+            DS.DELETE_COMPLETE()
+        End If
+
+        id = -1 : pic.Visible = False
+        Label2.Text = "Kein PDF vorhanden."
+        Label2.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Dim ksql As New kundenSQL
+        If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
+        Dim datVM As Object = Nothing
+        If cbxErhaltenAm.Checked Then
+            If txtDat.Text = "" Or Not IsDate(txtDat.Text) Then
+                txtDat.ForeColor = Color.Red
+                Me.DialogResult = Windows.Forms.DialogResult.None
+                Exit Sub
+            Else
+                datVM = txtDat.Text
+            End If
+        End If
+
+        If Not ksql.setVollmacht(kdnr, MyComboBox1._value, cbxErhaltenAm.Checked, datVM, "", id) Then
+            Me.DialogResult = Windows.Forms.DialogResult.None
+        End If
+    End Sub
+
+    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
+        If id > 0 Then
+            ' cDATENSERVER.openDataTMPByDatenarchivId(id)
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
+            DS.OPEN_SINGLE()
+        End If
+    End Sub
+
+    'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.CheckedChanged
+    '    ' MyTextBox1.Enabled = sender.checked
+    'End Sub
+    Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.Click
+        If Not sender.checked Then
+            txtDat.Text = ""
+        Else
+            txtDat.Text = Now.ToShortDateString
+        End If
+    End Sub
+
+    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtDat.TextChanged
+        txtDat.ForeColor = Color.Black
+        cbxErhaltenAm.Checked = (txtDat.Text <> "")
+    End Sub
+
+    Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtDat.KeyDown
+        If e.KeyCode = Keys.Return Then
+            btnOK.PerformClick()
+        End If
+        If e.KeyCode = Keys.Escape Then
+            Button1.PerformClick()
+        End If
+    End Sub
+
+    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
+        lbl.Text = MyComboBox1.Text
+    End Sub
+
+    Private Sub frmKundenZOLLVollmachten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        txtDat.Focus()
+        If txtDat.Text <> "" Then
+            cbxErhaltenAm.Checked = True
+            txtDat.SelectAll()
+        End If
+    End Sub
+End Class