neu
This commit is contained in:
@@ -41,6 +41,7 @@ Public Class frmAnzeige
|
||||
Private Font5 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
|
||||
Private Font6 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
|
||||
Private Font7 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
|
||||
Private Font8 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
|
||||
|
||||
|
||||
Private Font_LkwOK_LKWNr As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
|
||||
@@ -220,7 +221,7 @@ Public Class frmAnzeige
|
||||
End If
|
||||
|
||||
where = " WHERE "
|
||||
Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx FROM Aviso "
|
||||
Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx, ZOLLDigitalEingereicht FROM Aviso "
|
||||
where &= " Status IN( " & stat_tmp & ") "
|
||||
If CLUSTER <> "" Then
|
||||
where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') "
|
||||
@@ -308,6 +309,7 @@ Public Class frmAnzeige
|
||||
Dim Dauer As String = Minuten_auf_Text(hDauer)
|
||||
Dim hMitarbeiter As String = VarToStr(dr.Item("LetzterMitarbeiter"))
|
||||
Dim ImEx As String = VarToStr(dr.Item("ImEx"))
|
||||
Dim ZOLLDigitalEingereicht As String = If(CBool(dr.Item("ZOLLDigitalEingereicht")), "D", "")
|
||||
|
||||
If StandortATILLA Or Standort = "IMEX" Or Standort = "FRONTOFFICE" Then
|
||||
'bei Mitarbeiter nur User aus letzter Bearbeiter rausfiltern
|
||||
@@ -335,16 +337,17 @@ Public Class frmAnzeige
|
||||
|
||||
If anz <= Max_Zeilen Then
|
||||
|
||||
|
||||
If StandortATILLA Then
|
||||
Dim hBuero As String = VarToStr(dr.Item("buero"))
|
||||
gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, hBuero)
|
||||
gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, hBuero, "", ZOLLDigitalEingereicht)
|
||||
ElseIf Standort = "WAI" Then
|
||||
If ImEx = "IMPORT" Then ImEx = "IM"
|
||||
If ImEx = "EXPORT" Then ImEx = "EX"
|
||||
' MsgBox(ImEx)
|
||||
gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, "", ImEx)
|
||||
gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, "", ImEx, ZOLLDigitalEingereicht)
|
||||
Else
|
||||
gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter)
|
||||
gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, "", "", ZOLLDigitalEingereicht)
|
||||
End If
|
||||
|
||||
If ImEx <> "" Then
|
||||
@@ -354,6 +357,12 @@ Public Class frmAnzeige
|
||||
If ImEx = "EX" Then r.Cells("clmnImEx").Style.BackColor = Color.Blue
|
||||
End If
|
||||
|
||||
If CBool(dr.Item("ZOLLDigitalEingereicht")) Then
|
||||
Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
|
||||
' r.Cells("clmnArt").Style.BackColor = Color.DarkGreen
|
||||
r.Cells("clmnArt").Style.ForeColor = Color.DarkGreen
|
||||
End If
|
||||
|
||||
If VarToStr(dr.Item("AvisoTVHinweis")) <> "" Then
|
||||
Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
|
||||
r.Cells(0).Style.ForeColor = Color.Red
|
||||
@@ -687,6 +696,7 @@ Public Class frmAnzeige
|
||||
If txtSchrift5.Text <> "" Then Font5 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift5.Text), FontStyle.Bold)
|
||||
If txtSchrift6.Text <> "" Then Font6 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift6.Text), FontStyle.Bold)
|
||||
If txtSchrift7.Text <> "" Then Font7 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift7.Text), FontStyle.Bold)
|
||||
If txtSchrift8.Text <> "" Then Font8 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift8.Text), FontStyle.Bold)
|
||||
|
||||
gridAnkunft.Columns(0).DefaultCellStyle.Font = Font1
|
||||
gridAnkunft.Columns(1).DefaultCellStyle.Font = Font2
|
||||
@@ -711,6 +721,14 @@ Public Class frmAnzeige
|
||||
gridAnkunft.Columns("clmnImEx").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
End If
|
||||
|
||||
gridAnkunft.Columns("clmnArt").Width = CInt(IIf(IsNumeric(txtBreite8.Text), txtBreite8.Text, 50))
|
||||
gridAnkunft.Columns("clmnArt").DefaultCellStyle.Font = Font8
|
||||
gridAnkunft.Columns("clmnArt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
If CInt(IIf(IsNumeric(txtBreite8.Text), txtBreite8.Text, 0)) = 0 Then
|
||||
gridAnkunft.Columns("clmnArt").Visible = False
|
||||
Else
|
||||
gridAnkunft.Columns("clmnArt").Visible = True
|
||||
End If
|
||||
|
||||
If txtBreite1.Text <> "" Then gridAnkunft.Columns(0).Width = CInt(txtBreite1.Text)
|
||||
If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).Width = CInt(txtBreite2.Text)
|
||||
@@ -793,6 +811,7 @@ Public Class frmAnzeige
|
||||
If txtSchrift5.Text <> "" Then setProperty("txtSchrift5", txtSchrift5.Text)
|
||||
If txtSchrift6.Text <> "" Then setProperty("txtSchrift6", txtSchrift6.Text)
|
||||
If txtSchrift7.Text <> "" Then setProperty("txtSchrift7", txtSchrift7.Text)
|
||||
If txtSchrift8.Text <> "" Then setProperty("txtSchrift8", txtSchrift8.Text)
|
||||
If txtBreite1.Text <> "" Then setProperty("txtBreite1", txtBreite1.Text)
|
||||
If txtBreite2.Text <> "" Then setProperty("txtBreite2", txtBreite2.Text)
|
||||
If txtBreite3.Text <> "" Then setProperty("txtBreite3", txtBreite3.Text)
|
||||
@@ -800,6 +819,7 @@ Public Class frmAnzeige
|
||||
If txtBreite5.Text <> "" Then setProperty("txtBreite5", txtBreite5.Text)
|
||||
If txtBreite6.Text <> "" Then setProperty("txtBreite6", txtBreite6.Text)
|
||||
If txtBreite7.Text <> "" Then setProperty("txtBreite7", txtBreite7.Text)
|
||||
If txtBreite8.Text <> "" Then setProperty("txtBreite8", txtBreite8.Text)
|
||||
|
||||
If txtSekunden.Text <> "" Then setProperty("txtSekunden", txtSekunden.Text)
|
||||
|
||||
@@ -848,8 +868,8 @@ Public Class frmAnzeige
|
||||
End Sub
|
||||
|
||||
Private Sub txtBreite1_KeyUp(sender As Object, e As KeyEventArgs) Handles txtSchrift1_MESS.KeyUp, txtSekunden.KeyUp,
|
||||
txtSchrift1.KeyUp, txtSchrift2.KeyUp, txtSchrift3.KeyUp, txtSchrift4.KeyUp, txtSchrift5.KeyUp, txtSchrift6.KeyUp, txtSchrift7.KeyUp,
|
||||
txtBreite1.KeyUp, txtBreite2.KeyUp, txtBreite3.KeyUp, txtBreite4.KeyUp, txtBreite5.KeyUp, txtBreite6.KeyUp, txtBreite7.KeyUp,
|
||||
txtSchrift1.KeyUp, txtSchrift2.KeyUp, txtSchrift3.KeyUp, txtSchrift4.KeyUp, txtSchrift5.KeyUp, txtSchrift6.KeyUp, txtSchrift7.KeyUp, txtSchrift8.KeyUp,
|
||||
txtBreite1.KeyUp, txtBreite2.KeyUp, txtBreite3.KeyUp, txtBreite4.KeyUp, txtBreite5.KeyUp, txtBreite6.KeyUp, txtBreite7.KeyUp, txtBreite8.KeyUp,
|
||||
txtLkwOK_BildBreite.KeyUp, txtLkwOK_LKWNrSchrift.KeyUp, txtBreiteGridLKWOK.KeyUp
|
||||
|
||||
If e.KeyCode = Keys.Return Then
|
||||
|
||||
Reference in New Issue
Block a user