edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ustva-Antraege, Email Fakturierung, FIskaluebersicht, Benachrichtigungen, Essensbestellungen für Unisped

Browse Source
This commit is contained in:
d.breimaier
2024-03-12 14:32:03 +01:00
parent d7d6d6fd02
commit 3433caa2e8
26 changed files with 940 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -5,6 +5,7 @@ Imports VERAG_PROG_ALLGEMEIN.cGlobal
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Reflection
Imports System.Web.UI.WebControls.WebParts
Public Class cSqlDb
@@ -1858,6 +1859,9 @@ Public Class cAvisoDAL
Dim tmpid = AvisoDAL.SpeichernAviso(av)
AvisoDAL.addAenderung(tmpid, "automatisch auf 'LKW nicht eingetroffen' gestellt", "automatisch auf 'LKW nicht eingetroffen' gestellt am " & Format(Now, "dd.MM.yyyy HH:mm") & ", da bereits länger als 10 Tage offen")
'TODO - Benachrichtigung für zuständigen Mitarbeiter einbauen
VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(av.AvisoID, -1, 3, "B", av.LetzterMitarbeiterId, "automatisch auf 'LKW nicht eingetroffen gesetzt", 0,, "automatisch auf 'LKW nicht eingetroffen' gestellt am " & Format(Now, "dd.MM.yyyy HH:mm") & ", da bereits länger als 10 Tage offen")
Check_Nicht_eingetroffen += 1
End While
dr.Close()

122
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb Normal file
View File

@@ -0,0 +1,122 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cUStVLeistender
Property UStV_Leistender As String
Property UstV_Leistender_PLZ As Object = Nothing
Property UstV_Leistender_Strasse As Object = Nothing
Property UstV_Leistender_Stadt As Object = Nothing
Property UstV_Leistender_StrasseNr As Object = Nothing
Property UstV_Leistender_Land As Object = Nothing
Property UstV_Leistender_UstNr As Object = Nothing
Property UstV_Leistender_Adresse As Boolean
Public hasEntry = False
Dim SQL As New SQL
Sub New(UStV_Leistender)
Me.UStV_Leistender = UStV_Leistender
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStV_Leistender", UStV_Leistender,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_PLZ", UstV_Leistender_PLZ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Strasse", UstV_Leistender_Strasse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Stadt", UstV_Leistender_Stadt))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_StrasseNr", UstV_Leistender_StrasseNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Land", UstV_Leistender_Land))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_UstNr", UstV_Leistender_UstNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UstV_Leistender_Adresse", UstV_Leistender_Adresse))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender) " &
" BEGIN " & getUpdateCmd() & " END " & " commit tran "
'" Else " &
'" BEGIN " & getInsertCmd() & " END " &
'" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender ", conn)
cmd.Parameters.AddWithValue("@UStV_Leistender", UStV_Leistender)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblUStVLeistender] SET " & str & " WHERE UStV_Leistender=@UStV_Leistender ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblUStVLeistender (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class

2
VERAG_PROG_ALLGEMEIN/Classes/cNCTSGestellungsadressen.vb
View File

@@ -14,6 +14,7 @@ Public Class cNCTSGestellungsadressen
Property nga_Ansprechpartner As Object = Nothing
Property nga_bestZollst As Object = Nothing
Property nga_SB As Object = Nothing
Property nga_ATANr As Object = Nothing
Property nga_firma As Object = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Property nga_Aenderungsdatum As Date = Now
@@ -45,6 +46,7 @@ Public Class cNCTSGestellungsadressen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI", nga_EORI))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_EORI_NL", nga_EORI_NL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_ATANr", nga_ATANr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_Ansprechpartner", nga_Ansprechpartner))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_bestZollst", nga_bestZollst))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nga_SB", nga_SB))

