Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/usrCntlVermerkeATilla.vb
+++ b/Aviso/usrCntlVermerkeATilla.vb
@@ -0,0 +1,96 @@
+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 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 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