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