Projektdateien hinzufügen.
This commit is contained in:
233
Aviso/frmAddAktenvermerkShort.vb
Normal file
233
Aviso/frmAddAktenvermerkShort.vb
Normal file
@@ -0,0 +1,233 @@
|
||||
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class frmAddAktenvermerkShort
|
||||
|
||||
Dim AvisoDAL As New cAvisoDAL
|
||||
Dim myAviso As New cAviso
|
||||
Dim VermerkeDAL As New cVermerkeDAL
|
||||
Dim aktChanged As Boolean = False
|
||||
Dim FUNC As New AvisoStatusFunctions
|
||||
Dim Neuanlage As Boolean = False
|
||||
Dim hStatus As Integer
|
||||
Public AvisoID As Integer = -1
|
||||
Public Sub New()
|
||||
InitializeComponent()
|
||||
Icon = cMeineFunktionenAVISO.GetProgrammIcon
|
||||
End Sub
|
||||
|
||||
Public Sub New(AvisoID)
|
||||
InitializeComponent()
|
||||
Me.AvisoID = AvisoID
|
||||
Icon = cMeineFunktionenAVISO.GetProgrammIcon
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub frmEintragVermerk_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
||||
'Escape händisch abfangen und auf Abbruch-Taste legen
|
||||
If e.KeyCode = Keys.Escape Then
|
||||
' btnAbbruch.PerformClick()
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Dim listentoCheckChange As Boolean = True
|
||||
Sub selectionChanged(sender As Object, e As EventArgs)
|
||||
If listentoCheckChange Then
|
||||
listentoCheckChange = False
|
||||
For Each c In Me.Controls
|
||||
If c.GetType.Name.ToString = "RadioButton" Then
|
||||
' DirectCast(c, RadioButton).Checked = False
|
||||
End If
|
||||
Next
|
||||
' DirectCast(sender, RadioButton).Checked = True
|
||||
listentoCheckChange = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmEintragVermerk_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
For Each c In Me.Controls
|
||||
If c.GetType.Name.ToString = "RadioButton" Then
|
||||
AddHandler DirectCast(c, RadioButton).CheckedChanged, AddressOf selectionChanged
|
||||
End If
|
||||
Next
|
||||
optKeineAuswahl.Checked = True
|
||||
'Daten zu Aviso werden geladen
|
||||
myAviso = AvisoDAL.LesenAviso(AvisoID, "")
|
||||
|
||||
'Werte(zuweisen)
|
||||
|
||||
optKeineAuswahl.Checked = True
|
||||
|
||||
btnVorgeschrieben.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Vorgeschrieben", Me.FindForm)
|
||||
btnVorbereitet.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_VorbQS", Me.FindForm)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim de = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=17", "AVISO") -
|
||||
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=18", "AVISO")
|
||||
Dim at = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=19", "AVISO") -
|
||||
SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke] where avisoid=" & AvisoID & " and VermerkeCode=20", "AVISO")
|
||||
|
||||
If at > 0 Then
|
||||
btnZollATEingereicht.BackColor = Color.Green
|
||||
btnZollATEingereicht.ForeColor = Color.White
|
||||
btnZollATEingereicht.Tag = "SWITCH"
|
||||
btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
|
||||
btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
|
||||
End If
|
||||
If de > 0 Then
|
||||
btnZollDEEingereicht.BackColor = Color.Green
|
||||
btnZollDEEingereicht.ForeColor = Color.White
|
||||
btnZollDEEingereicht.Tag = "SWITCH"
|
||||
btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
|
||||
btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
|
||||
End If
|
||||
btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
|
||||
btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
|
||||
btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click
|
||||
|
||||
|
||||
If sender Is Nothing Then
|
||||
MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
|
||||
optKeineAuswahl.Focus()
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
'Plausibilität prüfen
|
||||
If sender Is btnNichtAvisiert Then
|
||||
insertVermerk("Aviso nicht eingelangt", 15)
|
||||
ElseIf sender Is btnSpaetAvisiert Then
|
||||
insertVermerk("Aviso eingelangt kurz vor Eintreffen des LKWs - keine Vorbereitung möglich", 16)
|
||||
ElseIf sender Is btnZollDEEingereicht Then
|
||||
If sender.tag = "SWITCH" Then
|
||||
insertVermerk("DE Zoll fertig", 18)
|
||||
If myAviso.LKW_fertig Then FUNC.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
Else
|
||||
insertVermerk("DE Zoll eingereicht", 17)
|
||||
End If
|
||||
ElseIf sender Is btnZollATEingereicht Then
|
||||
If sender.tag = "SWITCH" Then
|
||||
insertVermerk("AT Zoll fertig", 20)
|
||||
If myAviso.LKW_fertig Then FUNC.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
Else
|
||||
insertVermerk("AT Zoll eingereicht", 19)
|
||||
End If
|
||||
ElseIf sender Is btnLKWStandzeitWE Then
|
||||
insertVermerk("LKW Standzeit Wochenende", 21)
|
||||
ElseIf sender Is btnLKWStandzeitFeierteage Then
|
||||
insertVermerk("LKW Standzeit Feiertag(e)", 22)
|
||||
|
||||
ElseIf sender Is btnSBG Then
|
||||
insertVermerk("Nach SBG weitergegeben", 38)
|
||||
VermerkeDAL.UpdateGrenzstelle(myAviso.AvisoID, "SBG")
|
||||
ElseIf sender Is btnWAI Then
|
||||
insertVermerk("Nach WAI weitergegeben", 39)
|
||||
VermerkeDAL.UpdateGrenzstelle(myAviso.AvisoID, "WAI")
|
||||
ElseIf sender Is btnNKD Then
|
||||
insertVermerk("Nach NKD weitergegeben", 40)
|
||||
ElseIf sender Is btnSFD Then
|
||||
insertVermerk("Nach Spielfeld (Lex) weitergegeben", 41)
|
||||
ElseIf sender Is btnQS Then
|
||||
insertVermerk("Akt wurde in die QS-Abteilung gegeben", 45)
|
||||
ElseIf sender Is btnErfasst Then
|
||||
If FUNC.setErfasst(AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnVorbereitet Then
|
||||
If FUNC.setVorbereitet(AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnVorgeschrieben Then
|
||||
If FUNC.setVorgeschreiben(AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnAnkunft Then
|
||||
If FUNC.setAnkunft(AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnFreigabe Then
|
||||
If FUNC.setFreigabe(AvisoID, Me) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnNichtEingetroffen Then
|
||||
If FUNC.setNichtEingeftroffen(AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnAktUebernehmen Then
|
||||
If FUNC.AktUebernehmen(AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnLKWFertig Then
|
||||
If FUNC.LKWFertig(AvisoID) Then
|
||||
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
|
||||
End If
|
||||
ElseIf sender Is btnSonstiges Then
|
||||
insertVermerk(txtSonstiges.Text, 46)
|
||||
End If
|
||||
|
||||
|
||||
'Jetzt wird Fenster geschlossen
|
||||
' frmMain.avisoAktualisierenAktiveIdBehalten(myAviso.AvisoID)
|
||||
|
||||
|
||||
Me.Close()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
|
||||
'Daten zuweisen und speichern
|
||||
Dim myVermerk As New cVermerk
|
||||
myVermerk.VermerkID = 0
|
||||
myVermerk.AvisoID = myAviso.AvisoID
|
||||
myVermerk.Datum = Now
|
||||
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
||||
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
|
||||
myVermerk.Hinweis_Vermerk = Text
|
||||
myVermerk.VermerkCodeId = VermerkCodeId
|
||||
|
||||
VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
frmHauptfenster.Details_anzeigen(AvisoID)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub frmAddAktenvermerkShort_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||||
Dim p = System.Windows.Forms.Cursor.Position
|
||||
If (p.X + Me.Width) > My.Computer.Screen.WorkingArea.Width Then p.X = My.Computer.Screen.WorkingArea.Width - Me.Width
|
||||
If (p.Y + Me.Height) > My.Computer.Screen.WorkingArea.Height Then p.Y = My.Computer.Screen.WorkingArea.Height - Me.Height
|
||||
Me.Location = p '.Me.PointToClient(System.Windows.Forms.Cursor.Position)
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
Dim frmInsertVermerkFach As New frmInsertVermerkFach(AvisoID)
|
||||
frmInsertVermerkFach.ShowDialog()
|
||||
frmHauptfenster.Details_anzeigen(AvisoID)
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user