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

Compare commits

base: edv:16c006d1e694e49f6d3a223eefed5b76198bb1fd
Branches Tags
edv:master edv:ADMIN
..
compare: edv:ADMIN
Branches Tags
edv:ADMIN edv:master

6 Commits
16c006d1e6 ... ADMIN

Author SHA1 Message Date
d.breimaier
dd1986a0ef cbam importer, sessions, mailsender, etc. 2026-11-09 14:52:32 +01:00
d.breimaier
77b757b031 Sicherheiten -> CBAM 2026-11-06 11:02:06 +01:00
d.breimaier
01995273bf Prüfung Datenarchiv 2026-11-05 08:59:08 +01:00
d.breimaier
9d12668947 div. Änderungen 2026-11-03 17:12:03 +01:00
d.breimaier
a5d94dedac Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN 2026-10-30 17:24:40 +01:00
d.breimaier
0171437c65 Mitarbeier-Austritte (autom. Ticketerstellung) 2026-10-30 17:24:37 +01:00
18 changed files with 592 additions and 126 deletions
Expand all files Collapse all files

15
DAKOSY_Worker/cImporter_DHFToVERAG.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient
Imports System.Reflection
Imports com.sun.tools.doclets.internal.toolkit.resources
Imports java.lang
Imports TELOTEC_Worker
Imports VERAG_PROG_ALLGEMEIN
@@ -147,7 +148,7 @@ Public Class cImporter_DHFToVERAG
Dim dtItems = SQL.loadDgvBySql(
$"SELECT * FROM zsAnmGdsitem WHERE LizenzNr='{LizenzNr}' AND OperatorID={OperatorID} AND VorgangID='{VorgangID}' AND AnmID={AnmID} ORDER BY GdsItemID",
EZOLL_DB)
Dim hasValidCBAMDocNr_VERAG As Boolean = False
For Each r In dtItems.Rows
Dim it As New cVERAG_CustomsDeclarations_Item
@@ -160,7 +161,7 @@ Public Class cImporter_DHFToVERAG
it.zaItem_StatisticalValueEUR = ToNullableDecimal(r("StatVal"))
LoadEZOLL_HSAddCodes(it, LizenzNr, OperatorID, VorgangID, AnmID, r("GdsItemID"))
LoadEZOLL_ItemDocuments(it, LizenzNr, OperatorID, VorgangID, AnmID)
LoadEZOLL_ItemDocuments(it, LizenzNr, OperatorID, VorgangID, AnmID, hasValidCBAMDocNr_VERAG)
it.zaItem_MainProcedure = ToStringSafe(r("ProcCd"))
it.zaItem_AdditionalProc = ToStringSafe(r("ProcAddCd"))
@@ -189,7 +190,7 @@ Public Class cImporter_DHFToVERAG
'CBAM WARNING
' ================================================================
If freshInsert Then
ZA.checkfreshCBAMWarning()
ZA.checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG)
End If
' SAVE
@@ -282,7 +283,8 @@ Public Class cImporter_DHFToVERAG
LizenzNr As String,
OperatorID As Integer,
VorgangID As String,
AnmID As Integer)
AnmID As Integer,
ByRef hasValidCBAMDocNr_VERAG As Boolean)
Dim sql As String =
"SELECT * FROM zsAnmGdsItemDocCerts " &
@@ -323,6 +325,11 @@ Public Class cImporter_DHFToVERAG
doc.zaDoc_DepreciationUnitmeasurement = ToStringSafe(r("Unit"))
doc.zaDoc_DepreciationUnitmeasurementQualifier = ToStringSafe(r("WOUnit"))
'CBAM-CHECK
If doc.zaDoc_Code = "Y128" And doc.zaDoc_Reference = "CBAM-AT-2025-TAX29885328923" Then
hasValidCBAMDocNr_VERAG = True
End If
IT.Documents.Add(doc)
Next

8
DAKOSY_Worker/cImporter_DakosyToVERAG.vb
View File

@@ -214,6 +214,7 @@ Public Class cImporter_DakosyToVERAG
Next
End If
Dim hasValidCBAMDocNr_VERAG As Boolean = False
' ================================================================
' POSITIONEN + POSITIONS-UNTERLAGEN
' ================================================================
@@ -290,7 +291,10 @@ Public Class cImporter_DakosyToVERAG
doc.zaDoc_DepreciationUnitmeasurement = ul.ezaWpUl_AbschreibungsMengeMasseinheit
doc.zaDoc_DepreciationUnitmeasurementQualifier = ul.ezaWpUl_AbschreibungsMengeMasseinheitQualifier
'CBAM-CHECK
If doc.zaDoc_Code = "Y128" And doc.zaDoc_Reference = "CBAM-AT-2025-TAX29885328923" Then
hasValidCBAMDocNr_VERAG = True
End If
item.Documents.Add(doc)
Next
@@ -333,7 +337,7 @@ Public Class cImporter_DakosyToVERAG
'CBAM WARNING
' ================================================================
If freshInsert Then
ZA.checkfreshCBAMWarning()
ZA.checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG)
End If
' ================================================================

10
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -103,6 +103,8 @@ Public Class cImporter_TelotecToVERAG
AddParty(ZA, "EXPORTER", tel.ExpTra_TIN, tel.ExpTra_Na, tel.ExpTra_Strt, tel.ExpTra_Pst, tel.ExpTra_Cty, tel.ExpTra_Ctry, tel.ExpTra_UID)
AddParty(ZA, "DECLARANT", tel.Declarant_TIN, tel.Declarant_Na, tel.Declarant_Strt, tel.Declarant_Pst, tel.Declarant_Cty, tel.Declarant_Ctry, tel.Declarant_UID)
Dim hasValidCBAMDocNr_VERAG As Boolean = False
' ================================================================
' ABGABEN (HEADER)
' ================================================================
@@ -181,6 +183,12 @@ Public Class cImporter_TelotecToVERAG
.zaDoc_Date = Doc_Date
}
it.Documents.Add(dd)
'CBAM-CHECK
If dd.zaDoc_Code = "Y128" And dd.zaDoc_Reference = "CBAM-AT-2025-TAX29885328923" Then
hasValidCBAMDocNr_VERAG = True
End If
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
@@ -196,7 +204,7 @@ Public Class cImporter_TelotecToVERAG
'CBAM WARNING
' ================================================================
If freshinsert Then
ZA.checkfreshCBAMWarning()
ZA.checkfreshCBAMWarning(hasValidCBAMDocNr_VERAG)
End If
' ================================================================
' ================================================================

51
MailSender/MAILSender.vb
View File

