Imports Gemeinsames Imports System.Data.SqlClient Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN Public Class frmAuswertung Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles Me.Load clrPnlMain() If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then Button2.Enabled = True Dim usrCntl As New usrctlAuswertung usrCntl.Dock = System.Windows.Forms.DockStyle.Fill pnlMain.Controls.Add(usrCntl) End If If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Kunden", Me) Then Button1.Enabled = True If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then Button3.Enabled = True If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then Button5.Enabled = True End Sub Private Sub clrPnlMain() While pnlMain.HasChildren pnlMain.Controls.RemoveAt(0) End While End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click clrPnlMain() Dim usrCntl As New usrctlAuswertung usrCntl.Dock = System.Windows.Forms.DockStyle.Fill pnlMain.Controls.Add(usrCntl) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then clrPnlMain() Dim usrCntl As New usrctStatistik usrCntl.Dock = System.Windows.Forms.DockStyle.Fill pnlMain.Controls.Add(usrCntl) End If End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then clrPnlMain() Dim usrCntl As New usrctlMAUebersicht usrCntl.Dock = System.Windows.Forms.DockStyle.Fill pnlMain.Controls.Add(usrCntl) End If End Sub Dim SQL As New Statistik Function getMAList() As List(Of listMAZusammenf) Dim ll As New List(Of listMAZusammenf) Dim l = Nothing ll.Add(New listMAZusammenf(4, "ADMIN")) ll.Add(New listMAZusammenf(227, "AKPINAR")) ll.Add(New listMAZusammenf(220, "ALEX")) ll.Add(New listMAZusammenf(273, "Altenberger")) ll.Add(New listMAZusammenf(133, "ANGERER")) ll.Add(New listMAZusammenf(215, "ANNA")) ll.Add(New listMAZusammenf(266, "ANNAHME_SBG")) ll.Add(New listMAZusammenf(234, "ANNAHME1")) ll.Add(New listMAZusammenf(235, "ANNAHME2")) ll.Add(New listMAZusammenf(262, "Ari")) ll.Add(New listMAZusammenf(229, "ASANGER")) ll.Add(New listMAZusammenf(179, "ATALAY")) ' ll.Add(New listMAZusammenf(264, "ATALAY")) ll.Add(New listMAZusammenf(180, "ATILLA")) ll.Add(New listMAZusammenf(265, "AVISO_WAI_TV")) ll.Add(New listMAZusammenf(237, "BAGHALI")) ll.Add(New listMAZusammenf(238, "BALK")) ll.Add(New listMAZusammenf(239, "BARBUL")) ll.Add(New listMAZusammenf(143, "BATINIC")) ll.Add(New listMAZusammenf(170, "BAUBOECK")) ll.Add(New listMAZusammenf(181, "BÜSRA")) ll.Add(New listMAZusammenf(172, "CARMAN")) ll.Add(New listMAZusammenf(240, "CELEBI")) ll.Add(New listMAZusammenf(222, "CINAR")) ll.Add(New listMAZusammenf(241, "CIYDEM")) ll.Add(New listMAZusammenf(176, "DIKEBO")) ll.Add(New listMAZusammenf(261, "Dreger")) ll.Add(New listMAZusammenf(230, "EINBOECK")) ll.Add(New listMAZusammenf(163, "EREMIA")) ll.Add(New listMAZusammenf(130, "ERTL")) ll.Add(New listMAZusammenf(175, "FAIZ")) ll.Add(New listMAZusammenf(182, "FATMA")) ll.Add(New listMAZusammenf(183, "FATOS")) ll.Add(New listMAZusammenf(136, "FEICHTINGER")) ll.Add(New listMAZusammenf(169, "FUCHS")) ll.Add(New listMAZusammenf(128, "GERLINDE")) ll.Add(New listMAZusammenf(128, "KODISCH")) ll.Add(New listMAZusammenf(184, "GÖKHAN")) ll.Add(New listMAZusammenf(139, "GROEMER")) ll.Add(New listMAZusammenf(242, "GROETSCH")) ll.Add(New listMAZusammenf(243, "GÜLER")) ll.Add(New listMAZusammenf(221, "GÜLLÜ")) ll.Add(New listMAZusammenf(185, "HACER")) ll.Add(New listMAZusammenf(173, "HANSLMAYR")) ll.Add(New listMAZusammenf(186, "HATICE")) ll.Add(New listMAZusammenf(244, "HAZIROVIC")) ll.Add(New listMAZusammenf(245, "HIEROLD")) ll.Add(New listMAZusammenf(231, "HIKMET")) ll.Add(New listMAZusammenf(272, "Höller")) ll.Add(New listMAZusammenf(159, "HUBER")) ll.Add(New listMAZusammenf(165, "JENARIU")) ll.Add(New listMAZusammenf(141, "JINARIU")) ll.Add(New listMAZusammenf(213, "JUERGEN")) ll.Add(New listMAZusammenf(150, "KAPSHAMMER")) ll.Add(New listMAZusammenf(171, "KASBAUER")) ll.Add(New listMAZusammenf(268, "KASKA")) ll.Add(New listMAZusammenf(246, "KERNSTOCK")) ll.Add(New listMAZusammenf(260, "Kriegner")) ll.Add(New listMAZusammenf(216, "LARYSA")) ll.Add(New listMAZusammenf(168, "LISA")) ll.Add(New listMAZusammenf(219, "LISI")) ll.Add(New listMAZusammenf(144, "LUXBAUER")) ll.Add(New listMAZusammenf(267, "LuxbauerB")) ll.Add(New listMAZusammenf(199, "MAHIRA")) ll.Add(New listMAZusammenf(271, "Manhartseder")) ll.Add(New listMAZusammenf(187, "MARIA")) ll.Add(New listMAZusammenf(174, "MATHIAS")) ll.Add(New listMAZusammenf(154, "MAYRHOFER")) ll.Add(New listMAZusammenf(189, "MERVE")) ll.Add(New listMAZusammenf(188, "MIAZ")) ll.Add(New listMAZusammenf(218, "MINE")) ll.Add(New listMAZusammenf(270, "MIZI")) ll.Add(New listMAZusammenf(247, "MOCIRAN")) ll.Add(New listMAZusammenf(162, "MÜLLER")) ll.Add(New listMAZusammenf(167, "MUMINOVIC")) ll.Add(New listMAZusammenf(208, "MUSTAFA")) ll.Add(New listMAZusammenf(207, "MUSTI")) ll.Add(New listMAZusammenf(190, "NADIR")) ll.Add(New listMAZusammenf(200, "NAHIDE")) ll.Add(New listMAZusammenf(217, "NAZ")) ll.Add(New listMAZusammenf(224, "NECIP")) ll.Add(New listMAZusammenf(191, "NESE")) ll.Add(New listMAZusammenf(263, "Nicoara")) ll.Add(New listMAZusammenf(192, "NICOLE")) ll.Add(New listMAZusammenf(138, "NÖBAUER")) ll.Add(New listMAZusammenf(248, "NUSSDORFER")) ll.Add(New listMAZusammenf(125, "ODABAS")) ll.Add(New listMAZusammenf(249, "ÖZKAN")) ll.Add(New listMAZusammenf(126, "ÖZLEM")) ll.Add(New listMAZusammenf(157, "ÖZTÜRK")) ll.Add(New listMAZusammenf(132, "PAHR")) ll.Add(New listMAZusammenf(250, "PIROLT")) ll.Add(New listMAZusammenf(226, "PROBLEM")) ll.Add(New listMAZusammenf(253, "QSPULT")) ll.Add(New listMAZusammenf(129, "REINPRECHT")) ll.Add(New listMAZusammenf(254, "RIEDL")) ll.Add(New listMAZusammenf(161, "ROBA")) ll.Add(New listMAZusammenf(193, "SABINE")) ll.Add(New listMAZusammenf(255, "SARACOGLU")) ll.Add(New listMAZusammenf(214, "SARAH")) ll.Add(New listMAZusammenf(147, "SCHACHNER")) ll.Add(New listMAZusammenf(194, "SELCAN")) ll.Add(New listMAZusammenf(195, "SEMIH")) ll.Add(New listMAZusammenf(201, "SEVGI")) ll.Add(New listMAZusammenf(198, "SEVILAY")) ll.Add(New listMAZusammenf(127, "SIENER")) ll.Add(New listMAZusammenf(148, "SIKORA")) ll.Add(New listMAZusammenf(209, "SIRADA")) ll.Add(New listMAZusammenf(155, "SREINPRECHT")) ll.Add(New listMAZusammenf(223, "STEFANIE")) ll.Add(New listMAZusammenf(202, "SULTAN")) ll.Add(New listMAZusammenf(203, "TAMARA")) ll.Add(New listMAZusammenf(137, "TANJA")) 'll.Add(New listMAZusammenf(ll.Add(New listMAZusammenf(204, "TANJA")) ll.Add(New listMAZusammenf(259, "test")) ll.Add(New listMAZusammenf(131, "TICK")) ll.Add(New listMAZusammenf(158, "TORAM1")) ll.Add(New listMAZusammenf(166, "TORAM2")) ll.Add(New listMAZusammenf(197, "TUGAY")) ll.Add(New listMAZusammenf(211, "TÜLAY")) ll.Add(New listMAZusammenf(225, "VERENA")) ll.Add(New listMAZusammenf(196, "VILDAN")) ll.Add(New listMAZusammenf(206, "VOLKAN")) ll.Add(New listMAZusammenf(140, "VÖLKL")) ll.Add(New listMAZusammenf(256, "VRHOVAC")) ll.Add(New listMAZusammenf(142, "WALCH")) ll.Add(New listMAZusammenf(149, "WIMMEDER")) ll.Add(New listMAZusammenf(153, "WUERDIG")) ll.Add(New listMAZusammenf(134, "WURM")) ll.Add(New listMAZusammenf(164, "YASIN")) ll.Add(New listMAZusammenf(146, "YUKSEL")) ll.Add(New listMAZusammenf(257, "ZILK")) ll.Add(New listMAZusammenf(258, "ZITZMANN")) ll.Add(New listMAZusammenf(145, "ZWIRN")) ll.Add(New listMAZusammenf(139, "Grömer")) ll.Add(New listMAZusammenf(166, "TORAMAN2")) ll.Add(New listMAZusammenf(146, "Yueksel")) ll.Add(New listMAZusammenf(137, "TREINPRECHT")) ll.Add(New listMAZusammenf(133, "ANGERER")) ll.Add(New listMAZusammenf(158, "TORAMAN")) ll.Add(New listMAZusammenf(126, "Onur")) ll.Add(New listMAZusammenf(231, "TOZCOEKEN")) ll.Add(New listMAZusammenf(164, "DEMIRYÜREK")) ll.Add(New listMAZusammenf(235, "PULT2")) ll.Add(New listMAZusammenf(302, "KADAJ ARLINDA")) ll.Add(New listMAZusammenf(303, "OBIC")) Return ll End Function Function getmaid(ma As String) As Integer Dim ll As List(Of listMAZusammenf) = getMAList() For Each l1 As listMAZusammenf In ll If ma.ToLower.Contains(l1.name.ToLower) Then Return l1.id End If Next Return -1 End Function Function getmaidEXAKT(ma As String) As Integer Dim ll As List(Of listMAZusammenf) = getMAList() For Each l1 As listMAZusammenf In ll If ma.Trim.ToLower = l1.name.Trim.ToLower Then Return l1.id End If Next Return -1 End Function Private Sub Button5_Click(sender As Object, e As EventArgs) Dim ll As List(Of listMAZusammenf) = getMAList() For Each l1 As listMAZusammenf In ll setMATMP(l1) Next End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Dim ll As List(Of listMAZusammenf) = getMAList() For Each l1 As listMAZusammenf In ll setMATMPVermerke(l1) Next End Sub Public Sub setMATMPVermerke(ByVal l As listMAZusammenf) Dim hAuswahl As String hAuswahl = String.Format("UPDATE Vermerke SET MitarbeiterId = @MitarbeiterId WHERE Mitarbeiter like @Mitarbeiter") Dim sql = hAuswahl Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@MitarbeiterId", l.id) cmd.Parameters.AddWithValue("@Mitarbeiter", l.name & "%") Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk") End Try End Using conn.Close() End Sub Public Sub setMATMP(ByVal l As listMAZusammenf) Dim hAuswahl As String hAuswahl = String.Format("UPDATE Aviso SET LetzterMitarbeiterId = @LetzterMitarbeiterId WHERE LetzterMitarbeiter like @LetzterMitarbeiter") Dim sql = hAuswahl Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@LetzterMitarbeiterId", l.id) cmd.Parameters.AddWithValue("@LetzterMitarbeiter", l.name & "%") Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk") End Try End Using conn.Close() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Dim t As String ' = Button6.Text Dim sAend As New List(Of String) Dim sql As String = "SELECT [AvisoID],[Datum],[LKW_Nr],[Änderungen],[LetzterMitarbeiter],[LetzterMitarbeiterId] FROM [Aviso] " 'where datum between '01.01.2015 00:00:00' and '31.01.2015 23:59:59'" Dim dr As SqlDataReader Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) dr = cmd.ExecuteReader() Try Dim cnt As Integer = 0 If dr.HasRows Then While dr.Read If Not dr.Item("LetzterMitarbeiterId") Is DBNull.Value Then Dim aend As String = CStr(dr.Item("Änderungen")) If aend.Contains(vbNewLine) Then Dim sarr As String() sarr = aend.Split(CChar(vbNewLine)) ' MsgBox("yes " & sarr.Count()) For i = 0 To sarr.Count() - 1 If sarr(i).Contains(" von ") Then Dim sarr2 As String() sarr2 = sarr(i).Trim.Split({" von "}, StringSplitOptions.None) Dim b As Boolean = True For Each s In sAend If s = sarr2(0).Trim Then b = False End If Next If b Then sAend.Add(sarr2(0).Trim) End If End If ' MsgBox(sarr(i)) Next Else ' MsgBox("no ") End If End If End While dr.Close() dr = cmd.ExecuteReader() While dr.Read If Not dr.Item("LetzterMitarbeiterId") Is DBNull.Value Then Dim aend As String = CStr(dr.Item("Änderungen")) If aend.Contains(vbNewLine) Then Dim sarr As String() sarr = aend.Split(CChar(vbNewLine)) ' MsgBox("yes " & sarr.Count()) For i = 0 To sarr.Count() - 1 If sarr(i).Contains(" von ") Then For Each s In sAend If sarr(i).Trim.Contains(s) Then Dim sarr2 As String() = sarr(i).Trim.Split({" von "}, StringSplitOptions.None) Dim sarr3 As String() = sarr2(1).Trim.Split({" am "}, StringSplitOptions.None) Dim art As String = sarr2(0).Replace(vbNewLine, "").Trim Dim ma As String = sarr3(0).Replace(vbNewLine, "").Trim Dim dat As DateTime = CDate(sarr3(1).Replace(vbNewLine, "").Trim) 'Dim maId As Integer = getmaidEXAKT(ma) Dim maId As Integer = getmaid(ma) 'MsgBox(art & " - " & ma & " - " & dat & " - " & maId) 'getmaid(ma).Trim.Split({" am "}, StringSplitOptions.None) insertAend(CInt(dr.Item("AvisoID")), dat, ma, maId, art, sarr(i).Replace(vbNewLine, "").Trim) 'If Not Button6.Text = t & dat.ToString("dd.MM.yyyy") Then 'Button6.Text = t & dat.ToString("dd.MM.yyyy") 'End If End If Next End If Next Else End If End If End While dr.Close() MsgBox("FIN") End If conn.Close() Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Finally dr.Close() End Try 'end Using End Using 'Button6.Text' = t End Sub Public Sub insertFremdeSpeditionen(fremd_firma, fremd_plz, fremd_ort, fremd_verzolltBei, fremd_bemerkung) Dim hAuswahl As String hAuswahl = "INSERT INTO [tblFremdSpeditionen] " & "( [fremd_firma], [fremd_plz], [fremd_ort], [fremd_verzolltBei], [fremd_bemerkung]) VALUES (" & " @fremd_firma, @fremd_plz, @fremd_ort, @fremd_verzolltBei, @fremd_bemerkung)" Dim sql = hAuswahl ' Dim c = New SqlConnection(cGlobal.ConnStr) Dim conn As SqlConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString) conn.Open() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@fremd_firma", fremd_firma) cmd.Parameters.AddWithValue("@fremd_plz", fremd_plz) cmd.Parameters.AddWithValue("@fremd_ort", fremd_ort) cmd.Parameters.AddWithValue("@fremd_verzolltBei", fremd_verzolltBei) cmd.Parameters.AddWithValue("@fremd_bemerkung", fremd_bemerkung) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox("ERR2!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "ERR") End Try End Using conn.Close() End Sub Public Sub insertAend(AvisoID As Integer, Datum As DateTime, Mitarbeiter As String, MitarbeiterId As Integer, Aenderung_Art As String, Aenderung_Text As String) Dim hAuswahl As String ' [AenderungID] INT IDENTITY (1, 1) NOT NULL, ' [AvisoID] INT NULL, ' [Datum] DATETIME2 (0) NULL, ' [Mitarbeiter] NVARCHAR (50) NULL, ' [MitarbeiterId] INT NULL, ' [Aenderung_Art] NVARCHAR (MAX) NULL, ' [Aenderung_Text] NVARCHAR (MAX) NULL, ' hAuswahl = "INSERT INTO Aenderungen " & "(AvisoID, Datum, Mitarbeiter, MitarbeiterId, Aenderung_Art, Aenderung_Text) VALUES (" & "@AvisoID, @Datum, @Mitarbeiter, @MitarbeiterId, @Aenderung_Art, @Aenderung_Text)" Dim sql = hAuswahl ' Dim c = New SqlConnection(cGlobal.ConnStr) Dim conn As SqlConnection = New SqlConnection(cSqlDb.GetAVISOConnectionString) conn.Open() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@AvisoID", AvisoID) cmd.Parameters.AddWithValue("@Datum", Datum) cmd.Parameters.AddWithValue("@Mitarbeiter", Mitarbeiter) cmd.Parameters.AddWithValue("@MitarbeiterId", MitarbeiterId) cmd.Parameters.AddWithValue("@Aenderung_Art", Aenderung_Art) cmd.Parameters.AddWithValue("@Aenderung_Text", Aenderung_Text) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox("ERR2!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "ERR") End Try End Using conn.Close() End Sub Public Sub setVermerkeCode(code As Integer, ByVal where As String) Dim hAuswahl As String hAuswahl = String.Format("UPDATE Vermerke SET VermerkeCode = @code WHERE " & where & " ") Dim sql = hAuswahl Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@code", code) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Vermerk") End Try End Using conn.Close() End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) setVermerkeCode(1, " [Hinweis_Vermerk] LIKE '%Auftrag für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ") setVermerkeCode(1, " [Hinweis_Vermerk] LIKE '%Auftrag angefordert%' ") setVermerkeCode(2, " [Hinweis_Vermerk] LIKE '%Auftrag für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ") setVermerkeCode(3, " [Hinweis_Vermerk] LIKE '%Rechnung für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ") setVermerkeCode(4, " [Hinweis_Vermerk] LIKE '%Rechnung für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ") setVermerkeCode(5, " [Hinweis_Vermerk] LIKE '%LS für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ") setVermerkeCode(6, " [Hinweis_Vermerk] LIKE '%LS für Sendung%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ") setVermerkeCode(7, " [Hinweis_Vermerk] LIKE '%ATR Kopie%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ") setVermerkeCode(8, " [Hinweis_Vermerk] LIKE '%ATR Kopie%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ") setVermerkeCode(9, " [Hinweis_Vermerk] LIKE '%Vollmacht%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ") setVermerkeCode(10, " [Hinweis_Vermerk] LIKE '%Vollmacht%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ") setVermerkeCode(11, " [Hinweis_Vermerk] LIKE '%CMR für Fiskal%' AND [Hinweis_Vermerk] LIKE '%fehlt - angefordert%' ") setVermerkeCode(12, " [Hinweis_Vermerk] LIKE '%CMR für Fiskal%' AND [Hinweis_Vermerk] LIKE '%fehlt - erhalten%' ") setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%angefordert%' ") setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorkasse%' AND [Hinweis_Vermerk] LIKE '%angefordert%' ") setVermerkeCode(13, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%beantragt%' ") setVermerkeCode(14, " [Hinweis_Vermerk] LIKE '%Vorauskasse%' AND [Hinweis_Vermerk] LIKE '%erhalten%' ") setVermerkeCode(14, " [Hinweis_Vermerk] LIKE '%Vorkasse%' AND [Hinweis_Vermerk] LIKE '%erhalten%' ") setVermerkeCode(15, " [Hinweis_Vermerk] LIKE '%Aviso nicht eingelangt%' ") setVermerkeCode(16, " [Hinweis_Vermerk] LIKE '%Aviso eingelangt kurz vor Eintreffen des LKWs%' ") setVermerkeCode(17, " [Hinweis_Vermerk] LIKE '%DE Zoll eingereicht%' ") setVermerkeCode(18, " [Hinweis_Vermerk] LIKE '%DE Zoll fertig%' ") setVermerkeCode(19, " [Hinweis_Vermerk] LIKE '%AT Zoll eingereicht%' ") setVermerkeCode(20, " [Hinweis_Vermerk] LIKE '%AT Zoll eingereicht%' ") setVermerkeCode(21, " [Hinweis_Vermerk] LIKE '%LKW Standzeit Wochenende%' ") setVermerkeCode(22, " [Hinweis_Vermerk] LIKE '%LKW Standzeit Feiertag%' ") setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%Nach SALZBURG avisiert%' ") setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%über Sbg. avisiert%' ") setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%über Salzburg avisiert%' ") setVermerkeCode(23, " [Hinweis_Vermerk] LIKE '%NACH SALZBURG AVISIERT!%' ") setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%Nach WAIDHAUS avisiert%' ") setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%über Wdh. avisiert%' ") setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%über Waidhaus avisiert%' ") setVermerkeCode(24, " [Hinweis_Vermerk] LIKE '%NACH WAIDHAUS AVISIERT!%' ") setVermerkeCode(26, " [Hinweis_Vermerk] LIKE '%LKW ist fertig!%' ") setVermerkeCode(27, " [Hinweis_Vermerk] LIKE '%LKW ist nicht fertig.%' ") 'setVermerkeCode(25," [Hinweis_Vermerk] LIKE '%Sonstige Dokumente fehlen End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Dim hAuswahl As String hAuswahl = String.Format("UPDATE [Aviso] SET Vorbereitet=Avisoeingang ") Dim sql = hAuswahl Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox("ERROR!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Datum Vorbereitet") End Try End Using conn.Close() End Sub Private Sub btnFremdeSpeditionenEinlesen_Click(sender As Object, e As EventArgs) Dim fd As New OpenFileDialog fd.Filter = "Excel Dateien|*.xls;*.xlsx" Dim result As DialogResult = fd.ShowDialog() If Not fd.FileName.EndsWith(".xls") And Not fd.FileName.EndsWith(".xlsx") Then Me.Cursor = Cursors.Default Exit Sub End If If result = DialogResult.OK Then Me.Cursor = Cursors.WaitCursor Dim exclApp As New Excel.Application 'Object 'as Application Dim Datei As Excel.Workbook ' 'as WorkBook Dim Blatt As Excel.Worksheet 'Object 'as WorkSheet With exclApp Try .CutCopyMode = False .DisplayAlerts = False Datei = .Workbooks.Open(fd.FileName) Blatt = Datei.Worksheets(1) Datei.Activate() Try Blatt.ShowAllData() 'Falls Filter ausgewählt wurde Catch ex As Exception End Try 'Laden des Bereiches aus dem Excel: Dim myRange As Excel.Range myRange = Blatt.Range("A2:E" & Blatt.UsedRange.Rows.Count & "") Dim myArray As Object(,) '<-- declared as 2D Array myArray = myRange.Value 'store the content of each cell 'myArray(i_soll2 - startRows + 1, 4) MsgBox(Blatt.UsedRange.Rows.Count) For i As Integer = 1 To Blatt.UsedRange.Rows.Count - 1 Step 1 Dim firma = If(myArray(i, 1) Is Nothing, "", myArray(i, 1)) Dim plz = If(myArray(i, 2) Is Nothing, "", myArray(i, 2)) Dim ort = If(myArray(i, 3) Is Nothing, "", myArray(i, 3)) Dim sped = If(myArray(i, 4) Is Nothing, "", myArray(i, 4)) Dim bem = If(myArray(i, 5) Is Nothing, "", myArray(i, 5)) If firma <> "" Then insertFremdeSpeditionen(firma, plz, ort, sped, bem) End If ' MsgBox(firma) Next MsgBox("OK") Catch ex As Exception MsgBox(ex.Message) End Try End With End If Me.Cursor = Cursors.Default End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click Dim admin As New cADMIN Dim sql As String sql = String.Format("SELECT * FROM Firmen where ( eMail<>'' or eMail2<>'') AND [KundenNr] is not NULL") Dim daten As cFirma = Nothing Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Using dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read Dim kdnr = dr.Item("KundenNr").ToString Dim LIST_EMAILS = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(kdnr, 1) Dim LIST_EMAILS2 = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(kdnr, 2) Dim eMail = (dr.Item("eMail")).ToString.Replace(" ", "") Dim eMail2 = (dr.Item("eMail2")).ToString.Replace(" ", "") LIST_EMAILS.CLEAR() LIST_EMAILS2.CLEAR() If eMail.Contains(";") Then For Each r In eMail.Split(";") If r.Trim <> "" Then LIST_EMAILS.ADD(r.Trim) LIST_EMAILS2.ADD(r.Trim) End If Next ElseIf eMail.Trim <> "" Then LIST_EMAILS.ADD(eMail.Trim) LIST_EMAILS2.ADD(eMail.Trim) End If If eMail2.Contains(";") Then For Each r In eMail2.Split(";") If r.Trim <> "" Then LIST_EMAILS.ADD(r.Trim, True) LIST_EMAILS2.ADD(r.Trim, True) End If Next ElseIf eMail.Trim <> "" Then LIST_EMAILS.ADD(eMail2.Trim, True) LIST_EMAILS2.ADD(eMail2.Trim, True) End If LIST_EMAILS.SAVE() LIST_EMAILS2.SAVE() If LIST_EMAILS.LIST.Count > 0 Then admin.doSQL("UPDATE [Kunden] SET [EmailAnkunft]=1,[EmailFreigabe]=1 WHERE [KundenNr]=" & kdnr, "FMZOLL") End If End While End If dr.Close() End Using End Using conn.Close() 'damit leere Einträge gelöscht werden: admin.doSQL("delete FROM [tblEmailBenachrichtigung] WHERE [eb_EMail] = '' ", "FMZOLL") End Sub Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then clrPnlMain() Dim usrCntl As New usrctlStatVERIMEX usrCntl.Dock = System.Windows.Forms.DockStyle.Fill pnlMain.Controls.Add(usrCntl) End If End Sub End Class Public Class listMAZusammenf Public id As Integer Public name As String Sub New(v1 As Integer, v2 As String) id = v1 name = v2 End Sub End Class