diff --git a/.editorconfig b/.editorconfig new file mode 100644 index 0000000..2fa2ca3 --- /dev/null +++ b/.editorconfig @@ -0,0 +1,7 @@ +[*.vb] + +# BC42104: Die Variable wurde verwendet, bevor ihr ein Wert zugewiesen wurde. +dotnet_diagnostic.BC42104.severity = suggestion + +# Default severity for all analyzer diagnostics +dotnet_analyzer_diagnostic.severity = suggestion diff --git a/Aviso.sln b/Aviso.sln index fbc2fc9..360c0e3 100644 --- a/Aviso.sln +++ b/Aviso.sln @@ -33,6 +33,11 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\.. EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}" EndProject +Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{02EA681E-C7D8-13C7-8484-4AC65E1B71E8}" + ProjectSection(SolutionItems) = preProject + .editorconfig = .editorconfig + EndProjectSection +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index 96f662a..3e7c298 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -476,7 +476,7 @@ Public Class frmATEZ_EZA 'End Select FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me) txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY) - txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY) + txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA") Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString diff --git a/Aviso/AktenErfassung/frmEintragAviso.vb b/Aviso/AktenErfassung/frmEintragAviso.vb index e4d228f..36e0f58 100644 --- a/Aviso/AktenErfassung/frmEintragAviso.vb +++ b/Aviso/AktenErfassung/frmEintragAviso.vb @@ -11,7 +11,7 @@ Public Class frmEintragAviso Dim ATILLA_NEUERAKTENDECKEL = True Dim Firmen As New cFirmenDAL Dim AvisoDAL As New cAvisoDAL - Dim myAviso As New cAviso + Public myAviso As New cAviso Dim AVISOFUNC As New AvisoStatusFunctions Dim ADMIN As New cADMIN Dim hÄnderung As Boolean = False @@ -34,6 +34,7 @@ Public Class frmEintragAviso Dim INFO As String = "" + Public getFromAVISO_Trip As cAviso = Nothing Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -351,6 +352,60 @@ Public Class frmEintragAviso If FIRMA_TMP = "AMBAR" Then cboGrenzstelle.changeItem("AMB") End If + + + + If getFromAVISO_Trip IsNot Nothing Then + myAviso.AvisoTripId = getFromAVISO_Trip.AvisoTripId ' --> Trip gespeichert! + + myAviso.Frächter = getFromAVISO_Trip.Frächter + myAviso.Frächter_KdNr = getFromAVISO_Trip.Frächter_KdNr + myAviso.Auftraggeber = getFromAVISO_Trip.Auftraggeber + myAviso.Auftraggeber_KdNr = getFromAVISO_Trip.Auftraggeber_KdNr + + myAviso.Zugmaschine = getFromAVISO_Trip.Zugmaschine + myAviso.LKW_Nr = getFromAVISO_Trip.LKW_Nr + myAviso.LKW_Nationalitaet = getFromAVISO_Trip.LKW_Nationalitaet + myAviso.Transportmittelart = getFromAVISO_Trip.Transportmittelart + + myAviso.AvisoEingang = getFromAVISO_Trip.AvisoEingang + myAviso.FahrerHandy = getFromAVISO_Trip.FahrerHandy + myAviso.KdAuftragsNr_Avisierer = getFromAVISO_Trip.KdAuftragsNr_Avisierer + myAviso.Telefonisch = getFromAVISO_Trip.Telefonisch + myAviso.Transportmittelart = getFromAVISO_Trip.Transportmittelart + + '---------ANZEIGE---------------------------------- + If myAviso.Frächter_KdNr > 0 Then + kdFrächter.KdNr = myAviso.Frächter_KdNr + Else + kdFrächter.Text = myAviso.Frächter + End If + + If myAviso.Auftraggeber_KdNr > 0 Then + kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr + Else + kdAvisierer.Text = myAviso.Auftraggeber + End If + + + txtLKW_Nr.Text = myAviso.LKW_Nr + sbLkwNationalitaet.SET_VALUE(myAviso.LKW_Nationalitaet) + txtFahrerHandy.Text = If(myAviso.FahrerHandy, "") + txtAvisiererAuftragsNr.Text = If(myAviso.KdAuftragsNr_Avisierer, "") + + + optAvisoEingang.Checked = True 'bei Änderung kann kein Eingang ohne Aviso erfolgen... + + If myAviso.Telefonisch = "Telefon" Then + optTelefonisch.Checked = True + ElseIf myAviso.Telefonisch = "Schriftl." Then + optSchriftlich.Checked = True + Else + optUnbekannt.Checked = True + End If + cboTransportmittelart.changeItem(myAviso.Transportmittelart) + End If + Else If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Me.Close() @@ -376,9 +431,9 @@ Public Class frmEintragAviso kdFrächter.KdNr = myAviso.Frächter_KdNr Else kdFrächter.Text = myAviso.Frächter - End If + End If - If myAviso.Auftraggeber_KdNr > 0 Then + If myAviso.Auftraggeber_KdNr > 0 Then kdAvisierer.KdNr = myAviso.Auftraggeber_KdNr Else kdAvisierer.Text = myAviso.Auftraggeber @@ -755,60 +810,63 @@ Public Class frmEintragAviso Dim ListOfLKWNr = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkLKWNr(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")) + If getFromAVISO_Trip Is Nothing Then 'wenn Trip -> Prüfung überspringen - For Each LKWNr In ListOfLKWNr - Dim temp_avisoID As Integer = -1 - Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(LKWNr, temp_avisoID) - If hLKWCheck2 <> "" Then - Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), - "Aviso-Eintrag") - If antwort = vbNo Then - If temp_avisoID > 0 Then - Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1) - FRM.ShowDialog(frmGrayOut) - frmGrayOut.Close() - Exit Sub - Else - MsgBox("AVISO-ID konnte nicht ermittelt werden") - Exit Sub - End If - - ElseIf antwort = vbCancel Then - Exit Sub - Else - EintragMehrfach = True - End If - End If - - If hLKWCheck2 = "" Then - 'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde - Dim hLKWCheck As String = AvisoDAL.Suche_LKW(LKWNr, temp_avisoID) - If hLKWCheck <> "" Then - Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), - "Aviso-Eintrag") + For Each LKWNr In ListOfLKWNr + Dim temp_avisoID As Integer = -1 + Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(LKWNr, temp_avisoID) + If hLKWCheck2 <> "" Then + Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Aviso-Eintrag") If antwort = vbNo Then If temp_avisoID > 0 Then Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1) FRM.ShowDialog(frmGrayOut) frmGrayOut.Close() + Exit Sub Else MsgBox("AVISO-ID konnte nicht ermittelt werden") Exit Sub End If + ElseIf antwort = vbCancel Then Exit Sub Else - EintragMehrfach = True End If End If - End If - Next + If hLKWCheck2 = "" Then + 'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde + Dim hLKWCheck As String = AvisoDAL.Suche_LKW(LKWNr, temp_avisoID) + If hLKWCheck <> "" Then + Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?" & vbNewLine & "NEIN -> Springe zu existierendem Eintrag!", CType(MsgBoxStyle.YesNoCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), + "Aviso-Eintrag") + If antwort = vbNo Then + If temp_avisoID > 0 Then + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim FRM As New frmSendungsdetailsNEU(temp_avisoID, -1) + FRM.ShowDialog(frmGrayOut) + frmGrayOut.Close() + Exit Sub + Else + MsgBox("AVISO-ID konnte nicht ermittelt werden") + Exit Sub + End If + ElseIf antwort = vbCancel Then + Exit Sub + Else + + EintragMehrfach = True + End If + End If + End If + + Next + End If End If diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index 83fde28..1a00390 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -1873,6 +1873,8 @@ Always + + Always diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 2cdda1e..d5272ff 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/My Project/Resources.Designer.vb b/Aviso/My Project/Resources.Designer.vb index ba159a6..98625bf 100644 --- a/Aviso/My Project/Resources.Designer.vb +++ b/Aviso/My Project/Resources.Designer.vb @@ -169,6 +169,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Public ReadOnly Property aktualisieren_40() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("aktualisieren_40", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -378,6 +388,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Public ReadOnly Property AVISO_DCS() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("AVISO_DCS", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/Aviso/My Project/Resources.resx b/Aviso/My Project/Resources.resx index cc25293..6206a41 100644 --- a/Aviso/My Project/Resources.resx +++ b/Aviso/My Project/Resources.resx @@ -724,4 +724,10 @@ ..\Resources\ambar_boarder_new.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\aktualisieren-40.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\AVISO_DCS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/Aviso/Resources/AVISO_DCS.png b/Aviso/Resources/AVISO_DCS.png new file mode 100644 index 0000000..377a20c Binary files /dev/null and b/Aviso/Resources/AVISO_DCS.png differ diff --git a/Aviso/Resources/aktualisieren-40.png b/Aviso/Resources/aktualisieren-40.png new file mode 100644 index 0000000..21da472 Binary files /dev/null and b/Aviso/Resources/aktualisieren-40.png differ diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 6eaf8bb..e797707 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -1213,7 +1213,7 @@ ELSE_ATILLA: End If End If End If - + Dim hSQLFirma = "" hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " & " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & @@ -5260,7 +5260,7 @@ ELSE_ATILLA: Dim f As New frmSendungsdetailsNEU - Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, f.SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen + Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(-1, f.SENDUNG_LIST.Count + 1, , Nothing, 0, 0) 'Neue Sendung erstellen NEW_SND.SAVE(False) 'Insert neue Sendung f.SENDUNG_LIST.Add(NEW_SND) diff --git a/Aviso/frmHauptfensterNew.Designer.vb b/Aviso/frmHauptfensterNew.Designer.vb index a3c38c0..5fe109e 100644 --- a/Aviso/frmHauptfensterNew.Designer.vb +++ b/Aviso/frmHauptfensterNew.Designer.vb @@ -270,14 +270,20 @@ Partial Class frmHauptfensterNew Me.splitMain = New System.Windows.Forms.SplitContainer() Me.pnlMain = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() + Me.Panel8 = New System.Windows.Forms.Panel() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() Me.btnWichtigeStandort = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) Me.pnlOptionen = New System.Windows.Forms.Panel() Me.btnKasse_User = New System.Windows.Forms.Button() Me.btnKasse_LG = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() + Me.Panel9 = New System.Windows.Forms.Panel() Me.btnSmall = New System.Windows.Forms.Button() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() @@ -328,7 +334,12 @@ Partial Class frmHauptfensterNew Me.splitMain.SuspendLayout() Me.Panel1.SuspendLayout() Me.FlowLayoutPanel1.SuspendLayout() + Me.Panel6.SuspendLayout() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.FlowLayoutPanel2.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() Me.pnlOptionen.SuspendLayout() + Me.Panel9.SuspendLayout() Me.cntxt.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel4.SuspendLayout() @@ -1669,19 +1680,21 @@ Partial Class frmHauptfensterNew 'btnMAVerzeichnis ' Me.btnMAVerzeichnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMAVerzeichnis.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnMAVerzeichnis.Cursor = System.Windows.Forms.Cursors.Default - Me.btnMAVerzeichnis.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMAVerzeichnis.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnMAVerzeichnis.ForeColor = System.Drawing.Color.Black Me.btnMAVerzeichnis.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s Me.btnMAVerzeichnis.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnMAVerzeichnis.Location = New System.Drawing.Point(367, 65) + Me.btnMAVerzeichnis.Location = New System.Drawing.Point(3, 3) Me.btnMAVerzeichnis.Name = "btnMAVerzeichnis" - Me.btnMAVerzeichnis.Size = New System.Drawing.Size(102, 39) + Me.btnMAVerzeichnis.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnMAVerzeichnis.Size = New System.Drawing.Size(150, 50) Me.btnMAVerzeichnis.TabIndex = 13 Me.btnMAVerzeichnis.TabStop = False Me.btnMAVerzeichnis.Text = "Mitarbeiter Verzeichnis" Me.btnMAVerzeichnis.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnMAVerzeichnis.UseVisualStyleBackColor = True + Me.btnMAVerzeichnis.UseVisualStyleBackColor = False Me.btnMAVerzeichnis.Visible = False ' 'btnMitarbeiterKonto @@ -1705,19 +1718,21 @@ Partial Class frmHauptfensterNew 'btnKontakt ' Me.btnKontakt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnKontakt.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnKontakt.Cursor = System.Windows.Forms.Cursors.Default - Me.btnKontakt.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKontakt.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnKontakt.ForeColor = System.Drawing.Color.Black Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small Me.btnKontakt.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnKontakt.Location = New System.Drawing.Point(581, 65) + Me.btnKontakt.Location = New System.Drawing.Point(471, 3) Me.btnKontakt.Name = "btnKontakt" - Me.btnKontakt.Size = New System.Drawing.Size(119, 39) + Me.btnKontakt.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnKontakt.Size = New System.Drawing.Size(150, 50) Me.btnKontakt.TabIndex = 12 Me.btnKontakt.TabStop = False Me.btnKontakt.Text = "Kontakte/Tel" Me.btnKontakt.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnKontakt.UseVisualStyleBackColor = True + Me.btnKontakt.UseVisualStyleBackColor = False ' 'Button2 ' @@ -1738,19 +1753,21 @@ Partial Class frmHauptfensterNew ' 'Button5 ' + Me.Button5.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.Button5.Cursor = System.Windows.Forms.Cursors.Default - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.Button5.ForeColor = System.Drawing.Color.Black Me.Button5.Image = Global.AVISO.My.Resources.Resources.parkplatz Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button5.Location = New System.Drawing.Point(820, 65) + Me.Button5.Location = New System.Drawing.Point(315, 3) Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(116, 39) + Me.Button5.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.Button5.Size = New System.Drawing.Size(150, 50) Me.Button5.TabIndex = 8 Me.Button5.TabStop = False Me.Button5.Text = "Parkticket" Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.UseVisualStyleBackColor = True + Me.Button5.UseVisualStyleBackColor = False Me.Button5.Visible = False ' 'lblGrenzstelle @@ -1780,88 +1797,95 @@ Partial Class frmHauptfensterNew ' 'btnFakturierung ' + Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default - Me.btnFakturierung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnFakturierung.ForeColor = System.Drawing.Color.Black Me.btnFakturierung.Image = CType(resources.GetObject("btnFakturierung.Image"), System.Drawing.Image) Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnFakturierung.Location = New System.Drawing.Point(820, 16) + Me.btnFakturierung.Location = New System.Drawing.Point(159, 3) Me.btnFakturierung.Name = "btnFakturierung" - Me.btnFakturierung.Size = New System.Drawing.Size(116, 39) + Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnFakturierung.Size = New System.Drawing.Size(150, 50) Me.btnFakturierung.TabIndex = 11 Me.btnFakturierung.TabStop = False Me.btnFakturierung.Text = "Fakturierung" Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnFakturierung.UseVisualStyleBackColor = True + Me.btnFakturierung.UseVisualStyleBackColor = False Me.btnFakturierung.Visible = False ' 'btnDienstplan ' Me.btnDienstplan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDienstplan.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnDienstplan.Cursor = System.Windows.Forms.Cursors.Default - Me.btnDienstplan.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDienstplan.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnDienstplan.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnDienstplan.ForeColor = System.Drawing.Color.Black Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnDienstplan.Location = New System.Drawing.Point(475, 65) - Me.btnDienstplan.Margin = New System.Windows.Forms.Padding(0) + Me.btnDienstplan.Location = New System.Drawing.Point(159, 3) Me.btnDienstplan.Name = "btnDienstplan" - Me.btnDienstplan.Size = New System.Drawing.Size(103, 39) + Me.btnDienstplan.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnDienstplan.Size = New System.Drawing.Size(150, 50) Me.btnDienstplan.TabIndex = 10 Me.btnDienstplan.Text = "Dienstplan" Me.btnDienstplan.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDienstplan.UseVisualStyleBackColor = True + Me.btnDienstplan.UseVisualStyleBackColor = False ' 'btnRg ' + Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default - Me.btnRg.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnRg.ForeColor = System.Drawing.Color.Black Me.btnRg.Image = CType(resources.GetObject("btnRg.Image"), System.Drawing.Image) Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnRg.Location = New System.Drawing.Point(713, 16) + Me.btnRg.Location = New System.Drawing.Point(315, 3) Me.btnRg.Name = "btnRg" - Me.btnRg.Size = New System.Drawing.Size(101, 39) + Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnRg.Size = New System.Drawing.Size(150, 50) Me.btnRg.TabIndex = 9 Me.btnRg.TabStop = False Me.btnRg.Text = "Rechnungs-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "daten" Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnRg.UseVisualStyleBackColor = True + Me.btnRg.UseVisualStyleBackColor = False Me.btnRg.Visible = False ' 'btnKassenbuch ' + Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default - Me.btnKassenbuch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.kasse_sw_small Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnKassenbuch.Location = New System.Drawing.Point(595, 16) + Me.btnKassenbuch.Location = New System.Drawing.Point(471, 3) Me.btnKassenbuch.Name = "btnKassenbuch" - Me.btnKassenbuch.Size = New System.Drawing.Size(112, 39) + Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50) Me.btnKassenbuch.TabIndex = 8 Me.btnKassenbuch.TabStop = False Me.btnKassenbuch.Text = "Kassenbuch" Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnKassenbuch.UseVisualStyleBackColor = True + Me.btnKassenbuch.UseVisualStyleBackColor = False Me.btnKassenbuch.Visible = False ' 'btnRefresh ' + Me.btnRefresh.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnRefresh.Cursor = System.Windows.Forms.Cursors.Default - Me.btnRefresh.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnRefresh.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnRefresh.FlatAppearance.BorderSize = 3 + Me.btnRefresh.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnRefresh.ForeColor = System.Drawing.Color.Black - Me.btnRefresh.Image = Global.AVISO.My.Resources.Resources.refresh - Me.btnRefresh.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnRefresh.Location = New System.Drawing.Point(774, 120) + Me.btnRefresh.Image = Global.AVISO.My.Resources.Resources.aktualisieren_40 + Me.btnRefresh.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnRefresh.Location = New System.Drawing.Point(11, 8) Me.btnRefresh.Margin = New System.Windows.Forms.Padding(0) Me.btnRefresh.Name = "btnRefresh" - Me.btnRefresh.Size = New System.Drawing.Size(135, 39) + Me.btnRefresh.Size = New System.Drawing.Size(135, 72) Me.btnRefresh.TabIndex = 1 Me.btnRefresh.Text = "Aktualisieren" - Me.btnRefresh.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnRefresh.UseVisualStyleBackColor = True + Me.btnRefresh.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnRefresh.UseVisualStyleBackColor = False ' 'Button3 ' @@ -1875,35 +1899,39 @@ Partial Class frmHauptfensterNew ' 'btnKunden ' + Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default - Me.btnKunden.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnKunden.ForeColor = System.Drawing.Color.Black Me.btnKunden.Image = CType(resources.GetObject("btnKunden.Image"), System.Drawing.Image) Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnKunden.Location = New System.Drawing.Point(367, 16) + Me.btnKunden.Location = New System.Drawing.Point(3, 3) Me.btnKunden.Name = "btnKunden" - Me.btnKunden.Size = New System.Drawing.Size(102, 39) + Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnKunden.Size = New System.Drawing.Size(150, 50) Me.btnKunden.TabIndex = 2 Me.btnKunden.TabStop = False Me.btnKunden.Text = "Kunden" Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnKunden.UseVisualStyleBackColor = True + Me.btnKunden.UseVisualStyleBackColor = False ' 'btnSpedBuch ' + Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default - Me.btnSpedBuch.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!) Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.spedbuch1 Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSpedBuch.Location = New System.Drawing.Point(475, 16) + Me.btnSpedBuch.Location = New System.Drawing.Point(3, 59) Me.btnSpedBuch.Name = "btnSpedBuch" - Me.btnSpedBuch.Size = New System.Drawing.Size(114, 39) + Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) + Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50) Me.btnSpedBuch.TabIndex = 3 Me.btnSpedBuch.TabStop = False Me.btnSpedBuch.Text = "Sped.Buch" Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSpedBuch.UseVisualStyleBackColor = True + Me.btnSpedBuch.UseVisualStyleBackColor = False ' 'lblDauer ' @@ -1951,32 +1979,34 @@ Partial Class frmHauptfensterNew ' 'btnUmrechnungskurse ' - Me.btnUmrechnungskurse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUmrechnungskurse.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnUmrechnungskurse.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnUmrechnungskurse.ForeColor = System.Drawing.Color.Black Me.btnUmrechnungskurse.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnUmrechnungskurse.Location = New System.Drawing.Point(5, 19) Me.btnUmrechnungskurse.Name = "btnUmrechnungskurse" - Me.btnUmrechnungskurse.Size = New System.Drawing.Size(121, 30) + Me.btnUmrechnungskurse.Size = New System.Drawing.Size(121, 40) Me.btnUmrechnungskurse.TabIndex = 2 Me.btnUmrechnungskurse.TabStop = False Me.btnUmrechnungskurse.Text = "Umrechnungskurse" Me.btnUmrechnungskurse.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnUmrechnungskurse.UseVisualStyleBackColor = True + Me.btnUmrechnungskurse.UseVisualStyleBackColor = False ' 'btnZollwebseiten ' - Me.btnZollwebseiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZollwebseiten.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnZollwebseiten.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnZollwebseiten.ForeColor = System.Drawing.Color.Black Me.btnZollwebseiten.Image = CType(resources.GetObject("btnZollwebseiten.Image"), System.Drawing.Image) Me.btnZollwebseiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 50) + Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 62) Me.btnZollwebseiten.Name = "btnZollwebseiten" - Me.btnZollwebseiten.Size = New System.Drawing.Size(121, 30) + Me.btnZollwebseiten.Size = New System.Drawing.Size(121, 40) Me.btnZollwebseiten.TabIndex = 0 Me.btnZollwebseiten.TabStop = False Me.btnZollwebseiten.Text = "Zoll-Webseiten" Me.btnZollwebseiten.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnZollwebseiten.UseVisualStyleBackColor = True + Me.btnZollwebseiten.UseVisualStyleBackColor = False ' 'Timer1 ' @@ -2006,34 +2036,36 @@ Partial Class frmHauptfensterNew Me.Panel2.Controls.Add(Me.lblErrVermerk) Me.Panel2.Controls.Add(Me.btnUmrechnungskurse) Me.Panel2.Controls.Add(Me.btnZollwebseiten) - Me.Panel2.Location = New System.Drawing.Point(2, 3) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel2.Location = New System.Drawing.Point(0, 5) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(243, 129) + Me.Panel2.Size = New System.Drawing.Size(181, 152) Me.Panel2.TabIndex = 10 ' 'btnZertifikate ' - Me.btnZertifikate.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZertifikate.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnZertifikate.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnZertifikate.ForeColor = System.Drawing.Color.Black Me.btnZertifikate.Image = CType(resources.GetObject("btnZertifikate.Image"), System.Drawing.Image) Me.btnZertifikate.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnZertifikate.Location = New System.Drawing.Point(5, 81) + Me.btnZertifikate.Location = New System.Drawing.Point(5, 107) Me.btnZertifikate.Name = "btnZertifikate" - Me.btnZertifikate.Size = New System.Drawing.Size(121, 30) + Me.btnZertifikate.Size = New System.Drawing.Size(121, 40) Me.btnZertifikate.TabIndex = 5 Me.btnZertifikate.TabStop = False Me.btnZertifikate.Text = "Zertifikate" Me.btnZertifikate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnZertifikate.UseVisualStyleBackColor = True + Me.btnZertifikate.UseVisualStyleBackColor = False ' 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label7.ForeColor = System.Drawing.Color.Black Me.Label7.Location = New System.Drawing.Point(2, 5) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(41, 13) + Me.Label7.Size = New System.Drawing.Size(37, 13) Me.Label7.TabIndex = 3 Me.Label7.Text = "Links:" ' @@ -2043,9 +2075,9 @@ Partial Class frmHauptfensterNew Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblErrVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red - Me.lblErrVermerk.Location = New System.Drawing.Point(12, 176) + Me.lblErrVermerk.Location = New System.Drawing.Point(12, 134) Me.lblErrVermerk.Name = "lblErrVermerk" - Me.lblErrVermerk.Size = New System.Drawing.Size(216, 27) + Me.lblErrVermerk.Size = New System.Drawing.Size(154, 27) Me.lblErrVermerk.TabIndex = 1 Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!" Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft @@ -2125,7 +2157,7 @@ Partial Class frmHauptfensterNew Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top Me.pnlAktOption.Location = New System.Drawing.Point(0, 0) Me.pnlAktOption.Name = "pnlAktOption" - Me.pnlAktOption.Size = New System.Drawing.Size(977, 5) + Me.pnlAktOption.Size = New System.Drawing.Size(821, 5) Me.pnlAktOption.TabIndex = 1 ' 'Button8 @@ -2216,19 +2248,12 @@ Partial Class frmHauptfensterNew 'splitMain.Panel2 ' Me.splitMain.Panel2.BackColor = System.Drawing.Color.White + Me.splitMain.Panel2.Controls.Add(Me.FlowLayoutPanel2) + Me.splitMain.Panel2.Controls.Add(Me.MyFlowLayoutPanel1) Me.splitMain.Panel2.Controls.Add(Me.Panel2) Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption) Me.splitMain.Panel2.Controls.Add(Me.pnlOptionen) - Me.splitMain.Panel2.Controls.Add(Me.btnKunden) - Me.splitMain.Panel2.Controls.Add(Me.btnSpedBuch) - Me.splitMain.Panel2.Controls.Add(Me.btnMAVerzeichnis) - Me.splitMain.Panel2.Controls.Add(Me.btnKassenbuch) - Me.splitMain.Panel2.Controls.Add(Me.btnRg) - Me.splitMain.Panel2.Controls.Add(Me.btnKontakt) - Me.splitMain.Panel2.Controls.Add(Me.btnRefresh) - Me.splitMain.Panel2.Controls.Add(Me.btnFakturierung) - Me.splitMain.Panel2.Controls.Add(Me.Button5) - Me.splitMain.Panel2.Controls.Add(Me.btnDienstplan) + Me.splitMain.Panel2.Controls.Add(Me.Panel9) Me.splitMain.Size = New System.Drawing.Size(977, 737) Me.splitMain.SplitterDistance = 576 Me.splitMain.TabIndex = 0 @@ -2236,39 +2261,52 @@ Partial Class frmHauptfensterNew 'pnlMain ' Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnlMain.Location = New System.Drawing.Point(0, 54) + Me.pnlMain.Location = New System.Drawing.Point(0, 66) Me.pnlMain.Name = "pnlMain" - Me.pnlMain.Size = New System.Drawing.Size(977, 522) + Me.pnlMain.Size = New System.Drawing.Size(977, 510) Me.pnlMain.TabIndex = 8 ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Controls.Add(Me.Panel8) Me.Panel1.Controls.Add(Me.FlowLayoutPanel1) + Me.Panel1.Controls.Add(Me.Panel6) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(977, 54) + Me.Panel1.Size = New System.Drawing.Size(977, 66) Me.Panel1.TabIndex = 2 ' + 'Panel8 + ' + Me.Panel8.BackColor = System.Drawing.Color.White + Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel8.Location = New System.Drawing.Point(0, 56) + Me.Panel8.Name = "Panel8" + Me.Panel8.Size = New System.Drawing.Size(749, 10) + Me.Panel8.TabIndex = 10 + ' 'FlowLayoutPanel1 ' - Me.FlowLayoutPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer)) + Me.FlowLayoutPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(100, Byte), Integer)) Me.FlowLayoutPanel1.Controls.Add(Me.btnWichtigeStandort) Me.FlowLayoutPanel1.Controls.Add(Me.Button4) Me.FlowLayoutPanel1.Controls.Add(Me.Button7) Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0) Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1" - Me.FlowLayoutPanel1.Size = New System.Drawing.Size(977, 55) + Me.FlowLayoutPanel1.Size = New System.Drawing.Size(749, 65) Me.FlowLayoutPanel1.TabIndex = 6 ' 'btnWichtigeStandort ' - Me.btnWichtigeStandort.BackColor = System.Drawing.Color.White - Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWichtigeStandort.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.btnWichtigeStandort.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer)) - Me.btnWichtigeStandort.Location = New System.Drawing.Point(3, 3) + Me.btnWichtigeStandort.Location = New System.Drawing.Point(3, 9) + Me.btnWichtigeStandort.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0) Me.btnWichtigeStandort.Name = "btnWichtigeStandort" Me.btnWichtigeStandort.Size = New System.Drawing.Size(158, 47) Me.btnWichtigeStandort.TabIndex = 4 @@ -2280,9 +2318,13 @@ Partial Class frmHauptfensterNew ' 'Button4 ' - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.Button4.FlatAppearance.BorderSize = 0 + Me.Button4.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button4.ForeColor = System.Drawing.Color.White - Me.Button4.Location = New System.Drawing.Point(167, 3) + Me.Button4.Location = New System.Drawing.Point(167, 9) + Me.Button4.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(158, 47) Me.Button4.TabIndex = 5 @@ -2290,13 +2332,17 @@ Partial Class frmHauptfensterNew Me.Button4.Text = "SENDUNGEN" Me.ToolTip1.SetToolTip(Me.Button4, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") - Me.Button4.UseVisualStyleBackColor = True + Me.Button4.UseVisualStyleBackColor = False ' 'Button7 ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer)) + Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.Button7.FlatAppearance.BorderSize = 0 + Me.Button7.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button7.ForeColor = System.Drawing.Color.White - Me.Button7.Location = New System.Drawing.Point(331, 3) + Me.Button7.Location = New System.Drawing.Point(331, 9) + Me.Button7.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0) Me.Button7.Name = "Button7" Me.Button7.Size = New System.Drawing.Size(158, 47) Me.Button7.TabIndex = 6 @@ -2304,7 +2350,56 @@ Partial Class frmHauptfensterNew Me.Button7.Text = "BACKOFFICE" Me.ToolTip1.SetToolTip(Me.Button7, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" & "d sortiert nach Dauer") - Me.Button7.UseVisualStyleBackColor = True + Me.Button7.UseVisualStyleBackColor = False + ' + 'Panel6 + ' + Me.Panel6.Controls.Add(Me.PictureBox1) + Me.Panel6.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel6.Location = New System.Drawing.Point(749, 0) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(228, 66) + Me.Panel6.TabIndex = 9 + ' + 'PictureBox1 + ' + Me.PictureBox1.BackColor = System.Drawing.Color.White + Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.AVISO_DCS + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill + Me.PictureBox1.Location = New System.Drawing.Point(0, 0) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(228, 66) + Me.PictureBox1.TabIndex = 7 + Me.PictureBox1.TabStop = False + ' + 'FlowLayoutPanel2 + ' + Me.FlowLayoutPanel2.AutoScroll = True + Me.FlowLayoutPanel2.Controls.Add(Me.btnMAVerzeichnis) + Me.FlowLayoutPanel2.Controls.Add(Me.btnDienstplan) + Me.FlowLayoutPanel2.Controls.Add(Me.Button5) + Me.FlowLayoutPanel2.Controls.Add(Me.btnKontakt) + Me.FlowLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Top + Me.FlowLayoutPanel2.Location = New System.Drawing.Point(181, 70) + Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2" + Me.FlowLayoutPanel2.Size = New System.Drawing.Size(640, 65) + Me.FlowLayoutPanel2.TabIndex = 86 + ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.AutoScroll = True + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top + Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(640, 65) + Me.MyFlowLayoutPanel1.TabIndex = 85 ' 'pnlOptionen ' @@ -2313,7 +2408,7 @@ Partial Class frmHauptfensterNew Me.pnlOptionen.Controls.Add(Me.btnKasse_User) Me.pnlOptionen.Controls.Add(Me.btnKasse_LG) Me.pnlOptionen.Controls.Add(Me.btnTV) - Me.pnlOptionen.Location = New System.Drawing.Point(595, 56) + Me.pnlOptionen.Location = New System.Drawing.Point(187, 142) Me.pnlOptionen.Name = "pnlOptionen" Me.pnlOptionen.Size = New System.Drawing.Size(116, 66) Me.pnlOptionen.TabIndex = 84 @@ -2363,6 +2458,15 @@ Partial Class frmHauptfensterNew Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnTV.UseVisualStyleBackColor = False ' + 'Panel9 + ' + Me.Panel9.Controls.Add(Me.btnRefresh) + Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel9.Location = New System.Drawing.Point(821, 0) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(156, 157) + Me.Panel9.TabIndex = 88 + ' 'btnSmall ' Me.btnSmall.BackColor = System.Drawing.Color.White @@ -2657,7 +2761,12 @@ Partial Class frmHauptfensterNew Me.splitMain.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.FlowLayoutPanel1.ResumeLayout(False) + Me.Panel6.ResumeLayout(False) + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.FlowLayoutPanel2.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False) + Me.Panel9.ResumeLayout(False) Me.cntxt.ResumeLayout(False) Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() @@ -2953,7 +3062,13 @@ Partial Class frmHauptfensterNew Friend WithEvents Panel1 As Panel Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel Friend WithEvents btnWichtigeStandort As Button + Friend WithEvents pnlMain As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents PictureBox1 As PictureBox + Friend WithEvents Panel6 As Panel + Friend WithEvents Panel8 As Panel + Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents FlowLayoutPanel2 As FlowLayoutPanel + Friend WithEvents Panel9 As Panel Friend WithEvents Button4 As Button Friend WithEvents Button7 As Button - Friend WithEvents pnlMain As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel End Class diff --git a/Aviso/frmHauptfensterNew.resx b/Aviso/frmHauptfensterNew.resx index 616b874..7e986cb 100644 --- a/Aviso/frmHauptfensterNew.resx +++ b/Aviso/frmHauptfensterNew.resx @@ -246,6 +246,9 @@ AAAAAElFTkSuQmCC + + 560, 17 + 659, 17 diff --git a/Aviso/frmHauptfensterNew.vb b/Aviso/frmHauptfensterNew.vb index ff07ca5..af0c960 100644 --- a/Aviso/frmHauptfensterNew.vb +++ b/Aviso/frmHauptfensterNew.vb @@ -20,8 +20,6 @@ Public Class frmHauptfensterNew - Public AVISO_TYP = "LKW" - Public aktiv = False Private AvisoDAL As New cAvisoDAL Private VermerkeDAL As New cVermerkeDAL Private Standorte As New cStandorteDAL @@ -49,11 +47,13 @@ Public Class frmHauptfensterNew Public gridFont As New Font(Me.Font.FontFamily, 8) Dim cFormularManager As New VERAG_PROG_ALLGEMEIN.cFormularManager ' Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER - Dim sd = 0 - Dim closeOK = False - Dim Fullscreen = False - Dim rowHeight = 20 + Dim chkFarben = True + Dim closeOK = False + + Dim sd = 0 + + Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -115,6 +115,7 @@ Public Class frmHauptfensterNew pnlMain.Controls.Add(SEARCH_AVISO) 'SEARCH_AVISO.Dock = DockStyle.Fill + SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me SEARCH_AVISO.Visible = True SEARCH_AVISO.BringToFront() SEARCH_AVISO.Width = pnlMain.Width @@ -125,17 +126,20 @@ Public Class frmHauptfensterNew Application.DoEvents() - MsgBox(pnlMain.Width & " / " & pnlMain.Height) - MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height) - End Select + 'MsgBox(pnlMain.Width & " / " & pnlMain.Height) + 'MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height) + End Select + initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("") End Sub Sub initsearch(hSort As String, Optional showDetails As Boolean = True) + If SEARCH_AVISO IsNot Nothing Then - Select Case SEARCH_AVISO_AKTIV - Case "AVISO" : SEARCH_AVISO.Aviso_anzeigen(hSort, showDetails) ': Aviso_anzeigen("") - End Select + Select Case SEARCH_AVISO_AKTIV + Case "AVISO" : SEARCH_AVISO.Aviso_anzeigen(hSort, showDetails) ': Aviso_anzeigen("") + End Select + End If End Sub Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown @@ -1442,34 +1446,37 @@ ELSE_ATILLA: End Sub Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click - SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) - UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + If SEARCH_AVISO IsNot nohing Then + + SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True) + UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont) + End If End Sub - Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter - Try - Dim cF As Color = DirectCast(sender, Button).ForeColor - Dim cB As Color = DirectCast(sender, Button).BackColor - If cF = Color.Black Then cF = Color.Gray - DirectCast(sender, Button).ForeColor = cB - DirectCast(sender, Button).BackColor = cF - Catch ex As Exception + 'Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter + ' Try + ' Dim cF As Color = DirectCast(sender, Button).ForeColor + ' Dim cB As Color = DirectCast(sender, Button).BackColor + ' If cF = Color.Black Then cF = Color.Gray + ' DirectCast(sender, Button).ForeColor = cB + ' DirectCast(sender, Button).BackColor = cF + ' Catch ex As Exception - End Try - End Sub - Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave - Try - Dim cF As Color = DirectCast(sender, Button).ForeColor - Dim cB As Color = DirectCast(sender, Button).BackColor - If cB = Color.Gray Then cB = Color.Black - DirectCast(sender, Button).ForeColor = cB - DirectCast(sender, Button).BackColor = cF - Catch ex As Exception + ' End Try + 'End Sub + 'Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, btnUmrechnungskurse.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave + ' Try + ' Dim cF As Color = DirectCast(sender, Button).ForeColor + ' Dim cB As Color = DirectCast(sender, Button).BackColor + ' If cB = Color.Gray Then cB = Color.Black + ' DirectCast(sender, Button).ForeColor = cB + ' DirectCast(sender, Button).BackColor = cF + ' Catch ex As Exception - End Try - End Sub + ' End Try + 'End Sub @@ -1817,8 +1824,9 @@ ELSE_ATILLA: WithEvents timerStart As New Timer Private Sub timerStart_Tick(sender As Object, e As EventArgs) Handles timerStart.Tick - Details_anzeigen(SEARCH_AVISO.setAkive_AuswahlID()) - + If SEARCH_AVISO IsNot Nothing Then + Details_anzeigen(SEARCH_AVISO.setAkive_AuswahlID()) + End If Try VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath() Catch ex As Exception @@ -2389,6 +2397,8 @@ ELSE_ATILLA: Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" pnlOptionen.Visible = Not pnlOptionen.Visible + + pnlOptionen.Location = Cursor.Position Case Else Dim s As New SDL.frmSecureLoginKassenbuch s.openKB = True @@ -3791,7 +3801,7 @@ ELSE_ATILLA: Dim f As New frmSendungsdetailsNEU - Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, f.SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen + Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(-1, f.SENDUNG_LIST.Count + 1, , Nothing, 0, 0) 'Neue Sendung erstellen NEW_SND.SAVE(False) 'Insert neue Sendung f.SENDUNG_LIST.Add(NEW_SND) @@ -3828,4 +3838,24 @@ ELSE_ATILLA: ' SEARCH_AVISO.RESET() Grid_aktiv = True End Sub + + Private Sub btnPaketdienst_Click(sender As System.Object, e As System.EventArgs) Handles btnKunden.Click + + + Me.Cursor = Cursors.WaitCursor + 'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing + If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then + Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront() + Me.Cursor = Cursors.Default : Exit Sub + End If + ' Next + Try + Dim zoll As New SDL.frmKundenUebersichtZOLL + zoll.Show() + Me.Cursor = Cursors.Default + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + End Class diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 7e0da22..9458678 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -2641,36 +2641,36 @@ Public Class frmSendungsdetailsNEU End Function - Sub initOfferteDGV() - Try - SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() - Dim MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview ' nur für Fehlerveremindung -> kein Control in Form - With MyDatagridview1 - .Columns.Clear() - Dim tmpKdnr = -1 - For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG - If a.sndabr_abrArt = "ABFKOST" Then - Select Case a.sndabr_beteiligter - Case "EMPF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr - Case "AVISIERER" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr'If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1) - Case "ABS" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr - Case "AUFTR" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr - Case "FRACHTF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr 'If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1) - End Select - End If - Next - If cboAbfertigungsart._value <> "" Then - If tmpKdnr > 0 Then - .DataSource = SQL.loadDgvBySql("select LeistungsNr,LeistungsBez,Preis FROM [Offertenpositionen] where KundenNr=" & tmpKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & cboAbfertigungsart._value & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") - End If - End If - End With + 'Sub initOfferteDGV() + ' Try + ' SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() + ' Dim MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview ' nur für Fehlerveremindung -> kein Control in Form + ' With MyDatagridview1 + ' .Columns.Clear() + ' Dim tmpKdnr = -1 + ' For Each a In SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG + ' If a.sndabr_abrArt = "ABFKOST" Then + ' Select Case a.sndabr_beteiligter + ' Case "EMPF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr + ' Case "AVISIERER" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr'If(IsNumeric(AVISO.Auftraggeber_KdNr), IsNumeric(AVISO.Auftraggeber_KdNr), -1) + ' Case "ABS" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr + ' Case "AUFTR" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr + ' Case "FRACHTF" : tmpKdnr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_FrachtfuehrerKdNr 'If(IsNumeric(AVISO.Frächter_KdNr), IsNumeric(AVISO.Frächter_KdNr), -1) + ' End Select + ' End If + ' Next + ' If cboAbfertigungsart._value <> "" Then + ' If tmpKdnr > 0 Then + ' .DataSource = SQL.loadDgvBySql("select LeistungsNr,LeistungsBez,Preis FROM [Offertenpositionen] where KundenNr=" & tmpKdnr & " AND OffertenNr=(SELECT ISNULL(AO.ao_OffertenNr,-1) FROM tblAbfertigungsartOffertenstamm as AO WHERE AO.ao_Abfertigungsart='" & cboAbfertigungsart._value & "') and preis is not null order by LeistungsNr, Preis desc", "FMZOLL") + ' End If + ' End If + ' End With - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - End Try + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + ' End Try - End Sub + 'End Sub Sub initDGVBelege() diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb b/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb index 6945d52..5fd8444 100644 --- a/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb @@ -30,66 +30,8 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Panel1 = New System.Windows.Forms.Panel() - Me.Label22 = New System.Windows.Forms.Label() - Me.Button7 = New System.Windows.Forms.Button() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.btnE_Aviso = New System.Windows.Forms.Button() - Me.btnNeu = New System.Windows.Forms.Button() - Me.pblSNDOptions = New System.Windows.Forms.Panel() - Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() - Me.btnColor = New System.Windows.Forms.Button() - Me.lblMySND_Anzeige = New System.Windows.Forms.Label() - Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboMy_QS = New System.Windows.Forms.CheckBox() - Me.cbx_My_LKW = New System.Windows.Forms.CheckBox() - Me.cboMy_VB = New System.Windows.Forms.CheckBox() - Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() - Me.btnHeute = New System.Windows.Forms.Button() - Me.btnGestern = New System.Windows.Forms.Button() - Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.btnWoche = New System.Windows.Forms.Button() - Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl() - Me.tbSndAlle = New System.Windows.Forms.TabPage() - Me.tbSndOffen = New System.Windows.Forms.TabPage() - Me.tbSndFreigegeben = New System.Windows.Forms.TabPage() - Me.dtpBis = New System.Windows.Forms.DateTimePicker() - Me.Label2 = New System.Windows.Forms.Label() - Me.dtpVon = New System.Windows.Forms.DateTimePicker() - Me.Label5 = New System.Windows.Forms.Label() - Me.lblAkte = New System.Windows.Forms.Label() - Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.Label8 = New System.Windows.Forms.Label() - Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.lblGrenze = New System.Windows.Forms.Label() - Me.pnlTime = New System.Windows.Forms.Panel() + Me.btnDetailsuche = New System.Windows.Forms.Button() Me.lblDauer = New System.Windows.Forms.Label() - Me.Label10 = New System.Windows.Forms.Label() - Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.Label21 = New System.Windows.Forms.Label() - Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.lblEintraege = New System.Windows.Forms.Label() - Me.cbxCluster = New System.Windows.Forms.CheckBox() - Me.Label6 = New System.Windows.Forms.Label() - Me.txtSuche = New System.Windows.Forms.TextBox() - Me.lblZeit_aktuell = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.btnWichtige = New System.Windows.Forms.Button() - Me.btnWichtigeStandort = New System.Windows.Forms.Button() - Me.btnAlleAnzeigen = New System.Windows.Forms.Button() - Me.lblSuche = New System.Windows.Forms.Label() - Me.tbcntrAvisoLKW = New System.Windows.Forms.TabControl() - Me.tabAlle = New System.Windows.Forms.TabPage() - Me.tabErfasst = New System.Windows.Forms.TabPage() - Me.tabVorbereitet = New System.Windows.Forms.TabPage() - Me.tabVorgeschrieben = New System.Windows.Forms.TabPage() - Me.tabAnkunft = New System.Windows.Forms.TabPage() - Me.tabVERIMEX = New System.Windows.Forms.TabPage() - Me.tabINDONESIEN = New System.Windows.Forms.TabPage() - Me.tabFreigegeben = New System.Windows.Forms.TabPage() - Me.tabNichtEingetroffen = New System.Windows.Forms.TabPage() Me.pnlSearch = New System.Windows.Forms.Panel() Me.lblAbsender = New System.Windows.Forms.Label() Me.txtAbsender = New System.Windows.Forms.TextBox() @@ -115,6 +57,63 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.lblErwFilialePos = New System.Windows.Forms.Label() Me.lblErwAuftraggeber = New System.Windows.Forms.Label() Me.cbxAlle = New System.Windows.Forms.CheckBox() + Me.lblEintraege = New System.Windows.Forms.Label() + Me.Label22 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.btnE_Aviso = New System.Windows.Forms.Button() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnNeu = New System.Windows.Forms.Button() + Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label21 = New System.Windows.Forms.Label() + Me.btnHeute = New System.Windows.Forms.Button() + Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.btnGestern = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.cbxCluster = New System.Windows.Forms.CheckBox() + Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnWoche = New System.Windows.Forms.Button() + Me.lblGrenze = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.dtpBis = New System.Windows.Forms.DateTimePicker() + Me.Label6 = New System.Windows.Forms.Label() + Me.dtpVon = New System.Windows.Forms.DateTimePicker() + Me.txtSuche = New System.Windows.Forms.TextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.lblZeit_aktuell = New System.Windows.Forms.Label() + Me.btnWichtige = New System.Windows.Forms.Button() + Me.btnWichtigeStandort = New System.Windows.Forms.Button() + Me.lblSuche = New System.Windows.Forms.Label() + Me.tbcntrAvisoLKW = New System.Windows.Forms.TabControl() + Me.tabAlle = New System.Windows.Forms.TabPage() + Me.tabErfasst = New System.Windows.Forms.TabPage() + Me.tabVorbereitet = New System.Windows.Forms.TabPage() + Me.tabVorgeschrieben = New System.Windows.Forms.TabPage() + Me.tabAnkunft = New System.Windows.Forms.TabPage() + Me.tabVERIMEX = New System.Windows.Forms.TabPage() + Me.tabINDONESIEN = New System.Windows.Forms.TabPage() + Me.tabFreigegeben = New System.Windows.Forms.TabPage() + Me.tabNichtEingetroffen = New System.Windows.Forms.TabPage() + Me.pnlTime = New System.Windows.Forms.Panel() + Me.lblHinweis = New System.Windows.Forms.Label() + Me.lblAkte = New System.Windows.Forms.Label() + Me.pblSNDOptions = New System.Windows.Forms.Panel() + Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox() + Me.btnColor = New System.Windows.Forms.Button() + Me.lblMySND_Anzeige = New System.Windows.Forms.Label() + Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboMy_QS = New System.Windows.Forms.CheckBox() + Me.cbx_My_LKW = New System.Windows.Forms.CheckBox() + Me.cboMy_VB = New System.Windows.Forms.CheckBox() + Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label() + Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl() + Me.tbSndAlle = New System.Windows.Forms.TabPage() + Me.tbSndOffen = New System.Windows.Forms.TabPage() + Me.tbSndFreigegeben = New System.Windows.Forms.TabPage() + Me.CheckBox1 = New System.Windows.Forms.CheckBox() + Me.Button7 = New System.Windows.Forms.Button() Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TimerAkte = New System.Windows.Forms.Timer(Me.components) Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -122,13 +121,12 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem() - Me.lblHinweis = New System.Windows.Forms.Label() Me.Panel1.SuspendLayout() + Me.pnlSearch.SuspendLayout() + Me.tbcntrAvisoLKW.SuspendLayout() + Me.pnlTime.SuspendLayout() Me.pblSNDOptions.SuspendLayout() Me.tbcntrAvisoSND.SuspendLayout() - Me.pnlTime.SuspendLayout() - Me.tbcntrAvisoLKW.SuspendLayout() - Me.pnlSearch.SuspendLayout() CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit() Me.ctxtFarben.SuspendLayout() Me.SuspendLayout() @@ -136,51 +134,378 @@ Partial Class usrCntlHauptfenster_Suche_AVISO 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Controls.Add(Me.btnDetailsuche) + Me.Panel1.Controls.Add(Me.lblDauer) + Me.Panel1.Controls.Add(Me.pnlSearch) + Me.Panel1.Controls.Add(Me.lblEintraege) Me.Panel1.Controls.Add(Me.Label22) - Me.Panel1.Controls.Add(Me.Button7) - Me.Panel1.Controls.Add(Me.MyComboBox1) + Me.Panel1.Controls.Add(Me.Label10) Me.Panel1.Controls.Add(Me.btnE_Aviso) + Me.Panel1.Controls.Add(Me.MyComboBox1) Me.Panel1.Controls.Add(Me.btnNeu) - Me.Panel1.Controls.Add(Me.pblSNDOptions) + Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle) + Me.Panel1.Controls.Add(Me.Label21) Me.Panel1.Controls.Add(Me.btnHeute) - Me.Panel1.Controls.Add(Me.btnGestern) - Me.Panel1.Controls.Add(Me.CheckBox1) - Me.Panel1.Controls.Add(Me.btnWoche) - Me.Panel1.Controls.Add(Me.tbcntrAvisoSND) - Me.Panel1.Controls.Add(Me.dtpBis) - Me.Panel1.Controls.Add(Me.Label2) - Me.Panel1.Controls.Add(Me.dtpVon) - Me.Panel1.Controls.Add(Me.Label5) - Me.Panel1.Controls.Add(Me.lblAkte) + Me.Panel1.Controls.Add(Me.cboImEx) Me.Panel1.Controls.Add(Me.cboTeams) Me.Panel1.Controls.Add(Me.Label16) + Me.Panel1.Controls.Add(Me.btnGestern) Me.Panel1.Controls.Add(Me.Label8) + Me.Panel1.Controls.Add(Me.cbxCluster) Me.Panel1.Controls.Add(Me.cboGrenzstelle) + Me.Panel1.Controls.Add(Me.btnWoche) Me.Panel1.Controls.Add(Me.lblGrenze) - Me.Panel1.Controls.Add(Me.pnlTime) + Me.Panel1.Controls.Add(Me.Label5) + Me.Panel1.Controls.Add(Me.dtpBis) Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.dtpVon) Me.Panel1.Controls.Add(Me.txtSuche) + Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.lblZeit_aktuell) - Me.Panel1.Controls.Add(Me.Label1) - Me.Panel1.Controls.Add(Me.Label3) Me.Panel1.Controls.Add(Me.btnWichtige) Me.Panel1.Controls.Add(Me.btnWichtigeStandort) - Me.Panel1.Controls.Add(Me.btnAlleAnzeigen) Me.Panel1.Controls.Add(Me.lblSuche) Me.Panel1.Controls.Add(Me.tbcntrAvisoLKW) - Me.Panel1.Controls.Add(Me.pnlSearch) + Me.Panel1.Controls.Add(Me.pnlTime) + Me.Panel1.Controls.Add(Me.lblAkte) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1156, 225) + Me.Panel1.Size = New System.Drawing.Size(1243, 118) Me.Panel1.TabIndex = 3 ' + 'btnDetailsuche + ' + Me.btnDetailsuche.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.btnDetailsuche.FlatAppearance.BorderColor = System.Drawing.Color.Black + Me.btnDetailsuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDetailsuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.btnDetailsuche.ForeColor = System.Drawing.Color.White + Me.btnDetailsuche.ImageAlign = System.Drawing.ContentAlignment.TopRight + Me.btnDetailsuche.Location = New System.Drawing.Point(129, 55) + Me.btnDetailsuche.Margin = New System.Windows.Forms.Padding(0) + Me.btnDetailsuche.Name = "btnDetailsuche" + Me.btnDetailsuche.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.btnDetailsuche.Size = New System.Drawing.Size(185, 27) + Me.btnDetailsuche.TabIndex = 39 + Me.btnDetailsuche.Text = "Detailsuche" + Me.btnDetailsuche.UseVisualStyleBackColor = False + ' + 'lblDauer + ' + Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblDauer.BackColor = System.Drawing.Color.Transparent + Me.lblDauer.ForeColor = System.Drawing.Color.White + Me.lblDauer.Location = New System.Drawing.Point(1101, 15) + Me.lblDauer.Name = "lblDauer" + Me.lblDauer.Size = New System.Drawing.Size(136, 17) + Me.lblDauer.TabIndex = 27 + Me.lblDauer.Text = "1111123 ms" + Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'pnlSearch + ' + Me.pnlSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(138, Byte), Integer)) + Me.pnlSearch.Controls.Add(Me.lblAbsender) + Me.pnlSearch.Controls.Add(Me.txtAbsender) + Me.pnlSearch.Controls.Add(Me.txtDyRef) + Me.pnlSearch.Controls.Add(Me.Label19) + Me.pnlSearch.Controls.Add(Me.lblErwLKWID) + Me.pnlSearch.Controls.Add(Me.txtlkwId) + Me.pnlSearch.Controls.Add(Me.cbxNE) + Me.pnlSearch.Controls.Add(Me.cbxFreigabe) + Me.pnlSearch.Controls.Add(Me.cbxAnkunft) + Me.pnlSearch.Controls.Add(Me.cbxVorg) + Me.pnlSearch.Controls.Add(Me.cbxVorb) + Me.pnlSearch.Controls.Add(Me.cbxErfasst) + Me.pnlSearch.Controls.Add(Me.Label14) + Me.pnlSearch.Controls.Add(Me.txtKdAuftragsnr) + Me.pnlSearch.Controls.Add(Me.txtAuftraggeber) + Me.pnlSearch.Controls.Add(Me.lblErwKdAtrNr) + Me.pnlSearch.Controls.Add(Me.Button4) + Me.pnlSearch.Controls.Add(Me.lblErwEmpfänger) + Me.pnlSearch.Controls.Add(Me.txtEmpfänger) + Me.pnlSearch.Controls.Add(Me.cboFiliale) + Me.pnlSearch.Controls.Add(Me.txtAbfertigungsnummer) + Me.pnlSearch.Controls.Add(Me.lblErwFilialePos) + Me.pnlSearch.Controls.Add(Me.lblErwAuftraggeber) + Me.pnlSearch.Controls.Add(Me.cbxAlle) + Me.pnlSearch.Location = New System.Drawing.Point(325, 57) + Me.pnlSearch.Name = "pnlSearch" + Me.pnlSearch.Size = New System.Drawing.Size(776, 25) + Me.pnlSearch.TabIndex = 16 + Me.pnlSearch.Visible = False + ' + 'lblAbsender + ' + Me.lblAbsender.AutoSize = True + Me.lblAbsender.ForeColor = System.Drawing.Color.White + Me.lblAbsender.Location = New System.Drawing.Point(2, 37) + Me.lblAbsender.Name = "lblAbsender" + Me.lblAbsender.Size = New System.Drawing.Size(60, 15) + Me.lblAbsender.TabIndex = 23 + Me.lblAbsender.Text = "Absender:" + ' + 'txtAbsender + ' + Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbsender.Location = New System.Drawing.Point(83, 32) + Me.txtAbsender.MaxLength = 100 + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Size = New System.Drawing.Size(242, 23) + Me.txtAbsender.TabIndex = 2 + ' + 'txtDyRef + ' + Me.txtDyRef.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDyRef.Location = New System.Drawing.Point(431, 81) + Me.txtDyRef.MaxLength = 100 + Me.txtDyRef.Name = "txtDyRef" + Me.txtDyRef.Size = New System.Drawing.Size(216, 23) + Me.txtDyRef.TabIndex = 10 + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.ForeColor = System.Drawing.Color.White + Me.Label19.Location = New System.Drawing.Point(351, 86) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(50, 15) + Me.Label19.TabIndex = 20 + Me.Label19.Text = "DY-Ref.:" + ' + 'lblErwLKWID + ' + Me.lblErwLKWID.AutoSize = True + Me.lblErwLKWID.ForeColor = System.Drawing.Color.White + Me.lblErwLKWID.Location = New System.Drawing.Point(2, 86) + Me.lblErwLKWID.Name = "lblErwLKWID" + Me.lblErwLKWID.Size = New System.Drawing.Size(49, 15) + Me.lblErwLKWID.TabIndex = 19 + Me.lblErwLKWID.Text = "LKW-Id:" + ' + 'txtlkwId + ' + Me.txtlkwId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtlkwId.Location = New System.Drawing.Point(83, 81) + Me.txtlkwId.MaxLength = 100 + Me.txtlkwId.Name = "txtlkwId" + Me.txtlkwId.Size = New System.Drawing.Size(107, 23) + Me.txtlkwId.TabIndex = 10 + ' + 'cbxNE + ' + Me.cbxNE.AutoSize = True + Me.cbxNE.ForeColor = System.Drawing.Color.White + Me.cbxNE.Location = New System.Drawing.Point(547, 108) + Me.cbxNE.Name = "cbxNE" + Me.cbxNE.Size = New System.Drawing.Size(123, 19) + Me.cbxNE.TabIndex = 16 + Me.cbxNE.Text = "Nicht eingetroffen" + Me.cbxNE.UseVisualStyleBackColor = True + ' + 'cbxFreigabe + ' + Me.cbxFreigabe.AutoSize = True + Me.cbxFreigabe.ForeColor = System.Drawing.Color.White + Me.cbxFreigabe.Location = New System.Drawing.Point(456, 108) + Me.cbxFreigabe.Name = "cbxFreigabe" + Me.cbxFreigabe.Size = New System.Drawing.Size(91, 19) + Me.cbxFreigabe.TabIndex = 15 + Me.cbxFreigabe.Text = "Freigegeben" + Me.cbxFreigabe.UseVisualStyleBackColor = True + ' + 'cbxAnkunft + ' + Me.cbxAnkunft.AutoSize = True + Me.cbxAnkunft.ForeColor = System.Drawing.Color.White + Me.cbxAnkunft.Location = New System.Drawing.Point(387, 108) + Me.cbxAnkunft.Name = "cbxAnkunft" + Me.cbxAnkunft.Size = New System.Drawing.Size(69, 19) + Me.cbxAnkunft.TabIndex = 14 + Me.cbxAnkunft.Text = "Ankunft" + Me.cbxAnkunft.UseVisualStyleBackColor = True + ' + 'cbxVorg + ' + Me.cbxVorg.AutoSize = True + Me.cbxVorg.ForeColor = System.Drawing.Color.White + Me.cbxVorg.Location = New System.Drawing.Point(288, 108) + Me.cbxVorg.Name = "cbxVorg" + Me.cbxVorg.Size = New System.Drawing.Size(107, 19) + Me.cbxVorg.TabIndex = 13 + Me.cbxVorg.Text = "Vorgeschrieben" + Me.cbxVorg.UseVisualStyleBackColor = True + ' + 'cbxVorb + ' + Me.cbxVorb.AutoSize = True + Me.cbxVorb.ForeColor = System.Drawing.Color.White + Me.cbxVorb.Location = New System.Drawing.Point(187, 108) + Me.cbxVorb.Name = "cbxVorb" + Me.cbxVorb.Size = New System.Drawing.Size(101, 19) + Me.cbxVorb.TabIndex = 12 + Me.cbxVorb.Text = "Vorbereitet QS" + Me.cbxVorb.UseVisualStyleBackColor = True + ' + 'cbxErfasst + ' + Me.cbxErfasst.AutoSize = True + Me.cbxErfasst.ForeColor = System.Drawing.Color.White + Me.cbxErfasst.Location = New System.Drawing.Point(123, 108) + Me.cbxErfasst.Name = "cbxErfasst" + Me.cbxErfasst.Size = New System.Drawing.Size(60, 19) + Me.cbxErfasst.TabIndex = 11 + Me.cbxErfasst.Text = "Erfasst" + Me.cbxErfasst.UseVisualStyleBackColor = True + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.ForeColor = System.Drawing.Color.White + Me.Label14.Location = New System.Drawing.Point(2, 109) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(42, 15) + Me.Label14.TabIndex = 8 + Me.Label14.Text = "Status:" + ' + 'txtKdAuftragsnr + ' + Me.txtKdAuftragsnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKdAuftragsnr.Location = New System.Drawing.Point(432, 32) + Me.txtKdAuftragsnr.MaxLength = 100 + Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr" + Me.txtKdAuftragsnr.Size = New System.Drawing.Size(215, 23) + Me.txtKdAuftragsnr.TabIndex = 9 + ' + 'txtAuftraggeber + ' + Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAuftraggeber.Location = New System.Drawing.Point(83, 10) + Me.txtAuftraggeber.MaxLength = 100 + Me.txtAuftraggeber.Name = "txtAuftraggeber" + Me.txtAuftraggeber.Size = New System.Drawing.Size(242, 23) + Me.txtAuftraggeber.TabIndex = 1 + ' + 'lblErwKdAtrNr + ' + Me.lblErwKdAtrNr.AutoSize = True + Me.lblErwKdAtrNr.ForeColor = System.Drawing.Color.White + Me.lblErwKdAtrNr.Location = New System.Drawing.Point(351, 37) + Me.lblErwKdAtrNr.Name = "lblErwKdAtrNr" + Me.lblErwKdAtrNr.Size = New System.Drawing.Size(75, 15) + Me.lblErwKdAtrNr.TabIndex = 0 + Me.lblErwKdAtrNr.Text = "Kd-Auftr.Nr.:" + ' + 'Button4 + ' + Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.White + Me.Button4.Image = Global.AVISO.My.Resources.Resources.search + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button4.Location = New System.Drawing.Point(679, 10) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(88, 45) + Me.Button4.TabIndex = 17 + Me.Button4.TabStop = False + Me.Button4.Text = "Suche" + Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.UseVisualStyleBackColor = True + ' + 'lblErwEmpfänger + ' + Me.lblErwEmpfänger.AutoSize = True + Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.White + Me.lblErwEmpfänger.Location = New System.Drawing.Point(2, 59) + Me.lblErwEmpfänger.Name = "lblErwEmpfänger" + Me.lblErwEmpfänger.Size = New System.Drawing.Size(68, 15) + Me.lblErwEmpfänger.TabIndex = 6 + Me.lblErwEmpfänger.Text = "Empfänger:" + ' + 'txtEmpfänger + ' + Me.txtEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtEmpfänger.Location = New System.Drawing.Point(83, 54) + Me.txtEmpfänger.MaxLength = 100 + Me.txtEmpfänger.Name = "txtEmpfänger" + Me.txtEmpfänger.Size = New System.Drawing.Size(242, 23) + Me.txtEmpfänger.TabIndex = 3 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 300 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(431, 10) + Me.cboFiliale.MaxLength = 4 + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(70, 24) + Me.cboFiliale.TabIndex = 3 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(500, 10) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(147, 23) + Me.txtAbfertigungsnummer.TabIndex = 5 + ' + 'lblErwFilialePos + ' + Me.lblErwFilialePos.AutoSize = True + Me.lblErwFilialePos.ForeColor = System.Drawing.Color.White + Me.lblErwFilialePos.Location = New System.Drawing.Point(351, 15) + Me.lblErwFilialePos.Name = "lblErwFilialePos" + Me.lblErwFilialePos.Size = New System.Drawing.Size(80, 15) + Me.lblErwFilialePos.TabIndex = 2 + Me.lblErwFilialePos.Text = "Filiale/PosNr.:" + ' + 'lblErwAuftraggeber + ' + Me.lblErwAuftraggeber.AutoSize = True + Me.lblErwAuftraggeber.ForeColor = System.Drawing.Color.White + Me.lblErwAuftraggeber.Location = New System.Drawing.Point(2, 16) + Me.lblErwAuftraggeber.Name = "lblErwAuftraggeber" + Me.lblErwAuftraggeber.Size = New System.Drawing.Size(80, 15) + Me.lblErwAuftraggeber.TabIndex = 7 + Me.lblErwAuftraggeber.Text = "Auftraggeber:" + ' + 'cbxAlle + ' + Me.cbxAlle.AutoSize = True + Me.cbxAlle.ForeColor = System.Drawing.Color.White + Me.cbxAlle.Location = New System.Drawing.Point(73, 108) + Me.cbxAlle.Name = "cbxAlle" + Me.cbxAlle.Size = New System.Drawing.Size(46, 19) + Me.cbxAlle.TabIndex = 10 + Me.cbxAlle.Text = "Alle" + Me.cbxAlle.UseVisualStyleBackColor = True + ' + 'lblEintraege + ' + Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblEintraege.BackColor = System.Drawing.Color.Transparent + Me.lblEintraege.ForeColor = System.Drawing.Color.White + Me.lblEintraege.Location = New System.Drawing.Point(1098, 3) + Me.lblEintraege.Name = "lblEintraege" + Me.lblEintraege.Size = New System.Drawing.Size(139, 15) + Me.lblEintraege.TabIndex = 14 + Me.lblEintraege.Text = "0 Einträge" + Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'Label22 ' + Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label22.BackColor = System.Drawing.Color.Red Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label22.ForeColor = System.Drawing.Color.White - Me.Label22.Location = New System.Drawing.Point(246, 160) + Me.Label22.Location = New System.Drawing.Point(1208, 53) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(28, 19) Me.Label22.TabIndex = 32 @@ -188,22 +513,32 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.Label22.Visible = False ' - 'Button7 + 'Label10 ' - Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.Button7.ForeColor = System.Drawing.Color.Black - Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image) - Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button7.Location = New System.Drawing.Point(211, 188) - Me.Button7.MaximumSize = New System.Drawing.Size(121, 35) - Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(121, 35) - Me.Button7.TabIndex = 32 - Me.Button7.Text = "Sendung" - Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button7.UseVisualStyleBackColor = True - Me.Button7.Visible = False + Me.Label10.AutoSize = True + Me.Label10.ForeColor = System.Drawing.Color.White + Me.Label10.Location = New System.Drawing.Point(518, 38) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(51, 15) + Me.Label10.TabIndex = 26 + Me.Label10.Text = "Zollamt:" + ' + 'btnE_Aviso + ' + Me.btnE_Aviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnE_Aviso.BackColor = System.Drawing.Color.White + Me.btnE_Aviso.Font = New System.Drawing.Font("Segoe UI", 11.0!) + Me.btnE_Aviso.ForeColor = System.Drawing.Color.Black + Me.btnE_Aviso.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnE_Aviso.Location = New System.Drawing.Point(1119, 43) + Me.btnE_Aviso.MaximumSize = New System.Drawing.Size(121, 34) + Me.btnE_Aviso.Name = "btnE_Aviso" + Me.btnE_Aviso.Size = New System.Drawing.Size(121, 34) + Me.btnE_Aviso.TabIndex = 31 + Me.btnE_Aviso.Text = "eAVISO" + Me.btnE_Aviso.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnE_Aviso.UseVisualStyleBackColor = False + Me.btnE_Aviso.Visible = False ' 'MyComboBox1 ' @@ -215,38 +550,21 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.MyComboBox1.ForeColor = System.Drawing.Color.White Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(44, 68) + Me.MyComboBox1.Location = New System.Drawing.Point(823, 5) Me.MyComboBox1.MaxLength = 4 Me.MyComboBox1.Name = "MyComboBox1" Me.MyComboBox1.Size = New System.Drawing.Size(98, 21) Me.MyComboBox1.TabIndex = 7 ' - 'btnE_Aviso - ' - Me.btnE_Aviso.BackColor = System.Drawing.Color.White - Me.btnE_Aviso.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnE_Aviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnE_Aviso.ForeColor = System.Drawing.Color.Black - Me.btnE_Aviso.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnE_Aviso.Location = New System.Drawing.Point(162, 151) - Me.btnE_Aviso.MaximumSize = New System.Drawing.Size(121, 34) - Me.btnE_Aviso.Name = "btnE_Aviso" - Me.btnE_Aviso.Size = New System.Drawing.Size(121, 34) - Me.btnE_Aviso.TabIndex = 31 - Me.btnE_Aviso.Text = "eAVISO" - Me.btnE_Aviso.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnE_Aviso.UseVisualStyleBackColor = False - Me.btnE_Aviso.Visible = False - ' 'btnNeu ' + Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnNeu.BackColor = System.Drawing.Color.White - Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnNeu.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 11.0!) Me.btnNeu.ForeColor = System.Drawing.Color.Black Me.btnNeu.Image = CType(resources.GetObject("btnNeu.Image"), System.Drawing.Image) Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnNeu.Location = New System.Drawing.Point(3, 151) + Me.btnNeu.Location = New System.Drawing.Point(1119, 83) Me.btnNeu.MaximumSize = New System.Drawing.Size(121, 34) Me.btnNeu.Name = "btnNeu" Me.btnNeu.Size = New System.Drawing.Size(121, 34) @@ -255,8 +573,426 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNeu.UseVisualStyleBackColor = False ' + 'txtBestimmungszollstelle + ' + Me.txtBestimmungszollstelle._allowFreitext = False + Me.txtBestimmungszollstelle._AllowSetValue = False + Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False + Me.txtBestimmungszollstelle._autoSizeGross = False + Me.txtBestimmungszollstelle._hideIfListEmpty = True + Me.txtBestimmungszollstelle._value = Nothing + Me.txtBestimmungszollstelle.conn_art = "FMZOLL" + Me.txtBestimmungszollstelle.dgvpos = "LEFT" + Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing + Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing + Me.txtBestimmungszollstelle.key_visible = False + Me.txtBestimmungszollstelle.KEYPARAM = Nothing + Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(572, 34) + Me.txtBestimmungszollstelle.MaxLength = 50 + Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle" + Me.txtBestimmungszollstelle.searchActive = True + Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 23) + Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing + Me.txtBestimmungszollstelle.SQL_SELECT = Nothing + Me.txtBestimmungszollstelle.SQL_WHERE = Nothing + Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing + Me.txtBestimmungszollstelle.TabIndex = 25 + Me.txtBestimmungszollstelle.usrcntl = Nothing + ' + 'Label21 + ' + Me.Label21.AutoSize = True + Me.Label21.ForeColor = System.Drawing.Color.White + Me.Label21.Location = New System.Drawing.Point(521, 10) + Me.Label21.Name = "Label21" + Me.Label21.Size = New System.Drawing.Size(42, 15) + Me.Label21.TabIndex = 23 + Me.Label21.Text = "IM/EX:" + ' + 'btnHeute + ' + Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnHeute.ForeColor = System.Drawing.Color.White + Me.btnHeute.Location = New System.Drawing.Point(922, 4) + Me.btnHeute.Name = "btnHeute" + Me.btnHeute.Size = New System.Drawing.Size(50, 22) + Me.btnHeute.TabIndex = 0 + Me.btnHeute.TabStop = False + Me.btnHeute.Text = "Heute" + Me.btnHeute.UseVisualStyleBackColor = True + ' + 'cboImEx + ' + Me.cboImEx._allowedValuesFreiText = Nothing + Me.cboImEx._allowFreiText = False + Me.cboImEx._value = "" + Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboImEx.FormattingEnabled = True + Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"}) + Me.cboImEx.Location = New System.Drawing.Point(572, 4) + Me.cboImEx.Name = "cboImEx" + Me.cboImEx.Size = New System.Drawing.Size(78, 24) + Me.cboImEx.TabIndex = 24 + ' + 'cboTeams + ' + Me.cboTeams._allowedValuesFreiText = Nothing + Me.cboTeams._allowFreiText = False + Me.cboTeams._value = "" + Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTeams.DropDownWidth = 200 + Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboTeams.FormattingEnabled = True + Me.cboTeams.Location = New System.Drawing.Point(408, 4) + Me.cboTeams.Name = "cboTeams" + Me.cboTeams.Size = New System.Drawing.Size(107, 24) + Me.cboTeams.TabIndex = 19 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.ForeColor = System.Drawing.Color.White + Me.Label16.Location = New System.Drawing.Point(368, 9) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(39, 15) + Me.Label16.TabIndex = 18 + Me.Label16.Text = "Team:" + ' + 'btnGestern + ' + Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnGestern.ForeColor = System.Drawing.Color.White + Me.btnGestern.Location = New System.Drawing.Point(971, 4) + Me.btnGestern.Name = "btnGestern" + Me.btnGestern.Size = New System.Drawing.Size(58, 22) + Me.btnGestern.TabIndex = 1 + Me.btnGestern.TabStop = False + Me.btnGestern.Text = "Gestern" + Me.btnGestern.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.Label8.Location = New System.Drawing.Point(67, 7) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(15, 18) + Me.Label8.TabIndex = 15 + Me.Label8.Text = "*" + Me.Label8.Visible = False + ' + 'cbxCluster + ' + Me.cbxCluster.AutoSize = True + Me.cbxCluster.Checked = True + Me.cbxCluster.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxCluster.ForeColor = System.Drawing.Color.White + Me.cbxCluster.Location = New System.Drawing.Point(656, 8) + Me.cbxCluster.Name = "cbxCluster" + Me.cbxCluster.Size = New System.Drawing.Size(107, 19) + Me.cbxCluster.TabIndex = 20 + Me.cbxCluster.Text = "Firmenverbund" + Me.cbxCluster.UseVisualStyleBackColor = True + ' + 'cboGrenzstelle + ' + Me.cboGrenzstelle._allowedValuesFreiText = Nothing + Me.cboGrenzstelle._allowFreiText = False + Me.cboGrenzstelle._value = "" + Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke + Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboGrenzstelle.DropDownWidth = 200 + Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboGrenzstelle.FormattingEnabled = True + Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"}) + Me.cboGrenzstelle.Location = New System.Drawing.Point(408, 31) + Me.cboGrenzstelle.Name = "cboGrenzstelle" + Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24) + Me.cboGrenzstelle.TabIndex = 13 + ' + 'btnWoche + ' + Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWoche.ForeColor = System.Drawing.Color.White + Me.btnWoche.Location = New System.Drawing.Point(1028, 4) + Me.btnWoche.Name = "btnWoche" + Me.btnWoche.Size = New System.Drawing.Size(64, 22) + Me.btnWoche.TabIndex = 2 + Me.btnWoche.TabStop = False + Me.btnWoche.Text = "1 Woche" + Me.btnWoche.UseVisualStyleBackColor = True + ' + 'lblGrenze + ' + Me.lblGrenze.AutoSize = True + Me.lblGrenze.ForeColor = System.Drawing.Color.White + Me.lblGrenze.Location = New System.Drawing.Point(343, 37) + Me.lblGrenze.Name = "lblGrenze" + Me.lblGrenze.Size = New System.Drawing.Size(67, 15) + Me.lblGrenze.TabIndex = 9 + Me.lblGrenze.Text = "Grenzstelle:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.ForeColor = System.Drawing.Color.White + Me.Label5.Location = New System.Drawing.Point(852, 36) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(27, 15) + Me.Label5.TabIndex = 6 + Me.Label5.Text = "von" + ' + 'dtpBis + ' + Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpBis.Location = New System.Drawing.Point(1007, 32) + Me.dtpBis.Name = "dtpBis" + Me.dtpBis.Size = New System.Drawing.Size(85, 23) + Me.dtpBis.TabIndex = 4 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.ForeColor = System.Drawing.Color.White + Me.Label6.Location = New System.Drawing.Point(6, 53) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(81, 13) + Me.Label6.TabIndex = 11 + Me.Label6.Text = "mind. 2 Zeichen" + ' + 'dtpVon + ' + Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.dtpVon.Location = New System.Drawing.Point(887, 32) + Me.dtpVon.Name = "dtpVon" + Me.dtpVon.Size = New System.Drawing.Size(85, 23) + Me.dtpVon.TabIndex = 3 + ' + 'txtSuche + ' + Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSuche.Location = New System.Drawing.Point(7, 28) + Me.txtSuche.MaxLength = 30 + Me.txtSuche.Name = "txtSuche" + Me.txtSuche.Size = New System.Drawing.Size(306, 26) + Me.txtSuche.TabIndex = 0 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(976, 36) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(22, 15) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "bis" + ' + 'lblZeit_aktuell + ' + Me.lblZeit_aktuell.AutoSize = True + Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblZeit_aktuell.Location = New System.Drawing.Point(6, 39) + Me.lblZeit_aktuell.Name = "lblZeit_aktuell" + Me.lblZeit_aktuell.Size = New System.Drawing.Size(169, 15) + Me.lblZeit_aktuell.TabIndex = 6 + Me.lblZeit_aktuell.Text = "letzte Aktualisierung: 11:22 Uhr" + ' + 'btnWichtige + ' + Me.btnWichtige.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWichtige.ForeColor = System.Drawing.Color.White + Me.btnWichtige.Location = New System.Drawing.Point(235, 1) + Me.btnWichtige.Name = "btnWichtige" + Me.btnWichtige.Size = New System.Drawing.Size(78, 25) + Me.btnWichtige.TabIndex = 4 + Me.btnWichtige.TabStop = False + Me.btnWichtige.Text = "WICHTIG" + Me.btnWichtige.UseVisualStyleBackColor = True + ' + 'btnWichtigeStandort + ' + Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.White + Me.btnWichtigeStandort.Location = New System.Drawing.Point(129, 0) + Me.btnWichtigeStandort.Name = "btnWichtigeStandort" + Me.btnWichtigeStandort.Size = New System.Drawing.Size(100, 27) + Me.btnWichtigeStandort.TabIndex = 3 + Me.btnWichtigeStandort.TabStop = False + Me.btnWichtigeStandort.Text = "Wichtig-Standort" + Me.btnWichtigeStandort.UseVisualStyleBackColor = True + ' + 'lblSuche + ' + Me.lblSuche.AutoSize = True + Me.lblSuche.ForeColor = System.Drawing.Color.White + Me.lblSuche.Location = New System.Drawing.Point(6, 9) + Me.lblSuche.Name = "lblSuche" + Me.lblSuche.Size = New System.Drawing.Size(68, 15) + Me.lblSuche.TabIndex = 1 + Me.lblSuche.Text = "Suchbegriff" + ' + 'tbcntrAvisoLKW + ' + Me.tbcntrAvisoLKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabAlle) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabErfasst) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorbereitet) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorgeschrieben) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabAnkunft) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabVERIMEX) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabINDONESIEN) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabFreigegeben) + Me.tbcntrAvisoLKW.Controls.Add(Me.tabNichtEingetroffen) + Me.tbcntrAvisoLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tbcntrAvisoLKW.ImeMode = System.Windows.Forms.ImeMode.NoControl + Me.tbcntrAvisoLKW.ItemSize = New System.Drawing.Size(60, 30) + Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(-1, 86) + Me.tbcntrAvisoLKW.Name = "tbcntrAvisoLKW" + Me.tbcntrAvisoLKW.Padding = New System.Drawing.Point(12, 3) + Me.tbcntrAvisoLKW.SelectedIndex = 0 + Me.tbcntrAvisoLKW.Size = New System.Drawing.Size(977, 37) + Me.tbcntrAvisoLKW.TabIndex = 10 + ' + 'tabAlle + ' + Me.tabAlle.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.tabAlle.Location = New System.Drawing.Point(4, 34) + Me.tabAlle.Name = "tabAlle" + Me.tabAlle.Padding = New System.Windows.Forms.Padding(3) + Me.tabAlle.Size = New System.Drawing.Size(969, 0) + Me.tabAlle.TabIndex = 0 + Me.tabAlle.Text = "Alle LKW" + ' + 'tabErfasst + ' + Me.tabErfasst.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabErfasst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabErfasst.Location = New System.Drawing.Point(4, 34) + Me.tabErfasst.Name = "tabErfasst" + Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3) + Me.tabErfasst.Size = New System.Drawing.Size(969, 0) + Me.tabErfasst.TabIndex = 1 + Me.tabErfasst.Text = "1. Erfasst" + ' + 'tabVorbereitet + ' + Me.tabVorbereitet.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabVorbereitet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34) + Me.tabVorbereitet.Name = "tabVorbereitet" + Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3) + Me.tabVorbereitet.Size = New System.Drawing.Size(969, 0) + Me.tabVorbereitet.TabIndex = 2 + Me.tabVorbereitet.Text = "2.Vorbereitet QS" + ' + 'tabVorgeschrieben + ' + Me.tabVorgeschrieben.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabVorgeschrieben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34) + Me.tabVorgeschrieben.Name = "tabVorgeschrieben" + Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3) + Me.tabVorgeschrieben.Size = New System.Drawing.Size(969, 0) + Me.tabVorgeschrieben.TabIndex = 3 + Me.tabVorgeschrieben.Text = "3.Vorgeschrieben" + ' + 'tabAnkunft + ' + Me.tabAnkunft.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabAnkunft.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabAnkunft.Location = New System.Drawing.Point(4, 34) + Me.tabAnkunft.Name = "tabAnkunft" + Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3) + Me.tabAnkunft.Size = New System.Drawing.Size(969, 0) + Me.tabAnkunft.TabIndex = 4 + Me.tabAnkunft.Text = "4. Ankunft" + ' + 'tabVERIMEX + ' + Me.tabVERIMEX.Location = New System.Drawing.Point(4, 34) + Me.tabVERIMEX.Name = "tabVERIMEX" + Me.tabVERIMEX.Size = New System.Drawing.Size(969, 0) + Me.tabVERIMEX.TabIndex = 7 + Me.tabVERIMEX.Text = "VERIMEX" + Me.tabVERIMEX.UseVisualStyleBackColor = True + ' + 'tabINDONESIEN + ' + Me.tabINDONESIEN.Location = New System.Drawing.Point(4, 34) + Me.tabINDONESIEN.Name = "tabINDONESIEN" + Me.tabINDONESIEN.Size = New System.Drawing.Size(969, 0) + Me.tabINDONESIEN.TabIndex = 8 + Me.tabINDONESIEN.Text = "INDONESIEN" + Me.tabINDONESIEN.UseVisualStyleBackColor = True + ' + 'tabFreigegeben + ' + Me.tabFreigegeben.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabFreigegeben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34) + Me.tabFreigegeben.Name = "tabFreigegeben" + Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3) + Me.tabFreigegeben.Size = New System.Drawing.Size(969, 0) + Me.tabFreigegeben.TabIndex = 5 + Me.tabFreigegeben.Text = "5. Freigegeben" + ' + 'tabNichtEingetroffen + ' + Me.tabNichtEingetroffen.BackColor = System.Drawing.SystemColors.ActiveBorder + Me.tabNichtEingetroffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34) + Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen" + Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3) + Me.tabNichtEingetroffen.Size = New System.Drawing.Size(969, 0) + Me.tabNichtEingetroffen.TabIndex = 6 + Me.tabNichtEingetroffen.Text = "Nicht eingetroffen" + ' + 'pnlTime + ' + Me.pnlTime.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlTime.Controls.Add(Me.lblHinweis) + Me.pnlTime.Location = New System.Drawing.Point(794, 1) + Me.pnlTime.Name = "pnlTime" + Me.pnlTime.Size = New System.Drawing.Size(330, 57) + Me.pnlTime.TabIndex = 12 + ' + 'lblHinweis + ' + Me.lblHinweis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblHinweis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHinweis.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblHinweis.Location = New System.Drawing.Point(192, 56) + Me.lblHinweis.Name = "lblHinweis" + Me.lblHinweis.Size = New System.Drawing.Size(129, 16) + Me.lblHinweis.TabIndex = 38 + Me.lblHinweis.Text = "Hinweis eingetragen" + Me.lblHinweis.Visible = False + ' + 'lblAkte + ' + Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAkte.ForeColor = System.Drawing.Color.White + Me.lblAkte.Location = New System.Drawing.Point(1107, 5) + Me.lblAkte.Name = "lblAkte" + Me.lblAkte.Size = New System.Drawing.Size(130, 34) + Me.lblAkte.TabIndex = 29 + Me.lblAkte.Text = "0 Akte vom " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Arbeitsplatz übernommen" + Me.lblAkte.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'pblSNDOptions ' + Me.pblSNDOptions.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.pblSNDOptions.Controls.Add(Me.cbx_My_Brexit) Me.pblSNDOptions.Controls.Add(Me.btnColor) Me.pblSNDOptions.Controls.Add(Me.lblMySND_Anzeige) @@ -266,7 +1002,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.pblSNDOptions.Controls.Add(Me.cbx_My_LKW) Me.pblSNDOptions.Controls.Add(Me.cboMy_VB) Me.pblSNDOptions.Controls.Add(Me.lblMySnd_Grenzstelle) - Me.pblSNDOptions.Location = New System.Drawing.Point(335, 188) + Me.pblSNDOptions.Location = New System.Drawing.Point(314, 259) Me.pblSNDOptions.Name = "pblSNDOptions" Me.pblSNDOptions.Size = New System.Drawing.Size(568, 25) Me.pblSNDOptions.TabIndex = 29 @@ -318,9 +1054,9 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.cboMyAvisoAnzeige.FormattingEnabled = True - Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(326, 1) + Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(335, 1) Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige" - Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(127, 21) + Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(118, 21) Me.cboMyAvisoAnzeige.TabIndex = 21 ' 'cboMy_Grenzstelle @@ -391,56 +1127,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.lblMySnd_Grenzstelle.TabIndex = 25 Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:" ' - 'btnHeute - ' - Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnHeute.ForeColor = System.Drawing.Color.White - Me.btnHeute.Location = New System.Drawing.Point(143, 67) - Me.btnHeute.Name = "btnHeute" - Me.btnHeute.Size = New System.Drawing.Size(50, 22) - Me.btnHeute.TabIndex = 0 - Me.btnHeute.TabStop = False - Me.btnHeute.Text = "Heute" - Me.btnHeute.UseVisualStyleBackColor = True - ' - 'btnGestern - ' - Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnGestern.ForeColor = System.Drawing.Color.White - Me.btnGestern.Location = New System.Drawing.Point(192, 67) - Me.btnGestern.Name = "btnGestern" - Me.btnGestern.Size = New System.Drawing.Size(58, 22) - Me.btnGestern.TabIndex = 1 - Me.btnGestern.TabStop = False - Me.btnGestern.Text = "Gestern" - Me.btnGestern.UseVisualStyleBackColor = True - ' - 'CheckBox1 - ' - Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.CheckBox1.AutoSize = True - Me.CheckBox1.Checked = True - Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox1.ForeColor = System.Drawing.Color.White - Me.CheckBox1.Location = New System.Drawing.Point(1038, 181) - Me.CheckBox1.Name = "CheckBox1" - Me.CheckBox1.Size = New System.Drawing.Size(50, 17) - Me.CheckBox1.TabIndex = 28 - Me.CheckBox1.Text = "LKW" - Me.CheckBox1.UseVisualStyleBackColor = True - ' - 'btnWoche - ' - Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWoche.ForeColor = System.Drawing.Color.White - Me.btnWoche.Location = New System.Drawing.Point(249, 67) - Me.btnWoche.Name = "btnWoche" - Me.btnWoche.Size = New System.Drawing.Size(64, 22) - Me.btnWoche.TabIndex = 2 - Me.btnWoche.TabStop = False - Me.btnWoche.Text = "1 Woche" - Me.btnWoche.UseVisualStyleBackColor = True - ' 'tbcntrAvisoSND ' Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -450,7 +1136,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.tbcntrAvisoSND.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.tbcntrAvisoSND.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.tbcntrAvisoSND.ItemSize = New System.Drawing.Size(60, 30) - Me.tbcntrAvisoSND.Location = New System.Drawing.Point(13, 134) + Me.tbcntrAvisoSND.Location = New System.Drawing.Point(235, 222) Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND" Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3) Me.tbcntrAvisoSND.SelectedIndex = 0 @@ -490,731 +1176,37 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.tbSndFreigegeben.Text = "Freigegeben" Me.tbSndFreigegeben.UseVisualStyleBackColor = True ' - 'dtpBis - ' - Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpBis.Location = New System.Drawing.Point(228, 101) - Me.dtpBis.Name = "dtpBis" - Me.dtpBis.Size = New System.Drawing.Size(85, 20) - Me.dtpBis.TabIndex = 4 - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.ForeColor = System.Drawing.Color.White - Me.Label2.Location = New System.Drawing.Point(226, 89) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(20, 13) - Me.Label2.TabIndex = 5 - Me.Label2.Text = "bis" - ' - 'dtpVon - ' - Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.dtpVon.Location = New System.Drawing.Point(143, 101) - Me.dtpVon.Name = "dtpVon" - Me.dtpVon.Size = New System.Drawing.Size(85, 20) - Me.dtpVon.TabIndex = 3 - ' - 'Label5 - ' - Me.Label5.AutoSize = True - Me.Label5.ForeColor = System.Drawing.Color.White - Me.Label5.Location = New System.Drawing.Point(141, 89) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(25, 13) - Me.Label5.TabIndex = 6 - Me.Label5.Text = "von" - ' - 'lblAkte - ' - Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblAkte.ForeColor = System.Drawing.Color.White - Me.lblAkte.Location = New System.Drawing.Point(580, 163) - Me.lblAkte.Name = "lblAkte" - Me.lblAkte.Size = New System.Drawing.Size(207, 19) - Me.lblAkte.TabIndex = 29 - Me.lblAkte.Text = "0 Akte vom Arbeitsplatz übernommen" - Me.lblAkte.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'cboTeams - ' - Me.cboTeams._allowedValuesFreiText = Nothing - Me.cboTeams._allowFreiText = False - Me.cboTeams._value = "" - Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboTeams.DropDownWidth = 200 - Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboTeams.FormattingEnabled = True - Me.cboTeams.Location = New System.Drawing.Point(408, 4) - Me.cboTeams.Name = "cboTeams" - Me.cboTeams.Size = New System.Drawing.Size(107, 24) - Me.cboTeams.TabIndex = 19 - ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.ForeColor = System.Drawing.Color.White - Me.Label16.Location = New System.Drawing.Point(368, 9) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(37, 13) - Me.Label16.TabIndex = 18 - Me.Label16.Text = "Team:" - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.Label8.Location = New System.Drawing.Point(67, 7) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(15, 18) - Me.Label8.TabIndex = 15 - Me.Label8.Text = "*" - Me.Label8.Visible = False - ' - 'cboGrenzstelle - ' - Me.cboGrenzstelle._allowedValuesFreiText = Nothing - Me.cboGrenzstelle._allowFreiText = False - Me.cboGrenzstelle._value = "" - Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboGrenzstelle.DropDownWidth = 200 - Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboGrenzstelle.FormattingEnabled = True - Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"}) - Me.cboGrenzstelle.Location = New System.Drawing.Point(408, 31) - Me.cboGrenzstelle.Name = "cboGrenzstelle" - Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24) - Me.cboGrenzstelle.TabIndex = 13 - ' - 'lblGrenze - ' - Me.lblGrenze.AutoSize = True - Me.lblGrenze.ForeColor = System.Drawing.Color.White - Me.lblGrenze.Location = New System.Drawing.Point(343, 37) - Me.lblGrenze.Name = "lblGrenze" - Me.lblGrenze.Size = New System.Drawing.Size(62, 13) - Me.lblGrenze.TabIndex = 9 - Me.lblGrenze.Text = "Grenzstelle:" - ' - 'pnlTime - ' - Me.pnlTime.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.pnlTime.Controls.Add(Me.lblHinweis) - Me.pnlTime.Controls.Add(Me.lblDauer) - Me.pnlTime.Controls.Add(Me.Label10) - Me.pnlTime.Controls.Add(Me.txtBestimmungszollstelle) - Me.pnlTime.Controls.Add(Me.Label21) - Me.pnlTime.Controls.Add(Me.cboImEx) - Me.pnlTime.Controls.Add(Me.lblEintraege) - Me.pnlTime.Controls.Add(Me.cbxCluster) - Me.pnlTime.Location = New System.Drawing.Point(475, 1) - Me.pnlTime.Name = "pnlTime" - Me.pnlTime.Size = New System.Drawing.Size(683, 57) - Me.pnlTime.TabIndex = 12 - ' - 'lblDauer - ' - Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblDauer.BackColor = System.Drawing.Color.Transparent - Me.lblDauer.ForeColor = System.Drawing.Color.White - Me.lblDauer.Location = New System.Drawing.Point(523, 18) - Me.lblDauer.Name = "lblDauer" - Me.lblDauer.Size = New System.Drawing.Size(155, 17) - Me.lblDauer.TabIndex = 27 - Me.lblDauer.Text = "1111123 ms" - Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.ForeColor = System.Drawing.Color.White - Me.Label10.Location = New System.Drawing.Point(48, 36) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(44, 13) - Me.Label10.TabIndex = 26 - Me.Label10.Text = "Zollamt:" - ' - 'txtBestimmungszollstelle - ' - Me.txtBestimmungszollstelle._allowFreitext = False - Me.txtBestimmungszollstelle._AllowSetValue = False - Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False - Me.txtBestimmungszollstelle._autoSizeGross = False - Me.txtBestimmungszollstelle._hideIfListEmpty = True - Me.txtBestimmungszollstelle._value = Nothing - Me.txtBestimmungszollstelle.conn_art = "FMZOLL" - Me.txtBestimmungszollstelle.dgvpos = "LEFT" - Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing - Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing - Me.txtBestimmungszollstelle.key_visible = False - Me.txtBestimmungszollstelle.KEYPARAM = Nothing - Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(102, 32) - Me.txtBestimmungszollstelle.MaxLength = 50 - Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle" - Me.txtBestimmungszollstelle.searchActive = True - Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(211, 20) - Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing - Me.txtBestimmungszollstelle.SQL_SELECT = Nothing - Me.txtBestimmungszollstelle.SQL_WHERE = Nothing - Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing - Me.txtBestimmungszollstelle.TabIndex = 25 - Me.txtBestimmungszollstelle.usrcntl = Nothing - ' - 'Label21 - ' - Me.Label21.AutoSize = True - Me.Label21.ForeColor = System.Drawing.Color.White - Me.Label21.Location = New System.Drawing.Point(51, 8) - Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(41, 13) - Me.Label21.TabIndex = 23 - Me.Label21.Text = "IM/EX:" - ' - 'cboImEx - ' - Me.cboImEx._allowedValuesFreiText = Nothing - Me.cboImEx._allowFreiText = False - Me.cboImEx._value = "" - Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke - Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboImEx.FormattingEnabled = True - Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"}) - Me.cboImEx.Location = New System.Drawing.Point(102, 2) - Me.cboImEx.Name = "cboImEx" - Me.cboImEx.Size = New System.Drawing.Size(78, 24) - Me.cboImEx.TabIndex = 24 - ' - 'lblEintraege - ' - Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblEintraege.BackColor = System.Drawing.Color.Transparent - Me.lblEintraege.ForeColor = System.Drawing.Color.White - Me.lblEintraege.Location = New System.Drawing.Point(509, 6) - Me.lblEintraege.Name = "lblEintraege" - Me.lblEintraege.Size = New System.Drawing.Size(169, 15) - Me.lblEintraege.TabIndex = 14 - Me.lblEintraege.Text = "0 Einträge" - Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight - ' - 'cbxCluster - ' - Me.cbxCluster.AutoSize = True - Me.cbxCluster.Checked = True - Me.cbxCluster.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxCluster.ForeColor = System.Drawing.Color.White - Me.cbxCluster.Location = New System.Drawing.Point(186, 6) - Me.cbxCluster.Name = "cbxCluster" - Me.cbxCluster.Size = New System.Drawing.Size(96, 17) - Me.cbxCluster.TabIndex = 20 - Me.cbxCluster.Text = "Firmenverbund" - Me.cbxCluster.UseVisualStyleBackColor = True - ' - 'Label6 - ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.ForeColor = System.Drawing.Color.White - Me.Label6.Location = New System.Drawing.Point(6, 53) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(81, 13) - Me.Label6.TabIndex = 11 - Me.Label6.Text = "mind. 2 Zeichen" - ' - 'txtSuche - ' - Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSuche.Location = New System.Drawing.Point(7, 28) - Me.txtSuche.MaxLength = 30 - Me.txtSuche.Name = "txtSuche" - Me.txtSuche.Size = New System.Drawing.Size(306, 26) - Me.txtSuche.TabIndex = 0 - ' - 'lblZeit_aktuell - ' - Me.lblZeit_aktuell.AutoSize = True - Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblZeit_aktuell.Location = New System.Drawing.Point(6, 39) - Me.lblZeit_aktuell.Name = "lblZeit_aktuell" - Me.lblZeit_aktuell.Size = New System.Drawing.Size(154, 13) - Me.lblZeit_aktuell.TabIndex = 6 - Me.lblZeit_aktuell.Text = "letzte Aktualisierung: 11:22 Uhr" - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.ForeColor = System.Drawing.Color.White - Me.Label1.Location = New System.Drawing.Point(827, 40) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(140, 13) - Me.Label1.TabIndex = 8 - Me.Label1.Text = "(zeigt alle ANKUNFT-LKWs)" - Me.Label1.Visible = False - ' - 'Label3 - ' - Me.Label3.ForeColor = System.Drawing.Color.White - Me.Label3.Location = New System.Drawing.Point(825, 2) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(142, 34) - Me.Label3.TabIndex = 7 - Me.Label3.Text = "(zeigt ANKUNFT-LKWs für aktiven Standort)" - Me.Label3.Visible = False - ' - 'btnWichtige - ' - Me.btnWichtige.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWichtige.ForeColor = System.Drawing.Color.White - Me.btnWichtige.Location = New System.Drawing.Point(235, 1) - Me.btnWichtige.Name = "btnWichtige" - Me.btnWichtige.Size = New System.Drawing.Size(78, 25) - Me.btnWichtige.TabIndex = 4 - Me.btnWichtige.TabStop = False - Me.btnWichtige.Text = "WICHTIG" - Me.btnWichtige.UseVisualStyleBackColor = True - ' - 'btnWichtigeStandort - ' - Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.White - Me.btnWichtigeStandort.Location = New System.Drawing.Point(137, 0) - Me.btnWichtigeStandort.Name = "btnWichtigeStandort" - Me.btnWichtigeStandort.Size = New System.Drawing.Size(92, 27) - Me.btnWichtigeStandort.TabIndex = 3 - Me.btnWichtigeStandort.TabStop = False - Me.btnWichtigeStandort.Text = "Wichtig-Standort" - Me.btnWichtigeStandort.UseVisualStyleBackColor = True - ' - 'btnAlleAnzeigen - ' - Me.btnAlleAnzeigen.FlatAppearance.BorderSize = 0 - Me.btnAlleAnzeigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAlleAnzeigen.ForeColor = System.Drawing.Color.White - Me.btnAlleAnzeigen.Location = New System.Drawing.Point(960, 25) - Me.btnAlleAnzeigen.Name = "btnAlleAnzeigen" - Me.btnAlleAnzeigen.Size = New System.Drawing.Size(84, 29) - Me.btnAlleAnzeigen.TabIndex = 2 - Me.btnAlleAnzeigen.Text = "Alle anzeigen" - Me.btnAlleAnzeigen.UseVisualStyleBackColor = True - Me.btnAlleAnzeigen.Visible = False - ' - 'lblSuche - ' - Me.lblSuche.AutoSize = True - Me.lblSuche.ForeColor = System.Drawing.Color.White - Me.lblSuche.Location = New System.Drawing.Point(6, 9) - Me.lblSuche.Name = "lblSuche" - Me.lblSuche.Size = New System.Drawing.Size(61, 13) - Me.lblSuche.TabIndex = 1 - Me.lblSuche.Text = "Suchbegriff" - ' - 'tbcntrAvisoLKW - ' - Me.tbcntrAvisoLKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabAlle) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabErfasst) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorbereitet) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabVorgeschrieben) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabAnkunft) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabVERIMEX) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabINDONESIEN) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabFreigegeben) - Me.tbcntrAvisoLKW.Controls.Add(Me.tabNichtEingetroffen) - Me.tbcntrAvisoLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tbcntrAvisoLKW.ImeMode = System.Windows.Forms.ImeMode.NoControl - Me.tbcntrAvisoLKW.ItemSize = New System.Drawing.Size(60, 30) - Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(-1, 193) - Me.tbcntrAvisoLKW.Name = "tbcntrAvisoLKW" - Me.tbcntrAvisoLKW.Padding = New System.Drawing.Point(12, 3) - Me.tbcntrAvisoLKW.SelectedIndex = 0 - Me.tbcntrAvisoLKW.Size = New System.Drawing.Size(129, 37) - Me.tbcntrAvisoLKW.TabIndex = 10 - ' - 'tabAlle - ' - Me.tabAlle.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tabAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tabAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.tabAlle.Location = New System.Drawing.Point(4, 34) - Me.tabAlle.Name = "tabAlle" - Me.tabAlle.Padding = New System.Windows.Forms.Padding(3) - Me.tabAlle.Size = New System.Drawing.Size(121, 0) - Me.tabAlle.TabIndex = 0 - Me.tabAlle.Text = "Alle LKW" - ' - 'tabErfasst - ' - Me.tabErfasst.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tabErfasst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tabErfasst.Location = New System.Drawing.Point(4, 34) - Me.tabErfasst.Name = "tabErfasst" - Me.tabErfasst.Padding = New System.Windows.Forms.Padding(3) - Me.tabErfasst.Size = New System.Drawing.Size(121, 0) - Me.tabErfasst.TabIndex = 1 - Me.tabErfasst.Text = "1. Erfasst" - ' - 'tabVorbereitet - ' - Me.tabVorbereitet.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tabVorbereitet.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tabVorbereitet.Location = New System.Drawing.Point(4, 34) - Me.tabVorbereitet.Name = "tabVorbereitet" - Me.tabVorbereitet.Padding = New System.Windows.Forms.Padding(3) - Me.tabVorbereitet.Size = New System.Drawing.Size(121, 0) - Me.tabVorbereitet.TabIndex = 2 - Me.tabVorbereitet.Text = "2.Vorbereitet QS" - ' - 'tabVorgeschrieben - ' - Me.tabVorgeschrieben.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tabVorgeschrieben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tabVorgeschrieben.Location = New System.Drawing.Point(4, 34) - Me.tabVorgeschrieben.Name = "tabVorgeschrieben" - Me.tabVorgeschrieben.Padding = New System.Windows.Forms.Padding(3) - Me.tabVorgeschrieben.Size = New System.Drawing.Size(121, 0) - Me.tabVorgeschrieben.TabIndex = 3 - Me.tabVorgeschrieben.Text = "3.Vorgeschrieben" - ' - 'tabAnkunft - ' - Me.tabAnkunft.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tabAnkunft.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tabAnkunft.Location = New System.Drawing.Point(4, 34) - Me.tabAnkunft.Name = "tabAnkunft" - Me.tabAnkunft.Padding = New System.Windows.Forms.Padding(3) - Me.tabAnkunft.Size = New System.Drawing.Size(121, 0) - Me.tabAnkunft.TabIndex = 4 - Me.tabAnkunft.Text = "4. Ankunft" - ' - 'tabVERIMEX - ' - Me.tabVERIMEX.Location = New System.Drawing.Point(4, 34) - Me.tabVERIMEX.Name = "tabVERIMEX" - Me.tabVERIMEX.Size = New System.Drawing.Size(121, 0) - Me.tabVERIMEX.TabIndex = 7 - Me.tabVERIMEX.Text = "VERIMEX" - Me.tabVERIMEX.UseVisualStyleBackColor = True - ' - 'tabINDONESIEN - ' - Me.tabINDONESIEN.Location = New System.Drawing.Point(4, 34) - Me.tabINDONESIEN.Name = "tabINDONESIEN" - Me.tabINDONESIEN.Size = New System.Drawing.Size(121, 0) - Me.tabINDONESIEN.TabIndex = 8 - Me.tabINDONESIEN.Text = "INDONESIEN" - Me.tabINDONESIEN.UseVisualStyleBackColor = True - ' - 'tabFreigegeben - ' - Me.tabFreigegeben.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tabFreigegeben.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tabFreigegeben.Location = New System.Drawing.Point(4, 34) - Me.tabFreigegeben.Name = "tabFreigegeben" - Me.tabFreigegeben.Padding = New System.Windows.Forms.Padding(3) - Me.tabFreigegeben.Size = New System.Drawing.Size(121, 0) - Me.tabFreigegeben.TabIndex = 5 - Me.tabFreigegeben.Text = "5. Freigegeben" - ' - 'tabNichtEingetroffen - ' - Me.tabNichtEingetroffen.BackColor = System.Drawing.SystemColors.ActiveBorder - Me.tabNichtEingetroffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.tabNichtEingetroffen.Location = New System.Drawing.Point(4, 34) - Me.tabNichtEingetroffen.Name = "tabNichtEingetroffen" - Me.tabNichtEingetroffen.Padding = New System.Windows.Forms.Padding(3) - Me.tabNichtEingetroffen.Size = New System.Drawing.Size(121, 0) - Me.tabNichtEingetroffen.TabIndex = 6 - Me.tabNichtEingetroffen.Text = "Nicht eingetroffen" - ' - 'pnlSearch - ' - Me.pnlSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(74, Byte), Integer), CType(CType(138, Byte), Integer)) - Me.pnlSearch.Controls.Add(Me.lblAbsender) - Me.pnlSearch.Controls.Add(Me.txtAbsender) - Me.pnlSearch.Controls.Add(Me.txtDyRef) - Me.pnlSearch.Controls.Add(Me.Label19) - Me.pnlSearch.Controls.Add(Me.lblErwLKWID) - Me.pnlSearch.Controls.Add(Me.txtlkwId) - Me.pnlSearch.Controls.Add(Me.cbxNE) - Me.pnlSearch.Controls.Add(Me.cbxFreigabe) - Me.pnlSearch.Controls.Add(Me.cbxAnkunft) - Me.pnlSearch.Controls.Add(Me.cbxVorg) - Me.pnlSearch.Controls.Add(Me.cbxVorb) - Me.pnlSearch.Controls.Add(Me.cbxErfasst) - Me.pnlSearch.Controls.Add(Me.Label14) - Me.pnlSearch.Controls.Add(Me.txtKdAuftragsnr) - Me.pnlSearch.Controls.Add(Me.txtAuftraggeber) - Me.pnlSearch.Controls.Add(Me.lblErwKdAtrNr) - Me.pnlSearch.Controls.Add(Me.Button4) - Me.pnlSearch.Controls.Add(Me.lblErwEmpfänger) - Me.pnlSearch.Controls.Add(Me.txtEmpfänger) - Me.pnlSearch.Controls.Add(Me.cboFiliale) - Me.pnlSearch.Controls.Add(Me.txtAbfertigungsnummer) - Me.pnlSearch.Controls.Add(Me.lblErwFilialePos) - Me.pnlSearch.Controls.Add(Me.lblErwAuftraggeber) - Me.pnlSearch.Controls.Add(Me.cbxAlle) - Me.pnlSearch.Location = New System.Drawing.Point(335, 61) - Me.pnlSearch.Name = "pnlSearch" - Me.pnlSearch.Size = New System.Drawing.Size(823, 121) - Me.pnlSearch.TabIndex = 16 - ' - 'lblAbsender - ' - Me.lblAbsender.AutoSize = True - Me.lblAbsender.ForeColor = System.Drawing.Color.White - Me.lblAbsender.Location = New System.Drawing.Point(2, 33) - Me.lblAbsender.Name = "lblAbsender" - Me.lblAbsender.Size = New System.Drawing.Size(55, 13) - Me.lblAbsender.TabIndex = 23 - Me.lblAbsender.Text = "Absender:" - ' - 'txtAbsender - ' - Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbsender.Location = New System.Drawing.Point(73, 28) - Me.txtAbsender.MaxLength = 100 - Me.txtAbsender.Name = "txtAbsender" - Me.txtAbsender.Size = New System.Drawing.Size(236, 23) - Me.txtAbsender.TabIndex = 2 - ' - 'txtDyRef - ' - Me.txtDyRef.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtDyRef.Location = New System.Drawing.Point(383, 77) - Me.txtDyRef.MaxLength = 100 - Me.txtDyRef.Name = "txtDyRef" - Me.txtDyRef.Size = New System.Drawing.Size(216, 23) - Me.txtDyRef.TabIndex = 10 - ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.ForeColor = System.Drawing.Color.White - Me.Label19.Location = New System.Drawing.Point(310, 82) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(48, 13) - Me.Label19.TabIndex = 20 - Me.Label19.Text = "DY-Ref.:" - ' - 'lblErwLKWID - ' - Me.lblErwLKWID.AutoSize = True - Me.lblErwLKWID.ForeColor = System.Drawing.Color.White - Me.lblErwLKWID.Location = New System.Drawing.Point(2, 82) - Me.lblErwLKWID.Name = "lblErwLKWID" - Me.lblErwLKWID.Size = New System.Drawing.Size(46, 13) - Me.lblErwLKWID.TabIndex = 19 - Me.lblErwLKWID.Text = "LKW-Id:" - ' - 'txtlkwId - ' - Me.txtlkwId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtlkwId.Location = New System.Drawing.Point(73, 77) - Me.txtlkwId.MaxLength = 100 - Me.txtlkwId.Name = "txtlkwId" - Me.txtlkwId.Size = New System.Drawing.Size(236, 23) - Me.txtlkwId.TabIndex = 10 - ' - 'cbxNE - ' - Me.cbxNE.AutoSize = True - Me.cbxNE.ForeColor = System.Drawing.Color.White - Me.cbxNE.Location = New System.Drawing.Point(547, 104) - Me.cbxNE.Name = "cbxNE" - Me.cbxNE.Size = New System.Drawing.Size(110, 17) - Me.cbxNE.TabIndex = 16 - Me.cbxNE.Text = "Nicht eingetroffen" - Me.cbxNE.UseVisualStyleBackColor = True - ' - 'cbxFreigabe - ' - Me.cbxFreigabe.AutoSize = True - Me.cbxFreigabe.ForeColor = System.Drawing.Color.White - Me.cbxFreigabe.Location = New System.Drawing.Point(456, 104) - Me.cbxFreigabe.Name = "cbxFreigabe" - Me.cbxFreigabe.Size = New System.Drawing.Size(85, 17) - Me.cbxFreigabe.TabIndex = 15 - Me.cbxFreigabe.Text = "Freigegeben" - Me.cbxFreigabe.UseVisualStyleBackColor = True - ' - 'cbxAnkunft - ' - Me.cbxAnkunft.AutoSize = True - Me.cbxAnkunft.ForeColor = System.Drawing.Color.White - Me.cbxAnkunft.Location = New System.Drawing.Point(387, 104) - Me.cbxAnkunft.Name = "cbxAnkunft" - Me.cbxAnkunft.Size = New System.Drawing.Size(63, 17) - Me.cbxAnkunft.TabIndex = 14 - Me.cbxAnkunft.Text = "Ankunft" - Me.cbxAnkunft.UseVisualStyleBackColor = True - ' - 'cbxVorg - ' - Me.cbxVorg.AutoSize = True - Me.cbxVorg.ForeColor = System.Drawing.Color.White - Me.cbxVorg.Location = New System.Drawing.Point(288, 104) - Me.cbxVorg.Name = "cbxVorg" - Me.cbxVorg.Size = New System.Drawing.Size(100, 17) - Me.cbxVorg.TabIndex = 13 - Me.cbxVorg.Text = "Vorgeschrieben" - Me.cbxVorg.UseVisualStyleBackColor = True - ' - 'cbxVorb - ' - Me.cbxVorb.AutoSize = True - Me.cbxVorb.ForeColor = System.Drawing.Color.White - Me.cbxVorb.Location = New System.Drawing.Point(187, 104) - Me.cbxVorb.Name = "cbxVorb" - Me.cbxVorb.Size = New System.Drawing.Size(95, 17) - Me.cbxVorb.TabIndex = 12 - Me.cbxVorb.Text = "Vorbereitet QS" - Me.cbxVorb.UseVisualStyleBackColor = True - ' - 'cbxErfasst - ' - Me.cbxErfasst.AutoSize = True - Me.cbxErfasst.ForeColor = System.Drawing.Color.White - Me.cbxErfasst.Location = New System.Drawing.Point(123, 104) - Me.cbxErfasst.Name = "cbxErfasst" - Me.cbxErfasst.Size = New System.Drawing.Size(58, 17) - Me.cbxErfasst.TabIndex = 11 - Me.cbxErfasst.Text = "Erfasst" - Me.cbxErfasst.UseVisualStyleBackColor = True - ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.ForeColor = System.Drawing.Color.White - Me.Label14.Location = New System.Drawing.Point(2, 105) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(40, 13) - Me.Label14.TabIndex = 8 - Me.Label14.Text = "Status:" - ' - 'txtKdAuftragsnr - ' - Me.txtKdAuftragsnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtKdAuftragsnr.Location = New System.Drawing.Point(383, 28) - Me.txtKdAuftragsnr.MaxLength = 100 - Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr" - Me.txtKdAuftragsnr.Size = New System.Drawing.Size(216, 23) - Me.txtKdAuftragsnr.TabIndex = 9 - ' - 'txtAuftraggeber - ' - Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAuftraggeber.Location = New System.Drawing.Point(73, 6) - Me.txtAuftraggeber.MaxLength = 100 - Me.txtAuftraggeber.Name = "txtAuftraggeber" - Me.txtAuftraggeber.Size = New System.Drawing.Size(236, 23) - Me.txtAuftraggeber.TabIndex = 1 - ' - 'lblErwKdAtrNr - ' - Me.lblErwKdAtrNr.AutoSize = True - Me.lblErwKdAtrNr.ForeColor = System.Drawing.Color.White - Me.lblErwKdAtrNr.Location = New System.Drawing.Point(310, 33) - Me.lblErwKdAtrNr.Name = "lblErwKdAtrNr" - Me.lblErwKdAtrNr.Size = New System.Drawing.Size(65, 13) - Me.lblErwKdAtrNr.TabIndex = 0 - Me.lblErwKdAtrNr.Text = "Kd-Auftr.Nr.:" - ' - 'Button4 - ' - Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.ForeColor = System.Drawing.Color.White - Me.Button4.Image = Global.AVISO.My.Resources.Resources.search - Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button4.Location = New System.Drawing.Point(615, 6) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(88, 45) - Me.Button4.TabIndex = 17 - Me.Button4.TabStop = False - Me.Button4.Text = "Suche" - Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.UseVisualStyleBackColor = True - ' - 'lblErwEmpfänger - ' - Me.lblErwEmpfänger.AutoSize = True - Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.White - Me.lblErwEmpfänger.Location = New System.Drawing.Point(2, 55) - Me.lblErwEmpfänger.Name = "lblErwEmpfänger" - Me.lblErwEmpfänger.Size = New System.Drawing.Size(61, 13) - Me.lblErwEmpfänger.TabIndex = 6 - Me.lblErwEmpfänger.Text = "Empfänger:" - ' - 'txtEmpfänger - ' - Me.txtEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtEmpfänger.Location = New System.Drawing.Point(73, 50) - Me.txtEmpfänger.MaxLength = 100 - Me.txtEmpfänger.Name = "txtEmpfänger" - Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23) - Me.txtEmpfänger.TabIndex = 3 - ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 300 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(383, 6) - Me.cboFiliale.MaxLength = 4 - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(70, 24) - Me.cboFiliale.TabIndex = 3 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(452, 6) - Me.txtAbfertigungsnummer.MaxLength = 8 - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(147, 23) - Me.txtAbfertigungsnummer.TabIndex = 5 - ' - 'lblErwFilialePos - ' - Me.lblErwFilialePos.AutoSize = True - Me.lblErwFilialePos.ForeColor = System.Drawing.Color.White - Me.lblErwFilialePos.Location = New System.Drawing.Point(310, 11) - Me.lblErwFilialePos.Name = "lblErwFilialePos" - Me.lblErwFilialePos.Size = New System.Drawing.Size(73, 13) - Me.lblErwFilialePos.TabIndex = 2 - Me.lblErwFilialePos.Text = "Filiale/PosNr.:" - ' - 'lblErwAuftraggeber - ' - Me.lblErwAuftraggeber.AutoSize = True - Me.lblErwAuftraggeber.ForeColor = System.Drawing.Color.White - Me.lblErwAuftraggeber.Location = New System.Drawing.Point(2, 12) - Me.lblErwAuftraggeber.Name = "lblErwAuftraggeber" - Me.lblErwAuftraggeber.Size = New System.Drawing.Size(71, 13) - Me.lblErwAuftraggeber.TabIndex = 7 - Me.lblErwAuftraggeber.Text = "Auftraggeber:" - ' - 'cbxAlle - ' - Me.cbxAlle.AutoSize = True - Me.cbxAlle.ForeColor = System.Drawing.Color.White - Me.cbxAlle.Location = New System.Drawing.Point(73, 104) - Me.cbxAlle.Name = "cbxAlle" - Me.cbxAlle.Size = New System.Drawing.Size(43, 17) - Me.cbxAlle.TabIndex = 10 - Me.cbxAlle.Text = "Alle" - Me.cbxAlle.UseVisualStyleBackColor = True + 'CheckBox1 + ' + Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.CheckBox1.AutoSize = True + Me.CheckBox1.Checked = True + Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox1.ForeColor = System.Drawing.Color.White + Me.CheckBox1.Location = New System.Drawing.Point(244, 260) + Me.CheckBox1.Name = "CheckBox1" + Me.CheckBox1.Size = New System.Drawing.Size(50, 17) + Me.CheckBox1.TabIndex = 28 + Me.CheckBox1.Text = "LKW" + Me.CheckBox1.UseVisualStyleBackColor = True + Me.CheckBox1.Visible = False + ' + 'Button7 + ' + Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button7.Font = New System.Drawing.Font("Segoe UI", 11.0!) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image) + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button7.Location = New System.Drawing.Point(917, 259) + Me.Button7.MaximumSize = New System.Drawing.Size(121, 35) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(121, 35) + Me.Button7.TabIndex = 32 + Me.Button7.Text = "Sendung" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + Me.Button7.Visible = False ' 'gridAviso ' @@ -1246,7 +1238,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle3 Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill - Me.gridAviso.Location = New System.Drawing.Point(0, 225) + Me.gridAviso.Location = New System.Drawing.Point(0, 118) Me.gridAviso.MultiSelect = False Me.gridAviso.Name = "gridAviso" Me.gridAviso.ReadOnly = True @@ -1266,7 +1258,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.gridAviso.RowTemplate.ReadOnly = True Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.gridAviso.Size = New System.Drawing.Size(1156, 407) + Me.gridAviso.Size = New System.Drawing.Size(1243, 514) Me.gridAviso.TabIndex = 4 Me.gridAviso.TabStop = False ' @@ -1308,39 +1300,31 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22) Me.ToolStripMenuItem21.Text = "GELB" ' - 'lblHinweis - ' - Me.lblHinweis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblHinweis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHinweis.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblHinweis.Location = New System.Drawing.Point(549, 37) - Me.lblHinweis.Name = "lblHinweis" - Me.lblHinweis.Size = New System.Drawing.Size(129, 16) - Me.lblHinweis.TabIndex = 38 - Me.lblHinweis.Text = "Hinweis eingetragen" - Me.lblHinweis.Visible = False - ' 'usrCntlHauptfenster_Suche_AVISO ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.tbcntrAvisoSND) + Me.Controls.Add(Me.CheckBox1) + Me.Controls.Add(Me.Button7) + Me.Controls.Add(Me.pblSNDOptions) Me.Controls.Add(Me.gridAviso) Me.Controls.Add(Me.Panel1) Me.Name = "usrCntlHauptfenster_Suche_AVISO" - Me.Size = New System.Drawing.Size(1156, 632) + Me.Size = New System.Drawing.Size(1243, 632) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + Me.pnlSearch.ResumeLayout(False) + Me.pnlSearch.PerformLayout() + Me.tbcntrAvisoLKW.ResumeLayout(False) + Me.pnlTime.ResumeLayout(False) Me.pblSNDOptions.ResumeLayout(False) Me.pblSNDOptions.PerformLayout() Me.tbcntrAvisoSND.ResumeLayout(False) - Me.pnlTime.ResumeLayout(False) - Me.pnlTime.PerformLayout() - Me.tbcntrAvisoLKW.ResumeLayout(False) - Me.pnlSearch.ResumeLayout(False) - Me.pnlSearch.PerformLayout() CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit() Me.ctxtFarben.ResumeLayout(False) Me.ResumeLayout(False) + Me.PerformLayout() End Sub @@ -1384,11 +1368,8 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Friend WithEvents Label6 As Label Friend WithEvents txtSuche As TextBox Friend WithEvents lblZeit_aktuell As Label - Friend WithEvents Label1 As Label - Friend WithEvents Label3 As Label Friend WithEvents btnWichtige As Button Friend WithEvents btnWichtigeStandort As Button - Friend WithEvents btnAlleAnzeigen As Button Friend WithEvents lblSuche As Label Friend WithEvents tbcntrAvisoLKW As TabControl Friend WithEvents tabAlle As TabPage @@ -1438,4 +1419,5 @@ Partial Class usrCntlHauptfenster_Suche_AVISO Friend WithEvents Button7 As Button Friend WithEvents Label22 As Label Friend WithEvents lblHinweis As Label + Friend WithEvents btnDetailsuche As Button End Class diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.resx b/Aviso/usrCntlHauptfenster_Suche_AVISO.resx index cb054e5..dee4168 100644 --- a/Aviso/usrCntlHauptfenster_Suche_AVISO.resx +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.resx @@ -118,7 +118,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO @@ -126,7 +126,7 @@ zULyAAAAAElFTkSuQmCC - + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO diff --git a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb index 6b8dc78..a1c4591 100644 --- a/Aviso/usrCntlHauptfenster_Suche_AVISO.vb +++ b/Aviso/usrCntlHauptfenster_Suche_AVISO.vb @@ -7,13 +7,28 @@ Imports VERAG_PROG_ALLGEMEIN.cGlobal Public Class usrCntlHauptfenster_Suche_AVISO + Public AVISO_TYP = "LKW" + Public aktiv = False Dim cProgramFunctions As New cProgramFunctions - Dim PARENT_FRMHAUPTFENSTER As frmHauptfensterNew - + Public PARENT_FRMHAUPTFENSTER As frmHauptfensterNew + Dim Grid_aktiv As Boolean = False Private AvisoDAL As New cAvisoDAL Private FUNC As New AvisoStatusFunctions Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL + Dim sd = 0 + Dim closeOK = False + Dim Fullscreen = False + Dim rowHeight = 20 + Dim chkFarben = True + + Dim lkwbackcolor As Color = Color.FromArgb(220, 220, 220) + Dim lkwbackcolorSel As Color = Color.FromArgb(200, 200, 200) + + Public gridFont As New Font(Me.Font.FontFamily, 8) + + Private VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL + Public Sub RESET() cboGrenzstelle.SelectedIndex = 0 @@ -27,8 +42,9 @@ Public Class usrCntlHauptfenster_Suche_AVISO Aviso_anzeigen("") End Sub - Private Sub usrCntlHauptfenster_Suche_AVISO_Load(sender As Object, e As EventArgs) Handles Me.Load + Private Sub usrCntlHauptfenster_Suche_AVISO_Load(sender As Object, e As EventArgs) Handles Me.Load + pnlSearch.Height = 145 PARENT_FRMHAUPTFENSTER = PARENT_FRMHAUPTFENSTER If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then @@ -159,6 +175,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO initEAviso() End If + SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim + If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "ATILLA" ' Case "VERAG", "IMEX" @@ -173,8 +191,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO Select Case zeilen Case 0 : lblAkte.Visible = False - Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen" - Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen" + Case 1 : lblAkte.Text = zeilen & " Akt vom " & vbNewLine & "Arbeitsplatz übernommen" : lblAkte.BringToFront() + Case Else : lblAkte.Text = zeilen & " Akte vom " & vbNewLine & "Arbeitsplatz übernommen" : lblAkte.BringToFront() End Select If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then @@ -203,6 +221,10 @@ Public Class usrCntlHauptfenster_Suche_AVISO tbcntrAvisoLKW.SelectedTab = tabAnkunft TimerAkte.Enabled = True + + pnlSearch.Visible = False + 'initPnlSearch() + ' Grid_aktiv = True End Sub @@ -365,7 +387,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO '------------------------------------------------------------- - + Dim sqlStr = "" Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)) @@ -727,13 +749,14 @@ Public Class usrCntlHauptfenster_Suche_AVISO Public Sub Aviso_anzeigen(hSort As String, Optional showDetails As Boolean = True) 'Paint wieder reaktivieren locZeilen = -1 + + If Not Grid_aktiv Then Exit Sub ' Grid_aktiv = False Dim hStart As Integer = My.Computer.Clock.TickCount Details_aktiv = False gridAviso.GetOrder() - Dim datumseinschr = "" Dim top = "TOP 1000 " @@ -892,7 +915,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO End If End If End If - + Dim hSQLFirma = "" hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " & " ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " & " FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " & @@ -952,7 +975,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO End If - ' MsgBox(hSQL) + ' MsgBox(hSQL) 'If hSort = "" Then 'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC" ' Else @@ -1035,6 +1058,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO ' initPnlSearch() 'End Sub Sub initPnlSearch() + MsgBox("s") If pnlSearch.Visible Then pnlSearch.Visible = False Panel1.Height -= pnlSearch.Height @@ -1080,7 +1104,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO End Sub - Private Sub Button4_Click_1(sender As Object, e As EventArgs) + Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click If CheckBox1.Checked Then toggle_LKW_SND("LKW") Else @@ -1141,7 +1165,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO End Sub - Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) Handles btnAlleAnzeigen.Click + Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) If sender Is btnAlleAnzeigen Then 'Auswahl wird zurückgesetzt, alle Einträge werden angezeigt @@ -1289,6 +1313,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO End If Grid_aktiv = True + Aviso_anzeigen(hSort) End Sub @@ -1502,9 +1527,9 @@ Public Class usrCntlHauptfenster_Suche_AVISO Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() Dim f As New frmEintragAviso - If sender Is ToolStripMenuItem17 Then - f.FIRMA_TMP = "ATILLA" - End If + 'If sender Is ToolStripMenuItem17 Then + ' f.FIRMA_TMP = "ATILLA" + 'End If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 ' f.frmHilf = Me @@ -1626,7 +1651,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO - If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False) + ' If Aviso_anzeigenBool Then PARENT_FRMHAUPTFENSTER.initsearch("", False) If AVISO_TYP = "LKW" Then @@ -1930,5 +1955,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO End Sub - + Private Sub btnDetailsuche_Click(sender As Object, e As EventArgs) Handles btnDetailsuche.Click + 'pnlSearch.Visible = Not pnlSearch.Visible + initPnlSearch() + End Sub End Class diff --git a/Aviso/usrcntlAktDetails.Designer.vb b/Aviso/usrcntlAktDetails.Designer.vb index fdb2ca3..ad5efb7 100644 --- a/Aviso/usrcntlAktDetails.Designer.vb +++ b/Aviso/usrcntlAktDetails.Designer.vb @@ -164,11 +164,21 @@ Partial Class usrcntlAktDetails Me.txtLKW_Nr = New System.Windows.Forms.TextBox() Me.pnlStatus = New System.Windows.Forms.Panel() Me.lblStatus = New System.Windows.Forms.Label() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.flpnlAvisoTrips = New System.Windows.Forms.FlowLayoutPanel() + Me.lblAvisoTrip_Default = New System.Windows.Forms.Label() + Me.lblAvisoTrip_Add = New System.Windows.Forms.Label() + Me.Panel6 = New System.Windows.Forms.Panel() + Me.lblAvisoTrip_Next2 = New System.Windows.Forms.TextBox() + Me.lblAvisoTrip_Prev2 = New System.Windows.Forms.TextBox() + Me.lblAvisoTrip_Next1 = New System.Windows.Forms.Label() + Me.lblAvisoTrip_Prev1 = New System.Windows.Forms.Label() Me.conMenuVermerke = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.conVermerkEntgLöschen = New System.Windows.Forms.ToolStripMenuItem() Me.HervorhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolUeberweisungsBeleg = New System.Windows.Forms.ToolStripMenuItem() Me.toolVkReminder = New System.Windows.Forms.ToolStripMenuItem() + Me.VermerkTextAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.MitarbeiterAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.conVermerkLöschenNew = New System.Windows.Forms.ToolStripMenuItem() Me.cntxtFormulare = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -188,7 +198,6 @@ Partial Class usrcntlAktDetails Me.btnÄndern = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() - Me.VermerkTextAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -226,6 +235,8 @@ Partial Class usrcntlAktDetails Me.Panel12.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlStatus.SuspendLayout() + Me.Panel5.SuspendLayout() + Me.flpnlAvisoTrips.SuspendLayout() Me.conMenuVermerke.SuspendLayout() Me.cntxtFormulare.SuspendLayout() Me.pnlOptionen.SuspendLayout() @@ -240,6 +251,7 @@ Partial Class usrcntlAktDetails Me.pnlDetailsRechts.Controls.Add(Me.FlowLayoutPanel) Me.pnlDetailsRechts.Controls.Add(Me.lblInfoAviso) Me.pnlDetailsRechts.Controls.Add(Me.pnl) + Me.pnlDetailsRechts.Controls.Add(Me.Panel5) Me.pnlDetailsRechts.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0) Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0) @@ -253,9 +265,9 @@ Partial Class usrcntlAktDetails Me.Panel3.Controls.Add(Me.SplitContainer) Me.Panel3.Controls.Add(Me.Panel8) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel3.Location = New System.Drawing.Point(0, 164) + Me.Panel3.Location = New System.Drawing.Point(0, 217) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(575, 591) + Me.Panel3.Size = New System.Drawing.Size(575, 538) Me.Panel3.TabIndex = 91 ' 'SplitContainer @@ -281,8 +293,8 @@ Partial Class usrcntlAktDetails Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop) Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk) Me.SplitContainer.Panel2.Controls.Add(Me.pnlMAInfo) - Me.SplitContainer.Size = New System.Drawing.Size(575, 471) - Me.SplitContainer.SplitterDistance = 206 + Me.SplitContainer.Size = New System.Drawing.Size(575, 418) + Me.SplitContainer.SplitterDistance = 166 Me.SplitContainer.TabIndex = 91 ' 'pnlAlt @@ -295,7 +307,7 @@ Partial Class usrcntlAktDetails Me.pnlAlt.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlAlt.Location = New System.Drawing.Point(0, 0) Me.pnlAlt.Name = "pnlAlt" - Me.pnlAlt.Size = New System.Drawing.Size(575, 206) + Me.pnlAlt.Size = New System.Drawing.Size(575, 166) Me.pnlAlt.TabIndex = 72 Me.pnlAlt.Visible = False ' @@ -666,7 +678,7 @@ Partial Class usrcntlAktDetails Me.dgvSendungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSendungen.ShowCellErrors = False Me.dgvSendungen.ShowRowErrors = False - Me.dgvSendungen.Size = New System.Drawing.Size(575, 206) + Me.dgvSendungen.Size = New System.Drawing.Size(575, 166) Me.dgvSendungen.TabIndex = 71 Me.dgvSendungen.TabStop = False ' @@ -678,7 +690,7 @@ Partial Class usrcntlAktDetails Me.Panel7.Location = New System.Drawing.Point(4, 19) Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250) Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(1, 74) + Me.Panel7.Size = New System.Drawing.Size(1, 15) Me.Panel7.TabIndex = 15 ' 'picArrowDown @@ -687,7 +699,7 @@ Partial Class usrcntlAktDetails Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.picArrowDown.Location = New System.Drawing.Point(1, 197) + Me.picArrowDown.Location = New System.Drawing.Point(1, 160) Me.picArrowDown.Name = "picArrowDown" Me.picArrowDown.Size = New System.Drawing.Size(36, 50) Me.picArrowDown.TabIndex = 104 @@ -1077,7 +1089,7 @@ Partial Class usrcntlAktDetails Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridVermerke.ShowCellErrors = False Me.gridVermerke.ShowRowErrors = False - Me.gridVermerke.Size = New System.Drawing.Size(575, 175) + Me.gridVermerke.Size = New System.Drawing.Size(575, 162) Me.gridVermerke.TabIndex = 70 Me.gridVermerke.TabStop = False ' @@ -1225,7 +1237,7 @@ Partial Class usrcntlAktDetails Me.pnlMAInfo.Controls.Add(Me.Button18) Me.pnlMAInfo.Controls.Add(Me.picAVISOMessengerSNDChat) Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlMAInfo.Location = New System.Drawing.Point(0, 205) + Me.pnlMAInfo.Location = New System.Drawing.Point(0, 192) Me.pnlMAInfo.Name = "pnlMAInfo" Me.pnlMAInfo.Size = New System.Drawing.Size(575, 56) Me.pnlMAInfo.TabIndex = 106 @@ -1806,7 +1818,7 @@ Partial Class usrcntlAktDetails Me.FlowLayoutPanel.Controls.Add(Me.Panel12) Me.FlowLayoutPanel.Controls.Add(Me.Panel2) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top - Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36) + Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 89) Me.FlowLayoutPanel.Name = "FlowLayoutPanel" Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 128) Me.FlowLayoutPanel.TabIndex = 13 @@ -2125,7 +2137,7 @@ Partial Class usrcntlAktDetails Me.pnl.Controls.Add(Me.txtLKW_Nr) Me.pnl.Controls.Add(Me.pnlStatus) Me.pnl.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Location = New System.Drawing.Point(0, 53) Me.pnl.Name = "pnl" Me.pnl.Size = New System.Drawing.Size(575, 36) Me.pnl.TabIndex = 91 @@ -2172,12 +2184,145 @@ Partial Class usrcntlAktDetails Me.lblStatus.Text = "-" Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' + 'Panel5 + ' + Me.Panel5.BackColor = System.Drawing.SystemColors.Highlight + Me.Panel5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel5.Controls.Add(Me.flpnlAvisoTrips) + Me.Panel5.Controls.Add(Me.Panel6) + Me.Panel5.Controls.Add(Me.lblAvisoTrip_Next2) + Me.Panel5.Controls.Add(Me.lblAvisoTrip_Prev2) + Me.Panel5.Controls.Add(Me.lblAvisoTrip_Next1) + Me.Panel5.Controls.Add(Me.lblAvisoTrip_Prev1) + Me.Panel5.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel5.Location = New System.Drawing.Point(0, 0) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(575, 53) + Me.Panel5.TabIndex = 92 + ' + 'flpnlAvisoTrips + ' + Me.flpnlAvisoTrips.AutoScroll = True + Me.flpnlAvisoTrips.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(50, Byte), Integer), CType(CType(100, Byte), Integer)) + Me.flpnlAvisoTrips.Controls.Add(Me.lblAvisoTrip_Default) + Me.flpnlAvisoTrips.Controls.Add(Me.lblAvisoTrip_Add) + Me.flpnlAvisoTrips.Dock = System.Windows.Forms.DockStyle.Fill + Me.flpnlAvisoTrips.Location = New System.Drawing.Point(101, 0) + Me.flpnlAvisoTrips.Name = "flpnlAvisoTrips" + Me.flpnlAvisoTrips.Padding = New System.Windows.Forms.Padding(3) + Me.flpnlAvisoTrips.Size = New System.Drawing.Size(371, 48) + Me.flpnlAvisoTrips.TabIndex = 93 + Me.flpnlAvisoTrips.Visible = False + ' + 'lblAvisoTrip_Default + ' + Me.lblAvisoTrip_Default.BackColor = System.Drawing.SystemColors.HotTrack + Me.lblAvisoTrip_Default.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblAvisoTrip_Default.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) + Me.lblAvisoTrip_Default.ForeColor = System.Drawing.Color.White + Me.lblAvisoTrip_Default.Location = New System.Drawing.Point(6, 6) + Me.lblAvisoTrip_Default.Margin = New System.Windows.Forms.Padding(3) + Me.lblAvisoTrip_Default.Name = "lblAvisoTrip_Default" + Me.lblAvisoTrip_Default.Size = New System.Drawing.Size(90, 38) + Me.lblAvisoTrip_Default.TabIndex = 93 + Me.lblAvisoTrip_Default.Text = "SUB" + Me.lblAvisoTrip_Default.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.lblAvisoTrip_Default.UseCompatibleTextRendering = True + Me.lblAvisoTrip_Default.Visible = False + ' + 'lblAvisoTrip_Add + ' + Me.lblAvisoTrip_Add.BackColor = System.Drawing.SystemColors.HotTrack + Me.lblAvisoTrip_Add.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblAvisoTrip_Add.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.lblAvisoTrip_Add.ForeColor = System.Drawing.Color.White + Me.lblAvisoTrip_Add.Location = New System.Drawing.Point(102, 6) + Me.lblAvisoTrip_Add.Margin = New System.Windows.Forms.Padding(3) + Me.lblAvisoTrip_Add.Name = "lblAvisoTrip_Add" + Me.lblAvisoTrip_Add.Size = New System.Drawing.Size(43, 38) + Me.lblAvisoTrip_Add.TabIndex = 95 + Me.lblAvisoTrip_Add.Text = "+" + Me.lblAvisoTrip_Add.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'Panel6 + ' + Me.Panel6.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel6.Location = New System.Drawing.Point(101, 48) + Me.Panel6.Name = "Panel6" + Me.Panel6.Size = New System.Drawing.Size(371, 3) + Me.Panel6.TabIndex = 97 + ' + 'lblAvisoTrip_Next2 + ' + Me.lblAvisoTrip_Next2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblAvisoTrip_Next2.BackColor = System.Drawing.SystemColors.Highlight + Me.lblAvisoTrip_Next2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAvisoTrip_Next2.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblAvisoTrip_Next2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lblAvisoTrip_Next2.ForeColor = System.Drawing.Color.White + Me.lblAvisoTrip_Next2.Location = New System.Drawing.Point(472, 38) + Me.lblAvisoTrip_Next2.MaxLength = 0 + Me.lblAvisoTrip_Next2.Name = "lblAvisoTrip_Next2" + Me.lblAvisoTrip_Next2.ReadOnly = True + Me.lblAvisoTrip_Next2.Size = New System.Drawing.Size(102, 11) + Me.lblAvisoTrip_Next2.TabIndex = 94 + Me.lblAvisoTrip_Next2.TabStop = False + Me.lblAvisoTrip_Next2.Text = "Next Trip" + Me.lblAvisoTrip_Next2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblAvisoTrip_Prev2 + ' + Me.lblAvisoTrip_Prev2.BackColor = System.Drawing.SystemColors.Highlight + Me.lblAvisoTrip_Prev2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.lblAvisoTrip_Prev2.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblAvisoTrip_Prev2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.lblAvisoTrip_Prev2.ForeColor = System.Drawing.Color.White + Me.lblAvisoTrip_Prev2.Location = New System.Drawing.Point(-1, 37) + Me.lblAvisoTrip_Prev2.MaxLength = 0 + Me.lblAvisoTrip_Prev2.Name = "lblAvisoTrip_Prev2" + Me.lblAvisoTrip_Prev2.ReadOnly = True + Me.lblAvisoTrip_Prev2.Size = New System.Drawing.Size(102, 11) + Me.lblAvisoTrip_Prev2.TabIndex = 90 + Me.lblAvisoTrip_Prev2.TabStop = False + Me.lblAvisoTrip_Prev2.Text = "Prev. Trip" + Me.lblAvisoTrip_Prev2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center + ' + 'lblAvisoTrip_Next1 + ' + Me.lblAvisoTrip_Next1.BackColor = System.Drawing.SystemColors.Highlight + Me.lblAvisoTrip_Next1.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblAvisoTrip_Next1.Dock = System.Windows.Forms.DockStyle.Right + Me.lblAvisoTrip_Next1.Font = New System.Drawing.Font("Microsoft Sans Serif", 13.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAvisoTrip_Next1.ForeColor = System.Drawing.Color.White + Me.lblAvisoTrip_Next1.Location = New System.Drawing.Point(472, 0) + Me.lblAvisoTrip_Next1.Margin = New System.Windows.Forms.Padding(0) + Me.lblAvisoTrip_Next1.Name = "lblAvisoTrip_Next1" + Me.lblAvisoTrip_Next1.Size = New System.Drawing.Size(101, 51) + Me.lblAvisoTrip_Next1.TabIndex = 92 + Me.lblAvisoTrip_Next1.Text = ">>" + Me.lblAvisoTrip_Next1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' + 'lblAvisoTrip_Prev1 + ' + Me.lblAvisoTrip_Prev1.BackColor = System.Drawing.SystemColors.Highlight + Me.lblAvisoTrip_Prev1.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblAvisoTrip_Prev1.Dock = System.Windows.Forms.DockStyle.Left + Me.lblAvisoTrip_Prev1.Font = New System.Drawing.Font("Microsoft Sans Serif", 13.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAvisoTrip_Prev1.ForeColor = System.Drawing.Color.White + Me.lblAvisoTrip_Prev1.Location = New System.Drawing.Point(0, 0) + Me.lblAvisoTrip_Prev1.Margin = New System.Windows.Forms.Padding(0) + Me.lblAvisoTrip_Prev1.Name = "lblAvisoTrip_Prev1" + Me.lblAvisoTrip_Prev1.Size = New System.Drawing.Size(101, 51) + Me.lblAvisoTrip_Prev1.TabIndex = 91 + Me.lblAvisoTrip_Prev1.Text = "<<" + Me.lblAvisoTrip_Prev1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + ' 'conMenuVermerke ' Me.conMenuVermerke.ImageScalingSize = New System.Drawing.Size(24, 24) Me.conMenuVermerke.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.conVermerkEntgLöschen, Me.HervorhebenToolStripMenuItem, Me.ToolUeberweisungsBeleg, Me.toolVkReminder, Me.VermerkTextAnzeigenToolStripMenuItem, Me.MitarbeiterAnzeigenToolStripMenuItem, Me.conVermerkLöschenNew}) Me.conMenuVermerke.Name = "conMenuVermerke" - Me.conMenuVermerke.Size = New System.Drawing.Size(252, 236) + Me.conMenuVermerke.Size = New System.Drawing.Size(252, 214) ' 'conVermerkEntgLöschen ' @@ -2208,6 +2353,12 @@ Partial Class usrcntlAktDetails Me.toolVkReminder.Text = "Reminder geschickt" Me.toolVkReminder.Visible = False ' + 'VermerkTextAnzeigenToolStripMenuItem + ' + Me.VermerkTextAnzeigenToolStripMenuItem.Name = "VermerkTextAnzeigenToolStripMenuItem" + Me.VermerkTextAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(251, 30) + Me.VermerkTextAnzeigenToolStripMenuItem.Text = "Vermerk-Text anzeigen" + ' 'MitarbeiterAnzeigenToolStripMenuItem ' Me.MitarbeiterAnzeigenToolStripMenuItem.Image = CType(resources.GetObject("MitarbeiterAnzeigenToolStripMenuItem.Image"), System.Drawing.Image) @@ -2471,12 +2622,6 @@ Partial Class usrcntlAktDetails Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.UseVisualStyleBackColor = False ' - 'VermerkTextAnzeigenToolStripMenuItem - ' - Me.VermerkTextAnzeigenToolStripMenuItem.Name = "VermerkTextAnzeigenToolStripMenuItem" - Me.VermerkTextAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(251, 30) - Me.VermerkTextAnzeigenToolStripMenuItem.Text = "Vermerk-Text anzeigen" - ' 'usrcntlAktDetails ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -2538,6 +2683,9 @@ Partial Class usrcntlAktDetails Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() Me.pnlStatus.ResumeLayout(False) + Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() + Me.flpnlAvisoTrips.ResumeLayout(False) Me.conMenuVermerke.ResumeLayout(False) Me.cntxtFormulare.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False) @@ -2700,4 +2848,13 @@ Partial Class usrcntlAktDetails Friend WithEvents Button11 As Button Friend WithEvents Button12 As Button Friend WithEvents VermerkTextAnzeigenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents Panel5 As Panel + Friend WithEvents lblAvisoTrip_Prev1 As Label + Friend WithEvents flpnlAvisoTrips As FlowLayoutPanel + Friend WithEvents lblAvisoTrip_Default As Label + Friend WithEvents lblAvisoTrip_Add As Label + Friend WithEvents lblAvisoTrip_Next1 As Label + Friend WithEvents lblAvisoTrip_Next2 As TextBox + Friend WithEvents lblAvisoTrip_Prev2 As TextBox + Friend WithEvents Panel6 As Panel End Class diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index 33efe02..1097075 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -45,6 +45,7 @@ Public Class usrcntlAktDetails Dim AVISO As cAviso = Nothing Dim WithEvents timerSendRows As New Timer Dim isFailureShown As Boolean = False + Dim AVISO_TRIP_LIST As New List(Of cAvisoTripsItem) Dim painted As Boolean = False ' Damit gridVermerke Formattierung nicht dauernd anspringt.. @@ -74,6 +75,88 @@ Public Class usrcntlAktDetails ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub + Public Sub initAvisoTrips(AvisoTripId As Integer) + AVISO_TRIP_LIST.Clear() + + + 'Flowlayoutpanel leeren + For i As Integer = flpnlAvisoTrips.Controls.Count - 1 To 0 Step -1 + Dim ctrl As Control = flpnlAvisoTrips.Controls(i) + If ctrl IsNot lblAvisoTrip_Default AndAlso ctrl IsNot lblAvisoTrip_Add Then + flpnlAvisoTrips.Controls.Remove(ctrl) : ctrl.Dispose() + End If + Next + + If AvisoTripId > 0 Then + Dim AVISO_TRIP = New cAvisoTrips(AvisoTripId) + AVISO_TRIP_LIST = AVISO_TRIP.getAvisos() + End If + + If AVISO_TRIP_LIST.Count = 0 Then + Dim item As New cAvisoTripsItem + item.AvisoId = AvisoID + item.Grenzstelle = cAvisoTrips.GetGrenzstelleText(AVISO.Grenzstelle, AVISO.Zollstelle) + AVISO_TRIP_LIST.Add(item) + + End If + + For Each AvisoTripItem In AVISO_TRIP_LIST + + Dim lbl As New Label + + ' Eigenschaften vom Default übernehmen + With lbl + .AutoSize = lblAvisoTrip_Default.AutoSize + .Width = lblAvisoTrip_Default.Width + .Height = lblAvisoTrip_Default.Height + .BackColor = lblAvisoTrip_Default.BackColor + .ForeColor = lblAvisoTrip_Default.ForeColor + .Font = lblAvisoTrip_Default.Font + .Margin = lblAvisoTrip_Default.Margin + .Padding = lblAvisoTrip_Default.Padding + .BorderStyle = lblAvisoTrip_Default.BorderStyle + .TextAlign = lblAvisoTrip_Default.TextAlign + .Cursor = lblAvisoTrip_Default.Cursor + .UseCompatibleTextRendering = lblAvisoTrip_Default.UseCompatibleTextRendering + + ' Dein Inhalt + .Text = If(AvisoTripItem.Grenzstelle, "") + + If If(AvisoTripItem.Grenzstelle, "").Length > 20 Then + .Font = New Font(.Font.FontFamily, .Font.Size - 2, .Font.Style) ' Schriftgröße anpassen, wenn Text zu lang ist + End If + + ' optional: Referenz speichern + .Tag = AvisoTripItem.AvisoId + If AvisoTripItem.AvisoId = AvisoID Then + .BackColor = Color.DodgerBlue ' Aktuelles Aviso hervorheben + .BorderStyle = BorderStyle.FixedSingle + End If + End With + + ' Click-Event (optional aber sinnvoll) + AddHandler lbl.Click, AddressOf AvisoTrip_Click + + flpnlAvisoTrips.Controls.Add(lbl) + + Next + If flpnlAvisoTrips.Controls.Contains(lblAvisoTrip_Add) Then + flpnlAvisoTrips.Controls.Remove(lblAvisoTrip_Add) + flpnlAvisoTrips.Controls.Add(lblAvisoTrip_Add) + End If + End Sub + Private Sub AvisoTrip_Click(sender As Object, e As EventArgs) + Dim lbl As Label = CType(sender, Label) + 'Dim item As cAvisoTrip = CType(lbl.Tag, cAvisoTrip) + + If IsNumeric(lbl.Tag) Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = lbl.Tag + reload(lbl.Tag) + End If + + End Sub + + Public Sub reload(id) loaded = False @@ -85,6 +168,7 @@ Public Class usrcntlAktDetails Details_anzeigen() + pnlDetailsRechts.Enabled = True pnlDetailsRechts.Cursor = Cursors.Default @@ -196,6 +280,10 @@ Public Class usrcntlAktDetails cboFormulareRgAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftraggeber", "AUFTR")) cboFormulareRgAn.changeItem("AVISIERER") + 'AVISO_TRIPS + If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_TRIPS") Then + flpnlAvisoTrips.Visible = True + End If Select Case If(AVISO.FIRMA <> "", AVISO.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) @@ -318,12 +406,14 @@ Public Class usrcntlAktDetails Private Sub Details_anzeigen() aktiv = Now 'Damit nicht neu geladedt wird (frmHauptfenster -> timer.tick) - + AVISO_TRIP_LIST.Clear() If AvisoID <= 0 Then Exit Sub 'Dim Aviso As New cAviso AVISO = AvisoDAL.LesenAviso(AvisoID, "") If AVISO Is Nothing Then Exit Sub + initAvisoTrips(AVISO.AvisoTripId) + lblIMEX.Text = AVISO.ImEx lblIMEX.Visible = (AVISO.ImEx <> "") @@ -3964,7 +4054,8 @@ Public Class usrcntlAktDetails End Sub) - t.Start({AvisoID, Printername}) + ' t.Start({AvisoID, Printername}) + t.Start({AvisoID}) t.IsBackground = True End Sub @@ -4013,5 +4104,110 @@ Public Class usrcntlAktDetails MsgBox(gridVermerke.SelectedRows(0).Cells("Hinweis_Vermerk").Value) End If End Sub + + Private Sub Label9_Click(sender As Object, e As EventArgs) Handles lblAvisoTrip_Add.Click + Try + + '--> PRüfen ob schon trip + If AVISO.AvisoTripId <= 0 Then + Dim AVISO_TRIP As New cAvisoTrips(-1) + AVISO_TRIP.LKW_Nr = AVISO.LKW_Nr + AVISO_TRIP.LKW_Nationalitaet = AVISO.LKW_Nationalitaet + AVISO_TRIP.Frächter = AVISO.Frächter + AVISO_TRIP.Frächter_KdNr = AVISO.Frächter_KdNr + AVISO_TRIP.Auftraggeber = AVISO.Auftraggeber + AVISO_TRIP.Auftraggeber_KdNr = AVISO.Auftraggeber_KdNr + + AVISO_TRIP.SAVE() + AVISO.UPDATE_Trips(AVISO_TRIP.AvisoTripId) + End If + + Me.Cursor = Cursors.WaitCursor + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim f As New frmEintragAviso + f.getFromAVISO_Trip = AVISO + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 + ' f.frmHilf = Me + If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then + If f.ShowDialog(frmGrayOut) = DialogResult.OK Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = f.myAviso.AvisoID + reload(f.myAviso.AvisoID) + Else + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AVISO.AvisoID + End If + + End If + frmGrayOut.Close() + + + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG") + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub lblAvisoTrip_Prev_Click(sender As Object, e As EventArgs) Handles lblAvisoTrip_Prev1.Click, lblAvisoTrip_Prev2.Click + Dim AvisoTmp = GetPrevAvisoId() + If AvisoTmp <> AvisoID Then + Me.Cursor = Cursors.WaitCursor + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AvisoTmp + reload(AvisoTmp) + Me.Cursor = Cursors.Default + End If + End Sub + Private Sub lblAvisoTrip_Next_Click(sender As Object, e As EventArgs) Handles lblAvisoTrip_Next1.Click, lblAvisoTrip_Next2.Click + Dim AvisoTmp = GetNextAvisoId() + If AvisoTmp <> AvisoID Then + Me.Cursor = Cursors.WaitCursor + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AvisoTmp + reload(AvisoTmp) + Me.Cursor = Cursors.Default + End If + End Sub + + Public Function GetNextAvisoId() As Integer + Try + If AVISO_TRIP_LIST Is Nothing OrElse AVISO_TRIP_LIST.Count = 0 Then Return AvisoID + + For i As Integer = 0 To AVISO_TRIP_LIST.Count - 1 + If AVISO_TRIP_LIST(i).AvisoId = AvisoID Then + If i < AVISO_TRIP_LIST.Count - 1 Then + Return AVISO_TRIP_LIST(i + 1).AvisoId + Else + Return AvisoID + End If + End If + Next + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return AvisoID + End Function + Public Function GetPrevAvisoId() As Integer + Try + If AVISO_TRIP_LIST Is Nothing OrElse AVISO_TRIP_LIST.Count = 0 Then Return AvisoID + + For i As Integer = 0 To AVISO_TRIP_LIST.Count - 1 + If AVISO_TRIP_LIST(i).AvisoId = AvisoID Then + If i > 0 Then + Return AVISO_TRIP_LIST(i - 1).AvisoId + Else + Return AvisoID + End If + End If + Next + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Return AvisoID + End Function End Class diff --git a/Diverses/Icons/selection_allg.png b/Diverses/Icons/selection_allg.png new file mode 100644 index 0000000..313de10 Binary files /dev/null and b/Diverses/Icons/selection_allg.png differ diff --git a/Diverses/Icons/selection_div1.png b/Diverses/Icons/selection_div1.png new file mode 100644 index 0000000..bb14f27 Binary files /dev/null and b/Diverses/Icons/selection_div1.png differ diff --git a/Diverses/Icons/selection_div2.png b/Diverses/Icons/selection_div2.png new file mode 100644 index 0000000..ab290ec Binary files /dev/null and b/Diverses/Icons/selection_div2.png differ