edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Digicust

Browse Source
This commit is contained in:
d.breimaier
2023-09-12 16:53:49 +02:00
parent 629be8e387
commit 413bac9c94
3 changed files with 271 additions and 232 deletions
Download Patch File Download Diff File Expand all files Collapse all files

385
Aviso/frmDigicust.Designer.vb generated
View File

@@ -26,25 +26,26 @@ Partial Class frmDigicust
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDigicust)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDigicust))
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.pnlHead = New System.Windows.Forms.Panel() 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.lblInfo = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.Label8 = 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.Label4 = New System.Windows.Forms.Label()
Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label3 = New System.Windows.Forms.Label() 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.txtDyMandant = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtDyNiederlassung = New System.Windows.Forms.Label() Me.txtDyNiederlassung = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label() Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.lblVorpapier = New System.Windows.Forms.Label()
Me.UsrCntl_Consignee = New SDL.usrCntlAdresse()
Me.txtVorpapier = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.usrCntl_consignor = New SDL.usrCntlAdresse()
Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtLWKLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtVorpapierT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pnlHead.SuspendLayout() Me.pnlHead.SuspendLayout()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
@@ -57,7 +58,7 @@ Partial Class frmDigicust
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.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.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.Location = New System.Drawing.Point(154, 716) Me.Button1.Location = New System.Drawing.Point(244, 713)
Me.Button1.Margin = New System.Windows.Forms.Padding(2) Me.Button1.Margin = New System.Windows.Forms.Padding(2)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 42) Me.Button1.Size = New System.Drawing.Size(159, 42)
@@ -69,16 +70,17 @@ Partial Class frmDigicust
' '
Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlHead.BackColor = System.Drawing.Color.White Me.pnlHead.BackColor = System.Drawing.Color.White
Me.pnlHead.Controls.Add(Me.Button2) Me.pnlHead.Controls.Add(Me.txtVorpapierT)
Me.pnlHead.Controls.Add(Me.btnCreateToken) Me.pnlHead.Controls.Add(Me.txtLWKLand)
Me.pnlHead.Controls.Add(Me.Label2) Me.pnlHead.Controls.Add(Me.UsrCntl_Consignee)
Me.pnlHead.Controls.Add(Me.rtfToken) Me.pnlHead.Controls.Add(Me.txtVorpapier)
Me.pnlHead.Controls.Add(Me.lblVorpapier)
Me.pnlHead.Controls.Add(Me.lblInfo) Me.pnlHead.Controls.Add(Me.lblInfo)
Me.pnlHead.Controls.Add(Me.Label6) Me.pnlHead.Controls.Add(Me.Label6)
Me.pnlHead.Controls.Add(Me.Label8) Me.pnlHead.Controls.Add(Me.Label8)
Me.pnlHead.Controls.Add(Me.cboStammreferenz) Me.pnlHead.Controls.Add(Me.cboStammreferenz)
Me.pnlHead.Controls.Add(Me.txtLKWId) Me.pnlHead.Controls.Add(Me.txtLKWId)
Me.pnlHead.Controls.Add(Me.usrCntl_Carrier) Me.pnlHead.Controls.Add(Me.usrCntl_consignor)
Me.pnlHead.Controls.Add(Me.Label4) Me.pnlHead.Controls.Add(Me.Label4)
Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle) Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle)
Me.pnlHead.Controls.Add(Me.Label3) Me.pnlHead.Controls.Add(Me.Label3)
@@ -89,60 +91,21 @@ Partial Class frmDigicust
Me.pnlHead.Controls.Add(Me.lblBezugsnummer) Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
Me.pnlHead.Location = New System.Drawing.Point(3, 2) Me.pnlHead.Location = New System.Drawing.Point(3, 2)
Me.pnlHead.Name = "pnlHead" Me.pnlHead.Name = "pnlHead"
Me.pnlHead.Size = New System.Drawing.Size(478, 706) Me.pnlHead.Size = New System.Drawing.Size(606, 706)
Me.pnlHead.TabIndex = 112 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 '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.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.ForeColor = System.Drawing.Color.Red
Me.lblInfo.Location = New System.Drawing.Point(10, 27) Me.lblInfo.Location = New System.Drawing.Point(64, 310)
Me.lblInfo.Name = "lblInfo" Me.lblInfo.Name = "lblInfo"
Me.lblInfo.Size = New System.Drawing.Size(460, 27) Me.lblInfo.Size = New System.Drawing.Size(460, 27)
Me.lblInfo.TabIndex = 148 Me.lblInfo.TabIndex = 148
' '
'Label6 'Label6
' '
Me.Label6.Location = New System.Drawing.Point(10, 373) Me.Label6.Location = New System.Drawing.Point(10, 337)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(135, 13) Me.Label6.Size = New System.Drawing.Size(135, 13)
Me.Label6.TabIndex = 147 Me.Label6.TabIndex = 147
@@ -152,124 +115,29 @@ Partial Class frmDigicust
' '
Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(283, 156) Me.Label8.Location = New System.Drawing.Point(14, 58)
Me.Label8.Name = "Label8" Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(57, 13) Me.Label8.Size = New System.Drawing.Size(57, 13)
Me.Label8.TabIndex = 146 Me.Label8.TabIndex = 146
Me.Label8.Text = "Stammref.:" Me.Label8.Text = "Stammref.:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight 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 'Label4
' '
Me.Label4.Location = New System.Drawing.Point(10, 180) Me.Label4.Location = New System.Drawing.Point(14, 85)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(121, 17) Me.Label4.Size = New System.Drawing.Size(78, 20)
Me.Label4.TabIndex = 114 Me.Label4.TabIndex = 114
Me.Label4.Text = "Bestimmungs-Zollstelle:" Me.Label4.Text = "Bes-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 'Label3
' '
Me.Label3.Location = New System.Drawing.Point(10, 157) Me.Label3.Location = New System.Drawing.Point(319, 61)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(103, 17) Me.Label3.Size = New System.Drawing.Size(50, 15)
Me.Label3.TabIndex = 113 Me.Label3.TabIndex = 113
Me.Label3.Text = "LKW-KZ:" 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 'txtDyMandant
' '
Me.txtDyMandant.BackColor = System.Drawing.Color.White Me.txtDyMandant.BackColor = System.Drawing.Color.White
@@ -285,7 +153,7 @@ Partial Class frmDigicust
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.White Me.Label1.BackColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(190, 2) Me.Label1.Location = New System.Drawing.Point(318, 2)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13) Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 106 Me.Label1.TabIndex = 106
@@ -305,19 +173,201 @@ Partial Class frmDigicust
Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.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.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.Location = New System.Drawing.Point(406, 2)
Me.lblBezugsnummer.Name = "lblBezugsnummer" Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
Me.lblBezugsnummer.TabIndex = 107 Me.lblBezugsnummer.TabIndex = 107
Me.lblBezugsnummer.Text = "4800/000000/17 AAA" Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
' '
'lblVorpapier
'
Me.lblVorpapier.Location = New System.Drawing.Point(319, 89)
Me.lblVorpapier.Name = "lblVorpapier"
Me.lblVorpapier.Size = New System.Drawing.Size(67, 13)
Me.lblVorpapier.TabIndex = 149
Me.lblVorpapier.Text = "Vorpapier"
'
'UsrCntl_Consignee
'
Me.UsrCntl_Consignee._Titel = "Empfänger:"
Me.UsrCntl_Consignee.BackColor = System.Drawing.Color.White
Me.UsrCntl_Consignee.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.UsrCntl_Consignee.Location = New System.Drawing.Point(303, 158)
Me.UsrCntl_Consignee.Name = "UsrCntl_Consignee"
Me.UsrCntl_Consignee.Size = New System.Drawing.Size(284, 132)
Me.UsrCntl_Consignee.TabIndex = 151
'
'txtVorpapier
'
Me.txtVorpapier._DateTimeOnly = False
Me.txtVorpapier._numbersOnly = False
Me.txtVorpapier._numbersOnlyKommastellen = ""
Me.txtVorpapier._numbersOnlyTrennzeichen = True
Me.txtVorpapier._Prozent = False
Me.txtVorpapier._ShortDateNew = False
Me.txtVorpapier._ShortDateOnly = False
Me.txtVorpapier._TimeOnly = False
Me.txtVorpapier._TimeOnly_Seconds = False
Me.txtVorpapier._value = ""
Me.txtVorpapier._Waehrung = False
Me.txtVorpapier._WaehrungZeichen = True
Me.txtVorpapier.ForeColor = System.Drawing.Color.Black
Me.txtVorpapier.Location = New System.Drawing.Point(449, 86)
Me.txtVorpapier.MaxLineLength = -1
Me.txtVorpapier.MaxLines_Warning = ""
Me.txtVorpapier.MaxLines_Warning_Label = Nothing
Me.txtVorpapier.Name = "txtVorpapier"
Me.txtVorpapier.Size = New System.Drawing.Size(121, 20)
Me.txtVorpapier.TabIndex = 150
'
'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(77, 55)
Me.cboStammreferenz.Name = "cboStammreferenz"
Me.cboStammreferenz.Size = New System.Drawing.Size(154, 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(409, 58)
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(115, 20)
Me.txtLKWId.TabIndex = 144
'
'usrCntl_consignor
'
Me.usrCntl_consignor._Titel = "Absender"
Me.usrCntl_consignor.BackColor = System.Drawing.Color.White
Me.usrCntl_consignor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntl_consignor.Location = New System.Drawing.Point(5, 158)
Me.usrCntl_consignor.Name = "usrCntl_consignor"
Me.usrCntl_consignor.Size = New System.Drawing.Size(284, 132)
Me.usrCntl_consignor.TabIndex = 143
'
'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(102, 82)
Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
Me.sbBestimmungsZollstelle.searchActive = True
Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(129, 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
'
'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, 353)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(590, 347)
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
'
'txtLWKLand
'
Me.txtLWKLand._DateTimeOnly = False
Me.txtLWKLand._numbersOnly = False
Me.txtLWKLand._numbersOnlyKommastellen = ""
Me.txtLWKLand._numbersOnlyTrennzeichen = True
Me.txtLWKLand._Prozent = False
Me.txtLWKLand._ShortDateNew = False
Me.txtLWKLand._ShortDateOnly = False
Me.txtLWKLand._TimeOnly = False
Me.txtLWKLand._TimeOnly_Seconds = False
Me.txtLWKLand._value = ""
Me.txtLWKLand._Waehrung = False
Me.txtLWKLand._WaehrungZeichen = True
Me.txtLWKLand.ForeColor = System.Drawing.Color.Black
Me.txtLWKLand.Location = New System.Drawing.Point(533, 58)
Me.txtLWKLand.MaxLineLength = -1
Me.txtLWKLand.MaxLines_Warning = ""
Me.txtLWKLand.MaxLines_Warning_Label = Nothing
Me.txtLWKLand.Name = "txtLWKLand"
Me.txtLWKLand.Size = New System.Drawing.Size(37, 20)
Me.txtLWKLand.TabIndex = 154
'
'txtVorpapierT
'
Me.txtVorpapierT._DateTimeOnly = False
Me.txtVorpapierT._numbersOnly = False
Me.txtVorpapierT._numbersOnlyKommastellen = ""
Me.txtVorpapierT._numbersOnlyTrennzeichen = True
Me.txtVorpapierT._Prozent = False
Me.txtVorpapierT._ShortDateNew = False
Me.txtVorpapierT._ShortDateOnly = False
Me.txtVorpapierT._TimeOnly = False
Me.txtVorpapierT._TimeOnly_Seconds = False
Me.txtVorpapierT._value = ""
Me.txtVorpapierT._Waehrung = False
Me.txtVorpapierT._WaehrungZeichen = True
Me.txtVorpapierT.ForeColor = System.Drawing.Color.Black
Me.txtVorpapierT.Location = New System.Drawing.Point(410, 86)
Me.txtVorpapierT.MaxLineLength = -1
Me.txtVorpapierT.MaxLines_Warning = ""
Me.txtVorpapierT.MaxLines_Warning_Label = Nothing
Me.txtVorpapierT.Name = "txtVorpapierT"
Me.txtVorpapierT.Size = New System.Drawing.Size(33, 20)
Me.txtVorpapierT.TabIndex = 155
'
'frmDigicust 'frmDigicust
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.ClientSize = New System.Drawing.Size(484, 769) Me.ClientSize = New System.Drawing.Size(621, 769)
Me.Controls.Add(Me.pnlHead) Me.Controls.Add(Me.pnlHead)
Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -337,7 +387,7 @@ Partial Class frmDigicust
Friend WithEvents Label8 As Label Friend WithEvents Label8 As Label
Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse Friend WithEvents usrCntl_consignor As SDL.usrCntlAdresse
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label3 As Label Friend WithEvents Label3 As Label
@@ -347,8 +397,9 @@ Partial Class frmDigicust
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents txtDyNiederlassung As Label Friend WithEvents txtDyNiederlassung As Label
Friend WithEvents lblBezugsnummer As Label Friend WithEvents lblBezugsnummer As Label
Friend WithEvents Button2 As Button Friend WithEvents UsrCntl_Consignee As SDL.usrCntlAdresse
Friend WithEvents btnCreateToken As Button Friend WithEvents txtVorpapier As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label Friend WithEvents lblVorpapier As Label
Friend WithEvents rtfToken As RichTextBox Friend WithEvents txtVorpapierT As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtLWKLand As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class End Class

114
Aviso/frmDigicust.vb
View File

@@ -1,4 +1,5 @@
Imports DAKOSY_Worker.DEERRE Imports DAKOSY_Worker.DEERRE
Imports DAKOSY_Worker.eZollTypes
Imports DocumentFormat.OpenXml.Vml.Presentation Imports DocumentFormat.OpenXml.Vml.Presentation
Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
Imports GrapeCity.ActiveReports.ReportsCore.Tools Imports GrapeCity.ActiveReports.ReportsCore.Tools
@@ -79,10 +80,6 @@ Public Class frmDigicust
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try Try
'If atez_data.status = "Sent" Then
'End If
If Not checkAttachment() Then If Not checkAttachment() Then
Exit Sub Exit Sub
@@ -102,27 +99,24 @@ Public Class frmDigicust
With dig_sendung With dig_sendung
.avisoId = AVISO.AvisoID .avisoId = AVISO.AvisoID
' .SendungsId = SENDUNG.tblSnd_SendungID
.reference = lblBezugsnummer.Text .reference = lblBezugsnummer.Text
' ' .LicensePlateContainerNo = txtLKWId.Text .consignor_eori = usrCntl_consignor.txtEORI.Text
' ' .DAKOSY_TemplateCode = cboStammreferenz._value .consignor_name = usrCntl_consignor.kdFirma.Text
' ' .DAKOSY_IOPartner = txtDyMandant.Text .consignor_address = usrCntl_consignor.txtStrasse.Text
' ' .DAKOSY_Division3 = txtDyNiederlassung.Text .consignor_city_name = usrCntl_consignor.txtOrt.Text
' ' .DestinationCustomsOffice = sbBestimmungsZollstelle._value .consignor_country_id = usrCntl_consignor.sbLand._value
' ' .Carrier_Name = usrCntl_Carrier.kdFirma.Text .consignor_postcode = usrCntl_consignor.txtPlz.Text
' ' .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text .consignee_eori = UsrCntl_Consignee.txtEORI.Text
' ' .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value .consignee_name = UsrCntl_Consignee.kdFirma.Text
' ' .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text .consignee_address = UsrCntl_Consignee.txtStrasse.Text
' ' .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text .consignee_city_name = UsrCntl_Consignee.txtOrt.Text
' ' .Carrier_EORI = usrCntl_Carrier.txtEORI.Text .consignee_country_id = UsrCntl_Consignee.sbLand._value
' ' .Guarantee_GRN = "" 'leer .consignee_postcode = UsrCntl_Consignee.txtPlz.Text
.prepaper = txtVorpapier.Text
.prepaper_code = txtVorpapierT.Text
.licencePlate = txtLKWId.Text
.lkwCountryId = txtLWKLand.Text
' 'For Each doc As DataGridViewRow In dgvAnhaenge.Rows
' ' Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
' ' If isSelected Then
' ' .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
' ' End If
' 'Next
'.SAVE() '.SAVE()
@@ -146,17 +140,16 @@ Public Class frmDigicust
Dim failreDesc As String Dim failreDesc As String
Dim authResp = api.authenticate(rtfToken.Text) Dim authResp = api.authenticate("")
If authResp <> "200" Then If authResp <> "200" Then
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!" failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
lblInfo.Text = failreDesc lblInfo.Text = failreDesc
Exit Sub Exit Sub
End If End If
Dim token = rtfToken.Text
If api.uploadingCase(dig, settings, dgvAnhaenge) Then If api.uploadingCase(dig, settings, dgvAnhaenge) Then
dig.SAVE() dig.SAVE()
Me.Close()
End If End If
'If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!") 'If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
@@ -244,6 +237,7 @@ Public Class frmDigicust
End Select End Select
initAttachment() initAttachment()
initSeachboxes()
cboStammreferenz.fillWithSQL("SELECT [id],[description] FROM [tblDigicust_Settings] WHERE companyId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID & " and valid =1", False, "FMZOLL", True) cboStammreferenz.fillWithSQL("SELECT [id],[description] FROM [tblDigicust_Settings] WHERE companyId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID & " and valid =1", False, "FMZOLL", True)
cboStammreferenz.changeItem("") cboStammreferenz.changeItem("")
@@ -302,34 +296,28 @@ Public Class frmDigicust
' End If ' End If
Else Else
' atez_data = New cATEZ_NCTS_DATA()
' Button1.Text = "An ATEZ senden -->"
' pnlHead.Enabled = True
getBezugsnr(BezugsNr) getBezugsnr(BezugsNr)
txtLKWId.Text = AVISO.LKW_Nr txtLKWId.Text = AVISO.LKW_Nr
txtLWKLand.Text = AVISO.LKW_Nationalitaet
' cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
' txtTransporttemp.Text = AVISO.TransportTemperatur
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
usrCntl_Carrier.kdFirma.initKdBox(Me) txtVorpapier.Text = SENDUNG.tblSnd_Vorpapier
usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr txtVorpapierT.Text = cDy_ART
End If End If
'If AVISO.Grenzstelle.Replace("???", "") = "" Then If SENDUNG.tblSnd_EmpfaengerKdNr > -1 Then
' sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle) UsrCntl_Consignee.kdFirma.initKdBox(Me)
'Else UsrCntl_Consignee.kdFirma.KdNr = SENDUNG.tblSnd_EmpfaengerKdNr
End If
' Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
' If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then If SENDUNG.tblSnd_AbsenderKdNr > -1 Then
' If GRZ.grz_ZollamtDST IsNot Nothing Then usrCntl_consignor.kdFirma.initKdBox(Me)
' sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST) usrCntl_consignor.kdFirma.KdNr = SENDUNG.tblSnd_AbsenderKdNr
' End If End If
' End If
' End If
End If End If
@@ -365,7 +353,7 @@ Public Class frmDigicust
Dim col As DataColumn Dim col As DataColumn
col = dt.Columns.Add("anh_selekt", GetType(Boolean)) col = dt.Columns.Add("anh_selekt", GetType(Boolean))
col.SetOrdinal(0) col.SetOrdinal(0)
dgvAnhaenge.Columns.Clear()
dgvAnhaenge.DataSource = dt dgvAnhaenge.DataSource = dt
If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
@@ -384,15 +372,15 @@ Public Class frmDigicust
.Columns("anh_selekt").HeaderText = "ausgewählt" .Columns("anh_selekt").HeaderText = "ausgewählt"
.Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Datum").MinimumWidth = 50
.Columns("anh_Datum").HeaderText = "Datum"
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Name").MinimumWidth = 150 .Columns("anh_Name").MinimumWidth = 150
.Columns("anh_Name").HeaderText = "Name" .Columns("anh_Name").HeaderText = "Name"
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("anh_Datum").MinimumWidth = 50
.Columns("anh_Datum").HeaderText = "Datum"
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("anh_Art").MinimumWidth = 50 .Columns("anh_Art").MinimumWidth = 50
.Columns("anh_Art").HeaderText = "Art" .Columns("anh_Art").HeaderText = "Art"
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
@@ -442,20 +430,20 @@ Public Class frmDigicust
End Function End Function
Public Sub initSeachboxes()
sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
rtfToken.Text = ""
End Sub End Sub
Private Sub btnCreateToken_Click(sender As Object, e As EventArgs) Handles btnCreateToken.Click
Label2.Text = "Status: " & api.authenticate(rtfToken.Text)
If rtfToken.Text <> "" Then
Label1.Text = "Token (valid 1h) until: " & Now().AddHours(1)
Else
Label1.Text = "Token (valid 1h)"
End If
End Sub
'Private Sub btnCreateToken_Click(sender As Object, e As EventArgs)
' Label2.Text = "Status: " & api.authenticate(rtfToken.Text)
' If rtfToken.Text <> "" Then
' Label1.Text = "Token (valid 1h) until: " & Now().AddHours(1)
' Else
' Label1.Text = "Token (valid 1h)"
' End If
'End Sub
End Class End Class

4
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -6444,7 +6444,7 @@ Public Class frmSendungsdetailsNEU
With dgvDigicust With dgvDigicust
.Columns.Clear() .Columns.Clear()
.ReadOnly = False .ReadOnly = False
.DataSource = SQL.loadDgvBySql("select * FROM [tblDigicust_Sendungen] WHERE AvisoId='" & AvisoId & "'", "FMZOLL") .DataSource = SQL.loadDgvBySql("select Id, AvisoId, reference, digicustId, status, createdAt, modifiedAt, uploadedDocuments, companyId, projectId FROM [tblDigicust_Sendungen] WHERE AvisoId='" & AvisoId & "'", "FMZOLL")
If .Columns.Count <= 0 Then Exit Sub If .Columns.Count <= 0 Then Exit Sub
'Ä.Columns("txtStatus").ReadOnly = False 'Ä.Columns("txtStatus").ReadOnly = False
.Columns("Id").Visible = False .Columns("Id").Visible = False
@@ -6464,7 +6464,7 @@ Public Class frmSendungsdetailsNEU
.Columns("createdAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("createdAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
.Columns("createdAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("createdAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("modifiedAt").HeaderText = "Geändert" .Columns("modifiedAt").HeaderText = "Status abgefragt"
.Columns("modifiedAt").Width = 150 .Columns("modifiedAt").Width = 150
.Columns("modifiedAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm" .Columns("modifiedAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
.Columns("modifiedAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("modifiedAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter