neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/KdSearchBox.vb

@@ -310,7 +310,7 @@ Public Class KdSearchBox
                     AvisoEmail = ", (SELECT CASE WHEN Count(*)>0 Then 'JA' ELSE '' END [Adressen] FROM [tblEmailBenachrichtigung] WHERE [eb_KundenNr]=AdressenNr) as [E-Mail] "
                 End If
                 Dim SQLstr As String = " SELECT top " & topAnz & " Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse " & AvisoEmail & "    "
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ",  Filialen.Firma as Firma_Intern "
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ",  Filialen.Firma as Firma_Intern "
                 SQLstr &= " FROM [Adressen] "
                 SQLstr &= "  INNER JOIN Kunden on KundenNr=AdressenNr  "
                 SQLstr &= "  INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
@@ -382,7 +382,7 @@ Public Class KdSearchBox
                 If srch2.StartsWith("*") Then srch2 = Replace(srch2, "*", "%", , 1) ' Suche mit beginnenden *
 
                 Dim SQLstr As String = " SELECT top 4 Ordnungsbegriff as Firma, AdressenNr as KdNr,Adressen.[LandKz] + ' ' + Adressen.[PLZ] + ' - ' + Adressen.[Ort] + ' ' + Adressen.[Straße] as Adresse   "
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ",  Filialen.Firma as Firma_Intern  "
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Or _AlleFirmenCLUSTER Or _UseFIRMA <> "" Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then SQLstr &= ",  Filialen.Firma as Firma_Intern  "
                 SQLstr &= " FROM [Adressen] "
                 SQLstr &= "  INNER JOIN Kunden on KundenNr=AdressenNr  "
                 SQLstr &= "  INNER JOIN Filialen on Filialen.FilialenNr=isnull(Kunden.FilialenNr,4803) "
@@ -407,7 +407,6 @@ Public Class KdSearchBox
                 '    SQLstr &= "  AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'  "
                 'End If
 
-
                 If _AlleFirmenCLUSTER Then
                     SQLstr &= "  AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice
                 ElseIf _UseFIRMA <> "" Then
@@ -771,6 +770,10 @@ Public Class KdSearchBox
             Me.usrcntl = New usrcntlKdSearch
             control.Controls.Add(usrcntl)
 
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
+                _AlleFirmenCLUSTER = True
+            End If
+
             'Me.usrcntl = usrcntl
             hideDgv(Me.usrcntl)
             If kdNrBox IsNot Nothing Then Me.kdNrField = kdNrBox

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb

@@ -102,6 +102,11 @@ Public Class MyTextBox
         addNowBtnToDate2()
         'addPicToGueltigBis()
     End Sub
+
+    Sub initPINSHowPic()
+        addNowBtnToPIN()
+        'addPicToGueltigBis()
+    End Sub
     Public Sub addNowBtnToDate()
         Dim tb = Me
         Dim pb As New MyLinkPicBoxVALUE
@@ -161,6 +166,33 @@ Public Class MyTextBox
                                        End If
                                    End Sub
 
+    End Sub
+
+    Public Sub addNowBtnToPIN()
+        Dim tb = Me
+        Dim pb As New MyLinkPicBoxVALUE
+        tb.Parent.Controls.Add(pb)
+        pb.Tag = "Feld bearbeiten"
+        pb.Left = tb.Left + tb.Width + 5 : pb.Top = tb.Top
+        pb.Height = 15 : pb.Width = 15
+        pb.Anchor = tb.Anchor
+        pb.SizeMode = PictureBoxSizeMode.Zoom
+        pb.Cursor = Cursors.Hand
+        pb.Image = My.Resources.stift
+        pb.linkedTextBox = tb
+
+        ' ToolTip Text zuordnen
+        Dim tooltip As New ToolTip '
+        tooltip.SetToolTip(pb, "Heute")
+
+        AddHandler pb.Click, AddressOf linkclickedPIN
+
+        'AddHandler tb.EnabledChanged, Sub(send, ev)
+        '                                  tb.ForeColor = Color.Black
+        '                              End Sub
+
+
+
     End Sub
 
 
@@ -176,6 +208,18 @@ Public Class MyTextBox
         End Try
     End Sub
 
+    Sub linkclickedPIN(sender As Object, e As EventArgs)
+        'Dim DateTimePicker1 As New DateTimePicker
+        ' Me.Parent.Controls.Add(DateTimePicker1)
+        Try
+            Dim tb As TextBox = sender.linkedTextBox
+            ' tb.Enabled = True
+            tb.ReadOnly = False
+            tb.BackColor = Color.White
+
+        Catch ex As Exception
+        End Try
+    End Sub
     Public Sub addPicToGueltigBis()
         Dim tb = Me
         Dim pb As New MyLinkPicBoxVALUE