edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a2c931c6df767d3d4dd587bbcf6a15560a12b4a4
AVISO/Aviso/Auswertung/frmAuswertung.vb
Andreas Luxbauer 8233a21e83 neu
2021-03-04 15:41:35 +01:00

712 lines
31 KiB
VB.net
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink