SDL/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenIDS.vb

Imports System.Globalization

Public Class usrCntlSDLLeistungenIDS
    Public KfzKennzeichen As String
    Public kdNr As String
    Public SDLNr As String
    Public History As String

    Dim PROG As New cProgramFunctions
    Dim kundenSQL As New kundenSQL

    Dim culture As CultureInfo = New CultureInfo("de-DE")
    Public addnew As Boolean = False
    Dim VAL As New cValidationSDLLeistungen
    'Public WithEvents s As New cBinding 'fürs Binding
    Public SDL As VERAG_PROG_ALLGEMEIN.cSDL
    Public Event LKWChanged(kdNr, newKfz, SDLNr, History)
    Public Event CHANGED(kdNr, newKfz, SDLNr, History)
    Dim boud = False
    
    Sub New(kdNr, KfzKennzeichen, SDLNr, History)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        Me.kdNr = kdNr
        Me.KfzKennzeichen = KfzKennzeichen
        Me.SDLNr = SDLNr
        Me.History = History
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load
           UsrCntlDetails.kdNr = kdNr
        UsrCntlDetails.SDLNr = SDLNr
        UsrCntlDetails.History = History
        UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen
        AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz)
                                                  RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History)
                                              End Sub

        txtIDSKdNr.Text = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr).IDSKundenNr

        'Scan-Elemente initialisieren:
        scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
        scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)

        initDataBinding()
        boud = True

        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then
            cProgramFunctions.setControlReadOnly(Me)
        End If

    End Sub
    Function gueltigBisabgelaufen(o) As Boolean
        Try
            If CDate(o) > Now Then
                Return False
            End If
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function



    Sub initDataBinding()
        Try

            ' Dim tmpHist As String = "" 'If History <> "" Then tmpHist = " AND History='" & History & "'"
            ' s.initBinding("SELECT * FROM SDL WHERE KundenNr='" & kdNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "'  AND SDLNr='" & SDLNr & "' " & tmpHist, "SDL")

            SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History)
            '  AddHandler s.bindingdataTable.ColumnChanged, AddressOf BindingTableColumnChanged
            'AddHandler s.bindingdataTable.TableNewRow, AddressOf s.bindingdataTable_TableNewRow_SDLLeistungen

            'PROG.setBindingDTPE(txtLieferung, "Lieferdatum", s.bindingSource)
            '  PROG.setBindingDTPE(txtBestellung, "Bestelldatum", s.bindingSource)
            '  PROG.setBindingDTPE(txtGueltigkeit2, "GültigBis", s.bindingSource)

            PROG.initDTPE(txtLieferung)
            PROG.initDTPE(txtBestellung)
            PROG.initDTPE(txtGueltigkeit2)

            txtLieferung._value = SDL.Lieferdatum
            txtBestellung._value = SDL.Bestelldatum
            txtGueltigkeit2._value = SDL.GültigBis

            cbxErsatzkarte._date = SDL.ErsatzkarteAm
            cbxVerloren._date = SDL.VerlorenAm
            cbxGestohlen._date = SDL.GestohlenAm
            cbxGesperrt._date = SDL.GesperrtAm
            cbxDefekt._date = SDL.DefektAm

            cbxGesperrt.Checked = SDL.Gesperrt
            cbxDefekt.Checked = SDL.Defekt
            cbxGestohlen.Checked = SDL.Gestohlen
            cbxVerloren.Checked = SDL.Verloren
            cbxArchiviert.Checked = SDL.Archiviert
            ' cbxGesperrt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gesperrt", True, DataSourceUpdateMode.OnPropertyChanged, False))
            ' cbxDefekt.DataBindings.Add(New Binding("Checked", s.bindingSource, "Defekt", True, DataSourceUpdateMode.OnPropertyChanged, False))
            ' cbxGestohlen.DataBindings.Add(New Binding("Checked", s.bindingSource, "Gestohlen", True, DataSourceUpdateMode.OnPropertyChanged, False))
            ' cbxVerloren.DataBindings.Add(New Binding("Checked", s.bindingSource, "Verloren", True, DataSourceUpdateMode.OnPropertyChanged, False))

           
            cbxErsatzkarte.Checked = SDL.Ersatzkarte
            'cbxErsatzkarte.DataBindings.Add(New Binding("Checked", s.bindingSource, "Ersatzkarte", True, DataSourceUpdateMode.OnPropertyChanged, False))

            txtVermerk.Text = SDL.Vermerk
            'txtVermerk.DataBindings.Add(New Binding("Text", s.bindingSource, "Vermerk", True, DataSourceUpdateMode.OnPropertyChanged, ""))

            UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum
            UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum
            UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter

            '   UsrCntlDetails.lblErfassung.DataBindings.Add(New Binding("Text", s.bindingSource, "Erfassungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
            ' UsrCntlDetails.lblAenderung.DataBindings.Add(New Binding("Text", s.bindingSource, "Änderungsdatum", True, DataSourceUpdateMode.OnPropertyChanged, ""))
            ' UsrCntlDetails.lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))

            txtPIN.Text = SDL.PIN
            txtKartenNr.Text = SDL.KartenNr
            'txtPIN.DataBindings.Add(New Binding("Text", s.bindingSource, "PIN", True, DataSourceUpdateMode.OnPropertyChanged, ""))
            'txtKartenNr.DataBindings.Add(New Binding("Text", s.bindingSource, "KartenNr", True, DataSourceUpdateMode.OnPropertyChanged, ""))

            '  If History <> "" Then
            'Try : s.bindingSource.Position = s.bindingSource.Find("History", History)
            'Catch ex As Exception : End Try
            '  End If

            
        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox(ex.StackTrace)
        End Try



    End Sub

    Public Sub newEntry()
        '   s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG!
        If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString
    End Sub
    Sub BindingTableColumnChanged()
        UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
        UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
        'If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub
        If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History)
    End Sub

    Public Function save() As Boolean
        loadDataInClass()

        Return SDL.SAVE
        'If checkSave() Then
        '        Return kundenSQL.doSQLByList(s.bindingSource)
        'End If
        Return False
    End Function

    Sub loadDataInClass()
        SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value)
        SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value)
        SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value)
        SDL.Gesperrt = cbxGesperrt.Checked
        SDL.Defekt = cbxDefekt.Checked
        SDL.Gestohlen = cbxGestohlen.Checked
        SDL.Verloren = cbxVerloren.Checked
        SDL.Ersatzkarte = cbxErsatzkarte.Checked
        SDL.Vermerk = txtVermerk.Text
        SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text
        SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text
        SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text
        SDL.PIN = txtPIN.Text
        SDL.KartenNr = txtKartenNr.Text

        SDL.ErsatzkarteAm = cbxErsatzkarte._date
        SDL.VerlorenAm = cbxVerloren._date
        SDL.GestohlenAm = cbxGestohlen._date
        SDL.GesperrtAm = cbxGesperrt._date
        SDL.DefektAm = cbxDefekt._date
        SDL.Archiviert = cbxArchiviert.Checked
    End Sub


    Function checkSave() As Boolean
        ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False
        '  If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False
        ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False
        Return True
    End Function



    Private Sub datBestellung_ValueChanged(sender As Object, e As EventArgs)
        If sender.value Is DBNull.Value Then
            sender.checked = False
        End If
    End Sub

    Private Sub txtBestellung_TextChanged2(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtKartenNr.TextChanged, txtPIN.TextChanged, txtVermerk.TextChanged, txtGueltigkeit2.PropertyChanged, cbxErsatzkarte.CheckedChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxArchiviert.CheckedChanged
        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub

        If boud And Me.FindForm IsNot Nothing Then
            If sender Is txtLieferung Then
                If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-KundenNr im Kundenblatt oder im FM-ZOLL ein!")
            End If
            BindingTableColumnChanged()
        End If
    End Sub

    Function addTxtToVermerk(tmp, txt) As String
        If txtVermerk.Text <> "" Then tmp &= " / "
        tmp &= txt & ", am " & Now.ToShortDateString
        If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength)
        Return tmp
    End Function

  
   
End Class