@@ -57,7 +57,7 @@ Module Mail
' PARAM = "MDM_IT_Verguetung"
'PARAM = "JAHRESABRECHNUNG AG-ZS"
'PARAM = "KANADEVIA_DETAIL"
'PARAM = "KANADEVIA_INVOICE_REPORT"
'------------------------------------------------------------------------------------
@@ -226,7 +226,7 @@ Module Mail
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Else
System.Console.WriteLine("OPTION erkannt: THYSSENKRUPP_AUSWERTUNG _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für THYSSENKRUPP.")
System.Console.WriteLine("OPTION erkannt: THYSSENKRUPP_AUSWERTUNG _ Erstellt eine monatliche Auswertung der DAKSOY-Abfertigungen für THYSSENKRUPP.")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_THYSSENKRUPP_AUSWERTUNG("al@verag.ag", EORI, von, bis) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
@@ -370,6 +370,53 @@ Module Mail
Next
Case "KANADEVIA_INVOICE_REPORT"
Dim von As Date
Dim bis As Date
If Now.Month = 1 Then
von = New Date(Now.Year - 1, 1, 1)
bis = New Date(Now.Year - 1, 12, 31)
Else
von = New Date(Now.Year, 1, 1)
bis = New Date(Now.Year, Now.Month, 1).AddDays(-1)
End If
Dim mailTo = "Julie.Garton@kanadevia-inova.com; Mark.Stauffer@kanadevia-inova.com;Sevda.Aksoy@kanadevia-inova.com; Iryna.Hauser@kanadevia-inova.com;Cansu.Buldum@kanadevia-inova.com;Koray.Genis@kanadevia-inova.com"
Dim mailToBCC = "ml@verag.ag;al@verag.ag;"
'mailToBCC = "d.breimaier@verag.ag;"
'mailTo = "d.breimaier@verag.ag;"
Dim ListOfKdNr As New List(Of Integer)
ListOfKdNr.Add(770931)
ListOfKdNr.Add(772819)
ListOfKdNr.Add(773157)
ListOfKdNr.Add(773143)
For Each kdNr As Integer In ListOfKdNr
Dim Adr As New cAdressen(kdNr)
Dim Body As String = "Please find attached the cost report for the period from " & von.ToShortDateString & " to " & bis.ToShortDateString & " from " & Adr.Name_1 & " (Customer-No.: " & Adr.AdressenNr & ") " &
"<br><br>Generated on: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString &
"<br><br><br>This is an automatically generated email. Please do not reply to this email." &
"<br><br>VERAG SPEDITION AG"
Dim RPT As New VERAG_PROG_ALLGEMEIN.cInvoiceReport
System.Console.WriteLine("Auswertung " & PARAM & " gestartet...")
If SendEmail_KANADEVIA(mailTo, RPT.RunReport_VERAG_INVOICE(kdNr, von, bis), von, bis,, mailToBCC, PARAM, Body) Then
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Next

1
UID/ADMIN.vbproj
View File

@@ -1113,6 +1113,7 @@
<None Include="Resources\ok.png" />
<None Include="Resources\fragezeichen.png" />
<None Include="Resources\sdl_ico2.ico" />
<None Include="Resources\email_big1.png" />
<Content Include="uid.ico" />
</ItemGroup>
<ItemGroup>

63
UID/Dienstplan/usrcntlSessions.Designer.vb generated
View File

