AVISO/Aviso/usrCntlVermerkeATilla.vb

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 Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing

    Public Sub New()
        InitializeComponent()
    End Sub

    Public Sub New(AvisoID, Sendung)
        InitializeComponent()
        Me.AvisoID = AvisoID
        Me.Sendung = Sendung
    End Sub

    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,
        btnAbfertigungTr.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 btnAbfertigungTr Then

            If Sendung IsNot Nothing Then

                Dim anzahl As String = "0"
                Dim anzahlPos As String = "0"
                If Sendung.tblSnd_AbfertigungTR Is Nothing Then

                    Dim f As New frmAbfertigungTR_ExportAnz
                    If f.ShowDialog = DialogResult.OK Then
                        anzahl = f.txtAnz._value
                        anzahlPos = f.txtAnzPos._value

                        Dim FUNC As New AvisoStatusFunctions
                        FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl, anzahlPos)
                        Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
                        initControls()

                    End If


                    'anzahl = InputBox("Anzahl T1/T2:")
                    'If anzahl = "" OrElse Not IsNumeric(anzahl) OrElse anzahl <= 0 Then
                    '    Exit Sub
                    'Else
                    '    anzahl = CInt(anzahl)
                    'End If

                    'anzahlPos = InputBox("Anzahl T1/T2 Psoitionen:")
                    'If anzahlPos = "" OrElse Not IsNumeric(anzahlPos) OrElse anzahlPos <= 0 Then
                    '    Exit Sub
                    'Else
                    '    anzahlPos = CInt(anzahlPos)
                    'End If
                Else
                    If vbYes = MsgBox("Möchten Sie den Eintrag wirklich zurücksetzen?", vbYesNoCancel) Then

                        anzahl = "0"
                        anzahlPos = "0"

                        Dim FUNC As New AvisoStatusFunctions
                        FUNC.setSendungAbfertigungTR(Sendung.tblSnd_SendungID, AvisoID, anzahl, anzahlPos)
                        Sendung.LOAD(Sendung.tblSnd_SendungID) 'neu laden
                        initControls()
                    End If

                End If





            End If
        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 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

        '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

    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