edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-03-04 15:47:48 +01:00
parent 3aaf328ce6
commit b4612ab3e0
142 changed files with 24372 additions and 14785 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -62,8 +62,12 @@
Case "FRONTOFFICE"
cboFiliale._allowedValuesFreiText = {"5801"}
cboFiliale.changeItem("5801")
Case Else
cboFiliale.Items.Insert(1, New VERAG_PROG_ALLGEMEIN.MyListItem("alle VERAG", "VERAG"))
cboFiliale.changeItem("VERAG")
End Select
cboSachbearbeiterQS.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
" FROM tblMitarbeiter WHERE mit_niederlassung IN ('SUB','Suben') AND mit_abteilung='QS' AND [mit_gekuendigt]=0 " & QSwhere & " order by name", False, "ADMIN", True)
cboSachbearbeiterBH.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as NAME " &
@@ -203,7 +207,9 @@
sqlstr &= " AND vk_AbfertigungsNr LIKE @AbfertigungsNr "
End If
' If txtUnterNr.Text <> "" Then sqlstr &= " AND [UnterNr] LIKE @UnterNr "
If cboFiliale._value <> "" Then sqlstr &= " AND [vk_FilialeNr] LIKE @FilialenNr "
If cboFiliale._value = "VERAG" Then : sqlstr &= " AND [vk_FilialeNr] IN (SELECT [FilialenNr] FROM [Filialen] where Firma ='VERAG') "
ElseIf cboFiliale._value <> "" Then : sqlstr &= " AND [vk_FilialeNr] LIKE @FilialenNr "
End If
If cboSachbearbeiterQS._value <> "" Then sqlstr &= " AND [vk_QS_SachbearbeiterId] = @PersonalnummerQS "
If cboSachbearbeiterBH._value <> "" Then sqlstr &= " AND [vk_BH_SachbearbeiterId] = @PersonalnummerBH "

4
SDL/kunden/frmEmailBenachrichtigung.vb
View File

@@ -1,10 +1,10 @@
Public Class frmEmailBenachrichtigung
Dim LIST As cEmailBenachrichtigungList = Nothing
Dim LIST As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Sub New(kundennr, art)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
LIST = New cEmailBenachrichtigungList(kundennr, art)
LIST = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(kundennr, art)
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub

3
SDL/kunden/frmKundenBesonderheiten_Add.vb
View File

@@ -61,6 +61,9 @@
If KD_BESONSERHEITEN.hasEntry Then
rtbText.Text = KD_BESONSERHEITEN.kdb_text
cbxHervorheben.Checked = KD_BESONSERHEITEN.kdb_hervorheben
cboKategorie.changeItem(KD_BESONSERHEITEN.kdb_kategorie)
cboKategorie.changeItem(KD_BESONSERHEITEN.kdb_kategorie)
End If
End Sub

6
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -168,8 +168,8 @@ Public Class frmKundenUebersichtZOLL
' BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
AddHandler KdSearchBox1.PropertyChanged, Sub()
Try
setKD(KdSearchBox1.KdNr_value)
Catch ex As Exception
setKD(KdSearchBox1.KdNr_value)
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & ex.StackTrace)
End Try
End Sub
@@ -258,6 +258,7 @@ Public Class frmKundenUebersichtZOLL
initAllgemein()
Me.tbcntrKundenDaten.Visible = True
usrcntlKundenuebersicht.setKD(kdnr)
'initDGVUmsatz()
'initDGVOffenePosten()
@@ -290,7 +291,6 @@ Public Class frmKundenUebersichtZOLL
'SchließenToolStripMenuItem.Enabled = True
mnueFiskal.Enabled = True
Me.tbcntrKundenDaten.Visible = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
mnueRechnungen.Visible = False

5
SDL/kunden/frmKundenZOLLVollmachten.vb
View File