8
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -809,6 +809,14 @@ Public Class cSendungen
Return adresse.Trim
End Function
Public Function getNCTSATANr(Optional htmlOptimized As Boolean = False) As String
Dim ataNr = ""
ataNr &= If(Me.tblSnd_ATANr, "") & vbNewLine
If htmlOptimized Then ataNr = ataNr.Trim.Replace(vbNewLine, "<br/>")
Return ataNr.Trim
End Function
Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String
If tblSnd_EmpfaengerKdNr > 0 Then

12
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -61,12 +61,12 @@ Public Class cDATENSERVER
Me.rootDir = DATENVERVER_OPTIONS.initRootDir()
Me.da_KundenNr = da_KundenNr
Me.da_vorlage = 0 '(da_KundenNr <= 0)
Me.da_kategorie = da_kategorie
Me.da_ordner = da_ordner
Me.da_uOrdner1 = replaceInvalidCahr(If(da_uOrdner1, ""))
Me.da_uOrdner2 = replaceInvalidCahr(If(da_uOrdner2, ""))
Me.da_uOrdner3 = replaceInvalidCahr(If(da_uOrdner3, ""))
Me.da_name = da_name
Me.da_kategorie = IIf(Not IsDBNull(da_kategorie), da_kategorie, "")
Me.da_ordner = IIf(Not IsDBNull(da_ordner), da_ordner, "")
Me.da_uOrdner1 = replaceInvalidCahr(IIf(Not IsDBNull(da_uOrdner1), da_uOrdner1, ""))
Me.da_uOrdner2 = replaceInvalidCahr(IIf(Not IsDBNull(da_uOrdner2), da_uOrdner2, ""))
Me.da_uOrdner3 = replaceInvalidCahr(IIf(Not IsDBNull(da_uOrdner3), da_uOrdner3, ""))
Me.da_name = IIf(Not IsDBNull(da_name), da_name, "")
LOAD()
End Sub

37
VERAG_PROG_ALLGEMEIN/DATENSERVER/frmVorlagenUpload.Designer.vb generated
View File

@@ -34,6 +34,7 @@ Partial Class frmVorlagenUpload
Me.txtUnterordner1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtUnterordner2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.SuspendLayout()
'
'txtOrdner
@@ -119,9 +120,9 @@ Partial Class frmVorlagenUpload
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(8, 135)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(38, 13)
Me.Label3.Size = New System.Drawing.Size(42, 13)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Name:"
Me.Label3.Text = "Name*:"
'
'txtName
'
@@ -149,9 +150,9 @@ Partial Class frmVorlagenUpload
'btnUpload
'
Me.btnUpload.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUpload.Location = New System.Drawing.Point(221, 158)
Me.btnUpload.Location = New System.Drawing.Point(282, 158)
Me.btnUpload.Name = "btnUpload"
Me.btnUpload.Size = New System.Drawing.Size(225, 44)
Me.btnUpload.Size = New System.Drawing.Size(164, 44)
Me.btnUpload.TabIndex = 6
Me.btnUpload.Text = "Datei Auswählen + Upload"
Me.btnUpload.UseVisualStyleBackColor = True
@@ -187,12 +188,39 @@ Partial Class frmVorlagenUpload
Me.Label4.TabIndex = 9
Me.Label4.Text = "Unterordner 2:"
'
'MyTextBox1
'
Me.MyTextBox1._DateTimeOnly = False
Me.MyTextBox1._numbersOnly = False
Me.MyTextBox1._numbersOnlyKommastellen = ""
Me.MyTextBox1._numbersOnlyTrennzeichen = True
Me.MyTextBox1._Prozent = False
Me.MyTextBox1._ShortDateNew = False
Me.MyTextBox1._ShortDateOnly = False
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._TimeOnly_Seconds = False
Me.MyTextBox1._value = "* wenn leer, wird Dateiname + Endung aus Uploaddatei übernommen"
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.MyTextBox1.ForeColor = System.Drawing.Color.Red
Me.MyTextBox1.Location = New System.Drawing.Point(11, 158)
Me.MyTextBox1.MaxLineLength = -1
Me.MyTextBox1.MaxLines_Warning = ""
Me.MyTextBox1.MaxLines_Warning_Label = Nothing
Me.MyTextBox1.Multiline = True
Me.MyTextBox1.Name = "MyTextBox1"
Me.MyTextBox1.Size = New System.Drawing.Size(184, 32)
Me.MyTextBox1.TabIndex = 11
Me.MyTextBox1.Text = "* wenn leer, wird Dateiname + Endung aus Uploaddatei übernommen"
'
'frmVorlagenUpload
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(462, 213)
Me.Controls.Add(Me.MyTextBox1)
Me.Controls.Add(Me.txtUnterordner2)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtUnterordner1)
@@ -223,4 +251,5 @@ Partial Class frmVorlagenUpload
Friend WithEvents txtUnterordner1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtUnterordner2 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents MyTextBox1 As MyTextBox
End Class

