neu

2020-05-31 22:25:35 +02:00
parent 4a358d43fd
commit 083e666fbc
214 changed files with 14292 additions and 4117 deletions
--- a/SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb
+++ b/SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb
@@ -25,6 +25,7 @@ Partial Class frmVorauskasse
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorauskasse))
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.cbxLKWAnkunft = New System.Windows.Forms.CheckBox()
        Me.txtBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -46,6 +47,7 @@ Partial Class frmVorauskasse
        Me.Label23 = New System.Windows.Forms.Label()
        Me.btnJahr = New System.Windows.Forms.Button()
        Me.pnlTop = New System.Windows.Forms.Panel()
+        Me.btnVK_VERAG_VR = New System.Windows.Forms.Button()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.btnBisJahr = New System.Windows.Forms.Button()
        Me.btnVonJahr = New System.Windows.Forms.Button()
@@ -90,6 +92,7 @@ Partial Class frmVorauskasse
        '
        Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cbxLKWAnkunft)
        Me.pnl.Controls.Add(Me.txtBetrag)
        Me.pnl.Controls.Add(Me.Label7)
        Me.pnl.Controls.Add(Me.txtFirma)
@@ -129,6 +132,16 @@ Partial Class frmVorauskasse
        Me.pnl.Size = New System.Drawing.Size(1199, 162)
        Me.pnl.TabIndex = 0
        '
+        'cbxLKWAnkunft
+        '
+        Me.cbxLKWAnkunft.AutoSize = True
+        Me.cbxLKWAnkunft.Location = New System.Drawing.Point(923, 131)
+        Me.cbxLKWAnkunft.Name = "cbxLKWAnkunft"
+        Me.cbxLKWAnkunft.Size = New System.Drawing.Size(151, 17)
+        Me.cbxLKWAnkunft.TabIndex = 71
+        Me.cbxLKWAnkunft.Text = "LKW auf Status ""Ankunft"""
+        Me.cbxLKWAnkunft.UseVisualStyleBackColor = True
+        '
        'txtBetrag
        '
        Me.txtBetrag._DateTimeOnly = False
@@ -148,7 +161,7 @@ Partial Class frmVorauskasse
        Me.txtBetrag.MaxLines_Warning = ""
        Me.txtBetrag.MaxLines_Warning_Label = Nothing
        Me.txtBetrag.Name = "txtBetrag"
-        Me.txtBetrag.Size = New System.Drawing.Size(137, 20)
+        Me.txtBetrag.Size = New System.Drawing.Size(135, 20)
        Me.txtBetrag.TabIndex = 70
        Me.txtBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        '
@@ -437,6 +450,7 @@ Partial Class frmVorauskasse
        'pnlTop
        '
        Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlTop.Controls.Add(Me.btnVK_VERAG_VR)
        Me.pnlTop.Controls.Add(Me.Label4)
        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
@@ -444,6 +458,22 @@ Partial Class frmVorauskasse
        Me.pnlTop.Size = New System.Drawing.Size(1197, 48)
        Me.pnlTop.TabIndex = 34
        '
+        'btnVK_VERAG_VR
+        '
+        Me.btnVK_VERAG_VR.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnVK_VERAG_VR.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnVK_VERAG_VR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
+        Me.btnVK_VERAG_VR.ForeColor = System.Drawing.Color.White
+        Me.btnVK_VERAG_VR.Image = Global.SDL.My.Resources.Resources.moneybag1
+        Me.btnVK_VERAG_VR.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnVK_VERAG_VR.Location = New System.Drawing.Point(900, 3)
+        Me.btnVK_VERAG_VR.Name = "btnVK_VERAG_VR"
+        Me.btnVK_VERAG_VR.Size = New System.Drawing.Size(185, 42)
+        Me.btnVK_VERAG_VR.TabIndex = 71
+        Me.btnVK_VERAG_VR.Text = "VK Konto VERAG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VR-Bank Passau"
+        Me.btnVK_VERAG_VR.UseVisualStyleBackColor = False
+        Me.btnVK_VERAG_VR.Visible = False
+        '
        'Label4
        '
        Me.Label4.AutoSize = True
@@ -961,4 +991,6 @@ Partial Class frmVorauskasse
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents btnDel As System.Windows.Forms.Button
    Friend WithEvents Button4 As Button
+    Friend WithEvents btnVK_VERAG_VR As Button
+    Friend WithEvents cbxLKWAnkunft As CheckBox
 End Class
--- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb
+++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb
@@ -78,6 +78,10 @@
            btnDel.Visible = True
        End If

+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VORAUSKASSE_Bank_Login_VERAG", Me) Then
+            btnVK_VERAG_VR.Visible = True
+        End If
+

    End Sub

@@ -131,22 +135,46 @@
    End Sub


-    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
+    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxLKWAnkunft.CheckedChanged
+
+        'If sender Is cbxLKWAnkunft Then
+        '    If vbYes = MsgBox("Achtung - komplexe Abfrage: ", vbYesNoCancel) Then
+        'End If
+        If cbxLKWAnkunft.Checked Then
+            txtMaxSrch.Text = 50
+            txtAbfertDat.Enabled = False
+            txtAbfertDatBis.Enabled = False
+            DateTimePicker1.Enabled = False
+            DateTimePicker2.Enabled = False
+        Else
+            txtAbfertDat.Enabled = True
+            txtAbfertDatBis.Enabled = True
+            DateTimePicker1.Enabled = True
+            DateTimePicker2.Enabled = True
+        End If
+
        Me.Cursor = Cursors.WaitCursor

        Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
        Dim sqlstr As String = ""
