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

WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-14 21:20:36 +01:00
parent 4b2dca43dd
commit 2c1de3334b
22 changed files with 1582 additions and 1107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

224
Aviso/frmHauptfenster.vb
View File

@@ -12,6 +12,7 @@ Imports com.esendex.sdk.messaging
Imports Newtonsoft.Json
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports GrapeCity.Viewer.Common.Model
'Imports UID
@@ -388,17 +389,17 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SRI_LANKA", "AVISO") Then
'MenuStrip1.Items.Clear()
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
' MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)'-->Siehe unten
MenuStrip1.Items.Remove(ToolStripFormulare)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem1)
StatistikToolStripMenuItem.DropDownItems.Remove(SDLAuswertungenToolStripMenuItem)
For Each i In FunktionenToolStripMenuItem.DropDownItems
If i IsNot ToolStripMenuItem3 Then
If i.name <> "tool_BRGXLS" Then
i.Visible = False
End If
Next
@@ -416,10 +417,18 @@ Public Class frmHauptfenster
' splitMain.Panel2Collapsed = True
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
MenuStrip1.Items.Remove(FunktionenToolStripMenuItem)
MenuStrip1.Items.Remove(StatistikToolStripMenuItem)
btnZollwebseiten.Visible = False
lblErweitereSuche.Visible = False
End If
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN", "AVISO") Then
btnKunden.Visible = False
End If
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Aviso-Eingang", UStatus_AVEingang))
@@ -694,7 +703,7 @@ Public Class frmHauptfenster
For Each r As DataGridViewRow In .Rows
If r.Cells("Dauer").Value Is DBNull.Value Or r.Cells("Dauer").Value = 0 Then
If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Then
If CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or CInt(r.Cells("Status").Value) = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
If Not IsDBNull(r.Cells("Ankunft").Value) AndAlso Not CDate(r.Cells("Ankunft").Value) = LeerDatum Then
Dim dauerTmp = DateDiff(DateInterval.Minute, CDate(VarToDate(r.Cells("Ankunft").Value)), Now)
If IsNumeric(dauerTmp) AndAlso dauerTmp > 0 Then
@@ -890,6 +899,10 @@ Public Class frmHauptfenster
hSQL += " AND Status = 3"
ElseIf tbcntrAviso.SelectedTab Is tabFreigegeben Then 'Freigegeben
hSQL += " AND Status = 1"
ElseIf tbcntrAviso.SelectedTab Is tabVERIMEX Then 'Nicht Eingetroffen
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
ElseIf tbcntrAviso.SelectedTab Is tabINDONESIEN Then 'Nicht Eingetroffen
hSQL += " AND Status = " & VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
ElseIf tbcntrAviso.SelectedTab Is tabNichtEingetroffen Then 'Nicht Eingetroffen
hSQL += " AND Status = 2"
End If
@@ -1093,12 +1106,14 @@ Public Class frmHauptfenster
'----------------------------------------------------------------------------------------------------------------------------------
sqlStr = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], [Status],CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as [statVorb], LKW_Nr, Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe,LetzterMitarbeiterId AS maId, LetzterMitarbeiterId ,/* CASE WHEN LetzterMitarbeiterId=@maId then '0' ELSE '1' END as Vorbereitung,*/LetzterMitarbeiter,AvisoTVHinweis " &
" FROM Aviso " &
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
" WHERE ( Status IN (0, 3, 4, 5,6,7) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
sqlStrFirma & " AND (LetzterMitarbeiterId=@maId) "
If cboMy_Grenzstelle._value <> "" Then sqlStr &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
sqlStr &= " ORDER BY case " &
" when [Status] =3 then 0 " &
" when [Status] =6 then 0.5 " &
" when [Status] =7 then 0.5 " &
" when [Status] =0 then 1 " &
" when [Status] =99 then 2 " &
" when [Status] =4 then 3 " &
@@ -1432,12 +1447,16 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
If Not cbx_My_LKW.Checked Then
Select Case r.Cells("Status").Value
Case "1", "2"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2"
' Freigabe, N.Eingetr.
Case "3"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft '"3"
' Ankunft
r.DefaultCellStyle.BackColor = Color.IndianRed
r.Cells("DauerText").Style.ForeColor = Color.White
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX, VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
' Ankunft
r.DefaultCellStyle.BackColor = Color.SteelBlue
r.Cells("DauerText").Style.ForeColor = Color.White
Case Else
'Alle anderen Status:
If r.Cells("VoraussichtlichesEintreffen").Value IsNot DBNull.Value AndAlso IsDate(r.Cells("VoraussichtlichesEintreffen").Value) Then
@@ -1588,6 +1607,8 @@ Public Class frmHauptfenster
Case 3 : e.Value = "Ankunft" : gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
' Case 99 : e.Value = "in Vorbereitung" : gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
'gridMyAviso.Rows(e.RowIndex).DefaultCellStyle.ForeColor = Color.Brown
' gridMyAviso.Rows(e.RowIndex).Cells("Status").Style.Font = New Font(gridMyAviso.Font.FontFamily, gridMyAviso.Font.Size, FontStyle.Bold) 'New Font(gridMyAviso.DefaultCellStyle.Font, 8.0F)
@@ -1630,6 +1651,8 @@ Public Class frmHauptfenster
Case 3 : e.Value = "Ankunft"
Case 4 : e.Value = "Vorbereitet"
Case 5 : e.Value = "Vorgeschrieben"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN : e.Value = "An Indonesien"
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX : e.Value = "An Verimex"
Case Else : e.Value = "unbekannt"
End Select
@@ -2017,7 +2040,7 @@ Public Class frmHauptfenster
GridZeichnenAviso()
End Sub
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, Button7.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnNeu.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -2028,7 +2051,7 @@ Public Class frmHauptfenster
End Try
End Sub
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Private Sub btnErfasst_MouseLeave(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseLeave, Button7.MouseLeave, Button6.MouseLeave, Button5.MouseLeave, btnSpedBuch.MouseLeave, btnRg.MouseLeave, btnRefresh.MouseLeave, btnNeu.MouseLeave, btnKunden.MouseLeave, btnKassenbuch.MouseLeave, btnDrucken.MouseLeave
Try
Dim cF As Color = DirectCast(sender, Button).ForeColor
Dim cB As Color = DirectCast(sender, Button).BackColor
@@ -2042,6 +2065,10 @@ Public Class frmHauptfenster
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles gridAviso.DoubleClick
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
Exit Sub
End If
If gridAviso.SelectedRows.Count = 0 Then Exit Sub
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
@@ -2435,7 +2462,7 @@ Public Class frmHauptfenster
End Sub
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click ',conVermerkLöschen.Click
Private Sub conMenu_Click(sender As Object, e As System.EventArgs) Handles conVorgeschrieben.Click, conVorbereitet.Click, conÜbernehmen.Click, conNichtEingetroffen.Click, conFreigabe.Click, conFertig.Click, conAnkunft.Click, conAnVerimex.Click, conAnIndonesien.Click ',conVermerkLöschen.Click,
Timer1.Enabled = False
@@ -2471,6 +2498,14 @@ Public Class frmHauptfenster
' End If
End If
If sender Is conAnVerimex Then
FUNC.setAnVERIMEX(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If sender Is conAnIndonesien Then
FUNC.setAnINDONESIEN(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
If sender Is conFreigabe Then
FUNC.setFreigabe(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, Me)
'If btnFreigabe.Visible Then
@@ -2541,10 +2576,10 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
'btnGenerelleGestellungen.Visible = False
Button6.Visible = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("ALLOW_STATUS2_VERIMEX") Then
tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
' tbcntrAviso.TabPages.RemoveAt(2)
'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
tbcntrAviso.TabPages.Remove(tabVorgeschrieben)
tbcntrAviso.TabPages.Remove(tabVorbereitet)
End If
btnWichtigeStandort.Visible = False
@@ -2554,6 +2589,8 @@ Public Class frmHauptfenster
BürgschaftenExcelToolStripMenuItem.Visible = True
ToolStripMenuItem4.Visible = True
ToolStripMenuItem5.Visible = True
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
'nix
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
'btnGenerelleGestellungen.Visible = False
ToolStripMenuItem4.Visible = True
@@ -2569,6 +2606,17 @@ Public Class frmHauptfenster
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("STATUS_ATILLA") Then
'tabVorbereitet.Text = "2. VERIMEX/INDONESIEN"
tbcntrAviso.TabPages.Remove(tabVorgeschrieben)
tbcntrAviso.TabPages.Remove(tabVorbereitet)
Else
tbcntrAviso.TabPages.Remove(tabINDONESIEN)
tbcntrAviso.TabPages.Remove(tabVERIMEX)
conAnVerimex.Visible = False
conAnIndonesien.Visible = False
End If
'Wenn Teamzuweisung --> Backoffice --> Meine Senungen größer!
@@ -2586,10 +2634,15 @@ Public Class frmHauptfenster
' ' If SplitContainer2.Panel2.Width > 900 Then SplitContainer2.SplitterDistance = SplitContainer2.Width - 900
'End If
If SplitContainer2.Width > 1000 Then
If SplitContainer2.Width > 1300 Then
SplitContainer2.SplitterDistance = 350 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 400
ElseIf SplitContainer2.Width > 1200 Then
SplitContainer2.SplitterDistance = 180 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 300
Else
SplitContainer2.SplitterDistance = 160 'SplitContainer2.Width - 750
SplitContainer3.SplitterDistance = 250
End If
@@ -2649,7 +2702,7 @@ Public Class frmHauptfenster
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnZollwebseiten.Click
cntxt.Show(Cursor.Position)
End Sub
@@ -3619,7 +3672,7 @@ Public Class frmHauptfenster
End If
frmBundesanzeigerZollTarif.BringToFront()
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles tool_BRGXLS.Click
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "ATILLA", "", "ATILLA_Bürgschaften")
DS.OPEN_SINGLE()
End Sub
@@ -3992,6 +4045,14 @@ Public Class frmHauptfenster
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub EnglishToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnglishToolStripMenuItem.Click
If True Then
VERAG_PROG_ALLGEMEIN.cAllgemein._LAN = "EN"
showMeNew()
Else
MsgBox("Keine Berechtigung!")
End If
End Sub
Private Sub Button11_Click_1(sender As Object, e As EventArgs) Handles Button11.Click
cHMRC.VATTEST(InputBox("Token"))
@@ -4242,6 +4303,8 @@ Public Class frmHauptfenster
Dim f As New frmEssensbestellungen()
f.ShowDialog(Me)
End Sub
End Class
Public Class AvisoStatusFunctions
@@ -4339,7 +4402,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
@@ -4385,7 +4448,9 @@ Public Class AvisoStatusFunctions
'E-Mail
sendAnkunftBenachrichtigung(Aviso.AvisoID)
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Or Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
Rücksetzen = True
End If
'Fahrer Handy-Nr.
@@ -4789,7 +4854,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
@@ -4899,6 +4964,117 @@ Public Class AvisoStatusFunctions
Return (tmpid > 0)
End Function
Public Function setAnINDONESIEN(AvisoID) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'AN INDONESIEN' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.")
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
'Status ist offen - jetzt auf 'AN INDONESIEN' setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN
Aviso.Änderungen = "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf 'AN INDONESIEN' gesetzt", "auf 'AN INDONESIEN' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Return (tmpid > 0)
End Function
Public Function setAnVERIMEX(AvisoID) As Boolean
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Return False
'End If
'falls keine Auswahl bzw. kein Datensatz, dann nichts machen
If AvisoID <= 0 Then
MsgBox("Kein Aviso ausgewählt!")
Return False
End If
'jetzt ausgewählten Datensatz einlesen
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX Then
MsgBox("Dieses LKW-Aviso ist bereits auf 'AN VERIMEX' gesetzt.", vbInformation)
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
MsgBox("Dieses LKW-Aviso ist bereits auf FREIGABE gesetzt.")
Return False
End If
If Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen Then
msg = "Dieses LKW-Aviso hat bereits den Status 'LKW nicht eingetroffen'." & vbCrLf & vbCrLf &
"Soll es jetzt trotzdem auf VORBEREITET (zurück)gesetzt werden?"
antwort = MsgBox(msg, CType(MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, MsgBoxStyle),
"Status-Änderung")
If antwort = vbNo Then Return False
End If
'Status ist offen - jetzt auf 'AN VERIMEX' setzen
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_VERIMEX
Aviso.Änderungen = "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
Aviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf 'AN VERIMEX' gesetzt", "auf 'AN VERIMEX' gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
Return (tmpid > 0)
End Function
Public Function setVorgeschreiben(AvisoID) As Boolean
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
MsgBox("Keine Berechtigung!")
@@ -4915,7 +5091,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
@@ -5050,7 +5226,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
Dim antwort As MsgBoxResult
@@ -5261,7 +5437,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String
@@ -5586,7 +5762,7 @@ Public Class AvisoStatusFunctions
Dim Aviso As New cAviso
Aviso = AvisoDAL.LesenAviso(AvisoID, "")
If Aviso Is Nothing Then Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereichts abgeschlossen.", vbInformation) : Return False
If Aviso.Abgeschlossen Then MsgBox("Der Akt wurde bereits abgeschlossen.", vbInformation) : Return False
Dim msg As String