@@ -39,6 +39,8 @@ Partial Class usrcntlSessions
Me.Label74 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.dgvSessions = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.lbl_letzteAnm = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
CType(Me.dgvSessions, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -58,13 +60,13 @@ Partial Class usrcntlSessions
Me.txtSessDatVon._WaehrungZeichen = True
Me.txtSessDatVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSessDatVon.ForeColor = System.Drawing.Color.Black
Me.txtSessDatVon.Location = New System.Drawing.Point(43, 12)
Me.txtSessDatVon.Location = New System.Drawing.Point(43, 18)
Me.txtSessDatVon.MaxLength = 10
Me.txtSessDatVon.MaxLineLength = -1
Me.txtSessDatVon.MaxLines_Warning = ""
Me.txtSessDatVon.MaxLines_Warning_Label = Nothing
Me.txtSessDatVon.Name = "txtSessDatVon"
Me.txtSessDatVon.Size = New System.Drawing.Size(61, 20)
Me.txtSessDatVon.Size = New System.Drawing.Size(60, 20)
Me.txtSessDatVon.TabIndex = 175
'
'txtSessDatBis
@@ -83,13 +85,13 @@ Partial Class usrcntlSessions
Me.txtSessDatBis._WaehrungZeichen = True
Me.txtSessDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSessDatBis.ForeColor = System.Drawing.Color.Black
Me.txtSessDatBis.Location = New System.Drawing.Point(175, 13)
Me.txtSessDatBis.Location = New System.Drawing.Point(175, 19)
Me.txtSessDatBis.MaxLength = 10
Me.txtSessDatBis.MaxLineLength = -1
Me.txtSessDatBis.MaxLines_Warning = ""
Me.txtSessDatBis.MaxLines_Warning_Label = Nothing
Me.txtSessDatBis.Name = "txtSessDatBis"
Me.txtSessDatBis.Size = New System.Drawing.Size(61, 20)
Me.txtSessDatBis.Size = New System.Drawing.Size(60, 20)
Me.txtSessDatBis.TabIndex = 177
'
'btnAddDay
@@ -98,7 +100,7 @@ Partial Class usrcntlSessions
Me.btnAddDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnAddDay.ForeColor = System.Drawing.Color.Black
Me.btnAddDay.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAddDay.Location = New System.Drawing.Point(399, 10)
Me.btnAddDay.Location = New System.Drawing.Point(407, 16)
Me.btnAddDay.Margin = New System.Windows.Forms.Padding(0)
Me.btnAddDay.Name = "btnAddDay"
Me.btnAddDay.Size = New System.Drawing.Size(34, 23)
@@ -113,7 +115,7 @@ Partial Class usrcntlSessions
Me.btnReduceDay.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnReduceDay.ForeColor = System.Drawing.Color.Black
Me.btnReduceDay.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnReduceDay.Location = New System.Drawing.Point(280, 10)
Me.btnReduceDay.Location = New System.Drawing.Point(288, 16)
Me.btnReduceDay.Margin = New System.Windows.Forms.Padding(0)
Me.btnReduceDay.Name = "btnReduceDay"
Me.btnReduceDay.Size = New System.Drawing.Size(34, 23)
@@ -128,7 +130,7 @@ Partial Class usrcntlSessions
Me.btnToday.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnToday.ForeColor = System.Drawing.Color.Black
Me.btnToday.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnToday.Location = New System.Drawing.Point(313, 10)
Me.btnToday.Location = New System.Drawing.Point(321, 16)
Me.btnToday.Margin = New System.Windows.Forms.Padding(0)
Me.btnToday.Name = "btnToday"
Me.btnToday.Size = New System.Drawing.Size(87, 23)
@@ -139,7 +141,7 @@ Partial Class usrcntlSessions
'Label73
'
Me.Label73.AutoSize = True
Me.Label73.Location = New System.Drawing.Point(146, 16)
Me.Label73.Location = New System.Drawing.Point(149, 22)
Me.Label73.Name = "Label73"
Me.Label73.Size = New System.Drawing.Size(23, 13)
Me.Label73.TabIndex = 179
@@ -151,10 +153,10 @@ Partial Class usrcntlSessions
Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnJahr.ForeColor = System.Drawing.Color.Black
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnJahr.Location = New System.Drawing.Point(625, 10)
Me.btnJahr.Location = New System.Drawing.Point(638, 16)
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnJahr.Name = "btnJahr"
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
Me.btnJahr.Size = New System.Drawing.Size(58, 23)
Me.btnJahr.TabIndex = 188
Me.btnJahr.Text = "2016"
Me.btnJahr.UseVisualStyleBackColor = True
@@ -165,7 +167,7 @@ Partial Class usrcntlSessions
Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisJahr.Location = New System.Drawing.Point(711, 10)
Me.btnBisJahr.Location = New System.Drawing.Point(696, 16)
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisJahr.Name = "btnBisJahr"
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
@@ -180,7 +182,7 @@ Partial Class usrcntlSessions
Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonJahr.Location = New System.Drawing.Point(592, 10)
Me.btnVonJahr.Location = New System.Drawing.Point(604, 16)
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonJahr.Name = "btnVonJahr"
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
@@ -195,7 +197,7 @@ Partial Class usrcntlSessions
Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnMonat.ForeColor = System.Drawing.Color.Black
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnMonat.Location = New System.Drawing.Point(469, 10)
Me.btnMonat.Location = New System.Drawing.Point(477, 16)
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnMonat.Name = "btnMonat"
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
@@ -209,7 +211,7 @@ Partial Class usrcntlSessions
Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBisMonat.Location = New System.Drawing.Point(555, 10)
Me.btnBisMonat.Location = New System.Drawing.Point(563, 16)
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnBisMonat.Name = "btnBisMonat"
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
@@ -224,7 +226,7 @@ Partial Class usrcntlSessions
Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVonMonat.Location = New System.Drawing.Point(436, 10)
Me.btnVonMonat.Location = New System.Drawing.Point(444, 16)
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
Me.btnVonMonat.Name = "btnVonMonat"
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
@@ -237,7 +239,7 @@ Partial Class usrcntlSessions
'
Me.DateTimePicker2.CustomFormat = "''"
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker2.Location = New System.Drawing.Point(175, 13)
Me.DateTimePicker2.Location = New System.Drawing.Point(175, 19)
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
@@ -247,7 +249,7 @@ Partial Class usrcntlSessions
'Label74
'
Me.Label74.AutoSize = True
Me.Label74.Location = New System.Drawing.Point(14, 16)
Me.Label74.Location = New System.Drawing.Point(16, 22)
Me.Label74.Name = "Label74"
Me.Label74.Size = New System.Drawing.Size(28, 13)
Me.Label74.TabIndex = 183
@@ -257,7 +259,7 @@ Partial Class usrcntlSessions
'
Me.DateTimePicker1.CustomFormat = "''"
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.DateTimePicker1.Location = New System.Drawing.Point(43, 12)
Me.DateTimePicker1.Location = New System.Drawing.Point(43, 18)
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
@@ -274,18 +276,37 @@ Partial Class usrcntlSessions
Me.dgvSessions.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvSessions.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSessions.Location = New System.Drawing.Point(3, 39)
Me.dgvSessions.Location = New System.Drawing.Point(-9, 42)
Me.dgvSessions.Name = "dgvSessions"
Me.dgvSessions.RowHeadersVisible = False
Me.dgvSessions.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSessions.ShowEditingIcon = False
Me.dgvSessions.Size = New System.Drawing.Size(744, 706)
Me.dgvSessions.Size = New System.Drawing.Size(744, 702)
Me.dgvSessions.TabIndex = 174
'
'lbl_letzteAnm
'
Me.lbl_letzteAnm.AutoSize = True
Me.lbl_letzteAnm.Location = New System.Drawing.Point(114, -2)
Me.lbl_letzteAnm.Name = "lbl_letzteAnm"
Me.lbl_letzteAnm.Size = New System.Drawing.Size(0, 13)
Me.lbl_letzteAnm.TabIndex = 193
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(16, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(91, 13)
Me.Label1.TabIndex = 192
Me.Label1.Text = "letzte Anmeldung:"
'
'usrcntlSessions
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.lbl_letzteAnm)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtSessDatVon)
Me.Controls.Add(Me.txtSessDatBis)
Me.Controls.Add(Me.btnAddDay)
@@ -327,4 +348,6 @@ Partial Class usrcntlSessions
Friend WithEvents Label74 As Label
Friend WithEvents DateTimePicker1 As DateTimePicker
Friend WithEvents dgvSessions As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents lbl_letzteAnm As Label
Friend WithEvents Label1 As Label
End Class

44
UID/Dienstplan/usrcntlSessions.vb
View File