@@ -24,7 +24,8 @@
Case "UNISPED", "IMEX", "FRONTOFFICE"
Panel1.Visible = True
Case Else
Me.Height = Me.Height - Panel1.Height
Panel1.Visible = True
'Me.Height = Me.Height - Panel1.Height
End Select
If id > 0 Then
@@ -59,7 +60,7 @@
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
DS.DELETE_COMPLETE()
If Not ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, id) Then
If ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, -1) Then
id = -1 : pic.Visible = False
Label2.Text = "Kein PDF vorhanden."
picPDF.Image = My.Resources.pdf_gray

20
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.Designer.vb generated
View File

@@ -42,6 +42,7 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxFreigabe_ABD = New System.Windows.Forms.CheckBox()
Me.cbxAVM = New System.Windows.Forms.CheckBox()
Me.cboFreigabeArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SuspendLayout()
'
'cboFreigabe_SteuerbescheidBedingung
@@ -120,9 +121,9 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.CheckBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox6.Location = New System.Drawing.Point(278, 4)
Me.CheckBox6.Name = "CheckBox6"
Me.CheckBox6.Size = New System.Drawing.Size(146, 17)
Me.CheckBox6.Size = New System.Drawing.Size(72, 17)
Me.CheckBox6.TabIndex = 44
Me.CheckBox6.Text = "E-Mail bei LKW-Freigabe:"
Me.CheckBox6.Text = "E-Mail bei"
Me.CheckBox6.UseVisualStyleBackColor = True
'
'CheckBox4
@@ -284,11 +285,25 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Me.cbxAVM.Text = "AVM"
Me.cbxAVM.UseVisualStyleBackColor = True
'
'cboFreigabeArt
'
Me.cboFreigabeArt._allowedValuesFreiText = Nothing
Me.cboFreigabeArt._allowFreiText = False
Me.cboFreigabeArt._value = ""
Me.cboFreigabeArt.Enabled = False
Me.cboFreigabeArt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboFreigabeArt.FormattingEnabled = True
Me.cboFreigabeArt.Location = New System.Drawing.Point(348, 1)
Me.cboFreigabeArt.Name = "cboFreigabeArt"
Me.cboFreigabeArt.Size = New System.Drawing.Size(68, 21)
Me.cboFreigabeArt.TabIndex = 63
'
'usrCntlKundenAvisoMailBenachrichtigung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.cboFreigabeArt)
Me.Controls.Add(Me.cbxAVM)
Me.Controls.Add(Me.cbxFreigabe_ABD)
Me.Controls.Add(Me.Label1)
@@ -336,4 +351,5 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung
Friend WithEvents Label1 As Label
Friend WithEvents cbxFreigabe_ABD As CheckBox
Friend WithEvents cbxAVM As CheckBox
Friend WithEvents cboFreigabeArt As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

28
SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb
View File