+        Dim LKWAnkunft = " WHERE 1=1   "
+        If cbxLKWAnkunft.Checked Then
+            '  LKWAnkunft = " , (SELECT TOP 1 Count(*) FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".AVISO.dbo.AVISO INNER JOIN " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".AVISO.dbo.tblSendungen  on AVISO.AvisoId=tblSendungen.tblSnd_AvisoID where Status=1 and FilialenNr=[vk_FilialeNr] and AbfertigungsNr=[vk_AbfertigungsNr] ) LKW_Ankunft "
+            'LKWAnkunft = "  and  (SELECT TOP 1 Count(*) FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".AVISO.dbo.AVISO INNER JOIN " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".AVISO.dbo.tblSendungen  on AVISO.AvisoId=tblSendungen.tblSnd_AvisoID where Status=" & VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft & " and FilialenNr=[vk_FilialeNr] and AbfertigungsNr=[vk_AbfertigungsNr] ) >0 "
+            LKWAnkunft = " inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".AVISO.dbo.tblSendungen on FilialenNr=[vk_FilialeNr] and AbfertigungsNr=[vk_AbfertigungsNr]  inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.AVISO_SERVER & ".AVISO.dbo.AVISO  on AVISO.AvisoId=tblSendungen.tblSnd_AvisoID   WHERE 1=1  and Status=3 "
+        End If

+        'sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben " & LKWAnkunft & " FROM tblVorauskassen  WHERE 1=1 "
+        sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben  FROM tblVorauskassen  " & LKWAnkunft & " "

-        sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben  FROM tblVorauskassen  WHERE 1=1 "
-
+        ' MsgBox(sqlstr & getVorauskasseWhere() & " ORDER BY vk_Datum desc ")
        With MyDatagridview1
            '  .DataSource = myTable
            .SET_SQL(sqlstr & getVorauskasseWhere() & " ORDER BY vk_Datum desc ", "FMZOLL", getVorauskasseList)
            .LOAD()
            setDGVOptions()
        End With
-            showDGV()
+        showDGV()

        Me.Cursor = Cursors.Default

@@ -156,11 +184,13 @@
    Function getVorauskasseWhere() As String
        Dim sqlstr = ""

-        If txtAbfertDat.Text <> "" Then
-            If txtAbfertDatBis.Text <> "" Then
-                sqlstr &= " AND ([vk_Datum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum_bis ) "
-            Else
-                sqlstr &= " AND ([vk_Datum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum ) "
+        If Not cbxLKWAnkunft.Checked Then
+            If txtAbfertDat.Text <> "" Then
+                If txtAbfertDatBis.Text <> "" Then
+                    sqlstr &= " AND ([vk_Datum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum_bis ) "
+                Else
+                    sqlstr &= " AND ([vk_Datum] BETWEEN @Abfertigungsdatum AND @Abfertigungsdatum ) "
+                End If
            End If
        End If

@@ -186,10 +216,12 @@
    Function getVorauskasseList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)

        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
-      
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", txtAbfertDat.Text & " 00:00:00"))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum_bis", txtAbfertDatBis.Text & " 23:59:59"))
-           list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))
+
+        If Not cbxLKWAnkunft.Checked Then
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", txtAbfertDat.Text & " 00:00:00"))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum_bis", txtAbfertDatBis.Text & " 23:59:59"))
+        End If
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%")))

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value))

@@ -431,6 +463,50 @@

        End If
    End Sub
+
+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles btnVK_VERAG_VR.Click
+        Dim f As New frmInfo
+        f.Controls.Clear()
+        Dim f_EORI As Form
+        Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx
+
+        f.Controls.Add(WebBrowser)
+        f.Visible = True
+        'f.Visible = false
+        'f.WindowState = FormWindowState.Minimized
+        f.Show()
+        f_EORI = f
+        WebBrowser.Dock = DockStyle.Fill
+        WebBrowser.Navigate(New Uri("https://www.vr-bank-passau.de/banking-business/entry"))
+        f.Size = New Size(1000, 1300)
+        f.StartPosition = FormStartPosition.CenterScreen
+        f.Top = 0
+        WebBrowser.AllowNavigation = True
+        Dim doFilling = True
+        Dim doFilling2 = False
+        WebBrowser.ScriptErrorsSuppressed = True
+        Dim cnt = 0
+        AddHandler WebBrowser.DocumentCompleted, Sub()
+                                                     cnt += 1
+                                                     If cnt > 1 Then Exit Sub
+                                                     ' Print the document now that it is fully loaded.
+                                                     If WebBrowser.ReadyState = WebBrowserReadyState.Complete Then
+
+                                                         Try
+
+                                                             WebBrowser.Document.GetElementById("txtBenutzerkennung").SetAttribute("value", "261016389")
+                                                             WebBrowser.Document.GetElementById("pwdPin").SetAttribute("value", "Frontoffice2020")
+
+                                                             WebBrowser.Document.GetElementById("xview-anmelden").InvokeMember("click")
+
+                                                         Catch ex As Exception
+
+                                                         End Try
+                                                     End If
+
+                                                 End Sub
+
+    End Sub
 End Class