neu
This commit is contained in:
@@ -163,6 +163,7 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
|
||||
|
||||
cboVertrag.fillWithSQL("SELECT kva_id,kva_Bezeichnung FROM [tblKundenVertraegeArten] ORDER BY kva_Bezeichnung", False, "FMZOLL", True)
|
||||
|
||||
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as display FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "display", "ATLAS", , 400, 200, {"display", "basncd_dstnr"})
|
||||
txtGGDatum._value = Now.ToShortDateString
|
||||
@@ -277,6 +278,7 @@ Public Class usrCntlKundenuebersicht
|
||||
initDGVOffenePosten()
|
||||
initDGVVollmachten()
|
||||
initDGVGestGarantie()
|
||||
initDGVVertraege()
|
||||
'initDGVOfferte()
|
||||
initDGVAnhaenge()
|
||||
initDGVOffertenSperrliste()
|
||||
@@ -584,8 +586,7 @@ Public Class usrCntlKundenuebersicht
|
||||
|
||||
UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
|
||||
|
||||
|
||||
|
||||
'UsrCntlKundenBesonderheiten1.Visible = False
|
||||
If KUNDE_ERW.kde_BesonderheitenNeu Then
|
||||
UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
|
||||
UsrCntlKundenBesonderheiten1.init(kdNr)
|
||||
@@ -824,7 +825,7 @@ Public Class usrCntlKundenuebersicht
|
||||
.Columns("clmnPDF").Visible = True
|
||||
Case Else
|
||||
.Columns("clmnTherefore").Visible = True
|
||||
.Columns("clmnPDF").Visible = False
|
||||
.Columns("clmnPDF").Visible = True
|
||||
End Select
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
|
||||
@@ -882,6 +883,46 @@ Public Class usrCntlKundenuebersicht
|
||||
clearGG()
|
||||
End Sub
|
||||
|
||||
Sub initDGVVertraege()
|
||||
With dgvVertraege
|
||||
.Columns.Clear()
|
||||
|
||||
|
||||
.DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr)
|
||||
If .Columns.Count = 0 Then Exit Sub
|
||||
|
||||
.Columns("kv_Id").Visible = False
|
||||
.Columns("kv_KundenNr").Visible = False
|
||||
.Columns("kv_vertragArtId").Visible = False
|
||||
.Columns("kv_datenarchivId").Visible = False
|
||||
.Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
.Columns("kv_erhalten_Datum").Width = 70
|
||||
.Columns("kv_erhalten_Datum").HeaderText = "Datum"
|
||||
.Columns("kva_Bezeichnung").Width = 120
|
||||
.Columns("kva_Bezeichnung").HeaderText = "Art"
|
||||
.Columns("kv_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("kv_Info").HeaderText = "Info"
|
||||
|
||||
.Columns("kv_gueltig").Width = 35
|
||||
.Columns("kv_gueltig").HeaderText = "gültig"
|
||||
If True Then
|
||||
Dim c As New DataGridViewImageColumn
|
||||
c.Name = "clmnPDF" : c.HeaderText = "PDF"
|
||||
c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
|
||||
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
||||
c.DefaultCellStyle.Tag = "PDF anzeigen"
|
||||
.Columns.Add(c)
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
|
||||
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
.ClearSelection()
|
||||
End With
|
||||
clearKV()
|
||||
End Sub
|
||||
|
||||
Sub initDGVOffertenSperrliste()
|
||||
With dgvOffertenSperrliste
|
||||
Dim where As String = ""
|
||||
@@ -1385,6 +1426,13 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
|
||||
DS.OPEN_SINGLE()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub dgvVollmachten_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellDoubleClick
|
||||
Dim tmprowindex As Integer = e.RowIndex
|
||||
@@ -2005,6 +2053,15 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraege.CellMouseClick
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
|
||||
If e.Button = Windows.Forms.MouseButtons.Right Then
|
||||
If dgvVertraege.SelectedRows.Count > 0 Then
|
||||
ContextMenuStrip4.Show(Cursor.Position)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
||||
If dgvGestGarantie.SelectedRows.Count > 0 Then
|
||||
@@ -2074,6 +2131,15 @@ Public Class usrCntlKundenuebersicht
|
||||
Button9.Visible = False
|
||||
End Sub
|
||||
|
||||
|
||||
Sub clearKV()
|
||||
cboVertrag.changeItem("")
|
||||
datVertrag.Text = ""
|
||||
txtVertragVermerk.Text = ""
|
||||
Button11.Text = "Hinzufügen"
|
||||
Button12.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub PDFLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFLöschenToolStripMenuItem.Click
|
||||
If dgvGestGarantie.SelectedRows.Count = 1 Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
@@ -2140,4 +2206,130 @@ Public Class usrCntlKundenuebersicht
|
||||
If pdf <> "" Then Process.Start(pdf)
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
|
||||
If cboVertrag._value <> "" And datVertrag._value <> "" Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
|
||||
If Button12.Visible Then
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
KV.kv_KundenNr = kdNr
|
||||
KV.kv_erhalten_Datum = datVertrag._value
|
||||
'KV.kv_Zollamt = If(cbxKV.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
|
||||
|
||||
'If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cKundenVertraege.ENTRY_Exists(kdNr, KV.kv_Zollamt) Then
|
||||
' MsgBox("Der Eintrag existiert bereits!")
|
||||
' Exit Sub
|
||||
'End If
|
||||
|
||||
KV.kv_vertragArtId = cboVertrag._value
|
||||
KV.kv_Info = txtVertragVermerk.Text
|
||||
|
||||
If KV.SAVE Then
|
||||
setKD(kdNr)
|
||||
End If
|
||||
clearKV()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
|
||||
clearKV()
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
|
||||
If dgvVertraege.SelectedRows.Count > 0 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
If vbYes = MsgBox("Möchten Sie den Vertrag wirklich löschen?", vbYesNoCancel) Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
If KV.DELETE() Then
|
||||
setKD(kdNr)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
|
||||
cboVertrag.changeItem(KV.kv_vertragArtId)
|
||||
datVertrag.Text = KV.kv_erhalten_Datum
|
||||
txtVertragVermerk.Text = KV.kv_Info
|
||||
|
||||
Button11.Text = "Ändern"
|
||||
Button12.Visible = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId = DS.da_id
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan")
|
||||
frmScan.DefaultFileName = DS.da_name
|
||||
|
||||
If frmScan.ShowDialog(Me) = DialogResult.OK Then
|
||||
If frmScan.ReturnValue IsNot Nothing Then
|
||||
Dim Filename = DS.da_name
|
||||
If frmScan.fileName <> "" Then Filename = frmScan.fileName
|
||||
If DS.uploadDataToDATENSERVER_fromBytes(frmScan.ReturnValue, Filename, ".pdf") Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId = DS.da_id
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId = Nothing
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GültigungültigToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GültigungültigToolStripMenuItem.Click
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_gueltig = Not KV.kv_gueltig
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user