@@ -1,4 +1,7 @@
Public Class usrcntlSessions
Imports GrapeCity
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlSessions
Dim mitarbeiter As VERAG_PROG_ALLGEMEIN.cMitarbeiter
@@ -131,8 +134,8 @@
where " & whereLogin & " and cast([LogOn_datetime] as Date) between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "'"
SQL_String = " select * FROM ( " & SQL_SESSIONS & " UNION ALL " & SQL_SESSION_TS & ") TEMP order by TEMP.sess_login"
Else
SQL_String = " select * FROM ( " & SQL_SESSIONS & ") TEMP order by TEMP.sess_login"
Else
SQL_String = " select * FROM ( " & SQL_SESSIONS & ") TEMP order by TEMP.sess_login"
End If
@@ -186,6 +189,41 @@
Private Sub usrcntlSessions_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Me.DesignMode Then Exit Sub
Dim SQL_String As String = ""
Dim SQL_SESSIONS = "select [sess_login]
FROM [ADMIN].[dbo].[tblSessions]
where sess_maId = " & mitarbeiter.mit_id
If mitarbeiter.mit_AliasAD_Username IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Username <> "" AndAlso mitarbeiter.mit_AliasAD_Domain IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Domain <> "" Then
Dim whereLogin As String = "([BenutzerAnmeldeName] = '" & mitarbeiter.mit_AliasAD_Domain & "\" & mitarbeiter.mit_AliasAD_Username & "'"
If mitarbeiter.mit_AliasAD_Username2 IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Username2 <> "" AndAlso mitarbeiter.mit_AliasAD_Domain2 IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Domain2 <> "" Then
whereLogin &= " OR [BenutzerAnmeldeName] = '" & mitarbeiter.mit_AliasAD_Domain2 & "\" & mitarbeiter.mit_AliasAD_Username2 & "')"
Else
whereLogin &= ")"
End If
Dim SQL_SESSION_TS = "SELECT [LogOn_datetime]
FROM [Doku].[dbo].[TbL_LogOnLogOffLog]
where " & whereLogin
SQL_String = " select top(1) * FROM ( " & SQL_SESSIONS & " UNION ALL " & SQL_SESSION_TS & ") TEMP order by TEMP.sess_login desc"
Else
SQL_String = " select top(1) * FROM ( " & SQL_SESSIONS & ") TEMP order by TEMP.sess_login desc"
End If
Dim aktuellerLogin As String = (New SQL).getValueTxtBySql(SQL_String, "FMZOLL")
If aktuellerLogin <> "" AndAlso IsDate(aktuellerLogin) Then
lbl_letzteAnm.Text = CDate(aktuellerLogin).ToShortDateString
End If
initBtns("Tag")
initdgvSessions(CDate(DateTimePicker1.Value).Date, CDate(DateTimePicker2.Value).Date)
End Sub

28
UID/Mitarbeiter/frmMitarbDetails.Designer.vb generated
View File

@@ -85,6 +85,7 @@ Partial Class frmMitarbDetails
Me.clInterneMailBenachrichtigungen = New System.Windows.Forms.CheckedListBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.cboFunktion = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label63 = New System.Windows.Forms.Label()
Me.txtTelNr = New System.Windows.Forms.TextBox()
@@ -248,6 +249,7 @@ Partial Class frmMitarbDetails
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.Label74 = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout()
@@ -261,6 +263,7 @@ Partial Class frmMitarbDetails
CType(Me.dgvUserParameter, System.ComponentModel.ISupportInitialize).BeginInit()
Me.tabBenachrichtigungen.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.picFoto, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage3.SuspendLayout()
@@ -964,6 +967,8 @@ Partial Class frmMitarbDetails
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Label74)
Me.GroupBox2.Controls.Add(Me.PictureBox9)
Me.GroupBox2.Controls.Add(Me.cboFunktion)
Me.GroupBox2.Controls.Add(Me.Label63)
Me.GroupBox2.Controls.Add(Me.txtTelNr)
@@ -1018,6 +1023,16 @@ Partial Class frmMitarbDetails
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Firmendaten"
'
'PictureBox9
'
Me.PictureBox9.BackgroundImage = Global.ADMIN.My.Resources.Resources.email_big1
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox9.Location = New System.Drawing.Point(660, 250)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(43, 29)
Me.PictureBox9.TabIndex = 116
Me.PictureBox9.TabStop = False
'
'cboFunktion
'
Me.cboFunktion._allowedValuesFreiText = Nothing
@@ -2785,6 +2800,16 @@ Partial Class frmMitarbDetails
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'Label74
'
Me.Label74.AutoSize = True
Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label74.Location = New System.Drawing.Point(575, 250)
Me.Label74.Name = "Label74"
Me.Label74.Size = New System.Drawing.Size(79, 13)
Me.Label74.TabIndex = 117
Me.Label74.Text = "Zugangsdaten:"
'
'frmMitarbDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2819,6 +2844,7 @@ Partial Class frmMitarbDetails
Me.tabBenachrichtigungen.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.picFoto, System.ComponentModel.ISupportInitialize).EndInit()
@@ -3063,4 +3089,6 @@ Partial Class frmMitarbDetails
Friend WithEvents Panel2 As Panel
Friend WithEvents Label73 As Label
Friend WithEvents txtTimasID As TextBox
Friend WithEvents PictureBox9 As PictureBox
Friend WithEvents Label74 As Label
End Class

141
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -1,5 +1,7 @@

