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