@@ -23,7 +23,7 @@
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged, cbxFreigabe_ABD.CheckedChanged, cbxAVM.CheckedChanged
Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged, cbxFreigabe_ABD.CheckedChanged, cbxAVM.CheckedChanged, cboFreigabeArt.SelectedIndexChanged
Try
If sender Is cbxSendungsListFreigabe Then
' cbxFreigabe_Steuerbescheid.Enabled = cbxSendungsListFreigabe.Checked
@@ -33,6 +33,7 @@
cboFreigabe_SteuerbescheidBedingung.Enabled = cbxFreigabe_Steuerbescheid.Checked
End If
If loaded Then
cboFreigabeArt.Enabled = CheckBox6.Checked
initAvisoMail()
Dim kdTmp As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr)
@@ -41,15 +42,18 @@
kdTmp.EmailFreigabe = CheckBox6.Checked
kdTmpErw.EmailAnkunft_Export = CheckBox2.Checked
kdTmpErw.EmailFreigabe_Export = CheckBox1.Checked
kdTmpErw.EmailFreigabe_Art = cboFreigabeArt._value
kdTmpErw.EmailFreigabeSendungsListe = cbxSendungsListFreigabe.Checked
kdTmpErw.EmailFreigabe_SteuerbescheidPDF = cbxFreigabe_Steuerbescheid.Checked
kdTmpErw.EmailFreigabe_SteuerbescheidPDF_Bedingung = cboFreigabe_SteuerbescheidBedingung._value
kdTmpErw.EmailFreigabe_VBDPDF = cbxFreigabe_VBD.Checked
kdTmpErw.EmailFreigabe_aBDPDF = cbxFreigabe_ABD.Checked
kdTmpErw.EmailFreigabe_ABDPDF = cbxFreigabe_ABD.Checked
kdTmpErw.Email_AVM = cbxAVM.Checked
kdTmp.SAVE()
kdTmpErw.SAVE()
End If
Catch ex As Exception
MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message & ex.StackTrace)
@@ -86,6 +90,9 @@
CheckBox4.Checked = KUNDE.EmailAnkunft
CheckBox1.Checked = KUNDE_ERW.EmailFreigabe_Export
CheckBox2.Checked = KUNDE_ERW.EmailAnkunft_Export
cboFreigabeArt.Enabled = CheckBox6.Checked
cboFreigabeArt.changeItem(KUNDE_ERW.EmailFreigabe_Art)
End If
@@ -137,10 +144,10 @@
RichTextBox2.Text = ""
If KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 Then
Dim EMAIL_ANKUNFT = New cEmailBenachrichtigungList(KUNDE.KundenNr, 1)
Dim EMAIL_FREIGABE = New cEmailBenachrichtigungList(KUNDE.KundenNr, 2)
Dim EMAIL_ANKUNFT_EXPORT = New cEmailBenachrichtigungList(KUNDE.KundenNr, 3)
Dim EMAIL_FREIGABE_EXPORT = New cEmailBenachrichtigungList(KUNDE.KundenNr, 4)
Dim EMAIL_ANKUNFT = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 1)
Dim EMAIL_FREIGABE = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 2)
Dim EMAIL_ANKUNFT_EXPORT = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 3)
Dim EMAIL_FREIGABE_EXPORT = New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList(KUNDE.KundenNr, 4)
For Each l In EMAIL_ANKUNFT.LIST
If l.eb_cc Then
rtbLkwAnkunf.Text &= l.eb_EMail & " (CC)" & vbNewLine
@@ -188,6 +195,12 @@
End Sub
Private Sub usrCntlKundenAvisoMailBenachrichtigung_Load(sender As Object, e As EventArgs) Handles Me.Load
cboFreigabeArt.Items.Clear()
cboFreigabeArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Freigabe", "FG"))
cboFreigabeArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Beleg", "BLG"))
cboFreigabeArt.changeItem(If(KUNDE_ERW.EmailFreigabe_Art, "FG"))
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_MAIL_Steuerbescheid", "AVISO") Then
cbxFreigabe_Steuerbescheid.Visible = False
cboFreigabe_SteuerbescheidBedingung.Visible = False
@@ -206,4 +219,7 @@
loadEmails()
End Sub
Private Sub cboFreigabeArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFreigabeArt.SelectedIndexChanged
End Sub
End Class

65
SDL/kunden/usrCntlKundenBesonderheiten.vb
View File