Imports System.Text.RegularExpressions
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports DAKOSY_Worker.AnrechnungReferenzbetraegeNCTSDE
Imports VERAG_PROG_ALLGEMEIN
Public Class frmMitarbDetails
@@ -954,7 +956,45 @@ Public Class frmMitarbDetails
End Sub
Private Sub cbxGekuendigt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxGekuendigt.CheckedChanged
datGekuendigtAm.Enabled = cbxGekuendigt.Checked
If cbxGekuendigt.Checked AndAlso Not mitarbeiter.mit_gekuendigt Then
If vbYes = MsgBox("Möchten Sie den Mitarbeiter deaktivieren? " & vbNewLine & "Es wird automatisch ein Ticket zu Deaktivierung des Accounts erstellt.", vbYesNo) Then
Dim f As New frmDatumsabfrage("Austrittsdatum ", False)
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
datGekuendigtAm.Value = f.dtp_date.Value
Dim Anrede As String = ""
Select Case mitarbeiter.mit_geschlecht
Case "m" : Anrede = "Herr "
Case "w" : Anrede = "Frau "
End Select
Dim Mailtext As String = "Folgender Mitarbeiter verlässt mit " & datGekuendigtAm.Value.ToShortDateString & " das Unternehmen " & mitarbeiter.mit_firma & ": <br><br> " & Anrede & mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname & " <br><br> Bitte alle zugehörigen Accounts deaktivieren!"
If mitarbeiter.mit_timasId Is Nothing OrElse IsDBNull(mitarbeiter.mit_timasId) Then
Mailtext &= " <br><br> Mitarbeiter besitzt KEINE ZEITERFASSUNG!"
End If
Dim empfaenger = VERAG_PROG_ALLGEMEIN.cMitarbeiter.GetEMailRecipientForEmailNotification("Mitarbeiter-Austritt")
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("support@verag.ag", "Austritt Mitarbeiter " & mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname & " (" & mitarbeiter.mit_firma & ")", Mailtext,, True,, empfaenger)
'datGekuendigtAm.Enabled = cbxGekuendigt.Checked
btnOK.PerformClick()
End If
End If
Else
'datGekuendigtAm.Enabled = cbxGekuendigt.Checked
End If
End Sub
@@ -1627,19 +1667,21 @@ Public Class frmMitarbDetails
' Sicherheitsprüfungen
If tageProWoche <= 0 Then Return 0
If urlaubInStunden AndAlso wochenstunden <= 0 Then Return 0
Dim anspruch As Double = 0
Dim anspruch As Double
If Not urlaubInStunden Then
' Urlaub in Tagen
' 5 Wochen Urlaub in Tagen
anspruch = 5 * tageProWoche
Else
' Urlaub in Stunden: durchschnittliche Tagesarbeitszeit * 5
anspruch = (wochenstunden / tageProWoche) * 5
If wochenstunden <= 0 Then Return 0
' 5 Wochen Urlaub in Stunden
anspruch = wochenstunden * 5
End If
Return Math.Round(anspruch, 2, MidpointRounding.AwayFromZero)
End Function
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged
@@ -1908,6 +1950,93 @@ Public Class frmMitarbDetails
Next
End Sub
Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
If Not cbxGekuendigt.Checked AndAlso Not mitarbeiter.mit_gekuendigt Then
' Dim empfaenger = VERAG_PROG_ALLGEMEIN.cMitarbeiter.GetEMailRecipientForEmailNotification("Mitarbeiter-Eintritt")
Dim betreff As String = "Start Mitarbeiter " & mitarbeiter.mit_vname & " " & mitarbeiter.mit_nname & " (" & mitarbeiter.mit_firma.ToString.Replace("ALL", "VERAG") & ")"
Dim TextHTMLtable As String = ""
TextHTMLtable &= "Hallo " & mitarbeiter.mit_vname & "!" & "<br><br>Herzlich Willkommen bei " & mitarbeiter.mit_firma.ToString.Replace("ALL", "VERAG") & ".<br><br>"
TextHTMLtable &= "Um dir den Start so einfach wie möglich zu machen, findest du alle relevanten Informationen zum Unternehmen hier: <a href=""https://wiki.verag.ag"">WIKI</a>"
TextHTMLtable &= "<br><br>Die Zugangsdaten für deine benötigten Programme/Systeme lauten wie folgt:<br><br>"
TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>Programm</td><td>Info</td><td>User</td><td>Passwort</td></tr>"
If mitarbeiter.mit_AliasAD_Username IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Username <> "" Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & "Windows" & "</b></td>"
TextHTMLtable &= "<td><b>" & "PC-Zugangsdaten" & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_AliasAD_Username & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_pwd & "</b></td>"
TextHTMLtable &= "</tr>"
End If
If mitarbeiter.mit_username <> "" AndAlso mitarbeiter.mit_pwd <> "" Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & "AVISO/SDL" & "</b></td>"
TextHTMLtable &= "<td><b>" & "ERP-System" & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_username & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_pwd & "</b></td>"
TextHTMLtable &= "</tr>"
End If
If mitarbeiter.mit_timasId IsNot Nothing AndAlso IsNumeric(mitarbeiter.mit_timasId) Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & "TIMAS" & "</b></td>"
TextHTMLtable &= "<td><b>" & "Zeiterfassung" & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_username & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_pwd & "</b></td>"
TextHTMLtable &= "</tr>"
End If
If mitarbeiter.mit_DAKOSY_SB IsNot Nothing AndAlso mitarbeiter.mit_DAKOSY_SB <> "" Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & "DAKOSY" & "</b></td>"
TextHTMLtable &= "<td><b>" & "ZOLL-DE" & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_DAKOSY_SB & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_pwd & "</b></td>"
TextHTMLtable &= "</tr>"
End If
If mitarbeiter.mit_EZOLL_SB IsNot Nothing AndAlso mitarbeiter.mit_EZOLL_SB > 0 Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & "EZOLL" & "</b></td>"
TextHTMLtable &= "<td><b>" & "ZOLL-AT" & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_EZOLL_SB & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_pwd & "</b></td>"
TextHTMLtable &= "</tr>"
End If
If mitarbeiter.mit_CSuser IsNot Nothing AndAlso mitarbeiter.mit_CSuser <> "" Then
TextHTMLtable &= "<tr>"
TextHTMLtable &= "<td><b>" & "Creditsafe" & "</b></td>"
TextHTMLtable &= "<td><b>" & "Bonitätsprüfungstool" & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_CSuser & "</b></td>"
TextHTMLtable &= "<td><b>" & mitarbeiter.mit_CSpwd & "</b></td>"
TextHTMLtable &= "</tr>"
End If
TextHTMLtable &= "</table>"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.createMail("", betreff, TextHTMLtable)
End If
End Sub
End Class

22
UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb generated
View File

@@ -48,6 +48,7 @@ Partial Class usrCntlMitarbeiter
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.dgvDURMAZ = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.lbl_Mitarbeiter_export = New System.Windows.Forms.Label()
Me.pbMitarbeiter_export = New System.Windows.Forms.ProgressBar()
Me.cbxTimasAktiv = New System.Windows.Forms.CheckBox()
Me.lblTimasMandant = New System.Windows.Forms.Label()
@@ -67,7 +68,6 @@ Partial Class usrCntlMitarbeiter
Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.lbl_Mitarbeiter_export = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -371,6 +371,15 @@ Partial Class usrCntlMitarbeiter
Me.TabPage8.Text = "Zeiterfassung"
Me.TabPage8.UseVisualStyleBackColor = True
'
'lbl_Mitarbeiter_export
'
Me.lbl_Mitarbeiter_export.AutoSize = True
Me.lbl_Mitarbeiter_export.Location = New System.Drawing.Point(679, 8)
Me.lbl_Mitarbeiter_export.Name = "lbl_Mitarbeiter_export"
Me.lbl_Mitarbeiter_export.Size = New System.Drawing.Size(30, 13)
Me.lbl_Mitarbeiter_export.TabIndex = 54
Me.lbl_Mitarbeiter_export.Text = "0 / 0"
'
'pbMitarbeiter_export
'
Me.pbMitarbeiter_export.Location = New System.Drawing.Point(556, 3)
@@ -532,7 +541,7 @@ Partial Class usrCntlMitarbeiter
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UserKopierenToolStripMenuItem, Me.BerechtigungenSetzenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 48)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 70)
'
'UserKopierenToolStripMenuItem
'
@@ -551,15 +560,6 @@ Partial Class usrCntlMitarbeiter
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
'lbl_Mitarbeiter_export
'
Me.lbl_Mitarbeiter_export.AutoSize = True
Me.lbl_Mitarbeiter_export.Location = New System.Drawing.Point(679, 8)
Me.lbl_Mitarbeiter_export.Name = "lbl_Mitarbeiter_export"
Me.lbl_Mitarbeiter_export.Size = New System.Drawing.Size(30, 13)
Me.lbl_Mitarbeiter_export.TabIndex = 54
Me.lbl_Mitarbeiter_export.Text = "0 / 0"
'
'usrCntlMitarbeiter
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