13
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,7 +24,6 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -39,12 +38,12 @@ Partial Class frmMessenger
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -65,7 +64,7 @@ Partial Class frmMessenger
Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -93,9 +92,9 @@ Partial Class frmMessenger
Me.btnSendAtt = New System.Windows.Forms.Button()
Me.btnSenden = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
Me.Timer_REFRESH = New System.Windows.Forms.Timer()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()

1
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -43,7 +43,6 @@ Public Class frmMitarbeitersuche
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_MAVerzeichnis_SettingsTstmp Is Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pseudoUser Then
MsgBox("Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu können. Sie können die Einstellungen jederzeit ändern.")
Dim f As New frmMitarbeitersucheBearbeiten(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then

105
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.Designer.vb generated
View File

@@ -26,9 +26,6 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch = New System.Windows.Forms.Panel()
Me.btnClose = New System.Windows.Forms.Button()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.cbxAllowFoto = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button()
Me.txtMotto = New System.Windows.Forms.TextBox()
@@ -45,12 +42,16 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.lblName = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.pnlHoverPic = New System.Windows.Forms.Panel()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.txtKonfigHinweis = New System.Windows.Forms.TextBox()
Me.pnlSrch.SuspendLayout()
Me.pnlMain.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlHoverPic.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnlSrch
@@ -84,6 +85,7 @@ Partial Class frmMitarbeitersucheBearbeiten
'pnlMain
'
Me.pnlMain.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlMain.Controls.Add(Me.pnlHoverPic)
Me.pnlMain.Controls.Add(Me.cbxAllowFoto)
Me.pnlMain.Controls.Add(Me.btn)
Me.pnlMain.Controls.Add(Me.txtMotto)
@@ -99,45 +101,12 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlMain.Controls.Add(Me.lblWohnadresse)
Me.pnlMain.Controls.Add(Me.lblName)
Me.pnlMain.Controls.Add(Me.pic)
Me.pnlMain.Controls.Add(Me.pnlHoverPic)
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 29)
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(703, 335)
Me.pnlMain.Size = New System.Drawing.Size(703, 364)
Me.pnlMain.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label1.Location = New System.Drawing.Point(4, 1)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 24)
Me.Label1.TabIndex = 36
Me.Label1.Text = "Hover-Pic:"
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
Me.PictureBox2.TabIndex = 35
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Location = New System.Drawing.Point(8, 29)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(63, 59)
Me.PictureBox1.TabIndex = 34
Me.PictureBox1.TabStop = False
'
'cbxAllowFoto
'
Me.cbxAllowFoto.AutoSize = True
@@ -294,14 +263,59 @@ Partial Class frmMitarbeitersucheBearbeiten
'
'pnlHoverPic
'
Me.pnlHoverPic.Controls.Add(Me.Label1)
Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
Me.pnlHoverPic.Controls.Add(Me.PictureBox1)
Me.pnlHoverPic.Controls.Add(Me.PictureBox2)
Me.pnlHoverPic.Controls.Add(Me.txtKonfigHinweis)
Me.pnlHoverPic.Controls.Add(Me.Label1)
Me.pnlHoverPic.Location = New System.Drawing.Point(-1, 232)
Me.pnlHoverPic.Name = "pnlHoverPic"
Me.pnlHoverPic.Size = New System.Drawing.Size(181, 100)
Me.pnlHoverPic.TabIndex = 37
Me.pnlHoverPic.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!)
Me.Label1.Location = New System.Drawing.Point(4, 1)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 24)
Me.Label1.TabIndex = 36
Me.Label1.Text = "Hover-Pic:"
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox2.Location = New System.Drawing.Point(77, 29)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(63, 59)
Me.PictureBox2.TabIndex = 35
Me.PictureBox2.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.personGray_m
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBox1.Location = New System.Drawing.Point(8, 29)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(63, 59)
Me.PictureBox1.TabIndex = 34
Me.PictureBox1.TabStop = False
'
'txtKonfigHinweis
'
Me.txtKonfigHinweis.BackColor = System.Drawing.Color.White
Me.txtKonfigHinweis.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtKonfigHinweis.Location = New System.Drawing.Point(8, 9)
Me.txtKonfigHinweis.Multiline = True
Me.txtKonfigHinweis.Name = "txtKonfigHinweis"
Me.txtKonfigHinweis.Size = New System.Drawing.Size(321, 66)
Me.txtKonfigHinweis.TabIndex = 38
Me.txtKonfigHinweis.Text = "Sie müssen Ihren Benutzer erstmal konfigurieren, um das Verzeichnis einsehen zu k" &
"önnen. Sie können die Einstellungen jederzeit ändern."
'
'frmMitarbeitersucheBearbeiten
'
@@ -309,8 +323,8 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(703, 364)
Me.Controls.Add(Me.pnlMain)
Me.Controls.Add(Me.pnlSrch)
Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMitarbeitersucheBearbeiten"
@@ -319,11 +333,11 @@ Partial Class frmMitarbeitersucheBearbeiten
Me.pnlSrch.ResumeLayout(False)
Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlHoverPic.ResumeLayout(False)
Me.pnlHoverPic.PerformLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@@ -350,4 +364,5 @@ Partial Class frmMitarbeitersucheBearbeiten
Friend WithEvents PictureBox2 As Windows.Forms.PictureBox
Friend WithEvents PictureBox1 As Windows.Forms.PictureBox
Friend WithEvents pnlHoverPic As Windows.Forms.Panel
Friend WithEvents txtKonfigHinweis As Windows.Forms.TextBox
End Class

