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

NCTS 5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-24 23:04:33 +02:00
parent c9ef013f2b
commit 04166a91f0
31 changed files with 10589 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

83
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersucheBearbeiten.vb
View File

@@ -19,6 +19,11 @@ Public Class frmMitarbeitersucheBearbeiten
Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load
If MA Is Nothing Then Me.Close()
initMA()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Then
pnlHoverPic.Visible = True
End If
End Sub
@@ -59,6 +64,29 @@ Public Class frmMitarbeitersucheBearbeiten
pic.BackgroundImage = My.Resources.personGray_m
End If
If MA.mit_fotoHover1_DocId IsNot Nothing Then
Try
PictureBox1.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId))
Catch ex As Exception
PictureBox1.BackgroundImage = My.Resources.personGray_m
End Try
ElseIf MA.mit_geschlecht = "w" Then
PictureBox1.BackgroundImage = My.Resources.personGray_w
Else
PictureBox1.BackgroundImage = My.Resources.personGray_m
End If
If MA.mit_fotoHover2_DocId IsNot Nothing Then
Try
PictureBox2.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId))
Catch ex As Exception
PictureBox2.BackgroundImage = My.Resources.personGray_m
End Try
ElseIf MA.mit_geschlecht = "w" Then
PictureBox2.BackgroundImage = My.Resources.personGray_w
Else
PictureBox2.BackgroundImage = My.Resources.personGray_m
End If
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
@@ -129,7 +157,7 @@ Public Class frmMitarbeitersucheBearbeiten
Dim Extension = New IO.FileInfo(fd.FileName).Extension
Dim docId = -1
If saveToDS(Extension, fd.FileName, docId) Then
If saveToDS(Extension, fd.FileName, "FRONT", docId) Then
MA.mit_foto_DocId = docId
Try
@@ -141,13 +169,13 @@ Public Class frmMitarbeitersucheBearbeiten
End If
End Sub
Public Function saveToDS(Extension, sourcePath, Optional ByRef da_id = -1) As Boolean
Public Function saveToDS(Extension, sourcePath, art, Optional ByRef da_id = -1) As Boolean
Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing
If da_id > 0 Then
DS = New cDATENSERVER(da_id)
Else
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id & Extension, -1, False)
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id & "_" & art & Extension, -1, False)
End If
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id, -1, False)
@@ -159,4 +187,53 @@ Public Class frmMitarbeitersucheBearbeiten
Return True
End Function
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
Dim fd As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog()
fd.Title = "Bild auswählen"
' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK AndAlso fd.FileName <> "" Then
Dim Extension = New IO.FileInfo(fd.FileName).Extension
Dim docId = -1
If saveToDS(Extension, fd.FileName, "HOVER1", docId) Then
MA.mit_fotoHover1_DocId = docId
Try
PictureBox1.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover1_DocId))
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
End If
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
Dim fd As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog()
fd.Title = "Bild auswählen"
' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\"
fd.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG"
fd.FilterIndex = 2
fd.RestoreDirectory = True
If fd.ShowDialog() = DialogResult.OK AndAlso fd.FileName <> "" Then
Dim Extension = New IO.FileInfo(fd.FileName).Extension
Dim docId = -1
If saveToDS(Extension, fd.FileName, "HOVER2", docId) Then
MA.mit_fotoHover2_DocId = docId
Try
PictureBox2.BackgroundImage = Image.FromFile(cDATENSERVER.GET_PDFPath_BY_DocID(MA.mit_fotoHover2_DocId))
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End If
End If
End Sub
End Class