Aviso_Trips; NewLayout HF
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user