Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.
This commit is contained in:
283
SDL/kunden/frmGoMautBoxen.vb
Normal file
283
SDL/kunden/frmGoMautBoxen.vb
Normal file
@@ -0,0 +1,283 @@
|
||||
Imports System.DirectoryServices.ActiveDirectory
|
||||
Imports com.sun.tools.corba.se.idl.constExpr
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmGoMautBoxen
|
||||
Public kundenNr = -1
|
||||
|
||||
Dim kunde As cKunde
|
||||
Dim adresse As cAdressen
|
||||
Dim kundeErw As cKundenErweitert
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim dt As New DataTable
|
||||
|
||||
Public addnew = False
|
||||
Public WithEvents s As New cBinding("SDL") 'fürs Binding
|
||||
Dim changed As Boolean = False
|
||||
Dim ready As Boolean = False
|
||||
|
||||
Sub New(kundenNr)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.kundenNr = kundenNr
|
||||
Me.addnew = addnew
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(kunde As cKunde, adresse As cAdressen, kundeErw As cKundenErweitert)
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
Me.kunde = kunde
|
||||
Me.adresse = adresse
|
||||
Me.kundeErw = kundeErw
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
If kunde Is Nothing And kundenNr < 0 Then
|
||||
lblWarning.Text = "Bitte Kunden-Nr eingeben."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If cbxKK.SelectedValue = "" Then
|
||||
lblWarning.Text = "Bitte Kreditkarten-Nr eingeben."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If rbAP.Checked And txtbishAbrp.Text = "" Then
|
||||
lblWarning.Text = "Bitte bisherigen Abrechnungspartner eingeben."
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If dgvLKW.Rows(0).Cells(1).Value = "" Then
|
||||
lblWarning.Text = "Bitte KFZ-Kennzeichen eingeben."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If Not rbPostPay.Checked And Not rbAP.Checked Then
|
||||
lblWarning.Text = "Umstellungsart angeben!"
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If rbPostPay.Checked Then
|
||||
' "rpt_GO_BOX_Umstellung_Vertragsart"
|
||||
ElseIf rbAP.Checked Then
|
||||
' ' "rpt_GO_BOX_Umstellung_Vertragspartner"
|
||||
End If
|
||||
|
||||
btnOK.DialogResult = DialogResult.OK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'txtKennzeichen.Text = txtKennzeichen.Text.ToUpper.Trim
|
||||
'txtNationalitaet.Text = txtNationalitaet.Text.ToUpper
|
||||
'Label5.ForeColor = Color.Black
|
||||
'lblErfassung.ForeColor = Color.Black
|
||||
'If KdSearchBox1.KdNr < 0 Then Label5.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
'If txtKennzeichen.Text = "" Then lblErfassung.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
|
||||
|
||||
'If s.updateBinding Then
|
||||
' Dim SQL As New SQL
|
||||
' If oldkfz <> txtKennzeichen.Text Then
|
||||
' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, oldkfz, Nothing, Nothing),
|
||||
' New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, txtKennzeichen.Text, Nothing, Nothing))
|
||||
' SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
|
||||
' SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True)
|
||||
' End If
|
||||
' Me.Close()
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
|
||||
Sub initdgv()
|
||||
Try
|
||||
|
||||
Dim setKdNr
|
||||
If kundenNr > 0 Then
|
||||
setKdNr = kundenNr
|
||||
ElseIf kunde IsNot Nothing Then
|
||||
setKdNr = kunde.KundenNr
|
||||
Else
|
||||
setKdNr = -1
|
||||
|
||||
End If
|
||||
|
||||
dt = SQL.loadDgvBySql("SELECT Kreditkarten.KartenNr, Kreditkarten.Kartenablaufmonat, Kreditkarten.Kartenablaufjahr FROM Kreditkarten WHERE (((Kreditkarten.AdressenNr)=" & setKdNr & ") AND ((Kreditkarten.NeueKartenNr) Is Null)) ORDER BY Kreditkarten.KartenNr", "FMZOLL")
|
||||
|
||||
If dt.Rows.Count > 0 Then
|
||||
Dim dv As New DataView(dt, "KartenNr<>''", "KartenNr", DataViewRowState.CurrentRows)
|
||||
Dim dt_new As DataTable = dv.ToTable(False, "KartenNr")
|
||||
cbxKK.DataSource = dv
|
||||
cbxKK.DisplayMember = "KartenNr"
|
||||
cbxKK.ValueMember = "KartenNr"
|
||||
cbxKK.changeItem(dv.Item(0).Row.Item(0))
|
||||
End If
|
||||
|
||||
For i As Integer = 1 To 6
|
||||
dgvLKW.Rows.Add("LKW-KZ " & i, "")
|
||||
Next
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
If addnew Then newEntry() 'NEUER EINTRAG!
|
||||
ready = True
|
||||
End Sub
|
||||
|
||||
Public Sub newEntry()
|
||||
' s.updateBinding()
|
||||
Dim row = s.bindingdataTable.NewRow()
|
||||
row.Item("KundenNr") = kundenNr
|
||||
row.Item("KfzKennzeichen") = ""
|
||||
s.bindingdataTable.Rows.Add(row)
|
||||
|
||||
s.bindingSource.MoveLast()
|
||||
'If save Then updateBinding()
|
||||
lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
If kundenNr < 0 Then KdSearchBox1.Enabled = True
|
||||
End Sub
|
||||
|
||||
Sub BindingTableColumnChanged(sender As Object, e As System.Data.DataColumnChangeEventArgs)
|
||||
If ready Then
|
||||
lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm")
|
||||
changed = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click ', Me.FormClosing
|
||||
If changed Then
|
||||
Select Case MsgBox("Änderungen speichern", vbYesNoCancel)
|
||||
Case vbYes : Me.DialogResult = Windows.Forms.DialogResult.None : btnOK.PerformClick()
|
||||
Case vbNo : Me.Close()
|
||||
Case vbCancel : Me.DialogResult = Windows.Forms.DialogResult.None
|
||||
End Select
|
||||
Else
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmLKWDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
||||
If e.KeyCode = Keys.Return Then
|
||||
btnOK.PerformClick()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAUTBOXEN_bearbeiten", Me) Then
|
||||
' MsgBox("Keine Berechtigung!")
|
||||
' Me.Close()
|
||||
'End If
|
||||
|
||||
KdSearchBox1.initKdBox(Me)
|
||||
|
||||
|
||||
If kundenNr > 0 Then
|
||||
Me.KdSearchBox1.KdNr = kundenNr
|
||||
KdSearchBox1.Enabled = False
|
||||
End If
|
||||
|
||||
cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
|
||||
|
||||
initKunde()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged
|
||||
initKunde()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub initKunde()
|
||||
|
||||
If kundenNr < 0 Then
|
||||
|
||||
|
||||
If adresse IsNot Nothing Then
|
||||
|
||||
txtName.Text = If(adresse.Name_1, "") & If(adresse.Name_2, "")
|
||||
txtStrasse.Text = If(adresse.Straße, "")
|
||||
txtOrt.Text = If(adresse.Ort, "")
|
||||
txtPlz.Text = If(adresse.PLZ, "")
|
||||
cbxLandKz.changeItem(If(adresse.LandKz, ""))
|
||||
txtAnsprechpartnerAnrede.Text = adresse.Anrede
|
||||
txtAnsprechpartner.Text = adresse.Ansprechpartner
|
||||
txtFax.Text = adresse.Telefax
|
||||
txtEmail.Text = adresse.E_Mail
|
||||
|
||||
initdgv()
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
|
||||
If KdSearchBox1.KdNr_value > 0 AndAlso KdSearchBox1.KdData_ADRESSEN IsNot Nothing AndAlso KdSearchBox1.KdData_KUNDE IsNot Nothing Then
|
||||
|
||||
Dim AD = KdSearchBox1.KdData_ADRESSEN
|
||||
Dim KD = KdSearchBox1.KdData_KUNDE
|
||||
Dim KDERW = KdSearchBox1.KdData_KUNDE_ERW
|
||||
|
||||
txtName.Text = If(AD.Name_1, "") & If(AD.Name_2, "")
|
||||
txtStrasse.Text = If(AD.Straße, "")
|
||||
txtOrt.Text = If(AD.Ort, "")
|
||||
txtPlz.Text = If(AD.PLZ, "")
|
||||
cbxLandKz.changeItem(If(AD.LandKz, ""))
|
||||
txtAnsprechpartnerAnrede.Text = AD.Anrede
|
||||
txtAnsprechpartner.Text = AD.Ansprechpartner
|
||||
|
||||
initdgv()
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub cbxKK_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxKK.SelectedValueChanged
|
||||
|
||||
If cbxKK.SelectedValue Is Nothing OrElse cbxKK.SelectedValue.ToString = "System.Data.DataRowView" Then
|
||||
txtMonat.Text = ""
|
||||
txtJahr.Text = ""
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim dr() As DataRow = dt.Select("KartenNr = " & cbxKK.SelectedValue)
|
||||
|
||||
txtMonat.Text = dr(0).Item(1)
|
||||
txtJahr.Text = dr(0).Item(2)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rbAP_CheckedChanged(sender As Object, e As EventArgs) Handles rbAP.CheckedChanged
|
||||
|
||||
If rbAP.Checked Then
|
||||
txtbishAbrp.ReadOnly = False
|
||||
Else
|
||||
txtbishAbrp.Text = ""
|
||||
txtbishAbrp.ReadOnly = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user