diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 73b31ef..ddfcfa8 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmHauptfenster.vb b/Aviso/frmHauptfenster.vb index 32e2527..6281b39 100644 --- a/Aviso/frmHauptfenster.vb +++ b/Aviso/frmHauptfenster.vb @@ -2837,34 +2837,35 @@ ELSE_ATILLA: If e.Button = MouseButtons.Right Then - If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then - If sender Is gridAviso Then - VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId - sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex) - conMenuAviso.Show(Cursor.Position) - End If - Else + If True Then + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then + ' If sender Is gridAviso Then + ' VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + ' sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex) + ' conMenuAviso.Show(Cursor.Position) + ' End If + 'Else setAkive_AuswahlID() - avisoAktualisierenAktiveIdBehalten(tmpId, , False) - Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status - If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then - 'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation) - lblErrVermerk.Width = 300 - lblErrVermerk.Visible = True - hideErr.Enabled = True - Exit Sub + avisoAktualisierenAktiveIdBehalten(tmpId, , False) + Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status + If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then + 'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation) + lblErrVermerk.Width = 300 + lblErrVermerk.Visible = True + hideErr.Enabled = True + Exit Sub + End If + + Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() + Dim sv As New frmAddAktenvermerkShort(tmpId) + sv.Location = Me.PointToClient(Cursor.Position) + ' sv.ShowDialog() + sv.ShowDialog(frmGrayOut) + frmGrayOut.Close() + End If - - Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm() - Dim sv As New frmAddAktenvermerkShort(tmpId) - sv.Location = Me.PointToClient(Cursor.Position) - ' sv.ShowDialog() - sv.ShowDialog(frmGrayOut) - frmGrayOut.Close() - - End If - ElseIf e.Button = MouseButtons.Left Then - VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId + ElseIf e.Button = MouseButtons.Left Then + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId avisoAktualisierenAktiveIdBehalten(tmpId, , False) End If End Sub diff --git a/Aviso/usrcntlAktDetails.Designer.vb b/Aviso/usrcntlAktDetails.Designer.vb index 4403c10..d516eab 100644 --- a/Aviso/usrcntlAktDetails.Designer.vb +++ b/Aviso/usrcntlAktDetails.Designer.vb @@ -45,17 +45,13 @@ Partial Class usrcntlAktDetails Me.cboGrenzstelle = New System.Windows.Forms.ComboBox() Me.Label11 = New System.Windows.Forms.Label() Me.lnlSendungText = New System.Windows.Forms.Label() - Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlSBG = New System.Windows.Forms.Panel() Me.lblSndFremd = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() - Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() Me.lblFiskde = New System.Windows.Forms.Label() - Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblFiskAT = New System.Windows.Forms.Label() - Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxSammelakt = New System.Windows.Forms.CheckBox() Me.Button5 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() @@ -65,8 +61,6 @@ Partial Class usrcntlAktDetails Me.btnQuckScan = New System.Windows.Forms.Button() Me.picArrowDown = New System.Windows.Forms.PictureBox() Me.Panel4 = New System.Windows.Forms.Panel() - Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) - Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.Button2 = New System.Windows.Forms.Button() Me.cbxVPSplit = New System.Windows.Forms.CheckBox() Me.btnLZDruckDIGITAL = New System.Windows.Forms.Button() @@ -75,13 +69,11 @@ Partial Class usrcntlAktDetails Me.btnAlleSteuerbescheide = New System.Windows.Forms.Button() Me.btnAlleAkendeckel = New System.Windows.Forms.Button() Me.btnDipoListe = New System.Windows.Forms.Button() - Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.btnSA_Gestellung = New System.Windows.Forms.Button() Me.btnLZDruck = New System.Windows.Forms.Button() Me.btnDipoListeEmail = New System.Windows.Forms.Button() Me.btnDispohaft = New System.Windows.Forms.Button() - Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.Button18 = New System.Windows.Forms.Button() Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.pnlVermerkeTop = New System.Windows.Forms.Panel() @@ -136,7 +128,7 @@ Partial Class usrcntlAktDetails Me.Panel9 = New System.Windows.Forms.Panel() Me.btnErfasst = New System.Windows.Forms.Button() Me.lblTimeErfasst = New System.Windows.Forms.Label() - Me.Panel10 = New System.Windows.Forms.Panel() + Me.pnlStatus2Vorgeschr = New System.Windows.Forms.Panel() Me.btnVorbereitet = New System.Windows.Forms.Button() Me.lblTimeVorbereitet = New System.Windows.Forms.Label() Me.Panel13 = New System.Windows.Forms.Panel() @@ -145,6 +137,12 @@ Partial Class usrcntlAktDetails Me.Panel11 = New System.Windows.Forms.Panel() Me.btnAnkunft = New System.Windows.Forms.Button() Me.lblTimeAnkunft = New System.Windows.Forms.Label() + Me.pnlStatusVERIMEX = New System.Windows.Forms.Panel() + Me.btnAnVerimex = New System.Windows.Forms.Button() + Me.Label8 = New System.Windows.Forms.Label() + Me.pnlStatusINDONESIEN = New System.Windows.Forms.Panel() + Me.btnAnIndonesien = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() Me.Panel12 = New System.Windows.Forms.Panel() Me.btnFreigabe = New System.Windows.Forms.Button() Me.lblTimeFreigabe = New System.Windows.Forms.Label() @@ -178,6 +176,15 @@ Partial Class usrcntlAktDetails Me.btnÄndern = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button() Me.Button10 = New System.Windows.Forms.Button() + Me.Button9 = New System.Windows.Forms.Button() + Me.txtSendungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSndFremd = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSndFiskalDE = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSndFiskalAT = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxLZDeFisk = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.cbxLZT1 = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.cboFormulareRgAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxLZRg = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) Me.pnlDetailsRechts.SuspendLayout() Me.Panel3.SuspendLayout() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() @@ -206,9 +213,11 @@ Partial Class usrcntlAktDetails CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.FlowLayoutPanel.SuspendLayout() Me.Panel9.SuspendLayout() - Me.Panel10.SuspendLayout() + Me.pnlStatus2Vorgeschr.SuspendLayout() Me.Panel13.SuspendLayout() Me.Panel11.SuspendLayout() + Me.pnlStatusVERIMEX.SuspendLayout() + Me.pnlStatusINDONESIEN.SuspendLayout() Me.Panel12.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlStatus.SuspendLayout() @@ -239,9 +248,9 @@ Partial Class usrcntlAktDetails Me.Panel3.Controls.Add(Me.SplitContainer) Me.Panel3.Controls.Add(Me.Panel8) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel3.Location = New System.Drawing.Point(0, 105) + Me.Panel3.Location = New System.Drawing.Point(0, 164) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(575, 629) + Me.Panel3.Size = New System.Drawing.Size(575, 570) Me.Panel3.TabIndex = 91 ' 'SplitContainer @@ -269,8 +278,8 @@ Partial Class usrcntlAktDetails Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop) Me.SplitContainer.Panel2.Controls.Add(Me.addVermerk) Me.SplitContainer.Panel2.Controls.Add(Me.pnlMAInfo) - Me.SplitContainer.Size = New System.Drawing.Size(575, 509) - Me.SplitContainer.SplitterDistance = 233 + Me.SplitContainer.Size = New System.Drawing.Size(575, 450) + Me.SplitContainer.SplitterDistance = 197 Me.SplitContainer.TabIndex = 91 ' 'pnlAlt @@ -283,7 +292,7 @@ Partial Class usrcntlAktDetails Me.pnlAlt.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlAlt.Location = New System.Drawing.Point(0, 0) Me.pnlAlt.Name = "pnlAlt" - Me.pnlAlt.Size = New System.Drawing.Size(575, 233) + Me.pnlAlt.Size = New System.Drawing.Size(575, 197) Me.pnlAlt.TabIndex = 72 Me.pnlAlt.Visible = False ' @@ -372,32 +381,6 @@ Partial Class usrcntlAktDetails Me.lnlSendungText.TabIndex = 2 Me.lnlSendungText.Text = "Sendung" ' - 'txtSendungen - ' - Me.txtSendungen._DateTimeOnly = False - Me.txtSendungen._numbersOnly = True - Me.txtSendungen._numbersOnlyKommastellen = "" - Me.txtSendungen._numbersOnlyTrennzeichen = True - Me.txtSendungen._Prozent = False - Me.txtSendungen._ShortDateNew = False - Me.txtSendungen._ShortDateOnly = False - Me.txtSendungen._TimeOnly = False - Me.txtSendungen._TimeOnly_Seconds = False - Me.txtSendungen._value = "" - Me.txtSendungen._Waehrung = False - Me.txtSendungen._WaehrungZeichen = True - Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSendungen.ForeColor = System.Drawing.Color.Black - Me.txtSendungen.Location = New System.Drawing.Point(22, 17) - Me.txtSendungen.MaxLineLength = -1 - Me.txtSendungen.MaxLines_Warning = "" - Me.txtSendungen.MaxLines_Warning_Label = Nothing - Me.txtSendungen.Name = "txtSendungen" - Me.txtSendungen.Size = New System.Drawing.Size(32, 26) - Me.txtSendungen.TabIndex = 1 - Me.txtSendungen.Text = "1" - Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'pnlSBG ' Me.pnlSBG.Controls.Add(Me.lblSndFremd) @@ -434,33 +417,6 @@ Partial Class usrcntlAktDetails Me.Label21.Text = "1" Me.Label21.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtSndFremd - ' - Me.txtSndFremd._DateTimeOnly = False - Me.txtSndFremd._numbersOnly = True - Me.txtSndFremd._numbersOnlyKommastellen = "" - Me.txtSndFremd._numbersOnlyTrennzeichen = True - Me.txtSndFremd._Prozent = False - Me.txtSndFremd._ShortDateNew = False - Me.txtSndFremd._ShortDateOnly = False - Me.txtSndFremd._TimeOnly = False - Me.txtSndFremd._TimeOnly_Seconds = False - Me.txtSndFremd._value = "" - Me.txtSndFremd._Waehrung = False - Me.txtSndFremd._WaehrungZeichen = True - Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFremd.ForeColor = System.Drawing.Color.Black - Me.txtSndFremd.Location = New System.Drawing.Point(149, 5) - Me.txtSndFremd.MaxLineLength = -1 - Me.txtSndFremd.MaxLines_Warning = "" - Me.txtSndFremd.MaxLines_Warning_Label = Nothing - Me.txtSndFremd.Name = "txtSndFremd" - Me.txtSndFremd.Size = New System.Drawing.Size(32, 26) - Me.txtSndFremd.TabIndex = 83 - Me.txtSndFremd.Text = "0" - Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - Me.txtSndFremd.Visible = False - ' 'Label20 ' Me.Label20.AutoSize = True @@ -488,32 +444,6 @@ Partial Class usrcntlAktDetails Me.lblFiskde.TabIndex = 6 Me.lblFiskde.Text = "Fiskal DE" ' - 'txtSndFiskalDE - ' - Me.txtSndFiskalDE._DateTimeOnly = False - Me.txtSndFiskalDE._numbersOnly = True - Me.txtSndFiskalDE._numbersOnlyKommastellen = "" - Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True - Me.txtSndFiskalDE._Prozent = False - Me.txtSndFiskalDE._ShortDateNew = False - Me.txtSndFiskalDE._ShortDateOnly = False - Me.txtSndFiskalDE._TimeOnly = False - Me.txtSndFiskalDE._TimeOnly_Seconds = False - Me.txtSndFiskalDE._value = "" - Me.txtSndFiskalDE._Waehrung = False - Me.txtSndFiskalDE._WaehrungZeichen = True - Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black - Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34) - Me.txtSndFiskalDE.MaxLineLength = -1 - Me.txtSndFiskalDE.MaxLines_Warning = "" - Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing - Me.txtSndFiskalDE.Name = "txtSndFiskalDE" - Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26) - Me.txtSndFiskalDE.TabIndex = 5 - Me.txtSndFiskalDE.Text = "0" - Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'lblFiskAT ' Me.lblFiskAT.AutoSize = True @@ -523,32 +453,6 @@ Partial Class usrcntlAktDetails Me.lblFiskAT.TabIndex = 4 Me.lblFiskAT.Text = "Fiskal AT" ' - 'txtSndFiskalAT - ' - Me.txtSndFiskalAT._DateTimeOnly = False - Me.txtSndFiskalAT._numbersOnly = True - Me.txtSndFiskalAT._numbersOnlyKommastellen = "" - Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True - Me.txtSndFiskalAT._Prozent = False - Me.txtSndFiskalAT._ShortDateNew = False - Me.txtSndFiskalAT._ShortDateOnly = False - Me.txtSndFiskalAT._TimeOnly = False - Me.txtSndFiskalAT._TimeOnly_Seconds = False - Me.txtSndFiskalAT._value = "" - Me.txtSndFiskalAT._Waehrung = False - Me.txtSndFiskalAT._WaehrungZeichen = True - Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black - Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5) - Me.txtSndFiskalAT.MaxLineLength = -1 - Me.txtSndFiskalAT.MaxLines_Warning = "" - Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing - Me.txtSndFiskalAT.Name = "txtSndFiskalAT" - Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26) - Me.txtSndFiskalAT.TabIndex = 3 - Me.txtSndFiskalAT.Text = "0" - Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'cbxSammelakt ' Me.cbxSammelakt.AutoSize = True @@ -654,7 +558,7 @@ Partial Class usrcntlAktDetails Me.dgvSendungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSendungen.ShowCellErrors = False Me.dgvSendungen.ShowRowErrors = False - Me.dgvSendungen.Size = New System.Drawing.Size(575, 233) + Me.dgvSendungen.Size = New System.Drawing.Size(575, 197) Me.dgvSendungen.TabIndex = 71 Me.dgvSendungen.TabStop = False ' @@ -666,7 +570,7 @@ Partial Class usrcntlAktDetails Me.Panel7.Location = New System.Drawing.Point(4, 19) Me.Panel7.MaximumSize = New System.Drawing.Size(2, 250) Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(1, 108) + Me.Panel7.Size = New System.Drawing.Size(1, 65) Me.Panel7.TabIndex = 15 ' 'btnQuckScan @@ -675,7 +579,7 @@ Partial Class usrcntlAktDetails Me.btnQuckScan.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnQuckScan.Image = CType(resources.GetObject("btnQuckScan.Image"), System.Drawing.Image) Me.btnQuckScan.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnQuckScan.Location = New System.Drawing.Point(468, 203) + Me.btnQuckScan.Location = New System.Drawing.Point(468, 167) Me.btnQuckScan.Name = "btnQuckScan" Me.btnQuckScan.Size = New System.Drawing.Size(107, 34) Me.btnQuckScan.TabIndex = 107 @@ -690,7 +594,7 @@ Partial Class usrcntlAktDetails Me.picArrowDown.BackgroundImage = Global.AVISO.My.Resources.Resources.arrow_down_orange Me.picArrowDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.picArrowDown.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.picArrowDown.Location = New System.Drawing.Point(1, 221) + Me.picArrowDown.Location = New System.Drawing.Point(1, 185) Me.picArrowDown.Name = "picArrowDown" Me.picArrowDown.Size = New System.Drawing.Size(36, 50) Me.picArrowDown.TabIndex = 104 @@ -702,6 +606,7 @@ Partial Class usrcntlAktDetails Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel4.BackColor = System.Drawing.Color.PapayaWhip Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.Button9) Me.Panel4.Controls.Add(Me.cbxLZDeFisk) Me.Panel4.Controls.Add(Me.cbxLZT1) Me.Panel4.Controls.Add(Me.Button2) @@ -725,35 +630,6 @@ Partial Class usrcntlAktDetails Me.Panel4.TabIndex = 102 Me.Panel4.Visible = False ' - 'cbxLZDeFisk - ' - Me.cbxLZDeFisk._value = "" - Me.cbxLZDeFisk.AutoSize = True - Me.cbxLZDeFisk.Checked_value = False - Me.cbxLZDeFisk.CheckedValue = False - Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93) - Me.cbxLZDeFisk.Name = "cbxLZDeFisk" - Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17) - Me.cbxLZDeFisk.TabIndex = 118 - Me.cbxLZDeFisk.Text = "DE Fisk" - Me.cbxLZDeFisk.UseVisualStyleBackColor = True - ' - 'cbxLZT1 - ' - Me.cbxLZT1._value = "" - Me.cbxLZT1.AutoSize = True - Me.cbxLZT1.Checked_value = False - Me.cbxLZT1.CheckedValue = False - Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.cbxLZT1.Location = New System.Drawing.Point(172, 93) - Me.cbxLZT1.Name = "cbxLZT1" - Me.cbxLZT1.Size = New System.Drawing.Size(37, 17) - Me.cbxLZT1.TabIndex = 114 - Me.cbxLZT1.Text = "T1" - Me.cbxLZT1.UseVisualStyleBackColor = True - Me.cbxLZT1.Visible = False - ' 'Button2 ' Me.Button2.BackColor = System.Drawing.Color.White @@ -761,7 +637,7 @@ Partial Class usrcntlAktDetails Me.Button2.ForeColor = System.Drawing.Color.Black Me.Button2.Image = Global.AVISO.My.Resources.Resources.spedbuch_small Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(52, 166) + Me.Button2.Location = New System.Drawing.Point(188, 139) Me.Button2.Margin = New System.Windows.Forms.Padding(0) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(76, 20) @@ -879,17 +755,6 @@ Partial Class usrcntlAktDetails Me.btnDipoListe.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnDipoListe.UseVisualStyleBackColor = False ' - 'cboFormulareRgAn - ' - Me.cboFormulareRgAn._allowedValuesFreiText = Nothing - Me.cboFormulareRgAn._allowFreiText = False - Me.cboFormulareRgAn._value = "" - Me.cboFormulareRgAn.FormattingEnabled = True - Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2) - Me.cboFormulareRgAn.Name = "cboFormulareRgAn" - Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21) - Me.cboFormulareRgAn.TabIndex = 108 - ' 'Label4 ' Me.Label4.AutoSize = True @@ -964,29 +829,13 @@ Partial Class usrcntlAktDetails Me.btnDispohaft.Text = "Dispo.Haft" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)" Me.btnDispohaft.UseVisualStyleBackColor = False ' - 'cbxLZRg - ' - Me.cbxLZRg._value = "" - Me.cbxLZRg.AutoSize = True - Me.cbxLZRg.Checked = True - Me.cbxLZRg.Checked_value = False - Me.cbxLZRg.CheckedValue = False - Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.cbxLZRg.Location = New System.Drawing.Point(134, 93) - Me.cbxLZRg.Name = "cbxLZRg" - Me.cbxLZRg.Size = New System.Drawing.Size(41, 17) - Me.cbxLZRg.TabIndex = 115 - Me.cbxLZRg.Text = "RG" - Me.cbxLZRg.UseVisualStyleBackColor = True - ' 'Button18 ' Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image) Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button18.Location = New System.Drawing.Point(447, 236) + Me.Button18.Location = New System.Drawing.Point(447, 200) Me.Button18.Name = "Button18" Me.Button18.Size = New System.Drawing.Size(128, 34) Me.Button18.TabIndex = 103 @@ -1046,7 +895,7 @@ Partial Class usrcntlAktDetails Me.gridVermerke.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.gridVermerke.ShowCellErrors = False Me.gridVermerke.ShowRowErrors = False - Me.gridVermerke.Size = New System.Drawing.Size(575, 208) + Me.gridVermerke.Size = New System.Drawing.Size(575, 185) Me.gridVermerke.TabIndex = 70 Me.gridVermerke.TabStop = False ' @@ -1198,7 +1047,7 @@ Partial Class usrcntlAktDetails Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_Vorgeschrieben) Me.pnlMAInfo.Controls.Add(Me.txtMAinfo_VorbereitetQs) Me.pnlMAInfo.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlMAInfo.Location = New System.Drawing.Point(0, 238) + Me.pnlMAInfo.Location = New System.Drawing.Point(0, 215) Me.pnlMAInfo.Name = "pnlMAInfo" Me.pnlMAInfo.Size = New System.Drawing.Size(575, 34) Me.pnlMAInfo.TabIndex = 106 @@ -1724,15 +1573,17 @@ Partial Class usrcntlAktDetails ' Me.FlowLayoutPanel.AutoSize = True Me.FlowLayoutPanel.Controls.Add(Me.Panel9) - Me.FlowLayoutPanel.Controls.Add(Me.Panel10) + Me.FlowLayoutPanel.Controls.Add(Me.pnlStatus2Vorgeschr) Me.FlowLayoutPanel.Controls.Add(Me.Panel13) Me.FlowLayoutPanel.Controls.Add(Me.Panel11) + Me.FlowLayoutPanel.Controls.Add(Me.pnlStatusVERIMEX) + Me.FlowLayoutPanel.Controls.Add(Me.pnlStatusINDONESIEN) Me.FlowLayoutPanel.Controls.Add(Me.Panel12) Me.FlowLayoutPanel.Controls.Add(Me.Panel2) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Top Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 36) Me.FlowLayoutPanel.Name = "FlowLayoutPanel" - Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 69) + Me.FlowLayoutPanel.Size = New System.Drawing.Size(575, 128) Me.FlowLayoutPanel.TabIndex = 13 ' 'Panel9 @@ -1743,7 +1594,7 @@ Partial Class usrcntlAktDetails Me.Panel9.Location = New System.Drawing.Point(2, 2) Me.Panel9.Margin = New System.Windows.Forms.Padding(2, 2, 1, 2) Me.Panel9.Name = "Panel9" - Me.Panel9.Size = New System.Drawing.Size(100, 58) + Me.Panel9.Size = New System.Drawing.Size(90, 58) Me.Panel9.TabIndex = 15 ' 'btnErfasst @@ -1758,9 +1609,9 @@ Partial Class usrcntlAktDetails Me.btnErfasst.ForeColor = System.Drawing.Color.White Me.btnErfasst.Location = New System.Drawing.Point(0, 0) Me.btnErfasst.Margin = New System.Windows.Forms.Padding(0) - Me.btnErfasst.MinimumSize = New System.Drawing.Size(100, 0) + Me.btnErfasst.MinimumSize = New System.Drawing.Size(90, 0) Me.btnErfasst.Name = "btnErfasst" - Me.btnErfasst.Size = New System.Drawing.Size(100, 46) + Me.btnErfasst.Size = New System.Drawing.Size(90, 46) Me.btnErfasst.TabIndex = 12 Me.btnErfasst.Text = "1. " & Global.Microsoft.VisualBasic.ChrW(10) & "ERFASST" Me.btnErfasst.UseVisualStyleBackColor = False @@ -1771,21 +1622,21 @@ Partial Class usrcntlAktDetails Me.lblTimeErfasst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTimeErfasst.Location = New System.Drawing.Point(0, 46) Me.lblTimeErfasst.Name = "lblTimeErfasst" - Me.lblTimeErfasst.Size = New System.Drawing.Size(100, 12) + Me.lblTimeErfasst.Size = New System.Drawing.Size(90, 12) Me.lblTimeErfasst.TabIndex = 0 Me.lblTimeErfasst.Text = "-" Me.lblTimeErfasst.TextAlign = System.Drawing.ContentAlignment.TopCenter ' - 'Panel10 + 'pnlStatus2Vorgeschr ' - Me.Panel10.AutoSize = True - Me.Panel10.Controls.Add(Me.btnVorbereitet) - Me.Panel10.Controls.Add(Me.lblTimeVorbereitet) - Me.Panel10.Location = New System.Drawing.Point(104, 2) - Me.Panel10.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2) - Me.Panel10.Name = "Panel10" - Me.Panel10.Size = New System.Drawing.Size(147, 59) - Me.Panel10.TabIndex = 16 + Me.pnlStatus2Vorgeschr.AutoSize = True + Me.pnlStatus2Vorgeschr.Controls.Add(Me.btnVorbereitet) + Me.pnlStatus2Vorgeschr.Controls.Add(Me.lblTimeVorbereitet) + Me.pnlStatus2Vorgeschr.Location = New System.Drawing.Point(94, 2) + Me.pnlStatus2Vorgeschr.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2) + Me.pnlStatus2Vorgeschr.Name = "pnlStatus2Vorgeschr" + Me.pnlStatus2Vorgeschr.Size = New System.Drawing.Size(147, 59) + Me.pnlStatus2Vorgeschr.TabIndex = 16 ' 'btnVorbereitet ' @@ -1822,7 +1673,7 @@ Partial Class usrcntlAktDetails Me.Panel13.AutoSize = True Me.Panel13.Controls.Add(Me.btnVorgeschrieben) Me.Panel13.Controls.Add(Me.lblTimeVorgeschreiben) - Me.Panel13.Location = New System.Drawing.Point(253, 2) + Me.Panel13.Location = New System.Drawing.Point(243, 2) Me.Panel13.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2) Me.Panel13.Name = "Panel13" Me.Panel13.Size = New System.Drawing.Size(112, 59) @@ -1863,10 +1714,10 @@ Partial Class usrcntlAktDetails Me.Panel11.AutoSize = True Me.Panel11.Controls.Add(Me.btnAnkunft) Me.Panel11.Controls.Add(Me.lblTimeAnkunft) - Me.Panel11.Location = New System.Drawing.Point(367, 2) + Me.Panel11.Location = New System.Drawing.Point(357, 2) Me.Panel11.Margin = New System.Windows.Forms.Padding(1, 2, 1, 2) Me.Panel11.Name = "Panel11" - Me.Panel11.Size = New System.Drawing.Size(100, 59) + Me.Panel11.Size = New System.Drawing.Size(90, 59) Me.Panel11.TabIndex = 17 ' 'btnAnkunft @@ -1881,9 +1732,9 @@ Partial Class usrcntlAktDetails Me.btnAnkunft.ForeColor = System.Drawing.Color.White Me.btnAnkunft.Location = New System.Drawing.Point(0, 0) Me.btnAnkunft.Margin = New System.Windows.Forms.Padding(0) - Me.btnAnkunft.MinimumSize = New System.Drawing.Size(100, 0) + Me.btnAnkunft.MinimumSize = New System.Drawing.Size(90, 0) Me.btnAnkunft.Name = "btnAnkunft" - Me.btnAnkunft.Size = New System.Drawing.Size(100, 46) + Me.btnAnkunft.Size = New System.Drawing.Size(90, 46) Me.btnAnkunft.TabIndex = 12 Me.btnAnkunft.Text = "4." & Global.Microsoft.VisualBasic.ChrW(10) & "ANKUNFT" Me.btnAnkunft.UseVisualStyleBackColor = False @@ -1894,17 +1745,99 @@ Partial Class usrcntlAktDetails Me.lblTimeAnkunft.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblTimeAnkunft.Location = New System.Drawing.Point(0, 46) Me.lblTimeAnkunft.Name = "lblTimeAnkunft" - Me.lblTimeAnkunft.Size = New System.Drawing.Size(100, 13) + Me.lblTimeAnkunft.Size = New System.Drawing.Size(90, 13) Me.lblTimeAnkunft.TabIndex = 0 Me.lblTimeAnkunft.Text = "-" Me.lblTimeAnkunft.TextAlign = System.Drawing.ContentAlignment.TopCenter ' + 'pnlStatusVERIMEX + ' + Me.pnlStatusVERIMEX.AutoSize = True + Me.pnlStatusVERIMEX.Controls.Add(Me.btnAnVerimex) + Me.pnlStatusVERIMEX.Controls.Add(Me.Label8) + Me.pnlStatusVERIMEX.Location = New System.Drawing.Point(450, 3) + Me.pnlStatusVERIMEX.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) + Me.pnlStatusVERIMEX.Name = "pnlStatusVERIMEX" + Me.pnlStatusVERIMEX.Size = New System.Drawing.Size(80, 58) + Me.pnlStatusVERIMEX.TabIndex = 21 + Me.pnlStatusVERIMEX.Visible = False + ' + 'btnAnVerimex + ' + Me.btnAnVerimex.AutoSize = True + Me.btnAnVerimex.BackColor = System.Drawing.Color.SteelBlue + Me.btnAnVerimex.Cursor = System.Windows.Forms.Cursors.Hand + Me.btnAnVerimex.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnAnVerimex.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAnVerimex.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.btnAnVerimex.ForeColor = System.Drawing.Color.White + Me.btnAnVerimex.Location = New System.Drawing.Point(0, 0) + Me.btnAnVerimex.Margin = New System.Windows.Forms.Padding(0) + Me.btnAnVerimex.MinimumSize = New System.Drawing.Size(80, 0) + Me.btnAnVerimex.Name = "btnAnVerimex" + Me.btnAnVerimex.Size = New System.Drawing.Size(80, 45) + Me.btnAnVerimex.TabIndex = 12 + Me.btnAnVerimex.Text = "An:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VERIMEX" + Me.btnAnVerimex.UseVisualStyleBackColor = False + ' + 'Label8 + ' + Me.Label8.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(0, 45) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(80, 13) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "-" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' + 'pnlStatusINDONESIEN + ' + Me.pnlStatusINDONESIEN.AutoSize = True + Me.pnlStatusINDONESIEN.Controls.Add(Me.btnAnIndonesien) + Me.pnlStatusINDONESIEN.Controls.Add(Me.Label1) + Me.pnlStatusINDONESIEN.Location = New System.Drawing.Point(2, 67) + Me.pnlStatusINDONESIEN.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) + Me.pnlStatusINDONESIEN.Name = "pnlStatusINDONESIEN" + Me.pnlStatusINDONESIEN.Size = New System.Drawing.Size(80, 58) + Me.pnlStatusINDONESIEN.TabIndex = 22 + Me.pnlStatusINDONESIEN.Visible = False + ' + 'btnAnIndonesien + ' + Me.btnAnIndonesien.AutoSize = True + Me.btnAnIndonesien.BackColor = System.Drawing.Color.SteelBlue + Me.btnAnIndonesien.Cursor = System.Windows.Forms.Cursors.Hand + Me.btnAnIndonesien.Dock = System.Windows.Forms.DockStyle.Fill + Me.btnAnIndonesien.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAnIndonesien.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) + Me.btnAnIndonesien.ForeColor = System.Drawing.Color.White + Me.btnAnIndonesien.Location = New System.Drawing.Point(0, 0) + Me.btnAnIndonesien.Margin = New System.Windows.Forms.Padding(0) + Me.btnAnIndonesien.MinimumSize = New System.Drawing.Size(80, 0) + Me.btnAnIndonesien.Name = "btnAnIndonesien" + Me.btnAnIndonesien.Size = New System.Drawing.Size(80, 45) + Me.btnAnIndonesien.TabIndex = 12 + Me.btnAnIndonesien.Text = "An:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "INDONES." + Me.btnAnIndonesien.UseVisualStyleBackColor = False + ' + 'Label1 + ' + Me.Label1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(0, 45) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(80, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "-" + Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopCenter + ' 'Panel12 ' Me.Panel12.AutoSize = True Me.Panel12.Controls.Add(Me.btnFreigabe) Me.Panel12.Controls.Add(Me.lblTimeFreigabe) - Me.Panel12.Location = New System.Drawing.Point(469, 2) + Me.Panel12.Location = New System.Drawing.Point(85, 66) Me.Panel12.Margin = New System.Windows.Forms.Padding(1, 2, 2, 2) Me.Panel12.Name = "Panel12" Me.Panel12.Size = New System.Drawing.Size(100, 58) @@ -1943,7 +1876,7 @@ Partial Class usrcntlAktDetails 'Panel2 ' Me.Panel2.AutoSize = True - Me.Panel2.Location = New System.Drawing.Point(3, 66) + Me.Panel2.Location = New System.Drawing.Point(190, 67) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(0, 0) Me.Panel2.TabIndex = 18 @@ -2313,6 +2246,183 @@ Partial Class usrcntlAktDetails Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button10.UseVisualStyleBackColor = False ' + 'Button9 + ' + Me.Button9.BackColor = System.Drawing.Color.White + Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.Image = Global.AVISO.My.Resources.Resources.beleg1 + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button9.Location = New System.Drawing.Point(5, 147) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(123, 36) + Me.Button9.TabIndex = 119 + Me.Button9.Text = "ATILLA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aktendeckel" + Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button9.UseVisualStyleBackColor = False + Me.Button9.Visible = False + ' + 'txtSendungen + ' + Me.txtSendungen._DateTimeOnly = False + Me.txtSendungen._numbersOnly = True + Me.txtSendungen._numbersOnlyKommastellen = "" + Me.txtSendungen._numbersOnlyTrennzeichen = True + Me.txtSendungen._Prozent = False + Me.txtSendungen._ShortDateNew = False + Me.txtSendungen._ShortDateOnly = False + Me.txtSendungen._TimeOnly = False + Me.txtSendungen._TimeOnly_Seconds = False + Me.txtSendungen._value = "" + Me.txtSendungen._Waehrung = False + Me.txtSendungen._WaehrungZeichen = True + Me.txtSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSendungen.ForeColor = System.Drawing.Color.Black + Me.txtSendungen.Location = New System.Drawing.Point(22, 17) + Me.txtSendungen.MaxLineLength = -1 + Me.txtSendungen.MaxLines_Warning = "" + Me.txtSendungen.MaxLines_Warning_Label = Nothing + Me.txtSendungen.Name = "txtSendungen" + Me.txtSendungen.Size = New System.Drawing.Size(32, 26) + Me.txtSendungen.TabIndex = 1 + Me.txtSendungen.Text = "1" + Me.txtSendungen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSndFremd + ' + Me.txtSndFremd._DateTimeOnly = False + Me.txtSndFremd._numbersOnly = True + Me.txtSndFremd._numbersOnlyKommastellen = "" + Me.txtSndFremd._numbersOnlyTrennzeichen = True + Me.txtSndFremd._Prozent = False + Me.txtSndFremd._ShortDateNew = False + Me.txtSndFremd._ShortDateOnly = False + Me.txtSndFremd._TimeOnly = False + Me.txtSndFremd._TimeOnly_Seconds = False + Me.txtSndFremd._value = "" + Me.txtSndFremd._Waehrung = False + Me.txtSndFremd._WaehrungZeichen = True + Me.txtSndFremd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFremd.ForeColor = System.Drawing.Color.Black + Me.txtSndFremd.Location = New System.Drawing.Point(149, 5) + Me.txtSndFremd.MaxLineLength = -1 + Me.txtSndFremd.MaxLines_Warning = "" + Me.txtSndFremd.MaxLines_Warning_Label = Nothing + Me.txtSndFremd.Name = "txtSndFremd" + Me.txtSndFremd.Size = New System.Drawing.Size(32, 26) + Me.txtSndFremd.TabIndex = 83 + Me.txtSndFremd.Text = "0" + Me.txtSndFremd.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.txtSndFremd.Visible = False + ' + 'txtSndFiskalDE + ' + Me.txtSndFiskalDE._DateTimeOnly = False + Me.txtSndFiskalDE._numbersOnly = True + Me.txtSndFiskalDE._numbersOnlyKommastellen = "" + Me.txtSndFiskalDE._numbersOnlyTrennzeichen = True + Me.txtSndFiskalDE._Prozent = False + Me.txtSndFiskalDE._ShortDateNew = False + Me.txtSndFiskalDE._ShortDateOnly = False + Me.txtSndFiskalDE._TimeOnly = False + Me.txtSndFiskalDE._TimeOnly_Seconds = False + Me.txtSndFiskalDE._value = "" + Me.txtSndFiskalDE._Waehrung = False + Me.txtSndFiskalDE._WaehrungZeichen = True + Me.txtSndFiskalDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFiskalDE.ForeColor = System.Drawing.Color.Black + Me.txtSndFiskalDE.Location = New System.Drawing.Point(16, 34) + Me.txtSndFiskalDE.MaxLineLength = -1 + Me.txtSndFiskalDE.MaxLines_Warning = "" + Me.txtSndFiskalDE.MaxLines_Warning_Label = Nothing + Me.txtSndFiskalDE.Name = "txtSndFiskalDE" + Me.txtSndFiskalDE.Size = New System.Drawing.Size(32, 26) + Me.txtSndFiskalDE.TabIndex = 5 + Me.txtSndFiskalDE.Text = "0" + Me.txtSndFiskalDE.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSndFiskalAT + ' + Me.txtSndFiskalAT._DateTimeOnly = False + Me.txtSndFiskalAT._numbersOnly = True + Me.txtSndFiskalAT._numbersOnlyKommastellen = "" + Me.txtSndFiskalAT._numbersOnlyTrennzeichen = True + Me.txtSndFiskalAT._Prozent = False + Me.txtSndFiskalAT._ShortDateNew = False + Me.txtSndFiskalAT._ShortDateOnly = False + Me.txtSndFiskalAT._TimeOnly = False + Me.txtSndFiskalAT._TimeOnly_Seconds = False + Me.txtSndFiskalAT._value = "" + Me.txtSndFiskalAT._Waehrung = False + Me.txtSndFiskalAT._WaehrungZeichen = True + Me.txtSndFiskalAT.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSndFiskalAT.ForeColor = System.Drawing.Color.Black + Me.txtSndFiskalAT.Location = New System.Drawing.Point(16, 5) + Me.txtSndFiskalAT.MaxLineLength = -1 + Me.txtSndFiskalAT.MaxLines_Warning = "" + Me.txtSndFiskalAT.MaxLines_Warning_Label = Nothing + Me.txtSndFiskalAT.Name = "txtSndFiskalAT" + Me.txtSndFiskalAT.Size = New System.Drawing.Size(32, 26) + Me.txtSndFiskalAT.TabIndex = 3 + Me.txtSndFiskalAT.Text = "0" + Me.txtSndFiskalAT.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cbxLZDeFisk + ' + Me.cbxLZDeFisk._value = "" + Me.cbxLZDeFisk.AutoSize = True + Me.cbxLZDeFisk.Checked_value = False + Me.cbxLZDeFisk.CheckedValue = False + Me.cbxLZDeFisk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxLZDeFisk.Location = New System.Drawing.Point(205, 93) + Me.cbxLZDeFisk.Name = "cbxLZDeFisk" + Me.cbxLZDeFisk.Size = New System.Drawing.Size(62, 17) + Me.cbxLZDeFisk.TabIndex = 118 + Me.cbxLZDeFisk.Text = "DE Fisk" + Me.cbxLZDeFisk.UseVisualStyleBackColor = True + ' + 'cbxLZT1 + ' + Me.cbxLZT1._value = "" + Me.cbxLZT1.AutoSize = True + Me.cbxLZT1.Checked_value = False + Me.cbxLZT1.CheckedValue = False + Me.cbxLZT1.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxLZT1.Location = New System.Drawing.Point(172, 93) + Me.cbxLZT1.Name = "cbxLZT1" + Me.cbxLZT1.Size = New System.Drawing.Size(37, 17) + Me.cbxLZT1.TabIndex = 114 + Me.cbxLZT1.Text = "T1" + Me.cbxLZT1.UseVisualStyleBackColor = True + Me.cbxLZT1.Visible = False + ' + 'cboFormulareRgAn + ' + Me.cboFormulareRgAn._allowedValuesFreiText = Nothing + Me.cboFormulareRgAn._allowFreiText = False + Me.cboFormulareRgAn._value = "" + Me.cboFormulareRgAn.FormattingEnabled = True + Me.cboFormulareRgAn.Location = New System.Drawing.Point(40, 2) + Me.cboFormulareRgAn.Name = "cboFormulareRgAn" + Me.cboFormulareRgAn.Size = New System.Drawing.Size(88, 21) + Me.cboFormulareRgAn.TabIndex = 108 + ' + 'cbxLZRg + ' + Me.cbxLZRg._value = "" + Me.cbxLZRg.AutoSize = True + Me.cbxLZRg.Checked = True + Me.cbxLZRg.Checked_value = False + Me.cbxLZRg.CheckedValue = False + Me.cbxLZRg.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxLZRg.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) + Me.cbxLZRg.Location = New System.Drawing.Point(134, 93) + Me.cbxLZRg.Name = "cbxLZRg" + Me.cbxLZRg.Size = New System.Drawing.Size(41, 17) + Me.cbxLZRg.TabIndex = 115 + Me.cbxLZRg.Text = "RG" + Me.cbxLZRg.UseVisualStyleBackColor = True + ' 'usrcntlAktDetails ' Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None @@ -2358,12 +2468,16 @@ Partial Class usrcntlAktDetails Me.FlowLayoutPanel.PerformLayout() Me.Panel9.ResumeLayout(False) Me.Panel9.PerformLayout() - Me.Panel10.ResumeLayout(False) - Me.Panel10.PerformLayout() + Me.pnlStatus2Vorgeschr.ResumeLayout(False) + Me.pnlStatus2Vorgeschr.PerformLayout() Me.Panel13.ResumeLayout(False) Me.Panel13.PerformLayout() Me.Panel11.ResumeLayout(False) Me.Panel11.PerformLayout() + Me.pnlStatusVERIMEX.ResumeLayout(False) + Me.pnlStatusVERIMEX.PerformLayout() + Me.pnlStatusINDONESIEN.ResumeLayout(False) + Me.pnlStatusINDONESIEN.PerformLayout() Me.Panel12.ResumeLayout(False) Me.Panel12.PerformLayout() Me.pnl.ResumeLayout(False) @@ -2396,8 +2510,7 @@ Partial Class usrcntlAktDetails Friend WithEvents Panel9 As System.Windows.Forms.Panel Friend WithEvents btnErfasst As System.Windows.Forms.Button Friend WithEvents lblTimeErfasst As System.Windows.Forms.Label - Friend WithEvents Panel10 As System.Windows.Forms.Panel - Friend WithEvents btnVorbereitet As System.Windows.Forms.Button + Friend WithEvents pnlStatus2Vorgeschr As System.Windows.Forms.Panel Friend WithEvents lblTimeVorbereitet As System.Windows.Forms.Label Friend WithEvents Panel13 As System.Windows.Forms.Panel Friend WithEvents btnVorgeschrieben As System.Windows.Forms.Button @@ -2520,4 +2633,12 @@ Partial Class usrcntlAktDetails Friend WithEvents Button1 As Button Friend WithEvents Button8 As Button Friend WithEvents btnQRVerwahrung As Button + Friend WithEvents btnVorbereitet As Button + Friend WithEvents pnlStatusVERIMEX As Panel + Friend WithEvents btnAnVerimex As Button + Friend WithEvents Label8 As Label + Friend WithEvents pnlStatusINDONESIEN As Panel + Friend WithEvents btnAnIndonesien As Button + Friend WithEvents Label1 As Label + Friend WithEvents Button9 As Button End Class diff --git a/Aviso/usrcntlAktDetails.vb b/Aviso/usrcntlAktDetails.vb index c30090a..8e1ed93 100644 --- a/Aviso/usrcntlAktDetails.vb +++ b/Aviso/usrcntlAktDetails.vb @@ -194,8 +194,23 @@ Public Class usrcntlAktDetails cboFormulareRgAn.changeItem("AVISIERER") + + Select Case If(AVISO.FIRMA <> "", AVISO.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + Case "ATILLA" + pnlStatus2Vorgeschr.Visible = False + pnlStatusVERIMEX.Visible = True + pnlStatusINDONESIEN.Visible = True + Button9.Visible = True + Case Else + pnlStatus2Vorgeschr.Visible = True + pnlStatusVERIMEX.Visible = False + pnlStatusINDONESIEN.Visible = False + Button9.Visible = False + End Select + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "UNISPED" : btnSendungslisteUNISPED.Visible = True + End Select If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then @@ -3872,5 +3887,29 @@ Public Class usrcntlAktDetails End Sub + Private Sub btnAnVerimex_Click(sender As Object, e As EventArgs) Handles btnAnVerimex.Click + If FUNC.setAnVERIMEX(AvisoID) Then + frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + End Sub + + Private Sub btnAnIndonesien_Click(sender As Object, e As EventArgs) Handles btnAnIndonesien.Click + If FUNC.setAnINDONESIEN(AvisoID) Then + frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) + End If + End Sub + + Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click + Dim SND = Nothing + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, -1, AvisoID) 'LÄDT alle SENDUNGSDATEN + If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then + SND = SENDUNG_LIST(0) + SendungOptions.PrintSendungATILLA("PRINT", SND, AVISO, (New System.Drawing.Printing.PrinterSettings).PrinterName) + Panel4.Visible = False + End If + End Sub End Class