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-10-02 10:36:20 +02:00
parent bead6bad6d
commit be84dcbbea
4 changed files with 21 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.5.4.2")>
<Assembly: AssemblyFileVersion("3.5.4.2")>
<Assembly: AssemblyVersion("3.5.4.5")>
<Assembly: AssemblyFileVersion("3.5.4.5")>

11
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -1079,6 +1079,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property sdfgsdfgdf3dfdfgdfg() As String
Get
Return ResourceManager.GetString("sdfgsdfgdf3dfdfgdfg", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1399,7 +1408,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.4.2 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 3.5.4.5 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

5
Aviso/My Project/Resources.resx
View File

@@ -527,7 +527,7 @@
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>3.5.4.2</value>
<value>3.5.4.5</value>
</data>
<data name="lorry" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -577,4 +577,7 @@
<data name="verimex" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sdfgsdfgdf3dfdfgdfg" xml:space="preserve">
<value />
</data>
</root>

6
Aviso/frmHauptfenster.vb
View File

@@ -110,6 +110,9 @@ Public Class frmHauptfenster
' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
'cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
' End If
MyComboBox1.changeItem(UStatus_AVEingang)
tbcntrAviso.SelectedIndex = 0
txtSuche.Text = ""
txtSuche.Focus()
@@ -387,7 +390,8 @@ Public Class frmHauptfenster
'zuerst noch prüfen, ob unerledigte Aviso auf nicht eingetroffen gesetzt werden können
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me) Then
Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
Dim hSQL As String = "Select * FROM Aviso WHERE Status In (0,4,5) And Datum < " & SQLDatum(Now.AddDays(-21)) & " And dateadd(DAY,10,VoraussichtlichesEintreffen) < GETDATE() and Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
'dateadd(DAY,10,VoraussichtlichesEintreffen) --> Voraussichtliches Eintreffen muss zudem um 10 Tage überschritten sein --> Container/Hafen haben lange Vorlaufzeiten
Dim anz As Integer = AvisoDAL.Check_Nicht_eingetroffen(hSQL)
If anz > 0 Then
' MsgBox("HINWEIS: " & vbCrLf & anz & " LKW-Aviso wurden auf 'LKW nicht eingetroffen' gesetzt, da bereits seit mehr als 21 Tagen offen.", vbInformation)