CBAM
This commit is contained in:
670
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.Designer.vb
generated
Normal file
670
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.Designer.vb
generated
Normal file
@@ -0,0 +1,670 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrcntlCBAM_direkt
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
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.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
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
|
||||
120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.resx
Normal file
120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
111
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb
Normal file
111
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM.vb
Normal file
@@ -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
|
||||
409
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.Designer.vb
generated
Normal file
409
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_Zertifikate.Designer.vb
generated
Normal file
@@ -0,0 +1,409 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrcntlCBAM_Zertifikate
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
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.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
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
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -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
|
||||
536
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.Designer.vb
generated
Normal file
536
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCBAM_indirekt.Designer.vb
generated
Normal file
@@ -0,0 +1,536 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrcntlCBAM_indirekt
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
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.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
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
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -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
|
||||
88
SDL/Formulare/KDFormulare/frmFormulare.Designer.vb
generated
88
SDL/Formulare/KDFormulare/frmFormulare.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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,6 +194,40 @@ 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)
|
||||
|
||||
|
||||
initFormulareList()
|
||||
|
||||
initDrucker(cboPrinter)
|
||||
|
||||
If isSingleForm Then
|
||||
pnl.Enabled = False
|
||||
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"
|
||||
|
||||
@@ -314,18 +354,8 @@ Public Class frmFormulare
|
||||
End If
|
||||
End Select
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
'MyListBox1.fillWithMyListItem()
|
||||
|
||||
|
||||
|
||||
|
||||
initDrucker(cboPrinter)
|
||||
|
||||
If isSingleForm Then
|
||||
pnl.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub initFlowLPHeight()
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -775,6 +775,24 @@
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.Designer.vb">
|
||||
<DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.Designer.vb">
|
||||
<DependentUpon>usrcntlCBAM_Zertifikate.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.Designer.vb">
|
||||
<DependentUpon>usrcntlCBAM.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.Designer.vb">
|
||||
<DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -3490,6 +3508,15 @@
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\subRptLaufzettelZollDE_Vorpapier.resx">
|
||||
<DependentUpon>subRptLaufzettelZollDE_Vorpapier.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_indirekt.resx">
|
||||
<DependentUpon>usrcntlCBAM_indirekt.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM_Zertifikate.resx">
|
||||
<DependentUpon>usrcntlCBAM_Zertifikate.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlCBAM.resx">
|
||||
<DependentUpon>usrcntlCBAM.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEORI_Antrag.resx">
|
||||
<DependentUpon>usrcntlEORI_Antrag.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user