edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-11-05 07:59:16 +01:00
parent 4f81004835
commit 24dd462073
20 changed files with 1240 additions and 564 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/frmHauptfenster.vb
View File

@@ -627,7 +627,12 @@ Public Class frmHauptfenster
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
End If
If r.Cells("LKW_fertig").Value = "DE" Then
r.Cells("LKW_fertig").Style.ForeColor = Color.White
r.Cells("LKW_fertig").Style.BackColor = Color.Green
'Else
'r.Cells("LKW_fertig").Style.BackColor = Color.White
End If
Next
End With
@@ -742,7 +747,7 @@ Public Class frmHauptfenster
Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
Dim hSQL As String = "SELECT " & top & " AvisoID, Status, LKW_Nr, Auftraggeber, Frächter,VoraussichtlichesEintreffen, AvisoEingang, Ankunft, Dauer, Grenzstelle,letzterMitarbeiter,CASE WHEN [ZOLLDigitalEingereicht] = 1 THEN 'DE' ELSE CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END END AS [LKW_fertig], Datum, Vorbereitet, Vorgeschrieben, Freigabe, "
hSQL &= " Telefonisch, Info,Handling,AvisoTVHinweis,DATEDIFF(DAY,getdate(),[VoraussichtlichesEintreffen]) TageBisEintreffen "
hSQL &= " FROM Aviso "
hSQL &= " WHERE 1=1 "
@@ -1245,6 +1250,7 @@ Public Class frmHauptfenster
If r.Cells("LKW_fertig").Value = "OK" Then r.Cells("LKW_fertig").Style.BackColor = Color.FromArgb(0, 54, 128)
If r.Cells("LKW_fertig").Value = "DE" Then r.Cells("LKW_fertig").Style.BackColor = Color.Green
If r.Cells("Dauer").Value > 120 Then r.Cells("DauerText").Style.ForeColor = Color.Red
' MsgBox(r.Cells("Dauer").Value)