6
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
View File

@@ -18,12 +18,14 @@ Public Class frmMitarbeitersucheBearbeiten
Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load
If MA Is Nothing Then Me.Close()
txtKonfigHinweis.Visible = False
initMA()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then
pnlHoverPic.Visible = True
End If
End Sub
@@ -87,6 +89,10 @@ Public Class frmMitarbeitersucheBearbeiten
Else
PictureBox2.BackgroundImage = My.Resources.personGray_m
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_MAVerzeichnis_SettingsTstmp Is Nothing And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_pseudoUser Then txtKonfigHinweis.Visible = True
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click

5
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -81,6 +81,10 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\closedxml\95\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="DocumentFormat.OpenXml, Version=2.9.0.0, Culture=neutral, PublicKeyToken=8fb06cb64d019a17, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\OpenXML\DocumentFormat.OpenXml.dll</HintPath>
</Reference>
<Reference Include="Dynamsoft.Forms.Viewer, Version=8.3.3.726, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>F:\PROGRAMMIERUNG\dll\Dynamsoft\8.3.3\Dynamsoft.Forms.Viewer.dll</HintPath>
@@ -376,6 +380,7 @@
<Compile Include="Classes\cOriginalATR.vb" />
<Compile Include="Classes\cParkzeiten.vb" />
<Compile Include="Classes\cUeberstunden.vb" />
<Compile Include="Classes\USTV\cUStVLeistender.vb" />
<Compile Include="frmErrorMeldung.Designer.vb">
<DependentUpon>frmErrorMeldung.vb</DependentUpon>
</Compile>