KD Sicherheiten
This commit is contained in:
214
SDL/kunden/frmKundenSicherheiten.vb
Normal file
214
SDL/kunden/frmKundenSicherheiten.vb
Normal file
@@ -0,0 +1,214 @@
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmKundenSicherheiten
|
||||
|
||||
Public KundenNr As Integer = -1
|
||||
|
||||
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year)
|
||||
Dim srcTAG As Date = CDate(Now.ToShortDateString)
|
||||
Dim JAHR As Date = CDate("01.01." & Now.Year)
|
||||
|
||||
Sub New()
|
||||
InitializeComponent()
|
||||
End Sub
|
||||
|
||||
Dim FilialenNr = Nothing
|
||||
Dim AbfertigungsNr = Nothing
|
||||
Dim DatumVon = Nothing
|
||||
|
||||
Sub New(FilialenNr, AbfertigungsNr, DatumVon)
|
||||
InitializeComponent()
|
||||
Me.FilialenNr = FilialenNr
|
||||
Me.AbfertigungsNr = AbfertigungsNr
|
||||
Me.DatumVon = DatumVon
|
||||
End Sub
|
||||
|
||||
Private Sub frmKundenSicherheiten_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
txtAbfertDat.Text = Now.AddYears(-2).ToShortDateString
|
||||
txtAbfertDatBis.Text = Now.ToShortDateString
|
||||
pnlBH.Visible = True
|
||||
btnSuche.PerformClick()
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kunden_Sicherheiten", Me) Then
|
||||
btnDel.Visible = True
|
||||
Button1.Visible = True
|
||||
End If
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
|
||||
Button3.Visible = True
|
||||
End If
|
||||
|
||||
If Me.DatumVon IsNot Nothing Then
|
||||
DateTimePicker1.Value = CDate(DatumVon)
|
||||
End If
|
||||
txtFirma.initKdBox(Me)
|
||||
|
||||
If KundenNr > 0 Then
|
||||
txtFirma.KdNr = KundenNr
|
||||
txtFirma.Enabled = False
|
||||
DateTimePicker1.Value = Now.AddYears(-1)
|
||||
DateTimePicker2.Value = Now
|
||||
btnSuche.PerformClick()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
|
||||
txtAbfertDat._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
|
||||
txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "")
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
sqlstr =
|
||||
"SELECT " & TopMax & " " &
|
||||
"sc_id, sc_kundenNr, sc_datum, sc_gueltigVon, sc_gueltigBis, " &
|
||||
"sc_Art, sc_Sicherheitsgeber, sc_SicherheitsgeberLand, " &
|
||||
"sc_Betrag, sc_Waehrung " &
|
||||
"FROM tblKundenSicherheiten WHERE 1=1 "
|
||||
|
||||
With MyDatagridview1
|
||||
.SET_SQL(sqlstr & getKundenSicherheitenWhere() & " ORDER BY sc_datum DESC",
|
||||
"FMZOLL",
|
||||
getKundenSicherheitenList())
|
||||
.LOAD()
|
||||
setDGVOptions()
|
||||
End With
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
|
||||
Function getKundenSicherheitenWhere() As String
|
||||
Dim sqlstr = ""
|
||||
|
||||
If txtAbfertDat.Text <> "" Then
|
||||
sqlstr &= " AND (sc_datum BETWEEN @DatumVon AND @DatumBis) "
|
||||
End If
|
||||
|
||||
If txtFirma.KdNr_value > 0 Then
|
||||
If IsNumeric(txtFirma.KdNr_value) Then
|
||||
sqlstr &= " AND sc_kundenNr = @Firma "
|
||||
End If
|
||||
End If
|
||||
|
||||
sqlstr &= " AND sc_storno = @Storno "
|
||||
|
||||
|
||||
Return sqlstr
|
||||
End Function
|
||||
|
||||
Function getKundenSicherheitenList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumVon", txtAbfertDat.Text & " 00:00:00"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatumBis", txtAbfertDatBis.Text & " 23:59:59"))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", txtFirma.KdNr_value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Storno", cbxStorno.Checked))
|
||||
|
||||
Return list
|
||||
|
||||
End Function
|
||||
|
||||
Sub setDGVOptions()
|
||||
|
||||
With MyDatagridview1
|
||||
|
||||
If .RowCount = 0 Then Exit Sub
|
||||
|
||||
.RowHeadersVisible = False
|
||||
.ReadOnly = True
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.MultiSelect = False
|
||||
|
||||
.Columns("sc_id").Visible = False
|
||||
|
||||
.Columns("sc_kundenNr").HeaderText = "KdNr"
|
||||
.Columns("sc_kundenNr").Width = 60
|
||||
|
||||
.Columns("sc_datum").HeaderText = "Datum"
|
||||
.Columns("sc_datum").Width = 90
|
||||
|
||||
.Columns("sc_gueltigVon").HeaderText = "Gültig von"
|
||||
.Columns("sc_gueltigBis").HeaderText = "Gültig bis"
|
||||
|
||||
.Columns("sc_Art").HeaderText = "Art"
|
||||
.Columns("sc_Art").Width = 120
|
||||
|
||||
.Columns("sc_Sicherheitsgeber").HeaderText = "Sicherheitsgeber"
|
||||
.Columns("sc_Sicherheitsgeber").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("sc_Betrag").HeaderText = "Betrag"
|
||||
.Columns("sc_Betrag").DefaultCellStyle.Format = "N2"
|
||||
.Columns("sc_Betrag").Width = 90
|
||||
|
||||
.Columns("sc_Waehrung").HeaderText = "Währung"
|
||||
.Columns("sc_Waehrung").Width = 60
|
||||
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
cProgramFunctions.genExcelFromDGV_NEW(MyDatagridview1, False)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
||||
|
||||
If MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
If vbYes <> MsgBox("Möchten Sie die Sicherheit wirklich löschen?", vbYesNoCancel) Then Exit Sub
|
||||
|
||||
Dim sc_id = MyDatagridview1.SelectedRows(0).Cells("sc_id").Value
|
||||
Dim S As New cKundenSicherheiten(sc_id)
|
||||
' S.DELETE()
|
||||
S.STORNO()
|
||||
|
||||
MyDatagridview1.RELOAD()
|
||||
setDGVOptions()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Dim f As New frmKundenSicherheiten_Details()
|
||||
f.kdnr = txtFirma.KdNr_value
|
||||
f.ShowDialog(Me)
|
||||
btnSuche.PerformClick()
|
||||
End Sub
|
||||
|
||||
Private Sub gridAviso_DoubleClick(sender As Object, e As System.EventArgs) Handles MyDatagridview1.DoubleClick
|
||||
If MyDatagridview1.SelectedRows.Count = 0 And MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
Dim atr_id = MyDatagridview1.SelectedRows(0).Cells("sc_id").Value
|
||||
Dim f As New frmKundenSicherheiten_Details(atr_id)
|
||||
f.ShowDialog(Me)
|
||||
btnSuche.PerformClick()
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
If MyDatagridview1.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
If vbYes <> MsgBox("Möchten Sie die Sicherheit wirklich löschen?", vbYesNoCancel) Then Exit Sub
|
||||
|
||||
Dim sc_id = MyDatagridview1.SelectedRows(0).Cells("sc_id").Value
|
||||
Dim S As New cKundenSicherheiten(sc_id)
|
||||
S.DELETE()
|
||||
|
||||
MyDatagridview1.RELOAD()
|
||||
setDGVOptions()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user