neu

Aviso/usrCntlVermerkeATilla.vb

@@ -10,21 +10,26 @@ Public Class usrCntlVermerkeATilla
     Dim hStatus As Integer
     Public AvisoID As Integer = -1
 
+    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+
     Public Sub New()
         InitializeComponent()
     End Sub
 
-    Public Sub New(AvisoID)
+    Public Sub New(AvisoID, Sendung)
         InitializeComponent()
-        Me.AvisoID = AvisoID 
+        Me.AvisoID = AvisoID
+        Me.Sendung = Sendung
     End Sub
 
-    Public Sub init(AvisoID)
+    Public Sub init(AvisoID, Sendung)
         Me.Refresh()
         Me.AvisoID = AvisoID
+        Me.Sendung = Sendung
     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
+         btnNichtAvisiert.Click, btnLKWFertig.Click, btnAuftragFehlt.Click, btnRechnungFehlt.Click, btnATRErstellt.Click, btnOK.Click, Button1.Click, Button2.Click,
+        btnAbfertigungTr.Click
 
         lblErr240Zeichen.Visible = False
         lblErrSendung.Visible = False
@@ -58,6 +63,27 @@ Public Class usrCntlVermerkeATilla
         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 btnAbfertigungTr Then
+
+            If Sendung IsNot Nothing Then
+
+                Dim anzahl As String = "0"
+                If Sendung.tblSnd_AbfertigungTR Is Nothing Then
+                    anzahl = InputBox("Anzahl T1/T2:")
+                    If anzahl = "" OrElse Not IsNumeric(anzahl) OrElse anzahl <= 0 Then
+                        Exit Sub
+                    Else
+                        anzahl = CInt(anzahl)
+                    End If
+                End If
+
+
+                Dim FUNC As New AvisoStatusFunctions
+                FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl)
+                Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
+                    initControls()
+
+                End If
         ElseIf sender Is btnOK Then
             If txtDetail.Text.Trim = "" Then lblErr240Zeichen.Visible = True : Exit Sub
             If txtDetail.Text.Length <= 80 Then
@@ -72,7 +98,15 @@ Public Class usrCntlVermerkeATilla
             End If
         End If
     End Sub
-
+    Sub initControls()
+        If Sendung IsNot Nothing Then
+            If Sendung.tblSnd_AbfertigungTR Is Nothing Then
+                btnAbfertigungTr.Image = My.Resources.abfetigungTR_inaktiv
+            Else
+                btnAbfertigungTr.Image = My.Resources.abfetigungTR_aktiv
+            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
 
@@ -92,5 +126,11 @@ Public Class usrCntlVermerkeATilla
         RaiseEvent VERMERKEingetragen()
     End Sub
 
- 
+    Private Sub usrCntlVermerkeATilla_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initControls()
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbfertigungTR", "AVISO") Then
+            btnAbfertigungTr.Visible = True
+        End If
+    End Sub
 End Class