97 lines
4.2 KiB
VB.net
97 lines
4.2 KiB
VB.net
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class usrCntlVermerkeATilla
|
|
Public Event VERMERKEingetragen()
|
|
Dim AvisoDAL As New cAvisoDAL
|
|
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()
|
|
End Sub
|
|
|
|
Public Sub New(AvisoID)
|
|
InitializeComponent()
|
|
Me.AvisoID = AvisoID
|
|
End Sub
|
|
|
|
Public Sub init(AvisoID)
|
|
Me.Refresh()
|
|
Me.AvisoID = AvisoID
|
|
End Sub
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click,
|
|
btnNichtAvisiert.Click, btnLKWFertig.Click, btnAuftragFehlt.Click, btnRechnungFehlt.Click, btnATRErstellt.Click, btnOK.Click, Button1.Click, Button2.Click
|
|
|
|
lblErr240Zeichen.Visible = False
|
|
lblErrSendung.Visible = False
|
|
|
|
|
|
'Plausibilität prüfen
|
|
If sender Is btnNichtAvisiert Then
|
|
insertVermerk("Aviso nicht eingelangt", 15)
|
|
ElseIf sender Is btnLKWStandzeitWE Then
|
|
insertVermerk("LKW Standzeit Wochenende", 21)
|
|
ElseIf sender Is btnLKWStandzeitFeierteage Then
|
|
insertVermerk("LKW Standzeit Feiertag(e)", 22)
|
|
|
|
ElseIf sender Is btnLKWFertig Then
|
|
If VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.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 btnAuftragFehlt Then
|
|
If txtSendung.Text.Trim = "" Then lblErrSendung.Visible = True : Exit Sub
|
|
insertVermerk("Auftrag für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 1)
|
|
ElseIf sender Is btnRechnungFehlt Then
|
|
If txtSendung.Text.Trim = "" Then lblErrSendung.Visible = True : Exit Sub
|
|
insertVermerk("Rechnung für Sendung '" & txtSendung.Text.Trim & "' fehlt / mangelhaft - angefordert", 3)
|
|
ElseIf sender Is btnATRErstellt Then
|
|
If txtSendung.Text.Trim = "" Then lblErrSendung.Visible = True : Exit Sub
|
|
insertVermerk("ATR ist zu stempeln! (Sendung '" & txtSendung.Text.Trim & "')", 49)
|
|
ElseIf sender Is Button1 Then
|
|
If txtSendung.Text.Trim = "" Then lblErrSendung.Visible = True : Exit Sub
|
|
insertVermerk("Ausfuhr für Sendung '" & txtSendung.Text.Trim & "' wurde erstellt", 50)
|
|
ElseIf sender Is Button2 Then
|
|
If txtSendung.Text.Trim = "" Then lblErrSendung.Visible = True : Exit Sub
|
|
insertVermerk("Unbedingt Schichtleiter zu Sendung '" & txtSendung.Text.Trim & "' fragen!", 51)
|
|
ElseIf sender Is btnOK Then
|
|
If txtDetail.Text.Trim = "" Then lblErr240Zeichen.Visible = True : Exit Sub
|
|
If txtDetail.Text.Length <= 80 Then
|
|
insertVermerk(txtDetail.Text, 46)
|
|
ElseIf txtDetail.Text.Length <= 160 Then
|
|
insertVermerk(txtDetail.Text.Substring(0, 80), 46)
|
|
insertVermerk(txtDetail.Text.Substring(80, 80), 46)
|
|
ElseIf txtDetail.Text.Length <= 240 Then
|
|
insertVermerk(txtDetail.Text.Substring(0, 80), 46)
|
|
insertVermerk(txtDetail.Text.Substring(80, 80), 46)
|
|
insertVermerk(txtDetail.Text.Substring(160, 80), 46)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
|
|
If AvisoID <= 0 Then MsgBox("Fehler: Keine Aviso-ID!") : Exit Sub
|
|
|
|
'Daten zuweisen und speichern
|
|
Dim myVermerk As New cVermerk
|
|
myVermerk.VermerkID = 0
|
|
myVermerk.AvisoID = AvisoID
|
|
myVermerk.Datum = Now
|
|
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
|
|
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
|
|
myVermerk.Hinweis_Vermerk = Text
|
|
myVermerk.VermerkCodeId = VermerkCodeId
|
|
|
|
VermerkeDAL.SpeichernVermerk(myVermerk)
|
|
txtSendung.Text = ""
|
|
'frmHauptfenster.Details_anzeigen(AvisoID)
|
|
RaiseEvent VERMERKEingetragen()
|
|
End Sub
|
|
|
|
|
|
End Class
|