@@ -4,7 +4,30 @@
Dim loaded = False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Protected Overrides Sub OnVisibleChanged(ByVal e As EventArgs)
doStyle()
End Sub
Sub doStyle()
With dgvBesonderheiten
If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
For Each c In .Columns
c.HeaderCell.Style.ForeColor = Color.White
c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
Next
For Each r As DataGridViewRow In .Rows
If r.Cells("kdb_hervorheben").Value Then
r.DefaultCellStyle.BackColor = Color.LightYellow
End If
If r.Cells("kdb_history").Value Then
r.DefaultCellStyle.BackColor = Color.LightGray
End If
Next
End With
End Sub
Private Sub usrCntlKundenBesonderheiten_Load(sender As Object, e As EventArgs) Handles Me.Load
'initDGV()
cboKategorie.fillWithSQL("SELECT [kdbkat_kategorie],[kdbkat_bezeichnung] FROM [tblKundenBesonderheiten_Kategorien]", False, "FMZOLL", True)
@@ -15,12 +38,12 @@
loaded = True
End Sub
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False)
Sub init(kdNr, Optional Kategorie = "", Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
loaded = False
If simpleView Then Panel1.Visible = False 'showhideOptions(False)
cboKategorie.changeItem(Kategorie)
cbx.Checked = False
initDGV(kdNr, simpleView)
initDGV(kdNr, simpleView, preferedKategorie, preferedKategorieOtherIN)
loaded = True
End Sub
@@ -30,7 +53,7 @@
cboKategorie.Visible = visible
lbl.Visible = visible
End Sub
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False)
Private Sub initDGV(Optional kdnrTmp = -1, Optional simpleView = False, Optional preferedKategorie = "", Optional preferedKategorieOtherIN = "")
dgvBesonderheiten.Columns.Clear()
@@ -50,7 +73,14 @@
where &= " and kdb_history=0 "
End If
.DataSource = SQL.loadDgvBySql("SELECT kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " and kdb_visible=1 " & where & " ORDER BY kdb_AenderungAm desc", "FMZOLL")
Dim order = " ORDER BY kdb_AenderungAm desc"
Dim katIN = " "
If preferedKategorie <> "" Then
order = " ORDER BY CASE WHEN kdb_kategorie = '" & preferedKategorie & "' THEN 1 ELSE 2 END desc, kdb_AenderungAm desc "
If katIN <> "" Then order = " AND kdb_kategorie IN(" & preferedKategorieOtherIN & ",'" & preferedKategorie & "') "
End If
.DataSource = SQL.loadDgvBySql("Select kdb_id, kdb_AenderungAm,kdb_text,kdb_mitId,kdb_mitName,kdb_EingetragenAm,kdb_kategorie, kdb_hervorheben,kdb_history FROM [tblKundenBesonderheiten] where kdb_KundenNr=" & kdNr & " And kdb_visible=1 " & katIN & where & " " & order, "FMZOLL")
If .Columns.Count = 0 Then dgvBesonderheiten.Columns.Clear() : Exit Sub
.ClearSelection()
@@ -76,19 +106,22 @@
.Columns("kdb_AenderungAm").DefaultCellStyle.Format = "dd.MM.yyyy"
.EnableHeadersVisualStyles = False
For Each c In .Columns
c.HeaderCell.Style.ForeColor = Color.White
c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
Next
For Each r As DataGridViewRow In .Rows
If r.Cells("kdb_hervorheben").Value Then
r.DefaultCellStyle.BackColor = Color.LightYellow
End If
If r.Cells("kdb_history").Value Then
r.DefaultCellStyle.BackColor = Color.LightGray
End If
Next
doStyle()
'For Each c In .Columns
' c.HeaderCell.Style.ForeColor = Color.White
' c.HeaderCell.Style.BackColor = Color.FromArgb(0, 54, 128)
'Next
'For Each r As DataGridViewRow In .Rows
' If r.Cells("kdb_hervorheben").Value Then
' r.DefaultCellStyle.BackColor = Color.LightYellow
' End If
' If r.Cells("kdb_history").Value Then
' r.DefaultCellStyle.BackColor = Color.LightGray
' End If
'Next
If simpleView Then
.Columns("kdb_kategorie").Visible = False

639
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

3
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -236,4 +236,7 @@
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1146, 17</value>
</metadata>
<metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1303, 17</value>
</metadata>
</root>

198
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -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

4
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -7,8 +7,8 @@ Public Class usrcntlKundeBearbeitenFull
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim FISKAL As cFiskal_Daten = Nothing
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing
Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing
Dim EMAIL_ANKUNFT As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Dim EMAIL_FREIGABE As VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList = Nothing
Dim sql As New SQL
Dim WunschKdNr As Integer = -1
' Dim kdnr = -1