diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.Designer.vb new file mode 100644 index 00000000..6044e401 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.Designer.vb @@ -0,0 +1,670 @@ + +Partial Class usrcntlCBAM_direkt + 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.btn = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtAnsprechpartner = 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.lblLagervertrag = 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.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtCBAM_Onboarding_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboPaketOption = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtCBAM_MonatPausch_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_jeWeitere_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_jeWeitere_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_MonatPausch_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_Onboarding_Paket_2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_jeWeitere_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_MonatPausch_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_Onboarding_Paket_3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = 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(170, 37) + 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(170, 56) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 11 + Me.Label1.Text = "Adresse:" + ' + '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(937, 34) + 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.Enabled = False + 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 + ' + '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(254, 72) + 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(709, 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(254, 53) + 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(254, 34) + 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 + ' + 'lblLagervertrag + ' + Me.lblLagervertrag.AutoSize = True + Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9) + Me.lblLagervertrag.Name = "lblLagervertrag" + Me.lblLagervertrag.Size = New System.Drawing.Size(120, 20) + Me.lblLagervertrag.TabIndex = 1 + Me.lblLagervertrag.Text = "CBAM - direkt" + ' + '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(44, 37) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(50, 13) + Me.Label12.TabIndex = 5 + Me.Label12.Text = "Sprache:" + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(47, 53) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 10 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(251, 130) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(139, 13) + Me.Label5.TabIndex = 18 + Me.Label5.Text = "Offert Paket ""CBAM Basic"":" + ' + 'txtCBAM_Onboarding_Paket_1 + ' + Me.txtCBAM_Onboarding_Paket_1._DateTimeOnly = False + Me.txtCBAM_Onboarding_Paket_1._numbersOnly = True + Me.txtCBAM_Onboarding_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_Onboarding_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_Onboarding_Paket_1._Prozent = False + Me.txtCBAM_Onboarding_Paket_1._ShortDateNew = False + Me.txtCBAM_Onboarding_Paket_1._ShortDateOnly = False + Me.txtCBAM_Onboarding_Paket_1._TimeOnly = False + Me.txtCBAM_Onboarding_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_Onboarding_Paket_1._value = Nothing + Me.txtCBAM_Onboarding_Paket_1._Waehrung = False + Me.txtCBAM_Onboarding_Paket_1._WaehrungZeichen = True + Me.txtCBAM_Onboarding_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_Onboarding_Paket_1.Location = New System.Drawing.Point(254, 146) + Me.txtCBAM_Onboarding_Paket_1.MaxLineLength = -1 + Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_Onboarding_Paket_1.Name = "txtCBAM_Onboarding_Paket_1" + Me.txtCBAM_Onboarding_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_Onboarding_Paket_1.TabIndex = 19 + ' + 'cboPaketOption + ' + Me.cboPaketOption._allowedValuesFreiText = Nothing + Me.cboPaketOption._allowFreiText = False + Me.cboPaketOption._value = "" + Me.cboPaketOption.FormattingEnabled = True + Me.cboPaketOption.Location = New System.Drawing.Point(460, 98) + Me.cboPaketOption.Name = "cboPaketOption" + Me.cboPaketOption.Size = New System.Drawing.Size(200, 21) + Me.cboPaketOption.TabIndex = 33 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(416, 101) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(38, 13) + Me.Label2.TabIndex = 34 + Me.Label2.Text = "Paket:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(170, 169) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(81, 13) + Me.Label3.TabIndex = 35 + Me.Label3.Text = "Monatl.Pausch:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(170, 189) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(81, 13) + Me.Label4.TabIndex = 36 + Me.Label4.Text = "Je weitere Lief.:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(170, 149) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 37 + Me.Label6.Text = "Onboarding:" + ' + 'txtCBAM_MonatPausch_Paket_1 + ' + Me.txtCBAM_MonatPausch_Paket_1._DateTimeOnly = False + Me.txtCBAM_MonatPausch_Paket_1._numbersOnly = True + Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_MonatPausch_Paket_1._Prozent = False + Me.txtCBAM_MonatPausch_Paket_1._ShortDateNew = False + Me.txtCBAM_MonatPausch_Paket_1._ShortDateOnly = False + Me.txtCBAM_MonatPausch_Paket_1._TimeOnly = False + Me.txtCBAM_MonatPausch_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_MonatPausch_Paket_1._value = "" + Me.txtCBAM_MonatPausch_Paket_1._Waehrung = False + Me.txtCBAM_MonatPausch_Paket_1._WaehrungZeichen = True + Me.txtCBAM_MonatPausch_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_MonatPausch_Paket_1.Location = New System.Drawing.Point(254, 166) + Me.txtCBAM_MonatPausch_Paket_1.MaxLineLength = -1 + Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_MonatPausch_Paket_1.Name = "txtCBAM_MonatPausch_Paket_1" + Me.txtCBAM_MonatPausch_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_MonatPausch_Paket_1.TabIndex = 38 + ' + 'txtCBAM_jeWeitere_Paket_1 + ' + Me.txtCBAM_jeWeitere_Paket_1._DateTimeOnly = False + Me.txtCBAM_jeWeitere_Paket_1._numbersOnly = True + Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_jeWeitere_Paket_1._Prozent = False + Me.txtCBAM_jeWeitere_Paket_1._ShortDateNew = False + Me.txtCBAM_jeWeitere_Paket_1._ShortDateOnly = False + Me.txtCBAM_jeWeitere_Paket_1._TimeOnly = False + Me.txtCBAM_jeWeitere_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_jeWeitere_Paket_1._value = "" + Me.txtCBAM_jeWeitere_Paket_1._Waehrung = False + Me.txtCBAM_jeWeitere_Paket_1._WaehrungZeichen = True + Me.txtCBAM_jeWeitere_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_jeWeitere_Paket_1.Location = New System.Drawing.Point(254, 186) + Me.txtCBAM_jeWeitere_Paket_1.MaxLineLength = -1 + Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_jeWeitere_Paket_1.Name = "txtCBAM_jeWeitere_Paket_1" + Me.txtCBAM_jeWeitere_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_jeWeitere_Paket_1.TabIndex = 39 + ' + 'txtCBAM_jeWeitere_Paket_2 + ' + Me.txtCBAM_jeWeitere_Paket_2._DateTimeOnly = False + Me.txtCBAM_jeWeitere_Paket_2._numbersOnly = True + Me.txtCBAM_jeWeitere_Paket_2._numbersOnlyKommastellen = "" + Me.txtCBAM_jeWeitere_Paket_2._numbersOnlyTrennzeichen = True + Me.txtCBAM_jeWeitere_Paket_2._Prozent = False + Me.txtCBAM_jeWeitere_Paket_2._ShortDateNew = False + Me.txtCBAM_jeWeitere_Paket_2._ShortDateOnly = False + Me.txtCBAM_jeWeitere_Paket_2._TimeOnly = False + Me.txtCBAM_jeWeitere_Paket_2._TimeOnly_Seconds = False + Me.txtCBAM_jeWeitere_Paket_2._value = "" + Me.txtCBAM_jeWeitere_Paket_2._Waehrung = False + Me.txtCBAM_jeWeitere_Paket_2._WaehrungZeichen = True + Me.txtCBAM_jeWeitere_Paket_2.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_jeWeitere_Paket_2.Location = New System.Drawing.Point(460, 186) + Me.txtCBAM_jeWeitere_Paket_2.MaxLineLength = -1 + Me.txtCBAM_jeWeitere_Paket_2.MaxLines_Warning = "" + Me.txtCBAM_jeWeitere_Paket_2.MaxLines_Warning_Label = Nothing + Me.txtCBAM_jeWeitere_Paket_2.Name = "txtCBAM_jeWeitere_Paket_2" + Me.txtCBAM_jeWeitere_Paket_2.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_jeWeitere_Paket_2.TabIndex = 42 + ' + 'txtCBAM_MonatPausch_Paket_2 + ' + Me.txtCBAM_MonatPausch_Paket_2._DateTimeOnly = False + Me.txtCBAM_MonatPausch_Paket_2._numbersOnly = True + Me.txtCBAM_MonatPausch_Paket_2._numbersOnlyKommastellen = "" + Me.txtCBAM_MonatPausch_Paket_2._numbersOnlyTrennzeichen = True + Me.txtCBAM_MonatPausch_Paket_2._Prozent = False + Me.txtCBAM_MonatPausch_Paket_2._ShortDateNew = False + Me.txtCBAM_MonatPausch_Paket_2._ShortDateOnly = False + Me.txtCBAM_MonatPausch_Paket_2._TimeOnly = False + Me.txtCBAM_MonatPausch_Paket_2._TimeOnly_Seconds = False + Me.txtCBAM_MonatPausch_Paket_2._value = "" + Me.txtCBAM_MonatPausch_Paket_2._Waehrung = False + Me.txtCBAM_MonatPausch_Paket_2._WaehrungZeichen = True + Me.txtCBAM_MonatPausch_Paket_2.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_MonatPausch_Paket_2.Location = New System.Drawing.Point(460, 166) + Me.txtCBAM_MonatPausch_Paket_2.MaxLineLength = -1 + Me.txtCBAM_MonatPausch_Paket_2.MaxLines_Warning = "" + Me.txtCBAM_MonatPausch_Paket_2.MaxLines_Warning_Label = Nothing + Me.txtCBAM_MonatPausch_Paket_2.Name = "txtCBAM_MonatPausch_Paket_2" + Me.txtCBAM_MonatPausch_Paket_2.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_MonatPausch_Paket_2.TabIndex = 41 + ' + 'txtCBAM_Onboarding_Paket_2 + ' + Me.txtCBAM_Onboarding_Paket_2._DateTimeOnly = False + Me.txtCBAM_Onboarding_Paket_2._numbersOnly = True + Me.txtCBAM_Onboarding_Paket_2._numbersOnlyKommastellen = "" + Me.txtCBAM_Onboarding_Paket_2._numbersOnlyTrennzeichen = True + Me.txtCBAM_Onboarding_Paket_2._Prozent = False + Me.txtCBAM_Onboarding_Paket_2._ShortDateNew = False + Me.txtCBAM_Onboarding_Paket_2._ShortDateOnly = False + Me.txtCBAM_Onboarding_Paket_2._TimeOnly = False + Me.txtCBAM_Onboarding_Paket_2._TimeOnly_Seconds = False + Me.txtCBAM_Onboarding_Paket_2._value = "" + Me.txtCBAM_Onboarding_Paket_2._Waehrung = False + Me.txtCBAM_Onboarding_Paket_2._WaehrungZeichen = True + Me.txtCBAM_Onboarding_Paket_2.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_Onboarding_Paket_2.Location = New System.Drawing.Point(460, 146) + Me.txtCBAM_Onboarding_Paket_2.MaxLineLength = -1 + Me.txtCBAM_Onboarding_Paket_2.MaxLines_Warning = "" + Me.txtCBAM_Onboarding_Paket_2.MaxLines_Warning_Label = Nothing + Me.txtCBAM_Onboarding_Paket_2.Name = "txtCBAM_Onboarding_Paket_2" + Me.txtCBAM_Onboarding_Paket_2.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_Onboarding_Paket_2.TabIndex = 40 + ' + 'txtCBAM_jeWeitere_Paket_3 + ' + Me.txtCBAM_jeWeitere_Paket_3._DateTimeOnly = False + Me.txtCBAM_jeWeitere_Paket_3._numbersOnly = True + Me.txtCBAM_jeWeitere_Paket_3._numbersOnlyKommastellen = "" + Me.txtCBAM_jeWeitere_Paket_3._numbersOnlyTrennzeichen = True + Me.txtCBAM_jeWeitere_Paket_3._Prozent = False + Me.txtCBAM_jeWeitere_Paket_3._ShortDateNew = False + Me.txtCBAM_jeWeitere_Paket_3._ShortDateOnly = False + Me.txtCBAM_jeWeitere_Paket_3._TimeOnly = False + Me.txtCBAM_jeWeitere_Paket_3._TimeOnly_Seconds = False + Me.txtCBAM_jeWeitere_Paket_3._value = "" + Me.txtCBAM_jeWeitere_Paket_3._Waehrung = False + Me.txtCBAM_jeWeitere_Paket_3._WaehrungZeichen = True + Me.txtCBAM_jeWeitere_Paket_3.Enabled = False + Me.txtCBAM_jeWeitere_Paket_3.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_jeWeitere_Paket_3.Location = New System.Drawing.Point(666, 186) + Me.txtCBAM_jeWeitere_Paket_3.MaxLineLength = -1 + Me.txtCBAM_jeWeitere_Paket_3.MaxLines_Warning = "" + Me.txtCBAM_jeWeitere_Paket_3.MaxLines_Warning_Label = Nothing + Me.txtCBAM_jeWeitere_Paket_3.Name = "txtCBAM_jeWeitere_Paket_3" + Me.txtCBAM_jeWeitere_Paket_3.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_jeWeitere_Paket_3.TabIndex = 45 + ' + 'txtCBAM_MonatPausch_Paket_3 + ' + Me.txtCBAM_MonatPausch_Paket_3._DateTimeOnly = False + Me.txtCBAM_MonatPausch_Paket_3._numbersOnly = True + Me.txtCBAM_MonatPausch_Paket_3._numbersOnlyKommastellen = "" + Me.txtCBAM_MonatPausch_Paket_3._numbersOnlyTrennzeichen = True + Me.txtCBAM_MonatPausch_Paket_3._Prozent = False + Me.txtCBAM_MonatPausch_Paket_3._ShortDateNew = False + Me.txtCBAM_MonatPausch_Paket_3._ShortDateOnly = False + Me.txtCBAM_MonatPausch_Paket_3._TimeOnly = False + Me.txtCBAM_MonatPausch_Paket_3._TimeOnly_Seconds = False + Me.txtCBAM_MonatPausch_Paket_3._value = "" + Me.txtCBAM_MonatPausch_Paket_3._Waehrung = False + Me.txtCBAM_MonatPausch_Paket_3._WaehrungZeichen = True + Me.txtCBAM_MonatPausch_Paket_3.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_MonatPausch_Paket_3.Location = New System.Drawing.Point(666, 166) + Me.txtCBAM_MonatPausch_Paket_3.MaxLineLength = -1 + Me.txtCBAM_MonatPausch_Paket_3.MaxLines_Warning = "" + Me.txtCBAM_MonatPausch_Paket_3.MaxLines_Warning_Label = Nothing + Me.txtCBAM_MonatPausch_Paket_3.Name = "txtCBAM_MonatPausch_Paket_3" + Me.txtCBAM_MonatPausch_Paket_3.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_MonatPausch_Paket_3.TabIndex = 44 + ' + 'txtCBAM_Onboarding_Paket_3 + ' + Me.txtCBAM_Onboarding_Paket_3._DateTimeOnly = False + Me.txtCBAM_Onboarding_Paket_3._numbersOnly = True + Me.txtCBAM_Onboarding_Paket_3._numbersOnlyKommastellen = "" + Me.txtCBAM_Onboarding_Paket_3._numbersOnlyTrennzeichen = True + Me.txtCBAM_Onboarding_Paket_3._Prozent = False + Me.txtCBAM_Onboarding_Paket_3._ShortDateNew = False + Me.txtCBAM_Onboarding_Paket_3._ShortDateOnly = False + Me.txtCBAM_Onboarding_Paket_3._TimeOnly = False + Me.txtCBAM_Onboarding_Paket_3._TimeOnly_Seconds = False + Me.txtCBAM_Onboarding_Paket_3._value = "" + Me.txtCBAM_Onboarding_Paket_3._Waehrung = False + Me.txtCBAM_Onboarding_Paket_3._WaehrungZeichen = True + Me.txtCBAM_Onboarding_Paket_3.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_Onboarding_Paket_3.Location = New System.Drawing.Point(666, 146) + Me.txtCBAM_Onboarding_Paket_3.MaxLineLength = -1 + Me.txtCBAM_Onboarding_Paket_3.MaxLines_Warning = "" + Me.txtCBAM_Onboarding_Paket_3.MaxLines_Warning_Label = Nothing + Me.txtCBAM_Onboarding_Paket_3.Name = "txtCBAM_Onboarding_Paket_3" + Me.txtCBAM_Onboarding_Paket_3.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_Onboarding_Paket_3.TabIndex = 43 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(457, 130) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(156, 13) + Me.Label7.TabIndex = 46 + Me.Label7.Text = "Offert Paket ""CBAM Standard"":" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(663, 130) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(153, 13) + Me.Label9.TabIndex = 47 + Me.Label9.Text = "Offert Paket ""CBAM Premium"":" + ' + 'txtVertragsbeginn + ' + Me.txtVertragsbeginn._DateTimeOnly = False + Me.txtVertragsbeginn._numbersOnly = False + Me.txtVertragsbeginn._numbersOnlyKommastellen = "" + Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True + Me.txtVertragsbeginn._Prozent = False + Me.txtVertragsbeginn._ShortDateNew = True + Me.txtVertragsbeginn._ShortDateOnly = False + Me.txtVertragsbeginn._TimeOnly = False + Me.txtVertragsbeginn._TimeOnly_Seconds = False + Me.txtVertragsbeginn._value = "" + Me.txtVertragsbeginn._Waehrung = False + Me.txtVertragsbeginn._WaehrungZeichen = True + Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black + Me.txtVertragsbeginn.Location = New System.Drawing.Point(254, 98) + Me.txtVertragsbeginn.MaxLength = 10 + Me.txtVertragsbeginn.MaxLineLength = -1 + Me.txtVertragsbeginn.MaxLines_Warning = "" + Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing + Me.txtVertragsbeginn.Name = "txtVertragsbeginn" + Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20) + Me.txtVertragsbeginn.TabIndex = 49 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(167, 101) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(81, 13) + Me.Label10.TabIndex = 48 + Me.Label10.Text = "Vertragsbeginn:" + ' + 'usrcntlCBAM_direkt + ' + 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.txtVertragsbeginn) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_3) + Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_3) + Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_3) + Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_2) + Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_2) + Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_2) + Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_1) + Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_1) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.cboPaketOption) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.lblLagervertrag) + Me.Controls.Add(Me.txtAnsprechpartner) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_1) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.lbl) + Me.Name = "usrcntlCBAM_direkt" + Me.Size = New System.Drawing.Size(1000, 217) + 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 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 lblLagervertrag 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 cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label5 As Label + Friend WithEvents txtCBAM_Onboarding_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cboPaketOption As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label6 As Label + Friend WithEvents txtCBAM_MonatPausch_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_jeWeitere_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_jeWeitere_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_MonatPausch_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_Onboarding_Paket_2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_jeWeitere_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_MonatPausch_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_Onboarding_Paket_3 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents Label9 As Label + Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.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/usrcntlCBAM.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb new file mode 100644 index 00000000..6ce14351 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb @@ -0,0 +1,111 @@ +Public Class usrcntlCBAM_direkt + 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) + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + '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() + cboSprache.Items.Clear() + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + 'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + + cboPaketOption.Items.Clear() + cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Basic", "CBAM_Basic")) + cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Standard", "CBAM_Standard")) + cboPaketOption.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Premium", "CBAM_Premium")) + cboPaketOption.changeItem("") + + txtCBAM_Onboarding_Paket_1._value = 200 + txtCBAM_MonatPausch_Paket_1._value = 100 + txtCBAM_jeWeitere_Paket_1._value = 10 + + txtCBAM_Onboarding_Paket_2._value = 200 + txtCBAM_MonatPausch_Paket_2._value = 175 + txtCBAM_jeWeitere_Paket_2._value = 10 + + txtCBAM_Onboarding_Paket_3._value = 200 + txtCBAM_MonatPausch_Paket_3._value = 350 + 'txtCBAM_jeWeitere_Paket_3._value = 10 + + + txtVertragsbeginn.Text = "01.01." & Now.Year + If Now.Month > 11 Then + txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year + End If + ' txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString + 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 + + +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.Designer.vb new file mode 100644 index 00000000..5afe71e6 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.Designer.vb @@ -0,0 +1,409 @@ + +Partial Class usrcntlCBAM_Zertifikate + 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.btn = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtAnsprechpartner = 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.lblLagervertrag = 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.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtCBAM_ZertAufschlag_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.txtCBAM_jeZertBest_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(170, 37) + 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(170, 56) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 11 + Me.Label1.Text = "Adresse:" + ' + '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(937, 34) + 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.Enabled = False + 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 + ' + '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(254, 72) + 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(709, 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(254, 53) + 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(254, 34) + 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 + ' + 'lblLagervertrag + ' + Me.lblLagervertrag.AutoSize = True + Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9) + Me.lblLagervertrag.Name = "lblLagervertrag" + Me.lblLagervertrag.Size = New System.Drawing.Size(120, 20) + Me.lblLagervertrag.TabIndex = 1 + Me.lblLagervertrag.Text = "CBAM - direkt" + ' + '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(44, 37) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(50, 13) + Me.Label12.TabIndex = 5 + Me.Label12.Text = "Sprache:" + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(47, 53) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 10 + ' + 'txtVertragsbeginn + ' + Me.txtVertragsbeginn._DateTimeOnly = False + Me.txtVertragsbeginn._numbersOnly = False + Me.txtVertragsbeginn._numbersOnlyKommastellen = "" + Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True + Me.txtVertragsbeginn._Prozent = False + Me.txtVertragsbeginn._ShortDateNew = True + Me.txtVertragsbeginn._ShortDateOnly = False + Me.txtVertragsbeginn._TimeOnly = False + Me.txtVertragsbeginn._TimeOnly_Seconds = False + Me.txtVertragsbeginn._value = "" + Me.txtVertragsbeginn._Waehrung = False + Me.txtVertragsbeginn._WaehrungZeichen = True + Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black + Me.txtVertragsbeginn.Location = New System.Drawing.Point(254, 98) + Me.txtVertragsbeginn.MaxLength = 10 + Me.txtVertragsbeginn.MaxLineLength = -1 + Me.txtVertragsbeginn.MaxLines_Warning = "" + Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing + Me.txtVertragsbeginn.Name = "txtVertragsbeginn" + Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20) + Me.txtVertragsbeginn.TabIndex = 49 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(170, 101) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(81, 13) + Me.Label10.TabIndex = 48 + Me.Label10.Text = "Vertragsbeginn:" + ' + 'txtCBAM_ZertAufschlag_Paket_1 + ' + Me.txtCBAM_ZertAufschlag_Paket_1._DateTimeOnly = False + Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnly = True + Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_ZertAufschlag_Paket_1._Prozent = False + Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateNew = False + Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateOnly = False + Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly = False + Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_ZertAufschlag_Paket_1._value = "" + Me.txtCBAM_ZertAufschlag_Paket_1._Waehrung = False + Me.txtCBAM_ZertAufschlag_Paket_1._WaehrungZeichen = True + Me.txtCBAM_ZertAufschlag_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_ZertAufschlag_Paket_1.Location = New System.Drawing.Point(254, 145) + Me.txtCBAM_ZertAufschlag_Paket_1.MaxLineLength = -1 + Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_ZertAufschlag_Paket_1.Name = "txtCBAM_ZertAufschlag_Paket_1" + Me.txtCBAM_ZertAufschlag_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_ZertAufschlag_Paket_1.TabIndex = 56 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(170, 148) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(68, 13) + Me.Label11.TabIndex = 55 + Me.Label11.Text = "Aufschlag %:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(170, 128) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(80, 13) + Me.Label3.TabIndex = 54 + Me.Label3.Text = "Zert.bestellung:" + ' + 'txtCBAM_jeZertBest_Paket_1 + ' + Me.txtCBAM_jeZertBest_Paket_1._DateTimeOnly = False + Me.txtCBAM_jeZertBest_Paket_1._numbersOnly = True + Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_jeZertBest_Paket_1._Prozent = False + Me.txtCBAM_jeZertBest_Paket_1._ShortDateNew = False + Me.txtCBAM_jeZertBest_Paket_1._ShortDateOnly = False + Me.txtCBAM_jeZertBest_Paket_1._TimeOnly = False + Me.txtCBAM_jeZertBest_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_jeZertBest_Paket_1._value = "" + Me.txtCBAM_jeZertBest_Paket_1._Waehrung = False + Me.txtCBAM_jeZertBest_Paket_1._WaehrungZeichen = True + Me.txtCBAM_jeZertBest_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_jeZertBest_Paket_1.Location = New System.Drawing.Point(254, 125) + Me.txtCBAM_jeZertBest_Paket_1.MaxLineLength = -1 + Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_jeZertBest_Paket_1.Name = "txtCBAM_jeZertBest_Paket_1" + Me.txtCBAM_jeZertBest_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_jeZertBest_Paket_1.TabIndex = 53 + ' + 'usrcntlCBAM_Zertifikate + ' + 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.txtCBAM_ZertAufschlag_Paket_1) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.txtCBAM_jeZertBest_Paket_1) + Me.Controls.Add(Me.txtVertragsbeginn) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.lblLagervertrag) + Me.Controls.Add(Me.txtAnsprechpartner) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.lbl) + Me.Name = "usrcntlCBAM_Zertifikate" + Me.Size = New System.Drawing.Size(1000, 182) + 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 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 lblLagervertrag 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 cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + Friend WithEvents txtCBAM_ZertAufschlag_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label11 As Label + Friend WithEvents Label3 As Label + Friend WithEvents txtCBAM_jeZertBest_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.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/usrcntlCBAM_Zertifikate.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.vb new file mode 100644 index 00000000..3291e1bd --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.vb @@ -0,0 +1,94 @@ +Public Class usrcntlCBAM_Zertifikate + 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) + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + '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() + cboSprache.Items.Clear() + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + + txtCBAM_jeZertBest_Paket_1._value = 50 + txtCBAM_ZertAufschlag_Paket_1._value = 10 + + + txtVertragsbeginn.Text = "01.01." & Now.Year + If Now.Month > 11 Then + txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year + End If + + 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 + + +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.Designer.vb new file mode 100644 index 00000000..216863ed --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.Designer.vb @@ -0,0 +1,536 @@ + +Partial Class usrcntlCBAM_indirekt + 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.btn = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtAnsprechpartner = 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.lblLagervertrag = 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.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtCBAM_Onboarding_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtCBAM_MonatPausch_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_jeWeitere_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtCBAM_jeZertBest_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVertragsbeginn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtCBAM_ZertAufschlag_Paket_1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(170, 37) + 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(170, 56) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(48, 13) + Me.Label1.TabIndex = 11 + Me.Label1.Text = "Adresse:" + ' + '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(937, 34) + 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.Enabled = False + 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 + ' + '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(254, 72) + 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(709, 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(254, 53) + 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(254, 34) + 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 + ' + 'lblLagervertrag + ' + Me.lblLagervertrag.AutoSize = True + Me.lblLagervertrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLagervertrag.Location = New System.Drawing.Point(43, 9) + Me.lblLagervertrag.Name = "lblLagervertrag" + Me.lblLagervertrag.Size = New System.Drawing.Size(236, 20) + Me.lblLagervertrag.TabIndex = 1 + Me.lblLagervertrag.Text = "CBAM - indirekt + Zertifikate" + ' + '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(44, 37) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(50, 13) + Me.Label12.TabIndex = 5 + Me.Label12.Text = "Sprache:" + ' + 'cboSprache + ' + Me.cboSprache._allowedValuesFreiText = Nothing + Me.cboSprache._allowFreiText = False + Me.cboSprache._value = "" + Me.cboSprache.FormattingEnabled = True + Me.cboSprache.Location = New System.Drawing.Point(47, 53) + Me.cboSprache.Name = "cboSprache" + Me.cboSprache.Size = New System.Drawing.Size(89, 21) + Me.cboSprache.TabIndex = 10 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(251, 126) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(36, 13) + Me.Label5.TabIndex = 18 + Me.Label5.Text = "Offert:" + ' + 'txtCBAM_Onboarding_Paket_1 + ' + Me.txtCBAM_Onboarding_Paket_1._DateTimeOnly = False + Me.txtCBAM_Onboarding_Paket_1._numbersOnly = True + Me.txtCBAM_Onboarding_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_Onboarding_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_Onboarding_Paket_1._Prozent = False + Me.txtCBAM_Onboarding_Paket_1._ShortDateNew = False + Me.txtCBAM_Onboarding_Paket_1._ShortDateOnly = False + Me.txtCBAM_Onboarding_Paket_1._TimeOnly = False + Me.txtCBAM_Onboarding_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_Onboarding_Paket_1._value = "" + Me.txtCBAM_Onboarding_Paket_1._Waehrung = False + Me.txtCBAM_Onboarding_Paket_1._WaehrungZeichen = True + Me.txtCBAM_Onboarding_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_Onboarding_Paket_1.Location = New System.Drawing.Point(254, 142) + Me.txtCBAM_Onboarding_Paket_1.MaxLineLength = -1 + Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_Onboarding_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_Onboarding_Paket_1.Name = "txtCBAM_Onboarding_Paket_1" + Me.txtCBAM_Onboarding_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_Onboarding_Paket_1.TabIndex = 19 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(170, 165) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(81, 13) + Me.Label3.TabIndex = 35 + Me.Label3.Text = "Monatl.Pausch:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(170, 185) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(81, 13) + Me.Label4.TabIndex = 36 + Me.Label4.Text = "Je weitere Lief.:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(170, 145) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 37 + Me.Label6.Text = "Onboarding:" + ' + 'txtCBAM_MonatPausch_Paket_1 + ' + Me.txtCBAM_MonatPausch_Paket_1._DateTimeOnly = False + Me.txtCBAM_MonatPausch_Paket_1._numbersOnly = True + Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_MonatPausch_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_MonatPausch_Paket_1._Prozent = False + Me.txtCBAM_MonatPausch_Paket_1._ShortDateNew = False + Me.txtCBAM_MonatPausch_Paket_1._ShortDateOnly = False + Me.txtCBAM_MonatPausch_Paket_1._TimeOnly = False + Me.txtCBAM_MonatPausch_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_MonatPausch_Paket_1._value = "" + Me.txtCBAM_MonatPausch_Paket_1._Waehrung = False + Me.txtCBAM_MonatPausch_Paket_1._WaehrungZeichen = True + Me.txtCBAM_MonatPausch_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_MonatPausch_Paket_1.Location = New System.Drawing.Point(254, 162) + Me.txtCBAM_MonatPausch_Paket_1.MaxLineLength = -1 + Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_MonatPausch_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_MonatPausch_Paket_1.Name = "txtCBAM_MonatPausch_Paket_1" + Me.txtCBAM_MonatPausch_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_MonatPausch_Paket_1.TabIndex = 38 + ' + 'txtCBAM_jeWeitere_Paket_1 + ' + Me.txtCBAM_jeWeitere_Paket_1._DateTimeOnly = False + Me.txtCBAM_jeWeitere_Paket_1._numbersOnly = True + Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_jeWeitere_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_jeWeitere_Paket_1._Prozent = False + Me.txtCBAM_jeWeitere_Paket_1._ShortDateNew = False + Me.txtCBAM_jeWeitere_Paket_1._ShortDateOnly = False + Me.txtCBAM_jeWeitere_Paket_1._TimeOnly = False + Me.txtCBAM_jeWeitere_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_jeWeitere_Paket_1._value = "" + Me.txtCBAM_jeWeitere_Paket_1._Waehrung = False + Me.txtCBAM_jeWeitere_Paket_1._WaehrungZeichen = True + Me.txtCBAM_jeWeitere_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_jeWeitere_Paket_1.Location = New System.Drawing.Point(254, 182) + Me.txtCBAM_jeWeitere_Paket_1.MaxLineLength = -1 + Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_jeWeitere_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_jeWeitere_Paket_1.Name = "txtCBAM_jeWeitere_Paket_1" + Me.txtCBAM_jeWeitere_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_jeWeitere_Paket_1.TabIndex = 39 + ' + 'txtCBAM_jeZertBest_Paket_1 + ' + Me.txtCBAM_jeZertBest_Paket_1._DateTimeOnly = False + Me.txtCBAM_jeZertBest_Paket_1._numbersOnly = True + Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_jeZertBest_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_jeZertBest_Paket_1._Prozent = False + Me.txtCBAM_jeZertBest_Paket_1._ShortDateNew = False + Me.txtCBAM_jeZertBest_Paket_1._ShortDateOnly = False + Me.txtCBAM_jeZertBest_Paket_1._TimeOnly = False + Me.txtCBAM_jeZertBest_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_jeZertBest_Paket_1._value = "" + Me.txtCBAM_jeZertBest_Paket_1._Waehrung = False + Me.txtCBAM_jeZertBest_Paket_1._WaehrungZeichen = True + Me.txtCBAM_jeZertBest_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_jeZertBest_Paket_1.Location = New System.Drawing.Point(544, 142) + Me.txtCBAM_jeZertBest_Paket_1.MaxLineLength = -1 + Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_jeZertBest_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_jeZertBest_Paket_1.Name = "txtCBAM_jeZertBest_Paket_1" + Me.txtCBAM_jeZertBest_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_jeZertBest_Paket_1.TabIndex = 42 + ' + 'txtVertragsbeginn + ' + Me.txtVertragsbeginn._DateTimeOnly = False + Me.txtVertragsbeginn._numbersOnly = False + Me.txtVertragsbeginn._numbersOnlyKommastellen = "" + Me.txtVertragsbeginn._numbersOnlyTrennzeichen = True + Me.txtVertragsbeginn._Prozent = False + Me.txtVertragsbeginn._ShortDateNew = True + Me.txtVertragsbeginn._ShortDateOnly = False + Me.txtVertragsbeginn._TimeOnly = False + Me.txtVertragsbeginn._TimeOnly_Seconds = False + Me.txtVertragsbeginn._value = "" + Me.txtVertragsbeginn._Waehrung = False + Me.txtVertragsbeginn._WaehrungZeichen = True + Me.txtVertragsbeginn.ForeColor = System.Drawing.Color.Black + Me.txtVertragsbeginn.Location = New System.Drawing.Point(257, 98) + Me.txtVertragsbeginn.MaxLength = 10 + Me.txtVertragsbeginn.MaxLineLength = -1 + Me.txtVertragsbeginn.MaxLines_Warning = "" + Me.txtVertragsbeginn.MaxLines_Warning_Label = Nothing + Me.txtVertragsbeginn.Name = "txtVertragsbeginn" + Me.txtVertragsbeginn.Size = New System.Drawing.Size(119, 20) + Me.txtVertragsbeginn.TabIndex = 49 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(170, 101) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(81, 13) + Me.Label10.TabIndex = 48 + Me.Label10.Text = "Vertragsbeginn:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(460, 145) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(80, 13) + Me.Label2.TabIndex = 50 + Me.Label2.Text = "Zert.bestellung:" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(460, 165) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(68, 13) + Me.Label11.TabIndex = 51 + Me.Label11.Text = "Aufschlag %:" + ' + 'txtCBAM_ZertAufschlag_Paket_1 + ' + Me.txtCBAM_ZertAufschlag_Paket_1._DateTimeOnly = False + Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnly = True + Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyKommastellen = "" + Me.txtCBAM_ZertAufschlag_Paket_1._numbersOnlyTrennzeichen = True + Me.txtCBAM_ZertAufschlag_Paket_1._Prozent = False + Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateNew = False + Me.txtCBAM_ZertAufschlag_Paket_1._ShortDateOnly = False + Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly = False + Me.txtCBAM_ZertAufschlag_Paket_1._TimeOnly_Seconds = False + Me.txtCBAM_ZertAufschlag_Paket_1._value = "" + Me.txtCBAM_ZertAufschlag_Paket_1._Waehrung = False + Me.txtCBAM_ZertAufschlag_Paket_1._WaehrungZeichen = True + Me.txtCBAM_ZertAufschlag_Paket_1.ForeColor = System.Drawing.Color.Black + Me.txtCBAM_ZertAufschlag_Paket_1.Location = New System.Drawing.Point(544, 162) + Me.txtCBAM_ZertAufschlag_Paket_1.MaxLineLength = -1 + Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning = "" + Me.txtCBAM_ZertAufschlag_Paket_1.MaxLines_Warning_Label = Nothing + Me.txtCBAM_ZertAufschlag_Paket_1.Name = "txtCBAM_ZertAufschlag_Paket_1" + Me.txtCBAM_ZertAufschlag_Paket_1.Size = New System.Drawing.Size(200, 20) + Me.txtCBAM_ZertAufschlag_Paket_1.TabIndex = 52 + ' + 'usrcntlCBAM_indirekt + ' + 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.txtCBAM_ZertAufschlag_Paket_1) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.txtVertragsbeginn) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.txtCBAM_jeZertBest_Paket_1) + Me.Controls.Add(Me.txtCBAM_jeWeitere_Paket_1) + Me.Controls.Add(Me.txtCBAM_MonatPausch_Paket_1) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.cboSprache) + Me.Controls.Add(Me.btnDown) + Me.Controls.Add(Me.btnUp) + Me.Controls.Add(Me.btnDel) + Me.Controls.Add(Me.pic) + Me.Controls.Add(Me.lblLagervertrag) + Me.Controls.Add(Me.txtAnsprechpartner) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.txtCBAM_Onboarding_Paket_1) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtFirma) + Me.Controls.Add(Me.lbl) + Me.Name = "usrcntlCBAM_indirekt" + Me.Size = New System.Drawing.Size(1000, 221) + 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 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 lblLagervertrag 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 cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label5 As Label + Friend WithEvents txtCBAM_Onboarding_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label6 As Label + Friend WithEvents txtCBAM_MonatPausch_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_jeWeitere_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtCBAM_jeZertBest_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtVertragsbeginn As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label10 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label11 As Label + Friend WithEvents txtCBAM_ZertAufschlag_Paket_1 As VERAG_PROG_ALLGEMEIN.MyTextBox +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.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/usrcntlCBAM_indirekt.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.vb new file mode 100644 index 00000000..998425fa --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.vb @@ -0,0 +1,101 @@ +Public Class usrcntlCBAM_indirekt + 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) + + txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") + txtAdresse1.Text = If(ADRESSE.Straße, "") + txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim + '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() + cboSprache.Items.Clear() + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE")) + cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN")) + + + txtCBAM_Onboarding_Paket_1._value = 200 + txtCBAM_MonatPausch_Paket_1._value = 175 + txtCBAM_jeWeitere_Paket_1._value = 10 + + txtCBAM_jeZertBest_Paket_1._value = 50 + txtCBAM_ZertAufschlag_Paket_1._value = 10 + + + txtVertragsbeginn.Text = "01.01." & Now.Year + If Now.Month > 11 Then + txtVertragsbeginn.Text = "01.01." & Now.AddYears(1).Year + End If + + 'txtDauer.Text = Now.ToShortDateString & " - " & Now.AddYears(1).ToShortDateString + 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 + + +End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb index c21fc7d9..7c382b9b 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.Designer.vb @@ -25,15 +25,16 @@ Partial Class frmFormulare Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFormulare)) Me.pnl = New System.Windows.Forms.Panel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.tabAllgemein = New System.Windows.Forms.TabPage() + Me.tabCBAM = New System.Windows.Forms.TabPage() Me.Label4 = New System.Windows.Forms.Label() Me.cboVorlage = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label3 = New System.Windows.Forms.Label() Me.Button3 = New System.Windows.Forms.Button() Me.MyListBox2 = New VERAG_PROG_ALLGEMEIN.MyListBox() - Me.Label2 = New System.Windows.Forms.Label() Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen = New System.Windows.Forms.CheckBox() Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() - Me.Label1 = New System.Windows.Forms.Label() Me.lblFormularManager = New System.Windows.Forms.Label() Me.pnlBody = New System.Windows.Forms.Panel() Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) @@ -51,6 +52,7 @@ Partial Class frmFormulare Me.Button2 = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() + Me.TabControl1.SuspendLayout() Me.pnlBody.SuspendLayout() Me.pnlBottom.SuspendLayout() Me.SuspendLayout() @@ -58,22 +60,52 @@ Partial Class frmFormulare 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.TabControl1) Me.pnl.Controls.Add(Me.Label4) Me.pnl.Controls.Add(Me.cboVorlage) Me.pnl.Controls.Add(Me.Label3) Me.pnl.Controls.Add(Me.Button3) Me.pnl.Controls.Add(Me.MyListBox2) - Me.pnl.Controls.Add(Me.Label2) Me.pnl.Controls.Add(Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen) Me.pnl.Controls.Add(Me.MyListBox1) - Me.pnl.Controls.Add(Me.Label1) Me.pnl.Controls.Add(Me.lblFormularManager) 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(1326, 125) + Me.pnl.Size = New System.Drawing.Size(1326, 166) Me.pnl.TabIndex = 0 ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.tabAllgemein) + Me.TabControl1.Controls.Add(Me.tabCBAM) + Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.TabControl1.Location = New System.Drawing.Point(343, 3) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(896, 25) + Me.TabControl1.TabIndex = 10 + ' + 'tabAllgemein + ' + Me.tabAllgemein.Location = New System.Drawing.Point(4, 29) + Me.tabAllgemein.Name = "tabAllgemein" + Me.tabAllgemein.Padding = New System.Windows.Forms.Padding(3) + Me.tabAllgemein.Size = New System.Drawing.Size(888, 0) + Me.tabAllgemein.TabIndex = 0 + Me.tabAllgemein.Text = "Allgemein" + Me.tabAllgemein.UseVisualStyleBackColor = True + ' + 'tabCBAM + ' + Me.tabCBAM.Location = New System.Drawing.Point(4, 29) + Me.tabCBAM.Name = "tabCBAM" + Me.tabCBAM.Padding = New System.Windows.Forms.Padding(3) + Me.tabCBAM.Size = New System.Drawing.Size(888, 0) + Me.tabCBAM.TabIndex = 1 + Me.tabCBAM.Text = "CBAM" + Me.tabCBAM.UseVisualStyleBackColor = True + ' 'Label4 ' Me.Label4.AutoSize = True @@ -100,7 +132,7 @@ Partial Class frmFormulare ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(1239, 10) + Me.Label3.Location = New System.Drawing.Point(1243, 34) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(86, 13) Me.Label3.TabIndex = 3 @@ -113,7 +145,7 @@ Partial Class frmFormulare Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.FlatAppearance.BorderSize = 0 Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Location = New System.Drawing.Point(1243, 37) + Me.Button3.Location = New System.Drawing.Point(1247, 52) Me.Button3.Margin = New System.Windows.Forms.Padding(5) Me.Button3.Name = "Button3" Me.Button3.Padding = New System.Windows.Forms.Padding(5) @@ -127,27 +159,17 @@ Partial Class frmFormulare Me.MyListBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MyListBox2.FormattingEnabled = True Me.MyListBox2.ItemHeight = 16 - Me.MyListBox2.Location = New System.Drawing.Point(810, 23) + Me.MyListBox2.Location = New System.Drawing.Point(810, 34) Me.MyListBox2.Name = "MyListBox2" - Me.MyListBox2.Size = New System.Drawing.Size(429, 100) + Me.MyListBox2.Size = New System.Drawing.Size(429, 132) Me.MyListBox2.TabIndex = 7 ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(807, 7) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(151, 13) - Me.Label2.TabIndex = 2 - Me.Label2.Text = "Weitere Formulare hinzufügen:" - ' 'cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen ' Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.AutoSize = True Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked = True Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 103) + Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Location = New System.Drawing.Point(15, 143) Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Name = "cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen" Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Size = New System.Drawing.Size(322, 17) Me.cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.TabIndex = 9 @@ -160,21 +182,11 @@ Partial Class frmFormulare Me.MyListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MyListBox1.FormattingEnabled = True Me.MyListBox1.ItemHeight = 16 - Me.MyListBox1.Location = New System.Drawing.Point(343, 23) + Me.MyListBox1.Location = New System.Drawing.Point(343, 34) Me.MyListBox1.Name = "MyListBox1" - Me.MyListBox1.Size = New System.Drawing.Size(461, 100) + Me.MyListBox1.Size = New System.Drawing.Size(461, 132) Me.MyListBox1.TabIndex = 6 ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(340, 7) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(111, 13) - Me.Label1.TabIndex = 1 - Me.Label1.Text = "Vollmacht hinzufügen:" - ' 'lblFormularManager ' Me.lblFormularManager.AutoSize = True @@ -192,9 +204,9 @@ Partial Class frmFormulare Me.pnlBody.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlBody.Controls.Add(Me.MyFlowLayoutPanel1) Me.pnlBody.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnlBody.Location = New System.Drawing.Point(0, 125) + Me.pnlBody.Location = New System.Drawing.Point(0, 166) Me.pnlBody.Name = "pnlBody" - Me.pnlBody.Size = New System.Drawing.Size(1326, 611) + Me.pnlBody.Size = New System.Drawing.Size(1326, 570) Me.pnlBody.TabIndex = 1 ' 'MyFlowLayoutPanel1 @@ -207,7 +219,7 @@ Partial Class frmFormulare Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) Me.MyFlowLayoutPanel1.MinimumSize = New System.Drawing.Size(1000, 100) Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" - Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 609) + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(1324, 568) Me.MyFlowLayoutPanel1.TabIndex = 0 ' 'pnlBottom @@ -406,6 +418,7 @@ Partial Class frmFormulare Me.Text = "Formulare" Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + Me.TabControl1.ResumeLayout(False) Me.pnlBody.ResumeLayout(False) Me.pnlBody.PerformLayout() Me.pnlBottom.ResumeLayout(False) @@ -419,13 +432,11 @@ Partial Class frmFormulare Friend WithEvents lblFormularManager As System.Windows.Forms.Label Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox - Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen As System.Windows.Forms.CheckBox Friend WithEvents btnPrint As System.Windows.Forms.Button Friend WithEvents btn As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents MyListBox2 As VERAG_PROG_ALLGEMEIN.MyListBox - Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Label4 As System.Windows.Forms.Label @@ -439,4 +450,7 @@ Partial Class frmFormulare Friend WithEvents Label8 As Label Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label7 As Label + Friend WithEvents TabControl1 As TabControl + Friend WithEvents tabAllgemein As TabPage + Friend WithEvents tabCBAM As TabPage End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 526e93ed..50ea3517 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -11,6 +11,8 @@ Imports VERAG_PROG_ALLGEMEIN Imports com.sun.tools.internal.ws.wsdl.document.mime Imports com.sun.xml.internal.ws.message.stream Imports com.sun.org.apache.xerces.internal.xs +Imports DocumentFormat.OpenXml.Drawing.Diagrams +Imports DAKOSY_Worker.VERAG_KundenStamm_Export Public Class frmFormulare Dim isSingleForm = False @@ -173,6 +175,10 @@ Public Class frmFormulare Return thisIp.ToString End Function + Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged + initFormulareList() + End Sub + Private Sub frmFormulare_Load(sender As Object, e As EventArgs) Handles Me.Load 'Dim IPs As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0) @@ -188,138 +194,8 @@ Public Class frmFormulare cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and txt_dynMailvorlage = 0 and [txt_FIRMA]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", False, "FMZOLL", True) - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal)) - - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag)) - - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot)) - - ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok)) - ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer)) - - - - - cboVorlage.Items.Clear() - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX)) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX)) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX)) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX)) - - Case "ATILLA" - - Case "AMBAR" - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("(indirekt) DE VM", FormularManagerArten.DE_Vollmacht_indirekt)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag)) - - - cboVorlage.Items.Clear() - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE)) - - Case Else - If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL - 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)) - - Else - - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt)) - - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT)) - MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok)) - - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle)) - MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot)) - ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer)) - - - - - cboVorlage.Items.Clear() - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE)) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal)) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT)) - cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal)) - End If - End Select - - - - 'MyListBox1.fillWithMyListItem() - - + initFormulareList() initDrucker(cboPrinter) @@ -328,6 +204,160 @@ Public Class frmFormulare End If End Sub + Sub initFormulareList() + MyListBox1.Items.Clear() + MyListBox2.Items.Clear() + + Select Case TabControl1.SelectedTab.Name + Case "tabCBAM" + MyListBox1.Visible = True + MyListBox2.Visible = False + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + Case "AMBAR" + Case "ATILLA" + Case "VERAG" + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt)) + Case Else + End Select + Case Else + + MyListBox1.Visible = True + MyListBox2.Visible = True + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal)) + + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag)) + + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot)) + + ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok)) + ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer)) + + + + + cboVorlage.Items.Clear() + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX)) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX)) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX)) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX)) + + Case "ATILLA" + + Case "AMBAR" + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("(indirekt) DE VM", FormularManagerArten.DE_Vollmacht_indirekt)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Zollbeschau Protokoll", FormularManagerArten.Zollbeschau_Protokoll)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lagervertrag", FormularManagerArten.Lagervertrag)) + + + cboVorlage.Items.Clear() + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE)) + + Case Else + If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL + 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)) + + Else + + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt)) + + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT)) + MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", FormularManagerArten.EORI_Antrag)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok)) + + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle)) + MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot)) + ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer)) + + + + + cboVorlage.Items.Clear() + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE)) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal)) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT)) + cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal)) + End If + End Select + + End Select + + End Sub + Sub initFlowLPHeight() Dim h = 0 For Each c As Control In MyFlowLayoutPanel1.Controls @@ -881,6 +911,43 @@ Public Class frmFormulare MyFlowLayoutPanel1.Controls.Add(c) End If + Case FormularManagerArten.CBAM + Dim c As New usrcntlCBAM_direkt + 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.CBAM_Zertifikate + Dim c As New usrcntlCBAM_Zertifikate + 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.CBAM_indirekt + Dim c As New usrcntlCBAM_indirekt + 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 Else '"VUB_AG", "VUB_CS" Dim displayName = "" @@ -1516,6 +1583,15 @@ Public Class FormularManagerNEU Case GetType(usrcntLagervertrag).ToString retStr = FormularManagerNEU.LAGERVERTRAG(c) + Case GetType(usrcntlCBAM_direkt).ToString + retStr = FormularManagerNEU.CBAM(c) + + Case GetType(usrcntlCBAM_Zertifikate).ToString + retStr = FormularManagerNEU.CBAM_Zertifikate(c) + + Case GetType(usrcntlCBAM_indirekt).ToString + retStr = FormularManagerNEU.CBAM_indirekt(c) + End Select If retStr <> "" Then @@ -1582,48 +1658,18 @@ Public Class FormularManagerNEU Shared Function LAGERVERTRAG(usrCntl As usrcntLagervertrag) As String - - 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) - 'Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager - - '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, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, 74, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) - - 'Dim top = 0 - 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then - ' top = 25 - 'End If - - 'Select Case usrCntl.cboSprache._value - ' Case "EN" - ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite) - ' Case Else - ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "LAGERVERTRAG", listTowrite) - 'End Select - 'Return "" - - - 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager Dim Top = -10 Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, Top + 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, Top + 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, Top + 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, Top + 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 120, Top + 70, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtDauer.Text, 40, Top + 78, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) @@ -1637,6 +1683,121 @@ Public Class FormularManagerNEU Return "" + End Function + + + 'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Service direkt", FormularManagerArten.CBAM)) + 'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM Zertifikate", FormularManagerArten.CBAM_Zertifikate)) + 'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM indirekt + Zertifikate", FormularManagerArten.CBAM_indirekt)) + + Shared Function CBAM(usrCntl As usrcntlCBAM_direkt) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim Top = 0 + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + Select Case usrCntl.cboPaketOption._value + Case "CBAM_Basic" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 42.3, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2)) + Case "CBAM_Standard" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 114, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2)) + Case "CBAM_Premium" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 22.5, Top + 177.5, 90, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT, 2)) + End Select + + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 54, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 62, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 95, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_2._value, True), 168, Top + 125.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_2._value, True), 168, Top + 133, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_2._value, True), 168, Top + 159, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_3._value, True), 168, Top + 189, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_3._value, True), 168, Top + 197, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + 'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_3._value,True), 175, Top + 96, 18, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + + + + ' Dim firma=getUO2() + Select Case usrCntl.cboSprache._value + Case "EN" + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite) + Case Else + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM", listTowrite) + End Select + Return "" + + + End Function + Shared Function CBAM_Zertifikate(usrCntl As usrcntlCBAM_Zertifikate) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim Top = 0 + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 58.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 61.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 64.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 44, Top + 45, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 54, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 59, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + + + + + + Select Case usrCntl.cboSprache._value + Case "EN" + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite) + Case Else + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_Zertifikate", listTowrite) + End Select + Return "" + + + End Function + Shared Function CBAM_indirekt(usrCntl As usrcntlCBAM_indirekt) As String + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim Top = 0 + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + + ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 140, Top + 30, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 17.6, Top + 60.2, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 17.6, Top + 63.6, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 17.6, Top + 66.8, 150, 6, "", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVertragsbeginn.Text, 45, Top + 47.4, 90, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_Onboarding_Paket_1._value, True), 168, Top + 49.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_MonatPausch_Paket_1._value, True), 168, Top + 58.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeWeitere_Paket_1._value, True), 168, Top + 99, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatProz(usrCntl.txtCBAM_ZertAufschlag_Paket_1._value, 1), 186.5, Top + 110, 12, 6, "bold", 8, , iTextSharp.text.Element.ALIGN_LEFT, 2)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(formatAmountEUR(usrCntl.txtCBAM_jeZertBest_Paket_1._value, True), 168, Top + 114.5, 25, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT, 2)) + + + + ' Dim firma=getUO2() + Select Case usrCntl.cboSprache._value + Case "EN" + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt_EN", listTowrite) + Case Else + Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG", "", "CBAM_indirekt", listTowrite) + End Select + Return "" + + + End Function Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String @@ -1758,7 +1919,7 @@ Public Class FormularManagerNEU Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text)) Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text)) - Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", ""))) + Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", ""))) 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)) @@ -1859,7 +2020,7 @@ Public Class FormularManagerNEU Case "private_no" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "Off", "On"))) Case "private_yes" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "On", "Off"))) - 'soll nur bei aktv. Flag "private Firma" angedruckt werden! + 'soll nur bei aktv. Flag "Private Firma" angedruckt werden! Case "ceo_place_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Ort.Text, ""))) Case "ceo_street_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Adresse.Text, ""))) Case "ceo_country_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Land._value, ""))) @@ -1872,7 +2033,7 @@ Public Class FormularManagerNEU Case "ceo_birthplace_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Geburtsort.Text, ""))) Case "ceo_birthcountry_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Geburtsland.Text, ""))) - 'soll nur bei deaktv. Flag "private Firma" angedruckt werden! + 'soll nur bei deaktv. Flag "Private Firma" angedruckt werden! Case "name_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, ""))) Case "strasse_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtAdresse1.Text, ""))) Case "company_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, ""))) @@ -1888,13 +2049,13 @@ Public Class FormularManagerNEU Case "ceo_birthplace" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geburtsort.Text)) Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text)) Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text)) - Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, ""))) + Case "Function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", functionCEO, ""))) Case "ceo_surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text)) Case "ceo_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_vorname.Text)) Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, ""))) Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txtOrt.Text <> "" AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text, ""))) - Case "date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, ""))) + Case "Date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, ""))) Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value)) Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text)) @@ -1909,10 +2070,10 @@ Public Class FormularManagerNEU Case "c_fax" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Telefax)) Case "c_mailcontact" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtEmailzurueck.Text)) Case "c_bank" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bankverbindung1)) - Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", ""))) - Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC:", ""))) - Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(13, 7))) - Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(3, 5))) + Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", ""))) + Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC", ""))) + Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(13, 7))) + Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN", "").Replace(" ", "").ToString.Trim().Substring(3, 5))) Case "date_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(0, 2), ""))) Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), ""))) @@ -2056,11 +2217,11 @@ Public Class FormularManagerNEU Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.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_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "") + Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "") + Case "c_iban1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN", "") - Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "") - Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "") + Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "") + Case "c_bic1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC", "") Case "c_place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "") Case "c_date" : odoc.FormFields(fieldName).Range.Text = IIf(IsDate(usrCntl.datDatum.Text) AndAlso usrCntl.cbxPrintDateAndCity.Checked, usrCntl.datDatum.Text, "") @@ -2142,7 +2303,7 @@ Public Class FormularManagerNEU Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2) Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False) - Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 and bnk_hauptkonto = 0 and bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL") + Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 And bnk_hauptkonto = 0 And bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL") Dim docBez As String = "" docBez = "VOLLMACHT_" & usrCntl.cboLand._value @@ -6420,6 +6581,26 @@ Public Class FormularManagerNEU Case Else : Return "" End Select End Function + Public Shared Function formatAmountEUR(value As Object, addEUR As Boolean) As String + If value Is Nothing Then Return "" + If value = "" Then Return "" + If IsNumeric(value) Then + Return If(addEUR, "EUR ", "") & CDbl(value).ToString("N2") + Else + Return value.ToString + End If + Return "" + End Function + Public Shared Function formatProz(value As Object, Optional kommast As Integer = 2) As String + If value Is Nothing Then Return "" + If value = "" Then Return "" + If IsNumeric(value) Then + Return CDbl(value).ToString("N" & kommast) & "%" + Else + Return value.ToString + End If + Return "" + End Function Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean Try @@ -6916,6 +7097,11 @@ Public Class FormularManagerArten Shared Property Qualitaetskontrolle = "Qualitätskontrolle" Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014" Shared Property Lagervertrag = "Lagervertrag" + Shared Property CBAM = "CBAM" + Shared Property CBAM_Zertifikate = "CBAM_Zertifikate" + Shared Property CBAM_indirekt = "CBAM_indirekt" + + End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 9033f632..fd139fa3 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -775,6 +775,24 @@ Component + + usrcntlCBAM_indirekt.vb + + + UserControl + + + usrcntlCBAM_Zertifikate.vb + + + UserControl + + + usrcntlCBAM.vb + + + UserControl + usrcntlEORI_Antrag.vb @@ -3490,6 +3508,15 @@ subRptLaufzettelZollDE_Vorpapier.vb + + usrcntlCBAM_indirekt.vb + + + usrcntlCBAM_Zertifikate.vb + + + usrcntlCBAM.vb + usrcntlEORI_Antrag.vb diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 18029d51..f5ef2fb4 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1032,7 +1032,6 @@ Public Class cFormularManager Else path_src = vorhandenesLokalesPDF_Path End If - Dim fi As New System.IO.DirectoryInfo(path_src) Dim destPath = "" destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False)