Partial Class frmDigicust Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDigicust)) Me.Button1 = New System.Windows.Forms.Button() Me.pnlHead = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() Me.btnCreateToken = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.rtfToken = New System.Windows.Forms.RichTextBox() Me.lblInfo = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.usrCntl_Carrier = New SDL.usrCntlAdresse() Me.Label4 = New System.Windows.Forms.Label() Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Label3 = New System.Windows.Forms.Label() Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.txtDyMandant = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtDyNiederlassung = New System.Windows.Forms.Label() Me.lblBezugsnummer = New System.Windows.Forms.Label() Me.pnlHead.SuspendLayout() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button1.BackColor = System.Drawing.Color.White Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.Button1.Location = New System.Drawing.Point(154, 716) Me.Button1.Margin = New System.Windows.Forms.Padding(2) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(159, 42) Me.Button1.TabIndex = 26 Me.Button1.Text = "An DC senden -->" Me.Button1.UseVisualStyleBackColor = False ' 'pnlHead ' Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.pnlHead.BackColor = System.Drawing.Color.White Me.pnlHead.Controls.Add(Me.Button2) Me.pnlHead.Controls.Add(Me.btnCreateToken) Me.pnlHead.Controls.Add(Me.Label2) Me.pnlHead.Controls.Add(Me.rtfToken) Me.pnlHead.Controls.Add(Me.lblInfo) Me.pnlHead.Controls.Add(Me.Label6) Me.pnlHead.Controls.Add(Me.Label8) Me.pnlHead.Controls.Add(Me.cboStammreferenz) Me.pnlHead.Controls.Add(Me.txtLKWId) Me.pnlHead.Controls.Add(Me.usrCntl_Carrier) Me.pnlHead.Controls.Add(Me.Label4) Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle) Me.pnlHead.Controls.Add(Me.Label3) Me.pnlHead.Controls.Add(Me.dgvAnhaenge) Me.pnlHead.Controls.Add(Me.txtDyMandant) Me.pnlHead.Controls.Add(Me.Label1) Me.pnlHead.Controls.Add(Me.txtDyNiederlassung) Me.pnlHead.Controls.Add(Me.lblBezugsnummer) Me.pnlHead.Location = New System.Drawing.Point(3, 2) Me.pnlHead.Name = "pnlHead" Me.pnlHead.Size = New System.Drawing.Size(478, 706) Me.pnlHead.TabIndex = 112 ' 'Button2 ' Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Location = New System.Drawing.Point(70, 105) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(115, 25) Me.Button2.TabIndex = 152 Me.Button2.Text = "Clear Token" Me.Button2.UseVisualStyleBackColor = True ' 'btnCreateToken ' Me.btnCreateToken.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnCreateToken.Location = New System.Drawing.Point(274, 105) Me.btnCreateToken.Name = "btnCreateToken" Me.btnCreateToken.Size = New System.Drawing.Size(115, 25) Me.btnCreateToken.TabIndex = 151 Me.btnCreateToken.Text = "Create Token" Me.btnCreateToken.UseVisualStyleBackColor = True ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label2.Location = New System.Drawing.Point(68, 41) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(98, 13) Me.Label2.TabIndex = 150 Me.Label2.Text = "Token (valid 24hrs)" Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'rtfToken ' Me.rtfToken.Location = New System.Drawing.Point(70, 57) Me.rtfToken.Name = "rtfToken" Me.rtfToken.Size = New System.Drawing.Size(319, 42) Me.rtfToken.TabIndex = 149 Me.rtfToken.Text = "" ' 'lblInfo ' Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblInfo.ForeColor = System.Drawing.Color.Red Me.lblInfo.Location = New System.Drawing.Point(10, 27) Me.lblInfo.Name = "lblInfo" Me.lblInfo.Size = New System.Drawing.Size(460, 27) Me.lblInfo.TabIndex = 148 ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(10, 373) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(135, 13) Me.Label6.TabIndex = 147 Me.Label6.Text = "Dokumente:" ' 'Label8 ' Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(283, 156) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(57, 13) Me.Label8.TabIndex = 146 Me.Label8.Text = "Stammref.:" Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'cboStammreferenz ' Me.cboStammreferenz._allowedValuesFreiText = Nothing Me.cboStammreferenz._allowFreiText = False Me.cboStammreferenz._value = "" Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.cboStammreferenz.FormattingEnabled = True Me.cboStammreferenz.Location = New System.Drawing.Point(341, 153) Me.cboStammreferenz.Name = "cboStammreferenz" Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21) Me.cboStammreferenz.TabIndex = 145 ' 'txtLKWId ' Me.txtLKWId._DateTimeOnly = False Me.txtLKWId._numbersOnly = False Me.txtLKWId._numbersOnlyKommastellen = "" Me.txtLKWId._numbersOnlyTrennzeichen = True Me.txtLKWId._Prozent = False Me.txtLKWId._ShortDateNew = False Me.txtLKWId._ShortDateOnly = False Me.txtLKWId._TimeOnly = False Me.txtLKWId._TimeOnly_Seconds = False Me.txtLKWId._value = "" Me.txtLKWId._Waehrung = False Me.txtLKWId._WaehrungZeichen = True Me.txtLKWId.ForeColor = System.Drawing.Color.Black Me.txtLKWId.Location = New System.Drawing.Point(151, 154) Me.txtLKWId.MaxLineLength = -1 Me.txtLKWId.MaxLines_Warning = "" Me.txtLKWId.MaxLines_Warning_Label = Nothing Me.txtLKWId.Name = "txtLKWId" Me.txtLKWId.Size = New System.Drawing.Size(100, 20) Me.txtLKWId.TabIndex = 144 ' 'usrCntl_Carrier ' Me.usrCntl_Carrier._Titel = "Frächter:" Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White Me.usrCntl_Carrier.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.usrCntl_Carrier.Location = New System.Drawing.Point(13, 217) Me.usrCntl_Carrier.Name = "usrCntl_Carrier" Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132) Me.usrCntl_Carrier.TabIndex = 143 ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(10, 180) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(121, 17) Me.Label4.TabIndex = 114 Me.Label4.Text = "Bestimmungs-Zollstelle:" ' 'sbBestimmungsZollstelle ' Me.sbBestimmungsZollstelle._allowFreitext = False Me.sbBestimmungsZollstelle._AllowSetValue = False Me.sbBestimmungsZollstelle._allowSpaceAsSplitter = False Me.sbBestimmungsZollstelle._autoSizeGross = False Me.sbBestimmungsZollstelle._hideIfListEmpty = True Me.sbBestimmungsZollstelle._value = "" Me.sbBestimmungsZollstelle.conn_art = "FMZOLL" Me.sbBestimmungsZollstelle.dgvpos = "LEFT" Me.sbBestimmungsZollstelle.DISPLAY_PARAM = Nothing Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing Me.sbBestimmungsZollstelle.key_visible = False Me.sbBestimmungsZollstelle.KEYPARAM = Nothing Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 180) Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle" Me.sbBestimmungsZollstelle.searchActive = True Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20) Me.sbBestimmungsZollstelle.SQL_ORDER_BY = Nothing Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing Me.sbBestimmungsZollstelle.SQL_WhereParamList = Nothing Me.sbBestimmungsZollstelle.TabIndex = 115 Me.sbBestimmungsZollstelle.usrcntl = Nothing ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(10, 157) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(103, 17) Me.Label3.TabIndex = 113 Me.Label3.Text = "LKW-KZ:" ' 'dgvAnhaenge ' Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvAnhaenge.AllowUserToAddRows = False Me.dgvAnhaenge.AllowUserToDeleteRows = False Me.dgvAnhaenge.AllowUserToResizeColumns = False Me.dgvAnhaenge.AllowUserToResizeRows = False Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName}) Me.dgvAnhaenge.Location = New System.Drawing.Point(13, 401) Me.dgvAnhaenge.Name = "dgvAnhaenge" Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 299) Me.dgvAnhaenge.TabIndex = 112 ' 'columnName ' Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill Me.columnName.HeaderText = "Name" Me.columnName.Name = "columnName" Me.columnName.ReadOnly = True ' 'txtDyMandant ' Me.txtDyMandant.BackColor = System.Drawing.Color.White Me.txtDyMandant.Location = New System.Drawing.Point(2, 2) Me.txtDyMandant.Name = "txtDyMandant" Me.txtDyMandant.Size = New System.Drawing.Size(44, 13) Me.txtDyMandant.TabIndex = 109 Me.txtDyMandant.Text = "VERG" Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'Label1 ' Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label1.AutoSize = True Me.Label1.BackColor = System.Drawing.Color.White Me.Label1.Location = New System.Drawing.Point(190, 2) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(82, 13) Me.Label1.TabIndex = 106 Me.Label1.Text = "Bezugsnummer:" ' 'txtDyNiederlassung ' Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3) Me.txtDyNiederlassung.Name = "txtDyNiederlassung" Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12) Me.txtDyNiederlassung.TabIndex = 108 Me.txtDyNiederlassung.Text = "SUB" ' 'lblBezugsnummer ' Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblBezugsnummer.BackColor = System.Drawing.Color.White Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblBezugsnummer.Location = New System.Drawing.Point(278, 2) Me.lblBezugsnummer.Name = "lblBezugsnummer" Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) Me.lblBezugsnummer.TabIndex = 107 Me.lblBezugsnummer.Text = "4800/000000/17 AAA" Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'frmDigicust ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.ClientSize = New System.Drawing.Size(484, 769) Me.Controls.Add(Me.pnlHead) Me.Controls.Add(Me.Button1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmDigicust" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Digicust" Me.pnlHead.ResumeLayout(False) Me.pnlHead.PerformLayout() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents Button1 As Button Friend WithEvents pnlHead As Panel Friend WithEvents lblInfo As Label Friend WithEvents Label6 As Label Friend WithEvents Label8 As Label Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse Friend WithEvents Label4 As Label Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents Label3 As Label Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents columnName As DataGridViewTextBoxColumn Friend WithEvents txtDyMandant As Label Friend WithEvents Label1 As Label Friend WithEvents txtDyNiederlassung As Label Friend WithEvents lblBezugsnummer As Label Friend WithEvents Button2 As Button Friend WithEvents btnCreateToken As Button Friend WithEvents Label2 As Label Friend WithEvents rtfToken As RichTextBox End Class