From 6b278a1f60e114ca0b6235ebbf8aafa72859ae84 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 16 Nov 2022 17:18:30 +0100 Subject: [PATCH] Feature: Offerten --- SDL/kunden/usrCntlOfferte.Designer.vb | 417 +++++++++++++---------- SDL/kunden/usrCntlOfferte.resx | 3 - SDL/kunden/usrCntlOfferte.vb | 118 ++++++- VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb | 67 +++- 4 files changed, 395 insertions(+), 210 deletions(-) diff --git a/SDL/kunden/usrCntlOfferte.Designer.vb b/SDL/kunden/usrCntlOfferte.Designer.vb index 8ee21743..8e566247 100644 --- a/SDL/kunden/usrCntlOfferte.Designer.vb +++ b/SDL/kunden/usrCntlOfferte.Designer.vb @@ -23,8 +23,8 @@ Partial Class usrCntlOfferte Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.rtbBesonderheiten = New System.Windows.Forms.RichTextBox() Me.lblOffert = New System.Windows.Forms.TextBox() @@ -35,29 +35,31 @@ Partial Class usrCntlOfferte Me.cbxSperreSetzen = New System.Windows.Forms.CheckBox() Me.Label36 = New System.Windows.Forms.Label() Me.Label67 = New System.Windows.Forms.Label() - Me.Button1 = New System.Windows.Forms.Button() - Me.btn = New System.Windows.Forms.Button() + Me.btnDeleteLeistung = New System.Windows.Forms.Button() + Me.btnAddLeistung = New System.Windows.Forms.Button() Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.btnOfferteSpeichern = New System.Windows.Forms.Button() - Me.Button2 = New System.Windows.Forms.Button() + Me.btnHinzufuegen = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.pnlSperre = New System.Windows.Forms.Panel() Me.txtSperreDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtSperreGrund = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblLeistunAddErr = New System.Windows.Forms.Label() - Me.cboLeistungenAdd = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.sbLeistungAdd = New VERAG_PROG_ALLGEMEIN.MySearchBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label2 = New System.Windows.Forms.Label() Me.lblLeistunAddErr2 = New System.Windows.Forms.Label() Me.pnlEdit = New System.Windows.Forms.Panel() - Me.Label3 = New System.Windows.Forms.Label() - 'Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.cboLeistungenAdd = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnStandardLaden = New System.Windows.Forms.Button() + Me.btnDeleteOfferte = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.sbLeistungAdd = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.fbtnBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnCreateOffert = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cbxArchivierteOfferten = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxArchivierteOffertenAnzeigen = New System.Windows.Forms.CheckBox() CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit() Me.cntxtAddSdl.SuspendLayout() @@ -114,8 +116,8 @@ Partial Class usrCntlOfferte Me.dgvOfferteDetails.AllowUserToDeleteRows = False Me.dgvOfferteDetails.AllowUserToOrderColumns = True Me.dgvOfferteDetails.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -135,8 +137,8 @@ Partial Class usrCntlOfferte Me.dgvOfferte.AllowUserToDeleteRows = False Me.dgvOfferte.AllowUserToOrderColumns = True Me.dgvOfferte.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOfferte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White @@ -198,31 +200,31 @@ Partial Class usrCntlOfferte Me.Label67.TabIndex = 3 Me.Label67.Text = "Datum:" ' - 'Button1 + 'btnDeleteLeistung ' - Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.del - Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(348, 226) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(28, 23) - Me.Button1.TabIndex = 8 - Me.Button1.UseVisualStyleBackColor = True - Me.Button1.Visible = False + Me.btnDeleteLeistung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnDeleteLeistung.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDeleteLeistung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDeleteLeistung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteLeistung.Location = New System.Drawing.Point(348, 226) + Me.btnDeleteLeistung.Name = "btnDeleteLeistung" + Me.btnDeleteLeistung.Size = New System.Drawing.Size(28, 23) + Me.btnDeleteLeistung.TabIndex = 8 + Me.btnDeleteLeistung.UseVisualStyleBackColor = True + Me.btnDeleteLeistung.Visible = False ' - 'btn + 'btnAddLeistung ' - Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.plus - Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(375, 226) - Me.btn.Name = "btn" - Me.btn.Size = New System.Drawing.Size(28, 23) - Me.btn.TabIndex = 9 - Me.btn.UseVisualStyleBackColor = True - Me.btn.Visible = False + Me.btnAddLeistung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnAddLeistung.BackgroundImage = Global.SDL.My.Resources.Resources.plus + Me.btnAddLeistung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAddLeistung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAddLeistung.Location = New System.Drawing.Point(375, 226) + Me.btnAddLeistung.Name = "btnAddLeistung" + Me.btnAddLeistung.Size = New System.Drawing.Size(28, 23) + Me.btnAddLeistung.TabIndex = 9 + Me.btnAddLeistung.UseVisualStyleBackColor = True + Me.btnAddLeistung.Visible = False ' 'cntxtAddSdl ' @@ -251,20 +253,20 @@ Partial Class usrCntlOfferte Me.btnOfferteSpeichern.Text = "Speichern" Me.btnOfferteSpeichern.UseVisualStyleBackColor = True ' - 'Button2 + 'btnHinzufuegen ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.ForeColor = System.Drawing.Color.Black - Me.Button2.Image = Global.SDL.My.Resources.Resources.plus - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.TopLeft - Me.Button2.Location = New System.Drawing.Point(235, 1) - Me.Button2.Name = "Button2" - Me.Button2.Size = New System.Drawing.Size(106, 36) - Me.Button2.TabIndex = 14 - Me.Button2.Tag = "" - Me.Button2.Text = "Hinzufügen" - Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.UseVisualStyleBackColor = True + Me.btnHinzufuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnHinzufuegen.ForeColor = System.Drawing.Color.Black + Me.btnHinzufuegen.Image = Global.SDL.My.Resources.Resources.plus + Me.btnHinzufuegen.ImageAlign = System.Drawing.ContentAlignment.TopLeft + Me.btnHinzufuegen.Location = New System.Drawing.Point(235, 1) + Me.btnHinzufuegen.Name = "btnHinzufuegen" + Me.btnHinzufuegen.Size = New System.Drawing.Size(106, 36) + Me.btnHinzufuegen.TabIndex = 14 + Me.btnHinzufuegen.Tag = "" + Me.btnHinzufuegen.Text = "Hinzufügen" + Me.btnHinzufuegen.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnHinzufuegen.UseVisualStyleBackColor = True ' 'Label1 ' @@ -295,10 +297,12 @@ Partial Class usrCntlOfferte Me.txtSperreDat._DateTimeOnly = False Me.txtSperreDat._numbersOnly = False Me.txtSperreDat._numbersOnlyKommastellen = "" + Me.txtSperreDat._numbersOnlyTrennzeichen = True Me.txtSperreDat._Prozent = False Me.txtSperreDat._ShortDateNew = False Me.txtSperreDat._ShortDateOnly = False Me.txtSperreDat._TimeOnly = False + Me.txtSperreDat._TimeOnly_Seconds = False Me.txtSperreDat._value = Nothing Me.txtSperreDat._Waehrung = False Me.txtSperreDat._WaehrungZeichen = True @@ -319,10 +323,12 @@ Partial Class usrCntlOfferte Me.txtSperreGrund._DateTimeOnly = False Me.txtSperreGrund._numbersOnly = False Me.txtSperreGrund._numbersOnlyKommastellen = "" + Me.txtSperreGrund._numbersOnlyTrennzeichen = True Me.txtSperreGrund._Prozent = False Me.txtSperreGrund._ShortDateNew = False Me.txtSperreGrund._ShortDateOnly = False Me.txtSperreGrund._TimeOnly = False + Me.txtSperreGrund._TimeOnly_Seconds = False Me.txtSperreGrund._value = Nothing Me.txtSperreGrund._Waehrung = False Me.txtSperreGrund._WaehrungZeichen = True @@ -348,95 +354,6 @@ Partial Class usrCntlOfferte Me.lblLeistunAddErr.Text = "Auswahl!" Me.lblLeistunAddErr.Visible = False ' - 'cboLeistungenAdd - ' - Me.cboLeistungenAdd._allowedValuesFreiText = Nothing - Me.cboLeistungenAdd._allowFreiText = False - Me.cboLeistungenAdd._value = "" - Me.cboLeistungenAdd.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboLeistungenAdd.DropDownWidth = 350 - Me.cboLeistungenAdd.FormattingEnabled = True - Me.cboLeistungenAdd.Location = New System.Drawing.Point(6, 16) - Me.cboLeistungenAdd.Name = "cboLeistungenAdd" - Me.cboLeistungenAdd.Size = New System.Drawing.Size(47, 21) - Me.cboLeistungenAdd.TabIndex = 12 - ' - 'sbLeistungAdd - ' - Me.sbLeistungAdd._allowFreitext = False - Me.sbLeistungAdd._AllowSetValue = False - Me.sbLeistungAdd._autoSizeGross = False - Me.sbLeistungAdd._hideIfListEmpty = True - Me.sbLeistungAdd._value = Nothing - Me.sbLeistungAdd.conn_art = "FMZOLL" - Me.sbLeistungAdd.dgvpos = "LEFT" - Me.sbLeistungAdd.DISPLAY_PARAM = Nothing - Me.sbLeistungAdd.INVISIBLE_COLUMNS = Nothing - Me.sbLeistungAdd.key_visible = False - Me.sbLeistungAdd.KEYPARAM = Nothing - Me.sbLeistungAdd.Location = New System.Drawing.Point(348, 255) - Me.sbLeistungAdd.Name = "sbLeistungAdd" - Me.sbLeistungAdd.searchActive = True - Me.sbLeistungAdd.Size = New System.Drawing.Size(223, 20) - Me.sbLeistungAdd.SQL_ORDER_BY = Nothing - Me.sbLeistungAdd.SQL_SELECT = Nothing - Me.sbLeistungAdd.SQL_WHERE = Nothing - Me.sbLeistungAdd.SQL_WhereParamList = Nothing - Me.sbLeistungAdd.TabIndex = 6 - Me.sbLeistungAdd.usrcntl = Nothing - Me.sbLeistungAdd.Visible = False - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.stift - Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Location = New System.Drawing.Point(861, 10) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(20, 20) - Me.FlatButton2.TabIndex = 3 - Me.FlatButton2.UseVisualStyleBackColor = True - Me.FlatButton2.Visible = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.Resources.stift - Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Location = New System.Drawing.Point(208, 10) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(20, 20) - Me.FlatButton1.TabIndex = 1 - Me.FlatButton1.UseVisualStyleBackColor = True - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._value = Nothing - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(52, 16) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(177, 21) - Me.MyTextBox1.TabIndex = 13 - ' 'Label2 ' Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -469,7 +386,7 @@ Partial Class usrCntlOfferte Me.pnlEdit.Controls.Add(Me.cbxAutoFakturierung) Me.pnlEdit.Controls.Add(Me.Label3) Me.pnlEdit.Controls.Add(Me.Label1) - Me.pnlEdit.Controls.Add(Me.Button2) + Me.pnlEdit.Controls.Add(Me.btnHinzufuegen) Me.pnlEdit.Controls.Add(Me.lblLeistunAddErr2) Me.pnlEdit.Controls.Add(Me.lblLeistunAddErr) Me.pnlEdit.Controls.Add(Me.btnOfferteSpeichern) @@ -480,39 +397,6 @@ Partial Class usrCntlOfferte Me.pnlEdit.Size = New System.Drawing.Size(646, 60) Me.pnlEdit.TabIndex = 20 ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.ForeColor = System.Drawing.Color.Red - Me.Label3.Location = New System.Drawing.Point(55, 40) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(110, 13) - Me.Label3.TabIndex = 17 - Me.Label3.Text = "Zuerst Offert anlegen!" - Me.Label3.Visible = False - ' - 'CheckVatService1 - ' - 'Me.CheckVatService1.Credentials = Nothing - 'Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService" - 'Me.CheckVatService1.UseDefaultCredentials = False - ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.BackgroundImage = Global.SDL.My.Resources.Resources.del_small - Me.FlatButton3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.FlatButton3.FlatAppearance.BorderSize = 0 - Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Location = New System.Drawing.Point(182, 9) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(20, 20) - Me.FlatButton3.TabIndex = 21 - Me.FlatButton3.UseVisualStyleBackColor = True - Me.FlatButton3.Visible = False - ' 'cbxAutoFakturierung ' Me.cbxAutoFakturierung.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -525,19 +409,173 @@ Partial Class usrCntlOfferte Me.cbxAutoFakturierung.Text = "AUTO Fakturierung" Me.cbxAutoFakturierung.UseVisualStyleBackColor = True ' - 'c + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.Red + Me.Label3.Location = New System.Drawing.Point(55, 40) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(110, 13) + Me.Label3.TabIndex = 17 + Me.Label3.Text = "Zuerst Offert anlegen!" + Me.Label3.Visible = False + ' + 'cboLeistungenAdd + ' + Me.cboLeistungenAdd._allowedValuesFreiText = Nothing + Me.cboLeistungenAdd._allowFreiText = False + Me.cboLeistungenAdd._value = "" + Me.cboLeistungenAdd.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboLeistungenAdd.DropDownWidth = 350 + Me.cboLeistungenAdd.FormattingEnabled = True + Me.cboLeistungenAdd.Location = New System.Drawing.Point(6, 16) + Me.cboLeistungenAdd.Name = "cboLeistungenAdd" + Me.cboLeistungenAdd.Size = New System.Drawing.Size(47, 21) + Me.cboLeistungenAdd.TabIndex = 12 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = Nothing + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(52, 16) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(177, 21) + Me.MyTextBox1.TabIndex = 13 + ' + 'btnStandardLaden + ' + Me.btnStandardLaden.Location = New System.Drawing.Point(287, 6) + Me.btnStandardLaden.Name = "btnStandardLaden" + Me.btnStandardLaden.Size = New System.Drawing.Size(154, 23) + Me.btnStandardLaden.TabIndex = 23 + Me.btnStandardLaden.Text = "Standardoffert laden" + Me.btnStandardLaden.UseVisualStyleBackColor = True + Me.btnStandardLaden.Visible = False + ' + 'btnDeleteOfferte + ' + Me.btnDeleteOfferte.allowBorder = False + Me.btnDeleteOfferte.BackgroundImage = Global.SDL.My.Resources.Resources.del_small + Me.btnDeleteOfferte.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDeleteOfferte.FlatAppearance.BorderSize = 0 + Me.btnDeleteOfferte.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDeleteOfferte.ForeColor = System.Drawing.Color.Black + Me.btnDeleteOfferte.Location = New System.Drawing.Point(182, 9) + Me.btnDeleteOfferte.Name = "btnDeleteOfferte" + Me.btnDeleteOfferte.Size = New System.Drawing.Size(20, 20) + Me.btnDeleteOfferte.TabIndex = 21 + Me.btnDeleteOfferte.UseVisualStyleBackColor = True + Me.btnDeleteOfferte.Visible = False + ' + 'sbLeistungAdd + ' + Me.sbLeistungAdd._allowFreitext = False + Me.sbLeistungAdd._AllowSetValue = False + Me.sbLeistungAdd._allowSpaceAsSplitter = False + Me.sbLeistungAdd._autoSizeGross = False + Me.sbLeistungAdd._hideIfListEmpty = True + Me.sbLeistungAdd._value = Nothing + Me.sbLeistungAdd.conn_art = "FMZOLL" + Me.sbLeistungAdd.dgvpos = "LEFT" + Me.sbLeistungAdd.DISPLAY_PARAM = Nothing + Me.sbLeistungAdd.INVISIBLE_COLUMNS = Nothing + Me.sbLeistungAdd.key_visible = False + Me.sbLeistungAdd.KEYPARAM = Nothing + Me.sbLeistungAdd.Location = New System.Drawing.Point(348, 255) + Me.sbLeistungAdd.Name = "sbLeistungAdd" + Me.sbLeistungAdd.searchActive = True + Me.sbLeistungAdd.Size = New System.Drawing.Size(223, 20) + Me.sbLeistungAdd.SQL_ORDER_BY = Nothing + Me.sbLeistungAdd.SQL_SELECT = Nothing + Me.sbLeistungAdd.SQL_WHERE = Nothing + Me.sbLeistungAdd.SQL_WhereParamList = Nothing + Me.sbLeistungAdd.TabIndex = 6 + Me.sbLeistungAdd.usrcntl = Nothing + Me.sbLeistungAdd.Visible = False + ' + 'fbtnBearbeiten + ' + Me.fbtnBearbeiten.allowBorder = False + Me.fbtnBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.stift + Me.fbtnBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.fbtnBearbeiten.FlatAppearance.BorderSize = 0 + Me.fbtnBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.fbtnBearbeiten.ForeColor = System.Drawing.Color.Black + Me.fbtnBearbeiten.Location = New System.Drawing.Point(860, 7) + Me.fbtnBearbeiten.Name = "fbtnBearbeiten" + Me.fbtnBearbeiten.Size = New System.Drawing.Size(20, 20) + Me.fbtnBearbeiten.TabIndex = 3 + Me.fbtnBearbeiten.UseVisualStyleBackColor = True + Me.fbtnBearbeiten.Visible = False + ' + 'btnCreateOffert + ' + Me.btnCreateOffert.allowBorder = False + Me.btnCreateOffert.BackgroundImage = Global.SDL.My.Resources.Resources.stift + Me.btnCreateOffert.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnCreateOffert.FlatAppearance.BorderSize = 0 + Me.btnCreateOffert.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnCreateOffert.ForeColor = System.Drawing.Color.Black + Me.btnCreateOffert.Location = New System.Drawing.Point(208, 10) + Me.btnCreateOffert.Name = "btnCreateOffert" + Me.btnCreateOffert.Size = New System.Drawing.Size(20, 20) + Me.btnCreateOffert.TabIndex = 1 + Me.btnCreateOffert.UseVisualStyleBackColor = True + ' + 'cbxArchivierteOfferten + ' + Me.cbxArchivierteOfferten._allowedValuesFreiText = Nothing + Me.cbxArchivierteOfferten._allowFreiText = False + Me.cbxArchivierteOfferten._value = "" + Me.cbxArchivierteOfferten.FormattingEnabled = True + Me.cbxArchivierteOfferten.Location = New System.Drawing.Point(705, 8) + Me.cbxArchivierteOfferten.Name = "cbxArchivierteOfferten" + Me.cbxArchivierteOfferten.Size = New System.Drawing.Size(121, 21) + Me.cbxArchivierteOfferten.TabIndex = 24 + Me.cbxArchivierteOfferten.Visible = False + ' + 'cbxArchivierteOffertenAnzeigen + ' + Me.cbxArchivierteOffertenAnzeigen.AutoSize = True + Me.cbxArchivierteOffertenAnzeigen.Location = New System.Drawing.Point(514, 10) + Me.cbxArchivierteOffertenAnzeigen.Name = "cbxArchivierteOffertenAnzeigen" + Me.cbxArchivierteOffertenAnzeigen.Size = New System.Drawing.Size(162, 17) + Me.cbxArchivierteOffertenAnzeigen.TabIndex = 25 + Me.cbxArchivierteOffertenAnzeigen.Text = "archivierte Offerten anzeigen" + Me.cbxArchivierteOffertenAnzeigen.UseVisualStyleBackColor = True + ' + 'usrCntlOfferte ' 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.FlatButton3) + Me.Controls.Add(Me.cbxArchivierteOffertenAnzeigen) + Me.Controls.Add(Me.cbxArchivierteOfferten) + Me.Controls.Add(Me.btnStandardLaden) + Me.Controls.Add(Me.btnDeleteOfferte) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.pnlSperre) Me.Controls.Add(Me.sbLeistungAdd) - Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.btn) - Me.Controls.Add(Me.FlatButton2) - Me.Controls.Add(Me.FlatButton1) + Me.Controls.Add(Me.btnDeleteLeistung) + Me.Controls.Add(Me.btnAddLeistung) + Me.Controls.Add(Me.fbtnBearbeiten) + Me.Controls.Add(Me.btnCreateOffert) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.lblBesonderheiten) Me.Controls.Add(Me.rtbBesonderheiten) @@ -546,7 +584,7 @@ Partial Class usrCntlOfferte Me.Controls.Add(Me.dgvOfferte) Me.Controls.Add(Me.pnlEdit) Me.Margin = New System.Windows.Forms.Padding(2) - Me.Name = "c" + Me.Name = "usrCntlOfferte" Me.Size = New System.Drawing.Size(891, 574) CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).EndInit() @@ -565,20 +603,20 @@ Partial Class usrCntlOfferte Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents dgvOfferteDetails As System.Windows.Forms.DataGridView Friend WithEvents dgvOfferte As System.Windows.Forms.DataGridView - Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents FlatButton2 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnCreateOffert As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents fbtnBearbeiten As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents FlatButton5 As Button Friend WithEvents txtSperreGrund As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtSperreDat As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cbxSperreSetzen As CheckBox Friend WithEvents Label36 As Label Friend WithEvents Label67 As Label - Friend WithEvents Button1 As Button - Friend WithEvents btn As Button + Friend WithEvents btnDeleteLeistung As Button + Friend WithEvents btnAddLeistung As Button Friend WithEvents cntxtAddSdl As ContextMenuStrip Friend WithEvents DToolStripMenuItem As ToolStripMenuItem Friend WithEvents btnOfferteSpeichern As Button - Friend WithEvents Button2 As Button + Friend WithEvents btnHinzufuegen As Button Friend WithEvents Label1 As Label Friend WithEvents sbLeistungAdd As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents pnlSperre As Panel @@ -590,6 +628,9 @@ Partial Class usrCntlOfferte Friend WithEvents pnlEdit As Panel ' Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService Friend WithEvents Label3 As Label - Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnDeleteOfferte As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents cbxAutoFakturierung As CheckBox + Friend WithEvents btnStandardLaden As Button + Friend WithEvents cbxArchivierteOfferten As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxArchivierteOffertenAnzeigen As CheckBox End Class diff --git a/SDL/kunden/usrCntlOfferte.resx b/SDL/kunden/usrCntlOfferte.resx index 9d199e03..6a2661ff 100644 --- a/SDL/kunden/usrCntlOfferte.resx +++ b/SDL/kunden/usrCntlOfferte.resx @@ -120,7 +120,4 @@ 17, 17 - - 135, 17 - \ No newline at end of file diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index bc680096..11b889ff 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -1,4 +1,7 @@ -Public Class usrCntlOfferte +Imports System.Web.UI.WebControls.Expressions +Imports DocumentFormat.OpenXml.Presentation + +Public Class usrCntlOfferte Dim FUNC As New cProgramFunctions Public kdNr As Integer = -1 @@ -6,9 +9,13 @@ Public KD_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert Public Event OfferteChanged() + Dim OFFERTEBind As cEasyBinding Dim table Public BIND_DB = "FMZOLL" + Dim tmpDataTable As New DataTable + Dim currentOffert As VERAG_PROG_ALLGEMEIN.cOfferte + Dim edit As Boolean Dim loaded = False @@ -25,9 +32,10 @@ Public Sub init(kdNr) Me.kdNr = kdNr initDGVOfferte() - + edit = False KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung + End Sub Sub initDGVOfferte() dgvOfferteDetails.Columns.Clear() @@ -91,7 +99,11 @@ Else For Each c As DataGridViewColumn In .Columns If (c.Name = "Preis" Or c.Name = "LeistungsBez" Or c.Name = "Anzahl" Or c.Name = "BerechnungsartNr" Or c.Name = "BerechnungsartPosInkludiert") Then - c.ReadOnly = False + If edit Then + c.ReadOnly = False + Else + c.ReadOnly = True + End If Else c.ReadOnly = True End If @@ -171,14 +183,20 @@ If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then pnlEdit.Visible = False pnlSperre.Visible = False - FlatButton1.Visible = False + btnCreateOffert.Visible = False dgvOfferte.ReadOnly = True + fbtnBearbeiten.Visible = False + btnStandardLaden.Visible = False Else dgvOfferteDetails.AllowUserToAddRows = True dgvOfferteDetails.AllowUserToDeleteRows = True dgvOfferteDetails.RowHeadersVisible = True + fbtnBearbeiten.Visible = True + btnStandardLaden.Visible = True + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_LOESCHEN", "SDL") Then - FlatButton3.Visible = True + btnDeleteOfferte.Visible = True End If End If @@ -194,15 +212,16 @@ End Sub - Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click + Private Sub btnCreateOffert_Click(sender As Object, e As EventArgs) Handles btnCreateOffert.Click Dim f As New frmOffertenBearbeiten(kdNr) If f.ShowDialog() = DialogResult.OK Then initDGVOfferte() RaiseEvent OfferteChanged() + dgvOfferte.Enabled = True End If End Sub - Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Private Sub btnAddLeistung_Click(sender As Object, e As EventArgs) Handles btnAddLeistung.Click Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offertenpositionen where KundenNr=" & kdNr & " and [Offertenpositionen].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," & @@ -222,7 +241,7 @@ - btn.ContextMenuStrip = cntxtAddSdl + btnAddLeistung.ContextMenuStrip = cntxtAddSdl ' cntxtAddSdl Dim ptLowerLeft As New Point(sender.width, sender.Height) ptLowerLeft = sender.PointToScreen(ptLowerLeft) @@ -241,15 +260,8 @@ End Sub - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click - KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked - KD_ERW.SAVE() - OFFERTEBind.updateBinding() - RaiseEvent OfferteChanged() - End Sub - - Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click + Private Sub btnHinzufuegen_Click_1(sender As Object, e As EventArgs) Handles btnHinzufuegen.Click lblLeistunAddErr.Visible = False lblLeistunAddErr2.Visible = False Label3.Visible = False @@ -294,7 +306,7 @@ Private Sub cboLeistungenAdd_KeyDown(sender As Object, e As KeyEventArgs) Handles cboLeistungenAdd.KeyDown, MyTextBox1.KeyDown If e.KeyCode = Keys.Return Then - Button2.PerformClick() + btnHinzufuegen.PerformClick() End If End Sub @@ -315,7 +327,7 @@ End Sub - Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click + Private Sub btnDeleteOfferte_Click(sender As Object, e As EventArgs) Handles btnDeleteOfferte.Click If dgvOfferte.SelectedRows.Count = 1 Then If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferte.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then @@ -325,4 +337,74 @@ End If End If End Sub + + Private Sub btnOfferteSpeichern_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click + KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked + KD_ERW.SAVE() + edit = False + dgvOfferte.Enabled = True + + OFFERTEBind.updateBinding() + RaiseEvent OfferteChanged() + End Sub + + Private Sub fbtnBearbeiten_Click(sender As Object, e As EventArgs) Handles fbtnBearbeiten.Click + + edit = True + dgvOfferte.Enabled = False + + currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value, True) + tmpDataTable = dgvOfferteDetails.DataSource + + End Sub + + Private Sub OffertenArchivieren() + + If currentOffert.SAVETOARCHIVE() Then + For Each row As DataRow In tmpDataTable.Rows + Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPosition + oP.KundenNr = currentOffert.KundenNr + oP.LeistungsNr = row("LeistungsNr") + oP.LeistungsBez = row("LeistungsBez") + oP.OffertenNr = currentOffert.OffertenNr + oP.BerechnungsartNr = row("BerechnungsartNr") + oP.Preis = row("Preis") + oP.Anzahl = row("Anzahl") + oP.BGebLeistungsNr = row("BGebLeistungsNr") + oP.BGebProzent = row("BGebProzent") + oP.BGebMinBetrag = row("BGebMinBetrag") + oP.Eingegeben_am = row("Eingegeben am") + oP.Geändert_am = row("Geändert am") + oP.Sachbearbeiter = row("Sachbearbeiter") + oP.Preisänderung = row("Preisänderung") + oP.PreisänderungProzent = row("PreisänderungProzent") + oP.PreisAlt = row("PreisAlt") + oP.BerechnungsartPosInkludiert = row("BerechnungsartPosInkludiert") + oP.INSERTTOARCHIVE() + Next + + End If + + End Sub + + Private Sub btnStandardLaden_Click(sender As Object, e As EventArgs) Handles btnStandardLaden.Click + edit = True + dgvOfferte.Enabled = False + currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferte.SelectedRows(0).Cells("OffertenNr").Value, True) + tmpDataTable = dgvOfferteDetails.DataSource + + + End Sub + + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxArchivierteOfferten.SelectedIndexChanged + + End Sub + + Private Sub cbxArchivierteOffertenAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxArchivierteOffertenAnzeigen.CheckedChanged + If cbxArchivierteOffertenAnzeigen.Checked Then + cbxArchivierteOfferten.Visible = True + Else + cbxArchivierteOfferten.Visible = False + End If + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb index a17255a4..5672150f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb @@ -77,7 +77,7 @@ Public Class cOfferte Property Gesperrt As Object = Nothing Property Gesperrt_Datum As Object = Nothing Property Gesperrt_Grund As Object = Nothing - + Property SSMA_TimeStamp As Object = Nothing Property POSITIONEN As New List(Of cOffertPosition) '= Nothing Dim SQL As New SQL @@ -304,6 +304,40 @@ Public Class cOfferte End Function + + Public Function SAVETOARCHIVE() As Boolean + + Dim sqlstr = "BEGIN TRAN " & + "BEGIN " & getInsertToArchiveCmd() & " END " & + " commit tran " + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp)) + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Function getInsertToArchiveCmd() As String + Try + Me.Eingegeben_am = Now + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOffertenArchiv (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + End Class @@ -325,6 +359,7 @@ Public Class cOffertPosition Property PreisänderungProzent As Object = Nothing Property PreisAlt As Object = Nothing Property BerechnungsartPosInkludiert As Object = Nothing + Property SSMA_TimeStamp As Object = Nothing Dim SQL As New SQL @@ -360,6 +395,13 @@ Public Class cOffertPosition Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list) End Function + + Public Function INSERTTOARCHIVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SSMA_TimeStamp", SSMA_TimeStamp)) + Return SQL.doSQLVarList(getInsertToArchiveCmd, "FMZOLL", , list) + End Function + Public Function getInsertCmd() As String Try Me.Eingegeben_am = Now @@ -380,4 +422,27 @@ Public Class cOffertPosition End Try Return "" End Function + + + Public Function getInsertToArchiveCmd() As String + Try + Me.Eingegeben_am = Now + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOffertenPositionenArchiv (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + End Class