2
UID/Mitarbeiter/usrCntlMitarbeiter.vb
View File

@@ -1435,5 +1435,7 @@ Public Class usrCntlMitarbeiter
End Sub
Private Sub MailMitZugangsdatenToolStripMenuItem_Click(sender As Object, e As EventArgs)
End Sub
End Class

4
UID/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.6.5")>
<Assembly: AssemblyFileVersion("1.2.6.5")>
<Assembly: AssemblyVersion("1.2.6.7")>
<Assembly: AssemblyFileVersion("1.2.6.7")>

10
UID/My Project/Resources.Designer.vb generated
View File

@@ -343,6 +343,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property email_big1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("email_big1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

49
UID/My Project/Resources.resx
View File

@@ -145,6 +145,9 @@
<data name="save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="UpdaterVersion" xml:space="preserve">
<value>4.0</value>
</data>
<data name="refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -157,30 +160,39 @@
<data name="dispo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dispo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="reise" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\reise.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="refresh1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="admin_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\admin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MDM_IT_Verguetung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MDM_IT_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="personGray_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dispo_ico" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dispo_ico1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="connStringFMZOLL_NEW" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
</data>
<data name="MDM_AI_Verguetung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MDM_AI_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="cmr_logo_klein" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cmr-logo_klein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Academy_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-Academy_blue.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kalender" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kalender.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fd.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -196,8 +208,11 @@
<data name="admin1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\admin1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kalender" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kalender.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="sdl_ico1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sdl_ico2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="reise" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\reise.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -271,8 +286,8 @@
<data name="gear1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="UpdaterVersion" xml:space="preserve">
<value>4.0</value>
<data name="chain" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\chain.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -286,9 +301,6 @@
<data name="connStringAdmin" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
</data>
<data name="chain" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\chain.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uid.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -313,16 +325,7 @@
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sdl_ico1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sdl_ico2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MDM_AI_Verguetung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MDM_AI_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="MDM_IT_Verguetung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MDM_IT_Verguetung.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="connStringFMZOLL_NEW" xml:space="preserve">
<value>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;</value>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
UID/Resources/email_big1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 239 KiB

27
UID/frmMain.Designer.vb generated
View File

@@ -33,6 +33,7 @@ Partial Class frmMain
Me.TableAdapterManager1 = New ADMIN.DataSetBerechtigungenTableAdapters.TableAdapterManager()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnFirm = New System.Windows.Forms.Button()
Me.btnInterneBenachrichtigungen = New System.Windows.Forms.Button()
Me.lblVersion = New System.Windows.Forms.Label()
Me.btnAuditFlow = New System.Windows.Forms.Button()
@@ -52,7 +53,6 @@ Partial Class frmMain
Me.btnMitarbeiter = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.btnFirm = New System.Windows.Forms.Button()
Me.Panel3.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -137,6 +137,18 @@ Partial Class frmMain
Me.Panel3.Size = New System.Drawing.Size(137, 801)
Me.Panel3.TabIndex = 32
'
'btnFirm
'
Me.btnFirm.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFirm.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFirm.Location = New System.Drawing.Point(12, 76)
Me.btnFirm.Name = "btnFirm"
Me.btnFirm.Size = New System.Drawing.Size(94, 33)
Me.btnFirm.TabIndex = 47
Me.btnFirm.Text = "Firmen"
Me.btnFirm.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFirm.UseVisualStyleBackColor = True
'
'btnInterneBenachrichtigungen
'
Me.btnInterneBenachrichtigungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -265,6 +277,7 @@ Partial Class frmMain
Me.btnUpdate.Size = New System.Drawing.Size(94, 34)
Me.btnUpdate.TabIndex = 37
Me.btnUpdate.Text = "Update"
Me.btnUpdate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnUpdate.UseVisualStyleBackColor = True
'
'btnSchulungen
@@ -358,18 +371,6 @@ Partial Class frmMain
Me.PictureBox1.TabIndex = 31
Me.PictureBox1.TabStop = False
'
'btnFirm
'
Me.btnFirm.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFirm.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFirm.Location = New System.Drawing.Point(12, 76)
Me.btnFirm.Name = "btnFirm"
Me.btnFirm.Size = New System.Drawing.Size(94, 33)
Me.btnFirm.TabIndex = 47
Me.btnFirm.Text = "Firmen"
Me.btnFirm.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFirm.UseVisualStyleBackColor = True
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

62
UID/usrCntlDatenarchiv.Designer.vb generated
View File

@@ -26,6 +26,8 @@ Partial Class usrCntlDatenarchiv
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.lblfehlendeDokumente = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.cbxTestsystem = New System.Windows.Forms.CheckBox()
Me.cboPartnersystem = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label8 = New System.Windows.Forms.Label()
@@ -35,12 +37,13 @@ Partial Class usrCntlDatenarchiv
Me.pnlAnzeige = New System.Windows.Forms.Panel()
Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnSave = New System.Windows.Forms.Button()
Me.lblErgebnis = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button10 = New System.Windows.Forms.Button()
Me.Button11 = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.lblWorkingArea = New System.Windows.Forms.Label()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer.Panel1.SuspendLayout()
Me.SplitContainer.Panel2.SuspendLayout()
@@ -96,6 +99,9 @@ Partial Class usrCntlDatenarchiv
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.lblWorkingArea)
Me.SplitContainer1.Panel1.Controls.Add(Me.lblfehlendeDokumente)
Me.SplitContainer1.Panel1.Controls.Add(Me.Button1)
Me.SplitContainer1.Panel1.Controls.Add(Me.cbxTestsystem)
Me.SplitContainer1.Panel1.Controls.Add(Me.cboPartnersystem)
Me.SplitContainer1.Panel1.Controls.Add(Me.Label8)
@@ -107,6 +113,24 @@ Partial Class usrCntlDatenarchiv
Me.SplitContainer1.SplitterDistance = 55
Me.SplitContainer1.TabIndex = 0
'
'lblfehlendeDokumente
'
Me.lblfehlendeDokumente.AutoSize = True
Me.lblfehlendeDokumente.ForeColor = System.Drawing.Color.Red
Me.lblfehlendeDokumente.Location = New System.Drawing.Point(449, 54)
Me.lblfehlendeDokumente.Name = "lblfehlendeDokumente"
Me.lblfehlendeDokumente.Size = New System.Drawing.Size(0, 13)
Me.lblfehlendeDokumente.TabIndex = 57
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(443, 10)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 23)
Me.Button1.TabIndex = 56
Me.Button1.Text = "Prüfe Datenarchiv-DOK"
Me.Button1.UseVisualStyleBackColor = True
'
'cbxTestsystem
'
Me.cbxTestsystem.AutoSize = True
@@ -142,6 +166,7 @@ Partial Class usrCntlDatenarchiv
'
'btnSuche
'
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -218,6 +243,19 @@ Partial Class usrCntlDatenarchiv
Me.Panel1.Size = New System.Drawing.Size(1020, 44)
Me.Panel1.TabIndex = 1
'
'btnSave
'
Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSave.Location = New System.Drawing.Point(789, 5)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(118, 26)
Me.btnSave.TabIndex = 56
Me.btnSave.Text = "speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'lblErgebnis
'
Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -230,6 +268,7 @@ Partial Class usrCntlDatenarchiv
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(930, 5)
Me.Label4.Name = "Label4"
@@ -251,6 +290,7 @@ Partial Class usrCntlDatenarchiv
Me.txtMaxSrch._value = ""
Me.txtMaxSrch._Waehrung = False
Me.txtMaxSrch._WaehrungZeichen = True
Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
Me.txtMaxSrch.Location = New System.Drawing.Point(966, 2)
@@ -288,17 +328,14 @@ Partial Class usrCntlDatenarchiv
Me.Button11.TabIndex = 4
Me.Button11.UseVisualStyleBackColor = True
'
'btnSave
'lblWorkingArea
'
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSave.Location = New System.Drawing.Point(789, 5)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(118, 26)
Me.btnSave.TabIndex = 56
Me.btnSave.Text = "speichern"
Me.btnSave.UseVisualStyleBackColor = True
Me.lblWorkingArea.AutoSize = True
Me.lblWorkingArea.ForeColor = System.Drawing.Color.Black
Me.lblWorkingArea.Location = New System.Drawing.Point(449, 36)
Me.lblWorkingArea.Name = "lblWorkingArea"
Me.lblWorkingArea.Size = New System.Drawing.Size(0, 13)
Me.lblWorkingArea.TabIndex = 58
'
'usrCntlDatenarchiv
'
@@ -343,4 +380,7 @@ Partial Class usrCntlDatenarchiv
Friend WithEvents Label12 As Label
Friend WithEvents cbxTestsystem As CheckBox
Friend WithEvents btnSave As Button
Friend WithEvents Button1 As Button
Friend WithEvents lblfehlendeDokumente As Label
Friend WithEvents lblWorkingArea As Label
End Class

