AVISO/Aviso/frmAddAktenvermerkShort.vb

Imports VERAG_PROG_ALLGEMEIN


Public Class frmAddAktenvermerkShort

    Dim AvisoDAL As New cAvisoDAL
    Dim myAviso As New cAviso
    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()
        Icon = cMeineFunktionenAVISO.GetProgrammIcon
    End Sub

    Public Sub New(AvisoID)
        InitializeComponent()
        Me.AvisoID = AvisoID
        Icon = cMeineFunktionenAVISO.GetProgrammIcon
    End Sub


    Private Sub frmEintragVermerk_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        'Escape händisch abfangen und auf Abbruch-Taste legen
        If e.KeyCode = Keys.Escape Then
            '    btnAbbruch.PerformClick()
            Me.Close()
        End If
    End Sub

    Dim listentoCheckChange As Boolean = True
    Sub selectionChanged(sender As Object, e As EventArgs)
        If listentoCheckChange Then
            listentoCheckChange = False
            For Each c In Me.Controls
                If c.GetType.Name.ToString = "RadioButton" Then
                    '      DirectCast(c, RadioButton).Checked = False
                End If
            Next
            ' DirectCast(sender, RadioButton).Checked = True
            listentoCheckChange = True
        End If
    End Sub

    Private Sub frmEintragVermerk_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        For Each c In Me.Controls
            If c.GetType.Name.ToString = "RadioButton" Then
                AddHandler DirectCast(c, RadioButton).CheckedChanged, AddressOf selectionChanged
            End If
        Next
        optKeineAuswahl.Checked = True
        'Daten zu Aviso werden geladen
        myAviso = AvisoDAL.LesenAviso(AvisoID, "")

        'Werte(zuweisen)

        optKeineAuswahl.Checked = True

        btnVorgeschrieben.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_Vorgeschrieben", Me.FindForm)
        btnVorbereitet.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("STATUS_VorbQS", Me.FindForm)

        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        Dim de = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke]  where avisoid=" & AvisoID & " and VermerkeCode=17", "AVISO") -
                    SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke]  where avisoid=" & AvisoID & " and VermerkeCode=18", "AVISO")
        Dim at = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke]  where avisoid=" & AvisoID & " and VermerkeCode=19", "AVISO") -
                    SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke]  where avisoid=" & AvisoID & " and VermerkeCode=20", "AVISO")

        If at > 0 Then
            btnZollATEingereicht.BackColor = Color.Green
            btnZollATEingereicht.ForeColor = Color.White
            btnZollATEingereicht.Tag = "SWITCH"
            btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
            btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
        End If
        If de > 0 Then
            btnZollDEEingereicht.BackColor = Color.Green
            btnZollDEEingereicht.ForeColor = Color.White
            btnZollDEEingereicht.Tag = "SWITCH"
            btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
            btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
        End If
        btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
    End Sub




    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btnSpaetAvisiert.Click, btnLKWStandzeitWE.Click, btnLKWStandzeitFeierteage.Click, btnZollATEingereicht.Click,
btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Click, btnQS.Click, btnErfasst.Click, btnVorbereitet.Click, btnVorgeschrieben.Click, btnAnkunft.Click,
 btnFreigabe.Click, btnNichtEingetroffen.Click, btnNichtAvisiert.Click, btnAktUebernehmen.Click, btnLKWFertig.Click, btnSonstiges.Click


        If sender Is Nothing Then
            MsgBox("Es wurde kein Vermerk ausgewählt. Der Datensatz kann nicht gespeichert werden.", vbInformation)
            optKeineAuswahl.Focus()
            Exit Sub
        End If


        'Plausibilität prüfen
        If sender Is btnNichtAvisiert Then
            insertVermerk("Aviso nicht eingelangt", 15)
        ElseIf sender Is btnSpaetAvisiert Then
            insertVermerk("Aviso eingelangt kurz vor Eintreffen des LKWs - keine Vorbereitung möglich", 16)
        ElseIf sender Is btnZollDEEingereicht Then
            If sender.tag = "SWITCH" Then
                insertVermerk("DE Zoll fertig", 18)
                If myAviso.LKW_fertig Then FUNC.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            Else
                insertVermerk("DE Zoll eingereicht", 17)
            End If
        ElseIf sender Is btnZollATEingereicht Then
            If sender.tag = "SWITCH" Then
                insertVermerk("AT Zoll fertig", 20)
                If myAviso.LKW_fertig Then FUNC.LKWFertig(myAviso.AvisoID) : frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            Else
                insertVermerk("AT Zoll eingereicht", 19)
            End If
        ElseIf sender Is btnLKWStandzeitWE Then
            insertVermerk("LKW Standzeit Wochenende", 21)
        ElseIf sender Is btnLKWStandzeitFeierteage Then
            insertVermerk("LKW Standzeit Feiertag(e)", 22)

        ElseIf sender Is btnSBG Then
            insertVermerk("Nach SBG weitergegeben", 38)
            VermerkeDAL.UpdateGrenzstelle(myAviso.AvisoID, "SBG")
        ElseIf sender Is btnWAI Then
            insertVermerk("Nach WAI weitergegeben", 39)
            VermerkeDAL.UpdateGrenzstelle(myAviso.AvisoID, "WAI")
        ElseIf sender Is btnNKD Then
            insertVermerk("Nach NKD weitergegeben", 40)
        ElseIf sender Is btnSFD Then
            insertVermerk("Nach Spielfeld (Lex) weitergegeben", 41)
        ElseIf sender Is btnQS Then
            insertVermerk("Akt wurde in die QS-Abteilung gegeben", 45)
        ElseIf sender Is btnErfasst Then
            If FUNC.setErfasst(AvisoID) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        ElseIf sender Is btnVorbereitet Then
            If FUNC.setVorbereitet(AvisoID) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        ElseIf sender Is btnVorgeschrieben Then
            If FUNC.setVorgeschreiben(AvisoID) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        ElseIf sender Is btnAnkunft Then
            If FUNC.setAnkunft(AvisoID) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        ElseIf sender Is btnFreigabe Then
            If FUNC.setFreigabe(AvisoID, Me) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        ElseIf sender Is btnNichtEingetroffen Then
            If FUNC.setNichtEingeftroffen(AvisoID) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        ElseIf sender Is btnAktUebernehmen Then
            If FUNC.AktUebernehmen(AvisoID) Then
                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
            End If
        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 btnSonstiges Then
            insertVermerk(txtSonstiges.Text, 46)
        End If


        'Jetzt wird Fenster geschlossen
        ' frmMain.avisoAktualisierenAktiveIdBehalten(myAviso.AvisoID)


        Me.Close()

    End Sub

    Sub insertVermerk(Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "")
        'Daten zuweisen und speichern
        Dim myVermerk As New cVermerk
        myVermerk.VermerkID = 0
        myVermerk.AvisoID = myAviso.AvisoID
        myVermerk.Datum = Now
        myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
        myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
        myVermerk.Hinweis_Vermerk = Text
        myVermerk.VermerkCodeId = VermerkCodeId

        VermerkeDAL.SpeichernVermerk(myVermerk)
        frmHauptfenster.Details_anzeigen(AvisoID)

    End Sub



    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub frmAddAktenvermerkShort_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Dim p = System.Windows.Forms.Cursor.Position
        If (p.X + Me.Width) > My.Computer.Screen.WorkingArea.Width Then p.X = My.Computer.Screen.WorkingArea.Width - Me.Width
        If (p.Y + Me.Height) > My.Computer.Screen.WorkingArea.Height Then p.Y = My.Computer.Screen.WorkingArea.Height - Me.Height
        Me.Location = p '.Me.PointToClient(System.Windows.Forms.Cursor.Position)
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim frmInsertVermerkFach As New frmInsertVermerkFach(AvisoID)
        frmInsertVermerkFach.ShowDialog()
        frmHauptfenster.Details_anzeigen(AvisoID)
        Me.Close()
    End Sub

End Class