232 lines
8.1 KiB
VB.net
232 lines
8.1 KiB
VB.net
Imports com.sun.org.apache.xerces.internal.impl.dtd.models
|
|
Imports jdk.nashorn.internal.objects.annotations
|
|
Imports sun.misc
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class usrCntlKundenZollVollmachten
|
|
|
|
|
|
Public kdnr As Integer = -1
|
|
Public filePath As String
|
|
Public erhalten As Boolean = False
|
|
Public archiviert As Boolean = False
|
|
Public geloescht As Boolean = False
|
|
'Dim id As Integer = -1
|
|
Dim ksql As New kundenSQL
|
|
Public vollmachtartId As Integer
|
|
Dim vermerk As String = ""
|
|
Public vmId As Integer = -1
|
|
Dim vollmacht As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
|
|
|
|
Sub New()
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
End Sub
|
|
|
|
Sub New(kdnr, vollmachtartId, filepath)
|
|
Me.InitializeComponent()
|
|
Me.erhalten = True
|
|
Me.kdnr = kdnr
|
|
Me.filePath = filepath
|
|
Me.vollmachtartId = vollmachtartId
|
|
|
|
End Sub
|
|
|
|
|
|
'Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles gdvKundenvollmachten.SelectionChanged
|
|
|
|
|
|
' If gdvKundenvollmachten.SelectedRows.Count > 0 Then
|
|
|
|
' Dim rowindex = gdvKundenvollmachten.SelectedRows(0).Index
|
|
' vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(gdvKundenvollmachten.SelectedRows(0).Cells("kdvm_id").Value)
|
|
' loadChangedVMToUsrCntl(vollmacht)
|
|
|
|
' End If
|
|
|
|
'End Sub
|
|
|
|
Sub init(kdnr As Integer, vollmachtartId As Integer)
|
|
'dgvVollmachten.Rows.Clear()
|
|
Me.kdnr = kdnr
|
|
Me.vollmachtartId = vollmachtartId
|
|
initDGV()
|
|
Me.Reset()
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub initDGV()
|
|
|
|
Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
|
|
|
|
If kdnr > 0 AndAlso vollmachtartId >= 0 Then
|
|
|
|
|
|
With gdvKundenvollmachten
|
|
.Columns.Clear()
|
|
|
|
|
|
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
|
|
" FROM [tblKundenVollmachtenArt] as art " &
|
|
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
|
|
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
|
|
" ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
|
|
|
|
|
|
'.RowTemplate.Height = 30
|
|
.Columns("kdvm_Id").Visible = False
|
|
.Columns("kdvma_Id").Visible = False
|
|
.Columns("kdvm_KundenNr").Visible = False
|
|
.Columns("kdvm_datenarchivId").Visible = False
|
|
.Columns("kdvma_Bezeichnung").Visible = False
|
|
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
|
|
.Columns("kdvm_erhalten").Width = 50
|
|
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
|
|
.Columns("kdvm_erhalten").Visible = False
|
|
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns("kdvm_erhalten_Datum").Width = 100
|
|
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
|
|
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns("kdvm_Info").Width = 200
|
|
.Columns("kdvm_Info").HeaderText = "Info"
|
|
.Columns("kdvm_Info").Visible = False
|
|
.Columns("kdvm_gueltig_bis").Visible = True
|
|
.Columns("kdvm_gueltig_bis").Width = 100
|
|
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
|
|
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns("kdvm_archiviert").Visible = True
|
|
.Columns("kdvm_archiviert").Width = 60
|
|
.Columns("kdvm_archiviert").HeaderText = "Archiviert"
|
|
.Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
|
|
.Columns("kdvm_vermerk").MinimumWidth = 100
|
|
.Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
|
|
.Columns("kdvm_vermerk").Visible = True
|
|
.Columns("kdvm_geloescht").Visible = False
|
|
|
|
|
|
End With
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Public Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
|
|
|
|
vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
|
|
.kdvm_KundenNr = Me.kdnr,
|
|
.kdvm_kdvmaId = Me.vollmachtartId,
|
|
.kdvm_Info = "",
|
|
.kdvm_erhalten = False,
|
|
.kdvm_archiviert = False,
|
|
.kdvm_datenarchivId = -1,
|
|
.kdvm_erhalten_Datum = Now.ToShortDateString,
|
|
.kdvm_emailId = -1
|
|
}
|
|
|
|
vollmacht.kdvm_gueltig_bis = txtGueltigBis
|
|
|
|
vollmacht.kdvm_vermerk = Me.txtVermerkNew.Text
|
|
|
|
vollmacht.kdvm_archiviert = Me.cbxArchiviert.Checked
|
|
|
|
If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
|
|
txtGueltigVon.ForeColor = Color.Red
|
|
lblWarning.Visible = True
|
|
Exit Sub
|
|
Else
|
|
vollmacht.kdvm_erhalten_Datum = txtGueltigVon.Text
|
|
vollmacht.kdvm_gueltig_ab = txtGueltigVon.Text
|
|
vollmacht.kdvm_erhalten = True
|
|
End If
|
|
|
|
If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
|
|
txtGueltigBis.ForeColor = Color.Red
|
|
Exit Sub
|
|
|
|
ElseIf txtGueltigBis.Text = "" Then
|
|
vollmacht.kdvm_gueltig_bis = Nothing
|
|
Else
|
|
vollmacht.kdvm_gueltig_bis = txtGueltigBis.Text
|
|
End If
|
|
|
|
|
|
|
|
If vollmacht.SAVEVM > 0 Then
|
|
vollmachtenArchivieren()
|
|
vmId = vollmacht.SAVEVM
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub loadChangedVMToUsrCntl(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
|
|
|
|
Me.Reset()
|
|
cbxArchiviert.Checked = VM.kdvm_archiviert
|
|
txtVermerkNew.Text = VM.kdvm_vermerk
|
|
txtGueltigVon.Text = VM.kdvm_erhalten_Datum
|
|
txtGueltigBis.Text = VM.kdvm_gueltig_bis
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Public Sub Reset()
|
|
|
|
If gdvKundenvollmachten.Rows.Count > 0 Then
|
|
cbxVMarchivieren.Visible = True
|
|
cbxVMarchivieren.Checked = True
|
|
|
|
Else
|
|
cbxVMarchivieren.Visible = False
|
|
cbxVMarchivieren.Checked = False
|
|
|
|
End If
|
|
|
|
txtGueltigBis.Clear()
|
|
txtGueltigVon.Clear()
|
|
txtGueltigVon.Text = Now.ToShortDateString
|
|
txtVermerkNew.Clear()
|
|
cbxArchiviert.Checked = False
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub vollmachtenArchivieren()
|
|
|
|
If cbxVMarchivieren.Checked = False Then Exit Sub
|
|
Dim count As Integer = 0
|
|
With gdvKundenvollmachten
|
|
|
|
For Each r As DataGridViewRow In .Rows
|
|
Dim VMindex = r.Cells("kdvm_Id").Value
|
|
If r.Cells("kdvm_archiviert").Value <> True Then
|
|
count += 1
|
|
Dim currentVollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(VMindex)
|
|
currentVollmacht.kdvm_archiviert = True
|
|
currentVollmacht.SAVE()
|
|
End If
|
|
Next
|
|
|
|
If count > 0 Then
|
|
MsgBox("Bestehende Vollmachten wurden archiviert.")
|
|
End If
|
|
End With
|
|
|
|
cbxVMarchivieren.Visible = False
|
|
cbxVMarchivieren.Checked = False
|
|
|
|
|
|
End Sub
|
|
|
|
End Class
|