181
UID/usrCntlDatenarchiv.vb
View File

@@ -1,6 +1,4 @@
Imports System.ComponentModel
Imports System.IO
Imports System.Windows.Documents
Imports System.Windows.Documents
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlDatenarchiv
@@ -24,6 +22,7 @@ Public Class usrCntlDatenarchiv
'cboPartnersystem.Items.Clear()
Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "Param_system")
cboPartnersystem.Items.Add(New MyListItem("", ""))
For Each d As DataRow In distinctDT.Rows
If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
Next
@@ -72,31 +71,6 @@ Public Class usrCntlDatenarchiv
Me.Cursor = Cursors.Default
End Sub
Private Sub cbxProduktivsystem_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTestsystem.CheckedChanged
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
DatenarchivBind = New cEasyBinding(BIND_DB)
Dim sqlstr As String = ""
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
DatenarchivBind.initBinding("SELECT " & TopMax & " [Param_name],[Param_value], [Param_system] FROM " & table & " WHERE 1 = 1 " & getDatenarchivwhere(), table)
DataGridView.DataSource = DatenarchivBind.bindingdataTable
Dim distinctDT As DataTable = DatenarchivBind.bindingdataTable.DefaultView.ToTable(True, "Param_system")
For Each d As DataRow In distinctDT.Rows
If Not cboPartnersystem.Items.Contains(d.Item(0)) Then cboPartnersystem.Items.Add(d.Item(0))
Next
Me.usrCntlDatenarchiv_Load(sender, e)
End Sub
Private Sub cboPartnersystem_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPartnersystem.SelectedIndexChanged
btnSuche_Click(sender, e)
End Sub
@@ -202,4 +176,155 @@ Public Class usrCntlDatenarchiv
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim jahr As Integer = 2026
'Dim zupruefendeDokumente As String = " select top(100000) * from [tblDatenarchiv_Collection] where Year(coll_date) = " & jahr & " and coll_archiv = 0 and isnull(coll_pfad,'') <> '' order by coll_date desc "
Dim zupruefendeDokumente As String = " select top(100000) * from [tblDatenarchiv_Collection] where cast(coll_date as Date) = '29.10.2026' and coll_archiv = 0 and isnull(coll_pfad,'') <> '' order by coll_date desc "
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim Datenarchiv_DOKS As DataTable = SQL.loadDgvBySql(zupruefendeDokumente, "FMZOLL")
Dim dtFehlendeDOKS = Datenarchiv_DOKS.Clone()
Dim listOfSources As New List(Of String)
Dim listOfCOLL_DAID As New List(Of Integer)
If Datenarchiv_DOKS.Rows.Count > 0 Then
For Each r As DataRow In Datenarchiv_DOKS.Rows
If r.Item("coll_pfad") <> "" Then
If Not System.IO.File.Exists(r.Item("coll_pfad")) Then
dtFehlendeDOKS.ImportRow(r)
lblfehlendeDokumente.Text = "fehlende DOK.: " & dtFehlendeDOKS.Rows.Count
addToLlist(listOfSources, listOfCOLL_DAID, r)
'Me.Refresh()
If dtFehlendeDOKS.Rows.Count >= 1000 Then Exit For
End If
End If
lblWorkingArea.Text = "geprüft DOK.: : " & Datenarchiv_DOKS.Rows.IndexOf(r) & "/" & Datenarchiv_DOKS.Rows.Count
Me.Refresh()
Next
If dtFehlendeDOKS.Rows.Count > 0 Then
MsgBox("Es existieren " & dtFehlendeDOKS.Rows.Count & " Datenarchiv-Datensätze, die kein zugeordnetes Dokument besitzen!")
VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dtFehlendeDOKS,,,,, True,,, True)
Dim deleted As Boolean = False
If vbYes = MsgBox("Sollen diese Datenarchiveinträge gelöscht werden?" & vbNewLine & "Bitte vorher Excelliste prüfen!", vbYesNo) Then
Dim Where As String = ""
For Each DAID In listOfCOLL_DAID
Where &= DAID & ","
Next
Where = Where.Substring(0, Where.Length - 1)
deleted = SQL.doSQL("DELETE FROM [tblDatenarchiv_Collection] WHERE [coll_daId] in (" & Where & ")", "FMZOLL")
deleted = SQL.doSQL("DELETE FROM [tblDatenarchiv] WHERE [da_id] in (" & Where & ")", "FMZOLL")
If deleted Then
For Each source In listOfSources
'Hier muss die DA-ID in der verknüpften Tabelle auf NULL gesetzt werden!
Select Case source
Case "AVISO_ANHAENGE" : SQL.doSQL("UPDATE tblAvisoAnhaenge set tblAvisoAnhaenge.anh_docId = NULL where tblAvisoAnhaenge.anh_docId in (" & Where & ")", "AVISO") ' -> Eintrag auch gleich löschen- > NEIN nur DA_ID laut Andreas, wegen Nachvollziehbarkeit: 05.11.2026
'Case "UID_PRUEFUNG"; EORI_PRUEFUNG -> Über AVISO-Anhänge
Case "RECHNUNGEN" : SQL.doSQL("UPDATE Rechnungsausgang set Rechnungsausgang.dsId = NULL where Rechnungsausgang.dsId in (" & Where & ")", "FMZOLL")
Case "ZUGFERD" : SQL.doSQL("UPDATE Rechnungsausgang set Rechnungsausgang.zugferdcheck_daid = NULL where Rechnungsausgang.zugferdcheck_daid in (" & Where & ")", "FMZOLL")
Case "CREDITSAFE" : SQL.doSQL("UPDATE tblBonitaetsauskunft set tblBonitaetsauskunft.ba_datenarchivId = NULL where tblBonitaetsauskunft.ba_datenarchivId in (" & Where & ")", "FMZOLL")
'3x weil 3 versch. Felder!
Case "VOLLMACHTEN"
SQL.doSQL("UPDATE tblKundenVollmachten set tblKundenVollmachten.kdvm_datenarchivId = NULL where tblKundenVollmachten.kdvm_datenarchivId in (" & Where & ")", "FMZOLL")
SQL.doSQL("UPDATE tblKundenVollmachten set tblKundenVollmachten.kdvm_emailId = NULL where tblKundenVollmachten.kdvm_emailId in (" & Where & ")", "FMZOLL")
SQL.doSQL("UPDATE tblKundenVollmachten set tblKundenVollmachten.kdvm_datenarchivId_2 = NULL where tblKundenVollmachten.kdvm_datenarchivId_2 in (" & Where & ")", "FMZOLL")
'MDM
Case "USTVA" : SQL.doSQL("UPDATE tblUStVPositionen set tblUStVPositionen.UStVPo_daId = NULL where UStVPo_daId_loeschbar = 1 AND tblUStVPositionen.UStVPo_daId in (" & Where & ")", "FMZOLL")
Case "USTVERS" : SQL.doSQL("UPDATE tblUStVErstattung set tblUStVErstattung.UStVEr_daId = NULL where tblUStVErstattung.UStVEr_daId in (" & Where & ")", "FMZOLL")
End Select
Next
End If
If deleted Then
MsgBox("Daten wurden erfolgreich bereinigt!")
Else
MsgBox("Fehler beim Bereinigen der Daten!")
End If
End If
Else
MsgBox("Es wurden keine fehlenden Dokumente gefunden!")
End If
End If
End Sub
Private Sub addToLlist(listOfSources As List(Of String), listOfCOLL_DAID As List(Of Integer), r As DataRow)
Dim da_id As Integer
If Not IsDBNull(r.Item("coll_daId")) AndAlso Integer.TryParse(Convert.ToString(r.Item("coll_daId")).Trim(), da_id) Then
If Not listOfCOLL_DAID.Contains(da_id) Then
listOfCOLL_DAID.Add(da_id)
End If
End If
If r.Item("coll_pfad").ToString.Contains("AVISO_ANHAENGE") Then
If Not listOfSources.Contains("AVISO_ANHAENGE") Then listOfSources.Add("AVISO_ANHAENGE")
ElseIf r.Item("coll_pfad").ToString.Contains("RECHNUNGEN") Then
If Not listOfSources.Contains("RECHNUNGEN") Then listOfSources.Add("RECHNUNGEN")
ElseIf r.Item("coll_pfad").ToString.Contains("CHAT_ANHAENGE") Then
If Not listOfSources.Contains("CHAT_ANHAENGE") Then listOfSources.Add("CHAT_ANHAENGE")
ElseIf r.Item("coll_pfad").ToString.Contains("VOLLMACHTEN") Then
If Not listOfSources.Contains("VOLLMACHTEN") Then listOfSources.Add("VOLLMACHTEN")
ElseIf r.Item("coll_pfad").ToString.Contains("CREDITSAFE") Then
If Not listOfSources.Contains("CREDITSAFE") Then listOfSources.Add("CREDITSAFE")
ElseIf r.Item("coll_pfad").ToString.Contains("ZUGFERD") Then
If Not listOfSources.Contains("ZUGFERD") Then listOfSources.Add("ZUGFERD")
ElseIf r.Item("coll_pfad").ToString.Contains("KD_VERTRÄGE") Then
If Not listOfSources.Contains("KD_VERTRÄGE") Then listOfSources.Add("KD_VERTRÄGE")
ElseIf r.Item("coll_pfad").ToString.Contains("ZOLLDATEN") AndAlso r.Item("coll_pfad").ToString.Contains("DAKOSY") Then
If Not listOfSources.Contains("ZOLLDATEN") Then listOfSources.Add("ZOLLDATEN_DAKOSY")
ElseIf r.Item("coll_pfad").ToString.Contains("UID_PRUEFUNG") Then
If Not listOfSources.Contains("UID_PRUEFUNG") Then listOfSources.Add("UID_PRUEFUNG")
ElseIf r.Item("coll_pfad").ToString.Contains("EORI_PRUEFUNG") Then
If Not listOfSources.Contains("EORI_PRUEFUNG") Then listOfSources.Add("EORI_PRUEFUNG")
End If
'MDM-Spezifisch
If r.Item("coll_pfad").ToString.Contains("USTVERS_") AndAlso r.Item("coll_pfad").ToString.Contains("MDM") Then
If Not listOfSources.Contains("USTVERS_") Then listOfSources.Add("USTVERS")
End If
If r.Item("coll_pfad").ToString.Contains("USTVA_") AndAlso r.Item("coll_pfad").ToString.Contains("MDM") Then
If Not listOfSources.Contains("USTVA_") Then listOfSources.Add("USTVA")
End If
End Sub
End Class