From 3a6ba317561dbf3cbb354a7d424cc8f50c7eadd6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Aug 2024 13:48:42 +0200 Subject: [PATCH] Vollmachten --- .../usrcntlVollmacht_MDM_BHI.Designer.vb | 853 ++++++++++++ ...PDF.resx => usrcntlVollmacht_MDM_BHI.resx} | 0 ...MDM_PDF.vb => usrcntlVollmacht_MDM_BHI.vb} | 36 +- ...vb => usrcntlVollmacht_MDM_EU.Designer.vb} | 326 ++++- ...Word.resx => usrcntlVollmacht_MDM_EU.resx} | 0 ...MDM_Word.vb => usrcntlVollmacht_MDM_EU.vb} | 51 +- ...usrcntlVollmacht_MDM_NICHT_EU.Designer.vb} | 314 +++-- .../usrcntlVollmacht_MDM_NICHT_EU.resx | 120 ++ .../usrcntlVollmacht_MDM_NICHT_EU.vb | 148 ++ SDL/Formulare/KDFormulare/frmFormulare.vb | 212 ++- SDL/SDL.vbproj | 29 +- SDL/kunden/Vorauskasse/frmVorauskasse.vb | 25 +- .../frmKundenKontakteDetails.Designer.vb | 184 ++- SDL/kunden/frmKundenKontakteDetails.resx | 135 ++ SDL/kunden/frmKundenKontakteDetails.vb | 18 +- SDL/kunden/frmKundenblatt.Designer.vb | 1189 ++++++++--------- SDL/kunden/frmKundenblatt.vb | 8 +- SDL/kunden/usrCntlOfferte.vb | 701 +++++----- .../usrcntlKundeBearbeitenFull.Designer.vb | 474 ++++--- SDL/kunden/usrcntlKundeBearbeitenFull.vb | 26 +- .../Classes/cKundenErweitert.vb | 6 + .../Classes/cKundenKontakte.vb | 12 + .../Messenger/frmMessenger.Designer.vb | 14 +- .../Messenger/frmMessenger.vb | 10 + .../ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb | 2 +- 25 files changed, 3526 insertions(+), 1367 deletions(-) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.Designer.vb rename SDL/Formulare/KDFormulare/FormulareBaukasten/{usrcntlVollmacht_MDM_PDF.resx => usrcntlVollmacht_MDM_BHI.resx} (100%) rename SDL/Formulare/KDFormulare/FormulareBaukasten/{usrcntlVollmacht_MDM_PDF.vb => usrcntlVollmacht_MDM_BHI.vb} (81%) rename SDL/Formulare/KDFormulare/FormulareBaukasten/{usrcntlVollmacht_MDM_PDF.Designer.vb => usrcntlVollmacht_MDM_EU.Designer.vb} (70%) rename SDL/Formulare/KDFormulare/FormulareBaukasten/{usrcntlVollmacht_MDM_Word.resx => usrcntlVollmacht_MDM_EU.resx} (100%) rename SDL/Formulare/KDFormulare/FormulareBaukasten/{usrcntlVollmacht_MDM_Word.vb => usrcntlVollmacht_MDM_EU.vb} (82%) rename SDL/Formulare/KDFormulare/FormulareBaukasten/{usrcntlVollmacht_MDM_Word.Designer.vb => usrcntlVollmacht_MDM_NICHT_EU.Designer.vb} (75%) create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.resx create mode 100644 SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.Designer.vb new file mode 100644 index 00000000..0634a1c2 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.Designer.vb @@ -0,0 +1,853 @@ + +Partial Class usrcntlVollmacht_MDM_BHI + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.btn = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtHRNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.pic = New System.Windows.Forms.PictureBox() + Me.lblVollmacht = New System.Windows.Forms.Label() + Me.btnDown = New System.Windows.Forms.Button() + Me.btnUp = New System.Windows.Forms.Button() + Me.btnDel = New System.Windows.Forms.Button() + Me.Label12 = New System.Windows.Forms.Label() + Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblHerrFrau = New System.Windows.Forms.Label() + Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.datDatum = New System.Windows.Forms.DateTimePicker() + Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblGFGebDat = New System.Windows.Forms.Label() + Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.txt_GF_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbx_GF_Land = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label16 = New System.Windows.Forms.Label() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(155, 50) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(78, 13) + Me.lbl.TabIndex = 6 + Me.lbl.Text = "Firmenwortlaut:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(155, 69) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 11 + Me.Label1.Text = "Adresse:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(168, 120) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(43, 13) + Me.Label2.TabIndex = 14 + Me.Label2.Text = "UID-Nr:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(585, 120) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(43, 13) + Me.Label3.TabIndex = 16 + Me.Label3.Text = "HR.-Nr:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(585, 158) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(27, 13) + Me.Label4.TabIndex = 20 + Me.Label4.Text = "Fax:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(168, 139) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(28, 13) + Me.Label5.TabIndex = 18 + Me.Label5.Text = "Tel.:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(168, 158) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(39, 13) + Me.Label6.TabIndex = 22 + Me.Label6.Text = "E-Mail:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(587, 284) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(24, 13) + Me.Label7.TabIndex = 26 + Me.Label7.Text = "Ort:" + ' + 'btn + ' + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(934, 47) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(26, 20) + Me.btn.TabIndex = 8 + Me.btn.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(559, 12) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(88, 13) + Me.Label8.TabIndex = 2 + Me.Label8.Text = "Ansprechpartner:" + ' + 'txtAnsprechpartner + ' + Me.txtAnsprechpartner._DateTimeOnly = False + Me.txtAnsprechpartner._numbersOnly = False + Me.txtAnsprechpartner._numbersOnlyKommastellen = "" + Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True + Me.txtAnsprechpartner._Prozent = False + Me.txtAnsprechpartner._ShortDateNew = False + Me.txtAnsprechpartner._ShortDateOnly = False + Me.txtAnsprechpartner._TimeOnly = False + Me.txtAnsprechpartner._TimeOnly_Seconds = False + Me.txtAnsprechpartner._value = Nothing + Me.txtAnsprechpartner._Waehrung = False + Me.txtAnsprechpartner._WaehrungZeichen = True + Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black + Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9) + Me.txtAnsprechpartner.MaxLineLength = -1 + Me.txtAnsprechpartner.MaxLines_Warning = "" + Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing + Me.txtAnsprechpartner.Name = "txtAnsprechpartner" + Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20) + Me.txtAnsprechpartner.TabIndex = 3 + ' + 'txtOrt + ' + Me.txtOrt._DateTimeOnly = False + Me.txtOrt._numbersOnly = False + Me.txtOrt._numbersOnlyKommastellen = "" + Me.txtOrt._numbersOnlyTrennzeichen = True + Me.txtOrt._Prozent = False + Me.txtOrt._ShortDateNew = False + Me.txtOrt._ShortDateOnly = False + Me.txtOrt._TimeOnly = False + Me.txtOrt._TimeOnly_Seconds = False + Me.txtOrt._value = Nothing + Me.txtOrt._Waehrung = False + Me.txtOrt._WaehrungZeichen = True + Me.txtOrt.Enabled = False + Me.txtOrt.ForeColor = System.Drawing.Color.Black + Me.txtOrt.Location = New System.Drawing.Point(653, 281) + Me.txtOrt.MaxLineLength = -1 + Me.txtOrt.MaxLines_Warning = "" + Me.txtOrt.MaxLines_Warning_Label = Nothing + Me.txtOrt.Name = "txtOrt" + Me.txtOrt.Size = New System.Drawing.Size(109, 20) + Me.txtOrt.TabIndex = 27 + ' + 'txtEmail + ' + Me.txtEmail._DateTimeOnly = False + Me.txtEmail._numbersOnly = False + Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._numbersOnlyTrennzeichen = True + Me.txtEmail._Prozent = False + Me.txtEmail._ShortDateNew = False + Me.txtEmail._ShortDateOnly = False + Me.txtEmail._TimeOnly = False + Me.txtEmail._TimeOnly_Seconds = False + Me.txtEmail._value = Nothing + Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True + Me.txtEmail.ForeColor = System.Drawing.Color.Black + Me.txtEmail.Location = New System.Drawing.Point(252, 155) + Me.txtEmail.MaxLineLength = -1 + Me.txtEmail.MaxLines_Warning = "" + Me.txtEmail.MaxLines_Warning_Label = Nothing + Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Size = New System.Drawing.Size(310, 20) + Me.txtEmail.TabIndex = 23 + ' + 'txtFax + ' + Me.txtFax._DateTimeOnly = False + Me.txtFax._numbersOnly = False + Me.txtFax._numbersOnlyKommastellen = "" + Me.txtFax._numbersOnlyTrennzeichen = True + Me.txtFax._Prozent = False + Me.txtFax._ShortDateNew = False + Me.txtFax._ShortDateOnly = False + Me.txtFax._TimeOnly = False + Me.txtFax._TimeOnly_Seconds = False + Me.txtFax._value = Nothing + Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True + Me.txtFax.ForeColor = System.Drawing.Color.Black + Me.txtFax.Location = New System.Drawing.Point(651, 155) + Me.txtFax.MaxLineLength = -1 + Me.txtFax.MaxLines_Warning = "" + Me.txtFax.MaxLines_Warning_Label = Nothing + Me.txtFax.Name = "txtFax" + Me.txtFax.Size = New System.Drawing.Size(310, 20) + Me.txtFax.TabIndex = 21 + ' + 'txtTel + ' + Me.txtTel._DateTimeOnly = False + Me.txtTel._numbersOnly = False + Me.txtTel._numbersOnlyKommastellen = "" + Me.txtTel._numbersOnlyTrennzeichen = True + Me.txtTel._Prozent = False + Me.txtTel._ShortDateNew = False + Me.txtTel._ShortDateOnly = False + Me.txtTel._TimeOnly = False + Me.txtTel._TimeOnly_Seconds = False + Me.txtTel._value = Nothing + Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True + Me.txtTel.ForeColor = System.Drawing.Color.Black + Me.txtTel.Location = New System.Drawing.Point(252, 136) + Me.txtTel.MaxLineLength = -1 + Me.txtTel.MaxLines_Warning = "" + Me.txtTel.MaxLines_Warning_Label = Nothing + Me.txtTel.Name = "txtTel" + Me.txtTel.Size = New System.Drawing.Size(310, 20) + Me.txtTel.TabIndex = 19 + ' + 'txtHRNr + ' + Me.txtHRNr._DateTimeOnly = False + Me.txtHRNr._numbersOnly = False + Me.txtHRNr._numbersOnlyKommastellen = "" + Me.txtHRNr._numbersOnlyTrennzeichen = True + Me.txtHRNr._Prozent = False + Me.txtHRNr._ShortDateNew = False + Me.txtHRNr._ShortDateOnly = False + Me.txtHRNr._TimeOnly = False + Me.txtHRNr._TimeOnly_Seconds = False + Me.txtHRNr._value = Nothing + Me.txtHRNr._Waehrung = False + Me.txtHRNr._WaehrungZeichen = True + Me.txtHRNr.ForeColor = System.Drawing.Color.Black + Me.txtHRNr.Location = New System.Drawing.Point(651, 117) + Me.txtHRNr.MaxLineLength = -1 + Me.txtHRNr.MaxLines_Warning = "" + Me.txtHRNr.MaxLines_Warning_Label = Nothing + Me.txtHRNr.Name = "txtHRNr" + Me.txtHRNr.Size = New System.Drawing.Size(310, 20) + Me.txtHRNr.TabIndex = 17 + ' + 'txtUid + ' + Me.txtUid._DateTimeOnly = False + Me.txtUid._numbersOnly = False + Me.txtUid._numbersOnlyKommastellen = "" + Me.txtUid._numbersOnlyTrennzeichen = True + Me.txtUid._Prozent = False + Me.txtUid._ShortDateNew = False + Me.txtUid._ShortDateOnly = False + Me.txtUid._TimeOnly = False + Me.txtUid._TimeOnly_Seconds = False + Me.txtUid._value = Nothing + Me.txtUid._Waehrung = False + Me.txtUid._WaehrungZeichen = True + Me.txtUid.ForeColor = System.Drawing.Color.Black + Me.txtUid.Location = New System.Drawing.Point(252, 117) + Me.txtUid.MaxLineLength = -1 + Me.txtUid.MaxLines_Warning = "" + Me.txtUid.MaxLines_Warning_Label = Nothing + Me.txtUid.Name = "txtUid" + Me.txtUid.Size = New System.Drawing.Size(310, 20) + Me.txtUid.TabIndex = 15 + ' + 'txtAdresse2 + ' + Me.txtAdresse2._DateTimeOnly = False + Me.txtAdresse2._numbersOnly = False + Me.txtAdresse2._numbersOnlyKommastellen = "" + Me.txtAdresse2._numbersOnlyTrennzeichen = True + Me.txtAdresse2._Prozent = False + Me.txtAdresse2._ShortDateNew = False + Me.txtAdresse2._ShortDateOnly = False + Me.txtAdresse2._TimeOnly = False + Me.txtAdresse2._TimeOnly_Seconds = False + Me.txtAdresse2._value = Nothing + Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True + Me.txtAdresse2.ForeColor = System.Drawing.Color.Black + Me.txtAdresse2.Location = New System.Drawing.Point(362, 85) + Me.txtAdresse2.MaxLineLength = -1 + Me.txtAdresse2.MaxLines_Warning = "" + Me.txtAdresse2.MaxLines_Warning_Label = Nothing + Me.txtAdresse2.Name = "txtAdresse2" + Me.txtAdresse2.Size = New System.Drawing.Size(288, 20) + Me.txtAdresse2.TabIndex = 13 + ' + 'txtAdresse1 + ' + Me.txtAdresse1._DateTimeOnly = False + Me.txtAdresse1._numbersOnly = False + Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._numbersOnlyTrennzeichen = True + Me.txtAdresse1._Prozent = False + Me.txtAdresse1._ShortDateNew = False + Me.txtAdresse1._ShortDateOnly = False + Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._TimeOnly_Seconds = False + Me.txtAdresse1._value = Nothing + Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True + Me.txtAdresse1.ForeColor = System.Drawing.Color.Black + Me.txtAdresse1.Location = New System.Drawing.Point(251, 66) + Me.txtAdresse1.MaxLineLength = -1 + Me.txtAdresse1.MaxLines_Warning = "" + Me.txtAdresse1.MaxLines_Warning_Label = Nothing + Me.txtAdresse1.Name = "txtAdresse1" + Me.txtAdresse1.Size = New System.Drawing.Size(709, 20) + Me.txtAdresse1.TabIndex = 12 + ' + 'txtFirma + ' + Me.txtFirma._DateTimeOnly = False + Me.txtFirma._numbersOnly = False + Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._numbersOnlyTrennzeichen = True + Me.txtFirma._Prozent = False + Me.txtFirma._ShortDateNew = False + Me.txtFirma._ShortDateOnly = False + Me.txtFirma._TimeOnly = False + Me.txtFirma._TimeOnly_Seconds = False + Me.txtFirma._value = Nothing + Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True + Me.txtFirma.ForeColor = System.Drawing.Color.Black + Me.txtFirma.Location = New System.Drawing.Point(251, 47) + Me.txtFirma.MaxLineLength = -1 + Me.txtFirma.MaxLines_Warning = "" + Me.txtFirma.MaxLines_Warning_Label = Nothing + Me.txtFirma.Name = "txtFirma" + Me.txtFirma.Size = New System.Drawing.Size(684, 20) + Me.txtFirma.TabIndex = 7 + ' + 'pic + ' + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pic.Cursor = System.Windows.Forms.Cursors.Hand + Me.pic.Location = New System.Drawing.Point(5, 5) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(32, 32) + Me.pic.TabIndex = 32 + Me.pic.TabStop = False + ' + 'lblVollmacht + ' + Me.lblVollmacht.AutoSize = True + Me.lblVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVollmacht.Location = New System.Drawing.Point(43, 9) + Me.lblVollmacht.Name = "lblVollmacht" + Me.lblVollmacht.Size = New System.Drawing.Size(124, 20) + Me.lblVollmacht.TabIndex = 1 + Me.lblVollmacht.Text = "Vollmacht BHI" + ' + 'btnDown + ' + Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDown.Location = New System.Drawing.Point(976, 42) + Me.btnDown.Name = "btnDown" + Me.btnDown.Size = New System.Drawing.Size(25, 21) + Me.btnDown.TabIndex = 9 + Me.btnDown.UseVisualStyleBackColor = True + ' + 'btnUp + ' + Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUp.Location = New System.Drawing.Point(976, 22) + Me.btnUp.Name = "btnUp" + Me.btnUp.Size = New System.Drawing.Size(25, 21) + Me.btnUp.TabIndex = 4 + Me.btnUp.UseVisualStyleBackColor = True + ' + 'btnDel + ' + Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(976, -1) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(25, 21) + Me.btnDel.TabIndex = 0 + Me.btnDel.UseVisualStyleBackColor = True + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(3, 64) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(49, 13) + Me.Label12.TabIndex = 5 + Me.Label12.Text = "für Land:" + ' + 'cboLand + ' + Me.cboLand._allowedValuesFreiText = Nothing + Me.cboLand._allowFreiText = False + Me.cboLand._value = "" + Me.cboLand.FormattingEnabled = True + Me.cboLand.Location = New System.Drawing.Point(6, 80) + Me.cboLand.Name = "cboLand" + Me.cboLand.Size = New System.Drawing.Size(89, 21) + Me.cboLand.TabIndex = 10 + ' + 'cbxLandKz + ' + Me.cbxLandKz._allowedValuesFreiText = Nothing + Me.cbxLandKz._allowFreiText = False + Me.cbxLandKz._value = "" + Me.cbxLandKz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbxLandKz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxLandKz.DropDownWidth = 200 + Me.cbxLandKz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbxLandKz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxLandKz.FormattingEnabled = True + Me.cbxLandKz.Location = New System.Drawing.Point(251, 85) + Me.cbxLandKz.Name = "cbxLandKz" + Me.cbxLandKz.Size = New System.Drawing.Size(111, 21) + Me.cbxLandKz.TabIndex = 36 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(155, 92) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(90, 13) + Me.Label9.TabIndex = 35 + Me.Label9.Text = "Land / PLZ / Ort:" + ' + 'txtAdresse3 + ' + Me.txtAdresse3._DateTimeOnly = False + Me.txtAdresse3._numbersOnly = False + Me.txtAdresse3._numbersOnlyKommastellen = "" + Me.txtAdresse3._numbersOnlyTrennzeichen = True + Me.txtAdresse3._Prozent = False + Me.txtAdresse3._ShortDateNew = False + Me.txtAdresse3._ShortDateOnly = False + Me.txtAdresse3._TimeOnly = False + Me.txtAdresse3._TimeOnly_Seconds = False + Me.txtAdresse3._value = Nothing + Me.txtAdresse3._Waehrung = False + Me.txtAdresse3._WaehrungZeichen = True + Me.txtAdresse3.ForeColor = System.Drawing.Color.Black + Me.txtAdresse3.Location = New System.Drawing.Point(650, 85) + Me.txtAdresse3.MaxLineLength = -1 + Me.txtAdresse3.MaxLines_Warning = "" + Me.txtAdresse3.MaxLines_Warning_Label = Nothing + Me.txtAdresse3.Name = "txtAdresse3" + Me.txtAdresse3.Size = New System.Drawing.Size(310, 20) + Me.txtAdresse3.TabIndex = 37 + ' + 'txt_GF_Name + ' + Me.txt_GF_Name._DateTimeOnly = False + Me.txt_GF_Name._numbersOnly = False + Me.txt_GF_Name._numbersOnlyKommastellen = "" + Me.txt_GF_Name._numbersOnlyTrennzeichen = True + Me.txt_GF_Name._Prozent = False + Me.txt_GF_Name._ShortDateNew = False + Me.txt_GF_Name._ShortDateOnly = False + Me.txt_GF_Name._TimeOnly = False + Me.txt_GF_Name._TimeOnly_Seconds = False + Me.txt_GF_Name._value = Nothing + Me.txt_GF_Name._Waehrung = False + Me.txt_GF_Name._WaehrungZeichen = True + Me.txt_GF_Name.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Name.Location = New System.Drawing.Point(251, 203) + Me.txt_GF_Name.MaxLineLength = -1 + Me.txt_GF_Name.MaxLines_Warning = "" + Me.txt_GF_Name.MaxLines_Warning_Label = Nothing + Me.txt_GF_Name.Name = "txt_GF_Name" + Me.txt_GF_Name.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Name.TabIndex = 61 + ' + 'lblHerrFrau + ' + Me.lblHerrFrau.AutoSize = True + Me.lblHerrFrau.Location = New System.Drawing.Point(155, 210) + Me.lblHerrFrau.Name = "lblHerrFrau" + Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13) + Me.lblHerrFrau.TabIndex = 60 + Me.lblHerrFrau.Text = "Herr/Frau:" + ' + 'txtSteuerNr + ' + Me.txtSteuerNr._DateTimeOnly = False + Me.txtSteuerNr._numbersOnly = False + Me.txtSteuerNr._numbersOnlyKommastellen = "" + Me.txtSteuerNr._numbersOnlyTrennzeichen = True + Me.txtSteuerNr._Prozent = False + Me.txtSteuerNr._ShortDateNew = False + Me.txtSteuerNr._ShortDateOnly = False + Me.txtSteuerNr._TimeOnly = False + Me.txtSteuerNr._TimeOnly_Seconds = False + Me.txtSteuerNr._value = Nothing + Me.txtSteuerNr._Waehrung = False + Me.txtSteuerNr._WaehrungZeichen = True + Me.txtSteuerNr.ForeColor = System.Drawing.Color.Black + Me.txtSteuerNr.Location = New System.Drawing.Point(651, 136) + Me.txtSteuerNr.MaxLineLength = -1 + Me.txtSteuerNr.MaxLines_Warning = "" + Me.txtSteuerNr.MaxLines_Warning_Label = Nothing + Me.txtSteuerNr.Name = "txtSteuerNr" + Me.txtSteuerNr.Size = New System.Drawing.Size(310, 20) + Me.txtSteuerNr.TabIndex = 63 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(585, 139) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(55, 13) + Me.Label11.TabIndex = 62 + Me.Label11.Text = "Steuer-Nr:" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(812, 284) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(41, 13) + Me.Label13.TabIndex = 64 + Me.Label13.Text = "Datum:" + ' + 'datDatum + ' + Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.datDatum.Location = New System.Drawing.Point(868, 284) + Me.datDatum.Name = "datDatum" + Me.datDatum.Size = New System.Drawing.Size(95, 20) + Me.datDatum.TabIndex = 65 + ' + 'txt_GF_Geb + ' + Me.txt_GF_Geb._DateTimeOnly = False + Me.txt_GF_Geb._numbersOnly = False + Me.txt_GF_Geb._numbersOnlyKommastellen = "" + Me.txt_GF_Geb._numbersOnlyTrennzeichen = True + Me.txt_GF_Geb._Prozent = False + Me.txt_GF_Geb._ShortDateNew = True + Me.txt_GF_Geb._ShortDateOnly = False + Me.txt_GF_Geb._TimeOnly = False + Me.txt_GF_Geb._TimeOnly_Seconds = False + Me.txt_GF_Geb._value = "" + Me.txt_GF_Geb._Waehrung = False + Me.txt_GF_Geb._WaehrungZeichen = False + Me.txt_GF_Geb.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Geb.Location = New System.Drawing.Point(650, 203) + Me.txt_GF_Geb.MaxLength = 10 + Me.txt_GF_Geb.MaxLineLength = -1 + Me.txt_GF_Geb.MaxLines_Warning = "" + Me.txt_GF_Geb.MaxLines_Warning_Label = Nothing + Me.txt_GF_Geb.Name = "txt_GF_Geb" + Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Geb.TabIndex = 67 + ' + 'lblGFGebDat + ' + Me.lblGFGebDat.AutoSize = True + Me.lblGFGebDat.Location = New System.Drawing.Point(571, 203) + Me.lblGFGebDat.Name = "lblGFGebDat" + Me.lblGFGebDat.Size = New System.Drawing.Size(53, 13) + Me.lblGFGebDat.TabIndex = 66 + Me.lblGFGebDat.Text = "Geb-Dat.:" + ' + 'txt_GF_Adresse + ' + Me.txt_GF_Adresse._DateTimeOnly = False + Me.txt_GF_Adresse._numbersOnly = False + Me.txt_GF_Adresse._numbersOnlyKommastellen = "" + Me.txt_GF_Adresse._numbersOnlyTrennzeichen = True + Me.txt_GF_Adresse._Prozent = False + Me.txt_GF_Adresse._ShortDateNew = True + Me.txt_GF_Adresse._ShortDateOnly = False + Me.txt_GF_Adresse._TimeOnly = False + Me.txt_GF_Adresse._TimeOnly_Seconds = False + Me.txt_GF_Adresse._value = "" + Me.txt_GF_Adresse._Waehrung = False + Me.txt_GF_Adresse._WaehrungZeichen = False + Me.txt_GF_Adresse.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Adresse.Location = New System.Drawing.Point(251, 221) + Me.txt_GF_Adresse.MaxLength = 10 + Me.txt_GF_Adresse.MaxLineLength = -1 + Me.txt_GF_Adresse.MaxLines_Warning = "" + Me.txt_GF_Adresse.MaxLines_Warning_Label = Nothing + Me.txt_GF_Adresse.Name = "txt_GF_Adresse" + Me.txt_GF_Adresse.Size = New System.Drawing.Size(709, 20) + Me.txt_GF_Adresse.TabIndex = 69 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(155, 224) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(48, 13) + Me.Label14.TabIndex = 68 + Me.Label14.Text = "Adresse:" + ' + 'txt_GF_Ort + ' + Me.txt_GF_Ort._DateTimeOnly = False + Me.txt_GF_Ort._numbersOnly = False + Me.txt_GF_Ort._numbersOnlyKommastellen = "" + Me.txt_GF_Ort._numbersOnlyTrennzeichen = True + Me.txt_GF_Ort._Prozent = False + Me.txt_GF_Ort._ShortDateNew = False + Me.txt_GF_Ort._ShortDateOnly = False + Me.txt_GF_Ort._TimeOnly = False + Me.txt_GF_Ort._TimeOnly_Seconds = False + Me.txt_GF_Ort._value = Nothing + Me.txt_GF_Ort._Waehrung = False + Me.txt_GF_Ort._WaehrungZeichen = True + Me.txt_GF_Ort.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Ort.Location = New System.Drawing.Point(650, 238) + Me.txt_GF_Ort.MaxLineLength = -1 + Me.txt_GF_Ort.MaxLines_Warning = "" + Me.txt_GF_Ort.MaxLines_Warning_Label = Nothing + Me.txt_GF_Ort.Name = "txt_GF_Ort" + Me.txt_GF_Ort.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Ort.TabIndex = 73 + ' + 'cbx_GF_Land + ' + Me.cbx_GF_Land._allowedValuesFreiText = Nothing + Me.cbx_GF_Land._allowFreiText = False + Me.cbx_GF_Land._value = "" + Me.cbx_GF_Land.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbx_GF_Land.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbx_GF_Land.DropDownWidth = 200 + Me.cbx_GF_Land.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbx_GF_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_GF_Land.FormattingEnabled = True + Me.cbx_GF_Land.Location = New System.Drawing.Point(251, 238) + Me.cbx_GF_Land.Name = "cbx_GF_Land" + Me.cbx_GF_Land.Size = New System.Drawing.Size(111, 21) + Me.cbx_GF_Land.TabIndex = 72 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(155, 245) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(90, 13) + Me.Label15.TabIndex = 71 + Me.Label15.Text = "Land / PLZ / Ort:" + ' + 'txt_GF_PLZ + ' + Me.txt_GF_PLZ._DateTimeOnly = False + Me.txt_GF_PLZ._numbersOnly = False + Me.txt_GF_PLZ._numbersOnlyKommastellen = "" + Me.txt_GF_PLZ._numbersOnlyTrennzeichen = True + Me.txt_GF_PLZ._Prozent = False + Me.txt_GF_PLZ._ShortDateNew = False + Me.txt_GF_PLZ._ShortDateOnly = False + Me.txt_GF_PLZ._TimeOnly = False + Me.txt_GF_PLZ._TimeOnly_Seconds = False + Me.txt_GF_PLZ._value = Nothing + Me.txt_GF_PLZ._Waehrung = False + Me.txt_GF_PLZ._WaehrungZeichen = True + Me.txt_GF_PLZ.ForeColor = System.Drawing.Color.Black + Me.txt_GF_PLZ.Location = New System.Drawing.Point(362, 238) + Me.txt_GF_PLZ.MaxLineLength = -1 + Me.txt_GF_PLZ.MaxLines_Warning = "" + Me.txt_GF_PLZ.MaxLines_Warning_Label = Nothing + Me.txt_GF_PLZ.Name = "txt_GF_PLZ" + Me.txt_GF_PLZ.Size = New System.Drawing.Size(288, 20) + Me.txt_GF_PLZ.TabIndex = 70 + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(10, 195) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(85, 13) + Me.Label16.TabIndex = 74 + Me.Label16.Text = "Geschäftsführer:" + ' + 'usrcntlVollmacht_MDM_BHI + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.WhiteSmoke + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.txt_GF_Ort) + Me.Controls.Add(Me.cbx_GF_Land) + Me.Controls.Add(Me.Label15) + Me.Controls.Add(Me.txt_GF_PLZ) + Me.Controls.Add(Me.txt_GF_Adresse) + Me.Controls.Add(Me.Label14) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.txt_GF_Geb) + Me.Controls.Add(Me.lblGFGebDat) + Me.Controls.Add(Me.datDatum) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.txtSteuerNr) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.txt_GF_Name) + Me.Controls.Add(Me.lblHerrFrau) + Me.Controls.Add(Me.txtAdresse3) + Me.Controls.Add(Me.cbxLandKz) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboLand) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.lblVollmacht) + Me.Controls.Add(Me.txtAnsprechpartner) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.txtOrt) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.txtEmail) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.txtFax) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.txtTel) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtHRNr) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtUid) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl) + Me.Name = "usrcntlVollmacht_MDM_BHI" + Me.Size = New System.Drawing.Size(1000, 326) + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents lbl As System.Windows.Forms.Label + Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents txtHRNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents txtOrt As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents btn As System.Windows.Forms.Button + Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents pic As System.Windows.Forms.PictureBox + Friend WithEvents lblVollmacht As System.Windows.Forms.Label + Friend WithEvents btnDown As System.Windows.Forms.Button + Friend WithEvents btnUp As System.Windows.Forms.Button + Friend WithEvents btnDel As System.Windows.Forms.Button + Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents cboLand As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label9 As Label + Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txt_GF_Name As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblHerrFrau As Label + Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label11 As Label + Friend WithEvents Label13 As Label + Friend WithEvents datDatum As DateTimePicker + Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblGFGebDat As Label + Friend WithEvents txt_GF_Adresse As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label14 As Label + Friend WithEvents txt_GF_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbx_GF_Land As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label15 As Label + Friend WithEvents txt_GF_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label16 As Label +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.resx similarity index 100% rename from SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.resx rename to SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.resx diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.vb similarity index 81% rename from SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.vb rename to SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.vb index 6a1749c3..ce9ae677 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.vb @@ -1,4 +1,6 @@ -Public Class usrcntlVollmacht_MDM_PDF +Imports VERAG_PROG_ALLGEMEIN + +Public Class usrcntlVollmacht_MDM_BHI Implements FormualrInterface Public Event CHANGED(name, value) @@ -47,6 +49,28 @@ Me.KdNR = KdNR Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR) Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR) + Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR) + + Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR) + If GF IsNot Nothing Then + txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "") + + If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then + txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString + End If + + txt_GF_Adresse.Text = If(GF.kkd_Adresse, "") + txt_GF_Ort.Text = If(GF.kkd_Ort, "") + txt_GF_PLZ.Text = If(GF.kkd_PLZ, "") + cbx_GF_Land.changeItem(GF.kkd_Land) + Else + txt_GF_Name.Text = "" + txt_GF_Geb.Text = "" + txt_GF_Adresse.Text = "" + txt_GF_Ort.Text = "" + txt_GF_PLZ.Text = "" + cbx_GF_Land.changeItem("") + End If txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") txtAdresse1.Text = If(ADRESSE.Straße, "") @@ -54,7 +78,7 @@ txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "") - txtEori.Text = If(KUNDE.EORITIN, "") + txtHRNr.Text = If(KUNDE.EORITIN, "") txtTel.Text = If(ADRESSE.Telefon, "") txtFax.Text = If(ADRESSE.Telefax, "") txtSteuerNr.Text = If(ADRESSE.Steuernummer, "") @@ -96,14 +120,10 @@ cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK")) cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI")) cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES")) + cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) - cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("BHI", "BHI")) - cbxVMArt.changeItem("BHI") - 'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU")) - 'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO")) - 'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR")) - 'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU")) + cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) If KdNR > 0 Then initKdNR(KdNR) End Sub diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb similarity index 70% rename from SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.Designer.vb rename to SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb index c2cc8e10..c8ca1d26 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb @@ -1,5 +1,5 @@  -Partial Class usrcntlVollmacht_MDM_PDF +Partial Class usrcntlVollmacht_MDM_EU Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -47,19 +47,30 @@ Partial Class usrcntlVollmacht_MDM_PDF Me.btnDown = New System.Windows.Forms.Button() Me.btnUp = New System.Windows.Forms.Button() Me.btnDel = New System.Windows.Forms.Button() - Me.Label12 = New System.Windows.Forms.Label() + Me.lblLand = New System.Windows.Forms.Label() Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxVMArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label10 = New System.Windows.Forms.Label() Me.txtHerrFrau = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblHerrFrau = New System.Windows.Forms.Label() Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.datDatum = New System.Windows.Forms.DateTimePicker() + Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.txt_GF_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbx_GF_Land = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblGFGebDat = New System.Windows.Forms.Label() + Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -84,7 +95,7 @@ Partial Class usrcntlVollmacht_MDM_PDF 'Label2 ' Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(170, 154) + Me.Label2.Location = New System.Drawing.Point(158, 154) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(43, 13) Me.Label2.TabIndex = 14 @@ -111,7 +122,7 @@ Partial Class usrcntlVollmacht_MDM_PDF 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(170, 173) + Me.Label5.Location = New System.Drawing.Point(158, 173) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(28, 13) Me.Label5.TabIndex = 18 @@ -120,7 +131,7 @@ Partial Class usrcntlVollmacht_MDM_PDF 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Location = New System.Drawing.Point(170, 192) + Me.Label6.Location = New System.Drawing.Point(158, 192) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(39, 13) Me.Label6.TabIndex = 22 @@ -129,7 +140,7 @@ Partial Class usrcntlVollmacht_MDM_PDF 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(587, 227) + Me.Label7.Location = New System.Drawing.Point(587, 301) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(24, 13) Me.Label7.TabIndex = 26 @@ -149,7 +160,7 @@ Partial Class usrcntlVollmacht_MDM_PDF 'Label8 ' Me.Label8.AutoSize = True - Me.Label8.Location = New System.Drawing.Point(559, 12) + Me.Label8.Location = New System.Drawing.Point(523, 8) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(88, 13) Me.Label8.TabIndex = 2 @@ -170,7 +181,7 @@ Partial Class usrcntlVollmacht_MDM_PDF Me.txtAnsprechpartner._Waehrung = False Me.txtAnsprechpartner._WaehrungZeichen = True Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black - Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9) + Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 5) Me.txtAnsprechpartner.MaxLineLength = -1 Me.txtAnsprechpartner.MaxLines_Warning = "" Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing @@ -194,7 +205,7 @@ Partial Class usrcntlVollmacht_MDM_PDF Me.txtOrt._WaehrungZeichen = True Me.txtOrt.Enabled = False Me.txtOrt.ForeColor = System.Drawing.Color.Black - Me.txtOrt.Location = New System.Drawing.Point(653, 224) + Me.txtOrt.Location = New System.Drawing.Point(650, 298) Me.txtOrt.MaxLineLength = -1 Me.txtOrt.MaxLines_Warning = "" Me.txtOrt.MaxLines_Warning_Label = Nothing @@ -403,9 +414,9 @@ Partial Class usrcntlVollmacht_MDM_PDF Me.lblVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblVollmacht.Location = New System.Drawing.Point(43, 9) Me.lblVollmacht.Name = "lblVollmacht" - Me.lblVollmacht.Size = New System.Drawing.Size(88, 20) + Me.lblVollmacht.Size = New System.Drawing.Size(118, 20) Me.lblVollmacht.TabIndex = 1 - Me.lblVollmacht.Text = "Vollmacht" + Me.lblVollmacht.Text = "Vollmacht EU" ' 'btnDown ' @@ -443,14 +454,14 @@ Partial Class usrcntlVollmacht_MDM_PDF Me.btnDel.TabIndex = 0 Me.btnDel.UseVisualStyleBackColor = True ' - 'Label12 + 'lblLand ' - Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(3, 64) - Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(49, 13) - Me.Label12.TabIndex = 5 - Me.Label12.Text = "für Land:" + Me.lblLand.AutoSize = True + Me.lblLand.Location = New System.Drawing.Point(3, 64) + Me.lblLand.Name = "lblLand" + Me.lblLand.Size = New System.Drawing.Size(49, 13) + Me.lblLand.TabIndex = 5 + Me.lblLand.Text = "für Land:" ' 'cboLand ' @@ -512,26 +523,6 @@ Partial Class usrcntlVollmacht_MDM_PDF Me.txtAdresse3.Size = New System.Drawing.Size(310, 20) Me.txtAdresse3.TabIndex = 37 ' - 'cbxVMArt - ' - Me.cbxVMArt._allowedValuesFreiText = Nothing - Me.cbxVMArt._allowFreiText = False - Me.cbxVMArt._value = "" - Me.cbxVMArt.FormattingEnabled = True - Me.cbxVMArt.Location = New System.Drawing.Point(254, 4) - Me.cbxVMArt.Name = "cbxVMArt" - Me.cbxVMArt.Size = New System.Drawing.Size(89, 21) - Me.cbxVMArt.TabIndex = 38 - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(210, 9) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(23, 13) - Me.Label10.TabIndex = 39 - Me.Label10.Text = "Art:" - ' 'txtHerrFrau ' Me.txtHerrFrau._DateTimeOnly = False @@ -599,7 +590,7 @@ Partial Class usrcntlVollmacht_MDM_PDF 'Label13 ' Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(812, 227) + Me.Label13.Location = New System.Drawing.Point(809, 301) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(41, 13) Me.Label13.TabIndex = 64 @@ -608,29 +599,251 @@ Partial Class usrcntlVollmacht_MDM_PDF 'datDatum ' Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.datDatum.Location = New System.Drawing.Point(868, 227) + Me.datDatum.Location = New System.Drawing.Point(865, 301) Me.datDatum.Name = "datDatum" Me.datDatum.Size = New System.Drawing.Size(95, 20) Me.datDatum.TabIndex = 65 ' - 'usrcntlVollmacht_MDM + 'txtEmailzurueck + ' + Me.txtEmailzurueck._DateTimeOnly = False + Me.txtEmailzurueck._numbersOnly = False + Me.txtEmailzurueck._numbersOnlyKommastellen = "" + Me.txtEmailzurueck._numbersOnlyTrennzeichen = True + Me.txtEmailzurueck._Prozent = False + Me.txtEmailzurueck._ShortDateNew = False + Me.txtEmailzurueck._ShortDateOnly = False + Me.txtEmailzurueck._TimeOnly = False + Me.txtEmailzurueck._TimeOnly_Seconds = False + Me.txtEmailzurueck._value = Nothing + Me.txtEmailzurueck._Waehrung = False + Me.txtEmailzurueck._WaehrungZeichen = True + Me.txtEmailzurueck.ForeColor = System.Drawing.Color.Black + Me.txtEmailzurueck.Location = New System.Drawing.Point(653, 23) + Me.txtEmailzurueck.MaxLineLength = -1 + Me.txtEmailzurueck.MaxLines_Warning = "" + Me.txtEmailzurueck.MaxLines_Warning_Label = Nothing + Me.txtEmailzurueck.Name = "txtEmailzurueck" + Me.txtEmailzurueck.Size = New System.Drawing.Size(310, 20) + Me.txtEmailzurueck.TabIndex = 67 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(523, 26) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(106, 13) + Me.Label14.TabIndex = 66 + Me.Label14.Text = "Rücksendung EMail:" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(10, 217) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(85, 13) + Me.Label16.TabIndex = 85 + Me.Label16.Text = "Geschäftsführer:" + ' + 'txt_GF_Ort + ' + Me.txt_GF_Ort._DateTimeOnly = False + Me.txt_GF_Ort._numbersOnly = False + Me.txt_GF_Ort._numbersOnlyKommastellen = "" + Me.txt_GF_Ort._numbersOnlyTrennzeichen = True + Me.txt_GF_Ort._Prozent = False + Me.txt_GF_Ort._ShortDateNew = False + Me.txt_GF_Ort._ShortDateOnly = False + Me.txt_GF_Ort._TimeOnly = False + Me.txt_GF_Ort._TimeOnly_Seconds = False + Me.txt_GF_Ort._value = Nothing + Me.txt_GF_Ort._Waehrung = False + Me.txt_GF_Ort._WaehrungZeichen = True + Me.txt_GF_Ort.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Ort.Location = New System.Drawing.Point(653, 260) + Me.txt_GF_Ort.MaxLineLength = -1 + Me.txt_GF_Ort.MaxLines_Warning = "" + Me.txt_GF_Ort.MaxLines_Warning_Label = Nothing + Me.txt_GF_Ort.Name = "txt_GF_Ort" + Me.txt_GF_Ort.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Ort.TabIndex = 84 + ' + 'cbx_GF_Land + ' + Me.cbx_GF_Land._allowedValuesFreiText = Nothing + Me.cbx_GF_Land._allowFreiText = False + Me.cbx_GF_Land._value = "" + Me.cbx_GF_Land.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbx_GF_Land.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbx_GF_Land.DropDownWidth = 200 + Me.cbx_GF_Land.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbx_GF_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_GF_Land.FormattingEnabled = True + Me.cbx_GF_Land.Location = New System.Drawing.Point(254, 260) + Me.cbx_GF_Land.Name = "cbx_GF_Land" + Me.cbx_GF_Land.Size = New System.Drawing.Size(111, 21) + Me.cbx_GF_Land.TabIndex = 83 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(158, 267) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(90, 13) + Me.Label15.TabIndex = 82 + Me.Label15.Text = "Land / PLZ / Ort:" + ' + 'txt_GF_PLZ + ' + Me.txt_GF_PLZ._DateTimeOnly = False + Me.txt_GF_PLZ._numbersOnly = False + Me.txt_GF_PLZ._numbersOnlyKommastellen = "" + Me.txt_GF_PLZ._numbersOnlyTrennzeichen = True + Me.txt_GF_PLZ._Prozent = False + Me.txt_GF_PLZ._ShortDateNew = False + Me.txt_GF_PLZ._ShortDateOnly = False + Me.txt_GF_PLZ._TimeOnly = False + Me.txt_GF_PLZ._TimeOnly_Seconds = False + Me.txt_GF_PLZ._value = Nothing + Me.txt_GF_PLZ._Waehrung = False + Me.txt_GF_PLZ._WaehrungZeichen = True + Me.txt_GF_PLZ.ForeColor = System.Drawing.Color.Black + Me.txt_GF_PLZ.Location = New System.Drawing.Point(365, 260) + Me.txt_GF_PLZ.MaxLineLength = -1 + Me.txt_GF_PLZ.MaxLines_Warning = "" + Me.txt_GF_PLZ.MaxLines_Warning_Label = Nothing + Me.txt_GF_PLZ.Name = "txt_GF_PLZ" + Me.txt_GF_PLZ.Size = New System.Drawing.Size(288, 20) + Me.txt_GF_PLZ.TabIndex = 81 + ' + 'txt_GF_Adresse + ' + Me.txt_GF_Adresse._DateTimeOnly = False + Me.txt_GF_Adresse._numbersOnly = False + Me.txt_GF_Adresse._numbersOnlyKommastellen = "" + Me.txt_GF_Adresse._numbersOnlyTrennzeichen = True + Me.txt_GF_Adresse._Prozent = False + Me.txt_GF_Adresse._ShortDateNew = True + Me.txt_GF_Adresse._ShortDateOnly = False + Me.txt_GF_Adresse._TimeOnly = False + Me.txt_GF_Adresse._TimeOnly_Seconds = False + Me.txt_GF_Adresse._value = "" + Me.txt_GF_Adresse._Waehrung = False + Me.txt_GF_Adresse._WaehrungZeichen = False + Me.txt_GF_Adresse.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Adresse.Location = New System.Drawing.Point(254, 243) + Me.txt_GF_Adresse.MaxLength = 10 + Me.txt_GF_Adresse.MaxLineLength = -1 + Me.txt_GF_Adresse.MaxLines_Warning = "" + Me.txt_GF_Adresse.MaxLines_Warning_Label = Nothing + Me.txt_GF_Adresse.Name = "txt_GF_Adresse" + Me.txt_GF_Adresse.Size = New System.Drawing.Size(709, 20) + Me.txt_GF_Adresse.TabIndex = 80 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(158, 246) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(48, 13) + Me.Label10.TabIndex = 79 + Me.Label10.Text = "Adresse:" + ' + 'txt_GF_Geb + ' + Me.txt_GF_Geb._DateTimeOnly = False + Me.txt_GF_Geb._numbersOnly = False + Me.txt_GF_Geb._numbersOnlyKommastellen = "" + Me.txt_GF_Geb._numbersOnlyTrennzeichen = True + Me.txt_GF_Geb._Prozent = False + Me.txt_GF_Geb._ShortDateNew = True + Me.txt_GF_Geb._ShortDateOnly = False + Me.txt_GF_Geb._TimeOnly = False + Me.txt_GF_Geb._TimeOnly_Seconds = False + Me.txt_GF_Geb._value = "" + Me.txt_GF_Geb._Waehrung = False + Me.txt_GF_Geb._WaehrungZeichen = False + Me.txt_GF_Geb.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Geb.Location = New System.Drawing.Point(653, 225) + Me.txt_GF_Geb.MaxLength = 10 + Me.txt_GF_Geb.MaxLineLength = -1 + Me.txt_GF_Geb.MaxLines_Warning = "" + Me.txt_GF_Geb.MaxLines_Warning_Label = Nothing + Me.txt_GF_Geb.Name = "txt_GF_Geb" + Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Geb.TabIndex = 78 + ' + 'lblGFGebDat + ' + Me.lblGFGebDat.AutoSize = True + Me.lblGFGebDat.Location = New System.Drawing.Point(587, 228) + Me.lblGFGebDat.Name = "lblGFGebDat" + Me.lblGFGebDat.Size = New System.Drawing.Size(53, 13) + Me.lblGFGebDat.TabIndex = 77 + Me.lblGFGebDat.Text = "Geb-Dat.:" + ' + 'txt_GF_Name + ' + Me.txt_GF_Name._DateTimeOnly = False + Me.txt_GF_Name._numbersOnly = False + Me.txt_GF_Name._numbersOnlyKommastellen = "" + Me.txt_GF_Name._numbersOnlyTrennzeichen = True + Me.txt_GF_Name._Prozent = False + Me.txt_GF_Name._ShortDateNew = False + Me.txt_GF_Name._ShortDateOnly = False + Me.txt_GF_Name._TimeOnly = False + Me.txt_GF_Name._TimeOnly_Seconds = False + Me.txt_GF_Name._value = Nothing + Me.txt_GF_Name._Waehrung = False + Me.txt_GF_Name._WaehrungZeichen = True + Me.txt_GF_Name.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Name.Location = New System.Drawing.Point(254, 225) + Me.txt_GF_Name.MaxLineLength = -1 + Me.txt_GF_Name.MaxLines_Warning = "" + Me.txt_GF_Name.MaxLines_Warning_Label = Nothing + Me.txt_GF_Name.Name = "txt_GF_Name" + Me.txt_GF_Name.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Name.TabIndex = 76 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(158, 232) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(56, 13) + Me.Label12.TabIndex = 75 + Me.Label12.Text = "Herr/Frau:" + ' + 'usrcntlVollmacht_MDM_EU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.txt_GF_Ort) + Me.Controls.Add(Me.cbx_GF_Land) + Me.Controls.Add(Me.Label15) + Me.Controls.Add(Me.txt_GF_PLZ) + Me.Controls.Add(Me.txt_GF_Adresse) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.txt_GF_Geb) + Me.Controls.Add(Me.lblGFGebDat) + Me.Controls.Add(Me.txt_GF_Name) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.txtEmailzurueck) + Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.datDatum) Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.txtSteuerNr) Me.Controls.Add(Me.Label11) Me.Controls.Add(Me.txtHerrFrau) Me.Controls.Add(Me.lblHerrFrau) - Me.Controls.Add(Me.Label10) - Me.Controls.Add(Me.cbxVMArt) Me.Controls.Add(Me.txtAdresse3) Me.Controls.Add(Me.cbxLandKz) Me.Controls.Add(Me.Label9) - Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.lblLand) Me.Controls.Add(Me.cboLand) Me.Controls.Add(Me.btnDown) Me.Controls.Add(Me.btnUp) @@ -657,8 +870,8 @@ Partial Class usrcntlVollmacht_MDM_PDF Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.lbl) - Me.Name = "usrcntlVollmacht_MDM" - Me.Size = New System.Drawing.Size(1000, 256) + Me.Name = "usrcntlVollmacht_MDM_EU" + Me.Size = New System.Drawing.Size(1000, 340) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -689,17 +902,28 @@ Partial Class usrcntlVollmacht_MDM_PDF Friend WithEvents btnDown As System.Windows.Forms.Button Friend WithEvents btnUp As System.Windows.Forms.Button Friend WithEvents btnDel As System.Windows.Forms.Button - Friend WithEvents Label12 As System.Windows.Forms.Label + Friend WithEvents lblLand As System.Windows.Forms.Label Friend WithEvents cboLand As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label9 As Label Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cbxVMArt As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents Label10 As Label Friend WithEvents txtHerrFrau As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents lblHerrFrau As Label Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label11 As Label Friend WithEvents Label13 As Label Friend WithEvents datDatum As DateTimePicker + Friend WithEvents txtEmailzurueck As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label14 As Label + Friend WithEvents Label16 As Label + Friend WithEvents txt_GF_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbx_GF_Land As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label15 As Label + Friend WithEvents txt_GF_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txt_GF_Adresse As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblGFGebDat As Label + Friend WithEvents txt_GF_Name As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label12 As Label End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.resx similarity index 100% rename from SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.resx rename to SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.resx diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb similarity index 82% rename from SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.vb rename to SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb index c3c92e3d..b1b28fa9 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb @@ -1,4 +1,6 @@ -Public Class usrcntlVollmacht_MDM_Word +Imports VERAG_PROG_ALLGEMEIN + +Public Class usrcntlVollmacht_MDM_EU Implements FormualrInterface Public Event CHANGED(name, value) @@ -47,6 +49,28 @@ Me.KdNR = KdNR Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR) Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR) + Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR) + + Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR) + If GF IsNot Nothing Then + txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "") + + If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then + txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString + End If + + txt_GF_Adresse.Text = If(GF.kkd_Adresse, "") + txt_GF_Ort.Text = If(GF.kkd_Ort, "") + txt_GF_PLZ.Text = If(GF.kkd_PLZ, "") + cbx_GF_Land.changeItem(GF.kkd_Land) + Else + txt_GF_Name.Text = "" + txt_GF_Geb.Text = "" + txt_GF_Adresse.Text = "" + txt_GF_Ort.Text = "" + txt_GF_PLZ.Text = "" + cbx_GF_Land.changeItem("") + End If txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") txtAdresse1.Text = If(ADRESSE.Straße, "") @@ -97,22 +121,13 @@ 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES")) cboLand.changeItem("AT") - cbxSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EN", "EN")) - cbxSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE")) - cboLand.changeItem("DE") - cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) - cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU")) - cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO")) - 'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR")) - 'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU")) + cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) txtEmailzurueck.Text = "juricevic@verag.ag" txtOrt.Text = "Suben" - cbxVMArt.changeItem("EU") - If KdNR > 0 Then initKdNR(KdNR) End Sub @@ -130,18 +145,4 @@ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub - Private Sub cbxVMArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxVMArt.SelectedIndexChanged - If cbxVMArt._value = "RO" Then - cboLand.Visible = False - lblLand.Visible = False - cbxSprache.Visible = True - lblSprache.Visible = True - Else - cboLand.Visible = True - lblLand.Visible = True - cbxSprache.Visible = False - lblSprache.Visible = False - - End If - End Sub End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb similarity index 75% rename from SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.Designer.vb rename to SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb index a49c5a25..14c49101 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb @@ -1,5 +1,5 @@  -Partial Class usrcntlVollmacht_MDM_Word +Partial Class usrcntlVollmacht_MDM_NICHT_EU Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. @@ -52,18 +52,23 @@ Partial Class usrcntlVollmacht_MDM_Word Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxVMArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.txtHerrFrau = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lblHerrFrau = New System.Windows.Forms.Label() Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.datDatum = New System.Windows.Forms.DateTimePicker() Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label14 = New System.Windows.Forms.Label() - Me.lblSprache = New System.Windows.Forms.Label() - Me.cbxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label16 = New System.Windows.Forms.Label() + Me.txt_GF_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbx_GF_Land = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label15 = New System.Windows.Forms.Label() + Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblGFGebDat = New System.Windows.Forms.Label() + Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblHerrFrau = New System.Windows.Forms.Label() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -133,7 +138,7 @@ Partial Class usrcntlVollmacht_MDM_Word 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(587, 227) + Me.Label7.Location = New System.Drawing.Point(584, 297) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(24, 13) Me.Label7.TabIndex = 26 @@ -198,7 +203,7 @@ Partial Class usrcntlVollmacht_MDM_Word Me.txtOrt._WaehrungZeichen = True Me.txtOrt.Enabled = False Me.txtOrt.ForeColor = System.Drawing.Color.Black - Me.txtOrt.Location = New System.Drawing.Point(653, 224) + Me.txtOrt.Location = New System.Drawing.Point(650, 294) Me.txtOrt.MaxLineLength = -1 Me.txtOrt.MaxLines_Warning = "" Me.txtOrt.MaxLines_Warning_Label = Nothing @@ -407,9 +412,9 @@ Partial Class usrcntlVollmacht_MDM_Word Me.lblVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblVollmacht.Location = New System.Drawing.Point(43, 9) Me.lblVollmacht.Name = "lblVollmacht" - Me.lblVollmacht.Size = New System.Drawing.Size(88, 20) + Me.lblVollmacht.Size = New System.Drawing.Size(176, 20) Me.lblVollmacht.TabIndex = 1 - Me.lblVollmacht.Text = "Vollmacht" + Me.lblVollmacht.Text = "Vollmacht NICHT EU" ' 'btnDown ' @@ -516,58 +521,6 @@ Partial Class usrcntlVollmacht_MDM_Word Me.txtAdresse3.Size = New System.Drawing.Size(310, 20) Me.txtAdresse3.TabIndex = 37 ' - 'cbxVMArt - ' - Me.cbxVMArt._allowedValuesFreiText = Nothing - Me.cbxVMArt._allowFreiText = False - Me.cbxVMArt._value = "" - Me.cbxVMArt.FormattingEnabled = True - Me.cbxVMArt.Location = New System.Drawing.Point(254, 4) - Me.cbxVMArt.Name = "cbxVMArt" - Me.cbxVMArt.Size = New System.Drawing.Size(89, 21) - Me.cbxVMArt.TabIndex = 38 - ' - 'Label10 - ' - Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(210, 9) - Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(23, 13) - Me.Label10.TabIndex = 39 - Me.Label10.Text = "Art:" - ' - 'txtHerrFrau - ' - Me.txtHerrFrau._DateTimeOnly = False - Me.txtHerrFrau._numbersOnly = False - Me.txtHerrFrau._numbersOnlyKommastellen = "" - Me.txtHerrFrau._numbersOnlyTrennzeichen = True - Me.txtHerrFrau._Prozent = False - Me.txtHerrFrau._ShortDateNew = False - Me.txtHerrFrau._ShortDateOnly = False - Me.txtHerrFrau._TimeOnly = False - Me.txtHerrFrau._TimeOnly_Seconds = False - Me.txtHerrFrau._value = Nothing - Me.txtHerrFrau._Waehrung = False - Me.txtHerrFrau._WaehrungZeichen = True - Me.txtHerrFrau.ForeColor = System.Drawing.Color.Black - Me.txtHerrFrau.Location = New System.Drawing.Point(254, 46) - Me.txtHerrFrau.MaxLineLength = -1 - Me.txtHerrFrau.MaxLines_Warning = "" - Me.txtHerrFrau.MaxLines_Warning_Label = Nothing - Me.txtHerrFrau.Name = "txtHerrFrau" - Me.txtHerrFrau.Size = New System.Drawing.Size(684, 20) - Me.txtHerrFrau.TabIndex = 61 - ' - 'lblHerrFrau - ' - Me.lblHerrFrau.AutoSize = True - Me.lblHerrFrau.Location = New System.Drawing.Point(158, 53) - Me.lblHerrFrau.Name = "lblHerrFrau" - Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13) - Me.lblHerrFrau.TabIndex = 60 - Me.lblHerrFrau.Text = "Herr/Frau:" - ' 'txtSteuerNr ' Me.txtSteuerNr._DateTimeOnly = False @@ -603,7 +556,7 @@ Partial Class usrcntlVollmacht_MDM_Word 'Label13 ' Me.Label13.AutoSize = True - Me.Label13.Location = New System.Drawing.Point(812, 227) + Me.Label13.Location = New System.Drawing.Point(809, 297) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(41, 13) Me.Label13.TabIndex = 64 @@ -612,7 +565,7 @@ Partial Class usrcntlVollmacht_MDM_Word 'datDatum ' Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.datDatum.Location = New System.Drawing.Point(868, 227) + Me.datDatum.Location = New System.Drawing.Point(865, 297) Me.datDatum.Name = "datDatum" Me.datDatum.Size = New System.Drawing.Size(95, 20) Me.datDatum.TabIndex = 65 @@ -649,44 +602,208 @@ Partial Class usrcntlVollmacht_MDM_Word Me.Label14.TabIndex = 66 Me.Label14.Text = "Rücksendung EMail:" ' - 'lblSprache + 'Label16 ' - Me.lblSprache.AutoSize = True - Me.lblSprache.Location = New System.Drawing.Point(3, 110) - Me.lblSprache.Name = "lblSprache" - Me.lblSprache.Size = New System.Drawing.Size(50, 13) - Me.lblSprache.TabIndex = 68 - Me.lblSprache.Text = "Sprache:" + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(10, 215) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(85, 13) + Me.Label16.TabIndex = 85 + Me.Label16.Text = "Geschäftsführer:" ' - 'cbxSprache + 'txt_GF_Ort ' - Me.cbxSprache._allowedValuesFreiText = Nothing - Me.cbxSprache._allowFreiText = False - Me.cbxSprache._value = "" - Me.cbxSprache.FormattingEnabled = True - Me.cbxSprache.Location = New System.Drawing.Point(6, 126) - Me.cbxSprache.Name = "cbxSprache" - Me.cbxSprache.Size = New System.Drawing.Size(89, 21) - Me.cbxSprache.TabIndex = 69 + Me.txt_GF_Ort._DateTimeOnly = False + Me.txt_GF_Ort._numbersOnly = False + Me.txt_GF_Ort._numbersOnlyKommastellen = "" + Me.txt_GF_Ort._numbersOnlyTrennzeichen = True + Me.txt_GF_Ort._Prozent = False + Me.txt_GF_Ort._ShortDateNew = False + Me.txt_GF_Ort._ShortDateOnly = False + Me.txt_GF_Ort._TimeOnly = False + Me.txt_GF_Ort._TimeOnly_Seconds = False + Me.txt_GF_Ort._value = Nothing + Me.txt_GF_Ort._Waehrung = False + Me.txt_GF_Ort._WaehrungZeichen = True + Me.txt_GF_Ort.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Ort.Location = New System.Drawing.Point(650, 258) + Me.txt_GF_Ort.MaxLineLength = -1 + Me.txt_GF_Ort.MaxLines_Warning = "" + Me.txt_GF_Ort.MaxLines_Warning_Label = Nothing + Me.txt_GF_Ort.Name = "txt_GF_Ort" + Me.txt_GF_Ort.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Ort.TabIndex = 84 ' - 'usrcntlVollmacht_MDM_Word + 'cbx_GF_Land + ' + Me.cbx_GF_Land._allowedValuesFreiText = Nothing + Me.cbx_GF_Land._allowFreiText = False + Me.cbx_GF_Land._value = "" + Me.cbx_GF_Land.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbx_GF_Land.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbx_GF_Land.DropDownWidth = 200 + Me.cbx_GF_Land.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbx_GF_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_GF_Land.FormattingEnabled = True + Me.cbx_GF_Land.Location = New System.Drawing.Point(251, 258) + Me.cbx_GF_Land.Name = "cbx_GF_Land" + Me.cbx_GF_Land.Size = New System.Drawing.Size(111, 21) + Me.cbx_GF_Land.TabIndex = 83 + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label15.Location = New System.Drawing.Point(155, 265) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(90, 13) + Me.Label15.TabIndex = 82 + Me.Label15.Text = "Land / PLZ / Ort:" + ' + 'txt_GF_PLZ + ' + Me.txt_GF_PLZ._DateTimeOnly = False + Me.txt_GF_PLZ._numbersOnly = False + Me.txt_GF_PLZ._numbersOnlyKommastellen = "" + Me.txt_GF_PLZ._numbersOnlyTrennzeichen = True + Me.txt_GF_PLZ._Prozent = False + Me.txt_GF_PLZ._ShortDateNew = False + Me.txt_GF_PLZ._ShortDateOnly = False + Me.txt_GF_PLZ._TimeOnly = False + Me.txt_GF_PLZ._TimeOnly_Seconds = False + Me.txt_GF_PLZ._value = Nothing + Me.txt_GF_PLZ._Waehrung = False + Me.txt_GF_PLZ._WaehrungZeichen = True + Me.txt_GF_PLZ.ForeColor = System.Drawing.Color.Black + Me.txt_GF_PLZ.Location = New System.Drawing.Point(362, 258) + Me.txt_GF_PLZ.MaxLineLength = -1 + Me.txt_GF_PLZ.MaxLines_Warning = "" + Me.txt_GF_PLZ.MaxLines_Warning_Label = Nothing + Me.txt_GF_PLZ.Name = "txt_GF_PLZ" + Me.txt_GF_PLZ.Size = New System.Drawing.Size(288, 20) + Me.txt_GF_PLZ.TabIndex = 81 + ' + 'txt_GF_Adresse + ' + Me.txt_GF_Adresse._DateTimeOnly = False + Me.txt_GF_Adresse._numbersOnly = False + Me.txt_GF_Adresse._numbersOnlyKommastellen = "" + Me.txt_GF_Adresse._numbersOnlyTrennzeichen = True + Me.txt_GF_Adresse._Prozent = False + Me.txt_GF_Adresse._ShortDateNew = True + Me.txt_GF_Adresse._ShortDateOnly = False + Me.txt_GF_Adresse._TimeOnly = False + Me.txt_GF_Adresse._TimeOnly_Seconds = False + Me.txt_GF_Adresse._value = "" + Me.txt_GF_Adresse._Waehrung = False + Me.txt_GF_Adresse._WaehrungZeichen = False + Me.txt_GF_Adresse.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Adresse.Location = New System.Drawing.Point(251, 241) + Me.txt_GF_Adresse.MaxLength = 10 + Me.txt_GF_Adresse.MaxLineLength = -1 + Me.txt_GF_Adresse.MaxLines_Warning = "" + Me.txt_GF_Adresse.MaxLines_Warning_Label = Nothing + Me.txt_GF_Adresse.Name = "txt_GF_Adresse" + Me.txt_GF_Adresse.Size = New System.Drawing.Size(709, 20) + Me.txt_GF_Adresse.TabIndex = 80 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(155, 244) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(48, 13) + Me.Label10.TabIndex = 79 + Me.Label10.Text = "Adresse:" + ' + 'txt_GF_Geb + ' + Me.txt_GF_Geb._DateTimeOnly = False + Me.txt_GF_Geb._numbersOnly = False + Me.txt_GF_Geb._numbersOnlyKommastellen = "" + Me.txt_GF_Geb._numbersOnlyTrennzeichen = True + Me.txt_GF_Geb._Prozent = False + Me.txt_GF_Geb._ShortDateNew = True + Me.txt_GF_Geb._ShortDateOnly = False + Me.txt_GF_Geb._TimeOnly = False + Me.txt_GF_Geb._TimeOnly_Seconds = False + Me.txt_GF_Geb._value = "" + Me.txt_GF_Geb._Waehrung = False + Me.txt_GF_Geb._WaehrungZeichen = False + Me.txt_GF_Geb.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Geb.Location = New System.Drawing.Point(650, 223) + Me.txt_GF_Geb.MaxLength = 10 + Me.txt_GF_Geb.MaxLineLength = -1 + Me.txt_GF_Geb.MaxLines_Warning = "" + Me.txt_GF_Geb.MaxLines_Warning_Label = Nothing + Me.txt_GF_Geb.Name = "txt_GF_Geb" + Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Geb.TabIndex = 78 + ' + 'lblGFGebDat + ' + Me.lblGFGebDat.AutoSize = True + Me.lblGFGebDat.Location = New System.Drawing.Point(571, 223) + Me.lblGFGebDat.Name = "lblGFGebDat" + Me.lblGFGebDat.Size = New System.Drawing.Size(53, 13) + Me.lblGFGebDat.TabIndex = 77 + Me.lblGFGebDat.Text = "Geb-Dat.:" + ' + 'txt_GF_Name + ' + Me.txt_GF_Name._DateTimeOnly = False + Me.txt_GF_Name._numbersOnly = False + Me.txt_GF_Name._numbersOnlyKommastellen = "" + Me.txt_GF_Name._numbersOnlyTrennzeichen = True + Me.txt_GF_Name._Prozent = False + Me.txt_GF_Name._ShortDateNew = False + Me.txt_GF_Name._ShortDateOnly = False + Me.txt_GF_Name._TimeOnly = False + Me.txt_GF_Name._TimeOnly_Seconds = False + Me.txt_GF_Name._value = Nothing + Me.txt_GF_Name._Waehrung = False + Me.txt_GF_Name._WaehrungZeichen = True + Me.txt_GF_Name.ForeColor = System.Drawing.Color.Black + Me.txt_GF_Name.Location = New System.Drawing.Point(251, 223) + Me.txt_GF_Name.MaxLineLength = -1 + Me.txt_GF_Name.MaxLines_Warning = "" + Me.txt_GF_Name.MaxLines_Warning_Label = Nothing + Me.txt_GF_Name.Name = "txt_GF_Name" + Me.txt_GF_Name.Size = New System.Drawing.Size(310, 20) + Me.txt_GF_Name.TabIndex = 76 + ' + 'lblHerrFrau + ' + Me.lblHerrFrau.AutoSize = True + Me.lblHerrFrau.Location = New System.Drawing.Point(155, 230) + Me.lblHerrFrau.Name = "lblHerrFrau" + Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13) + Me.lblHerrFrau.TabIndex = 75 + Me.lblHerrFrau.Text = "Herr/Frau:" + ' + 'usrcntlVollmacht_MDM_NICHT_EU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Controls.Add(Me.lblSprache) - Me.Controls.Add(Me.cbxSprache) + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.txt_GF_Ort) + Me.Controls.Add(Me.cbx_GF_Land) + Me.Controls.Add(Me.Label15) + Me.Controls.Add(Me.txt_GF_PLZ) + Me.Controls.Add(Me.txt_GF_Adresse) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.txt_GF_Geb) + Me.Controls.Add(Me.lblGFGebDat) + Me.Controls.Add(Me.txt_GF_Name) + Me.Controls.Add(Me.lblHerrFrau) Me.Controls.Add(Me.txtEmailzurueck) Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.datDatum) Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.txtSteuerNr) Me.Controls.Add(Me.Label11) - Me.Controls.Add(Me.txtHerrFrau) - Me.Controls.Add(Me.lblHerrFrau) - Me.Controls.Add(Me.Label10) - Me.Controls.Add(Me.cbxVMArt) Me.Controls.Add(Me.txtAdresse3) Me.Controls.Add(Me.cbxLandKz) Me.Controls.Add(Me.Label9) @@ -717,8 +834,8 @@ Partial Class usrcntlVollmacht_MDM_Word Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.lbl) - Me.Name = "usrcntlVollmacht_MDM_Word" - Me.Size = New System.Drawing.Size(1000, 256) + Me.Name = "usrcntlVollmacht_MDM_NICHT_EU" + Me.Size = New System.Drawing.Size(1000, 339) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -754,16 +871,21 @@ Partial Class usrcntlVollmacht_MDM_Word Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label9 As Label Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cbxVMArt As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents Label10 As Label - Friend WithEvents txtHerrFrau As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents lblHerrFrau As Label Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label11 As Label Friend WithEvents Label13 As Label Friend WithEvents datDatum As DateTimePicker Friend WithEvents txtEmailzurueck As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label14 As Label - Friend WithEvents lblSprache As Label - Friend WithEvents cbxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label16 As Label + Friend WithEvents txt_GF_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbx_GF_Land As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label15 As Label + Friend WithEvents txt_GF_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txt_GF_Adresse As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblGFGebDat As Label + Friend WithEvents txt_GF_Name As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblHerrFrau As Label End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb new file mode 100644 index 00000000..4ee83923 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb @@ -0,0 +1,148 @@ +Imports VERAG_PROG_ALLGEMEIN + +Public Class usrcntlVollmacht_MDM_NICHT_EU + Implements FormualrInterface + + Public Event CHANGED(name, value) + Public Event KDNR_CHANGED(kdnr) + Public Event DELETE(c As Control) + Public Event MOVE_UP(c As Control) + Public Event MOVE_DOWN(c As Control) + + Public KdNR As Integer = -1 + Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr + initKdNR(kdnr) + End Sub + + Sub initControlsHandler() + For Each c In Me.Controls + Select Case c.GetType.ToString + Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString + AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub() + RaiseEvent CHANGED(c.name, c._value) + End Sub + Case GetType(TextBox).ToString + AddHandler DirectCast(c, TextBox).Leave, Sub() + RaiseEvent CHANGED(c.name, c.text) + End Sub + End Select + Next + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + Dim kdsrch As New SDL.frmKundenSuche + 'Panel1.Enabled = False + If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then + If IsNumeric(kdsrch.kundenNrSearch.Text) Then + initKdNR(kdsrch.kundenNrSearch.Text) + RaiseEvent KDNR_CHANGED(KdNR) + End If + End If + ' Panel1.Enabled = True + End Sub + + Public Sub initKdNR(KdNR) + Me.KdNR = KdNR + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR) + Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR) + Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(KdNR) + + Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR) + If GF IsNot Nothing Then + txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "") + + If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then + txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString + End If + + txt_GF_Adresse.Text = If(GF.kkd_Adresse, "") + txt_GF_Ort.Text = If(GF.kkd_Ort, "") + txt_GF_PLZ.Text = If(GF.kkd_PLZ, "") + cbx_GF_Land.changeItem(GF.kkd_Land) + Else + txt_GF_Name.Text = "" + txt_GF_Geb.Text = "" + txt_GF_Adresse.Text = "" + txt_GF_Ort.Text = "" + txt_GF_PLZ.Text = "" + cbx_GF_Land.changeItem("") + End If + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + cbxLandKz.changeItem(ADRESSE.LandKz) + txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim + txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim + txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "") + txtEori.Text = If(KUNDE.EORITIN, "") + txtTel.Text = If(ADRESSE.Telefon, "") + txtFax.Text = If(ADRESSE.Telefax, "") + txtSteuerNr.Text = If(ADRESSE.Steuernummer, "") + txtEmail.Text = If(ADRESSE.E_Mail, "") + txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim + + End Sub + + Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click + RaiseEvent DELETE(Me) + End Sub + + Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click + RaiseEvent MOVE_UP(Me) + End Sub + + Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click + RaiseEvent MOVE_DOWN(Me) + End Sub + + Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load + initControlsHandler() + cboLand.Items.Clear() + cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Austria", "AT")) + cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Belgium", "BE")) + cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Czech Rep", "CZ")) + cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Denmark", "DK")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Germany", "DE")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Hungary", "HU")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Italy", "IT")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lithuania", "LT")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Luxenbourg", "LU")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Netherlands", "NL")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Norway", "NO")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Poland", "PL")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Romania", "RO")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI")) + 'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES")) + cboLand.changeItem("AT") + + cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) + + cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) + + txtEmailzurueck.Text = "juricevic@verag.ag" + txtOrt.Text = "Suben" + + If KdNR > 0 Then initKdNR(KdNR) + End Sub + + Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click + FormularManagerNEU.genPDF(Me, True) + End Sub + + + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + +End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index c82eb8d9..c71ab176 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -256,8 +256,9 @@ Public Class frmFormulare Case Else If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", FormularManagerArten.MDM_Vollmacht_PDF)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_Word)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU)) 'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU Vollmacht", FormularManagerArten.MDM_Vollmacht)) 'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO Vollmacht", FormularManagerArten.MDM_Vollmacht)) 'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR Vollmacht", FormularManagerArten.MDM_Vollmacht)) @@ -390,8 +391,8 @@ Public Class frmFormulare MyFlowLayoutPanel1.Controls.Add(c) End If - Case FormularManagerArten.MDM_Vollmacht_PDF - Dim c As New usrcntlVollmacht_MDM_PDF + Case FormularManagerArten.MDM_Vollmacht_BHI + Dim c As New usrcntlVollmacht_MDM_BHI If ControlExists_addOK(c.GetType.ToString) Then c.Width = MyFlowLayoutPanel1.Width - 6 c.KdNR = KdNr @@ -403,8 +404,8 @@ Public Class frmFormulare MyFlowLayoutPanel1.Controls.Add(c) End If - Case FormularManagerArten.MDM_Vollmacht_Word - Dim c As New usrcntlVollmacht_MDM_Word + Case FormularManagerArten.MDM_Vollmacht_EU + Dim c As New usrcntlVollmacht_MDM_EU If ControlExists_addOK(c.GetType.ToString) Then c.Width = MyFlowLayoutPanel1.Width - 6 c.KdNR = KdNr @@ -415,6 +416,20 @@ Public Class frmFormulare AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown MyFlowLayoutPanel1.Controls.Add(c) End If + + Case FormularManagerArten.MDM_Vollmacht_NICHT_EU + Dim c As New usrcntlVollmacht_MDM_NICHT_EU + If ControlExists_addOK(c.GetType.ToString) Then + c.Width = MyFlowLayoutPanel1.Width - 6 + c.KdNR = KdNr + AddHandler c.CHANGED, AddressOf ValueChanged + AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED + AddHandler c.DELETE, AddressOf ControlDELETE + AddHandler c.MOVE_UP, AddressOf ControlMoveUp + AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown + MyFlowLayoutPanel1.Controls.Add(c) + End If + Case FormularManagerArten.DE_Fiskal Dim c As New usrcntlVollmacht_DE_Fiskal If ControlExists_addOK(c.GetType.ToString) Then @@ -1459,11 +1474,14 @@ Public Class FormularManagerNEU Case GetType(usrcntlEinfuhrverbot).ToString retStr = FormularManagerNEU.Einfuhrverbot(c) - Case GetType(usrcntlVollmacht_MDM_PDF).ToString - retStr = FormularManagerNEU.VM_MDM_PDF(c) + Case GetType(usrcntlVollmacht_MDM_BHI).ToString + retStr = FormularManagerNEU.VM_MDM_BHI(c) - Case GetType(usrcntlVollmacht_MDM_Word).ToString - striList = FormularManagerNEU.VM_MDM_WORD(c, printReportElsePdf, printerName, openWord) + Case GetType(usrcntlVollmacht_MDM_EU).ToString + striList = FormularManagerNEU.VM_MDM_EU(c, printReportElsePdf, printerName, openWord) + + Case GetType(usrcntlVollmacht_MDM_NICHT_EU).ToString + striList = FormularManagerNEU.VM_MDM_NICHT_EU(c, printReportElsePdf, printerName, openWord) End Select If retStr <> "" Then @@ -1609,26 +1627,17 @@ Public Class FormularManagerNEU Return "" End Function - Shared Function VM_MDM_PDF(usrCntl As usrcntlVollmacht_MDM_PDF) As String + Shared Function VM_MDM_BHI(usrCntl As usrcntlVollmacht_MDM_BHI) As String + + 'aktuell nur als PDF Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) - Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager - list = fm.getPDFFields_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value) + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 70, 90, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text, 70, 98, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxLandKz.Text, 70, 105, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 70, 115, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 30, 197, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 122, 197, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) - For Each item In list Select Case item.Text.ToLower().Trim() @@ -1639,9 +1648,9 @@ Public Class FormularManagerNEU Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text)) Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) - Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) - Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) - Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) + Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) + Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) + Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text)) Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text)) Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy"))) @@ -1655,28 +1664,21 @@ Public Class FormularManagerNEU 'place 'c_mailcontact - Next - Select Case usrCntl.cbxVMArt._value - Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False) - Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False) - Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False) - - Case Else - - End Select - - + Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False) End Function - Shared Function VM_MDM_WORD(usrCntl As usrcntlVollmacht_MDM_Word, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String) + + Shared Function VM_MDM_NICHT_EU(usrCntl As usrcntlVollmacht_MDM_NICHT_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String) Dim striList As New List(Of String) Try + 'aktuell immer nur WORD + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing Dim oWord As New Microsoft.Office.Interop.Word.Application @@ -1684,10 +1686,129 @@ Public Class FormularManagerNEU Dim docBez As String = "" - Select Case usrCntl.cbxVMArt._value - Case "EU" : docBez = "VOLLMACHT_" & usrCntl.cboLand._value - Case "RO" : docBez = "GENERALVOLLMACHT_" & usrCntl.cbxVMArt._value & "_" & usrCntl.cbxSprache._value - End Select + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez) + Dim pfadWord = DS.GET_TOP1_PATH(False) + + Dim cGenWord As New cGenWord + + odoc = cGenWord.openWord(pfadWord, False, oWord) + If odoc Is Nothing Then Return striList + + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + For Each item In odoc.FormFields + + Dim fieldName = item.Name.ToLower().Trim() + + Select Case fieldName + Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text + Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text + Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text + Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz.Text & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text + Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text + Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text + Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text + Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text + Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text + Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular + Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular + Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text + Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_name2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_name3" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_name4" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_name5" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_name7" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez + Case "c_address" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort + Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort + Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID + Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax + Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text + Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1 + Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "") + Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "") + Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy") + + 'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) + 'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text)) + 'Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text)) + 'Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text)) + 'Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) + 'Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) + 'Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) + 'Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) + 'Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) + 'Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text)) + 'Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy"))) + + End Select + + Next + + + odoc.Save() : odoc.Activate() + + + If openWord Then + oWord.Visible = True + Return New List(Of String) + ElseIf printReportElsePDF Then + + oWord.DisplayAlerts = False + oWord.PrintOut() + Try + oWord.Documents.Close() + 'Quit word application + oWord.Quit() + + 'Release + oWord = Nothing + Catch ex As Exception + 'NIX, kann sein, dass noch offen.. + End Try + + Else + 'oWord.Visible = True + Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False) + + odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF) + + Try + odoc.Close() + oWord.Quit() + Catch ex As Exception + MsgBox(ex.Message) + End Try + striList.Add(path) + End If + + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) + End Try + + Return striList + + + + End Function + + + Shared Function VM_MDM_EU(usrCntl As usrcntlVollmacht_MDM_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String) + Dim striList As New List(Of String) + + + Try + + 'aktuell immer nur WORD + + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing + Dim oWord As New Microsoft.Office.Interop.Word.Application + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) + + Dim docBez As String = "" Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez) Dim pfadWord = DS.GET_TOP1_PATH(False) @@ -1775,7 +1896,7 @@ Public Class FormularManagerNEU Else 'oWord.Visible = True - Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False) + Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False) odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF) @@ -6247,8 +6368,9 @@ Public Class FormularManagerArten Shared Property AT_Fiskal = "AT_Fiskal" Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE" Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt" - Shared Property MDM_Vollmacht_PDF = "MDM_Vollmacht_PDF" - Shared Property MDM_Vollmacht_Word = "MDM_Vollmacht_Word" + Shared Property MDM_Vollmacht_BHI = "MDM_Vollmacht_BHI" + Shared Property MDM_Vollmacht_EU = "MDM_Vollmacht_EU" + Shared Property MDM_Vollmacht_NICHT_EU = "MDM_Vollmacht_NICHT_EU" Shared Property Vollmacht_FA = "Vollmacht_FA" Shared Property VERAG_EXPORT = "VERAG_EXPORT" Shared Property ATILLA_EXPORT = "ATILLA_EXPORT" diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 31d1b370..37688bfa 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -636,16 +636,22 @@ UserControl - - usrcntlVollmacht_MDM_Word.vb + + usrcntlVollmacht_MDM_NICHT_EU.vb - + UserControl - - usrcntlVollmacht_MDM_PDF.vb + + usrcntlVollmacht_MDM_EU.vb - + + UserControl + + + usrcntlVollmacht_MDM_BHI.vb + + UserControl @@ -3187,11 +3193,14 @@ usrcntlEinfuhrverbot.vb - - usrcntlVollmacht_MDM_Word.vb + + usrcntlVollmacht_MDM_NICHT_EU.vb - - usrcntlVollmacht_MDM_PDF.vb + + usrcntlVollmacht_MDM_EU.vb + + + usrcntlVollmacht_MDM_BHI.vb usrcntlVollmacht_DE_indirekt.vb diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index 1d533d65..b716ed79 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -250,7 +250,7 @@ Public Class frmVorauskasse End If 'sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben " & LKWAnkunft & " FROM tblVorauskassen WHERE 1=1 " - sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],vk_QS_SachbearbeiterId,[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben FROM tblVorauskassen " & LKWAnkunft & " " + sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],vk_QS_SachbearbeiterId,[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben,vk_SendungId FROM tblVorauskassen " & LKWAnkunft & " " ' MsgBox(sqlstr & getVorauskasseWhere() & " ORDER BY vk_Datum desc ") With MyDatagridview1 @@ -357,6 +357,7 @@ Public Class frmVorauskasse .MultiSelect = False .Columns("vk_id").Visible = False + .Columns("vk_SendungId").Visible = False .Columns("vk_QS_SachbearbeiterId").Visible = False .Columns("vk_FilialeNr").Width = 45 .Columns("vk_FilialeNr").HeaderText = "Filiale" @@ -440,17 +441,23 @@ Public Class frmVorauskasse Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value) VK.SET_GELDEINGANG(True, txtBemerkung.Text) Dim VermerkIDNew = -1 - cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew,,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value) + Dim sendungsId = -1 - If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then - Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL - cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew) + If MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value IsNot Nothing AndAlso MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value > -1 Then + sendungsId = MyDatagridview1.SelectedRows(0).Cells("vk_SendungId").Value End If - txtBemerkung.Text = "" - MyDatagridview1.RELOAD() - setDGVOptions() - End If + cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 14,,, VermerkIDNew, sendungsId,, MyDatagridview1.SelectedRows(0).Cells("vk_id").Value, MyDatagridview1.SelectedRows(0).Cells("vk_QS_SachbearbeiterId").Value) + + If VK.vk_VermerkId IsNot Nothing AndAlso VermerkIDNew > 0 Then + Dim cVermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL + cVermerkeDAL.SpeichernVermerkIDAufgehoben(VK.vk_VermerkId, VermerkIDNew) + End If + + txtBemerkung.Text = "" + MyDatagridview1.RELOAD() + setDGVOptions() + End If End Sub Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged diff --git a/SDL/kunden/frmKundenKontakteDetails.Designer.vb b/SDL/kunden/frmKundenKontakteDetails.Designer.vb index 69f6bbf3..909532aa 100644 --- a/SDL/kunden/frmKundenKontakteDetails.Designer.vb +++ b/SDL/kunden/frmKundenKontakteDetails.Designer.vb @@ -44,6 +44,16 @@ Partial Class frmKundenKontakteDetails Me.PictureBox7 = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() + Me.txtStrasse = New System.Windows.Forms.TextBox() + Me.txtOrt = New System.Windows.Forms.TextBox() + Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtPLZ = New System.Windows.Forms.TextBox() + Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() @@ -51,12 +61,15 @@ Partial Class frmKundenKontakteDetails CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'btn ' Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(185, 293) + Me.btn.Location = New System.Drawing.Point(373, 358) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(136, 39) Me.btn.TabIndex = 9 @@ -67,7 +80,7 @@ Partial Class frmKundenKontakteDetails ' Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon - Me.PictureBox1.Location = New System.Drawing.Point(17, 75) + Me.PictureBox1.Location = New System.Drawing.Point(9, 75) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(25, 18) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -123,7 +136,7 @@ Partial Class frmKundenKontakteDetails ' Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.email - Me.PictureBox4.Location = New System.Drawing.Point(20, 156) + Me.PictureBox4.Location = New System.Drawing.Point(12, 156) Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Size = New System.Drawing.Size(22, 18) Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -134,7 +147,7 @@ Partial Class frmKundenKontakteDetails ' Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax - Me.PictureBox2.Location = New System.Drawing.Point(17, 99) + Me.PictureBox2.Location = New System.Drawing.Point(9, 99) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(25, 18) Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -156,7 +169,7 @@ Partial Class frmKundenKontakteDetails ' Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.handy - Me.PictureBox3.Location = New System.Drawing.Point(17, 123) + Me.PictureBox3.Location = New System.Drawing.Point(9, 123) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(25, 18) Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -167,7 +180,7 @@ Partial Class frmKundenKontakteDetails ' Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.person - Me.PictureBox5.Location = New System.Drawing.Point(17, 242) + Me.PictureBox5.Location = New System.Drawing.Point(9, 242) Me.PictureBox5.Name = "PictureBox5" Me.PictureBox5.Size = New System.Drawing.Size(25, 18) Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -177,7 +190,7 @@ Partial Class frmKundenKontakteDetails 'lbl ' Me.lbl.AutoSize = True - Me.lbl.Location = New System.Drawing.Point(14, 13) + Me.lbl.Location = New System.Drawing.Point(6, 13) Me.lbl.Name = "lbl" Me.lbl.Size = New System.Drawing.Size(59, 13) Me.lbl.TabIndex = 0 @@ -190,9 +203,9 @@ Partial Class frmKundenKontakteDetails Me.cboKontaktArt._value = "" Me.cboKontaktArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) Me.cboKontaktArt.FormattingEnabled = True - Me.cboKontaktArt.Location = New System.Drawing.Point(17, 29) + Me.cboKontaktArt.Location = New System.Drawing.Point(9, 29) Me.cboKontaktArt.Name = "cboKontaktArt" - Me.cboKontaktArt.Size = New System.Drawing.Size(487, 28) + Me.cboKontaktArt.Size = New System.Drawing.Size(495, 28) Me.cboKontaktArt.TabIndex = 1 ' 'lblAnsprechpartnerVN @@ -234,7 +247,7 @@ Partial Class frmKundenKontakteDetails ' Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox6.Image = Global.SDL.My.Resources.Resources.email - Me.PictureBox6.Location = New System.Drawing.Point(20, 181) + Me.PictureBox6.Location = New System.Drawing.Point(12, 181) Me.PictureBox6.Name = "PictureBox6" Me.PictureBox6.Size = New System.Drawing.Size(22, 18) Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -257,7 +270,7 @@ Partial Class frmKundenKontakteDetails ' Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.email - Me.PictureBox7.Location = New System.Drawing.Point(20, 206) + Me.PictureBox7.Location = New System.Drawing.Point(12, 206) Me.PictureBox7.Name = "PictureBox7" Me.PictureBox7.Size = New System.Drawing.Size(22, 18) Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom @@ -282,12 +295,146 @@ Partial Class frmKundenKontakteDetails Me.Label2.TabIndex = 197 Me.Label2.Text = "BCC:" ' + 'txtStrasse + ' + Me.txtStrasse.BackColor = System.Drawing.Color.White + Me.txtStrasse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtStrasse.Location = New System.Drawing.Point(52, 271) + Me.txtStrasse.Name = "txtStrasse" + Me.txtStrasse.Size = New System.Drawing.Size(452, 26) + Me.txtStrasse.TabIndex = 198 + Me.txtStrasse.Text = "adresse" + ' + 'txtOrt + ' + Me.txtOrt.BackColor = System.Drawing.Color.White + Me.txtOrt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOrt.Location = New System.Drawing.Point(272, 303) + Me.txtOrt.Name = "txtOrt" + Me.txtOrt.Size = New System.Drawing.Size(232, 26) + Me.txtOrt.TabIndex = 203 + Me.txtOrt.Text = "ort" + ' + 'cbxLand + ' + Me.cbxLand._allowedValuesFreiText = Nothing + Me.cbxLand._allowFreiText = False + Me.cbxLand._value = "" + Me.cbxLand.DropDownWidth = 150 + Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) + Me.cbxLand.FormattingEnabled = True + Me.cbxLand.Location = New System.Drawing.Point(120, 303) + Me.cbxLand.Name = "cbxLand" + Me.cbxLand.Size = New System.Drawing.Size(41, 26) + Me.cbxLand.TabIndex = 205 + ' + 'txtPLZ + ' + Me.txtPLZ.BackColor = System.Drawing.Color.White + Me.txtPLZ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPLZ.Location = New System.Drawing.Point(167, 303) + Me.txtPLZ.Name = "txtPLZ" + Me.txtPLZ.Size = New System.Drawing.Size(99, 26) + Me.txtPLZ.TabIndex = 206 + Me.txtPLZ.Text = "plz" + ' + 'txtGebDatum + ' + Me.txtGebDatum._DateTimeOnly = False + Me.txtGebDatum._numbersOnly = False + Me.txtGebDatum._numbersOnlyKommastellen = "" + Me.txtGebDatum._numbersOnlyTrennzeichen = True + Me.txtGebDatum._Prozent = False + Me.txtGebDatum._ShortDateNew = True + Me.txtGebDatum._ShortDateOnly = False + Me.txtGebDatum._TimeOnly = False + Me.txtGebDatum._TimeOnly_Seconds = False + Me.txtGebDatum._value = "geburtsdatum" + Me.txtGebDatum._Waehrung = False + Me.txtGebDatum._WaehrungZeichen = False + Me.txtGebDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtGebDatum.ForeColor = System.Drawing.Color.Black + Me.txtGebDatum.Location = New System.Drawing.Point(120, 332) + Me.txtGebDatum.MaxLength = 10 + Me.txtGebDatum.MaxLineLength = -1 + Me.txtGebDatum.MaxLines_Warning = "" + Me.txtGebDatum.MaxLines_Warning_Label = Nothing + Me.txtGebDatum.Multiline = True + Me.txtGebDatum.Name = "txtGebDatum" + Me.txtGebDatum.Size = New System.Drawing.Size(200, 26) + Me.txtGebDatum.TabIndex = 207 + Me.txtGebDatum.Text = "geburtsdatum" + ' + 'PictureBox8 + ' + Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox8.Image = CType(resources.GetObject("PictureBox8.Image"), System.Drawing.Image) + Me.PictureBox8.Location = New System.Drawing.Point(9, 271) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(25, 18) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox8.TabIndex = 208 + Me.PictureBox8.TabStop = False + ' + 'PictureBox9 + ' + Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox9.Image = CType(resources.GetObject("PictureBox9.Image"), System.Drawing.Image) + Me.PictureBox9.Location = New System.Drawing.Point(9, 340) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(25, 18) + Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox9.TabIndex = 209 + Me.PictureBox9.TabStop = False + ' + 'PictureBox10 + ' + Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox10.Image = CType(resources.GetObject("PictureBox10.Image"), System.Drawing.Image) + Me.PictureBox10.Location = New System.Drawing.Point(9, 305) + Me.PictureBox10.Name = "PictureBox10" + Me.PictureBox10.Size = New System.Drawing.Size(25, 18) + Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox10.TabIndex = 210 + Me.PictureBox10.TabStop = False + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(40, 310) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(78, 13) + Me.Label3.TabIndex = 211 + Me.Label3.Text = "Land/PLZ/Ort:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(40, 345) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(53, 13) + Me.Label4.TabIndex = 212 + Me.Label4.Text = "Geb-Dat.:" + ' 'frmKundenKontakteDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(521, 357) + Me.ClientSize = New System.Drawing.Size(521, 409) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.PictureBox10) + Me.Controls.Add(Me.PictureBox9) + Me.Controls.Add(Me.PictureBox8) + Me.Controls.Add(Me.txtGebDatum) + Me.Controls.Add(Me.txtPLZ) + Me.Controls.Add(Me.cbxLand) + Me.Controls.Add(Me.txtOrt) + Me.Controls.Add(Me.txtStrasse) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.lblEmailBCC) @@ -320,6 +467,9 @@ Partial Class frmKundenKontakteDetails CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -346,4 +496,14 @@ Partial Class frmKundenKontakteDetails Friend WithEvents PictureBox7 As PictureBox Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label + Friend WithEvents txtStrasse As TextBox + Friend WithEvents txtOrt As TextBox + Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtPLZ As TextBox + Friend WithEvents txtGebDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents PictureBox8 As PictureBox + Friend WithEvents PictureBox9 As PictureBox + Friend WithEvents PictureBox10 As PictureBox + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label End Class diff --git a/SDL/kunden/frmKundenKontakteDetails.resx b/SDL/kunden/frmKundenKontakteDetails.resx index d584bd9e..c830b5b5 100644 --- a/SDL/kunden/frmKundenKontakteDetails.resx +++ b/SDL/kunden/frmKundenKontakteDetails.resx @@ -118,6 +118,141 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t + 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA + AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2 + VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp + pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom + HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC + hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983 + JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ + ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH + fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M + qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G + nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv + bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB + Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr + uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0 + FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2 + ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC + mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa + Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU + qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ + 264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc + eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78 + ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji + Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A + bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT + DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6 + 8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN + 1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw + vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4 + TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0 + px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr + 8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H + P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS + +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf + 4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w + uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3 + nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj + 27d/ABBabbXEUZDWAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACpNJREFUeF7t + nYGN4wYSBC8Uh+JQPhOH4lAcikP518BHWL/Xe7t7PU2RM1VA4fGA/33qo0okJe1+AwAAAAAAAAAAAAAA + AAAAAAAAAAC4Nf8J+NtD6KU2VVu7wnL+G5ADq5/aVG3tCstRB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHo + hwBABHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBA + BHVQuBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CABEUAeFKwHohwBABHVQ + uBKAfggARFAHhSsB6IcAQAR1ULgSgH4IAERQB4UrAeiHAEAEdVC4EoB+CAD8QP2k2D8e/vnwr++qv2TE + Dv/+bh1ndcxVlPgJ0CdzPOl5suNVrCjUMUkMwtTI6i8A8QoeIYBmUtd/iAkJQSN1raVGRry6RMCgrqe4 + zse7W2cD3Bv4BXjy4xSJwBfhyY/TrAjAJ+CaH6daxzb8hN8fquEQp8inRH9CnSap0RCnyKXAO/AhH9wi + lwICNRTiRHlX4A180g+3yYeEnuBtP9xmHfPwHTUQ4nTrXa/1cPqPW+UtwQd88Ae3yrsBDwgAbpX7AA/4 + 8A9ulQ8FPSAAuFUC8EAN41qXFXWDBbHL1KXqetQorvUXBtBJHVPqWHNdjxrFlQBANwQghBrFlQBANwQg + hBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBA + NwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrF + lQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlQBANwQghBrFlR8Kit3yQ0FDqFEQt7geNQriFtejRkHc + 4nrUKIhbXI8aBXGL61GjIG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61Gj + IG5xPWoUxC2uR42CuMX1qFEQt7geNQriFtejRkHc4nrUKIhbXI8aBXGL61GjuNZPcQXopI4pday5rkeN + 4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsCEEKN4koAoBsC + EEKN4koAoBsCEEKN4koAoBsCEEKN4koAfs5v3/39yfrv8D4EIIQaxZUA/Es9sf/47t8P1V7P1j/z58Pa + sMIA/0AAQqhRXAnAP0/4vx6qfb5iBYE9CUAMNYrr5gO2XrU/80r/Vev/s6KyFQIQQo3iujEAdarf8Yr/ + kRWCjZcGBCCEGsV1WwBSB+d7bjwbIAAh1CiumwJQT0S1wRluigABCKFGcd0SgDNO+T+yzgY2QABCqFFc + NwTgCk/+w3rbcDoEIIQaxXV6AF552v+e0y8HCEAINYrr5ADUHXj1mK/g5HcHCEAINYrr5ACox3sV637A + 1I8UE4AQahTXqQGoa231eK/k1PsBBCCEGsV1YgCufOr/7NQPChGAEGoU14kBuNJd/4+ceBZAAEKoUVyn + BeAur/6HE88CCEAINYrrtABc8W2/j5z2tiABCKFGcZ0WgHpFVY/zyk77hCABCKFGcZ0WAPUY7+CkywAC + EEKN4jopAKkD7wwJwMeuR43iOikAd3jv/z0n3QcgACHUKK4E4BrWW5dTIAAh1CiukwJwxxuAh5NuBBKA + EGoUVwJwDQnAx65HjeI6KQDq8d1FAvCx61GjuBKA6zgFAhBCjeI6KQBcAlwDAhBCjeI6KQB3+hLQW3kX + 4GPXo0ZxJQDXcNK3AglACDWK66QA3PGLQId8EOhj16NGcZ0UgLt9FfhZPgr8setRo7hOCkD9jD31GO/g + JAhACDWK66QAFHe8DzDtpwIRgBBqFNdpAbjjZcCk0/+CAIRQo7hOC8BZv/m3y0nv/x8QgBBqFNdpAShS + B2BC9v+861GjuE48AO9yFjDpwz/PEIAQahTXiQEo7nAvYNq1/wEBCKFGcZ0agOLKPyBk2p3/ZwhACDWK + 6+QAXPVSYOqp/wEBCKFGcZ0cgKIicKVvCU686/8WAhBCjeI6PQDFVSJQf4ap1/3PEIAQahTXDQEoXh2B + Da/8BwQghBrFdUsAilfdE5h+zf8WAhBCjeK6KQBFReDMrw1P+71/n4EAhFCjuG4LwEGFIPk2Yb3q179j + IwQghBrFdWsADrpDUE/87ZsSgBBqFNftB+tBhaC2+JV7BHWDr071t77iv4UAhFCjuBKAH6kn8hGEOjs4 + rDjUf9aTvdzwlt6vQABCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBC + qFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCQB0QwBCqFFcCcCP + HN8FKOvz/u95/DPw/xCAEGoU120BOJ7Uxxd66gs+pfvjwup/f3h8aai2LevftwkCEEKN4jo5APVkf36i + q8d/lkccjjBMjgIBCKFGcZ0UgOMJ/+on+2c9zhbqzzwpCAQghBrF9e4BOE7n1WO7m89nCHeGAIRQo7je + 8WA7XunV45niEYM7nhkQgBBqFNc7BaCe9PXEUI9jsvWY67HfBQIQQo3ievUAbHi1/6x3CQEBCKFGcb1y + AHjia68eAgIQQo3iesUA1HXvxlP9r3rVEBCAEGoU1ysFgNP9X/NqESAAIdQorlcJQL3qqz8ffs46G6iA + XgECEEKN4nqFAKQOmG1e5ZKAAIRQo7i+OgA8+ft9dQQIQAg1iusrA8CTP+crI0AAQqhRXF8VAK75877q + 75YAhFCjuL7iIKmbVerPgr2+6sYgAQihRnF9RQDu8m29CVYEzoYAhFCjuJ4dgNTBge979heKCEAINYrr + 2QGoVyT158CcZ58FEIAQahTXMwPAq//rPPMsgACEUKO4nhmA+n67+jNg3jPfFiQAIdQormcGgJt/r7O2 + PwsCEEKN4npmALj+f51n3gcgACHUKK5nBkD9+/EcCcAA1CiuBGCPZ0EAQqhRXM8MAOyAAIRQo7gSAOiG + AIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gSAOiGAIRQo7gS + AOiGAIRQo7gSAOiGAIRQo7gev48escvU177Xw7fpcLPr4fv0uNUzf57BZSEAuNW6rFgPP1ILt0oAHtQN + FjUO4nTr2F8Pv1EHt3qVX33+crgPgNvk9P+J+vHOaiTEqXL6/wSXAbhNTv/fwM1A3OKZv9DkNlQR+VQg + bhDegbMAnC7X/h/ADUGcKh/9/QR1KcDbgjhNnvxfgPsBOMkzf4XZGDgTwAny5DeoCHBPAO8qp/1NVAS4 + JMC7WMcq7/U3w9kA3kGe+GGOEHB/AK8ir/gvomJQH6yob1ZVEEouFTBlHVtlHWd1zPGkBwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGM+3b/8D + 5YK/CrjgMXgAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t + 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA + AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2 + VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp + pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom + HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC + hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983 + JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ + ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH + fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M + qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G + nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv + bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB + Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr + uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0 + FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2 + ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC + mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa + Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU + qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ + 264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc + eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78 + ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji + Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A + bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT + DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6 + 8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN + 1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw + vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4 + TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0 + px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr + 8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H + P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS + +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf + 4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w + uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3 + nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj + 27d/ABBabbXEUZDWAAAAAElFTkSuQmCC + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/kunden/frmKundenKontakteDetails.vb b/SDL/kunden/frmKundenKontakteDetails.vb index 66f997b7..8e53b751 100644 --- a/SDL/kunden/frmKundenKontakteDetails.vb +++ b/SDL/kunden/frmKundenKontakteDetails.vb @@ -32,6 +32,9 @@ cboMannFrau.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frau", "Frau")) cboKontaktArt.fillWithSQL("SELECT [kka_id],[kka_Bezeichnung] FROM [tblKundenKontaktArten]", False, "FMZOLL", False) + cbxLand.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) + cbxLand.changeItem("") + If cboKontaktArt.Items.Count > 0 Then cboKontaktArt.SelectedIndex = 0 If kkd_id > 0 Then @@ -58,6 +61,12 @@ lblEmailCC.Text = If(KD_KONTAKT.kkd_EmailCC, "") lblEmailBCC.Text = If(KD_KONTAKT.kkd_EmailBCC, "") lblMobil.Text = If(KD_KONTAKT.kkd_Mobil, "") + txtOrt.Text = If(KD_KONTAKT.kkd_Ort, "") + txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "") + txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "") + If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land) + txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "") + End Sub Sub getvalue() @@ -78,6 +87,12 @@ KD_KONTAKT.kkd_EmailBCC = lblEmailBCC.Text KD_KONTAKT.kkd_Mobil = lblMobil.Text + KD_KONTAKT.kkd_GebDatum = IIf(txtGebDatum.Text <> "" AndAlso IsDate(txtGebDatum.Text), txtGebDatum.Text, "") + KD_KONTAKT.kkd_Ort = txtOrt.Text + KD_KONTAKT.kkd_Land = cbxLand._value + KD_KONTAKT.kkd_PLZ = txtPLZ.Text + KD_KONTAKT.kkd_Adresse = txtStrasse.Text + End Sub Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click @@ -86,7 +101,4 @@ Me.Close() End Sub - Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles lblEmailCC.TextChanged - - End Sub End Class diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 19a722f1..6f74f00c 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -45,12 +45,10 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.btnReloadOP = New System.Windows.Forms.Button() Me.Label11 = New System.Windows.Forms.Label() - Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() @@ -100,9 +98,6 @@ Partial Class frmKundenblatt Me.Panel5 = New System.Windows.Forms.Panel() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() - Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label34 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() @@ -113,24 +108,18 @@ Partial Class frmKundenblatt Me.Label33 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() - Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.lblAenderungsdatum_SDL = New System.Windows.Forms.Label() Me.lblErfassungsdatum_SDL = New System.Windows.Forms.Label() Me.grpMautDE = New System.Windows.Forms.GroupBox() Me.Button15 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() - Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMautDEFlottenPIN = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -151,28 +140,15 @@ Partial Class frmKundenblatt Me.Label7 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() Me.Label8 = New System.Windows.Forms.Label() - Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.Label27 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() - Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -193,11 +169,35 @@ Partial Class frmKundenblatt Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.lblINAKTIV = New System.Windows.Forms.Label() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.tbiLeistungen = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() + Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -274,7 +274,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 914) + Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 965) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -284,19 +284,9 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1624, 908) + Me.Panel4.Size = New System.Drawing.Size(1624, 959) Me.Panel4.TabIndex = 0 ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 908) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -312,7 +302,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1638, 943) + Me.tbcntrMain.Size = New System.Drawing.Size(1638, 994) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -352,7 +342,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1630, 914) + Me.tbAllgemein.Size = New System.Drawing.Size(1630, 965) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -380,18 +370,6 @@ Partial Class frmKundenblatt Me.Label11.TabIndex = 178 Me.Label11.Text = "Daten für Firma:" ' - 'cboFirmaFMZOLL - ' - Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing - Me.cboFirmaFMZOLL._allowFreiText = False - Me.cboFirmaFMZOLL._value = "" - Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) - Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) - Me.cboFirmaFMZOLL.TabIndex = 179 - ' 'Label10 ' Me.Label10.AutoSize = True @@ -438,7 +416,6 @@ Partial Class frmKundenblatt DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvOffenePosten.DefaultCellStyle = DataGridViewCellStyle3 Me.dgvOffenePosten.Location = New System.Drawing.Point(12, 591) - Me.dgvOffenePosten.MultiSelect = False Me.dgvOffenePosten.Name = "dgvOffenePosten" Me.dgvOffenePosten.ReadOnly = True DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft @@ -451,7 +428,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 315) + Me.dgvOffenePosten.Size = New System.Drawing.Size(714, 366) Me.dgvOffenePosten.TabIndex = 175 ' 'btnOP @@ -791,7 +768,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle7 - Me.dgvSperrliste.Size = New System.Drawing.Size(432, 870) + Me.dgvSperrliste.Size = New System.Drawing.Size(432, 921) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -845,7 +822,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1630, 914) + Me.tbZoll.Size = New System.Drawing.Size(1630, 965) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -857,7 +834,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 908) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 959) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -865,7 +842,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 882) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 933) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -876,7 +853,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1630, 914) + Me.tbMdm.Size = New System.Drawing.Size(1630, 965) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -894,7 +871,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 908) + Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 959) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -906,7 +883,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1616, 882) + Me.tbSDL.Size = New System.Drawing.Size(1616, 933) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -948,7 +925,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle13 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 686) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 737) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1052,7 +1029,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 736) + Me.Panel5.Location = New System.Drawing.Point(3, 787) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.TabIndex = 177 @@ -1078,67 +1055,6 @@ Partial Class frmKundenblatt Me.flpSDLDok.Size = New System.Drawing.Size(158, 125) Me.flpSDLDok.TabIndex = 176 ' - 'scanErstbestellung - ' - Me.scanErstbestellung._ARCHIV = True - Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" - Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing - Me.scanErstbestellung._MULTI_FILES = True - Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" - Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanErstbestellung.BackColor = System.Drawing.Color.White - Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) - Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) - Me.scanErstbestellung.Name = "scanErstbestellung" - Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) - Me.scanErstbestellung.TabIndex = 172 - ' - 'scanJaraVereinbarung - ' - Me.scanJaraVereinbarung._ARCHIV = True - Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" - Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing - Me.scanJaraVereinbarung._MULTI_FILES = True - Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" - Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White - Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) - Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) - Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" - Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) - Me.scanJaraVereinbarung.TabIndex = 173 - ' - 'scanMWSTAgreement - ' - Me.scanMWSTAgreement._ARCHIV = True - Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" - Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing - Me.scanMWSTAgreement._MULTI_FILES = True - Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" - Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White - Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) - Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) - Me.scanMWSTAgreement.Name = "scanMWSTAgreement" - Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) - Me.scanMWSTAgreement.TabIndex = 174 - Me.scanMWSTAgreement.Visible = False - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1238,25 +1154,6 @@ Partial Class frmKundenblatt Me.Label32.TabIndex = 13 Me.Label32.Text = "Letzter Sachbearbeiter:" ' - 'scanSDLSonst - ' - Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" - Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" - Me.scanSDLSonst._OPEN_ORIGINAL = False - Me.scanSDLSonst._TYPE = "PDF" - Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSDLSonst.BackColor = System.Drawing.Color.White - Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) - Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) - Me.scanSDLSonst.Name = "scanSDLSonst" - Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) - Me.scanSDLSonst.TabIndex = 173 - ' 'lblAenderungsdatum_SDL ' Me.lblAenderungsdatum_SDL.AutoSize = True @@ -1313,29 +1210,6 @@ Partial Class frmKundenblatt Me.Label1.TabIndex = 19 Me.Label1.Text = "Benutzer-Nr:" ' - 'txtMautDE_BenutzerNr - ' - Me.txtMautDE_BenutzerNr._DateTimeOnly = False - Me.txtMautDE_BenutzerNr._numbersOnly = True - Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" - Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True - Me.txtMautDE_BenutzerNr._Prozent = False - Me.txtMautDE_BenutzerNr._ShortDateNew = False - Me.txtMautDE_BenutzerNr._ShortDateOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False - Me.txtMautDE_BenutzerNr._value = "" - Me.txtMautDE_BenutzerNr._Waehrung = False - Me.txtMautDE_BenutzerNr._WaehrungZeichen = True - Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) - Me.txtMautDE_BenutzerNr.MaxLineLength = -1 - Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" - Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing - Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" - Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) - Me.txtMautDE_BenutzerNr.TabIndex = 18 - ' 'lblMautDEFlottenPIN ' Me.lblMautDEFlottenPIN.AutoSize = True @@ -1354,52 +1228,6 @@ Partial Class frmKundenblatt Me.Label6.TabIndex = 17 Me.Label6.Text = "Master-PIN:" ' - 'txtMautDE_FlottenPIN - ' - Me.txtMautDE_FlottenPIN._DateTimeOnly = False - Me.txtMautDE_FlottenPIN._numbersOnly = True - Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" - Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True - Me.txtMautDE_FlottenPIN._Prozent = False - Me.txtMautDE_FlottenPIN._ShortDateNew = False - Me.txtMautDE_FlottenPIN._ShortDateOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False - Me.txtMautDE_FlottenPIN._value = "" - Me.txtMautDE_FlottenPIN._Waehrung = False - Me.txtMautDE_FlottenPIN._WaehrungZeichen = True - Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) - Me.txtMautDE_FlottenPIN.MaxLineLength = -1 - Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" - Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" - Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDE_FlottenPIN.TabIndex = 14 - ' - 'txtMautDEMasterPIN - ' - Me.txtMautDEMasterPIN._DateTimeOnly = False - Me.txtMautDEMasterPIN._numbersOnly = True - Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" - Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True - Me.txtMautDEMasterPIN._Prozent = False - Me.txtMautDEMasterPIN._ShortDateNew = False - Me.txtMautDEMasterPIN._ShortDateOnly = False - Me.txtMautDEMasterPIN._TimeOnly = False - Me.txtMautDEMasterPIN._TimeOnly_Seconds = False - Me.txtMautDEMasterPIN._value = "" - Me.txtMautDEMasterPIN._Waehrung = False - Me.txtMautDEMasterPIN._WaehrungZeichen = True - Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) - Me.txtMautDEMasterPIN.MaxLineLength = -1 - Me.txtMautDEMasterPIN.MaxLines_Warning = "" - Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" - Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDEMasterPIN.TabIndex = 16 - ' 'lblLetzterSA_SDL ' Me.lblLetzterSA_SDL.AutoSize = True @@ -1425,21 +1253,11 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1616, 933) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) - Me.usrcntlKarten.TabIndex = 0 - ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1447,7 +1265,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(178, 39) + Me.tbLKW.Size = New System.Drawing.Size(1616, 933) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1459,22 +1277,9 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) + Me.pnlLKWRight.Size = New System.Drawing.Size(1304, 927) Me.pnlLKWRight.TabIndex = 2 ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) - Me.UsrCntlLKW1.TabIndex = 0 - ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1483,7 +1288,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 927) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1524,7 +1329,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 0) + Me.dgvLKW.Size = New System.Drawing.Size(306, 753) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1536,7 +1341,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 815) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1677,7 +1482,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) + Me.tbVERAGCard.Size = New System.Drawing.Size(1616, 933) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1689,7 +1494,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(172, 33) + Me.Panel3.Size = New System.Drawing.Size(1610, 927) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1707,7 +1512,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(178, 39) + Me.tbDokumente.Size = New System.Drawing.Size(1616, 933) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1742,6 +1547,508 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' + 'tbBesuchsberichte + ' + Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) + Me.tbBesuchsberichte.Name = "tbBesuchsberichte" + Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1616, 933) + Me.tbBesuchsberichte.TabIndex = 9 + Me.tbBesuchsberichte.Text = "Besuchsberichte" + Me.tbBesuchsberichte.UseVisualStyleBackColor = True + ' + 'tbOfferte + ' + Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1) + Me.tbOfferte.Location = New System.Drawing.Point(4, 25) + Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) + Me.tbOfferte.Name = "tbOfferte" + Me.tbOfferte.Size = New System.Drawing.Size(1630, 965) + Me.tbOfferte.TabIndex = 11 + Me.tbOfferte.Text = "Offerte" + Me.tbOfferte.UseVisualStyleBackColor = True + ' + 'tbUSTV + ' + Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) + Me.tbUSTV.Location = New System.Drawing.Point(4, 25) + Me.tbUSTV.Name = "tbUSTV" + Me.tbUSTV.Size = New System.Drawing.Size(1630, 965) + Me.tbUSTV.TabIndex = 12 + Me.tbUSTV.Text = "USTV" + Me.tbUSTV.UseVisualStyleBackColor = True + ' + 'tbcntrUSTV + ' + Me.tbcntrUSTV.Controls.Add(Me.tbUSTVDokumente) + Me.tbcntrUSTV.Controls.Add(Me.tbUSTVAntrage) + Me.tbcntrUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.tbcntrUSTV.Location = New System.Drawing.Point(0, 0) + Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) + Me.tbcntrUSTV.Name = "tbcntrUSTV" + Me.tbcntrUSTV.SelectedIndex = 0 + Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 965) + Me.tbcntrUSTV.TabIndex = 1 + ' + 'tbUSTVDokumente + ' + Me.tbUSTVDokumente.Controls.Add(Me.Label8) + Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVsonstigeDokumente) + Me.tbUSTVDokumente.Controls.Add(Me.Label27) + Me.tbUSTVDokumente.Controls.Add(Me.Label37) + Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVFABest) + Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) + Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) + Me.tbUSTVDokumente.Name = "tbUSTVDokumente" + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 939) + Me.tbUSTVDokumente.TabIndex = 8 + Me.tbUSTVDokumente.Text = "Dokumente" + Me.tbUSTVDokumente.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(604, 17) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(126, 13) + Me.Label8.TabIndex = 8 + Me.Label8.Text = "sonstige Dokumente:" + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(311, 17) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(153, 13) + Me.Label27.TabIndex = 6 + Me.Label27.Text = "Finanzamt-Bestätigungen:" + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.Location = New System.Drawing.Point(14, 17) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(113, 13) + Me.Label37.TabIndex = 2 + Me.Label37.Text = "USTV Vollmachten" + ' + 'tbUSTVAntrage + ' + Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV) + Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) + Me.tbUSTVAntrage.Name = "tbUSTVAntrage" + Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 939) + Me.tbUSTVAntrage.TabIndex = 9 + Me.tbUSTVAntrage.Text = "USTV-Anträge" + Me.tbUSTVAntrage.UseVisualStyleBackColor = True + ' + 'cntxtExcel + ' + Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6}) + Me.cntxtExcel.Name = "cntxtExcel" + Me.cntxtExcel.Size = New System.Drawing.Size(211, 48) + Me.cntxtExcel.Text = "Excel" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22) + Me.ToolStripMenuItem3.Text = "Einfach" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) + Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" + ' + 'btnAbfVerb + ' + Me.btnAbfVerb.BackColor = System.Drawing.Color.White + Me.btnAbfVerb.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAbfVerb.ForeColor = System.Drawing.Color.Black + Me.btnAbfVerb.Location = New System.Drawing.Point(1010, 43) + Me.btnAbfVerb.Name = "btnAbfVerb" + Me.btnAbfVerb.Size = New System.Drawing.Size(165, 25) + Me.btnAbfVerb.TabIndex = 1 + Me.btnAbfVerb.Text = "Abfertigungsverbot setzen" + Me.btnAbfVerb.UseVisualStyleBackColor = False + Me.btnAbfVerb.Visible = False + ' + 'lblAbfVerb + ' + Me.lblAbfVerb.AutoSize = True + Me.lblAbfVerb.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblAbfVerb.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAbfVerb.ForeColor = System.Drawing.Color.White + Me.lblAbfVerb.Location = New System.Drawing.Point(1396, 117) + Me.lblAbfVerb.Name = "lblAbfVerb" + Me.lblAbfVerb.Size = New System.Drawing.Size(242, 20) + Me.lblAbfVerb.TabIndex = 2 + Me.lblAbfVerb.Text = "! ABFERTIGUNGSVERBOT !" + Me.lblAbfVerb.Visible = False + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip1" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(119, 26) + ' + 'LöschenToolStripMenuItem + ' + Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" + Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22) + Me.LöschenToolStripMenuItem.Text = "Löschen" + ' + 'ContextMenuStrip3 + ' + Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1}) + Me.ContextMenuStrip3.Name = "ContextMenuStrip1" + Me.ContextMenuStrip3.Size = New System.Drawing.Size(119, 26) + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22) + Me.ToolStripMenuItem1.Text = "Löschen" + ' + 'mne + ' + Me.mne.AutoSize = False + Me.mne.BackgroundImage = Global.SDL.My.Resources.Resources.transp + Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom + Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25) + Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7}) + Me.mne.Location = New System.Drawing.Point(0, 31) + Me.mne.Name = "mne" + Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) + Me.mne.Size = New System.Drawing.Size(1638, 81) + Me.mne.TabIndex = 3 + Me.mne.Text = "mnue" + ' + 'AllgemeinToolStripMenuItem + ' + Me.AllgemeinToolStripMenuItem.AutoSize = False + Me.AllgemeinToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.AllgemeinToolStripMenuItem.ForeColor = System.Drawing.Color.White + Me.AllgemeinToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.report + Me.AllgemeinToolStripMenuItem.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.AllgemeinToolStripMenuItem.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem" + Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(94, 70) + Me.AllgemeinToolStripMenuItem.Text = "Allgemein" + Me.AllgemeinToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.AllgemeinToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.AutoSize = False + Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.kunden + Me.ToolStripMenuItem2.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(122, 70) + Me.ToolStripMenuItem2.Text = "Firmendaten" + Me.ToolStripMenuItem2.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.AutoSize = False + Me.ToolStripMenuItem4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem4.DropDown = Me.cntxtCntxtMDM + Me.ToolStripMenuItem4.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.logo_mdm + Me.ToolStripMenuItem4.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem4.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem4.MergeIndex = 10 + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 60) + Me.ToolStripMenuItem4.Text = "Maut/Diesel" + Me.ToolStripMenuItem4.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'cntxtCntxtMDM + ' + Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 + Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) + Me.cntxtCntxtMDM.Text = "cntxtMDM" + ' + 'ToolStripMenuItem8 + ' + Me.ToolStripMenuItem8.AutoSize = False + Me.ToolStripMenuItem8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem8.DropDown = Me.cntxtCntxtMDM + Me.ToolStripMenuItem8.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem8.Image = Global.SDL.My.Resources.Resources.logo_mdm + Me.ToolStripMenuItem8.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem8.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem8.MergeIndex = 10 + Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" + Me.ToolStripMenuItem8.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 60) + Me.ToolStripMenuItem8.Text = "USTV" + Me.ToolStripMenuItem8.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem8.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.AutoSize = False + Me.ToolStripMenuItem5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem5.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.zoll + Me.ToolStripMenuItem5.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(55, 60) + Me.ToolStripMenuItem5.Text = "Zoll" + Me.ToolStripMenuItem5.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.AutoSize = False + Me.ToolStripMenuItem7.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.checklist1 + Me.ToolStripMenuItem7.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem7.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(0) + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(150, 60) + Me.ToolStripMenuItem7.Text = "Offerte / Preise" + Me.ToolStripMenuItem7.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnl.Controls.Add(Me.pnlInfo) + Me.pnl.Controls.Add(Me.lblINAKTIV) + Me.pnl.Controls.Add(Me.mne) + Me.pnl.Controls.Add(Me.KdSearchBox1) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(1638, 112) + Me.pnl.TabIndex = 0 + ' + 'lblINAKTIV + ' + Me.lblINAKTIV.AutoSize = True + Me.lblINAKTIV.BackColor = System.Drawing.Color.White + Me.lblINAKTIV.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblINAKTIV.ForeColor = System.Drawing.Color.Red + Me.lblINAKTIV.Location = New System.Drawing.Point(1070, 8) + Me.lblINAKTIV.Name = "lblINAKTIV" + Me.lblINAKTIV.Size = New System.Drawing.Size(98, 20) + Me.lblINAKTIV.TabIndex = 2 + Me.lblINAKTIV.Text = "! INAKTIV !" + Me.lblINAKTIV.Visible = False + ' + 'tbiLeistungen + ' + Me.tbiLeistungen.Name = "tbiLeistungen" + Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) + Me.tbiLeistungen.Text = "Leistungen" + ' + 'tbiKartenverwaltung + ' + Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" + Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) + Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + ' + 'tbiLKW + ' + Me.tbiLKW.Name = "tbiLKW" + Me.tbiLKW.Size = New System.Drawing.Size(186, 22) + Me.tbiLKW.Text = "LKWs" + ' + 'tbiVERAGCard + ' + Me.tbiVERAGCard.Name = "tbiVERAGCard" + Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) + Me.tbiVERAGCard.Text = "VERAG Card" + ' + 'cboFirmaFMZOLL + ' + Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing + Me.cboFirmaFMZOLL._allowFreiText = False + Me.cboFirmaFMZOLL._value = "" + Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirmaFMZOLL.FormattingEnabled = True + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) + Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) + Me.cboFirmaFMZOLL.TabIndex = 179 + ' + 'scanErstbestellung + ' + Me.scanErstbestellung._ARCHIV = True + Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" + Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanErstbestellung._MULTI_FILES = True + Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" + Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanErstbestellung.BackColor = System.Drawing.Color.White + Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) + Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) + Me.scanErstbestellung.Name = "scanErstbestellung" + Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) + Me.scanErstbestellung.TabIndex = 172 + ' + 'scanJaraVereinbarung + ' + Me.scanJaraVereinbarung._ARCHIV = True + Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" + Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing + Me.scanJaraVereinbarung._MULTI_FILES = True + Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" + Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White + Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) + Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) + Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" + Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) + Me.scanJaraVereinbarung.TabIndex = 173 + ' + 'scanMWSTAgreement + ' + Me.scanMWSTAgreement._ARCHIV = True + Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" + Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing + Me.scanMWSTAgreement._MULTI_FILES = True + Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" + Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White + Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) + Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) + Me.scanMWSTAgreement.Name = "scanMWSTAgreement" + Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) + Me.scanMWSTAgreement.TabIndex = 174 + Me.scanMWSTAgreement.Visible = False + ' + 'scanSDLSonst + ' + Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" + Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" + Me.scanSDLSonst._OPEN_ORIGINAL = False + Me.scanSDLSonst._TYPE = "PDF" + Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSDLSonst.BackColor = System.Drawing.Color.White + Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) + Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) + Me.scanSDLSonst.Name = "scanSDLSonst" + Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) + Me.scanSDLSonst.TabIndex = 173 + ' + 'txtMautDE_BenutzerNr + ' + Me.txtMautDE_BenutzerNr._DateTimeOnly = False + Me.txtMautDE_BenutzerNr._numbersOnly = True + Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" + Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True + Me.txtMautDE_BenutzerNr._Prozent = False + Me.txtMautDE_BenutzerNr._ShortDateNew = False + Me.txtMautDE_BenutzerNr._ShortDateOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False + Me.txtMautDE_BenutzerNr._value = "" + Me.txtMautDE_BenutzerNr._Waehrung = False + Me.txtMautDE_BenutzerNr._WaehrungZeichen = True + Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) + Me.txtMautDE_BenutzerNr.MaxLineLength = -1 + Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" + Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing + Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" + Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) + Me.txtMautDE_BenutzerNr.TabIndex = 18 + ' + 'txtMautDE_FlottenPIN + ' + Me.txtMautDE_FlottenPIN._DateTimeOnly = False + Me.txtMautDE_FlottenPIN._numbersOnly = True + Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" + Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True + Me.txtMautDE_FlottenPIN._Prozent = False + Me.txtMautDE_FlottenPIN._ShortDateNew = False + Me.txtMautDE_FlottenPIN._ShortDateOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False + Me.txtMautDE_FlottenPIN._value = "" + Me.txtMautDE_FlottenPIN._Waehrung = False + Me.txtMautDE_FlottenPIN._WaehrungZeichen = True + Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) + Me.txtMautDE_FlottenPIN.MaxLineLength = -1 + Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" + Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" + Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDE_FlottenPIN.TabIndex = 14 + ' + 'txtMautDEMasterPIN + ' + Me.txtMautDEMasterPIN._DateTimeOnly = False + Me.txtMautDEMasterPIN._numbersOnly = True + Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" + Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True + Me.txtMautDEMasterPIN._Prozent = False + Me.txtMautDEMasterPIN._ShortDateNew = False + Me.txtMautDEMasterPIN._ShortDateOnly = False + Me.txtMautDEMasterPIN._TimeOnly = False + Me.txtMautDEMasterPIN._TimeOnly_Seconds = False + Me.txtMautDEMasterPIN._value = "" + Me.txtMautDEMasterPIN._Waehrung = False + Me.txtMautDEMasterPIN._WaehrungZeichen = True + Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) + Me.txtMautDEMasterPIN.MaxLineLength = -1 + Me.txtMautDEMasterPIN.MaxLines_Warning = "" + Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" + Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDEMasterPIN.TabIndex = 16 + ' 'scanUebernahmebestätigungen ' Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" @@ -1900,84 +2207,6 @@ Partial Class frmKundenblatt Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) Me.scanVertragVeragKd.TabIndex = 0 ' - 'tbBesuchsberichte - ' - Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) - Me.tbBesuchsberichte.Name = "tbBesuchsberichte" - Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) - Me.tbBesuchsberichte.TabIndex = 9 - Me.tbBesuchsberichte.Text = "Besuchsberichte" - Me.tbBesuchsberichte.UseVisualStyleBackColor = True - ' - 'tbOfferte - ' - Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1) - Me.tbOfferte.Location = New System.Drawing.Point(4, 25) - Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) - Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1630, 914) - Me.tbOfferte.TabIndex = 11 - Me.tbOfferte.Text = "Offerte" - Me.tbOfferte.UseVisualStyleBackColor = True - ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 914) - Me.UsrCntlOfferte1.TabIndex = 0 - ' - 'tbUSTV - ' - Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) - Me.tbUSTV.Location = New System.Drawing.Point(4, 25) - Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1630, 914) - Me.tbUSTV.TabIndex = 12 - Me.tbUSTV.Text = "USTV" - Me.tbUSTV.UseVisualStyleBackColor = True - ' - 'tbcntrUSTV - ' - Me.tbcntrUSTV.Controls.Add(Me.tbUSTVDokumente) - Me.tbcntrUSTV.Controls.Add(Me.tbUSTVAntrage) - Me.tbcntrUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.tbcntrUSTV.Location = New System.Drawing.Point(0, 0) - Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) - Me.tbcntrUSTV.Name = "tbcntrUSTV" - Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 914) - Me.tbcntrUSTV.TabIndex = 1 - ' - 'tbUSTVDokumente - ' - Me.tbUSTVDokumente.Controls.Add(Me.Label8) - Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVsonstigeDokumente) - Me.tbUSTVDokumente.Controls.Add(Me.Label27) - Me.tbUSTVDokumente.Controls.Add(Me.Label37) - Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVFABest) - Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) - Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) - Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 888) - Me.tbUSTVDokumente.TabIndex = 8 - Me.tbUSTVDokumente.Text = "Dokumente" - Me.tbUSTVDokumente.UseVisualStyleBackColor = True - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(604, 17) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(126, 13) - Me.Label8.TabIndex = 8 - Me.Label8.Text = "sonstige Dokumente:" - ' 'scanUSTVsonstigeDokumente ' Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" @@ -1997,26 +2226,6 @@ Partial Class frmKundenblatt Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) Me.scanUSTVsonstigeDokumente.TabIndex = 7 ' - 'Label27 - ' - Me.Label27.AutoSize = True - Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label27.Location = New System.Drawing.Point(311, 17) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(153, 13) - Me.Label27.TabIndex = 6 - Me.Label27.Text = "Finanzamt-Bestätigungen:" - ' - 'Label37 - ' - Me.Label37.AutoSize = True - Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label37.Location = New System.Drawing.Point(14, 17) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(113, 13) - Me.Label37.TabIndex = 2 - Me.Label37.Text = "USTV Vollmachten" - ' 'scanUSTVFABest ' Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" @@ -2055,243 +2264,6 @@ Partial Class frmKundenblatt Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505) Me.scanUSTVVollmachten.TabIndex = 1 ' - 'tbUSTVAntrage - ' - Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV) - Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) - Me.tbUSTVAntrage.Name = "tbUSTVAntrage" - Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) - Me.tbUSTVAntrage.TabIndex = 9 - Me.tbUSTVAntrage.Text = "USTV-Anträge" - Me.tbUSTVAntrage.UseVisualStyleBackColor = True - ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) - Me.UsrCntlUSTV.TabIndex = 0 - ' - 'cntxtExcel - ' - Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6}) - Me.cntxtExcel.Name = "cntxtExcel" - Me.cntxtExcel.Size = New System.Drawing.Size(211, 48) - Me.cntxtExcel.Text = "Excel" - ' - 'ToolStripMenuItem3 - ' - Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22) - Me.ToolStripMenuItem3.Text = "Einfach" - ' - 'ToolStripMenuItem6 - ' - Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" - Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) - Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" - ' - 'btnAbfVerb - ' - Me.btnAbfVerb.BackColor = System.Drawing.Color.White - Me.btnAbfVerb.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAbfVerb.ForeColor = System.Drawing.Color.Black - Me.btnAbfVerb.Location = New System.Drawing.Point(1010, 43) - Me.btnAbfVerb.Name = "btnAbfVerb" - Me.btnAbfVerb.Size = New System.Drawing.Size(165, 25) - Me.btnAbfVerb.TabIndex = 1 - Me.btnAbfVerb.Text = "Abfertigungsverbot setzen" - Me.btnAbfVerb.UseVisualStyleBackColor = False - Me.btnAbfVerb.Visible = False - ' - 'lblAbfVerb - ' - Me.lblAbfVerb.AutoSize = True - Me.lblAbfVerb.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblAbfVerb.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAbfVerb.ForeColor = System.Drawing.Color.White - Me.lblAbfVerb.Location = New System.Drawing.Point(1396, 117) - Me.lblAbfVerb.Name = "lblAbfVerb" - Me.lblAbfVerb.Size = New System.Drawing.Size(242, 20) - Me.lblAbfVerb.TabIndex = 2 - Me.lblAbfVerb.Text = "! ABFERTIGUNGSVERBOT !" - Me.lblAbfVerb.Visible = False - ' - 'ContextMenuStrip1 - ' - Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) - ' - 'ContextMenuStrip2 - ' - Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem}) - Me.ContextMenuStrip2.Name = "ContextMenuStrip1" - Me.ContextMenuStrip2.Size = New System.Drawing.Size(119, 26) - ' - 'LöschenToolStripMenuItem - ' - Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" - Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22) - Me.LöschenToolStripMenuItem.Text = "Löschen" - ' - 'ContextMenuStrip3 - ' - Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1}) - Me.ContextMenuStrip3.Name = "ContextMenuStrip1" - Me.ContextMenuStrip3.Size = New System.Drawing.Size(119, 26) - ' - 'ToolStripMenuItem1 - ' - Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22) - Me.ToolStripMenuItem1.Text = "Löschen" - ' - 'mne - ' - Me.mne.AutoSize = False - Me.mne.BackgroundImage = Global.SDL.My.Resources.Resources.transp - Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom - Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25) - Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7}) - Me.mne.Location = New System.Drawing.Point(0, 31) - Me.mne.Name = "mne" - Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) - Me.mne.Size = New System.Drawing.Size(1638, 81) - Me.mne.TabIndex = 3 - Me.mne.Text = "mnue" - ' - 'AllgemeinToolStripMenuItem - ' - Me.AllgemeinToolStripMenuItem.AutoSize = False - Me.AllgemeinToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.AllgemeinToolStripMenuItem.ForeColor = System.Drawing.Color.White - Me.AllgemeinToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.report - Me.AllgemeinToolStripMenuItem.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.AllgemeinToolStripMenuItem.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem" - Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(94, 70) - Me.AllgemeinToolStripMenuItem.Text = "Allgemein" - Me.AllgemeinToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.AllgemeinToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem2 - ' - Me.ToolStripMenuItem2.AutoSize = False - Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.kunden - Me.ToolStripMenuItem2.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" - Me.ToolStripMenuItem2.Size = New System.Drawing.Size(122, 70) - Me.ToolStripMenuItem2.Text = "Firmendaten" - Me.ToolStripMenuItem2.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem4 - ' - Me.ToolStripMenuItem4.AutoSize = False - Me.ToolStripMenuItem4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem4.DropDown = Me.cntxtCntxtMDM - Me.ToolStripMenuItem4.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.logo_mdm - Me.ToolStripMenuItem4.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem4.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem4.MergeIndex = 10 - Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 60) - Me.ToolStripMenuItem4.Text = "Maut/Diesel" - Me.ToolStripMenuItem4.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'cntxtCntxtMDM - ' - Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 - Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) - Me.cntxtCntxtMDM.Text = "cntxtMDM" - ' - 'ToolStripMenuItem8 - ' - Me.ToolStripMenuItem8.AutoSize = False - Me.ToolStripMenuItem8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem8.DropDown = Me.cntxtCntxtMDM - Me.ToolStripMenuItem8.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem8.Image = Global.SDL.My.Resources.Resources.logo_mdm - Me.ToolStripMenuItem8.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem8.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem8.MergeIndex = 10 - Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 60) - Me.ToolStripMenuItem8.Text = "USTV" - Me.ToolStripMenuItem8.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem8.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem5 - ' - Me.ToolStripMenuItem5.AutoSize = False - Me.ToolStripMenuItem5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem5.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.zoll - Me.ToolStripMenuItem5.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(55, 60) - Me.ToolStripMenuItem5.Text = "Zoll" - Me.ToolStripMenuItem5.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem7 - ' - Me.ToolStripMenuItem7.AutoSize = False - Me.ToolStripMenuItem7.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.checklist1 - Me.ToolStripMenuItem7.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem7.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" - Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(0) - Me.ToolStripMenuItem7.Size = New System.Drawing.Size(150, 60) - Me.ToolStripMenuItem7.Text = "Offerte / Preise" - Me.ToolStripMenuItem7.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay - ' - 'pnl - ' - Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.pnl.Controls.Add(Me.pnlInfo) - Me.pnl.Controls.Add(Me.lblINAKTIV) - Me.pnl.Controls.Add(Me.mne) - Me.pnl.Controls.Add(Me.KdSearchBox1) - Me.pnl.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl.Location = New System.Drawing.Point(0, 0) - Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1638, 112) - Me.pnl.TabIndex = 0 - ' - 'lblINAKTIV - ' - Me.lblINAKTIV.AutoSize = True - Me.lblINAKTIV.BackColor = System.Drawing.Color.White - Me.lblINAKTIV.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblINAKTIV.ForeColor = System.Drawing.Color.Red - Me.lblINAKTIV.Location = New System.Drawing.Point(1070, 8) - Me.lblINAKTIV.Name = "lblINAKTIV" - Me.lblINAKTIV.Size = New System.Drawing.Size(98, 20) - Me.lblINAKTIV.TabIndex = 2 - Me.lblINAKTIV.Text = "! INAKTIV !" - Me.lblINAKTIV.Visible = False - ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -2326,29 +2298,56 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' - 'tbiLeistungen + 'UsrcntlKundeBearbeitenFull1 ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 959) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 ' - 'tbiKartenverwaltung + 'usrcntlKarten ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(1610, 927) + Me.usrcntlKarten.TabIndex = 0 ' - 'tbiLKW + 'UsrCntlLKW1 ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 927) + Me.UsrCntlLKW1.TabIndex = 0 ' - 'tbiVERAGCard + 'UsrCntlOfferte1 ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 965) + Me.UsrCntlOfferte1.TabIndex = 0 + ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 933) + Me.UsrCntlUSTV.TabIndex = 0 ' 'frmKundenblatt ' @@ -2356,7 +2355,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1180, 1072) + Me.ClientSize = New System.Drawing.Size(1180, 1123) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index b545c965..922448b9 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -40,6 +40,7 @@ Public Class frmKundenblatt Private InfoDauer As Integer = 3 Private WithEvents timShow As New Timer With {.Interval = 10} Private WithEvents timHide As New Timer With {.Interval = 10} + Dim isVerag360 As Boolean = False Sub New() @@ -103,6 +104,7 @@ Public Class frmKundenblatt tbcntrMain.ItemSize = New Size(0, 1) tbcntrMain.SizeMode = TabSizeMode.Fixed + If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige <> "" Then Dim where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ") ") @@ -168,6 +170,10 @@ Public Class frmKundenblatt btnOP.Visible = True End If + If isVerag360 Then + ToolStripMenuItem5.Visible = False + End If + loaded = True Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -313,7 +319,7 @@ Public Class frmKundenblatt 'Dim usr As New usrcntlKundeBearbeitenFull(kdNr) - UsrcntlKundeBearbeitenFull1.init(kdNr) + UsrcntlKundeBearbeitenFull1.init(kdNr, isVerag360) If FilialeNr > 0 Then UsrcntlKundeBearbeitenFull1.cboFiliale.changeItem(FilialeNr) diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index 45fb3c14..ba369bdd 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -65,109 +65,118 @@ Public Class usrCntlOfferte Sub initDGVOfferteDetails(OffertenNr) loaded = False + Try - With dgvOfferteDetails - '.Columns.Clear() + With dgvOfferteDetails + '.Columns.Clear() - Try - OFFERTEBind = New cEasyBinding(BIND_DB) - OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & - " FROM [Offertenpositionen] " & - " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen") - For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns - If c.ColumnName = "SSMA_TimeStamp" Then - OFFERTEBind.bindingdataTable.Columns.Remove(c) - Exit For - End If - Next - ' KASSENBind.initBinding("SELECT * FROM " & table & "", table) + Try + OFFERTEBind = New cEasyBinding(BIND_DB) + OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & + " FROM [Offertenpositionen] " & + " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr, Preis DESC", "Offertenpositionen") + For Each c As DataColumn In OFFERTEBind.bindingdataTable.Columns + If c.ColumnName = "SSMA_TimeStamp" Then + OFFERTEBind.bindingdataTable.Columns.Remove(c) + Exit For + End If + Next + ' KASSENBind.initBinding("SELECT * FROM " & table & "", table) - .DataSource = OFFERTEBind.bindingdataTable - ' DataGridView.AutoSize = True - ' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")} + .DataSource = OFFERTEBind.bindingdataTable + ' DataGridView.AutoSize = True + ' OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")} - Catch ex As Exception - MsgBox(ex.Message) - End Try + Catch ex As Exception + MsgBox(ex.Message) + End Try - '.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " & - ' " FROM [Offertenpositionen] " & - ' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") + '.DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung] " & + ' " FROM [Offertenpositionen] " & + ' " WHERE KundenNr='" & kdNr & "' and OffertenNr='" & OffertenNr & "' ORDER BY LeistungsNr ", "FMZOLL") - FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) - FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) + FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) + FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) - checkPerimissionsDGVDetails() + checkPerimissionsDGVDetails() - .Columns("OffertenNr").Visible = False - .Columns("KundenNr").Visible = False - .Columns("LeistungsNr").Width = 30 - .Columns("LeistungsNr").HeaderText = "Nr" - .Columns("LeistungsBez").MinimumWidth = 200 - .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("LeistungsBez").HeaderText = "Leistung" - .Columns("BerechnungsartNr").MinimumWidth = 150 - .Columns("Preis").Width = 60 - .Columns("Preis").DefaultCellStyle.Format = "N2" - .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("Anzahl").Width = 50 - .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("OffertenNr").Visible = False + .Columns("KundenNr").Visible = False + .Columns("LeistungsNr").Width = 30 + .Columns("LeistungsNr").HeaderText = "Nr" + .Columns("LeistungsBez").MinimumWidth = 200 + .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("LeistungsBez").HeaderText = "Leistung" + .Columns("BerechnungsartNr").MinimumWidth = 150 + .Columns("Preis").Width = 60 + .Columns("Preis").DefaultCellStyle.Format = "N2" + .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("Anzahl").Width = 50 + .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl." - .Columns("BerechnungsartPosInkludiert").Width = 45 + .Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl." + .Columns("BerechnungsartPosInkludiert").Width = 45 - .Columns("BGebLeistungsNr").Width = 60 - .Columns("BGebProzent").Width = 55 - .Columns("BGebProzent").HeaderText = "BGeb %" - .Columns("BGebProzent").DefaultCellStyle.Format = "P" - .Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("BGebMinBetrag").Width = 60 - .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." - .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("Eingegeben am").Visible = False - ' .Columns("Sachbearbeiter").Visible = False - ' .Columns("Geändert am").Visible = False - .Columns("PreisänderungProzent").Width = 70 - .Columns("PreisänderungProzent").HeaderText = "Preisänd. %" - .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" - .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("PreisAlt").Width = 60 - .Columns("PreisAlt").DefaultCellStyle.Format = "N2" - .Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("Preisänderung").Width = 60 - .Columns("Preisänderung").HeaderText = "PreisNeu" - .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - ' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - ' .Columns("OffertenBez").HeaderText = "Bezeichnung" + .Columns("BGebLeistungsNr").Width = 60 + .Columns("BGebProzent").Width = 55 + .Columns("BGebProzent").HeaderText = "BGeb %" + .Columns("BGebProzent").DefaultCellStyle.Format = "P" + .Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("BGebMinBetrag").Width = 60 + .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." + .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("Eingegeben am").Visible = False + ' .Columns("Sachbearbeiter").Visible = False + ' .Columns("Geändert am").Visible = False + .Columns("PreisänderungProzent").Width = 70 + .Columns("PreisänderungProzent").HeaderText = "Preisänd. %" + .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" + .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("PreisAlt").Width = 60 + .Columns("PreisAlt").DefaultCellStyle.Format = "N2" + .Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("Preisänderung").Width = 60 + .Columns("Preisänderung").HeaderText = "PreisNeu" + .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + ' .Columns("OffertenBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + ' .Columns("OffertenBez").HeaderText = "Bezeichnung" - loaded = True - End With + loaded = True + End With - DGVHasChaged = False + DGVHasChaged = False + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub dgvOfferteDetails_SelectionChanged(sender As Object, e As EventArgs) Handles dgvOfferteNew.SelectionChanged - - cbxArchivierteOffertenAnzeigen.Checked = False - cbxArchivierteOfferten.Items.Clear() - checkPermissions() - If dgvOfferteNew.RowCount > 0 Then - - rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value) - Else - btnStandardLaden.Visible = False - cbxArchivierteOfferten.Enabled = False - rtbBesonderheiten.Text = "" - End If + Try - If dgvOfferteNew.SelectedRows.Count > 0 Then - initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) - End If + cbxArchivierteOffertenAnzeigen.Checked = False + cbxArchivierteOfferten.Items.Clear() + checkPermissions() + If dgvOfferteNew.RowCount > 0 Then + + rtbBesonderheiten.Text = cSqlDb.checkNullStr(dgvOfferteNew.Rows(0).Cells("Besonderheiten").Value) + Else + btnStandardLaden.Visible = False + cbxArchivierteOfferten.Enabled = False + rtbBesonderheiten.Text = "" + End If + + + If dgvOfferteNew.SelectedRows.Count > 0 Then + initDGVOfferteDetails(dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub @@ -206,30 +215,35 @@ Public Class usrCntlOfferte Private Sub btnAddLeistung_Click(sender As Object, e As EventArgs) Handles btnAddLeistung.Click + Try - 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," & + 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," & " [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm " - For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows - If Not CBool(r("vorhanden")) Then - Dim i As New ToolStripMenuItem - i.Text = r("OffertenNr") & " - " & r("OffertenBez") - i.Name = "tsmiOffertNr_" & r("OffertenNr") - i.Tag = r("OffertenNr") - cntxtAddSdl.Items.Add(i) - ' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)" - AddHandler i.Click, AddressOf AddOffert_Click - End If - Next + For Each r As DataRow In SQL.loadDgvBySql(SQLsrt, "FMZOLL").Rows + If Not CBool(r("vorhanden")) Then + Dim i As New ToolStripMenuItem + i.Text = r("OffertenNr") & " - " & r("OffertenBez") + i.Name = "tsmiOffertNr_" & r("OffertenNr") + i.Tag = r("OffertenNr") + cntxtAddSdl.Items.Add(i) + ' If s.Sperre <> 0 Then i.Enabled = False : i.Text = i.Text & " (gesperrt)" + AddHandler i.Click, AddressOf AddOffert_Click + End If + Next - btnAddLeistung.ContextMenuStrip = cntxtAddSdl - ' cntxtAddSdl - Dim ptLowerLeft As New Point(sender.width, sender.Height) - ptLowerLeft = sender.PointToScreen(ptLowerLeft) - ptLowerLeft.X -= sender.width - cntxtAddSdl.Show(ptLowerLeft) + btnAddLeistung.ContextMenuStrip = cntxtAddSdl + ' cntxtAddSdl + Dim ptLowerLeft As New Point(sender.width, sender.Height) + ptLowerLeft = sender.PointToScreen(ptLowerLeft) + ptLowerLeft.X -= sender.width + cntxtAddSdl.Show(ptLowerLeft) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub AddOffert_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click @@ -244,47 +258,54 @@ Public Class usrCntlOfferte Private Sub btnHinzufuegen_Click_1(sender As Object, e As EventArgs) Handles btnHinzufuegen.Click - If edit = False Then - MsgBox("Bitte vorher in den Editiermodus wechseln") - Exit Sub - End If - lblLeistunAddErr.Visible = False - lblLeistunAddErr2.Visible = False - Label3.Visible = False - If dgvOfferteNew.SelectedRows.Count <> 1 Then - Label3.Visible = True - End If - 'Fehlerprüfung: - '------- - If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub - If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub - '------- + Try - Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value) - Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition - o.KundenNr = kdNr - o.LeistungsNr = l.LeistungsNr - o.LeistungsBez = MyTextBox1.Text - o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value - 'o.Preis=l.preis - o.BerechnungsartNr = l.BerechnungsartNr - 'o.Anzahl = l.m - 'o.BGebLeistungsNr = l.BGebUStV - 'o.BGebProzent = l.XXXXXXXXXX - 'o.BGebMinBetrag = l.XXXXXXXXXX - o.Eingegeben_am = Now - 'o.Geändert_am = l.XXXXXXXXXX - o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - 'o.Preisänderung = l.Preissperre - 'o.PreisänderungProzent = l.XXXXXXXXXX - 'o.PreisAlt = l.XXXXXXXXXX - If o.INSERT() Then - cboLeistungenAdd.changeItem("") - initDGVOfferteDetails(o.OffertenNr) - addLeistung = True - End If + If edit = False Then + MsgBox("Bitte vorher in den Editiermodus wechseln") + Exit Sub + End If + lblLeistunAddErr.Visible = False + lblLeistunAddErr2.Visible = False + Label3.Visible = False + + If dgvOfferteNew.SelectedRows.Count <> 1 Then + Label3.Visible = True + End If + 'Fehlerprüfung: + '------- + If cboLeistungenAdd._value = "" Then lblLeistunAddErr.Visible = True : Exit Sub + If LeistungsBezexists(cboLeistungenAdd._value, MyTextBox1.Text, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value) Then lblLeistunAddErr2.Visible = True : Exit Sub + '------- + + Dim l As New VERAG_PROG_ALLGEMEIN.cLeistungen(cboLeistungenAdd._value) + Dim o As New VERAG_PROG_ALLGEMEIN.cOffertPosition + o.KundenNr = kdNr + o.LeistungsNr = l.LeistungsNr + o.LeistungsBez = MyTextBox1.Text + o.OffertenNr = dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value + 'o.Preis=l.preis + o.BerechnungsartNr = l.BerechnungsartNr + 'o.Anzahl = l.m + 'o.BGebLeistungsNr = l.BGebUStV + 'o.BGebProzent = l.XXXXXXXXXX + 'o.BGebMinBetrag = l.XXXXXXXXXX + o.Eingegeben_am = Now + 'o.Geändert_am = l.XXXXXXXXXX + o.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + 'o.Preisänderung = l.Preissperre + 'o.PreisänderungProzent = l.XXXXXXXXXX + 'o.PreisAlt = l.XXXXXXXXXX + If o.INSERT() Then + cboLeistungenAdd.changeItem("") + initDGVOfferteDetails(o.OffertenNr) + addLeistung = True + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Function LeistungsBezexists(LeistungsNr, LeistungsBez, OffertenNr) @@ -307,28 +328,36 @@ Public Class usrCntlOfferte End Sub Private Sub dgvOfferteDetails_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvOfferteDetails.CellValueChanged - If loaded = True Then - dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now - DGVHasChaged = True - 'saveCurrentOffert() - If isNew = True Then + Try - currentOffert.Art = "Neuanlage" - currentOffert.SAVE() - Else + If loaded = True Then + dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now + DGVHasChaged = True + 'saveCurrentOffert() + If isNew = True Then + + currentOffert.Art = "Neuanlage" + currentOffert.SAVE() + + Else + + currentOffert.Art = "Geändert" + currentOffert.SAVE() + End If - currentOffert.Art = "Geändert" - currentOffert.SAVE() End If - - End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub btnDeleteOfferte_Click(sender As Object, e As EventArgs) Handles btnDeleteOfferte.Click - If dgvOfferteNew.SelectedRows.Count = 1 Then + Try + + If dgvOfferteNew.SelectedRows.Count = 1 Then If vbYes = MsgBox("Möchten Sie das Offert '" & dgvOfferteNew.SelectedRows(0).Cells("OffertenBez").Value & "' wirklich löschen", vbYesNoCancel) Then saveCurrentOffert() currentOffert.Art = "Offert gelöscht" @@ -340,20 +369,30 @@ Public Class usrCntlOfferte End If End If End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub btnOfferteSpeichern_Click(sender As Object, e As EventArgs) Handles btnOfferteSpeichern.Click - KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked - KD_ERW.SAVE() + Try - checkPerimissionsDGVDetails() - edit = False - handleEditMode(edit) - saveToArchive() + KD_ERW.AutoFakturierung = cbxAutoFakturierung.Checked + KD_ERW.SAVE() - OFFERTEBind.updateBinding() - RaiseEvent OfferteChanged() - DGVHasChaged = False + checkPerimissionsDGVDetails() + edit = False + handleEditMode(edit) + saveToArchive() + + OFFERTEBind.updateBinding() + RaiseEvent OfferteChanged() + DGVHasChaged = False + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub @@ -368,81 +407,93 @@ Public Class usrCntlOfferte Private Sub OfferteArchivieren(Optional Art As String = "") - currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv() - currentOffertArchiv.KundenNr = currentOffert.KundenNr - currentOffertArchiv.FilialenNr = currentOffert.FilialenNr - currentOffertArchiv.OffertenNr = currentOffert.OffertenNr - currentOffertArchiv.Standardofferte = currentOffert.Standardofferte - currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten - currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am - currentOffertArchiv.Geändert_am = currentOffert.Geändert_am - currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter - currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp - currentOffertArchiv.Gesperrt = currentOffert.Gesperrt - currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum - currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund - currentOffertArchiv.Art = currentOffert.Art - ofID = currentOffertArchiv.SAVERETURNID() + Try - If ofID > 0 Then - For Each row As DataRow In tmpDataTable.Rows - If tmpDataTable.Rows.Count = 0 Then Exit Sub - Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv - oP.OfID = ofID - oP.KundenNr = currentOffertArchiv.KundenNr - oP.LeistungsNr = row("LeistungsNr") - oP.LeistungsBez = row("LeistungsBez") - oP.OffertenNr = currentOffertArchiv.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.INSERT() - Next - End If + currentOffertArchiv = New VERAG_PROG_ALLGEMEIN.cOfferteArchiv() + currentOffertArchiv.KundenNr = currentOffert.KundenNr + currentOffertArchiv.FilialenNr = currentOffert.FilialenNr + currentOffertArchiv.OffertenNr = currentOffert.OffertenNr + currentOffertArchiv.Standardofferte = currentOffert.Standardofferte + currentOffertArchiv.Besonderheiten = currentOffert.Besonderheiten + currentOffertArchiv.Eingegeben_am = currentOffert.Eingegeben_am + currentOffertArchiv.Geändert_am = currentOffert.Geändert_am + currentOffertArchiv.Sachbearbeiter = currentOffert.Sachbearbeiter + currentOffertArchiv.SSMA_TimeStamp = currentOffert.SSMA_TimeStamp + currentOffertArchiv.Gesperrt = currentOffert.Gesperrt + currentOffertArchiv.Gesperrt_Datum = currentOffert.Gesperrt_Datum + currentOffertArchiv.Gesperrt_Grund = currentOffert.Gesperrt_Grund + currentOffertArchiv.Art = currentOffert.Art + ofID = currentOffertArchiv.SAVERETURNID() + + If ofID > 0 Then + For Each row As DataRow In tmpDataTable.Rows + If tmpDataTable.Rows.Count = 0 Then Exit Sub + Dim oP As New VERAG_PROG_ALLGEMEIN.cOffertPositionArchiv + oP.OfID = ofID + oP.KundenNr = currentOffertArchiv.KundenNr + oP.LeistungsNr = row("LeistungsNr") + oP.LeistungsBez = row("LeistungsBez") + oP.OffertenNr = currentOffertArchiv.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.INSERT() + Next + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub btnStandardLaden_Click(sender As Object, e As EventArgs) Handles btnStandardLaden.Click + Try - Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) - Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) + Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) + Dim FIRMA_TMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) - If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub + If Not vbYes = MsgBox("Möchten Sie die Standardofferte für den Kunden " & KUNDE.KundenNr & " laden?" & vbNewLine & "Aktuelle Offerteneinstellungen werden gelöscht.", vbYesNo) Then Exit Sub - edit = True - handleEditMode(edit) - saveCurrentOffert() + edit = True + handleEditMode(edit) + saveCurrentOffert() - If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then - isStandard = True - isNew = True - currentOffert.Art = "Neuer Standard erstellt" - currentOffert.SAVE() - currentOffert.LOAD_POSITIONEN() - If currentOffert.POSITIONEN.Count = 0 Then ' - currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP) + If SQL.doSQL("DELETE FROM Offerten where [KundenNr]='" & kdNr & "' AND [OffertenNr]='" & dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value & "' ", "FMZOLL") Then + isStandard = True + isNew = True + currentOffert.Art = "Neuer Standard erstellt" + currentOffert.SAVE() + currentOffert.LOAD_POSITIONEN() + If currentOffert.POSITIONEN.Count = 0 Then ' + currentOffert.RESET_STANDARTOFFERTEN_FIRMA(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, FIRMA_TMP) + End If + + dgvOfferteNew.GetOrder() + initDGVOfferte() + dgvOfferteNew.SetOrder() + RaiseEvent OfferteChanged() + isStandard = True + isNew = True End If - dgvOfferteNew.GetOrder() - initDGVOfferte() - dgvOfferteNew.SetOrder() - RaiseEvent OfferteChanged() - isStandard = True - isNew = True - End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub @@ -489,110 +540,122 @@ Public Class usrCntlOfferte Private Sub checkPerimissionsDGVDetails() - With dgvOfferteDetails + Try + With dgvOfferteDetails - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then - For Each c As DataGridViewColumn In .Columns - c.ReadOnly = True - handleEditMode(False) - Next - dgvOfferteDetails.AllowUserToDeleteRows = False - 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 - If edit Then - c.ReadOnly = False - handleEditMode(edit) + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_BEARBEITEN", "SDL") Then + For Each c As DataGridViewColumn In .Columns + c.ReadOnly = True + handleEditMode(False) + Next + dgvOfferteDetails.AllowUserToDeleteRows = False + 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 + If edit Then + c.ReadOnly = False + handleEditMode(edit) + Else + c.ReadOnly = True + handleEditMode(edit) + End If Else c.ReadOnly = True - handleEditMode(edit) + End If - Else - c.ReadOnly = True + Next + dgvOfferteDetails.AllowUserToDeleteRows = edit + End If - End If - Next - dgvOfferteDetails.AllowUserToDeleteRows = edit - End If + End With - End With + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub initDGVOfferteDetailsArchived(OffertenId) + Try - loaded = False - DGVHasChaged = False - With dgvOfferteDetails - .Columns.Clear() - Try + loaded = False + DGVHasChaged = False + + With dgvOfferteDetails + .Columns.Clear() + OFFERTEBind = New cEasyBinding(BIND_DB) - OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & - " FROM [tblOffertenpositionenArchiv] " & - " WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv") + OFFERTEBind.initBinding(" SELECT [LeistungsNr],[LeistungsBez],[BerechnungsartNr],[Preis],[Anzahl],[BGebLeistungsNr],[BGebProzent],[BGebMinBetrag],BerechnungsartPosInkludiert,[Eingegeben am],[Geändert am],[Sachbearbeiter],[PreisänderungProzent],[PreisAlt],[Preisänderung],KundenNr,OffertenNr " & + " FROM [tblOffertenpositionenArchiv] " & + " WHERE OfId='" & OffertenId & "' ORDER BY LeistungsNr, Preis DESC", "tblOffertenpositionenArchiv") - .DataSource = OFFERTEBind.bindingdataTable + .DataSource = OFFERTEBind.bindingdataTable - Catch ex As Exception - MsgBox(ex.Message) - End Try - - FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) - FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) - checkPerimissionsDGVDetails() + FUNC.dgvCellToCbo(dgvOfferteDetails, 2, "Berechnungsart", "BerechnungsartNr", " SELECT [BerechnungsartNr], CAST(BerechnungsartNr as varchar(3)) + ' - ' + [BerechnungsartBez] as [BerechnungsartBez] FROM [Berechnungsart] ORDER BY BerechnungsartNr ", "FMZOLL", 150) + FUNC.dgvCellToCbo(dgvOfferteDetails, 5, "BGebLeist.", "BGebLeistungsNr", " SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL", 250) - .Columns("OffertenNr").Visible = False - .Columns("KundenNr").Visible = False - .Columns("LeistungsNr").Width = 30 - .Columns("LeistungsNr").HeaderText = "Nr" - .Columns("LeistungsBez").MinimumWidth = 200 - .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill - .Columns("LeistungsBez").HeaderText = "Leistung" - .Columns("BerechnungsartNr").MinimumWidth = 150 - .Columns("Preis").Width = 60 - .Columns("Preis").DefaultCellStyle.Format = "N2" - .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("Anzahl").Width = 50 - .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter - .Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl." - .Columns("BerechnungsartPosInkludiert").Width = 45 - .Columns("BGebLeistungsNr").Width = 60 - .Columns("BGebProzent").Width = 55 - .Columns("BGebProzent").HeaderText = "BGeb %" - .Columns("BGebProzent").DefaultCellStyle.Format = "P" - .Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("BGebMinBetrag").Width = 60 - .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." - .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("Eingegeben am").Visible = False - .Columns("PreisänderungProzent").Width = 70 - .Columns("PreisänderungProzent").HeaderText = "Preisänd. %" - .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" - .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("PreisAlt").Width = 60 - .Columns("PreisAlt").DefaultCellStyle.Format = "N2" - .Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - .Columns("Preisänderung").Width = 60 - .Columns("Preisänderung").HeaderText = "PreisNeu" - .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight - loaded = True - End With + checkPerimissionsDGVDetails() + .Columns("OffertenNr").Visible = False + .Columns("KundenNr").Visible = False + .Columns("LeistungsNr").Width = 30 + .Columns("LeistungsNr").HeaderText = "Nr" + .Columns("LeistungsBez").MinimumWidth = 200 + .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + .Columns("LeistungsBez").HeaderText = "Leistung" + .Columns("BerechnungsartNr").MinimumWidth = 150 + .Columns("Preis").Width = 60 + .Columns("Preis").DefaultCellStyle.Format = "N2" + .Columns("Preis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("Anzahl").Width = 50 + .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("BerechnungsartPosInkludiert").HeaderText = "Pos.inkl." + .Columns("BerechnungsartPosInkludiert").Width = 45 + .Columns("BGebLeistungsNr").Width = 60 + .Columns("BGebProzent").Width = 55 + .Columns("BGebProzent").HeaderText = "BGeb %" + .Columns("BGebProzent").DefaultCellStyle.Format = "P" + .Columns("BGebProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("BGebMinBetrag").Width = 60 + .Columns("BGebMinBetrag").HeaderText = "BGebMinBetr." + .Columns("BGebMinBetrag").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("Eingegeben am").Visible = False + .Columns("PreisänderungProzent").Width = 70 + .Columns("PreisänderungProzent").HeaderText = "Preisänd. %" + .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P" + .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("PreisAlt").Width = 60 + .Columns("PreisAlt").DefaultCellStyle.Format = "N2" + .Columns("PreisAlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + .Columns("Preisänderung").Width = 60 + .Columns("Preisänderung").HeaderText = "PreisNeu" + .Columns("Preisänderung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight + + loaded = True + End With + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub saveCurrentOffert() + Try - dgvOfferteNew.Enabled = False + + dgvOfferteNew.Enabled = False currentOffert = New VERAG_PROG_ALLGEMEIN.cOfferte(kdNr, dgvOfferteNew.SelectedRows(0).Cells("OffertenNr").Value, False) Dim orgDataTable As DataTable = dgvOfferteDetails.DataSource tmpDataTable = orgDataTable.Copy + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub checkPermissions() @@ -653,35 +716,41 @@ Public Class usrCntlOfferte Private Sub saveToArchive() + Try - If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern, - If DGVHasChaged = False Then Exit Sub - End If - If isStandard Then - If isNew Then - OfferteArchivieren() - isNew = False + If isNew = False AndAlso isStandard = False Or isNew AndAlso isStandard = False Then 'Neuanlage oder Anlage über "Standardoffert laden" speichern, + If DGVHasChaged = False Then Exit Sub End If - isStandard = False - Else - If DGVHasChaged Then - If isNew = False Then + If isStandard Then + If isNew Then OfferteArchivieren() - Exit Sub - - Else - If isNew Then - OfferteArchivieren() - isNew = False - End If + isNew = False End If - End If - End If + isStandard = False + Else + If DGVHasChaged Then + If isNew = False Then + OfferteArchivieren() + Exit Sub + + Else + If isNew Then + OfferteArchivieren() + isNew = False + End If + + End If + End If + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 0ec4370e..6fe53d86 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,22 +22,22 @@ Partial Class usrcntlKundeBearbeitenFull 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - 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() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -264,6 +264,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.lblEORI = New System.Windows.Forms.Label() Me.Label84 = New System.Windows.Forms.Label() Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.Label100 = New System.Windows.Forms.Label() Me.txtAdresseZusatz = New System.Windows.Forms.TextBox() @@ -284,6 +285,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtFirmenname2 = New System.Windows.Forms.TextBox() Me.Label16 = New System.Windows.Forms.Label() Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblHandelregisterNr = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label14 = New System.Windows.Forms.Label() @@ -342,8 +344,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.lblHandelregisterNr = New System.Windows.Forms.Label() - Me.txtHandelsregisterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label33 = New System.Windows.Forms.Label() + Me.Label103 = New System.Windows.Forms.Label() + Me.txtKapital = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxKapitalWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -395,7 +400,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbcntrDetails.Location = New System.Drawing.Point(462, 3) Me.tbcntrDetails.Name = "tbcntrDetails" Me.tbcntrDetails.SelectedIndex = 0 - Me.tbcntrDetails.Size = New System.Drawing.Size(680, 484) + Me.tbcntrDetails.Size = New System.Drawing.Size(680, 521) Me.tbcntrDetails.TabIndex = 3 ' 'tbAbfertigung @@ -424,7 +429,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbAbfertigung.Location = New System.Drawing.Point(4, 22) Me.tbAbfertigung.Name = "tbAbfertigung" Me.tbAbfertigung.Padding = New System.Windows.Forms.Padding(3) - Me.tbAbfertigung.Size = New System.Drawing.Size(672, 458) + Me.tbAbfertigung.Size = New System.Drawing.Size(672, 495) Me.tbAbfertigung.TabIndex = 0 Me.tbAbfertigung.Text = " Abfertigung" Me.tbAbfertigung.UseVisualStyleBackColor = True @@ -538,7 +543,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbcntrAbf.Controls.Add(Me.tbAufschub) Me.tbcntrAbf.Controls.Add(Me.TabPage1) Me.tbcntrAbf.Dock = System.Windows.Forms.DockStyle.Bottom - Me.tbcntrAbf.Location = New System.Drawing.Point(3, 251) + Me.tbcntrAbf.Location = New System.Drawing.Point(3, 288) Me.tbcntrAbf.Name = "tbcntrAbf" Me.tbcntrAbf.SelectedIndex = 0 Me.tbcntrAbf.Size = New System.Drawing.Size(666, 204) @@ -1050,7 +1055,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal.Controls.Add(Me.UsrCntlKundeFiskaldaten1) Me.tbFiskal.Location = New System.Drawing.Point(4, 22) Me.tbFiskal.Name = "tbFiskal" - Me.tbFiskal.Size = New System.Drawing.Size(672, 458) + Me.tbFiskal.Size = New System.Drawing.Size(672, 495) Me.tbFiskal.TabIndex = 8 Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.UseVisualStyleBackColor = True @@ -1061,11 +1066,14 @@ Partial Class usrcntlKundeBearbeitenFull Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" - Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 458) + Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 ' 'tbVerrechnung ' + Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung) + Me.tbVerrechnung.Controls.Add(Me.Label103) + Me.tbVerrechnung.Controls.Add(Me.txtKapital) Me.tbVerrechnung.Controls.Add(Me.Label101) Me.tbVerrechnung.Controls.Add(Me.txtAbwZZVL) Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB) @@ -1114,7 +1122,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel) Me.tbVerrechnung.Location = New System.Drawing.Point(4, 22) Me.tbVerrechnung.Name = "tbVerrechnung" - Me.tbVerrechnung.Size = New System.Drawing.Size(672, 458) + Me.tbVerrechnung.Size = New System.Drawing.Size(672, 495) Me.tbVerrechnung.TabIndex = 9 Me.tbVerrechnung.Text = "Verrechnung" Me.tbVerrechnung.UseVisualStyleBackColor = True @@ -1240,7 +1248,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label36.AutoSize = True Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label36.Location = New System.Drawing.Point(122, 246) + Me.Label36.Location = New System.Drawing.Point(122, 329) Me.Label36.Name = "Label36" Me.Label36.Size = New System.Drawing.Size(384, 13) Me.Label36.TabIndex = 21 @@ -1251,7 +1259,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.cbxDepot.AutoSize = True Me.cbxDepot.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxDepot.Location = New System.Drawing.Point(15, 246) + Me.cbxDepot.Location = New System.Drawing.Point(15, 329) Me.cbxDepot.Name = "cbxDepot" Me.cbxDepot.Size = New System.Drawing.Size(100, 17) Me.cbxDepot.TabIndex = 20 @@ -1852,7 +1860,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVersicherung.Location = New System.Drawing.Point(4, 22) Me.tbVersicherung.Name = "tbVersicherung" Me.tbVersicherung.Padding = New System.Windows.Forms.Padding(3) - Me.tbVersicherung.Size = New System.Drawing.Size(672, 458) + Me.tbVersicherung.Size = New System.Drawing.Size(672, 495) Me.tbVersicherung.TabIndex = 1 Me.tbVersicherung.Text = "Versicherung" Me.tbVersicherung.UseVisualStyleBackColor = True @@ -2615,7 +2623,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbUmsatz.Location = New System.Drawing.Point(4, 22) Me.tbUmsatz.Name = "tbUmsatz" Me.tbUmsatz.Padding = New System.Windows.Forms.Padding(3) - Me.tbUmsatz.Size = New System.Drawing.Size(672, 458) + Me.tbUmsatz.Size = New System.Drawing.Size(672, 495) Me.tbUmsatz.TabIndex = 3 Me.tbUmsatz.Text = "Umsatz" Me.tbUmsatz.UseVisualStyleBackColor = True @@ -2636,8 +2644,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -2661,7 +2669,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbOP.Location = New System.Drawing.Point(4, 22) Me.tbOP.Name = "tbOP" Me.tbOP.Padding = New System.Windows.Forms.Padding(3) - Me.tbOP.Size = New System.Drawing.Size(672, 458) + Me.tbOP.Size = New System.Drawing.Size(672, 495) Me.tbOP.TabIndex = 4 Me.tbOP.Text = "Offene Posten" Me.tbOP.UseVisualStyleBackColor = True @@ -2736,8 +2744,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -2807,7 +2815,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbBank.Location = New System.Drawing.Point(4, 22) Me.tbBank.Name = "tbBank" Me.tbBank.Padding = New System.Windows.Forms.Padding(3) - Me.tbBank.Size = New System.Drawing.Size(672, 458) + Me.tbBank.Size = New System.Drawing.Size(672, 495) Me.tbBank.TabIndex = 5 Me.tbBank.Text = "Bankverb./Kreditkarten" Me.tbBank.UseVisualStyleBackColor = True @@ -2897,41 +2905,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle20 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle21 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle22 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle23 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -2986,7 +2994,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbUmsatzsteuer.Location = New System.Drawing.Point(4, 22) Me.tbUmsatzsteuer.Name = "tbUmsatzsteuer" Me.tbUmsatzsteuer.Padding = New System.Windows.Forms.Padding(3) - Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 458) + Me.tbUmsatzsteuer.Size = New System.Drawing.Size(672, 495) Me.tbUmsatzsteuer.TabIndex = 6 Me.tbUmsatzsteuer.Text = "Umsatzsteuer" Me.tbUmsatzsteuer.UseVisualStyleBackColor = True @@ -3071,26 +3079,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle26.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle26.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle26.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle26.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle26 Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 321) @@ -3255,7 +3263,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Location = New System.Drawing.Point(4, 22) Me.tbSonstiges.Name = "tbSonstiges" Me.tbSonstiges.Padding = New System.Windows.Forms.Padding(3) - Me.tbSonstiges.Size = New System.Drawing.Size(672, 458) + Me.tbSonstiges.Size = New System.Drawing.Size(672, 495) Me.tbSonstiges.TabIndex = 7 Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.UseVisualStyleBackColor = True @@ -3328,26 +3336,26 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle28 Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle29 Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" @@ -3565,26 +3573,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle31 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle32 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(9, 93) Me.DataGridView1.MultiSelect = False @@ -3643,6 +3651,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'GroupBox3 ' + Me.GroupBox3.Controls.Add(Me.MyTextBox1) + Me.GroupBox3.Controls.Add(Me.Label33) Me.GroupBox3.Controls.Add(Me.txtHandelsregisterNr) Me.GroupBox3.Controls.Add(Me.PictureBox5) Me.GroupBox3.Controls.Add(Me.Label100) @@ -3670,11 +3680,36 @@ Partial Class usrcntlKundeBearbeitenFull Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox3.Location = New System.Drawing.Point(3, 3) Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.Size = New System.Drawing.Size(453, 182) + Me.GroupBox3.Size = New System.Drawing.Size(453, 209) Me.GroupBox3.TabIndex = 0 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Firma" ' + 'txtHandelsregisterNr + ' + Me.txtHandelsregisterNr._DateTimeOnly = False + Me.txtHandelsregisterNr._numbersOnly = False + Me.txtHandelsregisterNr._numbersOnlyKommastellen = "" + Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = True + Me.txtHandelsregisterNr._Prozent = False + Me.txtHandelsregisterNr._ShortDateNew = False + Me.txtHandelsregisterNr._ShortDateOnly = False + Me.txtHandelsregisterNr._TimeOnly = False + Me.txtHandelsregisterNr._TimeOnly_Seconds = False + Me.txtHandelsregisterNr._value = "" + Me.txtHandelsregisterNr._Waehrung = False + Me.txtHandelsregisterNr._WaehrungZeichen = True + Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black + Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 134) + Me.txtHandelsregisterNr.MaxLength = 17 + Me.txtHandelsregisterNr.MaxLineLength = -1 + Me.txtHandelsregisterNr.MaxLines_Warning = "" + Me.txtHandelsregisterNr.MaxLines_Warning_Label = Nothing + Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr" + Me.txtHandelsregisterNr.Size = New System.Drawing.Size(126, 20) + Me.txtHandelsregisterNr.TabIndex = 133 + Me.txtHandelsregisterNr.Visible = False + ' 'PictureBox5 ' Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen @@ -3709,7 +3744,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.cbxUIDMehrfachverwendung.AutoSize = True Me.cbxUIDMehrfachverwendung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(10, 133) + Me.cbxUIDMehrfachverwendung.Location = New System.Drawing.Point(292, 184) Me.cbxUIDMehrfachverwendung.Name = "cbxUIDMehrfachverwendung" Me.cbxUIDMehrfachverwendung.Size = New System.Drawing.Size(152, 17) Me.cbxUIDMehrfachverwendung.TabIndex = 25 @@ -3957,6 +3992,17 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_Steuernummer.TabIndex = 11 Me.txtUSt_Steuernummer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' + 'lblHandelregisterNr + ' + Me.lblHandelregisterNr.AutoSize = True + Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHandelregisterNr.Location = New System.Drawing.Point(8, 137) + Me.lblHandelregisterNr.Name = "lblHandelregisterNr" + Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13) + Me.lblHandelregisterNr.TabIndex = 132 + Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:" + Me.lblHandelregisterNr.Visible = False + ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.cbxLandKz) @@ -3969,7 +4015,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.txtStrasse) Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.GroupBox1.Location = New System.Drawing.Point(3, 183) + Me.GroupBox1.Location = New System.Drawing.Point(3, 218) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(453, 102) Me.GroupBox1.TabIndex = 1 @@ -3989,7 +4035,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxLandKz.FormattingEnabled = True Me.cbxLandKz.Location = New System.Drawing.Point(110, 49) Me.cbxLandKz.Name = "cbxLandKz" - Me.cbxLandKz.Size = New System.Drawing.Size(39, 21) + Me.cbxLandKz.Size = New System.Drawing.Size(50, 21) Me.cbxLandKz.TabIndex = 3 ' 'Label14 @@ -4005,19 +4051,19 @@ Partial Class usrcntlKundeBearbeitenFull 'txtPostfachOrt ' Me.txtPostfachOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPostfachOrt.Location = New System.Drawing.Point(232, 75) + Me.txtPostfachOrt.Location = New System.Drawing.Point(243, 75) Me.txtPostfachOrt.MaxLength = 40 Me.txtPostfachOrt.Name = "txtPostfachOrt" - Me.txtPostfachOrt.Size = New System.Drawing.Size(212, 20) + Me.txtPostfachOrt.Size = New System.Drawing.Size(201, 20) Me.txtPostfachOrt.TabIndex = 8 ' 'txtOrt ' Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOrt.Location = New System.Drawing.Point(232, 49) + Me.txtOrt.Location = New System.Drawing.Point(243, 49) Me.txtOrt.MaxLength = 40 Me.txtOrt.Name = "txtOrt" - Me.txtOrt.Size = New System.Drawing.Size(212, 20) + Me.txtOrt.Size = New System.Drawing.Size(201, 20) Me.txtOrt.TabIndex = 5 ' 'Label12 @@ -4036,13 +4082,13 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtPostfachPlz.Location = New System.Drawing.Point(110, 75) Me.txtPostfachPlz.MaxLength = 7 Me.txtPostfachPlz.Name = "txtPostfachPlz" - Me.txtPostfachPlz.Size = New System.Drawing.Size(116, 20) + Me.txtPostfachPlz.Size = New System.Drawing.Size(127, 20) Me.txtPostfachPlz.TabIndex = 7 ' 'txtPlz ' Me.txtPlz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPlz.Location = New System.Drawing.Point(155, 49) + Me.txtPlz.Location = New System.Drawing.Point(166, 49) Me.txtPlz.MaxLength = 7 Me.txtPlz.Name = "txtPlz" Me.txtPlz.Size = New System.Drawing.Size(71, 20) @@ -4193,7 +4239,7 @@ Partial Class usrcntlKundeBearbeitenFull 'btnFirmendatenFormularSpeichern ' Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 503) + Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1081, 540) Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern" Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52) Me.btnFirmendatenFormularSpeichern.TabIndex = 16 @@ -4204,7 +4250,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.lblSachbearbeiter.AutoSize = True Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 525) + Me.lblSachbearbeiter.Location = New System.Drawing.Point(131, 562) Me.lblSachbearbeiter.Name = "lblSachbearbeiter" Me.lblSachbearbeiter.Size = New System.Drawing.Size(10, 13) Me.lblSachbearbeiter.TabIndex = 13 @@ -4214,7 +4260,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.lblErfassung.AutoSize = True Me.lblErfassung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblErfassung.Location = New System.Drawing.Point(130, 499) + Me.lblErfassung.Location = New System.Drawing.Point(130, 536) Me.lblErfassung.Name = "lblErfassung" Me.lblErfassung.Size = New System.Drawing.Size(10, 13) Me.lblErfassung.TabIndex = 5 @@ -4224,7 +4270,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.lblAenderung.AutoSize = True Me.lblAenderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAenderung.Location = New System.Drawing.Point(131, 512) + Me.lblAenderung.Location = New System.Drawing.Point(131, 549) Me.lblAenderung.Name = "lblAenderung" Me.lblAenderung.Size = New System.Drawing.Size(10, 13) Me.lblAenderung.TabIndex = 11 @@ -4234,7 +4280,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label26.AutoSize = True Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label26.Location = New System.Drawing.Point(10, 525) + Me.Label26.Location = New System.Drawing.Point(10, 562) Me.Label26.Name = "Label26" Me.Label26.Size = New System.Drawing.Size(117, 13) Me.Label26.TabIndex = 12 @@ -4244,7 +4290,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label25.AutoSize = True Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label25.Location = New System.Drawing.Point(9, 499) + Me.Label25.Location = New System.Drawing.Point(9, 536) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(91, 13) Me.Label25.TabIndex = 4 @@ -4254,7 +4300,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label23.AutoSize = True Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(10, 512) + Me.Label23.Location = New System.Drawing.Point(10, 549) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(90, 13) Me.Label23.TabIndex = 10 @@ -4263,7 +4309,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(573, 509) + Me.Button1.Location = New System.Drawing.Point(573, 546) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(98, 38) Me.Button1.TabIndex = 14 @@ -4275,7 +4321,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label28.AutoSize = True Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(585, 550) + Me.Label28.Location = New System.Drawing.Point(585, 587) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(10, 13) Me.Label28.TabIndex = 9 @@ -4286,7 +4332,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label29.AutoSize = True Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label29.Location = New System.Drawing.Point(567, 493) + Me.Label29.Location = New System.Drawing.Point(567, 530) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(109, 13) Me.Label29.TabIndex = 8 @@ -4297,7 +4343,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.tbKontakt.Controls.Add(Me.TabPage10) Me.tbKontakt.Controls.Add(Me.TabPage11) - Me.tbKontakt.Location = New System.Drawing.Point(3, 286) + Me.tbKontakt.Location = New System.Drawing.Point(3, 321) Me.tbKontakt.Name = "tbKontakt" Me.tbKontakt.SelectedIndex = 0 Me.tbKontakt.Size = New System.Drawing.Size(453, 201) @@ -4371,7 +4417,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.pnlNeukunde.Controls.Add(Me.cboFiliale) Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis) Me.pnlNeukunde.Controls.Add(Me.Label68) - Me.pnlNeukunde.Location = New System.Drawing.Point(776, 493) + Me.pnlNeukunde.Location = New System.Drawing.Point(776, 530) Me.pnlNeukunde.Name = "pnlNeukunde" Me.pnlNeukunde.Size = New System.Drawing.Size(303, 74) Me.pnlNeukunde.TabIndex = 15 @@ -4424,7 +4470,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label77.AutoSize = True Me.Label77.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label77.Location = New System.Drawing.Point(780, 534) + Me.Label77.Location = New System.Drawing.Point(780, 571) Me.Label77.Name = "Label77" Me.Label77.Size = New System.Drawing.Size(64, 13) Me.Label77.TabIndex = 6 @@ -4434,7 +4480,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.lblKundennr.AutoSize = True Me.lblKundennr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblKundennr.Location = New System.Drawing.Point(850, 532) + Me.lblKundennr.Location = New System.Drawing.Point(850, 569) Me.lblKundennr.Name = "lblKundennr" Me.lblKundennr.Size = New System.Drawing.Size(14, 17) Me.lblKundennr.TabIndex = 7 @@ -4444,7 +4490,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label79.AutoSize = True Me.Label79.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label79.Location = New System.Drawing.Point(780, 504) + Me.Label79.Location = New System.Drawing.Point(780, 541) Me.Label79.Name = "Label79" Me.Label79.Size = New System.Drawing.Size(40, 13) Me.Label79.TabIndex = 4 @@ -4454,7 +4500,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label80.AutoSize = True Me.Label80.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label80.Location = New System.Drawing.Point(278, 504) + Me.Label80.Location = New System.Drawing.Point(278, 541) Me.Label80.Name = "Label80" Me.Label80.Size = New System.Drawing.Size(59, 13) Me.Label80.TabIndex = 4 @@ -4465,7 +4511,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxFiBu.AutoSize = True Me.cbxFiBu.Enabled = False Me.cbxFiBu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFiBu.Location = New System.Drawing.Point(400, 503) + Me.cbxFiBu.Location = New System.Drawing.Point(400, 540) Me.cbxFiBu.Name = "cbxFiBu" Me.cbxFiBu.Size = New System.Drawing.Size(47, 17) Me.cbxFiBu.TabIndex = 17 @@ -4477,7 +4523,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxFiBuLG.AutoSize = True Me.cbxFiBuLG.Enabled = False Me.cbxFiBuLG.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 524) + Me.cbxFiBuLG.Location = New System.Drawing.Point(400, 561) Me.cbxFiBuLG.Name = "cbxFiBuLG" Me.cbxFiBuLG.Size = New System.Drawing.Size(64, 17) Me.cbxFiBuLG.TabIndex = 18 @@ -4489,7 +4535,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label97.AutoSize = True Me.Label97.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label97.Location = New System.Drawing.Point(463, 493) + Me.Label97.Location = New System.Drawing.Point(463, 530) Me.Label97.Name = "Label97" Me.Label97.Size = New System.Drawing.Size(100, 13) Me.Label97.TabIndex = 19 @@ -4499,7 +4545,7 @@ Partial Class usrcntlKundeBearbeitenFull 'Button4 ' Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button4.Location = New System.Drawing.Point(466, 509) + Me.Button4.Location = New System.Drawing.Point(466, 546) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(101, 38) Me.Button4.TabIndex = 21 @@ -4513,7 +4559,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.CheckBox1.Checked = True Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox1.Location = New System.Drawing.Point(466, 549) + Me.CheckBox1.Location = New System.Drawing.Point(466, 586) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(101, 17) Me.CheckBox1.TabIndex = 22 @@ -4527,7 +4573,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtERROR.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtERROR.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtERROR.ForeColor = System.Drawing.Color.Red - Me.txtERROR.Location = New System.Drawing.Point(13, 540) + Me.txtERROR.Location = New System.Drawing.Point(13, 577) Me.txtERROR.MaxLength = 9999 Me.txtERROR.Multiline = True Me.txtERROR.Name = "txtERROR" @@ -4537,7 +4583,7 @@ Partial Class usrcntlKundeBearbeitenFull 'btnDatevExport ' Me.btnDatevExport.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDatevExport.Location = New System.Drawing.Point(678, 509) + Me.btnDatevExport.Location = New System.Drawing.Point(678, 546) Me.btnDatevExport.Name = "btnDatevExport" Me.btnDatevExport.Size = New System.Drawing.Size(93, 38) Me.btnDatevExport.TabIndex = 23 @@ -4549,7 +4595,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label98.AutoSize = True Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label98.Location = New System.Drawing.Point(675, 493) + Me.Label98.Location = New System.Drawing.Point(675, 530) Me.Label98.Name = "Label98" Me.Label98.Size = New System.Drawing.Size(101, 13) Me.Label98.TabIndex = 24 @@ -4569,7 +4615,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboFirma.FormattingEnabled = True Me.cboFirma.IntegralHeight = False - Me.cboFirma.Location = New System.Drawing.Point(342, 496) + Me.cboFirma.Location = New System.Drawing.Point(342, 533) Me.cboFirma.Name = "cboFirma" Me.cboFirma.Size = New System.Drawing.Size(49, 28) Me.cboFirma.TabIndex = 5 @@ -4585,7 +4631,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboAuswahl.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboAuswahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboAuswahl.FormattingEnabled = True - Me.cboAuswahl.Location = New System.Drawing.Point(826, 496) + Me.cboAuswahl.Location = New System.Drawing.Point(826, 533) Me.cboAuswahl.Name = "cboAuswahl" Me.cboAuswahl.Size = New System.Drawing.Size(124, 28) Me.cboAuswahl.TabIndex = 5 @@ -4596,41 +4642,90 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' - 'lblHandelregisterNr + 'MyTextBox1 ' - Me.lblHandelregisterNr.AutoSize = True - Me.lblHandelregisterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblHandelregisterNr.Location = New System.Drawing.Point(6, 161) - Me.lblHandelregisterNr.Name = "lblHandelregisterNr" - Me.lblHandelregisterNr.Size = New System.Drawing.Size(100, 13) - Me.lblHandelregisterNr.TabIndex = 132 - Me.lblHandelregisterNr.Text = "Handelsregister-Nr.:" - Me.lblHandelregisterNr.Visible = False + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = True + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Red + Me.MyTextBox1.Location = New System.Drawing.Point(110, 183) + Me.MyTextBox1.MaxLength = 10 + 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(120, 20) + Me.MyTextBox1.TabIndex = 135 + Me.MyTextBox1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'txtHandelsregisterNr + 'Label33 ' - Me.txtHandelsregisterNr._DateTimeOnly = False - Me.txtHandelsregisterNr._numbersOnly = False - Me.txtHandelsregisterNr._numbersOnlyKommastellen = "" - Me.txtHandelsregisterNr._numbersOnlyTrennzeichen = True - Me.txtHandelsregisterNr._Prozent = False - Me.txtHandelsregisterNr._ShortDateNew = False - Me.txtHandelsregisterNr._ShortDateOnly = False - Me.txtHandelsregisterNr._TimeOnly = False - Me.txtHandelsregisterNr._TimeOnly_Seconds = False - Me.txtHandelsregisterNr._value = "" - Me.txtHandelsregisterNr._Waehrung = False - Me.txtHandelsregisterNr._WaehrungZeichen = True - Me.txtHandelsregisterNr.ForeColor = System.Drawing.Color.Black - Me.txtHandelsregisterNr.Location = New System.Drawing.Point(111, 158) - Me.txtHandelsregisterNr.MaxLength = 17 - Me.txtHandelsregisterNr.MaxLineLength = -1 - Me.txtHandelsregisterNr.MaxLines_Warning = "" - Me.txtHandelsregisterNr.MaxLines_Warning_Label = Nothing - Me.txtHandelsregisterNr.Name = "txtHandelsregisterNr" - Me.txtHandelsregisterNr.Size = New System.Drawing.Size(333, 20) - Me.txtHandelsregisterNr.TabIndex = 133 - Me.txtHandelsregisterNr.Visible = False + Me.Label33.AutoSize = True + Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label33.Location = New System.Drawing.Point(10, 186) + Me.Label33.Name = "Label33" + Me.Label33.Size = New System.Drawing.Size(75, 13) + Me.Label33.TabIndex = 134 + Me.Label33.Text = "gegründet am:" + ' + 'Label103 + ' + Me.Label103.AutoSize = True + Me.Label103.Location = New System.Drawing.Point(12, 296) + Me.Label103.Name = "Label103" + Me.Label103.Size = New System.Drawing.Size(42, 13) + Me.Label103.TabIndex = 43 + Me.Label103.Text = "Kapital:" + ' + 'txtKapital + ' + Me.txtKapital._DateTimeOnly = False + Me.txtKapital._numbersOnly = True + Me.txtKapital._numbersOnlyKommastellen = "" + Me.txtKapital._numbersOnlyTrennzeichen = True + Me.txtKapital._Prozent = False + Me.txtKapital._ShortDateNew = False + Me.txtKapital._ShortDateOnly = False + Me.txtKapital._TimeOnly = False + Me.txtKapital._TimeOnly_Seconds = False + Me.txtKapital._value = "" + Me.txtKapital._Waehrung = True + Me.txtKapital._WaehrungZeichen = False + Me.txtKapital.ForeColor = System.Drawing.Color.Red + Me.txtKapital.Location = New System.Drawing.Point(76, 293) + Me.txtKapital.MaxLength = 10 + Me.txtKapital.MaxLineLength = -1 + Me.txtKapital.MaxLines_Warning = "" + Me.txtKapital.MaxLines_Warning_Label = Nothing + Me.txtKapital.Name = "txtKapital" + Me.txtKapital.Size = New System.Drawing.Size(109, 20) + Me.txtKapital.TabIndex = 44 + Me.txtKapital.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cbxKapitalWaehrung + ' + Me.cbxKapitalWaehrung._allowedValuesFreiText = Nothing + Me.cbxKapitalWaehrung._allowFreiText = False + Me.cbxKapitalWaehrung._value = "" + Me.cbxKapitalWaehrung.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbxKapitalWaehrung.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxKapitalWaehrung.DropDownWidth = 200 + Me.cbxKapitalWaehrung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbxKapitalWaehrung.ForeColor = System.Drawing.Color.Black + Me.cbxKapitalWaehrung.FormattingEnabled = True + Me.cbxKapitalWaehrung.Location = New System.Drawing.Point(191, 293) + Me.cbxKapitalWaehrung.Name = "cbxKapitalWaehrung" + Me.cbxKapitalWaehrung.Size = New System.Drawing.Size(47, 21) + Me.cbxKapitalWaehrung.TabIndex = 45 ' 'usrcntlKundeBearbeitenFull ' @@ -4667,7 +4762,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Controls.Add(Me.Label77) Me.Controls.Add(Me.Label97) Me.Name = "usrcntlKundeBearbeitenFull" - Me.Size = New System.Drawing.Size(1152, 570) + Me.Size = New System.Drawing.Size(1152, 607) Me.tbcntrDetails.ResumeLayout(False) Me.tbAbfertigung.ResumeLayout(False) Me.tbAbfertigung.PerformLayout() @@ -5029,4 +5124,9 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents rtb_Zahlungsinfo As RichTextBox Friend WithEvents txtHandelsregisterNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents lblHandelregisterNr As Label + Friend WithEvents MyTextBox1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label33 As Label + Friend WithEvents cbxKapitalWaehrung As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label103 As Label + Friend WithEvents txtKapital As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 8de917fe..9e6789e3 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -54,14 +54,14 @@ Public Class usrcntlKundeBearbeitenFull - Public Sub init(kdnr) + Public Sub init(kdnr As Integer, Optional _isVerag360 As Boolean = False) txtERROR.Text = "" KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdnr) ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr) FISKAL = New cFiskal_Daten(kdnr) KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdnr) - If Not IsDBNull(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) AndAlso CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firmaFMZoll) = 19 Then isVerag360 = True + isVerag360 = _isVerag360 cboFiliale.changeItem(loadValue(KUNDE.FilialenNr, "")) 'zuerst Filiale, dmait Kundennummernkreis später den Wert überschreiben kann! @@ -196,6 +196,8 @@ Public Class usrcntlKundeBearbeitenFull txtCreditsafe.Text = loadValue(KUNDE_ERW.kde_CreditSaveId, "") cboAbf_Steuerschluessel._value = loadValue(KUNDE.Steuerschlüssel, "") cboAbf_Waehrung._value = loadValue(KUNDE.Währungscode, "EUR") + txtKapital.Text = loadValue(KUNDE_ERW.kde_Kapital, "") + cbxKapitalWaehrung._value = loadValue(KUNDE_ERW.dke_KapitalWaehrung, "EUR") cbxSammelrechnungBerichtLeistungsdetails.Checked = loadValue(KUNDE_ERW.kde_FakturierungSR_Details, False) cboAbf_Sammelrechnung._value = loadValue(KUNDE.Sammelrechnung, "") @@ -574,10 +576,14 @@ Public Class usrcntlKundeBearbeitenFull KUNDE_ERW.Zahlungsziel2 = isLeerNothing(txtAbf_Zahlungsziel2.Text) KUNDE_ERW.Zahlungsziel3 = isLeerNothing(txtAbf_Zahlungsziel3.Text) + KUNDE_ERW.kde_Kapital = isLeerNothing(txtKapital.Text) + KUNDE_ERW.dke_KapitalWaehrung = isLeerNothing(cbxKapitalWaehrung._value) + KUNDE.Euroeinführung = isLeerNothing(txtAbf_Euroeinführung._value) KUNDE.Währungscode = isLeerNothing(cboAbf_Waehrung._value) + KUNDE.Sammelrechnung = cboAbf_Sammelrechnung._value KUNDE_ERW.kde_FakturierungSR_Details = cbxSammelrechnungBerichtLeistungsdetails.Checked @@ -801,6 +807,9 @@ Public Class usrcntlKundeBearbeitenFull Private Sub loadControls() cboAbf_Waehrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False) + + cbxKapitalWaehrung.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray()) + cboAbf_Steuerschluessel.fillWithSQL("SELECT [Steuerschlüssel], isnull(cast(cast( [Steuersatz %]*100 as decimal(2))as varchar(5)) + '% - ' +AuswahlSteuerbezeichnung,'') as Bezeichnung FROM [Steuertabelle] ORDER BY Steuerschlüssel", False, "FMZOLL", True) @@ -1148,6 +1157,19 @@ Public Class usrcntlKundeBearbeitenFull Me.tbcntrDetails.Controls.Remove(tbUmsatz) Me.tbcntrDetails.Controls.Remove(tbOP) + + For Each c As Control In Me.tbcntrDetails.Controls + If c.Name = "tbBank" Then + If Not isVerag360 Then + c.Text = "Bankverb./Kreditkarten" + Else + c.Text = "Asfinag" + End If + End If + + Next + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", Me.FindForm) Then btnFirmendatenFormularSpeichern.Enabled = False End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 6d3c8430..aa53e933 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -77,6 +77,9 @@ Public Class cKundenErweitert Property kde_EORIgeprueftAm As Object = Nothing Property kde_AdressZusatz As Object = Nothing Property kde_abweichendesZZVL As Object = Nothing + Property kde_HRNr As Object = Nothing + Property kde_Kapital As Object = Nothing + Property dke_KapitalWaehrung As Object = Nothing Dim SQL As New SQL @@ -155,6 +158,9 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_EORIgeprueftAm", kde_EORIgeprueftAm)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AdressZusatz", kde_AdressZusatz)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_HRNr", kde_HRNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kapital", kde_Kapital)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dke_KapitalWaehrung", dke_KapitalWaehrung)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb index d30c9447..6d39563f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb @@ -96,6 +96,12 @@ Public Class cKundenKontakte Property kkd_AnsprechpartnerAnrede As Object = Nothing Property kkd_AnsprechpartnerVorname As Object = Nothing Property kkd_AnsprechpartnerNachname As Object = Nothing + Property kkd_Ort As Object = Nothing + Property kkd_PLZ As Object = Nothing + Property kkd_Adresse As Object = Nothing + Property kkd_GebDatum As Object = Nothing + Property kkd_Land As Object = Nothing + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -125,6 +131,12 @@ Public Class cKundenKontakte list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerAnrede", kkd_AnsprechpartnerAnrede)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerVorname", kkd_AnsprechpartnerVorname)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_AnsprechpartnerNachname", kkd_AnsprechpartnerNachname)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Adresse", kkd_Adresse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Ort", kkd_Ort)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_PLZ", kkd_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_GebDatum", kkd_GebDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land)) + Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index 5054035b..01e0a751 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -24,6 +24,7 @@ Partial Class frmMessenger 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 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() @@ -38,12 +39,12 @@ Partial Class frmMessenger Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel6 = New System.Windows.Forms.Panel() Me.Label3 = New System.Windows.Forms.Label() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview() + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel5 = New System.Windows.Forms.Panel() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() @@ -64,7 +65,7 @@ Partial Class frmMessenger Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() @@ -92,9 +93,9 @@ Partial Class frmMessenger Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() - Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer() - Me.Timer_REFRESH = New System.Windows.Forms.Timer() - Me.cntxt = New System.Windows.Forms.ContextMenuStrip() + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) + Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) + Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -1014,6 +1015,7 @@ Partial Class frmMessenger Me.Controls.Add(Me.SplitContainer) Me.DoubleBuffered = True Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.MinimizeBox = False Me.Name = "frmMessenger" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Messenger" diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index 36a06010..57288ffb 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -1364,5 +1364,15 @@ Public Class frmMessenger 'End If End Sub + Private Sub UsrCntlChat_Art_Btn1_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_MACHAT.CLICKED + End Sub + + Private Sub UsrCntlChat_Art_Btn2_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_LKWCHAT.CLICKED + + End Sub + + Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED + + End Sub End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb index 896b5df2..6ef058b6 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb @@ -759,7 +759,7 @@ Public Class cATEZ_NCTS_IN Dim responseStatusCode = rest.ReadResponseHeader() If (responseStatusCode < 0) Then - For i = 0 To 30 'Versuche den Header 16x abzufragen (funktioniert ab und zu nicht). + For i = 0 To 30 'Versuche den Header 30x abzufragen (funktioniert ab und zu nicht). responseStatusCode = rest.ReadResponseHeader() If responseStatusCode > 0 Then Exit For Thread.Sleep(5000)